From 191ac9efb8a3b5b1de99dc03334b239dcb2e1876 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Tue, 29 Apr 2008 20:44:07 -0500 Subject: [PATCH] USA cities database added --- extra/symbols/symbols.factor | 7 ++++++- extra/usa-cities/usa-cities.factor | 4 +++- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/extra/symbols/symbols.factor b/extra/symbols/symbols.factor index f6254f19de..50733a620e 100755 --- a/extra/symbols/symbols.factor +++ b/extra/symbols/symbols.factor @@ -1,9 +1,14 @@ ! Copyright (C) 2008 Doug Coleman. ! See http://factorcode.org/license.txt for BSD license. -USING: parser sequences words kernel ; +USING: parser sequences words kernel classes.singleton ; IN: symbols : SYMBOLS: ";" parse-tokens [ create-in dup reset-generic define-symbol ] each ; parsing + +: SINGLETONS: + ";" parse-tokens + [ create-class-in dup save-location define-singleton-class ] each ; + parsing diff --git a/extra/usa-cities/usa-cities.factor b/extra/usa-cities/usa-cities.factor index c74673607b..b82d058009 100644 --- a/extra/usa-cities/usa-cities.factor +++ b/extra/usa-cities/usa-cities.factor @@ -1,7 +1,9 @@ +! Copyright (C) 2008 Slava Pestov. +! See http://factorcode.org/license.txt for BSD license. USING: io.files io.encodings.ascii sequences sequences.lib math.parser combinators kernel memoize csv symbols inspector words accessors math.order sorting ; -IN: zip-codes +IN: usa-cities SINGLETONS: AK AL AR AS AZ CA CO CT DC DE FL GA HI IA ID IL IN KS KY LA MA MD ME MI MN MO MS MT NC ND NE NH NJ NM NV NY OH OK