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

use smart combinator in geo-ip

db4
Doug Coleman 2009-01-08 17:53:48 -06:00
parent c97ed1fc37
commit fe62bebb4b
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/geo-ip/geo-ip.factor
View File

@ -4,7 +4,7 @@ USING: kernel sequences io.files io.files.temp io.launcher
io.pathnames io.encodings.ascii io.streams.string http.client
generalizations combinators math.parser math.vectors
math.intervals interval-maps memoize csv accessors assocs
strings math splitting grouping arrays ;
strings math splitting grouping arrays combinators.smart ;
IN: geo-ip
: db-path ( -- path ) "IpToCountry.csv" temp-file ;
@ -20,7 +20,8 @@ IN: geo-ip
TUPLE: ip-entry from to registry assigned city cntry country ;
: parse-ip-entry ( row -- ip-entry )
7 firstn {
[
{
[ string>number ]
[ string>number ]
[ ]
@ -28,7 +29,8 @@ TUPLE: ip-entry from to registry assigned city cntry country ;
[ ]
[ ]
[ ]
} spread ip-entry boa ;
} spread
] input<sequence ip-entry boa ;
MEMO: ip-db ( -- seq )
download-db ascii file-lines