steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

strings.parser: Add character escapes for :[{(. 

You will need to bootstrap or change them to ``char: :`` then ``char: \:`` in strings.parser.
modern-harvey2
Doug Coleman 2017-08-26 01:30:04 -05:00
parent 2d77edf9a2
commit acfb3a8992
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/io/pathnames/pathnames.factor
View File

@ -65,7 +65,7 @@ ERROR: no-parent-directory path ;
{ {
{ [ dup "\\\\?\\" head? ] [ t ] } { [ dup "\\\\?\\" head? ] [ t ] }
{ [ dup length 2 < ] [ f ] } { [ dup length 2 < ] [ f ] }
{ [ dup second CHAR: : = ] [ t ] } { [ dup second CHAR: \: = ] [ t ] }
[ f ] [ f ]
} cond ; } cond ;

4
core/strings/parser/parser.factor
View File

@ -22,6 +22,10 @@ ERROR: bad-escape char ;
{ CHAR: 0 CHAR: \0 } { CHAR: 0 CHAR: \0 }
{ CHAR: \\ CHAR: \\ } { CHAR: \\ CHAR: \\ }
{ CHAR: \" CHAR: \" } { CHAR: \" CHAR: \" }
{ CHAR: \: CHAR: \: }
{ CHAR: \[ CHAR: \[ }
{ CHAR: \{ CHAR: \{ }
{ CHAR: \( CHAR: \( }
} ?at [ bad-escape ] unless ; } ?at [ bad-escape ] unless ;
SYMBOL: name>char-hook SYMBOL: name>char-hook