steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Update code for combinators.short-circuit

db4
Eduardo Cavazos 2008-06-24 13:47:54 -05:00
parent 945fe1bc74
commit bf238283da
27 changed files with 37 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/boids/boids.factor
View File

@ -1,5 +1,5 @@
USING: kernel namespaces USING: combinators.short-circuit kernel namespaces
math math
math.constants math.constants
math.functions math.functions

2
extra/boids/ui/ui.factor
View File

@ -1,5 +1,5 @@
USING: kernel namespaces USING: combinators.short-circuit kernel namespaces
math math
math.functions math.functions
math.vectors math.vectors

2
extra/dns/forwarding/forwarding.factor
View File

@ -1,5 +1,5 @@
USING: kernel USING: combinators.short-circuit kernel
combinators combinators
vectors vectors
sequences sequences

2
extra/dns/server/server.factor
View File

@ -1,7 +1,7 @@
USING: kernel combinators sequences sets math threads namespaces continuations USING: kernel combinators sequences sets math threads namespaces continuations
debugger io io.sockets unicode.case accessors destructors debugger io io.sockets unicode.case accessors destructors
combinators.cleave combinators.lib combinators.cleave combinators.lib combinators.short-circuit
newfx fry newfx fry
dns dns.util dns.misc ; dns dns.util dns.misc ;

2
extra/ftp/server/server.factor
View File

@ -1,6 +1,6 @@
! Copyright (C) 2008 Doug Coleman. ! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors combinators io io.encodings.8-bit USING: combinators.short-circuit accessors combinators io io.encodings.8-bit
io.encodings io.encodings.binary io.encodings.utf8 io.files io.encodings io.encodings.binary io.encodings.utf8 io.files
io.sockets kernel math.parser namespaces sequences io.sockets kernel math.parser namespaces sequences
ftp io.unix.launcher.parser unicode.case splitting assocs ftp io.unix.launcher.parser unicode.case splitting assocs

2
extra/inverse/inverse.factor
View File

@ -2,7 +2,7 @@ USING: kernel words inspector slots quotations sequences assocs
math arrays inference effects shuffle continuations debugger math arrays inference effects shuffle continuations debugger
classes.tuple namespaces vectors bit-arrays byte-arrays strings classes.tuple namespaces vectors bit-arrays byte-arrays strings
sbufs math.functions macros sequences.private combinators sbufs math.functions macros sequences.private combinators
mirrors combinators.lib ; mirrors combinators.lib combinators.short-circuit ;
IN: inverse IN: inverse
TUPLE: fail ; TUPLE: fail ;

2
extra/io/servers/connection/connection.factor
View File

@ -6,7 +6,7 @@ quotations combinators combinators.lib logging calendar assocs
fry accessors arrays io io.sockets io.encodings.ascii fry accessors arrays io io.sockets io.encodings.ascii
io.sockets.secure io.files io.streams.duplex io.timeouts io.sockets.secure io.files io.streams.duplex io.timeouts
io.encodings threads concurrency.combinators io.encodings threads concurrency.combinators
concurrency.semaphores ; concurrency.semaphores combinators.short-circuit ;
IN: io.servers.connection IN: io.servers.connection
TUPLE: threaded-server TUPLE: threaded-server

3
extra/lcs/lcs.factor
View File

@ -1,5 +1,6 @@
USING: sequences kernel math locals math.order math.ranges USING: sequences kernel math locals math.order math.ranges
accessors combinators.lib arrays namespaces combinators ; accessors combinators.lib arrays namespaces combinators
combinators.short-circuit ;
IN: lcs IN: lcs
<PRIVATE <PRIVATE

2
extra/lisp/lisp.factor
View File

@ -3,7 +3,7 @@
USING: kernel peg sequences arrays strings combinators.lib USING: kernel peg sequences arrays strings combinators.lib
namespaces combinators math locals locals.private locals.backend accessors namespaces combinators math locals locals.private locals.backend accessors
vectors syntax lisp.parser assocs parser sequences.lib words vectors syntax lisp.parser assocs parser sequences.lib words
quotations fry lists inspector ; quotations fry lists inspector combinators.short-circuit ;
IN: lisp IN: lisp
DEFER: convert-form DEFER: convert-form

2
extra/lisp/parser/parser.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2008 James Cash ! Copyright (C) 2008 James Cash
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel peg peg.ebnf peg.expr math.parser sequences arrays strings USING: kernel peg peg.ebnf peg.expr math.parser sequences arrays strings
combinators.lib math fry accessors lists ; combinators.lib math fry accessors lists combinators.short-circuit ;
IN: lisp.parser IN: lisp.parser

2
extra/lsys/strings/interpret/interpret.factor
View File

