diff options
| author | Adrian Thurston <thurston@colm.net> | 2020-03-08 23:29:57 +0200 |
|---|---|---|
| committer | Adrian Thurston <thurston@colm.net> | 2020-03-08 23:53:25 +0200 |
| commit | 78e7949ca590b273c2c152a0abe0d51e590a52fd (patch) | |
| tree | c253c852aec77af8a04c24d921d8657ff29c4101 /test/ragel.d/atoi2.rl | |
| parent | 5718c319424a21b64e1b50dbb6aae644715b9e85 (diff) | |
| download | colm-78e7949ca590b273c2c152a0abe0d51e590a52fd.tar.gz | |
remove the ragel tests, export runtests for use by ragel
Diffstat (limited to 'test/ragel.d/atoi2.rl')
| -rw-r--r-- | test/ragel.d/atoi2.rl | 81 |
1 files changed, 0 insertions, 81 deletions
diff --git a/test/ragel.d/atoi2.rl b/test/ragel.d/atoi2.rl deleted file mode 100644 index d793d3d8..00000000 --- a/test/ragel.d/atoi2.rl +++ /dev/null @@ -1,81 +0,0 @@ -/* - * @LANG: indep - * This implementes an atoi machine using the statechart paradigm. - */ -bool neg; -int value; - -value = 0; -neg = false; - -%%{ - machine state_chart; - - 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; - } - } - - atoi = ( - start: ( - '-' @see_neg ->om_num | - '+' ->om_num | - [0-9] @add_digit ->more_nums - ), - - # One or more nums. - om_num: ( - [0-9] @add_digit ->more_nums - ), - - # Zero ore more nums. - more_nums: ( - [0-9] @add_digit ->more_nums | - '' -> final - ) - ) >begin %finish; - - action oneof { print_int value; print_str "\n"; } - main := ( atoi '\n' @oneof )*; -}%% - -##### 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 |