Lot's of USING: fixes for ascii or unicode

diff --git a/core/parser/parser.factor b/core/parser/parser.factor
index 862b266d05e3f1ea5e97c5f72d4a6e664ad97208..6825029a8e104ef5ed69f3e9b9db4752c01fc5b8 100755 (executable)
--- a/core/parser/parser.factor
+++ b/core/parser/parser.factor
@@ -348,45 +348,49 @@ SYMBOL: bootstrap-syntax
         call
     ] with-scope ; inline
 
+SYMBOL: interactive-vocabs
+
+{
+    "arrays"
+    "assocs"
+    "combinators"
+    "compiler.errors"
+    "continuations"
+    "debugger"
+    "definitions"
+    "editors"
+    "generic"
+    "help"
+    "inspector"
+    "io"
+    "io.files"
+    "kernel"
+    "listener"
+    "math"
+    "memory"
+    "namespaces"
+    "prettyprint"
+    "sequences"
+    "slicing"
+    "sorting"
+    "strings"
+    "syntax"
+    "tools.annotations"
+    "tools.crossref"
+    "tools.memory"
+    "tools.profiler"
+    "tools.test"
+    "tools.time"
+    "vocabs"
+    "vocabs.loader"
+    "words"
+    "scratchpad"
+} interactive-vocabs set-global
+
 : with-interactive-vocabs ( quot -- )
     [
         "scratchpad" in set
-        {
-            "arrays"
-            "assocs"
-            "combinators"
-            "compiler.errors"
-            "continuations"
-            "debugger"
-            "definitions"
-            "editors"
-            "generic"
-            "help"
-            "inspector"
-            "io"
-            "io.files"
-            "kernel"
-            "listener"
-            "math"
-            "memory"
-            "namespaces"
-            "prettyprint"
-            "sequences"
-            "slicing"
-            "sorting"
-            "strings"
-            "syntax"
-            "tools.annotations"
-            "tools.crossref"
-            "tools.memory"
-            "tools.profiler"
-            "tools.test"
-            "tools.time"
-            "vocabs"
-            "vocabs.loader"
-            "words"
-            "scratchpad"
-        } set-use
+       interactive-vocabs get set-use
         call
     ] with-scope ; inline
 

diff --git a/extra/benchmark/knucleotide/knucleotide.factor b/extra/benchmark/knucleotide/knucleotide.factor
index f036a644aeae934f4daee1c950de99228808b784..ad1ffc1c5017e7952a01807a0dabc80d3cc8edfa 100644 (file)
--- a/extra/benchmark/knucleotide/knucleotide.factor
+++ b/extra/benchmark/knucleotide/knucleotide.factor
@@ -1,6 +1,6 @@
 USING: kernel io io.files splitting strings
        hashtables sequences assocs math namespaces prettyprint
-       math.parser combinators arrays sorting ;
+       math.parser combinators arrays sorting unicode.case ;
 
 IN: benchmark.knucleotide
 

diff --git a/extra/benchmark/reverse-complement/reverse-complement.factor b/extra/benchmark/reverse-complement/reverse-complement.factor
index 332489abedf7179a68226e6573f3cb1ba040e133..7b09b586f4fdb0928de1f3082ac6f87279ab852d 100644 (file)
--- a/extra/benchmark/reverse-complement/reverse-complement.factor
+++ b/extra/benchmark/reverse-complement/reverse-complement.factor
@@ -1,6 +1,6 @@
 USING: io io.files io.streams.duplex kernel sequences
 sequences.private strings vectors words memoize splitting
-hints ;
+hints unicode.case ;
 IN: benchmark.reverse-complement
 
 MEMO: trans-map ( -- str )

diff --git a/extra/cryptlib/cryptlib.factor b/extra/cryptlib/cryptlib.factor
index 65d2ffe48fc70da008ff6c6a256e989d07fd64bd..2ba81ef15a8fd188b5dab2797ac4785fc712b6b2 100644 (file)
--- a/extra/cryptlib/cryptlib.factor
+++ b/extra/cryptlib/cryptlib.factor
@@ -6,7 +6,7 @@
 ! Adapted from cryptlib.h
 ! Tested with cryptlib 3.3.1.0
 USING: cryptlib.libcl kernel hashtables alien math 
