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

regexp table formatted for new docs

Browse Source 
svn: r6740

original commit: c79499e8b62857200dab946fbfd267e712af36f7
This commit is contained in:
Matthew Flatt 2007-06-26 08:18:55 +00:00
parent 5552a5c58c
commit 4939c9cff0
6 changed files with 108 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/scribble/base-render.ss
View File

@ -116,7 +116,8 @@
[else (collect-paragraph p ht)])) [else (collect-paragraph p ht)]))
(define/public (collect-table i ht) (define/public (collect-table i ht)
(for-each (lambda (d) (collect-flow d ht)) (for-each (lambda (d) (when (flow? d)
(collect-flow d ht)))
(apply append (table-flowss i)))) (apply append (table-flowss i))))
(define/public (collect-itemization i ht) (define/public (collect-itemization i ht)
@ -209,7 +210,9 @@
[else (render-paragraph p part ht)])) [else (render-paragraph p part ht)]))
(define/public (render-table i part ht) (define/public (render-table i part ht)
(map (lambda (d) (render-flow d part ht)) (map (lambda (d) (if (flow? i)
(render-flow d part ht)
null))
(apply append (table-flowss i)))) (apply append (table-flowss i))))
(define/public (render-itemization i part ht) (define/public (render-itemization i part ht)

69
collects/scribble/html-render.ss
View File

@ -245,27 +245,53 @@
,@(if (string? (table-style t)) ,@(if (string? (table-style t))
`((class ,(table-style t))) `((class ,(table-style t)))
null)) null))
,@(map (lambda (flows) ,@(map (lambda (flows style)
`(tr ,@(map (lambda (d a va) `(tr (,@(if style
`(td (,@(case a `((class ,style))
[(#f) null] null))
[(right) '((align "right"))] ,@(let loop ([ds flows]
[(center) '((align "center"))] [as (cdr (or (and (list? (table-style t))
[(left) '((align "left"))]) (assoc 'alignment (or (table-style t) null)))
,@(case va (cons #f (map (lambda (x) #f) flows))))]
[(#f) null] [vas
[(top) '((valign "top"))] (cdr (or (and (list? (table-style t))
[(baseline) '((valign "baseline"))] (assoc 'valignment (or (table-style t) null)))
[(bottom) '((valign "bottom"))])) (cons #f (map (lambda (x) #f) flows))))])
,@(render-flow d part ht))) (if (null? ds)
flows null
(cdr (or (and (list? (table-style t)) (if (eq? (car ds) 'cont)
(assoc 'alignment (or (table-style t) null))) (loop (cdr ds) (cdr as) (cdr vas))
(cons #f (map (lambda (x) #f) flows)))) (let ([d (car ds)]
(cdr (or (and (list? (table-style t)) [a (car as)]
(assoc 'valignment (or (table-style t) null))) [va (car vas)])
(cons #f (map (lambda (x) #f) flows))))))) (cons
(table-flowss t))))) `(td (,@(case a
[(#f) null]
[(right) '((align "right"))]
[(center) '((align "center"))]
[(left) '((align "left"))])
,@(case va
[(#f) null]
[(top) '((valign "top"))]
[(baseline) '((valign "baseline"))]
[(bottom) '((valign "bottom"))])
,@(if (and (pair? (cdr ds))
(eq? 'cont (cadr ds)))
`((colspan
,(number->string
(let loop ([n 2]
[ds (cddr ds)])
(cond
[(null? ds) n]
[(eq? 'cont (car ds)) (loop (+ n 1) (cdr ds))]
[else n])))))
null))
,@(render-flow d part ht))
(loop (cdr ds) (cdr as) (cdr vas)))))))))
(table-flowss t)
(cdr (or (and (list? (table-style t))
(assoc 'row-styles (or (table-style t) null)))
(cons #f (map (lambda (x) #f) (table-flowss t)))))))))
(define/override (render-blockquote t part ht) (define/override (render-blockquote t part ht)
`((blockquote ,@(if (string? (blockquote-style t)) `((blockquote ,@(if (string? (blockquote-style t))
@ -286,6 +312,7 @@
(cond (cond
[(string? i) (list i)] [(string? i) (list i)]
[(eq? i 'mdash) `(" " ndash " ")] [(eq? i 'mdash) `(" " ndash " ")]
[(eq? i 'hline) `((hr))]
[(symbol? i) (list i)] [(symbol? i) (list i)]
[else (list (format "~s" i))])) [else (list (format "~s" i))]))

46
collects/scribble/latex-render.ss
View File

@ -59,6 +59,7 @@
(printf "\\newcommand{\\textsub}[1]{$_{#1}$}\n") (printf "\\newcommand{\\textsub}[1]{$_{#1}$}\n")
(printf "\\newcommand{\\textsuper}[1]{$^{#1}$}\n") (printf "\\newcommand{\\textsuper}[1]{$^{#1}$}\n")
(printf "\\newcommand{\\refcontent}[1]{#1}\n") (printf "\\newcommand{\\refcontent}[1]{#1}\n")
(printf "\\newcommand{\\smaller}[1]{{\\footnotesize #1}}\n")
(printf "\\definecolor{PaleBlue}{rgb}{0.90,0.90,1.0}\n") (printf "\\definecolor{PaleBlue}{rgb}{0.90,0.90,1.0}\n")
(printf "\\definecolor{LightGray}{rgb}{0.90,0.90,0.90}\n") (printf "\\definecolor{LightGray}{rgb}{0.90,0.90,0.90}\n")
(printf "\\newcommand{\\schemeinput}[1]{\\colorbox{LightGray}{\\hspace{-0.5ex}\\schemeinputcol{#1}\\hspace{-0.5ex}}}\n") (printf "\\newcommand{\\schemeinput}[1]{\\colorbox{LightGray}{\\hspace{-0.5ex}\\schemeinputcol{#1}\\hspace{-0.5ex}}}\n")
@ -170,7 +171,8 @@
[opt (if (zero? (current-table-depth)) [opt (if (zero? (current-table-depth))
"[l]" "[l]"
"")]) "")])
(unless (null? (table-flowss t)) (unless (or (null? (table-flowss t))
(null? (car (table-flowss t))))
(parameterize ([current-table-depth (add1 (current-table-depth))]) (parameterize ([current-table-depth (add1 (current-table-depth))])
(if index? (if index?
(printf "\n\n\\begin{theindex}\n") (printf "\n\n\\begin{theindex}\n")
@ -185,18 +187,41 @@
tableform tableform
opt opt
(apply string-append (apply string-append
(map (lambda (i) "l@{}") (map (lambda (i align) "~a@{}"
(car (table-flowss t)))))) (case align
(for-each (lambda (flows) [(center) "c"]
[(right) "r"]
[else "l"]))
(car (table-flowss t))
(cdr (or (and (list? (table-style t))
(assoc 'alignment (or (table-style t) null)))
(cons #f (map (lambda (x) #f) (car (table-flowss t))))))))))
(for-each (lambda (flows row-style)
(let loop ([flows flows]) (let loop ([flows flows])
(unless (null? flows) (unless (null? flows)
(render-flow (car flows) part ht) (unless (eq? 'cont (car flows))
(let ([cnt (let loop ([flows (cdr flows)][n 1])
(cond
[(null? flows) n]
[(eq? (car flows) 'cont) (loop (cdr flows) (add1 n))]
[else n]))])
(unless (= cnt 1)
(printf "\\multicolumn{~a}{l}{" cnt))
(render-flow (car flows) part ht)
(unless (= cnt 1)
(printf "}"))
(unless (null? (list-tail flows cnt))
(printf " &\n"))))
(unless (null? (cdr flows)) (unless (null? (cdr flows))
(printf " &\n")
(loop (cdr flows))))) (loop (cdr flows)))))
(unless index? (unless index?
(printf " \\\\\n"))) (printf " \\\\\n")
(table-flowss t)) (when (equal? row-style "inferencetop")
(printf "\\hline\n"))))
(table-flowss t)
(cdr (or (and (list? (table-style t))
(assoc 'row-styles (table-style t)))
(cons #f (map (lambda (x) #f) (table-flowss t))))))
(printf "\n\n\\end{~a}~a\n" (printf "\n\n\\end{~a}~a\n"
tableform tableform
(if (equal? tableform "longtable") (if (equal? tableform "longtable")
@ -234,7 +259,10 @@
[(rdquo) "''"] [(rdquo) "''"]
[(rsquo) "'"] [(rsquo) "'"]
[(prime) "$'$"] [(prime) "$'$"]
[(rarr) "$\\rightarrow$"]))] [(rarr) "$\\rightarrow$"]
[(alpha) "$\\alpha$"]
[(infin) "$\\infty$"]
[else (error 'render "unknown symbol element: ~e" i)]))]
[else (display-protected (format "~s" i))]) [else (display-protected (format "~s" i))])
null) null)

6
collects/scribble/manual.ss
View File

@ -182,7 +182,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 specsubform/subs specspecsubform specsubform/inline specsubform specsubform/subs specspecsubform specspecsubform/subs specsubform/inline
schemegrammar schemegrammar* schemegrammar schemegrammar*
var svar void-const undefined-const) var svar void-const undefined-const)
@ -310,6 +310,10 @@
(syntax-rules () (syntax-rules ()
[(_ spec desc ...) [(_ spec desc ...)
(make-blockquote "leftindent" (list (specsubform spec desc ...)))])) (make-blockquote "leftindent" (list (specsubform spec desc ...)))]))
(define-syntax specspecsubform/subs
(syntax-rules ()
[(_ spec subs desc ...)
(make-blockquote "leftindent" (list (specsubform/subs spec subs desc ...)))]))
(define-syntax specform (define-syntax specform
(syntax-rules () (syntax-rules ()
[(_ #:literals (lit ...) spec desc ...) [(_ #:literals (lit ...) spec desc ...)

12
collects/scribble/scribble.css
View File

@ -221,6 +221,18 @@
font-family: Courier; font-size: 80%; font-family: Courier; font-size: 80%;
} }
.smaller {
font-size: 80%;
}
.inferencetop td {
border-bottom: 1px solid black;
text-align: center;
}
.inferencebottom td {
text-align: center;
}
.schemeinput { .schemeinput {
color: brown; color: brown;
background-color: #eeeeee; background-color: #eeeeee;

2
collects/scribble/struct.ss
View File

@ -63,7 +63,7 @@
[paragraph ([content list?])] [paragraph ([content list?])]
[(styled-paragraph paragraph) ([style any/c])] [(styled-paragraph paragraph) ([style any/c])]
[table ([style any/c] [table ([style any/c]
[flowss (listof (listof flow?))])] [flowss (listof (listof (or/c flow? (one-of/c 'cont))))])]
[delayed-flow-element ([render (any/c part? any/c . -> . flow-element?)])] [delayed-flow-element ([render (any/c part? any/c . -> . flow-element?)])]
[itemization ([flows (listof flow?)])] [itemization ([flows (listof flow?)])]
[blockquote ([style any/c] [blockquote ([style any/c]