27 lines
737 B
Factor
27 lines
737 B
Factor
! Copyright (C) 2008, 2009 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: splitting parser parser.notes compiler.units kernel
|
|
namespaces debugger io.streams.string fry combinators
|
|
effects.parser continuations ;
|
|
IN: eval
|
|
|
|
: parse-string ( str -- quot )
|
|
[ string-lines parse-lines ] with-compilation-unit ;
|
|
|
|
: (eval) ( str effect -- )
|
|
[ parse-string ] dip call-effect ; inline
|
|
|
|
: eval ( str effect -- )
|
|
[ (eval) ] with-file-vocabs ; inline
|
|
|
|
SYNTAX: eval( \ eval parse-call( ;
|
|
|
|
: (eval>string) ( str -- output )
|
|
[
|
|
parser-quiet? on
|
|
'[ _ ( -- ) (eval) ] [ print-error ] recover
|
|
] with-string-writer ;
|
|
|
|
: eval>string ( str -- output )
|
|
[ (eval>string) ] with-file-vocabs ;
|