-namespaces sequences assocs libc alien.c-types continuations ;
+namespaces sequences assocs libc alien.c-types alien.accessors continuations ;
 
 IN: cryptlib
 

diff --git a/extra/fjsc/fjsc.factor b/extra/fjsc/fjsc.factor
index fdeed339d8b376c135fe27c113445dba966bddeb..6beb48e05e8867755194eac200a88941e1f540be 100755 (executable)
--- a/extra/fjsc/fjsc.factor
+++ b/extra/fjsc/fjsc.factor
@@ -2,7 +2,7 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: kernel peg strings promises sequences math math.parser
        namespaces words quotations arrays hashtables io
-       io.streams.string assocs memoize ;
+       io.streams.string assocs memoize ascii ;
 IN: fjsc
 
 TUPLE: ast-number value ;

diff --git a/extra/globs/globs.factor b/extra/globs/globs.factor
index 901191b51eebd3170eee44bbdbcd4219bd5d24de..7204693016cf8abd496a6c558f0bab172e9f735d 100755 (executable)
--- a/extra/globs/globs.factor
+++ b/extra/globs/globs.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2007 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: parser-combinators regexp lazy-lists sequences kernel
-promises strings ;
+promises strings unicode.case ;
 IN: globs
 
 <PRIVATE

diff --git a/extra/hexdump/hexdump.factor b/extra/hexdump/hexdump.factor
index 6a91cd65c593a6ad522a3cd0d9c095c8a548b0e5..4dcb55da32aa6517381a06672e1ed88f03724586 100644 (file)
--- a/extra/hexdump/hexdump.factor
+++ b/extra/hexdump/hexdump.factor
@@ -1,6 +1,6 @@
 USING: arrays combinators.lib io io.streams.string
-kernel math math.parser namespaces prettyprint
-sequences splitting strings ;
+       kernel math math.parser namespaces prettyprint
+       sequences splitting strings ascii ;
 IN: hexdump
 
 <PRIVATE

diff --git a/extra/id3/id3.factor b/extra/id3/id3.factor
index 1d76bb0a5bce6c33999554ce4dbc8259903ae623..895efc59dcbe8d9b66ef5aac1109fe9d81739589 100644 (file)
--- a/extra/id3/id3.factor
+++ b/extra/id3/id3.factor
@@ -4,7 +4,7 @@
 
 USING: arrays combinators io io.binary io.files io.paths
 io.utf16 kernel math math.parser namespaces sequences
-splitting strings assocs ;
+splitting strings assocs unicode.categories ;
 
 IN: id3
 

diff --git a/extra/irc/irc.factor b/extra/irc/irc.factor
index 74d8951d103226e26e02515af7c357aee899e191..5b4355986f3ea39a425e0d0a1887c3d3fedc4798 100755 (executable)
--- a/extra/irc/irc.factor
+++ b/extra/irc/irc.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2007 Doug Coleman, Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: arrays calendar io io.sockets kernel match namespaces
-sequences splitting strings continuations threads ;
+sequences splitting strings continuations threads ascii ;
 IN: irc
 
 ! "setup" objects

diff --git a/extra/json/reader/reader.factor b/extra/json/reader/reader.factor
index 0f774103e11d37a433e7e269a7367a88d432c71a..105989ab93039789204b410bcb37625d97fd4488 100644 (file)
--- a/extra/json/reader/reader.factor
+++ b/extra/json/reader/reader.factor
@@ -2,7 +2,7 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: kernel parser-combinators namespaces sequences promises strings 
        assocs math math.parser math.vectors math.functions
-       lazy-lists hashtables ;
+       lazy-lists hashtables ascii ;
 IN: json.reader
 
 ! Grammar for JSON from RFC 4627

diff --git a/extra/lint/lint.factor b/extra/lint/lint.factor
index 44b234b2540ba1fd2c820807c04005301991c9ba..a220eece01a42ed06cc28073f9085357ba33864c 100644 (file)
--- a/extra/lint/lint.factor
+++ b/extra/lint/lint.factor
@@ -1,9 +1,8 @@
 ! Copyright (C) 2007 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: alien arrays assocs combinators.lib io kernel
+USING: alien alien.accessors arrays assocs combinators.lib io kernel
 macros math namespaces prettyprint quotations sequences
