From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Sat, 2 Feb 2008 00:26:32 +0000 (-0600)
Subject: Lot's of USING: fixes for ascii or unicode
X-Git-Tag: 0.94~2900^2~47^2~4^2
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=bff385269c6eb9ce50f2188cf8ecc424b37a3346

Lot's of USING: fixes for ascii or unicode
---

diff --git a/core/parser/parser.factor b/core/parser/parser.factor
index 862b266d05..6825029a8e 100755
--- 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 f036a644ae..ad1ffc1c50 100644
--- 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 332489abed..7b09b586f4 100644
--- 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 65d2ffe48f..2ba81ef15a 100644
--- 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 fdeed339d8..6beb48e05e 100755
--- 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 901191b51e..7204693016 100755
--- 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 6a91cd65c5..4dcb55da32 100644
--- 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 1d76bb0a5b..895efc59dc 100644
--- 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 74d8951d10..5b4355986f 100755
--- 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 0f774103e1..105989ab93 100644
--- 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 44b234b254..a220eece01 100644
--- 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 3b59068dd6..763f823348 100755
--- 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 5343bb513b..02be32d71f 100644
--- a/extra/peg/ebnf/ebnf.factor
+++ b/extra/peg/ebnf/ebnf.factor
@@ -1,7 +1,8 @@
 ! Copyright (C) 2007 Chris Double.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: kernel parser words arrays strings math.parser sequences 
-       quotations vectors namespaces math assocs continuations peg ;
+       quotations vectors namespaces math assocs continuations peg
+       unicode.categories ;
 IN: peg.ebnf
 
 TUPLE: ebnf-non-terminal symbol ;
diff --git a/extra/peg/peg.factor b/extra/peg/peg.factor
index 3d9128fec9..41df8735e5 100644
--- 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 296818db07..f87e9937fe 100644
--- 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 b4910e5885..e9b0b5fbcf 100644
--- 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 580bfaf52e..ea55ac5bf5 100755
--- 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 c4b60e76e4..ef88e84f05 100755
--- 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 130dfb127d..7466883c5f 100644
--- 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 9849f4e645..bf5105f334 100644
--- 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 e46ce3b107..d784726754 100755
--- 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 c0e6318403..19a4af44cc 100644
--- a/extra/state-parser/state-parser.factor
+++ b/extra/state-parser/state-parser.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2005, 2006 Daniel Ehrenberg
 ! See http://factorcode.org/license.txt for BSD license.
 USING: io io.streams.string kernel math namespaces sequences
-strings circular prettyprint debugger ;
+strings circular prettyprint debugger unicode.categories ;
 IN: state-parser
 
 ! * Basic underlying words
diff --git a/extra/strings/lib/lib.factor b/extra/strings/lib/lib.factor
index 223fdb2090..719881b768 100644
--- 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 85a473f503..d99c306b2b 100644
--- 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 826b16b213..65a8e28dea 100644
--- 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 350d8572a0..4e97e597b2 100644
--- 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 b8331fe6b6..91ccd43907 100755
--- 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 acc6308c6f..28237a7b2c 100755
--- 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? ;