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

Macro stepper:

Browse Source 
cleaned up representation of big (localaction) contexts
  unitized hiding impl
  added (broken/experimental) navigation tools (jump, zoom)

svn: r5468

original commit: ef1f77c33fc8082c80b6beea80f6f149ac7f8031
This commit is contained in:
Ryan Culpepper 2007-01-26 19:53:55 +00:00
parent df346e3044
commit ee080b92eb
2 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/macro-debugger/model/reductions-engine.ss
View File

@ -44,15 +44,13 @@
(syntax-rules () (syntax-rules ()
[(with-new-local-context e . body) [(with-new-local-context e . body)
(parameterize ([big-context (parameterize ([big-context
(cons (cons (current-derivation) (cons (make-bigframe (current-derivation) (context) (list e) e)
(cons (list e)
(context)))
(big-context))] (big-context))]
[context null]) [context null])
. body)])) . body)]))
;; ----------------------------------- ;; -----------------------------------
;; CC ;; CC
;; the context constructor ;; the context constructor
(define-syntax (CC stx) (define-syntax (CC stx)
@ -66,7 +64,7 @@
(syntax-rules () (syntax-rules ()
[(R form pattern . clauses) [(R form pattern . clauses)
(R** #f _ [#:set-syntax form] [#:pattern pattern] . clauses)])) (R** #f _ [#:set-syntax form] [#:pattern pattern] . clauses)]))
(define-syntax (R** stx) (define-syntax (R** stx)
(syntax-case stx (! @ List Block =>) (syntax-case stx (! @ List Block =>)
[(R** form-var pattern) [(R** form-var pattern)

12
collects/macro-debugger/model/steps.ss
View File

@ -5,13 +5,14 @@
;; A ReductionSequence is a (list-of Reduction) ;; A ReductionSequence is a (list-of Reduction)
;; A ProtoStep is (make-protostep Derivation BigContext StepType Context) ;; A ProtoStep is (make-protostep Derivation BigContext StepType Context)
;; A Context is a list of Frames ;; A Context is a list of Frames
;; A Frame is (syntax -> syntax) ;; A Frame is (syntax -> syntax)
;; A BigContext is (list-of (cons Derivation (cons Syntaxes Syntax))) ;; A BigContext is (list-of BigFrame)
;; local expansion contexts: deriv, foci, term ;; A BigFrame is (make-bigframe Derivation Context Syntaxes Syntax)
(define-struct bigframe (deriv ctx foci e))
;; A Reduction is one of ;; A Reduction is one of
;; - (make-step ... Syntaxes Syntaxes Syntax Syntax) ;; - (make-step ... Syntaxes Syntaxes Syntax Syntax)
;; - (make-misstep ... Syntax Syntax Exception) ;; - (make-misstep ... Syntax Syntax Exception)
@ -36,6 +37,9 @@
(define (misstep-term1 s) (define (misstep-term1 s)
(context-fill (protostep-ctx s) (misstep-e1 s))) (context-fill (protostep-ctx s) (misstep-e1 s)))
(define (bigframe-term bf)
(context-fill (bigframe-ctx bf) (bigframe-e bf)))
;; A StepType is a simple in the following alist. ;; A StepType is a simple in the following alist.
(define step-type-meanings (define step-type-meanings