! 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 )
! 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
! 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
! Copyright (C) 2008 Slava Pestov.\r
! See http://factorcode.org/license.txt for BSD license.\r
-USING: arrays kernel kernel.private math sequences\r
-sequences.private growable byte-arrays accessors ;\r
+USING: accessors byte-arrays growable kernel math sequences\r
+sequences.private ;\r
IN: byte-vectors\r
\r
TUPLE: byte-vector\r
! 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
! 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
! 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
! 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
! 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
! 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
! 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
! 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
! 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
! 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
! 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+ ;
! 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
! 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 ;
! 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 ;
MIXIN: plain-writer
M: plain-writer stream-nl
- CHAR: \n swap stream-write1 ;
\ No newline at end of file
+ CHAR: \n swap stream-write1 ;
! 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
! 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
! 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
! 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
! 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 )
! 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
! 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
! 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:
! 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 )
! 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
! 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
! 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 ;
! 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
! 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
! 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
! 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 ;
! 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
! 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 ;
M: alias definer drop \ ALIAS: f ;
-M: alias definition def>> first 1quotation ;
\ No newline at end of file
+M: alias definition def>> first 1quotation ;
! 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 ;
! 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
! 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