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

ui.tools.operations: disposables now have a 'dispose' operation, and disposables created within a 'leaks' now have an operation which shows the continuation that created them

db4
Slava Pestov 2009-08-24 20:22:00 -05:00
parent b12bbaf7ec
commit 623ddfca6f
1 changed files with 26 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
basis/ui/tools/operations/operations.factor
View File

@ -1,15 +1,16 @@
! Copyright (C) 2006, 2009 Slava Pestov. ! Copyright (C) 2006, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: continuations definitions generic help.topics threads USING: continuations definitions generic help.topics threads
stack-checker summary io.pathnames io.styles kernel namespaces parser stack-checker summary io.pathnames io.styles kernel namespaces
prettyprint quotations tools.crossref tools.annotations editors parser prettyprint quotations tools.crossref tools.annotations
tools.profiler tools.test tools.time tools.walker vocabs vocabs.loader editors tools.profiler tools.test tools.time tools.walker vocabs
words sequences classes compiler.errors compiler.units vocabs.loader words sequences classes compiler.errors
accessors vocabs.parser macros.expander ui ui.tools.browser compiler.units accessors vocabs.parser macros.expander ui
ui.tools.listener ui.tools.listener.completion ui.tools.profiler ui.tools.browser ui.tools.listener ui.tools.listener.completion
ui.tools.inspector ui.tools.traceback ui.commands ui.gadgets.editors ui.tools.profiler ui.tools.inspector ui.tools.traceback
ui.gestures ui.operations ui.tools.deploy models help.tips ui.commands ui.gadgets.editors ui.gestures ui.operations
source-files.errors ; ui.tools.deploy models help.tips source-files.errors destructors
libc libc.private ;
IN: ui.tools.operations IN: ui.tools.operations
! Objects ! Objects
@ -182,6 +183,22 @@ M: word com-stack-effect 1quotation com-stack-effect ;
{ +listener+ t } { +listener+ t }
} define-operation } define-operation
! Disposables
[ disposable? ] \ dispose H{ } define-operation
! Disposables with a continuation
PREDICATE: tracked-disposable < disposable
continuation>> >boolean ;
PREDICATE: tracked-malloc-ptr < malloc-ptr
continuation>> >boolean ;
: com-creation-traceback ( disposable -- )
continuation>> traceback-window ;
[ tracked-disposable? ] \ com-creation-traceback H{ { +primary+ t } } define-operation
[ tracked-malloc-ptr? ] \ com-creation-traceback H{ { +primary+ t } } define-operation
! Operations -> commands ! Operations -> commands
interactor interactor
"quotation" "quotation"