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

fixes from Jed Davis

Browse Source 
svn: r13388
This commit is contained in:
Robby Findler 2009-02-03 19:25:08 +00:00
parent f0cac461e7
commit 9bbed05671
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/redex/private/dot.ss
View File

@ -123,7 +123,7 @@
[w (list-ref line 2)] [w (list-ref line 2)]
[h (list-ref line 3)] [h (list-ref line 3)]
[children (list-ref line 4)]) [children (list-ref line 4)])
(printf " ~a [width=~a height=~a shape=box label=\"\"]\n" (printf " ~a [width=~a height=~a shape=box label=\"\"]\n"
(num->id id) (num->id id)
(format-number (pixels->inches w)) (format-number (pixels->inches w))
(format-number (pixels->inches h))) (format-number (pixels->inches h)))
@ -210,7 +210,10 @@
void)) void))
(define (parse-edge line) (define (parse-edge line)
(define (give-up)
(error 'redex "could not parse edge line:\n ~s\n" line))
(let* ([m (regexp-match #rx"edge ([^ ]+) ([^ ]+) ([0-9]+) (.*)$" line)] (let* ([m (regexp-match #rx"edge ([^ ]+) ([^ ]+) ([0-9]+) (.*)$" line)]
[_ (unless m (give-up))]
[from (list-ref m 1)] [from (list-ref m 1)]
[to (list-ref m 2)] [to (list-ref m 2)]
[point-count (string->number (list-ref m 3))] [point-count (string->number (list-ref m 3))]
@ -220,7 +223,8 @@
[rest rest]) [rest rest])
(if (zero? pts) (if (zero? pts)
'() '()
(let* ([m (regexp-match #rx"^([0-9.]+) ([0-9.]+) (.*)$" rest)] (let* ([m (regexp-match #rx"^([-0-9.]+) ([-0-9.]+) (.*)$" rest)]
[_ (unless m (give-up))]
[x (string->number (list-ref m 1))] [x (string->number (list-ref m 1))]
[y (string->number (list-ref m 2))]) [y (string->number (list-ref m 2))])
(set! max-y (max y max-y)) (set! max-y (max y max-y))