diff options
Diffstat (limited to 'test/ragel.d/atoi1.rl')
-rw-r--r-- | test/ragel.d/atoi1.rl | 67 |
1 files changed, 0 insertions, 67 deletions
diff --git a/test/ragel.d/atoi1.rl b/test/ragel.d/atoi1.rl deleted file mode 100644 index 40217d91..00000000 --- a/test/ragel.d/atoi1.rl +++ /dev/null @@ -1,67 +0,0 @@ -/* - * @LANG: indep - */ -bool neg; -int value; - -value = 0; -neg = false; -%%{ - machine atoi; - - action begin { - neg = false; - value = 0; - } - - action see_neg { - neg = true; - } - - action add_digit { - value = value * 10 + <int>(fc - 48); - } - - action finish { - if ( neg ) { - value = -1 * value; - } - } - action print { - print_int value; - print_str "\n"; - } - - atoi = ( - ('-'@see_neg | '+')? (digit @add_digit)+ - ) >begin %finish; - - main := atoi '\n' @print; -}%% - -##### INPUT ##### -"1\n" -"12\n" -"222222\n" -"+2123\n" -"213 3213\n" -"-12321\n" -"--123\n" -"-99\n" -" -3000\n" -##### OUTPUT ##### -1 -ACCEPT -12 -ACCEPT -222222 -ACCEPT -2123 -ACCEPT -FAIL --12321 -ACCEPT -FAIL --99 -ACCEPT -FAIL |