@ -1,6 +1,6 @@
USING: kernel sequences quotations assocs math math.parser USING: kernel sequences quotations assocs math math.parser
combinators.lib vars lsys.strings ; combinators.lib vars lsys.strings combinators.short-circuit ;
IN: lsys.strings.interpret IN: lsys.strings.interpret

2
extra/lsys/strings/rewrite/rewrite.factor
View File

@ -1,6 +1,6 @@
USING: kernel sbufs strings sequences assocs math USING: kernel sbufs strings sequences assocs math
combinators.lib vars lsys.strings ; combinators.lib vars lsys.strings combinators.short-circuit ;
IN: lsys.strings.rewrite IN: lsys.strings.rewrite

2
extra/lsys/strings/strings.factor
View File

@ -1,5 +1,5 @@
USING: kernel sequences math combinators.lib ; USING: kernel sequences math combinators.lib combinators.short-circuit ;
IN: lsys.strings IN: lsys.strings

2
extra/lsys/tortoise/graphics/graphics.factor
View File

@ -2,7 +2,7 @@
USING: kernel math vectors sequences opengl.gl math.vectors math.order USING: kernel math vectors sequences opengl.gl math.vectors math.order
math.matrices vars opengl self pos ori turtle lsys.tortoise math.matrices vars opengl self pos ori turtle lsys.tortoise
lsys.strings.interpret ; lsys.strings.interpret combinators.short-circuit ;
! lsys.strings ! lsys.strings

3
extra/lsys/ui/ui.factor
View File

@ -16,7 +16,8 @@ USING: kernel namespaces threads math math.order math.vectors
vars rewrite-closures vars rewrite-closures
self pos ori turtle opengl.camera self pos ori turtle opengl.camera
lsys.tortoise lsys.tortoise.graphics lsys.tortoise lsys.tortoise.graphics
lsys.strings.rewrite lsys.strings.interpret ; lsys.strings.rewrite lsys.strings.interpret
combinators.short-circuit ;
! lsys.strings ! lsys.strings
! lsys.strings.rewrite ! lsys.strings.rewrite

3
extra/math/text/english/english.factor
View File

@ -1,7 +1,8 @@
! Copyright (c) 2007 Aaron Schaefer. ! Copyright (c) 2007 Aaron Schaefer.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: combinators.lib kernel math math.functions math.parser namespaces USING: combinators.lib kernel math math.functions math.parser namespaces
sequences splitting grouping sequences.lib ; sequences splitting grouping sequences.lib
combinators.short-circuit ;
IN: math.text.english IN: math.text.english
<PRIVATE <PRIVATE

3
extra/peg/ebnf/ebnf.factor
View File

@ -3,7 +3,8 @@
USING: kernel compiler.units parser words arrays strings math.parser sequences USING: kernel compiler.units parser words arrays strings math.parser sequences
quotations vectors namespaces math assocs continuations peg quotations vectors namespaces math assocs continuations peg
peg.parsers unicode.categories multiline combinators.lib peg.parsers unicode.categories multiline combinators.lib
splitting accessors effects sequences.deep peg.search ; splitting accessors effects sequences.deep peg.search
combinators.short-circuit ;
IN: peg.ebnf IN: peg.ebnf
TUPLE: ebnf-non-terminal symbol ; TUPLE: ebnf-non-terminal symbol ;

2
extra/project-euler/014/014.factor
View File

@ -1,7 +1,7 @@
! Copyright (c) 2007 Aaron Schaefer. ! Copyright (c) 2007 Aaron Schaefer.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays combinators.lib kernel math math.ranges namespaces sequences USING: arrays combinators.lib kernel math math.ranges namespaces sequences
sorting ; sorting combinators.short-circuit ;
IN: project-euler.014 IN: project-euler.014
! http://projecteuler.net/index.php?section=problems&id=14 ! http://projecteuler.net/index.php?section=problems&id=14

2
extra/project-euler/017/017.factor
View File

@ -1,7 +1,7 @@
! Copyright (c) 2007 Aaron Schaefer. ! Copyright (c) 2007 Aaron Schaefer.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel math.ranges math.text.english sequences sequences.lib strings USING: kernel math.ranges math.text.english sequences sequences.lib strings
ascii ; ascii combinators.short-circuit ;
IN: project-euler.017 IN: project-euler.017
! http://projecteuler.net/index.php?section=problems&id=17 ! http://projecteuler.net/index.php?section=problems&id=17

3
extra/project-euler/021/021.factor
View File

