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

better layout of generated scribble-reader examples

Browse Source 
svn: r6266

original commit: 4ff0390a0748eb6126a69d544cadc7e06dea7bb3
This commit is contained in:
Matthew Flatt 2007-05-24 11:08:26 +00:00
parent 41c752b9b4
commit bc4e1b3fe6
1 changed files with 43 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
collects/scribblings/scribble/utils.ss
View File

@ -29,6 +29,48 @@
(define spacer (hspace 2)) (define spacer (hspace 2))
(define ((norm-spacing base) p)
(cond
[(and (syntax->list p)
(not (null? (syntax-e p))))
(let loop ([e (syntax->list p)]
[line (syntax-line (car (syntax-e p)))]
[pos base]
[second #f]
[accum null])
(cond
[(null? e)
(datum->syntax-object
p
(reverse accum)
(list (syntax-source p)
(syntax-line p)
base
(add1 base)
(- pos base))
p)]
[else
(let* ([v ((norm-spacing (if (= line (syntax-line (car e)))
pos
(or second pos)))
(car e))]
[next-pos (+ (syntax-column v) (syntax-span v) 1)])
(loop (cdr e)
(syntax-line v)
next-pos
(or second next-pos)
(cons v accum)))]))]
[else
(datum->syntax-object
p
(syntax-e p)
(list (syntax-source p)
(syntax-line p)
base
(add1 base)
1)
p)]))
(define (scribble-examples . lines) (define (scribble-examples . lines)
(make-table (make-table
#f #f
@ -39,7 +81,7 @@
(let ([p (open-input-string line)]) (let ([p (open-input-string line)])
(port-count-lines! p) (port-count-lines! p)
(if (regexp-match? #rx"\n" line) (if (regexp-match? #rx"\n" line)
(scribble:read-syntax #f p) ((norm-spacing 0) (scribble:read-syntax #f p))
(scribble:read p))))) (scribble:read p)))))
line)]) line)])
(list (as-flow spacer) (list (as-flow spacer)