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

converted a bunch of tex-isms to scribble-isms and other small improvements in the docs

Browse Source 
svn: r9761
This commit is contained in:
Robby Findler 2008-05-09 02:14:40 +00:00
parent 694a0d732b
commit 1eacde0927
1 changed files with 74 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

74
collects/drscheme/private/oc.ss Normal file
View File

@ -0,0 +1,74 @@
#lang scheme/base
(require (for-syntax scheme/base))
(provide oc)
(define-for-syntax (change-context ctxt stx)
(let loop ([stx stx])
(cond
[(syntax? stx)
(datum->syntax ctxt (loop (syntax-e stx)) stx stx stx)]
[(pair? stx) (cons (loop (car stx))
(loop (cdr stx)))]
[else stx])))
(define-syntax (oc stx)
(syntax-case stx ()
[(_ ctxt) #'(oc #f ctxt)]
[(_ id ctxt)
(or (identifier? #'id)
(not (syntax-e #'id)))
(let ([main-thing
(change-context
#'ctxt
#'(object-contract
(config-panel ((is-a?/c area-container<%>)
. -> .
(case-> (any/c . -> . void?) (-> any/c))))
(create-executable (any/c
(or/c (is-a?/c dialog%) (is-a?/c frame%))
path?
. -> .
void?))
(default-settings (-> any/c))
(default-settings? (any/c . -> . boolean?))
(order-manuals ((listof bytes?) . -> . (values (listof bytes?) boolean?)))
(front-end/complete-program (input-port?
any/c
. -> .
(-> any/c)))
(front-end/interaction (input-port?
any/c
. -> .
(-> any/c)))
(get-language-name (-> string?))
(get-language-numbers (-> (cons/c number? (listof number?))))
(get-language-position (-> (cons/c string? (listof string?))))
(get-language-url (-> (or/c false/c string?)))
(get-one-line-summary (-> string?))
(get-comment-character (-> (values string? char?)))
(get-style-delta (-> (or/c false/c
(is-a?/c style-delta%)
(listof (list/c (is-a?/c style-delta%) number? number?)))))
(marshall-settings (any/c . -> . printable/c))
(on-execute (any/c ((-> any) . -> . any) . -> . any))
(render-value (any/c
any/c
output-port?
. -> .
void?))
(render-value/format (any/c
any/c
output-port?
(or/c number? (symbols 'infinity))
. -> .
any))
(unmarshall-settings (printable/c . -> . any))
(capability-value
(->d ([s (and/c symbol? drscheme:language:capability-registered?)])
()
[res (drscheme:language:get-capability-contract s)]))))])
(if (syntax-e #'id)
#`(id #,main-thing)
main-thing))]))