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

set props and a little better code for syntax in scribble file

Browse Source 
svn: r11952
This commit is contained in:
Eli Barzilay 2008-10-06 17:24:16 +00:00
parent dd20d88776
commit 499fc08d0d
1 changed files with 32 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

65
collects/games/scribblings/chat-noir.scrbl
View File

@ -1,6 +1,6 @@
#lang scribble/doc #lang scribble/doc
@(require "common.ss") @(require "common.ss")
@(require scheme/runtime-path (for-syntax scheme/port scheme/base)) @(require scheme/runtime-path (for-syntax scheme/port scheme/base scheme/path))
@(define-runtime-path cn "../chat-noir/chat-noir.ss") @(define-runtime-path cn "../chat-noir/chat-noir.ss")
@gametitle["Chat Noir" "chat-noir" "Puzzle Game"] @gametitle["Chat Noir" "chat-noir" "Puzzle Game"]
@ -22,38 +22,35 @@ the introductory programming course at the University of Chicago in
the fall of 2008, as below. the fall of 2008, as below.
@(define-syntax (m stx) @(define-syntax (m stx)
(syntax-case stx () (call-with-input-file
[(_) (build-path (path-only (syntax-source stx))
(call-with-input-file (build-path (current-load-relative-directory) 'up "chat-noir" "chat-noir.ss")
'up (lambda (port)
"chat-noir" (port-count-lines! port)
"chat-noir.ss") #`(schemeblock
(lambda (port) #,@
(port-count-lines! port) (let loop ()
#`(schemeblock (let* ([p (peeking-input-port port)]
#,@ [l (read-line p)])
(let loop () (cond
(let* ([p (peeking-input-port port)] [(eof-object? l) '()]
[l (read-line p)]) [(regexp-match #rx"^[ \t]*$" l)
(cond (read-line port)
[(eof-object? l) '()] (loop)]
[(regexp-match #rx"^[ \t]*$" l) [(regexp-match #rx"^ *;+" l)
(read-line port) =>
(loop)] (lambda (m)
[(regexp-match #rx"^ *;+" l) (let-values ([(line col pos) (port-next-location port)])
=> (read-line port)
(lambda (m) (let-values ([(line2 col2 pos2) (port-next-location port)])
(let-values ([(line col pos) (port-next-location port)]) (cons (datum->syntax
(read-line port) #f
(let-values ([(line2 col2 pos2) (port-next-location port)]) `(code:comment ,(regexp-replace* #rx" " l "\u00a0"))
(cons (datum->syntax (list "chat-noir.ss" line col pos (- pos2 pos)))
#f (loop)))))]
`(code:comment ,(regexp-replace* #rx" " l "\u00a0")) [else
(list "chat-noir.ss" line col pos (- pos2 pos))) (cons (read-syntax "chat-noir.ss" port)
(loop)))))] (loop))])))))
[else #:mode 'text))
(cons (read-syntax "chat-noir.ss" port)
(loop))])))))
#:mode 'text)]))
@m[] @m[]