Cleaning up USING: lists for new strict semantics

db4
Slava Pestov 2009-05-14 16:54:16 -05:00
parent 2ad45a24b3
commit fb6df472a2
58 changed files with 98 additions and 101 deletions

View File

@ -1,11 +1,11 @@
! Copyright (C) 2004, 2009 Slava Pestov. ! Copyright (C) 2004, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: byte-arrays arrays assocs kernel kernel.private libc math USING: byte-arrays arrays assocs kernel kernel.private libc math
namespaces make parser sequences strings words assocs splitting namespaces make parser sequences strings words splitting math.parser
math.parser cpu.architecture alien alien.accessors alien.strings cpu.architecture alien alien.accessors alien.strings quotations
quotations layouts system compiler.units io io.files layouts system compiler.units io io.files io.encodings.binary
io.encodings.binary io.streams.memory accessors combinators effects io.streams.memory accessors combinators effects continuations fry
continuations fry classes ; classes ;
IN: alien.c-types IN: alien.c-types
DEFER: <int> DEFER: <int>

View File

@ -1,13 +1,14 @@
! Copyright (C) 2007, 2009 Slava Pestov. ! Copyright (C) 2007, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors compiler cpu.architecture vocabs.loader system USING: accessors cpu.architecture vocabs.loader system
sequences namespaces parser kernel kernel.private classes sequences namespaces parser kernel kernel.private classes
classes.private arrays hashtables vectors classes.tuple sbufs classes.private arrays hashtables vectors classes.tuple sbufs
hashtables.private sequences.private math classes.tuple.private hashtables.private sequences.private math classes.tuple.private
growable namespaces.private assocs words command-line vocabs io growable namespaces.private assocs words command-line vocabs io
io.encodings.string libc splitting math.parser memory io.encodings.string libc splitting math.parser memory compiler.units
compiler.units math.order compiler.tree.builder math.order compiler.tree.builder compiler.tree.optimizer
compiler.tree.optimizer compiler.cfg.optimizer ; compiler.cfg.optimizer ;
FROM: compiler => enable-optimizer compile-word ;
IN: bootstrap.compiler IN: bootstrap.compiler
! Don't bring this in when deploying, since it will store a ! Don't bring this in when deploying, since it will store a

View File

@ -1,6 +1,6 @@
! Copyright (C) 2004, 2009 Slava Pestov. ! Copyright (C) 2004, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien arrays byte-arrays generic assocs hashtables assocs USING: alien arrays byte-arrays generic hashtables
hashtables.private io io.binary io.files io.encodings.binary hashtables.private io io.binary io.files io.encodings.binary
io.pathnames kernel kernel.private math namespaces make parser io.pathnames kernel kernel.private math namespaces make parser
prettyprint sequences sequences.private strings sbufs vectors words prettyprint sequences sequences.private strings sbufs vectors words

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: math math.order math.parser math.functions kernel USING: math math.order math.parser math.functions kernel
sequences io accessors arrays io.streams.string splitting sequences io accessors arrays io.streams.string splitting
combinators accessors calendar calendar.format.macros present ; combinators calendar calendar.format.macros present ;
IN: calendar.format IN: calendar.format
: pad-00 ( n -- str ) number>string 2 CHAR: 0 pad-head ; : pad-00 ( n -- str ) number>string 2 CHAR: 0 pad-head ;

View File

@ -1,7 +1,7 @@
! Copyright (C) 2008 Slava Pestov. ! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel accessors namespaces make math sequences sets USING: kernel accessors namespaces make math sequences sets
assocs fry compiler.cfg.instructions ; assocs fry compiler.cfg compiler.cfg.instructions ;
IN: compiler.cfg.rpo IN: compiler.cfg.rpo
SYMBOL: visited SYMBOL: visited

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: accessors kernel namespaces arrays sequences io words fry USING: accessors kernel namespaces arrays sequences io words fry
continuations vocabs assocs dlists definitions math graphs generic continuations vocabs assocs dlists definitions math graphs generic
generic.single combinators deques search-deques macros io generic.single combinators deques search-deques macros
source-files.errors stack-checker stack-checker.state source-files.errors stack-checker stack-checker.state
stack-checker.inlining stack-checker.errors combinators.short-circuit stack-checker.inlining stack-checker.errors combinators.short-circuit
compiler.errors compiler.units compiler.tree.builder compiler.errors compiler.units compiler.tree.builder

View File

@ -16,6 +16,7 @@ compiler.tree.builder
compiler.tree.optimizer compiler.tree.optimizer
compiler.tree.combinators compiler.tree.combinators
compiler.tree.checker ; compiler.tree.checker ;
FROM: fry => _ ;
RENAME: _ match => __ RENAME: _ match => __
IN: compiler.tree.debugger IN: compiler.tree.debugger

View File

@ -1,6 +1,6 @@
! Copyright (C) 2008 Slava Pestov. ! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays namespaces assocs sequences kernel generic assocs USING: arrays namespaces sequences kernel generic assocs
classes vectors accessors combinators sets classes vectors accessors combinators sets
stack-checker.state stack-checker.state
stack-checker.branches stack-checker.branches

