Kick off 0.85 by creating a new tools vocabulary and putting a bunch of stuff, including 'walk' there
parent
7a6ff3449a
commit
587d02d35a
1
Makefile
1
Makefile
|
|
@ -118,6 +118,7 @@ macosx.dmg:
|
|||
-o -name '*.el' \
|
||||
-o -name '*.vim' \
|
||||
-o -name '*.fgen' \
|
||||
-o -name '*.tex' \
|
||||
-o -name '*.js' \) \
|
||||
-exec ./cp_dir {} $(DISK_IMAGE_DIR)/Factor/{} \;
|
||||
hdiutil create -srcfolder "$(DISK_IMAGE_DIR)" -fs HFS+ \
|
||||
|
|
|
|||
|
|
@ -1,5 +1,6 @@
|
|||
+ 0.85:
|
||||
|
||||
- factorbot is broken
|
||||
- ENTER key on keypad should do something
|
||||
- pane output in UI should use less memory
|
||||
- signal 4 on datastack underflow on mac intel??
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
IN: calendar
|
||||
USING: arrays errors generic hashtables io kernel math
|
||||
namespaces sequences strings prettyprint inspector ;
|
||||
namespaces sequences strings prettyprint tools ;
|
||||
|
||||
TUPLE: timestamp year month day hour minute second gmt-offset ;
|
||||
TUPLE: dt year month day hour minute second ;
|
||||
|
|
|
|||
|
|
@ -33,7 +33,7 @@ USE: strings
|
|||
USE: math
|
||||
USE: namespaces
|
||||
USE: prettyprint
|
||||
USE: inspector
|
||||
USE: tools
|
||||
USE: sequences
|
||||
|
||||
: display-page ( title -- )
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
! Copyright (C) 2004, 2006 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: callback-responder generic hashtables help http inspector
|
||||
USING: callback-responder generic hashtables help http tools
|
||||
io kernel math namespaces prototype-js sequences strings styles
|
||||
words xml ;
|
||||
IN: html
|
||||
|
|
|
|||
|
|
@ -2,7 +2,7 @@
|
|||
! See http://factorcode.org/license.txt for BSD license.
|
||||
IN: inspect-responder
|
||||
USING: callback-responder generic hashtables help html httpd
|
||||
inspector kernel namespaces prettyprint sequences ;
|
||||
tools kernel namespaces prettyprint sequences ;
|
||||
|
||||
! Mini object inspector
|
||||
: http-inspect ( obj -- )
|
||||
|
|
|
|||
|
|
@ -25,7 +25,7 @@ USING: kernel namespaces sequences strings math hashtables parser-combinators ;
|
|||
IN: json
|
||||
|
||||
! Grammar for JSON from RFC 4627
|
||||
USE: inspector
|
||||
USE: tools
|
||||
|
||||
: [<&>] ( quot - quot )
|
||||
{ } make unclip [ <&> ] reduce ;
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
IN: math-contrib
|
||||
USING: kernel sequences errors namespaces math vectors errors prettyprint io inspector ;
|
||||
USING: kernel sequences errors namespaces math vectors errors prettyprint io tools ;
|
||||
|
||||
: setup-range ( from to -- frange )
|
||||
step-size get swap <frange> ;
|
||||
|
|
|
|||
|
|
@ -28,7 +28,8 @@
|
|||
! http://www.bluishcoder.co.nz/2006/03/factor-partial-continuation-updates.html
|
||||
!
|
||||
IN: continuations
|
||||
USING: kernel io math prettyprint inspector lists arrays sequences namespaces ;
|
||||
USING: kernel io math prettyprint tools lists arrays sequences
|
||||
namespaces ;
|
||||
|
||||
: breset ( quot -- )
|
||||
#! Marks the boundary of the partial continuation.
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
USING: kernel math math-internals memory sequences namespaces errors
|
||||
hashtables words arrays parser compiler syntax io
|
||||
inspector prettyprint optimizer inference ;
|
||||
tools prettyprint optimizer inference ;
|
||||
IN: random-tester
|
||||
|
||||
! n-foo>bar -- list of words of type 'foo' that take n parameters
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
USING: kernel math sequences namespaces errors hashtables words
|
||||
arrays parser compiler syntax io inspector prettyprint optimizer
|
||||
arrays parser compiler syntax io tools prettyprint optimizer
|
||||
inference ;
|
||||
IN: random-tester
|
||||
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
USING: kernel math sequences namespaces errors hashtables words
|
||||
arrays parser compiler syntax io optimizer inference inspector
|
||||
arrays parser compiler syntax io optimizer inference tools
|
||||
prettyprint ;
|
||||
IN: random-tester
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
USING: arrays errors inspector io kernel math namespaces
|
||||
USING: arrays errors tools io kernel math namespaces
|
||||
prettyprint sequences vectors words ;
|
||||
IN: units
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
USING: errors gadgets-tracks generic hashtables help io kernel
|
||||
math memory sequences words compiler parser modules definitions
|
||||
;
|
||||
tools ;
|
||||
|
||||
ARTICLE: "changes" "Changes in the latest release"
|
||||
{ $heading "Factor 0.84" }
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
USING: alien errors generic hashtables help inference inspector
|
||||
USING: alien errors generic hashtables help inference tools
|
||||
io-internals io libc math-internals modules namespaces parser
|
||||
prettyprint queues sequences sequences-internals test words
|
||||
kernel generic ;
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
USING: definitions errors help image inspector io kernel
|
||||
USING: definitions errors help image tools io kernel
|
||||
listener memory modules parser prettyprint sequences test
|
||||
words shells ;
|
||||
|
||||
|
|
|
|||
|
|
@ -93,7 +93,7 @@ IN: factorbot-commands
|
|||
not-found
|
||||
] [
|
||||
nip [
|
||||
dup synopsis " -- "
|
||||
dup summary " -- "
|
||||
rot object-href append3 respond
|
||||
] each
|
||||
] if ;
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
IN: hashtables
|
||||
USING: hashtables-internals help inspector kernel prettyprint ;
|
||||
USING: hashtables-internals help tools kernel prettyprint ;
|
||||
|
||||
HELP: hashtable
|
||||
{ $description "The class of hashtables. See " { $link "syntax-hashtables" } " for syntax and " { $link "hashtables" } " for general information." } ;
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
! Copyright (C) 2006 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
IN: alien
|
||||
USING: compiler errors generic hashtables inference inspector
|
||||
USING: compiler errors generic hashtables inference
|
||||
kernel namespaces sequences strings words parser ;
|
||||
|
||||
TUPLE: alien-callback return parameters quot xt ;
|
||||
|
|
|
|||
|
|
@ -2,7 +2,7 @@
|
|||
! See http://factorcode.org/license.txt for BSD license.
|
||||
IN: alien
|
||||
USING: arrays assembler compiler compiler
|
||||
errors generic hashtables inference inspector
|
||||
errors generic hashtables inference
|
||||
io kernel kernel-internals math namespaces parser
|
||||
prettyprint sequences strings words parser ;
|
||||
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
! Copyright (C) 2004, 2006 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
IN: inference
|
||||
USING: arrays errors generic inspector io kernel
|
||||
USING: arrays errors generic io kernel
|
||||
math namespaces parser prettyprint sequences strings
|
||||
vectors words ;
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
! Copyright (C) 2005, 2006 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: arrays definitions generic hashtables inspector io kernel
|
||||
USING: arrays definitions generic hashtables io kernel
|
||||
namespaces parser prettyprint sequences strings styles vectors
|
||||
words ;
|
||||
IN: help
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
IN: help
|
||||
USING: arrays definitions inspector io math prettyprint
|
||||
USING: arrays definitions tools io math prettyprint
|
||||
sequences ;
|
||||
|
||||
HELP: print-element
|
||||
|
|
|
|||
|
|
@ -2,7 +2,7 @@
|
|||
! See http://factorcode.org/license.txt for BSD license.
|
||||
IN: help
|
||||
USING: arrays definitions errors generic graphs hashtables
|
||||
inspector io kernel namespaces prettyprint sequences words ;
|
||||
io kernel namespaces prettyprint sequences words ;
|
||||
|
||||
! Help articles
|
||||
SYMBOL: articles
|
||||
|
|
|
|||
|
|
@ -108,10 +108,10 @@ global [
|
|||
{
|
||||
"scratchpad" "syntax" "arrays" "compiler" "definitions"
|
||||
"errors" "generic" "hashtables" "help" "inference"
|
||||
"inspector" "io" "kernel" "listener" "math"
|
||||
"io" "kernel" "listener" "math"
|
||||
"memory" "modules" "namespaces" "parser" "prettyprint"
|
||||
"sequences" "shells" "strings" "styles" "test"
|
||||
"threads" "vectors" "words"
|
||||
"threads" "tools" "vectors" "words"
|
||||
} set-use
|
||||
"scratchpad" set-in
|
||||
] bind
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
IN: temporary
|
||||
USING: kernel inspector math namespaces prettyprint test
|
||||
USING: kernel tools math namespaces prettyprint test
|
||||
sequences ;
|
||||
|
||||
[ 1 2 3 ] describe
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
! Copyright (C) 2003, 2006 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
IN: test
|
||||
USING: arrays errors hashtables inspector io kernel math
|
||||
USING: arrays errors hashtables tools io kernel math
|
||||
memory namespaces parser prettyprint sequences strings words
|
||||
vectors ;
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
! Copyright (C) 2004, 2006 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: arrays definitions generic hashtables help inspector io
|
||||
USING: arrays definitions generic hashtables help tools io
|
||||
kernel kernel-internals math namespaces parser prettyprint
|
||||
sequences sequences-internals strings styles vectors words ;
|
||||
IN: errors
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
! Copyright (C) 2005, 2006 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
IN: inspector
|
||||
IN: tools
|
||||
USING: arrays generic hashtables io kernel kernel-internals
|
||||
math namespaces prettyprint sequences strings styles vectors
|
||||
words ;
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
IN: inspector
|
||||
IN: tools
|
||||
USING: help io kernel prettyprint words ;
|
||||
|
||||
HELP: sheet
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
! Copyright (C) 2006 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
IN: errors
|
||||
USING: alien generic help inference inspector io kernel libc
|
||||
USING: alien generic help inference tools io kernel libc
|
||||
math math-internals parser prettyprint queues sequences
|
||||
sequences-internals strings test words ;
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
! Copyright (C) 2005 Slava Pestov.
|
||||
! See http://factor.sf.net/license.txt for BSD license.
|
||||
IN: inspector
|
||||
IN: tools
|
||||
USING: arrays generic io kernel listener math memory namespaces
|
||||
prettyprint sequences words ;
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
IN: inspector
|
||||
IN: tools
|
||||
USING: errors help ;
|
||||
|
||||
HELP: inspector-slots
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
! Copyright (C) 2005, 2006 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
IN: words
|
||||
USING: arrays definitions hashtables help inspector io kernel
|
||||
math namespaces prettyprint sequences strings styles ;
|
||||
IN: tools
|
||||
USING: arrays definitions hashtables help tools io kernel
|
||||
math namespaces prettyprint sequences strings styles words ;
|
||||
|
||||
: word-outliner ( word quot -- )
|
||||
swap natural-sort [
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
IN: words
|
||||
USING: help ;
|
||||
IN: tools
|
||||
USING: help words ;
|
||||
|
||||
HELP: usage.
|
||||
{ $values { "word" "a word" } }
|
||||
|
|
|
|||
|
|
@ -4,7 +4,7 @@ IN: gadgets-presentations
|
|||
USING: arrays definitions gadgets gadgets-borders
|
||||
gadgets-buttons gadgets-grids gadgets-labels gadgets-outliner
|
||||
gadgets-panes gadgets-paragraphs gadgets-theme generic
|
||||
hashtables inspector io kernel prettyprint sequences strings
|
||||
hashtables tools io kernel prettyprint sequences strings
|
||||
styles words help math models namespaces ;
|
||||
|
||||
! Clickable objects
|
||||
|
|
|
|||
|
|
@ -4,7 +4,7 @@ USING: arrays sequences kernel gadgets-panes definitions
|
|||
prettyprint gadgets-theme gadgets-borders gadgets
|
||||
generic gadgets-scrolling math io words models styles
|
||||
namespaces gadgets-tracks gadgets-presentations gadgets-grids
|
||||
gadgets-frames help gadgets-buttons gadgets-search ;
|
||||
gadgets-frames help gadgets-buttons gadgets-search tools ;
|
||||
IN: gadgets-browser
|
||||
|
||||
TUPLE: browser navigator definitions search ;
|
||||
|
|
|
|||
|
|
@ -3,7 +3,7 @@
|
|||
IN: gadgets-listener
|
||||
USING: arrays gadgets gadgets-frames gadgets-labels
|
||||
gadgets-panes gadgets-scrolling gadgets-text gadgets-theme
|
||||
gadgets-tracks generic hashtables inspector io
|
||||
gadgets-tracks generic hashtables tools io
|
||||
kernel listener math models namespaces parser prettyprint
|
||||
sequences shells styles threads words memory ;
|
||||
|
||||
|
|
|
|||
|
|
@ -3,7 +3,7 @@
|
|||
IN: gadgets-search
|
||||
USING: arrays gadgets gadgets-frames gadgets-labels
|
||||
gadgets-panes gadgets-scrolling gadgets-text gadgets-theme
|
||||
generic help inspector kernel models sequences words
|
||||
generic help tools kernel models sequences words
|
||||
gadgets-borders ;
|
||||
|
||||
TUPLE: search-gadget input ;
|
||||
|
|
|
|||
|
|
@ -3,7 +3,7 @@
|
|||
IN: gadgets-walker
|
||||
USING: arrays errors gadgets gadgets-buttons gadgets-frames
|
||||
gadgets-listener gadgets-panes gadgets-scrolling gadgets-text
|
||||
gadgets-tracks generic hashtables inspector
|
||||
gadgets-tracks generic hashtables tools
|
||||
interpreter io kernel kernel-internals listener math models
|
||||
namespaces sequences shells threads vectors ;
|
||||
|
||||
|
|
|
|||
|
|
@ -4,9 +4,9 @@ USING: arrays gadgets gadgets-listener gadgets-buttons
|
|||
gadgets-walker gadgets-help gadgets-walker sequences
|
||||
gadgets-browser gadgets-books gadgets-frames gadgets-controls
|
||||
gadgets-grids gadgets-presentations kernel models namespaces
|
||||
styles words help parser inspector memory generic threads
|
||||
styles words help parser tools memory generic threads
|
||||
gadgets-text definitions inference test prettyprint math strings
|
||||
hashtables ;
|
||||
hashtables tools ;
|
||||
IN: gadgets-workspace
|
||||
|
||||
GENERIC: call-tool* ( arg tool -- )
|
||||
|
|
@ -97,10 +97,14 @@ workspace {
|
|||
M: walker-gadget call-tool* ( arg tool -- )
|
||||
>r first2 r> (walk) ;
|
||||
|
||||
IN: tools
|
||||
|
||||
: walk ( quot -- )
|
||||
continuation dup continuation-data pop* 2array
|
||||
walker-gadget call-tool stop ;
|
||||
|
||||
IN: gadgets-workspace
|
||||
|
||||
! Listener tool
|
||||
G: call-listener ( quot/string listener -- )
|
||||
1 standard-combination ;
|
||||
|
|
|
|||
|
|
@ -3,7 +3,7 @@
|
|||
USING: alien arrays errors freetype gadgets gadgets-listener
|
||||
gadgets-workspace hashtables io kernel math namespaces prettyprint
|
||||
sequences strings vectors words win32-api win32-api-messages ;
|
||||
USING: inspector threads memory ;
|
||||
USING: tools threads memory ;
|
||||
IN: win32
|
||||
|
||||
! world-handle is a <win>
|
||||
|
|
|
|||
|
|
@ -5,8 +5,6 @@ IN: win32-api-messages
|
|||
|
||||
SYMBOL: windows-messages
|
||||
|
||||
USE: inspector
|
||||
|
||||
: maybe-create-windows-messages
|
||||
windows-messages get hashtable?
|
||||
[ H{ } clone global [ windows-messages set ] bind ] unless ;
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
IN: words
|
||||
USING: definitions help inspector kernel kernel-internals parser ;
|
||||
USING: definitions help tools kernel kernel-internals parser ;
|
||||
|
||||
HELP: execute ( word -- )
|
||||
{ $values { "word" "a word" } }
|
||||
|
|
|
|||
|
|
@ -1,2 +1,2 @@
|
|||
IN: kernel
|
||||
: version "0.84" ;
|
||||
: version "0.85" ;
|
||||
|
|
|
|||
Loading…
Reference in New Issue