root/trunk/orca/tests/working/parse2.r

REBOL []


test-parser: context [
    a: b: blk: none

    append-blk: func [start end type] [
        probe start
        probe type
        append blk make type copy/part start end
    ]

    digit:     charset [#"0" - #"9"]
    alpha:     charset [#"A" - #"Z" #"a" - #"z"]
    alpha-num: charset [#"A" - #"Z" #"a" - #"z" #"0" - #"9"]
    white:     charset " ^-^/"
    sign:      charset "+-"

    word:      [ alpha any alpha-num ]
    set-word:  [ alpha any alpha-num #":" ]
    get-word:  [ #":" alpha any alpha-num ]
    int:       [ opt sign 1 12 digit ]
    char:      [ #"#" alpha ]

    token: [
          some white
        | a: set-word     b: (append-blk a back b set-word!)
        | a: word         b: (append-blk a b word!)
        | a: get-word     b: (append-blk next a b get-word!)
        | a: int          b: (append-blk a b integer!)
        | a: char         b: (append blk pick a 2)
    ]

    set 'urparse func [code] [
        blk: make block! 8
        parse/all code [some token]
        blk
    ]
]


probe urparse {a b: 1 #c 3}