-vectors vocabs words ;
-USING: html.elements slots.private tar ;
+vectors vocabs words html.elements slots.private tar ;
 IN: lint
 
 SYMBOL: def-hash

diff --git a/extra/parser-combinators/simple/simple.factor b/extra/parser-combinators/simple/simple.factor
index 3b59068dd6bb9f534446f3c85925582ed9bb4fda..763f823348f2a951d3fb0c35b13ae3d05763c98d 100755 (executable)
--- a/extra/parser-combinators/simple/simple.factor
+++ b/extra/parser-combinators/simple/simple.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2006 Chris Double.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: kernel strings math sequences lazy-lists words
-math.parser promises parser-combinators ;
+math.parser promises parser-combinators unicode.categories ;
 IN: parser-combinators.simple
 
 : 'digit' ( -- parser )

diff --git a/extra/peg/ebnf/ebnf.factor b/extra/peg/ebnf/ebnf.factor
index 5343bb513b03c4946f994441bcbeb2dbbfea62be..02be32d71faff12b3366de61d52cd22aa5f1783a 100644 (file)
--- a/extra/peg/ebnf/ebnf.factor
+++ b/extra/peg/ebnf/ebnf.factor
@@ -1,7 +1,8 @@
 ! Copyright (C) 2007 Chris Double.\r
 ! See http://factorcode.org/license.txt for BSD license.\r
 USING: kernel parser words arrays strings math.parser sequences \r
-       quotations vectors namespaces math assocs continuations peg ;\r
+       quotations vectors namespaces math assocs continuations peg\r
+       unicode.categories ;\r
 IN: peg.ebnf\r
 \r
 TUPLE: ebnf-non-terminal symbol ;\r

diff --git a/extra/peg/peg.factor b/extra/peg/peg.factor
index 3d9128fec98349b26c90c014f35939f66e86434b..41df8735e5a20cecbdf0e3ac6bd05ab5d9f08c94 100644 (file)
--- a/extra/peg/peg.factor
+++ b/extra/peg/peg.factor
@@ -1,7 +1,8 @@
 ! Copyright (C) 2007 Chris Double.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: kernel sequences strings namespaces math assocs shuffle 
-       vectors arrays combinators.lib memoize math.parser match ;
+       vectors arrays combinators.lib memoize math.parser match
+       unicode.categories ;
 IN: peg
 
 TUPLE: parse-result remaining ast ;

diff --git a/extra/project-euler/017/017.factor b/extra/project-euler/017/017.factor
index 296818db0709301174d2ab37bcb39b3dd7c771a9..f87e9937fed30bdc0fc6654136a5e55b443fdbd4 100644 (file)
--- a/extra/project-euler/017/017.factor
+++ b/extra/project-euler/017/017.factor
@@ -1,6 +1,7 @@
 ! Copyright (c) 2007 Aaron Schaefer.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: combinators.lib kernel math.ranges math.text.english sequences strings ;
+USING: combinators.lib kernel math.ranges math.text.english sequences strings
+       ascii ;
 IN: project-euler.017
 
 ! http://projecteuler.net/index.php?section=problems&id=17

diff --git a/extra/project-euler/022/022.factor b/extra/project-euler/022/022.factor
index b4910e5885fb4ef30c7be01f21f94d38b89a3ed6..e9b0b5fbcf78509698bc919a8671ef8482659086 100644 (file)
--- a/extra/project-euler/022/022.factor
+++ b/extra/project-euler/022/022.factor
@@ -1,7 +1,7 @@
 ! Copyright (c) 2007 Aaron Schaefer.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: io.files kernel math math.parser namespaces sequences sorting splitting
-    strings system vocabs ;
+    strings system vocabs ascii ;
 IN: project-euler.022
 
 ! http://projecteuler.net/index.php?section=problems&id=22

diff --git a/extra/prolog/prolog.factor b/extra/prolog/prolog.factor
index 580bfaf52e3d6b5c115178113bccd46a0a04ff76..ea55ac5bf5305f1434cfdbd27e1d283d0c63c238 100755 (executable)
--- a/extra/prolog/prolog.factor
+++ b/extra/prolog/prolog.factor
@@ -2,7 +2,7 @@
 ! See http://factorcode.org/license.txt for BSD license.
 
 USING: kernel sequences arrays vectors namespaces math strings
