OK, now everything should load

db4
Daniel Ehrenberg 2008-02-21 18:05:04 -06:00
parent fb9d7b05cd
commit 8249ce2116
21 changed files with 25 additions and 33 deletions

View File

@ -4,7 +4,7 @@ USING: bit-arrays byte-arrays float-arrays arrays
generator.registers assocs kernel kernel.private libc math generator.registers assocs kernel kernel.private libc math
namespaces parser sequences strings words assocs splitting namespaces parser sequences strings words assocs splitting
math.parser cpu.architecture alien alien.accessors quotations math.parser cpu.architecture alien alien.accessors quotations
system compiler.units io.encodings.binary ; system compiler.units io.files io.encodings.binary ;
IN: alien.c-types IN: alien.c-types
DEFER: <int> DEFER: <int>

View File

@ -90,7 +90,7 @@ TUPLE: decoded code cr ;
M: decoded stream-read M: decoded stream-read
tuck { delegate decoded-code } get-slots decode-read fix-read ; tuck { delegate decoded-code } get-slots decode-read fix-read ;
M: decoded stream-read-partial tuck stream-read fix-read ; M: decoded stream-read-partial stream-read ;
: read-until-loop ( stream delim -- ch ) : read-until-loop ( stream delim -- ch )
! Copied from { c-reader stream-read-until }!!! ! Copied from { c-reader stream-read-until }!!!
@ -113,7 +113,8 @@ M: decoded stream-read-until
] [ nip ] if ] [ nip ] if
] [ nip ] if ; ] [ nip ] if ;
M: decoded stream-read1 1 swap stream-read ; M: decoded stream-read1
1 swap stream-read [ first ] [ f ] if* ;
M: decoded stream-readln ( stream -- str ) M: decoded stream-readln ( stream -- str )
"\r\n" over stream-read-until handle-readln ; "\r\n" over stream-read-until handle-readln ;

View File

@ -3,14 +3,14 @@ sequences io namespaces ;
IN: io.streams.byte-array IN: io.streams.byte-array
: <byte-writer> ( encoding -- stream ) : <byte-writer> ( encoding -- stream )
512 <byte-vector> swap <encoding> ; 512 <byte-vector> swap <encoded> ;
: with-byte-writer ( encoding quot -- byte-array ) : with-byte-writer ( encoding quot -- byte-array )
>r <byte-writer> r> [ stdio get ] compose with-stream* >r <byte-writer> r> [ stdio get ] compose with-stream*
>byte-array ; inline >byte-array ; inline
: <byte-reader> ( byte-array encoding -- stream ) : <byte-reader> ( byte-array encoding -- stream )
>r >byte-vector dup reverse-here r> <decoding> ; >r >byte-vector dup reverse-here r> <decoded> ;
: with-byte-reader ( byte-array encoding quot -- ) : with-byte-reader ( byte-array encoding quot -- )
>r <byte-reader> r> with-stream ; inline >r <byte-reader> r> with-stream ; inline

View File

@ -33,7 +33,7 @@ HELP: <c-writer> ( out -- stream )
HELP: <duplex-c-stream> HELP: <duplex-c-stream>
{ $values { "in" "a C FILE* handle" } { "out" "a C FILE* handle" } { "stream" "a new stream" } } { $values { "in" "a C FILE* handle" } { "out" "a C FILE* handle" } { "stream" "a new stream" } }
{ $description "Creates a stream which reads and writes data by calling C standard library functions, wrapping the input portion in a " { $link line-reader } " and the output portion in a " { $link plain-writer } "." } ; { $description "Creates a duplex stream which reads and writes data by calling C standard library functions." } ;
HELP: fopen ( path mode -- alien ) HELP: fopen ( path mode -- alien )
{ $values { "path" "a pathname string" } { "mode" "an access mode specifier" } { "alien" "a C FILE* handle" } } { $values { "path" "a pathname string" } { "mode" "an access mode specifier" } { "alien" "a C FILE* handle" } }

View File

@ -14,7 +14,7 @@ M: c-writer stream-write1
>r 1string r> stream-write ; >r 1string r> stream-write ;
M: c-writer stream-write M: c-writer stream-write
c-writer-handle fwrite ; >r >string r> c-writer-handle fwrite ;
M: c-writer stream-flush M: c-writer stream-flush
c-writer-handle fflush ; c-writer-handle fflush ;

View File

