36 lines
1.0 KiB
Factor
36 lines
1.0 KiB
Factor
|
|
||
|
|
USING: kernel sequences quotations assocs math math.parser
|
||
|
combinators.lib vars lsys.strings combinators.short-circuit ;
|
||
|
|
|
||
|
|
IN: lsys.strings.interpret
|
||
|
|
|
||
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||
|
|
|
||
|
|
VAR: command-table
|
||
|
|
|
||
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||
|
|
|
||
|
|
: exec-command ( string -- ) command-table> at >quotation call ;
|
||
|
|
|
||
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||
|
|
|
||
|
|
: command ( string -- command ) 1 head ;
|
||
|
|
|
||
|
|
: parameter ( string -- parameter )
|
||
|
|
[ drop 2 ] [ length 1- ] [ ] tri subseq string>number ;
|
||
|
|
|
||
|
|
: exec-command* ( string -- )
|
||
|
|
[ parameter ] [ command ] bi
|
||
|
|
command-table> at dup
|
||
|
[ 1 tail* call ] [ 2drop ] if ;
|
||
|
|
|
||
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||
|
|
|
||
|
|
: (interpret) ( slice -- )
|
||
|
|
{ { [ empty? ] [ drop ] }
|
||
|
|
{ [ has-param? ] [ next+rest* [ exec-command* ] [ (interpret) ] bi* ] }
|
||
|
|
{ [ t ] [ next+rest [ exec-command ] [ (interpret) ] bi* ] } }
|
||
|
|
switch ;
|
||
|
|
|
||
|
|
: interpret ( string -- ) <flat-slice> (interpret) ;
|