-    combinators continuations quotations io assocs ;
+    combinators continuations quotations io assocs ascii ;
 
 IN: prolog
 

diff --git a/extra/regexp/regexp.factor b/extra/regexp/regexp.factor
index c4b60e76e4d165e5baa294e5e6edd7fbeb4055cd..ef88e84f059e59ccf70c06c0bca743a9b8e8fdb8 100755 (executable)
--- a/extra/regexp/regexp.factor
+++ b/extra/regexp/regexp.factor
@@ -1,7 +1,7 @@
 USING: arrays combinators kernel lazy-lists math math.parser
 namespaces parser parser-combinators parser-combinators.simple
 promises quotations sequences combinators.lib strings
-assocs prettyprint.backend memoize ;
+assocs prettyprint.backend memoize unicode.case unicode.categories ;
 USE: io
 IN: regexp
 

diff --git a/extra/roman/roman.factor b/extra/roman/roman.factor
index 130dfb127d3352ffe6e5a5ce8dd8897e22facd21..7466883c5f6dfc4cba771c828ab84519bc4954c6 100644 (file)
--- a/extra/roman/roman.factor
+++ b/extra/roman/roman.factor
@@ -2,7 +2,7 @@
 ! See http://factorcode.org/license.txt for BSD license.
 
 USING: arrays assocs kernel math math.vectors namespaces
-quotations sequences sequences.lib sequences.private strings ;
+quotations sequences sequences.lib sequences.private strings unicode.case ;
 IN: roman
 
 <PRIVATE

diff --git a/extra/rot13/rot13.factor b/extra/rot13/rot13.factor
index 9849f4e645c20579a3e824d148ac4acca5399246..bf5105f334647ad6b48d4ced966532bcb59cd767 100644 (file)
--- a/extra/rot13/rot13.factor
+++ b/extra/rot13/rot13.factor
@@ -1,6 +1,6 @@
 ! Copyright (C) 2006 Daniel Ehrenberg
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel math sequences strings io combinators ;
+USING: kernel math sequences strings io combinators ascii ;
 IN: rot13
 
 : rotate ( ch base -- ch ) tuck - 13 + 26 mod + ;

diff --git a/extra/sequences/lib/lib.factor b/extra/sequences/lib/lib.factor
index e46ce3b107d0bf3316ee0ecf895ee99a634944c0..d784726754d5b707261cb8be98c654895e5be47b 100755 (executable)
--- a/extra/sequences/lib/lib.factor
+++ b/extra/sequences/lib/lib.factor
@@ -1,6 +1,6 @@
 USING: combinators.lib kernel sequences math namespaces assocs 
-random sequences.private shuffle math.functions mirrors ;
-USING: arrays math.parser sorting strings ;
+random sequences.private shuffle math.functions mirrors
+arrays math.parser sorting strings ascii ;
 IN: sequences.lib
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

diff --git a/extra/state-parser/state-parser.factor b/extra/state-parser/state-parser.factor
index c0e6318403774908f0ad49cd6498f471d56a7993..19a4af44cc1e5a006a5102442d209725c872ebdb 100644 (file)
--- a/extra/state-parser/state-parser.factor
+++ b/extra/state-parser/state-parser.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2005, 2006 Daniel Ehrenberg\r
 ! See http://factorcode.org/license.txt for BSD license.\r
 USING: io io.streams.string kernel math namespaces sequences\r
-strings circular prettyprint debugger ;\r
+strings circular prettyprint debugger unicode.categories ;\r
 IN: state-parser\r
 \r
 ! * Basic underlying words\r

diff --git a/extra/strings/lib/lib.factor b/extra/strings/lib/lib.factor
index 223fdb2090b12c476003a21b5897fe93c1dc7c33..719881b7685610b309c54862e1c1bb7844125e4c 100644 (file)
--- a/extra/strings/lib/lib.factor
+++ b/extra/strings/lib/lib.factor
@@ -1,14 +1,14 @@
 USING: math arrays sequences kernel splitting strings ;
 IN: strings.lib
 
-: char>digit ( c -- i ) 48 - ;
+! : char>digit ( c -- i ) 48 - ;
 
