extra/parser-combinators/simple/simple.factor

   1 ! Copyright (C) 2006 Chris Double.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: kernel strings math sequences lists.lazy words
   4 math.parser promises parser-combinators unicode.categories ;
   5 IN: parser-combinators.simple
   6
   7 : 'digit' ( -- parser )
   8   [ digit? ] satisfy [ digit> ] <@ ;
   9
  10 : 'integer' ( -- parser )
  11   'digit' <!+> [ 10 digits>integer ] <@ ;
  12
  13 : 'string' ( -- parser )
  14   [ CHAR: " = ] satisfy
  15   [ CHAR: " = not ] satisfy <*> &>
  16   [ CHAR: " = ] satisfy <& [ >string ] <@  ;
  17
  18 : 'bold' ( -- parser )
  19   "*" token
  20   [ CHAR: * = not  ] satisfy <*> [ >string ] <@ &>
  21   "*" token <& ;
  22
  23 : 'italic' ( -- parser )
  24   "_" token
  25   [ CHAR: _ = not ] satisfy <*> [ >string ] <@ &>
  26   "_" token <& ;
  27
  28 : comma-list ( element -- parser )
  29   "," token list-of ;