suzanne.soy/macro-debugger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

unstable: added class-iop, gui/prefs (needs doc), gui/notify (needs doc)

Browse Source 
macro-debugger: changed imports for above, deleted dead code

svn: r16781

original commit: 2051f3ab2a2cfe9768ed9987c7cd9d00abb0aa8e
This commit is contained in:
Ryan Culpepper 2009-11-15 11:23:40 +00:00
parent 03dc493c41
commit 259cd8ae64
23 changed files with 64 additions and 69 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
collects/macro-debugger/model/context.ss
View File

@ -6,8 +6,7 @@
path-get
pathseg-get
path-replace
pathseg-replace
find-subterm-paths)
pathseg-replace)
;; A Path is a (list-of PathSeg)
;; where the PathSegs are listed outermost to innermost
@ -117,25 +116,3 @@
(define (sd x)
(syntax->datum (datum->syntax #f x)))
;;=======
;; find-subterm-paths : syntax syntax -> (list-of Path)
(define (find-subterm-paths subterm term)
(let outer-loop ([term term])
(cond [(eq? subterm term)
(list null)]
[(stx-pair? term)
;; Optimized for lists...
(let loop ([term term] [n 0])
(if (stx-pair? term)
(let* ([seg0 (make-ref n)])
(append (map (lambda (p) (cons seg0 p)) (outer-loop (stx-car term)))
(if (eq? subterm (stx-cdr term))
(list (list (make-tail n)))
(loop (stx-cdr term) (add1 n)))))
(let ([seg0 (make-tail n)])
(map (lambda (p) (cons seg0 p))
(outer-loop term)))))]
;; FIXME: more structured cases here: box, vector, ...
[else null])))

7
collects/macro-debugger/syntax-browser/controller.ss
View File

@ -1,10 +1,11 @@
#lang scheme/base
(require scheme/class
macro-debugger/util/class-iop
(rename-in unstable/class-iop
[send/i send:]
[init-field/i init-field:])
"interfaces.ss"
"partition.ss"
"../util/notify.ss")
unstable/gui/notify)
(provide controller%)
;; displays-manager-mixin

4
collects/macro-debugger/syntax-browser/display.ss
View File

@ -2,7 +2,9 @@
(require scheme/class
scheme/gui
scheme/list
macro-debugger/util/class-iop
(rename-in unstable/class-iop
[send/i send:]
[init-field/i init-field:])
(only-in mzlib/etc begin-with-definitions)
"pretty-printer.ss"
"interfaces.ss"

6
collects/macro-debugger/syntax-browser/frame.ss
View File

@ -1,6 +1,10 @@
#lang scheme/base
(require scheme/class
macro-debugger/util/class-iop
(rename-in unstable/class-iop
[define/i define:]
[send/i send:]
[send*/i send*:]
[init-field/i init-field:])
scheme/gui
framework/framework
scheme/list

2
collects/macro-debugger/syntax-browser/interfaces.ss
View File

@ -1,6 +1,6 @@
#lang scheme/base
(require scheme/class
macro-debugger/util/class-iop
unstable/class-iop
(for-syntax scheme/base))
(provide (all-defined-out))

2
collects/macro-debugger/syntax-browser/keymap.ss
View File

@ -1,7 +1,7 @@
#lang scheme/base
(require scheme/class
scheme/gui
"../util/notify.ss"
unstable/gui/notify
"interfaces.ss"
"partition.ss")
(provide smart-keymap%

4
collects/macro-debugger/syntax-browser/prefs.ss
View File

@ -3,8 +3,8 @@
(require scheme/class
framework/framework
"interfaces.ss"
"../util/notify.ss"
"../util/misc.ss")
unstable/gui/notify
unstable/gui/prefs)
(provide prefs-base%
syntax-prefs-base%
syntax-prefs%

4
collects/macro-debugger/syntax-browser/pretty-helper.ss
View File

@ -1,8 +1,8 @@
#lang scheme/base
(require scheme/class
scheme/pretty
macro-debugger/util/class-iop
(rename-in unstable/class-iop
[send/i send:])
syntax/stx
unstable/struct
"interfaces.ss")

4
collects/macro-debugger/syntax-browser/properties.ss
View File

@ -1,8 +1,8 @@
#lang scheme/base
(require scheme/class
scheme/gui
macro-debugger/util/class-iop
(rename-in unstable/class-iop
[send/i send:])
"interfaces.ss"
"util.ss"
"../util/mpi.ss")

6
collects/macro-debugger/syntax-browser/syntax-snip.ss
View File

@ -1,13 +1,13 @@
#lang scheme/base
(require scheme/class
macro-debugger/util/class-iop
(rename-in unstable/class-iop
[send/i send:])
scheme/match
scheme/list
mzlib/string
mred
framework
"../util/notify.ss"
unstable/gui/notify
"interfaces.ss"
"display.ss"
"controller.ss"

2
collects/macro-debugger/syntax-browser/text.ss
View File

@ -5,7 +5,7 @@
scheme/gui
drscheme/arrow
framework/framework
"../util/notify.ss")
unstable/gui/notify)
(provide text:hover<%>
text:hover-identifier<%>

4
collects/macro-debugger/syntax-browser/widget.ss
View File

@ -1,4 +1,3 @@
#lang scheme/base
(require scheme/class
mred
@ -6,7 +5,8 @@
scheme/list
scheme/match
syntax/id-table
macro-debugger/util/class-iop
(rename-in unstable/class-iop
[send/i send:])
"interfaces.ss"
"controller.ss"
"display.ss"

4
collects/macro-debugger/view/debug.ss
View File

@ -1,8 +1,8 @@
#lang scheme/base
(require scheme/pretty
scheme/class
macro-debugger/util/class-iop
(rename-in unstable/class-iop
[send/i send:])
"interfaces.ss"
"debug-format.ss"
"prefs.ss"

8
collects/macro-debugger/view/extensions.ss
View File

@ -1,7 +1,9 @@
#lang scheme/base
(require scheme/class
macro-debugger/util/class-iop
(rename-in unstable/class-iop
[send/i send:]
[send*/i send*:]
[init-field/i init-field:])
scheme/unit
scheme/list
scheme/match
@ -20,7 +22,7 @@
"../model/trace.ss"
"../model/steps.ss"
"cursor.ss"
"../util/notify.ss")
unstable/gui/notify)
(provide stepper-keymap%
stepper-syntax-widget%)

7
collects/macro-debugger/view/frame.ss
View File

@ -1,7 +1,8 @@
#lang scheme/base
(require scheme/class
macro-debugger/util/class-iop
(rename-in unstable/class-iop
[define/i define:]
[send/i send:])
scheme/unit
scheme/list
scheme/file
@ -21,7 +22,7 @@
"../model/trace.ss"
"../model/steps.ss"
"cursor.ss"
"../util/notify.ss")
unstable/gui/notify)
(provide macro-stepper-frame-mixin)
(define (macro-stepper-frame-mixin base-frame%)

7
collects/macro-debugger/view/hiding-panel.ss
View File

@ -1,14 +1,15 @@
#lang scheme/base
(require scheme/class
macro-debugger/util/class-iop
(rename-in unstable/class-iop
[send/i send:]
[init-field/i init-field:])
scheme/gui
scheme/list
syntax/boundmap
"interfaces.ss"
"../model/hiding-policies.ss"
"../util/mpi.ss"
"../util/notify.ss")
unstable/gui/notify)
(provide macro-hiding-prefs-widget%)
(define mode:disable "Disable")

3
collects/macro-debugger/view/interfaces.ss
View File

@ -1,6 +1,5 @@
#lang scheme/base
(require macro-debugger/util/class-iop
(require unstable/class-iop
(prefix-in sb: "../syntax-browser/interfaces.ss"))
(provide (all-defined-out))

4
collects/macro-debugger/view/prefs.ss
View File

@ -4,8 +4,8 @@
framework/framework
"interfaces.ss"
"../syntax-browser/prefs.ss"
"../util/notify.ss"
"../util/misc.ss")
unstable/gui/notify
unstable/gui/prefs)
(provide pref:macro-step-limit
macro-stepper-config-base%
macro-stepper-config/prefs%

8
collects/macro-debugger/view/step-display.ss
View File

@ -1,7 +1,9 @@
#lang scheme/base
(require scheme/class
macro-debugger/util/class-iop
(rename-in unstable/class-iop
[send/i send:]
[send*/i send*:]
[init-field/i init-field:])
scheme/unit
scheme/list
scheme/match
@ -20,7 +22,7 @@
"../model/reductions-config.ss"
"../model/reductions.ss"
"../model/steps.ss"
"../util/notify.ss"
unstable/gui/notify
(prefix-in sb: "../syntax-browser/interfaces.ss")
"cursor.ss"
"debug-format.ss")

9
collects/macro-debugger/view/stepper.ss
View File

@ -1,7 +1,10 @@
#lang scheme/base
(require scheme/class
macro-debugger/util/class-iop
(rename-in unstable/class-iop
[define/i define:]
[send/i send:]
[send*/i send*:]
[init-field/i init-field:])
scheme/unit
scheme/list
scheme/match
@ -22,7 +25,7 @@
"../model/reductions.ss"
"../model/steps.ss"
"cursor.ss"
"../util/notify.ss"
unstable/gui/notify
(only-in mzscheme [#%top-interaction mz-top-interaction]))
(provide macro-stepper-widget%
macro-stepper-widget/process-mixin)

7
collects/macro-debugger/view/term-record.ss
View File

@ -1,6 +1,9 @@
#lang scheme/base
(require scheme/class
macro-debugger/util/class-iop
(rename-in unstable/class-iop
[define/i define:]
[send/i send:]
[init-field/i init-field:])
scheme/unit
scheme/list
scheme/match
@ -22,7 +25,7 @@
"../model/reductions-config.ss"
"../model/reductions.ss"
"../model/steps.ss"
"../util/notify.ss"
unstable/gui/notify
"cursor.ss"
"debug-format.ss")

4
collects/macro-debugger/view/view.ss
View File

@ -1,7 +1,7 @@
#lang scheme/base
(require scheme/class
macro-debugger/util/class-iop
(rename-in unstable/class-iop
[send/i send:])
scheme/pretty
scheme/gui
framework/framework

2
collects/unstable/scribblings/find.scrbl
View File

@ -60,7 +60,7 @@ mutable table.
[#:default default any/c (lambda () (error ....))])
any/c]{
Like @scheme[find-first], but only returns the first match. If no
Like @scheme[find], but only returns the first match. If no
matches are found, @scheme[default] is applied as a thunk if it is a
procedure or returned otherwise.