52 lines
680 B
Factor
52 lines
680 B
Factor
|
IN: scratchpad
|
||
|
|
USE: parser
|
||
|
|
USE: test
|
||
|
|
USE: unparser
|
||
|
|
|
||
|
|
[ [ 1 [ 2 [ 3 ] 4 ] 5 ] ]
|
||
|
|
[ "1\n[\n2\n[\n3\n]\n4\n]\n5" ]
|
||
|
|
[ parse ]
|
||
|
|
test-word
|
||
|
|
|
||
|
|
[ [ t t f f ] ]
|
||
|
|
[ "t t f f" ]
|
||
|
|
[ parse ]
|
||
|
|
test-word
|
||
|
|
|
||
|
|
[ [ "hello world" ] ]
|
||
|
|
[ "\"hello world\"" ]
|
||
|
|
[ parse ]
|
||
|
|
test-word
|
||
|
|
|
||
|
|
[ [ "\n\r\t\\" ] ]
|
||
|
|
[ "\"\\n\\r\\t\\\\\"" ]
|
||
|
|
[ parse ]
|
||
|
|
test-word
|
||
|
|
|
||
|
|
[ "hello world" ]
|
||
|
|
[ "IN: scratchpad : hello \"hello world\" ;" ]
|
||
|
|
[ parse call "USE: scratchpad hello" eval ]
|
||
|
|
test-word
|
||
|
|
|
||
|
|
[ ]
|
||
|
|
[ "! This is a comment, people." ]
|
||
|
|
[ parse call ]
|
||
|
|
test-word
|
||
|
|
|
||
|
|
[ ]
|
||
|
|
[ "( This is a comment, people. )" ]
|
||
|
|
[ parse call ]
|
||
|
|
test-word
|
||
|
|
|
||
|
|
! Test escapes
|
||
|
|
|
||
|
|
[ [ " " ] ]
|
||
|
|
[ "\"\\u0020\"" ]
|
||
|
|
[ parse ]
|
||
|
|
test-word
|
||
|
|
|
||
|
|
[ [ "'" ] ]
|
||
|
|
[ "\"\\u0027\"" ]
|
||
|
|
[ parse ]
|
||
|
|
test-word
|