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

".ss" -> ".rkt" scan done.

Browse Source 
original commit: 3157955d40f89d83fb3d5fa7a2f20639cda69579
This commit is contained in:
Eli Barzilay 2011-07-02 10:37:53 -04:00
parent b8556478f5
commit 45a9cd48c2
51 changed files with 214 additions and 218 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/help/help.rkt
View File

@ -1,6 +1,6 @@
#lang scheme/base
(require "search.ss" scheme/cmdline scheme/list scheme/string
(require "search.rkt" scheme/cmdline scheme/list scheme/string
raco/command-name)
;; Minimal command-line arguments, the query string can contain all

6
collects/scribble/base-render.rkt
View File

@ -1,7 +1,7 @@
#lang scheme/base
(require "core.ss"
"private/render-utils.ss"
(require "core.rkt"
"private/render-utils.rkt"
mzlib/class
mzlib/serialize
scheme/file
@ -9,7 +9,7 @@
setup/main-collects
setup/path-relativize
file/convertible
"render-struct.ss")
"render-struct.rkt")
(provide render%)

10
collects/scribble/base.rkt
View File

@ -1,10 +1,10 @@
#lang scheme/base
(require "decode.ss"
"core.ss"
"manual-struct.ss"
"decode-struct.ss"
"html-properties.ss"
(require "decode.rkt"
"core.rkt"
"manual-struct.rkt"
"decode-struct.rkt"
"html-properties.rkt"
scheme/list
scheme/class
scheme/contract

6
collects/scribble/basic.rkt
View File

@ -1,8 +1,8 @@
#lang scheme/base
(require "base.ss"
"core.ss"
"decode.ss")
(require "base.rkt"
"core.rkt"
"decode.rkt")
(provide title
section

5
collects/scribble/bnf.rkt
View File

@ -1,7 +1,6 @@
(module bnf mzscheme
(require "struct.ss"
"decode.ss"
(require "struct.rkt"
"decode.rkt"
mzlib/kw
mzlib/class)

2
collects/scribble/core.rkt
View File

@ -1,5 +1,5 @@
#lang scheme/base
(require "private/provide-structs.ss"
(require "private/provide-structs.rkt"
scheme/serialize
scheme/contract
file/convertible)

4
collects/scribble/decode-struct.rkt
View File

@ -1,7 +1,7 @@
#lang scheme/base
(require "core.ss"
"private/provide-structs.ss")
(require "core.rkt"
"private/provide-structs.rkt")
(provide-structs
[part-index-desc ()])

6
collects/scribble/decode.rkt
View File

@ -1,7 +1,7 @@
#lang scheme/base
(require "core.ss"
"private/provide-structs.ss"
"decode-struct.ss"
(require "core.rkt"
"private/provide-structs.rkt"
"decode-struct.rkt"
scheme/contract
scheme/class
scheme/list)

4
collects/scribble/doclang.rkt
View File

@ -1,7 +1,7 @@
#lang racket/base
(require "struct.ss"
"decode.ss"
(require "struct.rkt"
"decode.rkt"
(for-syntax racket/base
syntax/kerncase))

2
collects/scribble/eval.rkt
View File

@ -1,6 +1,6 @@
#lang racket/base
(require "manual.ss" "struct.ss" "scheme.ss" "decode.ss"
(require "manual.rkt" "struct.rkt" "scheme.rkt" "decode.rkt"
racket/string racket/list racket/file
racket/sandbox racket/promise racket/port file/convertible
(for-syntax racket/base))

2
collects/scribble/html-properties.rkt
View File

@ -1,5 +1,5 @@
#lang scheme/base
(require "private/provide-structs.ss"
(require "private/provide-structs.rkt"
scheme/contract)
(provide-structs

10
collects/scribble/html-render.rkt
View File

@ -1,8 +1,8 @@
#lang scheme/base
(require "core.ss"
"private/render-utils.ss"
"html-properties.ss"
(require "core.rkt"
"private/render-utils.rkt"
"html-properties.rkt"
scheme/class
scheme/path
scheme/file
@ -19,8 +19,8 @@
scheme/serialize
(prefix-in xml: xml/xml)
(for-syntax scheme/base)
"search.ss"
(except-in "base.ss" url))
"search.rkt"
(except-in "base.rkt" url))
(provide render-mixin
render-multi-mixin)

3
collects/scribble/info.rkt
View File

@ -1,8 +1,7 @@
#lang setup/infotab
(define mzscheme-launcher-names '("scribble"))
(define mzscheme-launcher-libraries '("run.ss"))
(define compile-omit-paths '("test-reader.ss"))
(define mzscheme-launcher-libraries '("run.rkt"))
(define raco-commands
'(("scribble" scribble/run "render a Scribble document" #f)))

2
collects/scribble/jfp/lang.rkt
View File

@ -4,7 +4,7 @@
(except-in scribble/base author)
scribble/decode
scribble/jfp
"../private/defaults.ss"
"../private/defaults.rkt"
(for-syntax scheme/base))
(provide (except-out (all-from-out scribble/doclang) #%module-begin)
(all-from-out scribble/jfp)

2
collects/scribble/latex-properties.rkt
View File

@ -1,5 +1,5 @@
#lang scheme/base
(require "private/provide-structs.ss"
(require "private/provide-structs.rkt"
scheme/contract)
(provide-structs

6
collects/scribble/latex-render.rkt
View File

@ -1,8 +1,8 @@
#lang scheme/base
(require "core.ss"
"latex-properties.ss"
"private/render-utils.ss"
(require "core.rkt"
"latex-properties.rkt"
"private/render-utils.rkt"
scheme/class
scheme/runtime-path
scheme/port

2
collects/scribble/lncs/lang.rkt
View File

@ -4,7 +4,7 @@
(except-in scribble/base author)
(prefix-in s/b: scribble/base)
scribble/decode
"../private/defaults.ss"
"../private/defaults.rkt"
(for-syntax racket/base racket/list)
setup/main-collects
scribble/html-properties

4
collects/scribble/manual-struct.rkt
View File

@ -1,7 +1,7 @@
#lang scheme/base
(require "core.ss"
"private/provide-structs.ss"
(require "core.rkt"
"private/provide-structs.rkt"
scheme/contract)
(provide-structs

51
collects/scribble/manual.rkt
View File

@ -1,33 +1,32 @@
#lang scheme/base
(require "base.ss"
"private/manual-style.ss"
"private/manual-scheme.ss"
"private/manual-code.ss"
"private/manual-mod.ss"
"private/manual-tech.ss"
"private/manual-bib.ss"
"private/manual-proc.ss"
"private/manual-form.ss"
"private/manual-class.ss"
"private/manual-unit.ss"
"private/manual-vars.ss"
"private/manual-bind.ss")
(require "base.rkt"
"private/manual-style.rkt"
"private/manual-scheme.rkt"
"private/manual-code.rkt"
"private/manual-mod.rkt"
"private/manual-tech.rkt"
"private/manual-bib.rkt"
"private/manual-proc.rkt"
"private/manual-form.rkt"
"private/manual-class.rkt"
"private/manual-unit.rkt"
"private/manual-vars.rkt"
"private/manual-bind.rkt")
(provide unsyntax
make-binding-redirect-elements
defidentifier
(all-from-out "base.ss"
"private/manual-style.ss"
"private/manual-scheme.ss"
"private/manual-code.ss"
"private/manual-mod.ss"
"private/manual-tech.ss"
"private/manual-bib.ss"
"private/manual-form.ss"
"private/manual-class.ss"
"private/manual-unit.ss")
(except-out (all-from-out "private/manual-vars.ss")
(all-from-out "base.rkt"
"private/manual-style.rkt"
"private/manual-scheme.rkt"
"private/manual-code.rkt"
"private/manual-mod.rkt"
"private/manual-tech.rkt"
"private/manual-bib.rkt"
"private/manual-form.rkt"
"private/manual-class.rkt"
"private/manual-unit.rkt")
(except-out (all-from-out "private/manual-vars.rkt")
*deftogether)
(except-out (all-from-out "private/manual-proc.ss")
(except-out (all-from-out "private/manual-proc.rkt")
*defthing))

2
collects/scribble/manual/lang.rkt
View File

@ -1,7 +1,7 @@
#lang scheme/base
(require scribble/doclang
scribble/manual
"../private/defaults.ss")
"../private/defaults.rkt")
(provide (except-out (all-from-out scribble/doclang) #%module-begin)
(all-from-out scribble/manual)
(rename-out [module-begin #%module-begin]))

4
collects/scribble/pdf-render.rkt
View File

@ -1,7 +1,7 @@
#lang scheme/base
(require "private/indirect-renderer.ss" "private/run-pdflatex.ss"
(prefix-in latex: "latex-render.ss"))
(require "private/indirect-renderer.rkt" "private/run-pdflatex.rkt"
(prefix-in latex: "latex-render.rkt"))
(provide render-mixin)

16
collects/scribble/private/manual-bib.rkt
View File

@ -1,13 +1,13 @@
#lang scheme/base
(require scheme/contract
"../decode.ss"
"../struct.ss"
"../basic.ss"
"on-demand.ss"
(only-in "../core.ss" make-style)
"manual-sprop.ss"
"manual-utils.ss"
"manual-style.ss")
"../decode.rkt"
"../struct.rkt"
"../basic.rkt"
"on-demand.rkt"
(only-in "../core.rkt" make-style)
"manual-sprop.rkt"
"manual-utils.rkt"
"manual-style.rkt")
(define-struct a-bib-entry (key val))

14
collects/scribble/private/manual-bind.rkt
View File

@ -1,11 +1,11 @@
#lang scheme/base
(require "../decode.ss"
"../struct.ss"
"../scheme.ss"
"../search.ss"
"../basic.ss"
"../manual-struct.ss"
"manual-ex.ss"
(require "../decode.rkt"
"../struct.rkt"
"../scheme.rkt"
"../search.rkt"
"../basic.rkt"
"../manual-struct.rkt"
"manual-ex.rkt"
scheme/string
scheme/contract
scheme/list

30
collects/scribble/private/manual-class.rkt
View File

@ -1,21 +1,21 @@
#lang scheme/base
(require "../decode.ss"
"../struct.ss"
"../scheme.ss"
"../search.ss"
"../basic.ss"
"../manual-struct.ss"
"qsloc.ss"
(require "../decode.rkt"
"../struct.rkt"
"../scheme.rkt"
"../search.rkt"
"../basic.rkt"
"../manual-struct.rkt"
"qsloc.rkt"
scheme/serialize
scheme/stxparam
"manual-utils.ss"
"manual-vars.ss"
"manual-style.ss"
"manual-scheme.ss"
"manual-bind.ss"
"manual-method.ss"
"manual-proc.ss"
"manual-ex.ss"
"manual-utils.rkt"
"manual-vars.rkt"
"manual-style.rkt"
"manual-scheme.rkt"
"manual-bind.rkt"
"manual-method.rkt"
"manual-proc.rkt"
"manual-ex.rkt"
scheme/string
scheme/list
(for-syntax scheme/base)

2
collects/scribble/private/manual-ex.rkt
View File

@ -1,5 +1,5 @@
#lang scheme/base
(require "../struct.ss")
(require "../struct.rkt")
; XXX unknown contracts
(provide (struct-out exporting-libraries)

28
collects/scribble/private/manual-form.rkt
View File

@ -1,18 +1,18 @@
#lang scheme/base
(require "../decode.ss"
"../struct.ss"
"../scheme.ss"
"../search.ss"
"../basic.ss"
"../manual-struct.ss"
"qsloc.ss"
"manual-utils.ss"
"manual-vars.ss"
"manual-style.ss"
"manual-scheme.ss"
"manual-bind.ss"
"manual-method.ss"
"manual-ex.ss"
(require "../decode.rkt"
"../struct.rkt"
"../scheme.rkt"
"../search.rkt"
"../basic.rkt"
"../manual-struct.rkt"
"qsloc.rkt"
"manual-utils.rkt"
"manual-vars.rkt"
"manual-style.rkt"
"manual-scheme.rkt"
"manual-bind.rkt"
"manual-method.rkt"
"manual-ex.rkt"
scheme/string
scheme/list
(for-syntax scheme/base)

10
collects/scribble/private/manual-method.rkt
View File

@ -1,9 +1,9 @@
#lang scheme/base
(require "../struct.ss"
"../search.ss"
"../scheme.ss"
"../basic.ss"
"manual-scheme.ss"
(require "../struct.rkt"
"../search.rkt"
"../scheme.rkt"
"../basic.rkt"
"manual-scheme.rkt"
(for-syntax scheme/base))
(provide ;; public:

14
collects/scribble/private/manual-mod.rkt
View File

@ -1,11 +1,11 @@
#lang scheme/base
(require "../decode.ss"
"../struct.ss"
"../basic.ss"
"../manual-struct.ss"
"manual-ex.ss"
"manual-style.ss"
"manual-scheme.ss"
(require "../decode.rkt"
"../struct.rkt"
"../basic.rkt"
"../manual-struct.rkt"
"manual-ex.rkt"
"manual-style.rkt"
"manual-scheme.rkt"
scheme/string
scheme/list
(for-syntax scheme/base)

30
collects/scribble/private/manual-proc.rkt
View File

@ -1,19 +1,19 @@
#lang racket/base
(require "../decode.ss"
"../struct.ss"
"../scheme.ss"
"../search.ss"
"../basic.ss"
"../manual-struct.ss"
"qsloc.ss"
"manual-utils.ss"
"manual-vars.ss"
"manual-style.ss"
"manual-scheme.ss"
"manual-bind.ss"
"manual-method.ss"
"manual-ex.ss"
"on-demand.ss"
(require "../decode.rkt"
"../struct.rkt"
"../scheme.rkt"
"../search.rkt"
"../basic.rkt"
"../manual-struct.rkt"
"qsloc.rkt"
"manual-utils.rkt"
"manual-vars.rkt"
"manual-style.rkt"
"manual-scheme.rkt"
"manual-bind.rkt"
"manual-method.rkt"
"manual-ex.rkt"
"on-demand.rkt"
scheme/string
scheme/list
(for-syntax racket/base)

14
collects/scribble/private/manual-scheme.rkt
View File

@ -1,12 +1,12 @@
#lang racket/base
(require "../decode.ss"
"../struct.ss"
"../scheme.ss"
"../search.ss"
"../basic.ss"
(require "../decode.rkt"
"../struct.rkt"
"../scheme.rkt"
"../search.rkt"
"../basic.rkt"
racket/list
"manual-utils.ss"
"manual-style.ss"
"manual-utils.rkt"
"manual-style.rkt"
(for-syntax racket/base)
(for-label racket/base))

8
collects/scribble/private/manual-sprop.rkt
View File

@ -1,11 +1,11 @@
#lang scheme/base
(require "../html-properties.ss"
"../latex-properties.ss"
"on-demand.ss"
(require "../html-properties.rkt"
"../latex-properties.rkt"
"on-demand.rkt"
setup/main-collects
scheme/promise)
(provide scheme-properties)
(define-on-demand scheme-properties

16
collects/scribble/private/manual-style.rkt
View File

@ -1,14 +1,14 @@
#lang racket/base
(require "../decode.ss"
"../struct.ss"
"../base.ss"
(only-in "../basic.ss" aux-elem itemize)
"../scheme.ss"
(only-in "../core.ss" make-style plain
(require "../decode.rkt"
"../struct.rkt"
"../base.rkt"
(only-in "../basic.rkt" aux-elem itemize)
"../scheme.rkt"
(only-in "../core.rkt" make-style plain
make-nested-flow
[element? core:element?])
"manual-utils.ss"
"on-demand.ss"
"manual-utils.rkt"
"on-demand.rkt"
"manual-sprop.rkt"
racket/list
racket/contract

10
collects/scribble/private/manual-tech.rkt
View File

@ -1,10 +1,10 @@
#lang scheme/base
(require scheme/contract
"../decode.ss"
"../struct.ss"
"../basic.ss"
"manual-utils.ss"
"manual-style.ss")
"../decode.rkt"
"../struct.rkt"
"../basic.rkt"
"manual-utils.rkt"
"manual-style.rkt")
(provide/contract
[deftech (() (#:style? boolean?) #:rest (listof pre-content?) . ->* . element?)]

24
collects/scribble/private/manual-unit.rkt
View File

@ -1,16 +1,16 @@
#lang scheme/base
(require "../decode.ss"
"../struct.ss"
"../scheme.ss"
"../search.ss"
"../basic.ss"
"manual-utils.ss"
"manual-vars.ss"
"manual-style.ss"
"manual-scheme.ss"
"manual-bind.ss"
"manual-ex.ss"
"manual-proc.ss"
(require "../decode.rkt"
"../struct.rkt"
"../scheme.rkt"
"../search.rkt"
"../basic.rkt"
"manual-utils.rkt"
"manual-vars.rkt"
"manual-style.rkt"
"manual-scheme.rkt"
"manual-bind.rkt"
"manual-ex.rkt"
"manual-proc.rkt"
scheme/contract
(for-syntax scheme/base)
(for-label scheme/base))

8
collects/scribble/private/manual-utils.rkt
View File

@ -1,8 +1,8 @@
#lang scheme/base
(require "../struct.ss"
"../decode.ss"
"../base.ss"
(only-in "../core.ss"
(require "../struct.rkt"
"../decode.rkt"
"../base.rkt"
(only-in "../core.rkt"
content?)
scheme/contract
scheme/list)

8
collects/scribble/private/manual-vars.rkt
View File

@ -1,8 +1,8 @@
#lang scheme/base
(require "../decode.ss"
"../scheme.ss"
"../struct.ss"
(only-in "../core.ss" style-name)
(require "../decode.rkt"
"../scheme.rkt"
"../struct.rkt"
(only-in "../core.rkt" style-name)
scheme/contract
(for-syntax scheme/base
syntax/kerncase

2
collects/scribble/private/render-utils.rkt
View File

@ -1,5 +1,5 @@
#lang scheme/base
(require "../core.ss")
(require "../core.rkt")
(provide part-style?
select-suffix

10
collects/scribble/racket.rkt
View File

@ -1,9 +1,9 @@
(module racket racket/base
(require "core.ss"
"basic.ss"
"search.ss"
"private/manual-sprop.ss"
"private/on-demand.ss"
(require "core.rkt"
"basic.rkt"
"search.rkt"
"private/manual-sprop.rkt"
"private/on-demand.rkt"
mzlib/class
mzlib/for
syntax/modresolve

14
collects/scribble/run.rkt
View File

@ -1,16 +1,16 @@
#lang racket/base
(require "core.ss"
"base-render.ss"
"xref.ss"
(require "core.rkt"
"base-render.rkt"
"xref.rkt"
scheme/cmdline
scheme/file
scheme/class
raco/command-name
(prefix-in text: "text-render.ss")
(prefix-in html: "html-render.ss")
(prefix-in latex: "latex-render.ss")
(prefix-in pdf: "pdf-render.ss"))
(prefix-in text: "text-render.rkt")
(prefix-in html: "html-render.rkt")
(prefix-in latex: "latex-render.rkt")
(prefix-in pdf: "pdf-render.rkt"))
(define multi-html:render-mixin
(lambda (%) (html:render-multi-mixin (html:render-mixin %))))

4
collects/scribble/scheme.rkt
View File

@ -1,3 +1,3 @@
#lang racket/base
(require "racket.ss")
(provide (all-from-out "racket.ss"))
(require "racket.rkt")
(provide (all-from-out "racket.rkt"))

4
collects/scribble/search.rkt
View File

@ -1,6 +1,6 @@
(module search racket/base
(require "struct.ss"
"basic.ss"
(require "struct.rkt"
"basic.rkt"
setup/main-collects
syntax/modcode)

2
collects/scribble/sigplan/lang.rkt
View File

@ -5,7 +5,7 @@
scribble/decode
scribble/sigplan
racket/list
"../private/defaults.ss"
"../private/defaults.rkt"
(for-syntax scheme/base))
(provide (except-out (all-from-out scribble/doclang) #%module-begin)
(all-from-out scribble/sigplan)

2
collects/scribble/srcdoc.rkt
View File

@ -2,7 +2,7 @@
(require scheme/contract
(for-syntax scheme/base)
"provide-doc-transform.ss")
"provide-doc-transform.rkt")
(provide require/doc
provide/doc

6
collects/scribble/struct.rkt
View File

@ -1,10 +1,10 @@
#lang scheme/base
(require (rename-in (except-in "core.ss"
(require (rename-in (except-in "core.rkt"
target-url struct:target-url target-url? target-url-addr
deserialize-info:target-url-v0)
[make-target-url core:make-target-url])
"private/provide-structs.ss"
"html-properties.ss"
"private/provide-structs.rkt"
"html-properties.rkt"
scheme/provide-syntax
scheme/struct-info
scheme/contract

3
collects/scribble/text-render.rkt
View File

@ -1,6 +1,5 @@
(module text-render racket/base
(require "core.ss"
(require "core.rkt"
racket/class
racket/port)
(provide render-mixin)

4
collects/scribble/text/lang.rkt
View File

@ -1,9 +1,9 @@
#lang racket/base
(require "syntax-utils.ss" "output.ss"
(require "syntax-utils.rkt" "output.rkt"
racket/promise racket/list racket/string)
(provide (except-out (all-from-out racket/base) #%module-begin)
(all-from-out "output.ss" racket/promise racket/list racket/string)
(all-from-out "output.rkt" racket/promise racket/list racket/string)
(rename-out [module-begin/text #%module-begin]
[begin/text text] [include/text include]))

4
collects/scribble/text/main.rkt
View File

@ -1,7 +1,7 @@
#lang racket/base
(require "output.ss" "syntax-utils.ss"
(require "output.rkt" "syntax-utils.rkt"
racket/promise racket/list racket/string)
(provide (all-from-out "output.ss" racket/promise racket/list racket/string)
(provide (all-from-out "output.rkt" racket/promise racket/list racket/string)
begin/text include/text)

4
collects/scribble/text/syntax-utils.rkt
View File

@ -1,6 +1,6 @@
#lang scheme/base
(require "output.ss" (for-syntax scheme/base syntax/kerncase))
(require "output.rkt" (for-syntax scheme/base syntax/kerncase))
(provide module-begin/text begin/text include/text begin/collect
process-begin/text)
@ -172,7 +172,7 @@
#'(process-begin/text begin/collect begin expr ...)]))
;; include for templates
(require (for-syntax scheme/base (prefix-in scribble: "../reader.ss"))
(require (for-syntax scheme/base (prefix-in scribble: "../reader.rkt"))
scheme/include)
(define-syntax-rule (include/text path-spec)
(begin/text

2
collects/scriblib/figure.rkt
View File

@ -6,7 +6,7 @@
scribble/html-properties
scribble/latex-properties
setup/main-collects
"private/counter.ss")
"private/counter.rkt")
(provide figure
figure*

2
collects/scriblib/footnote.rkt
View File

@ -6,7 +6,7 @@
scribble/latex-properties
racket/promise
setup/main-collects
"private/counter.ss")
"private/counter.rkt")
(provide note
define-footnote)

2
collects/scriblib/gui-eval.rkt
View File

@ -7,7 +7,7 @@
racket/file
racket/runtime-path
racket/serialize
"private/gui-eval-exn.ss"
"private/gui-eval-exn.rkt"
racket/system
racket/sandbox
(for-syntax racket/base))