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

Dataflow visualizer fixes

slava 2006-09-30 04:03:46 +00:00
parent 917d3ebd05
commit db8827d86c
4 changed files with 31 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
TODO.FACTOR.txt
View File

@ -1,19 +1,13 @@
- auto-invoke code gc - auto-invoke code gc
- code gc sig11 - signal 4 on datastack underflow on mac intel??
- cocoa: support real redefinition - fix alien-callback/SEH bug on win32
- fix this:
[ 1 2 3 4 5 6 7 8 9 10 10 10 10 10 10 10 10 10 10 11 11 11 113 ] .
[ 1 2 3 4 5 6 7 8 9 10 10 10 10 10 10 10 10 10 10 11 11 11 113
]
- prettier printing of hashtable literals, alists, cond, ...
- ui quick start doc
- x11: scroll up/down wiggles caret
- slider needs to be modelized
- more compact relocation info
- hashed generic method dispatch
+ ui: + ui:
- nested presentation mouse over is not right
- ui quick start doc
- x11: scroll up/down wiggles caret
- slider needs to be modelized
- [ ] write in the UI breaks stuff - [ ] write in the UI breaks stuff
- some way of intercepting all gestures - some way of intercepting all gestures
- pane output in UI should use less memory - pane output in UI should use less memory
@ -28,7 +22,6 @@
- keyboard navigation - keyboard navigation
- ui browser: show currently selected vocab & words - ui browser: show currently selected vocab & words
- keyboard-navigatable list gadget of some kind - keyboard-navigatable list gadget of some kind
- tuple= in dataflow view
- auto-update browser and help when sources reload - auto-update browser and help when sources reload
- how do we refer to command shortcuts in the docs? - how do we refer to command shortcuts in the docs?
- figure out if we need both set-model and set-model* - figure out if we need both set-model and set-model*
@ -43,7 +36,6 @@
- double/triple click - double/triple click
- autoscroll - autoscroll
- transpose char/word/line - transpose char/word/line
- drag scroll
- more efficient multi-line inserts - more efficient multi-line inserts
- write "foo| " and put caret at | then select word element: selects - write "foo| " and put caret at | then select word element: selects
space space
@ -77,6 +69,8 @@
+ compiler/ffi: + compiler/ffi:
- more compact relocation info
- cocoa: support real redefinition
- problem if major gc happens during relocation - problem if major gc happens during relocation
- in fact relocation should not cons at all - in fact relocation should not cons at all
- stdcall callbacks - stdcall callbacks
@ -102,8 +96,12 @@
+ misc: + misc:
- signal 4 on datastack underflow on mac intel?? - hashed generic method dispatch
- fix alien-callback/SEH bug on win32 - fix this:
[ 1 2 3 4 5 6 7 8 9 10 10 10 10 10 10 10 10 10 10 11 11 11 113 ] .
[ 1 2 3 4 5 6 7 8 9 10 10 10 10 10 10 10 10 10 10 11 11 11 113
]
- prettier printing of hashtable literals, alists, cond, ...
- minor GC takes too long now, we should card mark code heap - minor GC takes too long now, we should card mark code heap
- buffer-ptr should be an alien - buffer-ptr should be an alien
- swap nappend ==> nappend - swap nappend ==> nappend

2
library/compiler/inference/dataflow.factor
View File

@ -96,7 +96,7 @@ C: #dispatch make-node ;
TUPLE: #merge ; TUPLE: #merge ;
C: #merge make-node ; C: #merge make-node ;
: #merge ( -- node ) meta-d get clone out-node <#merge> ; : #merge ( -- node ) meta-d-node <#merge> ;
TUPLE: #terminate ; TUPLE: #terminate ;
C: #terminate make-node ; C: #terminate make-node ;

2
library/ui/tools/dataflow.factor
View File

@ -148,9 +148,9 @@ DEFER: (compute-heights)
: (compute-heights) ( node -- ) : (compute-heights) ( node -- )
[ [
d-height get over 2array , d-height get over 2array ,
dup compute-child-heights
dup node-out-d length over node-in-d length - dup node-out-d length over node-in-d length -
d-height [ + ] change d-height [ + ] change
dup compute-child-heights
node-successor (compute-heights) node-successor (compute-heights)
] when* ; ] when* ;

22
library/ui/tools/operations.factor
View File

@ -105,6 +105,12 @@ M: operation invoke-command ( target operation -- )
{ +listener+ t } { +listener+ t }
} define-operation } define-operation
[ word? ] H{
{ +name+ "Word dataflow" }
{ +keyboard+ T{ key-down f { A+ } "d" } }
{ +quot+ [ word-def show-dataflow ] }
} define-operation
! Vocabularies ! Vocabularies
[ vocab-link? ] H{ [ vocab-link? ] H{
{ +mouse+ T{ button-up f f 1 } } { +mouse+ T{ button-up f f 1 } }
@ -166,7 +172,7 @@ M: operation invoke-command ( target operation -- )
} define-operation } define-operation
[ quotation? ] H{ [ quotation? ] H{
{ +name+ "Dataflow" } { +name+ "Quotation dataflow" }
{ +keyboard+ T{ key-down f { C+ A+ } "d" } } { +keyboard+ T{ key-down f { C+ A+ } "d" } }
{ +quot+ [ show-dataflow ] } { +quot+ [ show-dataflow ] }
{ +listener+ t } { +listener+ t }
@ -187,18 +193,20 @@ M: operation invoke-command ( target operation -- )
} define-operation } define-operation
! Dataflow nodes ! Dataflow nodes
[ word? ] H{
{ +name+ "Dataflow" }
{ +keyboard+ T{ key-down f { A+ } "d" } }
{ +quot+ [ word-def show-dataflow ] }
} define-operation
[ [ node? ] is? ] H{ [ [ node? ] is? ] H{
{ +mouse+ T{ button-up f f 1 } } { +mouse+ T{ button-up f f 1 } }
{ +name+ "Quotation dataflow" } { +name+ "Show dataflow" }
{ +quot+ [ dataflow-gadget call-tool ] } { +quot+ [ dataflow-gadget call-tool ] }
} define-operation } define-operation
[ [ node? ] is? ] H{
{ +mouse+ T{ button-up f { S+ } 3 } }
{ +name+ "Inspect" }
{ +quot+ [ inspect ] }
{ +listener+ t }
} define-operation
! Define commands in terms of operations ! Define commands in terms of operations
! Tile commands ! Tile commands