-: string>digits ( s -- seq ) [ char>digit ] { } map-as ;
+! : string>digits ( s -- seq ) [ char>digit ] { } map-as ;
 
-: >Upper ( str -- str )
-    dup empty? [
-        unclip ch>upper 1string swap append
-    ] unless ;
+! : >Upper ( str -- str )
+!     dup empty? [
+!         unclip ch>upper 1string swap append
+!     ] unless ;
 
-: >Upper-dashes ( str -- str )
-    "-" split [ >Upper ] map "-" join ;
+! : >Upper-dashes ( str -- str )
+!     "-" split [ >Upper ] map "-" join ;

diff --git a/extra/xml/tokenize/tokenize.factor b/extra/xml/tokenize/tokenize.factor
index 85a473f503f9a1a59d3eb22cf0bebdf3e7d7dfb5..d99c306b2bd531680b8f7519c6b21e2265e5049f 100644 (file)
--- a/extra/xml/tokenize/tokenize.factor
+++ b/extra/xml/tokenize/tokenize.factor
@@ -2,7 +2,7 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: xml.errors xml.data xml.utilities xml.char-classes
 xml.entities kernel state-parser kernel namespaces strings math
-math.parser sequences assocs arrays splitting combinators ;
+math.parser sequences assocs arrays splitting combinators unicode.case ;
 IN: xml.tokenize
 
 ! XML namespace processing: ns = namespace

diff --git a/extra/xml/xml.factor b/extra/xml/xml.factor
index 826b16b21386b1f73701c5326dae8d53597d814d..65a8e28dead8ffbd7d2bfb1225336cacaac2b792 100644 (file)
--- a/extra/xml/xml.factor
+++ b/extra/xml/xml.factor
@@ -3,7 +3,7 @@
 USING: io io.streams.string io.files kernel math namespaces
 prettyprint sequences arrays generic strings vectors
 xml.char-classes xml.data xml.errors xml.tokenize xml.writer
-xml.utilities state-parser assocs ;
+xml.utilities state-parser assocs unicode.categories ;
 IN: xml
 
 !   -- Overall parser with data tree

diff --git a/extra/xmode/keyword-map/keyword-map.factor b/extra/xmode/keyword-map/keyword-map.factor
index 350d8572a0a002804329bc07daee74d69bda611b..4e97e597b28a14cebf466e3c45ad9aa652d84d7a 100644 (file)
--- a/extra/xmode/keyword-map/keyword-map.factor
+++ b/extra/xmode/keyword-map/keyword-map.factor
@@ -1,4 +1,5 @@
-USING: kernel strings assocs sequences hashtables sorting ;
+USING: kernel strings assocs sequences hashtables sorting
+       unicode.case unicode.categories ;
 IN: xmode.keyword-map
 
 ! Based on org.gjt.sp.jedit.syntax.KeywordMap

diff --git a/extra/xmode/marker/marker.factor b/extra/xmode/marker/marker.factor
index b8331fe6b6bead84a1722deebd53b3354d707ae9..91ccd43907affbda8e222ef0357e6cd1b23f6386 100755 (executable)
--- a/extra/xmode/marker/marker.factor
+++ b/extra/xmode/marker/marker.factor
@@ -2,7 +2,7 @@ IN: xmode.marker
 USING: kernel namespaces xmode.rules xmode.tokens
 xmode.marker.state xmode.marker.context xmode.utilities
 xmode.catalog sequences math assocs combinators combinators.lib
-strings regexp splitting parser-combinators ;
+strings regexp splitting parser-combinators ascii unicode.case ;
 
 ! Based on org.gjt.sp.jedit.syntax.TokenMarker
 

diff --git a/extra/xmode/rules/rules.factor b/extra/xmode/rules/rules.factor
index acc6308c6fed88ebf39732960dbd229a4d8236b7..28237a7b2c7cef6f5e04d7a4a10f32cb8a42920a 100755 (executable)
--- a/extra/xmode/rules/rules.factor
+++ b/extra/xmode/rules/rules.factor
@@ -1,5 +1,5 @@
 USING: xmode.tokens xmode.keyword-map kernel
-sequences vectors assocs strings memoize regexp ;
+sequences vectors assocs strings memoize regexp unicode.case ;
 IN: xmode.rules
 
 TUPLE: string-matcher string ignore-case? ;