2009-08-01 21:42:29 -04:00
|
|
|
! Copyright (C) 2009 Doug Coleman.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2009-11-05 18:12:10 -05:00
|
|
|
USING: accessors c.lexer kernel sequences.parser tools.test ;
|
2009-08-01 21:42:29 -04:00
|
|
|
IN: c.lexer.tests
|
|
|
|
|
|
|
|
|
|
[ 36 ]
|
|
|
|
|
[
|
|
|
|
|
" //jofiejoe\n //eoieow\n/*asdf*/\n "
|
|
|
|
|
<sequence-parser> skip-whitespace/comments n>>
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ f "33asdf" ]
|
|
|
|
|
[ "33asdf" <sequence-parser> [ take-c-identifier ] [ take-rest ] bi ] unit-test
|
|
|
|
|
|
|
|
|
|
[ "asdf" ]
|
|
|
|
|
[ "asdf" <sequence-parser> take-c-identifier ] unit-test
|
|
|
|
|
|
|
|
|
|
[ "_asdf" ]
|
|
|
|
|
[ "_asdf" <sequence-parser> take-c-identifier ] unit-test
|
|
|
|
|
|
|
|
|
|
[ "_asdf400" ]
|
|
|
|
|
[ "_asdf400" <sequence-parser> take-c-identifier ] unit-test
|
|
|
|
|
|
|
|
|
|
[ "asdfasdf" ] [
|
|
|
|
|
"/*asdfasdf*/" <sequence-parser> take-c-comment
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ "k" ] [
|
|
|
|
|
"/*asdfasdf*/k" <sequence-parser> [ take-c-comment drop ] [ take-rest ] bi
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ "omg" ] [
|
|
|
|
|
"//asdfasdf\nomg" <sequence-parser>
|
|
|
|
|
[ take-c++-comment drop ] [ take-rest ] bi
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ "omg" ] [
|
|
|
|
|
"omg" <sequence-parser>
|
|
|
|
|
[ take-c++-comment drop ] [ take-rest ] bi
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ "/*asdfasdf" ] [
|
|
|
|
|
"/*asdfasdf" <sequence-parser> [ take-c-comment drop ] [ take-rest ] bi
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ "asdf" "eoieoei" ] [
|
|
|
|
|
"//asdf\neoieoei" <sequence-parser>
|
|
|
|
|
[ take-c++-comment ] [ take-rest ] bi
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ f ]
|
|
|
|
|
[
|
|
|
|
|
"\"abc\" asdf" <sequence-parser>
|
|
|
|
|
[ CHAR: \ CHAR: " take-quoted-string drop ] [ "asdf" take-sequence ] bi
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ "abc\\\"def" ]
|
|
|
|
|
[
|
|
|
|
|
"\"abc\\\"def\" asdf" <sequence-parser>
|
|
|
|
|
CHAR: \ CHAR: " take-quoted-string
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ "asdf" ]
|
|
|
|
|
[
|
|
|
|
|
"\"abc\" asdf" <sequence-parser>
|
|
|
|
|
[ CHAR: \ CHAR: " take-quoted-string drop ]
|
|
|
|
|
[ skip-whitespace "asdf" take-sequence ] bi
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ f ]
|
|
|
|
|
[
|
|
|
|
|
"\"abc asdf" <sequence-parser>
|
|
|
|
|
CHAR: \ CHAR: " take-quoted-string
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ "\"abc" ]
|
|
|
|
|
[
|
|
|
|
|
"\"abc asdf" <sequence-parser>
|
|
|
|
|
[ CHAR: \ CHAR: " take-quoted-string drop ]
|
|
|
|
|
[ "\"abc" take-sequence ] bi
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ "c" ]
|
|
|
|
|
[ "c" <sequence-parser> take-token ] unit-test
|
|
|
|
|
|
|
|
|
|
[ f ]
|
|
|
|
|
[ "" <sequence-parser> take-token ] unit-test
|
|
|
|
|
|
|
|
|
|
[ "abcd e \\\"f g" ]
|
|
|
|
|
[ "\"abcd e \\\"f g\"" <sequence-parser> CHAR: \ CHAR: " take-token* ] unit-test
|
|
|
|
|
|
|
|
|
|
[ "123" ]
|
|
|
|
|
[ "123jjj" <sequence-parser> take-c-integer ] unit-test
|
|
|
|
|
|
|
|
|
|
[ "123uLL" ]
|
|
|
|
|
[ "123uLL" <sequence-parser> take-c-integer ] unit-test
|
|
|
|
|
|
|
|
|
|
[ "123ull" ]
|
|
|
|
|
[ "123ull" <sequence-parser> take-c-integer ] unit-test
|
|
|
|
|
|
|
|
|
|
[ "123u" ]
|
|
|
|
|
[ "123u" <sequence-parser> take-c-integer ] unit-test
|
|
|
|
|
|
