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

Debugging tree shaker

db4
Slava Pestov 2008-10-02 06:41:17 -05:00
parent e722698b1b
commit 58edcddea8
2 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
basis/tools/deploy/shaker/shaker.factor
View File

@ -85,8 +85,8 @@ IN: tools.deploy.shaker
] change-props drop ] change-props drop
] each ] each
] [ ] [
"Remaining word properties:" print "Remaining word properties:\n" show
[ props>> keys ] gather . [ props>> keys ] gather unparse show
] [ ] [
H{ } clone '[ H{ } clone '[
[ [ _ [ ] cache ] map ] change-props drop [ [ _ [ ] cache ] map ] change-props drop
@ -360,15 +360,21 @@ SYMBOL: deploy-vocab
init-hooks get values concat % init-hooks get values concat %
, ,
strip-io? [ \ flush , ] unless strip-io? [ \ flush , ] unless
] [ ] make "Boot quotation: " write dup . flush ] [ ] make "Boot quotation: " show dup unparse show
set-boot-quot ; set-boot-quot ;
: init-stripper ( -- )
t "quiet" set-global
f output-stream set-global ;
: strip ( -- ) : strip ( -- )
strip-c-io init-stripper
strip-libc strip-libc
strip-cocoa strip-cocoa
strip-debugger strip-debugger
strip-init-hooks strip-init-hooks
strip-c-io
f 5 setenv ! we can't use the Factor debugger or Factor I/O anymore
deploy-vocab get vocab-main set-boot-quot* deploy-vocab get vocab-main set-boot-quot*
stripped-word-props >r stripped-word-props >r
stripped-globals strip-globals stripped-globals strip-globals

9
basis/tools/deploy/shaker/strip-cocoa.factor
View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: cocoa cocoa.messages cocoa.application cocoa.nibs assocs USING: cocoa cocoa.messages cocoa.application cocoa.nibs assocs
namespaces kernel kernel.private words compiler.units sequences namespaces kernel kernel.private words compiler.units sequences
ui ui.cocoa init ; init vocabs ;
IN: tools.deploy.shaker.cocoa IN: tools.deploy.shaker.cocoa
: pool ( obj -- obj' ) \ pool get [ ] cache ; : pool ( obj -- obj' ) \ pool get [ ] cache ;
@ -23,9 +23,12 @@ IN: cocoa.application
H{ } clone \ pool [ H{ } clone \ pool [
global [ global [
stop-after-last-window? set "stop-after-last-window?" "ui" lookup set
[ "MiniFactor.nib" load-nib ] cocoa-init-hook set-global "ui.cocoa" vocab [
[ "MiniFactor.nib" load-nib ]
"cocoa-init-hook" "ui.cocoa" lookup set-global
] when
! Only keeps those methods that we actually call ! Only keeps those methods that we actually call
sent-messages get super-sent-messages get assoc-union sent-messages get super-sent-messages get assoc-union