Cleaning up USING: lists for new strict semantics
parent
2ad45a24b3
commit
fb6df472a2
|
@ -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>
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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 ;
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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 ;
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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 ;
|
||||||
|
|
|
@ -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 ;
|
||||||
|
|
|
@ -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* )
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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 )
|
||||||
|
|
|
@ -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 )
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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 ;
|
||||||
|
|
||||||
|
|
|
@ -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 ;
|
||||||
|
|
|
@ -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 )
|
||||||
|
|
|
@ -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 ;
|
||||||
|
|
||||||
|
|
|
@ -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 )
|
||||||
|
|
|
@ -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 ;
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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>> %
|
||||||
|
|
|
@ -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 ;
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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 ] }
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
||||||
|
|
|
@ -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 ;
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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 ;
|
||||||
|
|
|
@ -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 -- )
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
||||||
|
|
|
@ -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 ;
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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>
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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 ;
|
||||||
|
|
|
@ -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 ;
|
||||||
|
|
|
@ -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> ;
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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.
|
||||||
|
|
|
@ -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
|
||||||
|
|
||||||
|
|
|
@ -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" } ;
|
||||||
|
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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 ) ;
|
||||||
|
|
|
@ -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
|
||||||
|
|
||||||
|
|
|
@ -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"
|
||||||
|
|
Loading…
Reference in New Issue