Kick off 0.85 by creating a new tools vocabulary and putting a bunch of stuff, including 'walk' there

slava 2006-09-05 05:29:26 +00:00
parent 7a6ff3449a
commit 587d02d35a
45 changed files with 54 additions and 49 deletions

View File

@ -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+ \

View File

@ -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??

View File

@ -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 ;

View File

@ -33,7 +33,7 @@ USE: strings
USE: math
USE: namespaces
USE: prettyprint
USE: inspector
USE: tools
USE: sequences
: display-page ( title -- )

View File

@ -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

View File

@ -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 -- )

View File

@ -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 ;

View File

@ -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> ;

View File

@ -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.

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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" }

View File

@ -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 ;

View File

@ -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 ;

View File

@ -93,7 +93,7 @@ IN: factorbot-commands
not-found
] [
nip [
dup synopsis " -- "
dup summary " -- "
rot object-href append3 respond
] each
] if ;

View File

@ -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." } ;

View File

@ -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 ;

View File

@ -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 ;

View File

@ -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 ;

View File

@ -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

View File

@ -1,5 +1,5 @@
IN: help
USING: arrays definitions inspector io math prettyprint
USING: arrays definitions tools io math prettyprint
sequences ;
HELP: print-element

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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 ;

View File

@ -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

View File

@ -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 ;

View File

@ -1,4 +1,4 @@
IN: inspector
IN: tools
USING: help io kernel prettyprint words ;
HELP: sheet

View File

@ -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 ;

View File

@ -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 ;

View File

@ -1,4 +1,4 @@
IN: inspector
IN: tools
USING: errors help ;
HELP: inspector-slots

View File

@ -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 [

View File

@ -1,5 +1,5 @@
IN: words
USING: help ;
IN: tools
USING: help words ;
HELP: usage.
{ $values { "word" "a word" } }

View File

@ -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

View File

@ -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 ;

View File

@ -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 ;

View File

@ -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 ;

View File

@ -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 ;

View File

@ -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 ;

View File

@ -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>

View File

@ -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 ;

View File

@ -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" } }

View File

@ -1,2 +1,2 @@
IN: kernel
: version "0.84" ;
: version "0.85" ;