View File

@ -1,7 +1,7 @@
! Copyright (C) 2008 Slava Pestov. ! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: fry namespaces sequences math math.order accessors kernel arrays USING: fry namespaces sequences math math.order accessors kernel arrays
combinators compiler.utilities assocs combinators assocs
stack-checker.backend stack-checker.backend
stack-checker.branches stack-checker.branches
stack-checker.inlining stack-checker.inlining

View File

@ -1,6 +1,6 @@
! Copyright (C) 2004, 2008 Slava Pestov. ! Copyright (C) 2004, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: sequences accessors kernel assocs sequences USING: sequences accessors kernel assocs
compiler.tree compiler.tree
compiler.tree.propagation.copy compiler.tree.propagation.copy
compiler.tree.propagation.info ; compiler.tree.propagation.info ;

View File

@ -1,7 +1,7 @@
! Copyright (C) 2006 Chris Double. ! Copyright (C) 2006 Chris Double.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: help.syntax help.markup concurrency.messaging.private USING: help.syntax help.markup concurrency.messaging.private
threads kernel arrays quotations threads strings ; threads kernel arrays quotations strings ;
IN: concurrency.messaging IN: concurrency.messaging
HELP: send HELP: send

View File

@ -3,6 +3,7 @@
USING: accessors arrays io kernel math models namespaces make USING: accessors arrays io kernel math models namespaces make
sequences strings splitting combinators unicode.categories sequences strings splitting combinators unicode.categories
math.order math.ranges fry locals ; math.order math.ranges fry locals ;
FROM: models => change-model ;
IN: documents IN: documents
: +col ( loc n -- newloc ) [ first2 ] dip + 2array ; : +col ( loc n -- newloc ) [ first2 ] dip + 2array ;

View File

@ -4,7 +4,7 @@ USING: parser lexer kernel namespaces sequences definitions
io.files io.backend io.pathnames io summary continuations io.files io.backend io.pathnames io summary continuations
tools.crossref vocabs.hierarchy prettyprint source-files tools.crossref vocabs.hierarchy prettyprint source-files
source-files.errors assocs vocabs vocabs.loader splitting source-files.errors assocs vocabs vocabs.loader splitting
accessors debugger prettyprint help.topics ; accessors debugger help.topics ;
IN: editors IN: editors
TUPLE: no-edit-hook ; TUPLE: no-edit-hook ;

View File

@ -2,8 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien alien.c-types alien.strings alien.syntax kernel USING: alien alien.c-types alien.strings alien.syntax kernel
layouts sequences system unix environment io.encodings.utf8 layouts sequences system unix environment io.encodings.utf8
unix.utilities vocabs.loader combinators alien.accessors unix.utilities vocabs.loader combinators alien.accessors ;
alien.syntax ;
IN: environment.unix IN: environment.unix
HOOK: environ os ( -- void* ) HOOK: environ os ( -- void* )

View File

@ -1,4 +1,4 @@
USING: help.markup help.syntax io kernel math namespaces parser USING: help.markup help.syntax io kernel math parser
prettyprint sequences vocabs.loader namespaces stack-checker prettyprint sequences vocabs.loader namespaces stack-checker
help command-line multiline see ; help command-line multiline see ;
IN: help.cookbook IN: help.cookbook

View File

@ -1,5 +1,5 @@
USING: http help.markup help.syntax io.pathnames io.streams.string USING: http help.markup help.syntax io.pathnames io.streams.string
io.encodings.8-bit io.encodings.binary kernel strings urls io.encodings.8-bit io.encodings.binary kernel urls
urls.encoding byte-arrays strings assocs sequences destructors urls.encoding byte-arrays strings assocs sequences destructors
http.client.post-data.private ; http.client.post-data.private ;
IN: http.client IN: http.client

View File

@ -1,6 +1,6 @@
! Copyright (C) 2005, 2009 Slava Pestov. ! Copyright (C) 2005, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs kernel math math.parser namespaces make USING: assocs kernel math math.parser namespaces make
sequences strings splitting calendar continuations accessors vectors sequences strings splitting calendar continuations accessors vectors
math.order hashtables byte-arrays destructors math.order hashtables byte-arrays destructors
io io.sockets io.streams.string io.files io.timeouts io io.sockets io.streams.string io.files io.timeouts

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: combinators.short-circuit math math.order math.parser USING: combinators.short-circuit math math.order math.parser
kernel sequences sequences.deep peg peg.parsers assocs arrays kernel sequences sequences.deep peg peg.parsers assocs arrays
hashtables strings unicode.case namespaces make ascii ; hashtables strings namespaces make ascii ;
IN: http.parsers IN: http.parsers
: except ( quot -- parser ) : except ( quot -- parser )

View File

