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

doc work on modules, new big collection

Browse Source 
svn: r6732

original commit: efb592bd15892791a8bff3b9d203e905bcc40d6e
This commit is contained in:
Matthew Flatt 2007-06-25 08:47:02 +00:00
parent 4c40ffdd26
commit 5552a5c58c
4 changed files with 27 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scribble/basic.ss
View File

@ -1,5 +1,5 @@
(module basic (lib "new-lambda.ss" "scribblings")
(module basic (lib "lang.ss" "big")
(require "decode.ss"
"struct.ss"
"config.ss"

4
collects/scribble/doclang.ss
View File

@ -1,11 +1,11 @@
(module doclang (lib "new-lambda.ss" "scribblings") ; <--- temporary
(module doclang (lib "lang.ss" "big")
(require "struct.ss"
"decode.ss"
(lib "kw.ss"))
(require-for-syntax (lib "kerncase.ss" "syntax"))
(provide (all-from-except (lib "new-lambda.ss" "scribblings") #%module-begin)
(provide (all-from-except (lib "lang.ss" "big") #%module-begin)
(rename *module-begin #%module-begin))
;; Module wrapper ----------------------------------------

12
collects/scribble/eval.ss
View File

@ -1,5 +1,5 @@
(module eval (lib "new-lambda.ss" "scribblings")
(module eval (lib "lang.ss" "big")
(require "manual.ss"
"struct.ss"
"scheme.ss"
@ -171,7 +171,15 @@
(define (do-plain-eval s catching-exns?)
(parameterize ([current-namespace (current-int-namespace)])
(call-with-values (lambda () ((scribble-eval-handler) catching-exns? (strip-comments s))) list)))
(call-with-values (lambda ()
((scribble-eval-handler)
catching-exns?
(let ([s (strip-comments s)])
(syntax-case s (module)
[(module . _rest)
(syntax-object->datum s)]
[_else s]))))
list)))
(define-syntax interaction-eval
(syntax-rules ()

16
collects/scribble/manual.ss
View File

@ -1,5 +1,5 @@
(module manual (lib "new-lambda.ss" "scribblings")
(module manual (lib "lang.ss" "big")
(require "decode.ss"
"struct.ss"
"scheme.ss"
@ -182,7 +182,7 @@
(provide defproc defproc* defstruct defthing defform defform* defform/subs defform*/subs defform/none
specform specform/subs
specsubform specspecsubform specsubform/inline
specsubform specsubform/subs specspecsubform specsubform/inline
schemegrammar schemegrammar*
var svar void-const undefined-const)
@ -294,6 +294,18 @@
(*specsubform 'spec #f '(lit ...) (lambda () (schemeblock0 spec)) null null (lambda () (list desc ...)))]
[(_ spec desc ...)
(*specsubform 'spec #f null (lambda () (schemeblock0 spec)) null null (lambda () (list desc ...)))]))
(define-syntax specsubform/subs
(syntax-rules ()
[(_ #:literals (lit ...) spec ([non-term-id non-term-form ...] ...) desc ...)
(*specsubform 'spec #f '(lit ...) (lambda () (schemeblock0 spec))
'((non-term-id non-term-form ...) ...)
(list (list (lambda () (scheme non-term-id))
(lambda () (schemeblock0 non-term-form))
...)
...)
(lambda () (list desc ...)))]
[(_ spec subs desc ...)
(specsubform/subs #:literals () spec subs desc ...)]))
(define-syntax specspecsubform
(syntax-rules ()
[(_ spec desc ...)