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

simple-flat-file: add back string interning.

char-rename
John Benediktsson 2017-01-24 20:04:20 -08:00
parent 1613bdfed2
commit 1829c73bb1
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,7 +1,7 @@
! Copyright (C) 2009 Daniel Ehrenberg
! See http://factorcode.org/license.txt for BSD license.
USING: arrays ascii assocs biassocs interval-maps
io.encodings.utf8 io.files kernel math.parser sequences
io.encodings.utf8 io.files kernel math.parser sequences sets
splitting ;
IN: simple-flat-file
@ -38,5 +38,11 @@ IN: simple-flat-file
: expand-ranges ( ranges -- table )
[ [ expand-range ] dip ] assoc-map <interval-map> ;
: intern ( value values -- value' )
[ = ] with find nip ;
: intern-values ( assoc -- assoc' )
dup values members [ intern ] curry assoc-map ;
: load-interval-file ( filename -- table )
data expand-ranges ;
data intern-values expand-ranges ;