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

doc work

Browse Source 
svn: r6692

original commit: 2fe7c75dc15cef9c23ec5dd548cda5f2855cc323
This commit is contained in:
Matthew Flatt 2007-06-19 08:32:38 +00:00
parent 2133e59ccf
commit 09999b990d
1 changed files with 35 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
collects/scribble/manual.ss
View File

@ -154,7 +154,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 specspecsubform specsubform/inline
schemegrammar schemegrammar schemegrammar*
var svar void-const undefined-const) var svar void-const undefined-const)
(define void-const (define void-const
@ -295,8 +295,16 @@
(syntax-rules () (syntax-rules ()
[(_ #:literals (lit ...) id clause ...) (*schemegrammar '(lit ...) [(_ #:literals (lit ...) id clause ...) (*schemegrammar '(lit ...)
'(id clause ...) '(id clause ...)
(lambda () (list (scheme id) (schemeblock0 clause) ...)))] (lambda () (list (list (scheme id) (schemeblock0 clause) ...))))]
[(_ id clause ...) (schemegrammar #:literals () id clause ...)])) [(_ id clause ...) (schemegrammar #:literals () id clause ...)]))
(define-syntax schemegrammar*
(syntax-rules ()
[(_ #:literals (lit ...) [id clause ...] ...) (*schemegrammar '(lit ...)
'(id ... clause ... ...)
(lambda ()
(list
(list (scheme id) (schemeblock0 clause) ...) ...)))]
[(_ [id clause ...] ...) (schemegrammar #:literals () [id clause ...] ...)]))
(define-syntax var (define-syntax var
(syntax-rules () (syntax-rules ()
[(_ id) (*var 'id)])) [(_ id) (*var 'id)]))
@ -589,27 +597,34 @@
sub-procs)))) sub-procs))))
(flow-paragraphs (decode-flow (content-thunk))))))) (flow-paragraphs (decode-flow (content-thunk)))))))
(define (*schemerawgrammar nonterm clause1 . clauses) (define (*schemerawgrammars nonterms clauseses)
(make-table (make-table
'((valignment baseline baseline baseline baseline baseline) '((valignment baseline baseline baseline baseline baseline)
(alignment left left center left left)) (alignment right left center left left))
(let ([empty-line (make-flow (list (make-paragraph (list (tt 'nbsp)))))] (let ([empty-line (make-flow (list (make-paragraph (list (tt 'nbsp)))))]
[to-flow (lambda (i) (make-flow (list (make-paragraph (list i)))))]) [to-flow (lambda (i) (make-flow (list (make-paragraph (list i)))))])
(cons (apply append
(list (to-flow nonterm) (map
empty-line (lambda (nonterm clauses)
(to-flow "=") (cons
empty-line (list (to-flow nonterm)
(make-flow (list clause1))) empty-line
(map (lambda (clause) (to-flow "=")
(list empty-line empty-line
empty-line (make-flow (list (car clauses))))
(to-flow "|") (map (lambda (clause)
empty-line (list empty-line
(make-flow (list clause)))) empty-line
clauses))))) (to-flow "|")
empty-line
(make-flow (list clause))))
(cdr clauses))))
nonterms clauseses)))))
(define (*schemegrammar lits s-expr clauses-thunk) (define (*schemerawgrammar nonterm clause1 . clauses)
(*schemerawgrammars (list nonterm) (list (cons clause1 clauses))))
(define (*schemegrammar lits s-expr clauseses-thunk)
(parameterize ([current-variable-list (parameterize ([current-variable-list
(let loop ([form s-expr]) (let loop ([form s-expr])
(cond (cond
@ -619,7 +634,8 @@
[(pair? form) (append (loop (car form)) [(pair? form) (append (loop (car form))
(loop (cdr form)))] (loop (cdr form)))]
[else null]))]) [else null]))])
(apply *schemerawgrammar (clauses-thunk)))) (let ([l (clauseses-thunk)])
(*schemerawgrammars (map car l) (map cdr l)))))
(define (*var id) (define (*var id)
(to-element (*var-sym id))) (to-element (*var-sym id)))