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

reference-manual work

Browse Source 
svn: r6495

original commit: 8d61bb4c70c24156e4bc6d98d023ccd40fb49a19
This commit is contained in:
Matthew Flatt 2007-06-06 01:13:51 +00:00
parent ef13a0dbcc
commit c049ea87f0
2 changed files with 24 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
collects/scribble/manual.ss
View File

@ -34,9 +34,9 @@
[(_ lang rest ...)
(with-syntax ([modtag (datum->syntax-object
#'here
'(unsyntax (schemefont "#module "))
`(unsyntax (schemefont ,(format "#module ~a" (syntax-e #'lang))))
#'lang)])
#'(schemeblock modtag lang rest ...))]))
#'(schemeblock modtag rest ...))]))
(define (to-element/result s)
(make-element "schemeresult" (list (to-element/no-color s))))
@ -137,8 +137,17 @@
;; ----------------------------------------
(provide margin-note)
(define (margin-note . c)
(make-styled-paragraph (list (make-element "refcontent"
c))
"refpara"))
;; ----------------------------------------
(provide defproc defproc* defstruct defthing defform defform* defform/none
specsubform specsubform/inline
specform specsubform specsubform/inline
var svar void-const undefined-const)
(define void-const
@ -190,11 +199,15 @@
(define-syntax specsubform
(syntax-rules ()
[(_ spec desc ...)
(*specsubform 'spec (lambda () (schemeblock0 spec)) (lambda () (list desc ...)))]))
(*specsubform 'spec #f (lambda () (schemeblock0 spec)) (lambda () (list desc ...)))]))
(define-syntax specform
(syntax-rules ()
[(_ spec desc ...)
(*specsubform 'spec #t (lambda () (schemeblock0 spec)) (lambda () (list desc ...)))]))
(define-syntax specsubform/inline
(syntax-rules ()
[(_ spec desc ...)
(*specsubform 'spec #f (lambda () (list desc ...)))]))
(*specsubform 'spec #f #f (lambda () (list desc ...)))]))
(define-syntax defthing
(syntax-rules ()
[(_ id result desc ...)
@ -429,9 +442,9 @@
forms form-procs))
(content-thunk)))))
(define (*specsubform form form-thunk content-thunk)
(define (*specsubform form has-kw? form-thunk content-thunk)
(parameterize ([current-variable-list
(append (let loop ([form form])
(append (let loop ([form (if has-kw? (cdr form) form)])
(cond
[(symbol? form) (if (meta-symbol? form)
null

6
collects/scribble/scheme.ss
View File

@ -1,7 +1,8 @@
(module scheme mzscheme
(require "struct.ss"
"basic.ss"
(lib "class.ss"))
(lib "class.ss")
(lib "for.ss"))
(provide define-code
to-element
@ -92,7 +93,8 @@
[l (syntax-line c)])
(let ([new-line? (and l (l . > . line))])
(when new-line?
(out "\n" no-color)
(for ([i (in-range (- l line))])
(out "\n" no-color))
(set! line l)
(set! col-map next-col-map)
(set! next-col-map (make-hash-table 'equal))