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

Fix simple-flat-file

db4
Slava Pestov 2009-03-07 20:55:55 -06:00
parent 4f81b6750f
commit 8a7d877ec6
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/simple-flat-file/simple-flat-file.factor
View File

@ -7,10 +7,13 @@ IN: simple-flat-file
[ "#" split1 drop ] map harvest ; [ "#" split1 drop ] map harvest ;
: split-column ( line -- columns ) : split-column ( line -- columns )
" \t" split harvest 2 head ; " \t" split harvest 2 short head 2 f pad-tail ;
: parse-hex ( s -- n ) : parse-hex ( s -- n )
2 short tail hex> ; dup [
"0x" ?head [ "U+" ?head [ "Missing 0x or U+" throw ] unless ] unless
hex>
] when ;
: parse-line ( line -- code-unicode ) : parse-line ( line -- code-unicode )
split-column [ parse-hex ] map ; split-column [ parse-hex ] map ;