@ -1,7 +1,7 @@
! Copyright (C) 2009 Slava Pestov. ! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: sequences kernel math grouping fry columns locals accessors USING: sequences kernel math grouping fry columns locals accessors
images math math.vectors arrays ; images math.vectors arrays ;
IN: images.tesselation IN: images.tesselation
: group-rows ( bitmap bitmap-dim -- rows ) : group-rows ( bitmap bitmap-dim -- rows )

View File

@ -3,7 +3,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien alien.accessors alien.c-types USING: accessors alien alien.accessors alien.c-types
alien.syntax kernel libc math sequences byte-arrays strings alien.syntax kernel libc math sequences byte-arrays strings
hints accessors math.order destructors combinators ; hints math.order destructors combinators ;
IN: io.buffers IN: io.buffers
TUPLE: buffer TUPLE: buffer

View File

@ -4,13 +4,10 @@ USING: accessors alien.c-types arrays assocs combinators
continuations environment io io.backend io.backend.unix continuations environment io io.backend io.backend.unix
io.files io.files.private io.files.unix io.launcher io.files io.files.private io.files.unix io.launcher
io.launcher.unix.parser io.pathnames io.ports kernel math io.launcher.unix.parser io.pathnames io.ports kernel math
namespaces sequences strings system threads unix unix namespaces sequences strings system threads unix
unix.process ; unix.process ;
IN: io.launcher.unix IN: io.launcher.unix
! Search unix first
USE: unix
: get-arguments ( process -- seq ) : get-arguments ( process -- seq )
command>> dup string? [ tokenize-command ] when ; command>> dup string? [ tokenize-command ] when ;

View File

@ -7,6 +7,7 @@ openssl.libcrypto openssl.libssl io io.files io.ports
io.backend.unix io.sockets.unix io.encodings.ascii io.buffers io.backend.unix io.sockets.unix io.encodings.ascii io.buffers
io.sockets io.sockets.secure io.sockets.secure.openssl io.sockets io.sockets.secure io.sockets.secure.openssl
io.timeouts system summary fry ; io.timeouts system summary fry ;
FROM: io.ports => shutdown ;
IN: io.sockets.secure.unix IN: io.sockets.secure.unix
M: ssl-handle handle-fd file>> handle-fd ; M: ssl-handle handle-fd file>> handle-fd ;

View File

@ -1,18 +1,17 @@
! Copyright (C) 2007, 2008 Slava Pestov, Doug Coleman, ! Copyright (C) 2007, 2008 Slava Pestov, Doug Coleman,
! Daniel Ehrenberg. ! Daniel Ehrenberg.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: generic kernel io.backend namespaces continuations USING: generic kernel io.backend namespaces continuations sequences
sequences arrays io.encodings io.ports io.streams.duplex arrays io.encodings io.ports io.streams.duplex io.encodings.ascii
io.encodings.ascii alien.strings io.binary accessors destructors alien.strings io.binary accessors destructors classes byte-arrays
classes byte-arrays system combinators parser parser alien.c-types math.parser splitting grouping math assocs
alien.c-types math.parser splitting grouping math assocs summary summary system vocabs.loader combinators present fry vocabs.parser ;
system vocabs.loader combinators present fry vocabs.parser ;
IN: io.sockets IN: io.sockets
<< { << {
{ [ os windows? ] [ "windows.winsock" ] } { [ os windows? ] [ "windows.winsock" ] }
{ [ os unix? ] [ "unix" ] } { [ os unix? ] [ "unix" ] }
} cond add-use >> } cond add-ambiguous-use >>
! Addressing ! Addressing
GENERIC: protocol-family ( addrspec -- af ) GENERIC: protocol-family ( addrspec -- af )

View File

@ -1,12 +1,12 @@
! Copyright (C) 2004, 2008 Slava Pestov, Ivan Tikhonov. ! Copyright (C) 2004, 2008 Slava Pestov, Ivan Tikhonov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien alien.c-types alien.strings generic kernel math USING: alien alien.c-types alien.strings generic kernel math threads
namespaces threads sequences byte-arrays io.ports sequences byte-arrays io.ports io.binary io.backend.unix
io.binary io.backend.unix io.streams.duplex io.streams.duplex io.backend io.ports io.pathnames io.files.private
io.backend io.ports io.pathnames io.files.private io.encodings.utf8 math.parser continuations libc combinators system
io.encodings.utf8 math.parser continuations libc combinators accessors destructors unix locals init ;
system accessors destructors unix locals init ;
EXCLUDE: namespaces => bind ;
EXCLUDE: io => read write ; EXCLUDE: io => read write ;
EXCLUDE: io.sockets => accept ; EXCLUDE: io.sockets => accept ;

View File

@ -1,10 +1,10 @@
! Copyright (C) 2008 Slava Pestov. ! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: namespaces kernel io io.files io.pathnames io.directories USING: namespaces kernel io io.files io.pathnames io.directories
io.sockets io.encodings.utf8 io.encodings.utf8 calendar calendar.format sequences continuations
calendar calendar.format sequences continuations destructors destructors prettyprint assocs math.parser words debugger math
prettyprint assocs math.parser words debugger math combinators combinators concurrency.messaging threads arrays init math.ranges
concurrency.messaging threads arrays init math.ranges strings ; strings ;
IN: logging.server IN: logging.server
: log-root ( -- string ) : log-root ( -- string )

