suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

somewhat rackety core docs

Browse Source 
original commit: c7e723eef7d26e767dfee32496211e3ea5b8470e
This commit is contained in:
Matthew Flatt 2010-04-22 13:58:03 -06:00
parent 44c5f00675
commit 84337dc0cb
7 changed files with 166 additions and 126 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

82
collects/scribble/eval.ss
View File

@ -1,20 +1,20 @@
(module eval scheme/base (module eval racket/base
(require "manual.ss" (require "manual.ss"
"struct.ss" "struct.ss"
"scheme.ss" "scheme.ss"
"decode.ss" "decode.ss"
scheme/file racket/file
scheme/sandbox scheme/sandbox
scheme/promise racket/promise
mzlib/string mzlib/string
(for-syntax scheme/base)) (for-syntax racket/base))
(provide interaction (provide interaction
interaction-eval interaction-eval
interaction-eval-show interaction-eval-show
schemeblock+eval racketblock+eval (rename-out [racketblock+eval schemeblock+eval])
schememod+eval racketmod+eval (rename-out [racketmod+eval schememod+eval])
def+int def+int
defs+int defs+int
examples examples
@ -38,8 +38,8 @@
(define maxlen 60) (define maxlen 60)
(namespace-require 'scheme/base) (namespace-require 'racket/base)
(namespace-require '(for-syntax scheme/base)) (namespace-require '(for-syntax racket/base))
(define (literal-string style s) (define (literal-string style s)
(let ([m (regexp-match #rx"^(.*)( +)(.*)$" s)]) (let ([m (regexp-match #rx"^(.*)( +)(.*)$" s)])
@ -325,31 +325,31 @@
[(_ #:eval ev e) (do-interaction-eval-show ev (quote-expr e))] [(_ #:eval ev e) (do-interaction-eval-show ev (quote-expr e))]
[(_ e) (do-interaction-eval-show #f (quote-expr e))])) [(_ e) (do-interaction-eval-show #f (quote-expr e))]))
(define-syntax schemeinput* (define-syntax racketinput*
(syntax-rules (eval:alts code:comment) (syntax-rules (eval:alts code:comment)
[(_ (code:comment . rest)) (schemeblock (code:comment . rest))] [(_ (code:comment . rest)) (racketblock (code:comment . rest))]
[(_ (eval:alts a b)) (schemeinput* a)] [(_ (eval:alts a b)) (racketinput* a)]
[(_ e) (schemeinput e)])) [(_ e) (racketinput e)]))
(define-code schemeblock+line (to-paragraph/prefix (hspace 2) (define-code racketblock+line (to-paragraph/prefix (hspace 2)
(hspace 2) (hspace 2)
(list " "))) (list " ")))
(define-syntax (schemedefinput* stx) (define-syntax (racketdefinput* stx)
(syntax-case stx (define define-values define-struct) (syntax-case stx (define define-values define-struct)
[(_ (define . rest)) [(_ (define . rest))
(syntax-case stx () (syntax-case stx ()
[(_ e) #'(schemeblock+line e)])] [(_ e) #'(racketblock+line e)])]
[(_ (define-values . rest)) [(_ (define-values . rest))
(syntax-case stx () (syntax-case stx ()
[(_ e) #'(schemeblock+line e)])] [(_ e) #'(racketblock+line e)])]
[(_ (define-struct . rest)) [(_ (define-struct . rest))
(syntax-case stx () (syntax-case stx ()
[(_ e) #'(schemeblock+line e)])] [(_ e) #'(racketblock+line e)])]
[(_ (code:line (define . rest) . rest2)) [(_ (code:line (define . rest) . rest2))
(syntax-case stx () (syntax-case stx ()
[(_ e) #'(schemeblock+line e)])] [(_ e) #'(racketblock+line e)])]
[(_ e) #'(schemeinput* e)])) [(_ e) #'(racketinput* e)]))
(define (do-titled-interaction ev t shows evals) (define (do-titled-interaction ev t shows evals)
(interleave t (interleave t
@ -358,41 +358,41 @@
(define-syntax titled-interaction (define-syntax titled-interaction
(syntax-rules () (syntax-rules ()
[(_ #:eval ev t schemeinput* e ...) [(_ #:eval ev t racketinput* e ...)
(do-titled-interaction ev t (list (schemeinput* e) ...) (list (quote-expr e) ...))] (do-titled-interaction ev t (list (racketinput* e) ...) (list (quote-expr e) ...))]
[(_ t schemeinput* e ...) [(_ t racketinput* e ...)
(titled-interaction #:eval (make-base-eval) t schemeinput* e ...)])) (titled-interaction #:eval (make-base-eval) t racketinput* e ...)]))
(define-syntax interaction (define-syntax interaction
(syntax-rules () (syntax-rules ()
[(_ #:eval ev e ...) (titled-interaction #:eval ev #f schemeinput* e ...)] [(_ #:eval ev e ...) (titled-interaction #:eval ev #f racketinput* e ...)]
[(_ e ...) (titled-interaction #f schemeinput* e ...)])) [(_ e ...) (titled-interaction #f racketinput* e ...)]))
(define-syntax schemeblock+eval (define-syntax racketblock+eval
(syntax-rules () (syntax-rules ()
[(_ #:eval ev e ...) [(_ #:eval ev e ...)
(let ([eva ev]) (let ([eva ev])
(#%expression (#%expression
(begin (interaction-eval #:eval eva e) ... (begin (interaction-eval #:eval eva e) ...
(schemeblock e ...))))] (racketblock e ...))))]
[(_ e ...) [(_ e ...)
(schemeblock+eval #:eval (make-base-eval) e ...)])) (racketblock+eval #:eval (make-base-eval) e ...)]))
(define-syntax schememod+eval (define-syntax racketmod+eval
(syntax-rules () (syntax-rules ()
[(_ #:eval ev name e ...) [(_ #:eval ev name e ...)
(let ([eva ev]) (let ([eva ev])
(#%expression (#%expression
(begin (interaction-eval #:eval eva e) ... (begin (interaction-eval #:eval eva e) ...
(schememod name e ...))))] (racketmod name e ...))))]
[(_ name e ...) [(_ name e ...)
(schememod+eval #:eval (make-base-eval) name e ...)])) (racketmod+eval #:eval (make-base-eval) name e ...)]))
(define-syntax def+int (define-syntax def+int
(syntax-rules () (syntax-rules ()
[(_ #:eval ev def e ...) [(_ #:eval ev def e ...)
(let ([eva ev]) (let ([eva ev])
(column (list (schemeblock+eval #:eval eva def) (column (list (racketblock+eval #:eval eva def)
blank-line blank-line
(interaction #:eval eva e ...))))] (interaction #:eval eva e ...))))]
[(_ def e ...) [(_ def e ...)
@ -402,7 +402,7 @@
(syntax-rules () (syntax-rules ()
[(_ #:eval ev [def ...] e ...) [(_ #:eval ev [def ...] e ...)
(let ([eva ev]) (let ([eva ev])
(column (list (schemeblock+eval #:eval eva def ...) (column (list (racketblock+eval #:eval eva def ...)
blank-line blank-line
(interaction #:eval eva e ...))))] (interaction #:eval eva e ...))))]
[(_ [def ...] e ...) [(_ [def ...] e ...)
@ -421,27 +421,27 @@
(define-syntax examples (define-syntax examples
(syntax-rules () (syntax-rules ()
[(_ #:eval ev e ...) [(_ #:eval ev e ...)
(titled-interaction #:eval ev (pick-example-title e ...) schemeinput* e ...)] (titled-interaction #:eval ev (pick-example-title e ...) racketinput* e ...)]
[(_ e ...) [(_ e ...)
(titled-interaction (pick-example-title e ...) schemeinput* e ...)])) (titled-interaction (pick-example-title e ...) racketinput* e ...)]))
(define-syntax examples* (define-syntax examples*
(syntax-rules () (syntax-rules ()
[(_ #:eval ev example-title e ...) [(_ #:eval ev example-title e ...)
(titled-interaction #:eval ev example-title schemeinput* e ...)] (titled-interaction #:eval ev example-title racketinput* e ...)]
[(_ example-title e ...) [(_ example-title e ...)
(titled-interaction example-title schemeinput* e ...)])) (titled-interaction example-title racketinput* e ...)]))
(define-syntax defexamples (define-syntax defexamples
(syntax-rules () (syntax-rules ()
[(_ #:eval ev e ...) [(_ #:eval ev e ...)
(titled-interaction #:eval ev (pick-example-title e ...) schemedefinput* e ...)] (titled-interaction #:eval ev (pick-example-title e ...) racketdefinput* e ...)]
[(_ e ...) [(_ e ...)
(titled-interaction (pick-example-title e ...) schemedefinput* e ...)])) (titled-interaction (pick-example-title e ...) racketdefinput* e ...)]))
(define-syntax defexamples* (define-syntax defexamples*
(syntax-rules () (syntax-rules ()
[(_ #:eval ev example-title e ...) [(_ #:eval ev example-title e ...)
(titled-interaction #:eval ev example-title schemedefinput* e ...)] (titled-interaction #:eval ev example-title racketdefinput* e ...)]
[(_ example-title e ...) [(_ example-title e ...)
(titled-interaction example-title schemedefinput* e ...)])) (titled-interaction example-title racketdefinput* e ...)]))
(define blank-line (make-paragraph (list 'nbsp))) (define blank-line (make-paragraph (list 'nbsp)))

107
collects/scribble/private/manual-scheme.ss
View File

@ -1,38 +1,57 @@
#lang scheme/base #lang racket/base
(require "../decode.ss" (require "../decode.ss"
"../struct.ss" "../struct.ss"
"../scheme.ss" "../scheme.ss"
"../search.ss" "../search.ss"
"../basic.ss" "../basic.ss"
scheme/list racket/list
"manual-utils.ss" "manual-utils.ss"
"manual-style.ss" "manual-style.ss"
(for-syntax scheme/base) (for-syntax racket/base)
(for-label scheme/base)) (for-label racket/base))
(provide schemeblock SCHEMEBLOCK schemeblock/form (provide racketblock RACKETBLOCK racketblock/form
schemeblock0 SCHEMEBLOCK0 schemeblock0/form racketblock0 RACKETBLOCK0 racketblock0/form
schemeblockelem racketblockelem
schemeinput racketinput
schememod racketmod
scheme SCHEME scheme/form schemeresult schemeid racket RACKET racket/form racketresult racketid
schememodname racketmodname
schememodlink indexed-scheme racketmodlink indexed-racket
schemelink) racketlink
(rename-out [racketblock schemeblock]
[RACKETBLOCK SCHEMEBLOCK]
[racketblock/form schemeblock/form]
[racketblock0 schemeblock0]
[RACKETBLOCK0 SCHEMEBLOCK0]
[racketblock0/form schemeblock0/form]
[racketblockelem schemeblockelem]
[racketinput schemeinput]
[racketmod schememod]
[racket scheme]
[RACKET SCHEME]
[racket/form scheme/form]
[racketresult schemeresult]
[racketid schemeid]
[racketmodname schememodname]
[racketmodlink schememodlink]
[indexed-racket indexed-scheme]
[racketlink schemelink]))
(define-code schemeblock0 to-paragraph) (define-code racketblock0 to-paragraph)
(define-code schemeblock (to-paragraph/prefix (hspace 2) (hspace 2) "")) (define-code racketblock (to-paragraph/prefix (hspace 2) (hspace 2) ""))
(define-code SCHEMEBLOCK (to-paragraph/prefix (hspace 2) (hspace 2) "") (define-code RACKETBLOCK (to-paragraph/prefix (hspace 2) (hspace 2) "")
UNSYNTAX) UNSYNTAX)
(define-code SCHEMEBLOCK0 to-paragraph UNSYNTAX) (define-code RACKETBLOCK0 to-paragraph UNSYNTAX)
(define interaction-prompt (make-element 'tt (list "> " ))) (define interaction-prompt (make-element 'tt (list "> " )))
(define-code schemeinput (define-code racketinput
(to-paragraph/prefix (to-paragraph/prefix
(make-element #f (list (hspace 2) interaction-prompt)) (make-element #f (list (hspace 2) interaction-prompt))
(hspace 4) (hspace 4)
"")) ""))
(define-syntax (schememod stx) (define-syntax (racketmod stx)
(syntax-case stx () (syntax-case stx ()
[(_ #:file filename lang rest ...) [(_ #:file filename lang rest ...)
(with-syntax ([modtag (datum->syntax (with-syntax ([modtag (datum->syntax
@ -45,7 +64,7 @@
`(as-modname-link `(as-modname-link
',#'lang ',#'lang
(to-element ',#'lang)) (to-element ',#'lang))
#'(scheme lang))))) #'(racket lang)))))
#'lang)] #'lang)]
[(file ...) [(file ...)
(if (syntax-e #'filename) (if (syntax-e #'filename)
@ -55,9 +74,9 @@
`(code:comment (unsyntax (t "In \"" ,(syntax-e #'filename) "\":"))) `(code:comment (unsyntax (t "In \"" ,(syntax-e #'filename) "\":")))
#'filename)) #'filename))
null)]) null)])
(syntax/loc stx (schemeblock file ... modtag rest ...)))] (syntax/loc stx (racketblock file ... modtag rest ...)))]
[(_ lang rest ...) [(_ lang rest ...)
(syntax/loc stx (schememod #:file #f lang rest ...))])) (syntax/loc stx (racketmod #:file #f lang rest ...))]))
(define (to-element/result s) (define (to-element/result s)
(make-element result-color (list (to-element/no-color s)))) (make-element result-color (list (to-element/no-color s))))
@ -91,25 +110,25 @@
(make-shaped-parens s val) (make-shaped-parens s val)
s)) s))
(define-code schemeblockelem to-element) (define-code racketblockelem to-element)
(define-code scheme to-element unsyntax keep-s-expr add-sq-prop) (define-code racket to-element unsyntax keep-s-expr add-sq-prop)
(define-code SCHEME to-element UNSYNTAX keep-s-expr add-sq-prop) (define-code RACKET to-element UNSYNTAX keep-s-expr add-sq-prop)
(define-code schemeresult to-element/result unsyntax keep-s-expr add-sq-prop) (define-code racketresult to-element/result unsyntax keep-s-expr add-sq-prop)
(define-code schemeid to-element/id unsyntax keep-s-expr add-sq-prop) (define-code racketid to-element/id unsyntax keep-s-expr add-sq-prop)
(define-code *schememodname to-element unsyntax keep-s-expr add-sq-prop) (define-code *racketmodname to-element unsyntax keep-s-expr add-sq-prop)
(define-syntax schememodname (define-syntax racketmodname
(syntax-rules (unsyntax) (syntax-rules (unsyntax)
[(schememodname #,n) [(racketmodname #,n)
(let ([sym n]) (let ([sym n])
(as-modname-link sym (to-element sym)))] (as-modname-link sym (to-element sym)))]
[(schememodname n) [(racketmodname n)
(as-modname-link 'n (*schememodname n))])) (as-modname-link 'n (*racketmodname n))]))
(define-syntax schememodlink (define-syntax racketmodlink
(syntax-rules (unsyntax) (syntax-rules (unsyntax)
[(schememodlink n content ...) [(racketmodlink n content ...)
(*as-modname-link 'n (elem #:style #f content ...))])) (*as-modname-link 'n (elem #:style #f content ...))]))
(define (as-modname-link s e) (define (as-modname-link s e)
@ -122,10 +141,10 @@
(list e) (list e)
`(mod-path ,(format "~s" s)))) `(mod-path ,(format "~s" s))))
(define-syntax-rule (indexed-scheme x) (define-syntax-rule (indexed-racket x)
(add-scheme-index 'x (scheme x))) (add-racket-index 'x (racket x)))
(define (add-scheme-index s e) (define (add-racket-index s e)
(let ([k (cond [(and (pair? s) (eq? (car s) 'quote)) (format "~s" (cadr s))] (let ([k (cond [(and (pair? s) (eq? (car s) 'quote)) (format "~s" (cadr s))]
[(string? s) s] [(string? s) s]
[else (format "~s" s)])]) [else (format "~s" s)])])
@ -139,11 +158,11 @@
#'(let ([ellipses #f]) #'(let ([ellipses #f])
(base a)))]))) (base a)))])))
(define-/form schemeblock0/form schemeblock0) (define-/form racketblock0/form racketblock0)
(define-/form schemeblock/form schemeblock) (define-/form racketblock/form racketblock)
(define-/form scheme/form scheme) (define-/form racket/form racket)
(define (*schemelink stx-id id . s) (define (*racketlink stx-id id . s)
(let ([content (decode-content s)]) (let ([content (decode-content s)])
(make-delayed-element (make-delayed-element
(lambda (r p ri) (lambda (r p ri)
@ -151,11 +170,11 @@
(make-link-element (make-link-element
#f #f
content content
(or (find-scheme-tag p ri stx-id #f) (or (find-racket-tag p ri stx-id #f)
`(undef ,(format "--UNDEFINED:~a--" (syntax-e stx-id))))))) `(undef ,(format "--UNDEFINED:~a--" (syntax-e stx-id)))))))
(lambda () content) (lambda () content)
(lambda () content)))) (lambda () content))))
(define-syntax-rule (schemelink id . content) (define-syntax-rule (racketlink id . content)
(*schemelink (quote-syntax id) 'id . content)) (*racketlink (quote-syntax id) 'id . content))

56
collects/scribble/private/manual-style.ss
View File

@ -1,4 +1,4 @@
#lang scheme/base #lang racket/base
(require "../decode.ss" (require "../decode.ss"
"../struct.ss" "../struct.ss"
"../base.ss" "../base.ss"
@ -7,9 +7,9 @@
(only-in "../core.ss" make-style plain) (only-in "../core.ss" make-style plain)
"manual-utils.ss" "manual-utils.ss"
"on-demand.ss" "on-demand.ss"
scheme/list racket/list
scheme/contract racket/contract
scheme/string) racket/string)
(provide (rename-out [hyperlink link]) (provide (rename-out [hyperlink link])
(rename-out [other-doc other-manual]) (rename-out [other-doc other-manual])
@ -23,12 +23,26 @@
(() () #:rest (listof pre-content?) . ->* . element?)) (() () #:rest (listof pre-content?) . ->* . element?))
(define-syntax-rule (provide-styling id ...) (define-syntax-rule (provide-styling id ...)
(provide/contract [id styling-f/c] ...)) (provide/contract [id styling-f/c] ...))
(provide-styling schememodfont schemeoutput (provide-styling racketmodfont racketoutput
schemeerror schemefont schemevalfont schemeresultfont schemeidfont schemevarfont racketerror racketfont racketvalfont racketresultfont racketidfont racketvarfont
schemeparenfont schemekeywordfont schememetafont racketparenfont racketkeywordfont racketmetafont
onscreen defterm filepath exec envvar Flag DFlag PFlag DPFlag math onscreen defterm filepath exec envvar Flag DFlag PFlag DPFlag math
procedure procedure
indexed-file indexed-envvar idefterm pidefterm) indexed-file indexed-envvar idefterm pidefterm)
(define-syntax-rule (provide-scheme-styling [rid sid] ...)
(provide/contract [rename rid sid styling-f/c] ...))
(provide-scheme-styling [racketmodfont schememodfont]
[racketoutput schemeoutput]
[racketerror schemeerror]
[racketfont schemefont]
[racketvalfont schemevalfont]
[racketresultfont schemeresultfont]
[racketidfont schemeidfont]
[racketvarfont schemevarfont]
[racketparenfont schemeparenfont]
[racketkeywordfont schemekeywordfont]
[racketmetafont schememetafont])
(provide void-const (provide void-const
undefined-const) undefined-const)
(provide/contract (provide/contract
@ -68,23 +82,23 @@
(define (idefterm . str) (define (idefterm . str)
(let ([c (decode-content str)]) (let ([c (decode-content str)])
(make-element 'italic c))) (make-element 'italic c)))
(define (schemefont . str) (define (racketfont . str)
(apply tt str)) (apply tt str))
(define (schemevalfont . str) (define (racketvalfont . str)
(make-element value-color (decode-content str))) (make-element value-color (decode-content str)))
(define (schemeresultfont . str) (define (racketresultfont . str)
(make-element result-color (decode-content str))) (make-element result-color (decode-content str)))
(define (schemeidfont . str) (define (racketidfont . str)
(make-element symbol-color (decode-content str))) (make-element symbol-color (decode-content str)))
(define (schemevarfont . str) (define (racketvarfont . str)
(make-element variable-color (decode-content str))) (make-element variable-color (decode-content str)))
(define (schemeparenfont . str) (define (racketparenfont . str)
(make-element paren-color (decode-content str))) (make-element paren-color (decode-content str)))
(define (schememetafont . str) (define (racketmetafont . str)
(make-element meta-color (decode-content str))) (make-element meta-color (decode-content str)))
(define (schememodfont . str) (define (racketmodfont . str)
(make-element module-color (decode-content str))) (make-element module-color (decode-content str)))
(define (schemekeywordfont . str) (define (racketkeywordfont . str)
(make-element keyword-color (decode-content str))) (make-element keyword-color (decode-content str)))
(define (filepath . str) (define (filepath . str)
(make-element 'tt (append (list "\"") (decode-content str) (list "\"")))) (make-element 'tt (append (list "\"") (decode-content str) (list "\""))))
@ -124,9 +138,9 @@
(define (procedure . str) (define (procedure . str)
(make-element result-color `("#<procedure:" ,@(decode-content str) ">"))) (make-element result-color `("#<procedure:" ,@(decode-content str) ">")))
(define (schemeoutput . str) (define (racketoutput . str)
(make-element output-color (decode-content str))) (make-element output-color (decode-content str)))
(define (schemeerror . str) (define (racketerror . str)
(make-element error-color (decode-content str))) (make-element error-color (decode-content str)))
(define (t . str) (define (t . str)
@ -150,13 +164,13 @@
(define (hash-lang) (define (hash-lang)
(make-link-element (make-link-element
module-link-color module-link-color
(list (schememodfont "#lang")) (list (racketmodfont "#lang"))
`(part ,(doc-prefix '(lib "scribblings/guide/guide.scrbl") "hash-lang")))) `(part ,(doc-prefix '(lib "scribblings/guide/guide.scrbl") "hash-lang"))))
(define-on-demand void-const (define-on-demand void-const
(schemeresultfont "#<void>")) (racketresultfont "#<void>"))
(define-on-demand undefined-const (define-on-demand undefined-const
(schemeresultfont "#<undefined>")) (racketresultfont "#<undefined>"))
(define (link url (define (link url
#:underline? [underline? #t] #:underline? [underline? #t]

3
collects/scribble/scheme.ss
View File

@ -667,7 +667,8 @@
(null? s) (null? s)
(hash? s) (hash? s)
(graph-defn? s) (graph-defn? s)
(graph-reference? s)) (graph-reference? s)
(struct-proxy? s))
(gen-typeset c multi-line? prefix1 prefix suffix color? qq?) (gen-typeset c multi-line? prefix1 prefix suffix color? qq?)
(typeset-atom c (typeset-atom c
(letrec ([mk (letrec ([mk

9
collects/scribble/search.ss
View File

@ -1,10 +1,11 @@
(module search scheme/base (module search racket/base
(require "struct.ss" (require "struct.ss"
"basic.ss" "basic.ss"
setup/main-collects setup/main-collects
syntax/modcode) syntax/modcode)
(provide find-scheme-tag) (provide find-racket-tag
(rename-out [find-racket-tag find-scheme-tag]))
(define module-info-cache (make-hasheq)) (define module-info-cache (make-hasheq))
@ -21,7 +22,7 @@
(with-handlers* ([exn:fail? (lambda (exn) (fail-thunk))]) (with-handlers* ([exn:fail? (lambda (exn) (fail-thunk))])
(thunk))) (thunk)))
(define (find-scheme-tag part ri stx/binding phase-level) (define (find-racket-tag part ri stx/binding phase-level)
;; The phase-level argument is used only when `stx/binding' ;; The phase-level argument is used only when `stx/binding'
;; is an identifier. ;; is an identifier.
;; ;;
@ -169,7 +170,7 @@
;; have changed in inconsistent ways. So just say #f ;; have changed in inconsistent ways. So just say #f
;; for now. ;; for now.
#; #;
(error 'find-scheme-tag (error 'find-racket-tag
"dead end when looking for binding source: ~e" "dead end when looking for binding source: ~e"
id) id)
(loop queue rqueue need-result?))))) (loop queue rqueue need-result?)))))

14
collects/scribble/urls.ss
View File

@ -1,8 +1,10 @@
#lang racket/base
(module urls mzscheme (provide (all-defined-out)
(provide (all-defined)) (rename-out [url:drracket url:drscheme]
[url:download-drracket url:download-drscheme]))
(define url:drscheme "http://www.drscheme.org/") (define url:drracket "http://racket-lang.org/")
(define url:download-drscheme "http://download.plt-scheme.org/drscheme/") (define url:download-drracket "http://racket-lang.org/")
(define url:planet "http://planet.plt-scheme.org/")) (define url:planet "http://planet.plt-scheme.org/")

21
collects/scriblib/gui-eval.ss
View File

@ -1,14 +1,14 @@
#lang scheme/base #lang racket/base
(require scribble/eval (require scribble/eval
scribble/core scribble/core
scribble/scheme scribble/scheme
scheme/class racket/class
scheme/file racket/file
scheme/runtime-path racket/runtime-path
scheme/serialize racket/serialize
"private/gui-eval-exn.ss" "private/gui-eval-exn.ss"
scheme/system) racket/system)
(define-syntax define-mr (define-syntax define-mr
(syntax-rules () (syntax-rules ()
@ -28,13 +28,16 @@
(define-mr gui-interaction-eval-show interaction-eval-show) (define-mr gui-interaction-eval-show interaction-eval-show)
(define-mr gui-def+int def+int) (define-mr gui-def+int def+int)
(define-mr gui-defs+int defs+int) (define-mr gui-defs+int defs+int)
(define-mr gui-schememod+eval schememod+eval) (define-mr gui-racketmod+eval racketmod+eval)
(define-mr gui-schemeblock+eval schemeblock+eval) (define-mr gui-racketblock+eval racketblock+eval)
(provide (rename-out [gui-racketmod+eval gui-schememod+eval]
[gui-racketblock+eval gui-schemeblock+eval]))
(define mred? (getenv "MREVAL")) (define mred? (getenv "MREVAL"))
(when mred? (when mred?
(gui-eval '(require scheme/gui/base)) (gui-eval '(require racket/gui/base))
(gui-eval '(require slideshow))) (gui-eval '(require slideshow)))
;; This one needs to be relative, because it ends up in the ;; This one needs to be relative, because it ends up in the