unmaintained/peg-lexer/test-parsers/test-parsers.factor

   1 USING: peg-lexer math.parser strings ;
   2 IN: peg-lexer.test-parsers
   3
   4 ON-BNF: test1
   5       num = [1-4]* => [[ >string ]]
   6       expr = num ( "-end" | "-done" )
   7 ;ON-BNF
   8
   9 ON-BNF: test2
  10       num = [1-4]* => [[ >string string>number ]]
  11       expr= num [5-9]
  12 ;ON-BNF
  13
  14 ON-BNF: test3
  15       tokenizer = <foreign factor>
  16       expr= "heavy" "duty" "testing"
  17 ;ON-BNF