@ -8,17 +8,10 @@ ARTICLE: "io.streams.plain" "Plain writer streams"
{ $link make-span-stream } ", " { $link make-span-stream } ", "
{ $link make-block-stream } " and " { $link make-block-stream } " and "
{ $link make-cell-stream } "." { $link make-cell-stream } "."
{ $subsection plain-writer } { $subsection plain-writer } ;
{ $subsection <plain-writer> } ;
ABOUT: "io.streams.plain" ABOUT: "io.streams.plain"
HELP: plain-writer HELP: plain-writer
{ $class-description "An output stream which delegates to an underlying stream while providing an implementation of the extended stream output protocol in a trivial way. Plain writers are created by calling " { $link <plain-writer> } "." } { $class-description "An output stream mixin providing an implementation of the extended stream output protocol in a trivial way." }
{ $see-also "stream-protocol" } ;
HELP: <plain-writer>
{ $values { "stream" "an input stream" } { "new-stream" "an input stream" } }
{ $description "Creates a new " { $link plain-writer } "." }
{ $notes "Stream constructors should call this word to wrap streams that do not natively support the extended stream output protocol." }
{ $see-also "stream-protocol" } ; { $see-also "stream-protocol" } ;

View File

@ -1,7 +1,7 @@
! Copyright (C) 2003, 2008 Slava Pestov. ! Copyright (C) 2003, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays hashtables io kernel math memory namespaces USING: arrays hashtables io kernel math memory namespaces
parser sequences strings io.styles io.streams.lines parser sequences strings io.styles
io.streams.duplex vectors words generic system combinators io.streams.duplex vectors words generic system combinators
tuples continuations debugger definitions compiler.units ; tuples continuations debugger definitions compiler.units ;
IN: listener IN: listener
@ -32,7 +32,7 @@ GENERIC: stream-read-quot ( stream -- quot/f )
3drop f 3drop f
] if ; ] if ;
M: line-reader stream-read-quot M: object stream-read-quot
V{ } clone read-quot-loop ; V{ } clone read-quot-loop ;
M: duplex-stream stream-read-quot M: duplex-stream stream-read-quot

View File

@ -4,7 +4,7 @@ USING: arrays definitions generic assocs kernel math
namespaces prettyprint sequences strings vectors words namespaces prettyprint sequences strings vectors words
quotations inspector io.styles io combinators sorting quotations inspector io.styles io combinators sorting
splitting math.parser effects continuations debugger splitting math.parser effects continuations debugger
io.files io.streams.string io.streams.lines vocabs io.encodings.utf8 io.files io.streams.string vocabs io.encodings.utf8
source-files classes hashtables compiler.errors compiler.units ; source-files classes hashtables compiler.errors compiler.units ;
IN: parser IN: parser

View File

@ -4,7 +4,7 @@ USING: arrays definitions generic assocs kernel math
namespaces prettyprint sequences strings vectors words namespaces prettyprint sequences strings vectors words
quotations inspector io.styles io combinators sorting quotations inspector io.styles io combinators sorting
splitting math.parser effects continuations debugger splitting math.parser effects continuations debugger
io.files io.crc32 io.streams.string io.streams.lines vocabs io.files io.crc32 io.streams.string vocabs
hashtables graphs compiler.units io.encodings.utf8 ; hashtables graphs compiler.units io.encodings.utf8 ;
IN: source-files IN: source-files

View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: namespaces sequences io.files kernel assocs words vocabs USING: namespaces sequences io.files kernel assocs words vocabs
definitions parser continuations inspector debugger io io.styles definitions parser continuations inspector debugger io io.styles
io.streams.lines hashtables sorting prettyprint source-files hashtables sorting prettyprint source-files
arrays combinators strings system math.parser compiler.errors arrays combinators strings system math.parser compiler.errors
splitting ; splitting ;
IN: vocabs.loader IN: vocabs.loader

View File

@ -1,6 +1,6 @@
USING: arrays combinators crypto.common kernel io io.encodings.binary USING: arrays combinators crypto.common kernel io io.encodings.binary
io.files io.streams.string math.vectors strings sequences io.files io.streams.string math.vectors strings sequences
namespaces math parser sequences vectors namespaces math parser sequences vectors io.binary
hashtables ; hashtables ;
IN: crypto.sha1 IN: crypto.sha1

BIN
extra/db/sqlite/test.db Normal file

Binary file not shown.

View File

@ -1,7 +1,7 @@
! Copyright (C) 2006, 2007 Slava Pestov ! Copyright (C) 2006, 2007 Slava Pestov
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays io kernel math models namespaces sequences strings USING: arrays io kernel math models namespaces sequences strings
splitting io.streams.lines combinators unicode.categories ; splitting combinators unicode.categories ;
IN: documents IN: documents
: +col ( loc n -- newloc ) >r first2 r> + 2array ; : +col ( loc n -- newloc ) >r first2 r> + 2array ;

