27 lines
757 B
Factor
27 lines
757 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 )
|
|
[
|
|
"quiet" on
|
|
parser-notes off
|
|
'[ _ (( -- )) (eval) ] [ print-error ] recover
|
|
] with-string-writer ;
|
|
|
|
: eval>string ( str -- output )
|
|
[ (eval>string) ] with-file-vocabs ; |