suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 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" (require "decode.ss"
"struct.ss" "struct.ss"
"config.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" (require "struct.ss"
"decode.ss" "decode.ss"
(lib "kw.ss")) (lib "kw.ss"))
(require-for-syntax (lib "kerncase.ss" "syntax")) (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)) (rename *module-begin #%module-begin))
;; Module wrapper ---------------------------------------- ;; 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" (require "manual.ss"
"struct.ss" "struct.ss"
"scheme.ss" "scheme.ss"
@ -171,7 +171,15 @@
(define (do-plain-eval s catching-exns?) (define (do-plain-eval s catching-exns?)
(parameterize ([current-namespace (current-int-namespace)]) (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 (define-syntax interaction-eval
(syntax-rules () (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" (require "decode.ss"
"struct.ss" "struct.ss"
"scheme.ss" "scheme.ss"
@ -182,7 +182,7 @@
(provide defproc defproc* defstruct defthing defform defform* defform/subs defform*/subs defform/none (provide defproc defproc* defstruct defthing defform defform* defform/subs defform*/subs defform/none
specform specform/subs specform specform/subs
specsubform specspecsubform specsubform/inline specsubform specsubform/subs specspecsubform specsubform/inline
schemegrammar schemegrammar* schemegrammar schemegrammar*
var svar void-const undefined-const) var svar void-const undefined-const)
@ -294,6 +294,18 @@
(*specsubform 'spec #f '(lit ...) (lambda () (schemeblock0 spec)) null null (lambda () (list desc ...)))] (*specsubform 'spec #f '(lit ...) (lambda () (schemeblock0 spec)) null null (lambda () (list desc ...)))]
[(_ spec desc ...) [(_ spec desc ...)
(*specsubform 'spec #f null (lambda () (schemeblock0 spec)) null null (lambda () (list 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 (define-syntax specspecsubform
(syntax-rules () (syntax-rules ()
[(_ spec desc ...) [(_ spec desc ...)