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

geo-ip: change to use ip-parser for ipv4 lookup.

db4
John Benediktsson 2014-02-09 11:00:38 -08:00
parent dcf1e6b9f3
commit c2c89152e3
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,9 +1,9 @@
! Copyright (C) 2008 Slava Pestov. ! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs combinators combinators.smart USING: accessors arrays assocs combinators combinators.smart csv
csv grouping http.client interval-maps io.encodings.ascii grouping http.client interval-maps io.encodings.ascii io.files
io.files io.files.temp io.launcher io.pathnames kernel math io.files.temp io.launcher io.pathnames ip-parser kernel math
math.parser math.vectors memoize sequences splitting strings ; math.parser memoize sequences strings ;
IN: geo-ip IN: geo-ip
: db-path ( -- path ) "IpToCountry.csv" cache-file ; : db-path ( -- path ) "IpToCountry.csv" cache-file ;
@ -47,9 +47,6 @@ MEMO: ip-intervals ( -- interval-map )
GENERIC: lookup-ip ( ip -- ip-entry ) GENERIC: lookup-ip ( ip -- ip-entry )
M: string lookup-ip M: string lookup-ip ipv4-aton lookup-ip ;
"." split [ string>number ] map
{ 0x1000000 0x10000 0x100 0x1 } v.
lookup-ip ;
M: integer lookup-ip ip-intervals interval-at ; M: integer lookup-ip ip-intervals interval-at ;