More work on extra/lisp
parent
a033091b44
commit
025da7d2cd
|
@ -1,8 +1,16 @@
|
||||||
! Copyright (C) 2008 James Cash
|
! Copyright (C) 2008 James Cash
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: kernel peg.ebnf peg.expr ;
|
USING: kernel peg.ebnf peg.expr math.parser sequences arrays ;
|
||||||
IN: lisp
|
IN: lisp
|
||||||
|
|
||||||
EBNF: expr
|
EBNF: lisp-expr
|
||||||
list = "(" ( atom | list )* ")" => [[ second 1array ]]
|
digit = [0-9] => [[ digit> ]]
|
||||||
|
integer = (digit)+ => [[ 10 digits>integer ]]
|
||||||
|
float = (digit)+ "." (digit)* => [[ 3 head 3append string>number ]]
|
||||||
|
number = integer
|
||||||
|
| float
|
||||||
|
identifier = [a-zA-Z] ([a-zA-Z0-9])*
|
||||||
|
atom = number
|
||||||
|
| identifier
|
||||||
|
list = "(" (atom|list)* ")" => [[ second 1array ]]
|
||||||
;EBNF
|
;EBNF
|
|
@ -1 +1 @@
|
||||||
Lisp languages
|
lisp
|
||||||
|
|
Loading…
Reference in New Issue