@ -1,7 +1,8 @@
! Copyright (c) 2007 Aaron Schaefer. ! Copyright (c) 2007 Aaron Schaefer.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: combinators.lib kernel math math.functions math.ranges namespaces USING: combinators.lib kernel math math.functions math.ranges namespaces
project-euler.common sequences sequences.lib ; project-euler.common sequences sequences.lib
combinators.short-circuit ;
IN: project-euler.021 IN: project-euler.021
! http://projecteuler.net/index.php?section=problems&id=21 ! http://projecteuler.net/index.php?section=problems&id=21

2
extra/project-euler/036/036.factor
View File

@ -1,7 +1,7 @@
! Copyright (c) 2008 Aaron Schaefer. ! Copyright (c) 2008 Aaron Schaefer.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: combinators.lib kernel math.parser math.ranges project-euler.common USING: combinators.lib kernel math.parser math.ranges project-euler.common
sequences ; sequences combinators.short-circuit ;
IN: project-euler.036 IN: project-euler.036
! http://projecteuler.net/index.php?section=problems&id=36 ! http://projecteuler.net/index.php?section=problems&id=36

3
extra/project-euler/043/043.factor
View File

@ -1,7 +1,8 @@
! Copyright (c) 2008 Aaron Schaefer. ! Copyright (c) 2008 Aaron Schaefer.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: combinators.lib hashtables kernel math math.combinatorics math.parser USING: combinators.lib hashtables kernel math math.combinatorics math.parser
math.ranges project-euler.common sequences sequences.lib sorting sets ; math.ranges project-euler.common sequences sequences.lib sorting
sets combinators.short-circuit ;
IN: project-euler.043 IN: project-euler.043
! http://projecteuler.net/index.php?section=problems&id=43 ! http://projecteuler.net/index.php?section=problems&id=43

3
extra/project-euler/052/052.factor
View File

@ -1,6 +1,7 @@
! Copyright (c) 2008 Aaron Schaefer. ! Copyright (c) 2008 Aaron Schaefer.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: combinators.lib kernel math project-euler.common sequences sorting ; USING: combinators.lib kernel math project-euler.common sequences
sorting combinators.short-circuit ;
IN: project-euler.052 IN: project-euler.052
! http://projecteuler.net/index.php?section=problems&id=52 ! http://projecteuler.net/index.php?section=problems&id=52

2
extra/project-euler/project-euler.factor
View File

@ -17,7 +17,7 @@ USING: definitions io io.files kernel math math.parser project-euler.ave-time
project-euler.052 project-euler.053 project-euler.056 project-euler.059 project-euler.052 project-euler.053 project-euler.056 project-euler.059
project-euler.067 project-euler.075 project-euler.079 project-euler.092 project-euler.067 project-euler.075 project-euler.079 project-euler.092
project-euler.097 project-euler.134 project-euler.169 project-euler.173 project-euler.097 project-euler.134 project-euler.169 project-euler.173
project-euler.175 ; project-euler.175 combinators.short-circuit ;
IN: project-euler IN: project-euler
<PRIVATE <PRIVATE

3
extra/regexp/regexp.factor
View File

@ -1,7 +1,8 @@
USING: arrays combinators kernel lists math math.parser USING: arrays combinators kernel lists math math.parser
namespaces parser parser-combinators parser-combinators.simple namespaces parser parser-combinators parser-combinators.simple
promises quotations sequences combinators.lib strings math.order promises quotations sequences combinators.lib strings math.order
assocs prettyprint.backend memoize unicode.case unicode.categories ; assocs prettyprint.backend memoize unicode.case unicode.categories
combinators.short-circuit ;
USE: io USE: io
IN: regexp IN: regexp

3
extra/shell/shell.factor
View File

@ -2,7 +2,8 @@
USING: kernel parser words continuations namespaces debugger USING: kernel parser words continuations namespaces debugger
sequences combinators splitting prettyprint sequences combinators splitting prettyprint
system io io.files io.launcher io.encodings.utf8 io.pipes sequences.deep system io io.files io.launcher io.encodings.utf8 io.pipes sequences.deep
accessors multi-methods newfx shell.parser ; accessors multi-methods newfx shell.parser
combinators.short-circuit ;
IN: shell IN: shell

3
extra/xmode/marker/marker.factor
View File

@ -2,7 +2,8 @@ IN: xmode.marker
USING: kernel namespaces xmode.rules xmode.tokens USING: kernel namespaces xmode.rules xmode.tokens
xmode.marker.state xmode.marker.context xmode.utilities xmode.marker.state xmode.marker.context xmode.utilities
xmode.catalog sequences math assocs combinators combinators.lib xmode.catalog sequences math assocs combinators combinators.lib
strings regexp splitting parser-combinators ascii unicode.case ; strings regexp splitting parser-combinators ascii unicode.case
combinators.short-circuit ;
! Based on org.gjt.sp.jedit.syntax.TokenMarker ! Based on org.gjt.sp.jedit.syntax.TokenMarker