core: cleanup USING lists.
parent
5751f6d309
commit
5487480126
|
@ -1,9 +1,9 @@
|
|||
! Copyright (C) 2008, 2011 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: arrays sequences kernel kernel.private accessors math
|
||||
alien.accessors byte-arrays io io.encodings io.encodings.utf8
|
||||
io.encodings.utf16n io.streams.byte-array io.streams.memory system
|
||||
system.private alien strings combinators namespaces init ;
|
||||
USING: accessors alien arrays byte-arrays init io io.encodings
|
||||
io.encodings.utf16n io.encodings.utf8 io.streams.byte-array
|
||||
io.streams.memory kernel kernel.private namespaces sequences
|
||||
strings system system.private ;
|
||||
IN: alien.strings
|
||||
|
||||
GENERIC# alien>string 1 ( c-ptr encoding -- string/f )
|
||||
|
|
|
@ -1,9 +1,7 @@
|
|||
! Copyright (C) 2007, 2009 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: namespaces math words kernel alien byte-arrays
|
||||
hashtables vectors strings sbufs arrays
|
||||
quotations assocs layouts classes.tuple.private
|
||||
kernel.private ;
|
||||
USING: alien arrays byte-arrays kernel layouts math namespaces
|
||||
quotations strings words ;
|
||||
|
||||
16 data-alignment set
|
||||
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
! Copyright (C) 2007, 2009 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: accessors kernel kernel.private alien.accessors sequences
|
||||
sequences.private math ;
|
||||
USING: accessors alien.accessors kernel math sequences
|
||||
sequences.private ;
|
||||
IN: byte-arrays
|
||||
|
||||
M: byte-array clone (clone) ; inline
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
! Copyright (C) 2008 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: arrays kernel kernel.private math sequences
|
||||
sequences.private growable byte-arrays accessors ;
|
||||
USING: accessors byte-arrays growable kernel math sequences
|
||||
sequences.private ;
|
||||
IN: byte-vectors
|
||||
|
||||
TUPLE: byte-vector
|
||||
|
|
|
@ -1,8 +1,7 @@
|
|||
! Copyright (C) 2006 Doug Coleman
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: kernel math sequences sequences.private namespaces
|
||||
words io io.binary io.files quotations
|
||||
definitions checksums ;
|
||||
USING: checksums io.binary kernel math sequences
|
||||
sequences.private ;
|
||||
IN: checksums.crc32
|
||||
|
||||
CONSTANT: crc32-polynomial 0xedb88320
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
! Copyright (C) 2007, 2010 Doug Coleman, Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: accessors continuations kernel namespaces make
|
||||
sequences vectors sets assocs init math ;
|
||||
USING: accessors assocs continuations init kernel make
|
||||
namespaces sequences sets ;
|
||||
FROM: namespaces => set ;
|
||||
IN: destructors
|
||||
|
||||
|
|
|
@ -1,8 +1,7 @@
|
|||
! Copyright (C) 2006, 2010 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: kernel math math.parser math.order namespaces make
|
||||
sequences strings words assocs combinators accessors arrays
|
||||
quotations classes.algebra classes ;
|
||||
USING: accessors arrays classes combinators kernel make math
|
||||
math.order math.parser sequences strings words ;
|
||||
IN: effects
|
||||
|
||||
TUPLE: effect
|
||||
|
|
|
@ -1,6 +1,6 @@
|
|||
! Copyright (C) 2006, 2007 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: assocs kernel namespaces sequences sets ;
|
||||
USING: assocs kernel sequences sets ;
|
||||
IN: graphs
|
||||
|
||||
<PRIVATE
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
! Copyright (C) 2005, 2009 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: accessors kernel kernel.private math math.private
|
||||
sequences sequences.private ;
|
||||
USING: accessors kernel math math.private sequences
|
||||
sequences.private ;
|
||||
IN: growable
|
||||
|
||||
MIXIN: growable
|
||||
|
|
|
@ -1,8 +1,7 @@
|
|||
! Copyright (C) 2010 Daniel Ehrenberg
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: accessors assocs hashtables kernel sets sets.private
|
||||
sequences parser ;
|
||||
|
||||
USING: accessors assocs hashtables kernel sequences sets
|
||||
sets.private ;
|
||||
IN: hash-sets
|
||||
|
||||
! In a better implementation, less memory would be used
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
! Copyright (C) 2005, 2011 John Benediktsson, Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: accessors arrays kernel kernel.private slots.private math
|
||||
assocs math.private sequences sequences.private vectors ;
|
||||
USING: accessors arrays assocs kernel kernel.private math
|
||||
math.private sequences sequences.private slots.private vectors ;
|
||||
IN: hashtables
|
||||
|
||||
TUPLE: hashtable
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
! Copyright (C) 2004, 2009 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: continuations continuations.private kernel
|
||||
kernel.private sequences assocs namespaces namespaces.private ;
|
||||
USING: assocs continuations continuations.private kernel
|
||||
kernel.private namespaces ;
|
||||
IN: init
|
||||
|
||||
SYMBOL: startup-hooks
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
! Copyright (C) 2007, 2009 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: init kernel system namespaces io io.encodings
|
||||
io.encodings.utf8 assocs splitting alien ;
|
||||
USING: assocs init io io.encodings io.encodings.utf8 kernel
|
||||
namespaces system ;
|
||||
IN: io.backend
|
||||
|
||||
SYMBOL: io-backend
|
||||
|
|
|
@ -1,8 +1,8 @@
|
|||
! Copyright (C) 2004, 2009 Slava Pestov, Daniel Ehrenberg.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: kernel kernel.private sequences init namespaces system io
|
||||
io.encodings.utf8 io.backend io.pathnames io.encodings io.files.private
|
||||
alien.strings splitting ;
|
||||
USING: alien.strings init io io.backend io.encodings
|
||||
io.encodings.utf8 io.files.private io.pathnames kernel
|
||||
kernel.private namespaces sequences splitting system ;
|
||||
IN: io.files
|
||||
|
||||
MIXIN: file-reader
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
! Copyright (C) 2003, 2010 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: combinators destructors kernel kernel.private math
|
||||
namespaces sequences sequences.private ;
|
||||
USING: destructors kernel kernel.private math namespaces
|
||||
sequences sequences.private ;
|
||||
IN: io
|
||||
|
||||
SYMBOLS: +byte+ +character+ ;
|
||||
|
|
|
@ -1,8 +1,8 @@
|
|||
! Copyright (C) 2008, 2009 Daniel Ehrenberg
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: accessors byte-arrays byte-vectors destructors io
|
||||
io.encodings io.private io.streams.sequence kernel namespaces
|
||||
sequences sequences.private ;
|
||||
io.encodings io.streams.sequence kernel namespaces sequences
|
||||
sequences.private ;
|
||||
IN: io.streams.byte-array
|
||||
|
||||
INSTANCE: byte-vector output-stream
|
||||
|
|
|
@ -1,9 +1,8 @@
|
|||
! Copyright (C) 2004, 2010 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: alien alien.strings kernel kernel.private namespaces make
|
||||
io io.encodings sequences math generic threads.private classes
|
||||
io.backend io.files io.encodings.utf8 continuations destructors
|
||||
byte-arrays accessors combinators ;
|
||||
USING: accessors alien alien.strings byte-arrays destructors io
|
||||
io.backend io.encodings.utf8 io.files kernel kernel.private
|
||||
make math sequences threads.private ;
|
||||
IN: io.streams.c
|
||||
|
||||
TUPLE: c-stream < disposable handle ;
|
||||
|
|
|
@ -1,6 +1,6 @@
|
|||
! Copyright (C) 2008 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: kernel accessors alien alien.accessors math io ;
|
||||
USING: accessors alien alien.accessors io kernel ;
|
||||
IN: io.streams.memory
|
||||
|
||||
TUPLE: memory-stream alien ;
|
||||
|
|
|
@ -6,4 +6,4 @@ IN: io.streams.plain
|
|||
MIXIN: plain-writer
|
||||
|
||||
M: plain-writer stream-nl
|
||||
CHAR: \n swap stream-write1 ;
|
||||
CHAR: \n swap stream-write1 ;
|
||||
|
|
|
@ -1,7 +1,8 @@
|
|||
! Copyright (C) 2009 Daniel Ehrenberg
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: sequences io io.streams.plain kernel accessors math math.order
|
||||
growable destructors combinators sequences.private io.private ;
|
||||
USING: accessors combinators destructors growable io io.private
|
||||
io.streams.plain kernel math math.order sequences
|
||||
sequences.private ;
|
||||
IN: io.streams.sequence
|
||||
|
||||
! Readers
|
||||
|
|
|
@ -1,7 +1,6 @@
|
|||
! Copyright (C) 2007, 2009 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: namespaces math words kernel assocs classes
|
||||
math.order kernel.private sequences sequences.private ;
|
||||
USING: assocs kernel kernel.private math math.order namespaces ;
|
||||
IN: layouts
|
||||
|
||||
SYMBOL: data-alignment
|
||||
|
|
|
@ -1,8 +1,8 @@
|
|||
! Copyright (C) 2008, 2010 Slava Pestov, Joe Groff.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: kernel sequences accessors namespaces math words strings
|
||||
io vectors arrays math.parser combinators continuations
|
||||
source-files.errors ;
|
||||
USING: accessors arrays combinators continuations io kernel
|
||||
math math.parser namespaces sequences source-files.errors
|
||||
strings vectors ;
|
||||
IN: lexer
|
||||
|
||||
TUPLE: lexer
|
||||
|
|
|
@ -1,8 +1,8 @@
|
|||
! Copyright (C) 2004, 2010 Slava Pestov.
|
||||
! Copyright (C) 2008, Doug Coleman.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: kernel kernel.private sequences sequences.private math
|
||||
math.private math.order combinators ;
|
||||
USING: combinators kernel kernel.private math math.order
|
||||
math.private ;
|
||||
IN: math.integers.private
|
||||
|
||||
: fixnum-min ( x y -- z ) [ fixnum< ] most ; foldable
|
||||
|
|
|
@ -1,11 +1,10 @@
|
|||
! Copyright (C) 2005, 2010 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: arrays definitions generic assocs kernel math namespaces
|
||||
sequences strings vectors words words.symbol quotations io
|
||||
combinators sorting splitting math.parser effects continuations
|
||||
io.files vocabs io.encodings.utf8 source-files classes
|
||||
hashtables compiler.units accessors sets lexer vocabs.parser
|
||||
slots parser.notes classes.algebra ;
|
||||
USING: accessors arrays assocs classes combinators
|
||||
compiler.units continuations definitions effects io
|
||||
io.encodings.utf8 io.files kernel lexer math.parser namespaces
|
||||
parser.notes quotations sequences slots source-files vectors
|
||||
vocabs vocabs.parser words words.symbol ;
|
||||
IN: parser
|
||||
|
||||
: location ( -- loc )
|
||||
|
|
|
@ -1,8 +1,7 @@
|
|||
! Copyright (C) 2006, 2008 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: accessors arrays sequences sequences.private
|
||||
kernel kernel.private math assocs quotations.private
|
||||
slots.private ;
|
||||
USING: accessors arrays kernel kernel.private math sequences
|
||||
sequences.private slots.private ;
|
||||
IN: quotations
|
||||
|
||||
<PRIVATE
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
! Copyright (C) 2004, 2008 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: accessors kernel math sequences.private sequences
|
||||
strings growable strings.private ;
|
||||
USING: accessors growable kernel math sequences
|
||||
sequences.private strings strings.private ;
|
||||
IN: sbufs
|
||||
|
||||
TUPLE: sbuf
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
! Copyright (C) 2005, 2009 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: accessors arrays assocs kernel math vectors math.order
|
||||
sequences sequences.private ;
|
||||
USING: accessors arrays assocs kernel math math.order sequences
|
||||
sequences.private vectors ;
|
||||
IN: sorting
|
||||
|
||||
! Optimized merge-sort:
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
! Copyright (C) 2009 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: accessors assocs kernel math.order sorting sequences definitions
|
||||
namespaces arrays splitting io math.parser math init continuations ;
|
||||
USING: accessors assocs continuations definitions init io
|
||||
kernel math math.parser namespaces sequences sorting ;
|
||||
IN: source-files.errors
|
||||
|
||||
GENERIC: error-file ( error -- file )
|
||||
|
|
|
@ -1,10 +1,9 @@
|
|||
! Copyright (C) 2007, 2009 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: arrays definitions generic assocs kernel math namespaces
|
||||
sequences strings vectors words quotations io io.files
|
||||
io.pathnames combinators sorting splitting math.parser effects
|
||||
continuations checksums checksums.crc32 vocabs hashtables
|
||||
compiler.units io.encodings.utf8 accessors source-files.errors ;
|
||||
USING: accessors arrays assocs checksums checksums.crc32
|
||||
compiler.units continuations definitions io.encodings.utf8
|
||||
io.files io.pathnames kernel namespaces sequences
|
||||
source-files.errors strings words ;
|
||||
IN: source-files
|
||||
|
||||
SYMBOL: source-files
|
||||
|
|
|
@ -1,6 +1,6 @@
|
|||
! Copyright (C) 2005, 2009 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: arrays kernel make math sequences sets strings ;
|
||||
USING: arrays kernel make math sequences strings ;
|
||||
IN: splitting
|
||||
|
||||
<PRIVATE
|
||||
|
|
|
@ -1,8 +1,7 @@
|
|||
! Copyright (C) 2008, 2009 Slava Pestov, Doug Coleman.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: accessors arrays assocs combinators kernel lexer make
|
||||
math math.order math.parser namespaces parser sequences
|
||||
splitting strings ;
|
||||
math math.parser namespaces sequences splitting strings ;
|
||||
IN: strings.parser
|
||||
|
||||
ERROR: bad-escape char ;
|
||||
|
|
|
@ -1,7 +1,8 @@
|
|||
! Copyright (C) 2003, 2010 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: accessors alien.accessors byte-arrays kernel math.private
|
||||
sequences kernel.private math sequences.private slots.private ;
|
||||
USING: accessors alien.accessors byte-arrays kernel
|
||||
kernel.private math math.private sequences sequences.private
|
||||
slots.private ;
|
||||
IN: strings
|
||||
|
||||
<PRIVATE
|
||||
|
|
|
@ -1,15 +1,15 @@
|
|||
! Copyright (C) 2004, 2010 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: accessors alien arrays byte-arrays byte-vectors definitions generic
|
||||
hashtables kernel math namespaces parser lexer sequences strings
|
||||
strings.parser sbufs vectors words words.symbol words.constant
|
||||
words.alias quotations io assocs splitting classes.tuple
|
||||
generic.standard generic.hook generic.math generic.parser classes
|
||||
io.pathnames vocabs vocabs.parser classes.parser classes.union
|
||||
classes.intersection classes.mixin classes.predicate
|
||||
classes.singleton classes.tuple.parser compiler.units classes.maybe
|
||||
combinators effects.parser slots hash-sets source-files
|
||||
classes.algebra.private ;
|
||||
USING: accessors arrays byte-arrays byte-vectors
|
||||
classes.algebra.private classes.intersection classes.maybe
|
||||
classes.mixin classes.parser classes.predicate
|
||||
classes.singleton classes.tuple classes.tuple.parser
|
||||
classes.union combinators compiler.units definitions
|
||||
effects.parser generic generic.hook generic.math generic.parser
|
||||
generic.standard hash-sets hashtables io.pathnames kernel lexer
|
||||
math namespaces parser quotations sbufs sequences slots
|
||||
source-files splitting strings strings.parser vectors
|
||||
vocabs.parser words words.alias words.constant words.symbol ;
|
||||
IN: bootstrap.syntax
|
||||
|
||||
! These words are defined as a top-level form, instead of with
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
! Copyright (C) 2004, 2008 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: arrays kernel math sequences sequences.private growable
|
||||
accessors ;
|
||||
USING: accessors arrays growable kernel math sequences
|
||||
sequences.private ;
|
||||
IN: vectors
|
||||
|
||||
TUPLE: vector
|
||||
|
|
|
@ -1,10 +1,9 @@
|
|||
! Copyright (C) 2007, 2010 Daniel Ehrenberg, Bruno Deferrari,
|
||||
! Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: assocs hashtables kernel namespaces sequences
|
||||
sets strings vocabs sorting accessors arrays compiler.units
|
||||
combinators vectors splitting continuations math words
|
||||
parser.notes ;
|
||||
USING: accessors arrays assocs combinators compiler.units
|
||||
continuations hashtables kernel math namespaces parser.notes
|
||||
sequences sets sorting splitting vectors vocabs words ;
|
||||
IN: vocabs.parser
|
||||
|
||||
ERROR: no-word-error name ;
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
! Copyright (C) 2007, 2009 Eduardo Cavazos, Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: accessors assocs definitions kernel namespaces sequences
|
||||
sets sorting splitting strings ;
|
||||
sorting splitting strings ;
|
||||
IN: vocabs
|
||||
|
||||
SYMBOL: dictionary
|
||||
|
|
|
@ -1,6 +1,7 @@
|
|||
! Copyright (C) 2008 Doug Coleman.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: quotations effects accessors sequences words kernel definitions ;
|
||||
USING: accessors definitions effects kernel quotations
|
||||
sequences words ;
|
||||
IN: words.alias
|
||||
|
||||
PREDICATE: alias < word "alias" word-prop ;
|
||||
|
@ -14,4 +15,4 @@ M: alias reset-word
|
|||
|
||||
M: alias definer drop \ ALIAS: f ;
|
||||
|
||||
M: alias definition def>> first 1quotation ;
|
||||
M: alias definition def>> first 1quotation ;
|
||||
|
|
|
@ -1,6 +1,6 @@
|
|||
! Copyright (C) 2008, 2009 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: accessors kernel sequences words definitions quotations ;
|
||||
USING: definitions kernel quotations words ;
|
||||
IN: words.constant
|
||||
|
||||
PREDICATE: constant < word "constant" word-prop >boolean ;
|
||||
|
|
|
@ -1,6 +1,6 @@
|
|||
! Copyright (C) 2008 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: kernel sequences accessors definitions words ;
|
||||
USING: accessors definitions kernel sequences words ;
|
||||
IN: words.symbol
|
||||
|
||||
PREDICATE: symbol < word
|
||||
|
|
|
@ -1,9 +1,8 @@
|
|||
! Copyright (C) 2004, 2010 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: accessors arrays definitions kernel kernel.private
|
||||
slots.private math namespaces sequences strings vectors sbufs
|
||||
quotations assocs hashtables sorting vocabs math.order sets
|
||||
words.private ;
|
||||
USING: accessors arrays assocs definitions hashtables kernel
|
||||
kernel.private math math.order namespaces quotations sequences
|
||||
slots.private strings vocabs ;
|
||||
FROM: assocs => change-at ;
|
||||
IN: words
|
||||
|
||||
|
|
Loading…
Reference in New Issue