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

a tools manual that contains all of the bindings (but with lots of editing still to go)

Browse Source 
svn: r9753

original commit: 62afb97230ef3fc85d6fa5dbccd13dfbbc8c4b98
This commit is contained in:
Robby Findler 2008-05-08 21:16:48 +00:00
parent 3ac5bf77fd
commit 3e6030ae22
1 changed files with 45 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
collects/scribble/srcdoc.ss
View File

@ -112,17 +112,51 @@
#'([(id (arg-names ctcs) ...) result]))] #'([(id (arg-names ctcs) ...) result]))]
[((->* (mandatory ...) (optional ...) result) [((->* (mandatory ...) (optional ...) result)
((mandatory-names ...) names)
((optional-names optional-default) ...))) (syntax-case #'names ()
(begin [((mandatory-names ...)
(unless (= (length (syntax->list #'(mandatory-names ...))) ((optional-names optional-default) ...))
(length (syntax->list #'(mandatory ...)))) (begin
(raise-syntax-error #f "mismatched mandatory argument list and domain contract count" stx)) (unless (= (length (syntax->list #'(mandatory-names ...)))
(unless (= (length (syntax->list #'(optional-names ...))) (length (syntax->list #'(mandatory ...))))
(length (syntax->list #'(optional ...)))) (raise-syntax-error #f "mismatched mandatory argument list and domain contract count" stx))
(raise-syntax-error #f "mismatched mandatory argument list and domain contract count" stx)) (unless (= (length (syntax->list #'(optional-names ...)))
#'([(id (mandatory-names mandatory) ... (optional-names optional optional-default) ...) (length (syntax->list #'(optional ...))))
result]))] (raise-syntax-error #f "mismatched mandatory argument list and domain contract count" stx))
#'([(id (mandatory-names mandatory) ... (optional-names optional optional-default) ...)
result]))]
[(mandatory-names optional-names)
(begin
(syntax-case #'mandatory-names ()
[(mandatory-names ...)
(andmap identifier? (syntax->list #'(mandatory-names ...)))]
[x
(raise-syntax-error #f "mandatory names should be a sequence of identifiers"
stx
#'mandatory-names)])
(syntax-case #'optional-names ()
[((x y) ...)
(andmap identifier? (syntax->list #'(x ... y ...)))]
[((x y) ...)
(for-each
(λ (var)
(unless (identifier? var)
(raise-syntax-error #f "expected an identifier in the optional names" stx var)))
(syntax->list #'(x ... y ...)))]
[(a ...)
(for-each
(λ (a)
(syntax-case stx ()
[(x y) (void)]
[other
(raise-syntax-error #f "expected an sequence of two idenfiers" stx #'other)]))
(syntax->list #'(a ...)))]))]
[x
(raise-syntax-error
#f
"expected two sequences, one of mandatory names and one of optionals"
stx
#'x)])]
[((case-> (-> doms ... rng) ...) [((case-> (-> doms ... rng) ...)
((args ...) ...)) ((args ...) ...))
(begin (begin