View File

@ -2,6 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors kernel models arrays sequences math math.order USING: accessors kernel models arrays sequences math math.order
models.product ; models.product ;
FROM: models.product => product ;
IN: models.range IN: models.range
TUPLE: range < product ; TUPLE: range < product ;

View File

@ -1,6 +1,6 @@
! Copyright (C) 2009 Slava Pestov. ! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs cache colors.constants destructors fry kernel USING: accessors assocs cache colors.constants destructors kernel
opengl opengl.gl opengl.capabilities combinators images opengl opengl.gl opengl.capabilities combinators images
images.tesselation grouping specialized-arrays.float sequences math images.tesselation grouping specialized-arrays.float sequences math
math.vectors math.matrices generalizations fry arrays namespaces math.vectors math.matrices generalizations fry arrays namespaces

View File

@ -1,11 +1,13 @@
! Copyright (C) 2007 Chris Double. ! Copyright (C) 2007 Chris Double.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel compiler.units words arrays strings math.parser USING: kernel words arrays strings math.parser
sequences quotations vectors namespaces make math assocs sequences quotations vectors namespaces make math assocs
continuations peg peg.parsers unicode.categories multiline continuations peg peg.parsers unicode.categories multiline
splitting accessors effects sequences.deep peg.search splitting accessors effects sequences.deep peg.search
combinators.short-circuit lexer io.streams.string stack-checker combinators.short-circuit lexer io.streams.string stack-checker
io combinators parser vocabs.parser summary ; io combinators parser summary ;
FROM: compiler.units => with-compilation-unit ;
FROM: vocabs.parser => search ;
IN: peg.ebnf IN: peg.ebnf
: rule ( name word -- parser ) : rule ( name word -- parser )
@ -441,7 +443,7 @@ M: ebnf-sequence build-locals ( code ast -- code )
drop drop
] [ ] [
[ [
"USING: locals sequences ; [let* | " % "FROM: locals => [let* ; FROM: sequences => nth ; [let* | " %
dup length swap [ dup length swap [
dup ebnf-var? [ dup ebnf-var? [
name>> % name>> %

View File

@ -1,7 +1,7 @@
! Copyright (C) 2007, 2008 Chris Double. ! Copyright (C) 2007, 2008 Chris Double.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel sequences strings fry namespaces make math assocs USING: kernel sequences strings fry namespaces make math assocs
io vectors arrays math.parser math.order vectors combinators io vectors arrays math.parser math.order combinators
classes sets unicode.categories compiler.units parser words classes sets unicode.categories compiler.units parser words
quotations effects memoize accessors locals effects splitting quotations effects memoize accessors locals effects splitting
combinators.short-circuit generalizations ; combinators.short-circuit generalizations ;

View File

@ -1,5 +1,5 @@
USING: prettyprint.backend prettyprint.config prettyprint.custom USING: prettyprint.backend prettyprint.config prettyprint.custom
prettyprint.sections prettyprint.private help.markup help.syntax prettyprint.sections help.markup help.syntax
io kernel words definitions quotations strings generic classes io kernel words definitions quotations strings generic classes
prettyprint.private ; prettyprint.private ;
IN: prettyprint IN: prettyprint

View File

@ -69,8 +69,6 @@ M: mersenne-twister random-32* ( mt -- r )
[ seq>> nth-unsafe mt-temper ] [ seq>> nth-unsafe mt-temper ]
[ [ 1+ ] change-i drop ] tri ; [ [ 1+ ] change-i drop ] tri ;
USE: init
[ [
[ 32 random-bits ] with-system-random [ 32 random-bits ] with-system-random
<mersenne-twister> random-generator set-global <mersenne-twister> random-generator set-global

View File

@ -86,8 +86,6 @@ PRIVATE>
[ 1.0 swap - log -2.0 * sqrt ] [ 1.0 swap - log -2.0 * sqrt ]
bi* * * + ; bi* * * + ;
USE: vocabs.loader
{ {
{ [ os windows? ] [ "random.windows" require ] } { [ os windows? ] [ "random.windows" require ] }
{ [ os unix? ] [ "random.unix" require ] } { [ os unix? ] [ "random.unix" require ] }

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: fry namespaces assocs kernel sequences words accessors USING: fry namespaces assocs kernel sequences words accessors
definitions math math.order effects classes arrays combinators definitions math math.order effects classes arrays combinators
vectors arrays hints vectors hints
stack-checker.state stack-checker.state
stack-checker.errors stack-checker.errors
stack-checker.values stack-checker.values

View File

@ -1,7 +1,7 @@
! Copyright (C) 2004, 2009 Slava Pestov. ! Copyright (C) 2004, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: fry accessors alien alien.accessors arrays byte-arrays classes USING: fry accessors alien alien.accessors arrays byte-arrays classes
sequences.private continuations.private effects generic hashtables continuations.private effects generic hashtables
hashtables.private io io.backend io.files io.files.private hashtables.private io io.backend io.files io.files.private
io.streams.c kernel kernel.private math math.private io.streams.c kernel kernel.private math math.private
math.parser.private memory memory.private namespaces math.parser.private memory memory.private namespaces
@ -11,7 +11,7 @@ strings.private system threads.private classes.tuple
classes.tuple.private vectors vectors.private words definitions assocs classes.tuple.private vectors vectors.private words definitions assocs
summary compiler.units system.private combinators summary compiler.units system.private combinators
combinators.short-circuit locals locals.backend locals.types combinators.short-circuit locals locals.backend locals.types
quotations.private combinators.private stack-checker.values combinators.private stack-checker.values
generic.single generic.single.private generic.single generic.single.private
alien.libraries alien.libraries
stack-checker.alien stack-checker.alien

View File

@ -3,7 +3,7 @@
USING: fry accessors arrays kernel kernel.private combinators.private USING: fry accessors arrays kernel kernel.private combinators.private
words sequences generic math math.order namespaces quotations words sequences generic math math.order namespaces quotations
assocs combinators combinators.short-circuit classes.tuple assocs combinators combinators.short-circuit classes.tuple
classes.tuple.private effects summary hashtables classes generic sets classes.tuple.private effects summary hashtables classes sets
definitions generic.standard slots.private continuations locals definitions generic.standard slots.private continuations locals
sequences.private generalizations stack-checker.backend sequences.private generalizations stack-checker.backend
stack-checker.state stack-checker.visitor stack-checker.errors stack-checker.state stack-checker.visitor stack-checker.errors

View File

@ -1,7 +1,7 @@
! Copyright (C) 2006, 2008 Slava Pestov. ! Copyright (C) 2006, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays definitions kernel sequences strings USING: accessors arrays definitions kernel sequences strings
math assocs words generic namespaces make assocs quotations math assocs words generic namespaces make quotations
splitting ui.gestures unicode.case unicode.categories tr fry ; splitting ui.gestures unicode.case unicode.categories tr fry ;
IN: ui.commands IN: ui.commands

View File

@ -7,6 +7,7 @@ ui.gadgets.borders ui.gadgets.labels ui.gadgets.tracks
ui.gadgets.packs ui.gadgets.worlds ui.gestures ui.pens ui.pens.solid ui.gadgets.packs ui.gadgets.worlds ui.gestures ui.pens ui.pens.solid
ui.pens.image ui.pens.tile math.rectangles locals fry ui.pens.image ui.pens.tile math.rectangles locals fry
combinators.smart ; combinators.smart ;
FROM: models => change-model ;
IN: ui.gadgets.buttons IN: ui.gadgets.buttons
TUPLE: button < border pressed? selected? quot ; TUPLE: button < border pressed? selected? quot ;

View File

@ -3,7 +3,7 @@
USING: accessors arrays documents documents.elements kernel math USING: accessors arrays documents documents.elements kernel math
math.ranges models models.arrow namespaces locals fry make opengl math.ranges models models.arrow namespaces locals fry make opengl
opengl.gl sequences strings math.vectors math.functions sorting colors opengl.gl sequences strings math.vectors math.functions sorting colors
colors.constants combinators assocs math.order fry calendar alarms colors.constants combinators assocs math.order calendar alarms
continuations ui.clipboards ui.commands ui.gadgets ui.gadgets.borders continuations ui.clipboards ui.commands ui.gadgets ui.gadgets.borders
ui.gadgets.buttons ui.gadgets.labels ui.gadgets.scrollers ui.gadgets.buttons ui.gadgets.labels ui.gadgets.scrollers
ui.gadgets.menus ui.gadgets.wrappers ui.render ui.pens.solid ui.gadgets.menus ui.gadgets.wrappers ui.render ui.pens.solid

View File

@ -1,6 +1,6 @@
! Copyright (C) 2005, 2009 Slava Pestov. ! Copyright (C) 2005, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays hashtables kernel models math namespaces USING: accessors arrays hashtables kernel math namespaces
make sequences quotations math.vectors combinators sorting make sequences quotations math.vectors combinators sorting
binary-search vectors dlists deques models threads binary-search vectors dlists deques models threads
concurrency.flags math.order math.rectangles fry locals ; concurrency.flags math.order math.rectangles fry locals ;

View File

@ -3,6 +3,7 @@
USING: accessors kernel namespaces ui.gadgets ui.gadgets.worlds USING: accessors kernel namespaces ui.gadgets ui.gadgets.worlds
ui.gadgets.wrappers ui.gestures math.rectangles ui.gadgets.wrappers ui.gestures math.rectangles
math.rectangles.positioning combinators vectors ; math.rectangles.positioning combinators vectors ;
FROM: ui.gadgets.wrappers => wrapper ;
IN: ui.gadgets.glass IN: ui.gadgets.glass
GENERIC: hide-glass-hook ( gadget -- ) GENERIC: hide-glass-hook ( gadget -- )

View File

@ -3,7 +3,7 @@
USING: colors.constants kernel locals math.rectangles namespaces USING: colors.constants kernel locals math.rectangles namespaces
sequences ui.commands ui.gadgets ui.gadgets.borders ui.gadgets.buttons sequences ui.commands ui.gadgets ui.gadgets.borders ui.gadgets.buttons
ui.gadgets.glass ui.gadgets.packs ui.gadgets.frames ui.gadgets.worlds ui.gadgets.glass ui.gadgets.packs ui.gadgets.frames ui.gadgets.worlds
ui.gadgets.frames ui.gadgets.corners ui.gestures ui.operations ui.gadgets.corners ui.gestures ui.operations
ui.render ui.pens ui.pens.solid opengl math.vectors words accessors ui.render ui.pens ui.pens.solid opengl math.vectors words accessors
math math.order sorting ; math math.order sorting ;
IN: ui.gadgets.menus IN: ui.gadgets.menus

View File

@ -11,6 +11,7 @@ ui.gadgets.menus ui.clipboards ui.gestures ui.traverse ui.render
ui.text ui.gadgets.presentations ui.gadgets.grids ui.gadgets.tracks ui.text ui.gadgets.presentations ui.gadgets.grids ui.gadgets.tracks
ui.gadgets.icons ui.gadgets.grid-lines ui.baseline-alignment ui.gadgets.icons ui.gadgets.grid-lines ui.baseline-alignment
colors io.styles ; colors io.styles ;
FROM: io.styles => foreground background ;
IN: ui.gadgets.panes IN: ui.gadgets.panes
TUPLE: pane < track TUPLE: pane < track

View File

@ -5,7 +5,7 @@ math.functions math.rectangles math.order math.vectors namespaces
opengl sequences ui.gadgets ui.gadgets.scrollers ui.gadgets.status-bar opengl sequences ui.gadgets ui.gadgets.scrollers ui.gadgets.status-bar
ui.gadgets.worlds ui.gestures ui.render ui.pens.solid ui.text ui.gadgets.worlds ui.gestures ui.render ui.pens.solid ui.text
ui.commands ui.images ui.gadgets.menus ui.gadgets.line-support ui.commands ui.images ui.gadgets.menus ui.gadgets.line-support
math.rectangles models math.ranges sequences combinators models math.ranges combinators
combinators.short-circuit fonts locals strings ; combinators.short-circuit fonts locals strings ;
IN: ui.gadgets.tables IN: ui.gadgets.tables

View File

@ -1,13 +1,14 @@
! Copyright (C) 2006, 2009 Slava Pestov. ! Copyright (C) 2006, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: debugger classes help help.topics help.crossref help.home kernel models USING: debugger classes help help.topics help.crossref help.home
compiler.units assocs words vocabs accessors fry arrays kernel models compiler.units assocs words vocabs accessors fry arrays
combinators.short-circuit namespaces sequences models help.apropos combinators.short-circuit namespaces sequences help.apropos
combinators ui ui.commands ui.gadgets ui.gadgets.panes combinators ui ui.commands ui.gadgets ui.gadgets.panes
ui.gadgets.scrollers ui.gadgets.tracks ui.gestures ui.gadgets.buttons ui.gadgets.scrollers ui.gadgets.tracks ui.gestures ui.gadgets.buttons
ui.gadgets.packs ui.gadgets.editors ui.gadgets.labels ui.gadgets.packs ui.gadgets.editors ui.gadgets.labels
ui.gadgets.status-bar ui.gadgets.glass ui.gadgets.borders ui.gadgets.viewports ui.gadgets.status-bar ui.gadgets.glass ui.gadgets.borders
ui.tools.common ui.tools.browser.popups ui.tools.browser.history ; ui.gadgets.viewports ui.tools.common ui.tools.browser.popups
ui.tools.browser.history ;
IN: ui.tools.browser IN: ui.tools.browser
TUPLE: browser-gadget < tool history pane scroller search-field popup ; TUPLE: browser-gadget < tool history pane scroller search-field popup ;

View File

@ -6,6 +6,7 @@ sorting definitions.icons tools.crossref ui.gadgets ui.gadgets.glass
ui.gadgets.labeled ui.gadgets.scrollers ui.gadgets.tables ui.gadgets.labeled ui.gadgets.scrollers ui.gadgets.tables
ui.gadgets.search-tables ui.gadgets.wrappers ui.gestures ui.operations ui.gadgets.search-tables ui.gadgets.wrappers ui.gestures ui.operations
ui.pens.solid ui.images ; ui.pens.solid ui.images ;
FROM: ui.gadgets.wrappers => wrapper ;
IN: ui.tools.browser.popups IN: ui.tools.browser.popups
SINGLETON: link-renderer SINGLETON: link-renderer

View File

@ -1,5 +1,5 @@
USING: ui.gadgets help.markup help.syntax kernel quotations USING: ui.gadgets help.markup help.syntax kernel quotations
continuations debugger ui continuations ; continuations debugger ui ;
IN: ui.tools.debugger IN: ui.tools.debugger
HELP: <debugger> HELP: <debugger>

View File

@ -1,7 +1,7 @@
! Copyright (C) 2006, 2009 Slava Pestov. ! Copyright (C) 2006, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays hashtables io kernel math models USING: accessors arrays hashtables io kernel math models
colors.constants namespaces sequences sequences words continuations colors.constants namespaces sequences words continuations
debugger prettyprint help editors fonts ui ui.commands ui.gestures debugger prettyprint help editors fonts ui ui.commands ui.gestures
ui.gadgets ui.pens.solid ui.gadgets.worlds ui.gadgets.packs ui.gadgets ui.pens.solid ui.gadgets.worlds ui.gadgets.packs
ui.gadgets.buttons ui.gadgets.labels ui.gadgets.panes ui.gadgets.buttons ui.gadgets.labels ui.gadgets.panes

View File

@ -1,12 +1,11 @@
! Copyright (C) 2007, 2009 Slava Pestov. ! Copyright (C) 2007, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: colors kernel namespaces models tools.deploy.config USING: colors kernel models tools.deploy.config
tools.deploy.config.editor tools.deploy vocabs tools.deploy.config.editor tools.deploy vocabs namespaces
namespaces models.mapping sequences system accessors fry models.mapping sequences system accessors fry ui.gadgets ui.render
ui.gadgets ui.render ui.gadgets.buttons ui.gadgets.packs ui.gadgets.buttons ui.gadgets.packs ui.gadgets.labels
ui.gadgets.labels ui.gadgets.editors ui.gadgets.borders ui.gestures ui.gadgets.editors ui.gadgets.borders ui.gestures ui.commands assocs
ui.commands assocs ui.gadgets.tracks ui ui.tools.listener ui.gadgets.tracks ui ui.tools.listener ui.tools.browser ;
ui.tools.browser ;
IN: ui.tools.deploy IN: ui.tools.deploy
TUPLE: deploy-gadget < pack vocab settings ; TUPLE: deploy-gadget < pack vocab settings ;

View File

@ -8,7 +8,7 @@ models.arrow.smart models.search models.mapping debugger
namespaces summary locals ui ui.commands ui.gadgets ui.gadgets.panes namespaces summary locals ui ui.commands ui.gadgets ui.gadgets.panes
ui.gadgets.tables ui.gadgets.labeled ui.gadgets.tracks ui.gestures ui.gadgets.tables ui.gadgets.labeled ui.gadgets.tracks ui.gestures
ui.operations ui.tools.browser ui.tools.common ui.gadgets.scrollers ui.operations ui.tools.browser ui.tools.common ui.gadgets.scrollers
ui.tools.inspector ui.gadgets.status-bar ui.operations ui.tools.inspector ui.gadgets.status-bar
ui.gadgets.buttons ui.gadgets.borders ui.gadgets.packs ui.gadgets.buttons ui.gadgets.borders ui.gadgets.packs
ui.gadgets.labels ui.baseline-alignment ui.images ui.gadgets.labels ui.baseline-alignment ui.images
compiler.errors tools.errors tools.errors.model ; compiler.errors tools.errors tools.errors.model ;

View File

@ -6,10 +6,9 @@ vocabs tools.profiler words prettyprint combinators.smart
definitions.icons see ui ui.commands ui.gadgets ui.gadgets.panes definitions.icons see ui ui.commands ui.gadgets ui.gadgets.panes
ui.gadgets.scrollers ui.gadgets.tracks ui.gestures ui.gadgets.buttons ui.gadgets.scrollers ui.gadgets.tracks ui.gestures ui.gadgets.buttons
ui.gadgets.tables ui.gadgets.search-tables ui.gadgets.labeled ui.gadgets.tables ui.gadgets.search-tables ui.gadgets.labeled
ui.gadgets.buttons ui.gadgets.packs ui.gadgets.labels ui.gadgets.packs ui.gadgets.labels ui.gadgets.tabbed
ui.gadgets.tabbed ui.gadgets.status-bar ui.gadgets.borders ui.gadgets.status-bar ui.gadgets.borders ui.tools.browser
ui.tools.browser ui.tools.common ui.baseline-alignment ui.tools.common ui.baseline-alignment ui.operations ui.images ;
ui.operations ui.images ;
FROM: models.arrow => <arrow> ; FROM: models.arrow => <arrow> ;
FROM: models.arrow.smart => <smart-arrow> ; FROM: models.arrow.smart => <smart-arrow> ;
FROM: models.product => <product> ; FROM: models.product => <product> ;

View File

@ -1,7 +1,7 @@
! Copyright (C) 2006, 2009 Slava Pestov. ! Copyright (C) 2006, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays assocs io kernel math models namespaces make dlists USING: arrays assocs io kernel math models namespaces make dlists
deques sequences threads sequences words continuations init deques sequences threads words continuations init
combinators combinators.short-circuit hashtables concurrency.flags combinators combinators.short-circuit hashtables concurrency.flags
sets accessors calendar fry destructors ui.gadgets ui.gadgets.private sets accessors calendar fry destructors ui.gadgets ui.gadgets.private
ui.gadgets.worlds ui.gadgets.tracks ui.gestures ui.backend ui.render ui.gadgets.worlds ui.gadgets.tracks ui.gestures ui.backend ui.render

View File

@ -1,6 +1,7 @@
! Copyright (C) 2008 Slava Pestov. ! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: debugger prettyprint accessors unix io kernel ; USING: debugger prettyprint accessors unix kernel ;
FROM: io => write print nl ;
IN: unix.debugger IN: unix.debugger
M: unix-error error. M: unix-error error.

View File

@ -1,5 +1,5 @@
USING: kernel alien.c-types alien.strings sequences math alien.syntax unix USING: kernel alien.c-types alien.strings sequences math alien.syntax unix
vectors kernel namespaces continuations threads assocs vectors vectors namespaces continuations threads assocs vectors
io.backend.unix io.encodings.utf8 unix.utilities fry ; io.backend.unix io.encodings.utf8 unix.utilities fry ;
IN: unix.process IN: unix.process

View File

@ -15,10 +15,6 @@ CONSTANT: S_IFLNK OCT: 120000 ! Symbolic link.
CONSTANT: S_IFSOCK OCT: 140000 ! Socket. CONSTANT: S_IFSOCK OCT: 140000 ! Socket.
CONSTANT: S_IFWHT OCT: 160000 ! Whiteout. CONSTANT: S_IFWHT OCT: 160000 ! Whiteout.
FUNCTION: int chmod ( char* path, mode_t mode ) ;
FUNCTION: int fchmod ( int fd, mode_t mode ) ;
FUNCTION: int mkdir ( char* path, mode_t mode ) ;
C-STRUCT: fsid C-STRUCT: fsid
{ { "int" 2 } "__val" } ; { { "int" 2 } "__val" } ;

View File

@ -1,5 +1,4 @@
USING: kernel system alien.syntax combinators vocabs.loader USING: kernel system alien.syntax combinators vocabs.loader ;
system ;
IN: unix.types IN: unix.types
TYPEDEF: char int8_t TYPEDEF: char int8_t

View File

@ -5,7 +5,7 @@ USING: alien alien.c-types alien.syntax kernel libc
sequences continuations byte-arrays strings math namespaces sequences continuations byte-arrays strings math namespaces
system combinators vocabs.loader accessors system combinators vocabs.loader accessors
stack-checker macros locals generalizations unix.types stack-checker macros locals generalizations unix.types
io vocabs vocabs.loader ; io vocabs ;
IN: unix IN: unix
CONSTANT: PROT_NONE 0 CONSTANT: PROT_NONE 0
@ -132,6 +132,7 @@ FUNCTION: int ioctl ( int fd, ulong request, char* argp ) ;
FUNCTION: int lchown ( char* path, uid_t owner, gid_t group ) ; FUNCTION: int lchown ( char* path, uid_t owner, gid_t group ) ;
FUNCTION: int listen ( int s, int backlog ) ; FUNCTION: int listen ( int s, int backlog ) ;
FUNCTION: off_t lseek ( int fildes, off_t offset, int whence ) ; FUNCTION: off_t lseek ( int fildes, off_t offset, int whence ) ;
FUNCTION: int mkdir ( char* path, mode_t mode ) ;
FUNCTION: void* mmap ( void* addr, size_t len, int prot, int flags, int fd, off_t offset ) ; FUNCTION: void* mmap ( void* addr, size_t len, int prot, int flags, int fd, off_t offset ) ;
FUNCTION: int munmap ( void* addr, size_t len ) ; FUNCTION: int munmap ( void* addr, size_t len ) ;
FUNCTION: uint ntohl ( uint n ) ; FUNCTION: uint ntohl ( uint n ) ;

View File

@ -1,6 +1,6 @@
USING: generic help.markup help.syntax math memory USING: generic help.markup help.syntax math memory
namespaces sequences kernel.private layouts classes namespaces sequences kernel.private layouts classes
kernel.private vectors combinators quotations strings words vectors combinators quotations strings words
assocs arrays math.order ; assocs arrays math.order ;
IN: kernel IN: kernel

View File

@ -1,8 +1,7 @@
USING: help.markup help.syntax generic kernel.private parser USING: help.markup help.syntax generic kernel.private parser words
words kernel quotations namespaces sequences words arrays kernel quotations namespaces sequences words arrays effects
effects generic.standard classes.builtin generic.standard classes.builtin slots.private classes strings math
slots.private classes strings math assocs byte-arrays alien assocs byte-arrays alien classes.tuple ;
math classes.tuple ;
IN: slots IN: slots
ARTICLE: "accessors" "Slot accessors" ARTICLE: "accessors" "Slot accessors"