View File

@ -2,7 +2,7 @@
! Copyright (C) 2006, 2007 Slava Pestov ! Copyright (C) 2006, 2007 Slava Pestov
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: continuations sequences kernel parser namespaces io USING: continuations sequences kernel parser namespaces io
io.files io.streams.lines io.streams.string html html.elements io.files io.streams.string html html.elements
source-files debugger combinators math quotations generic source-files debugger combinators math quotations generic
strings splitting io.encodings.utf8 ; strings splitting io.encodings.utf8 ;

View File

@ -126,8 +126,6 @@ M: utf16be encode-string drop encode-utf16be ;
M: utf16be decode-step drop decode-utf16be-step ; M: utf16be decode-step drop decode-utf16be-step ;
TUPLE: utf16 encoding ; TUPLE: utf16 encoding ;
M: utf16 underlying-stream delegate dup delegate [ ] [ ] ?if ; ! necessary?
M: utf16 set-underlying-stream delegate set-delegate ; ! necessary?
M: utf16 encode-string M: utf16 encode-string
>r encode-utf16le r> >r encode-utf16le r>

View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: io io.backend io.timeouts system kernel namespaces USING: io io.backend io.timeouts system kernel namespaces
strings hashtables sequences assocs combinators vocabs.loader strings hashtables sequences assocs combinators vocabs.loader
init threads continuations math ; init threads continuations math io.encodings ;
IN: io.launcher IN: io.launcher
! Non-blocking process exit notification facility ! Non-blocking process exit notification facility

View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
IN: io.nonblocking IN: io.nonblocking
USING: math kernel io sequences io.buffers io.timeouts generic USING: math kernel io sequences io.buffers io.timeouts generic
sbufs system io.streams.lines io.streams.plain io.streams.duplex sbufs system io.streams.plain io.streams.duplex io.encodings
io.backend continuations debugger classes byte-arrays namespaces io.backend continuations debugger classes byte-arrays namespaces
splitting dlists assocs ; splitting dlists assocs ;

View File

@ -2,9 +2,9 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien generic assocs kernel kernel.private math USING: alien generic assocs kernel kernel.private math
io.nonblocking sequences strings structs sbufs io.nonblocking sequences strings structs sbufs
threads unix vectors io.buffers io.backend threads unix vectors io.buffers io.backend io.encodings
io.streams.duplex math.parser continuations system libc io.streams.duplex math.parser continuations system libc
qualified namespaces io.timeouts ; qualified namespaces io.timeouts io.encodings.utf8 ;
QUALIFIED: io QUALIFIED: io
IN: io.unix.backend IN: io.unix.backend

View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: namespaces splitting sequences io.files kernel assocs USING: namespaces splitting sequences io.files kernel assocs
words vocabs vocabs.loader definitions parser continuations words vocabs vocabs.loader definitions parser continuations
inspector debugger io io.styles io.streams.lines hashtables inspector debugger io io.styles hashtables
sorting prettyprint source-files arrays combinators strings sorting prettyprint source-files arrays combinators strings
system math.parser help.markup help.topics help.syntax system math.parser help.markup help.topics help.syntax
help.stylesheet memoize io.encodings.utf8 ; help.stylesheet memoize io.encodings.utf8 ;

View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: io io.files io.launcher kernel namespaces sequences USING: io io.files io.launcher kernel namespaces sequences
system tools.deploy.backend tools.deploy.config assocs system tools.deploy.backend tools.deploy.config assocs
hashtables prettyprint io.unix.backend cocoa hashtables prettyprint io.unix.backend cocoa io.encodings.utf8
cocoa.application cocoa.classes cocoa.plists qualified ; cocoa.application cocoa.classes cocoa.plists qualified ;
QUALIFIED: unix QUALIFIED: unix
IN: tools.deploy.macosx IN: tools.deploy.macosx

View File

@ -1,7 +1,7 @@
! Copyright (C) 2005, 2007 Slava Pestov. ! Copyright (C) 2005, 2007 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays hashtables io kernel math namespaces USING: arrays hashtables io kernel math namespaces
opengl sequences io.streams.lines strings splitting opengl sequences strings splitting
ui.gadgets ui.gadgets.tracks ui.gadgets.theme ui.render colors ui.gadgets ui.gadgets.tracks ui.gadgets.theme ui.render colors
models ; models ;
IN: ui.gadgets.labels IN: ui.gadgets.labels