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

added syntax properties

Browse Source 
svn: r6783
This commit is contained in:
Eli Barzilay 2007-07-01 05:44:17 +00:00
parent 95d6934002
commit a2ee15f28d
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/scribble/reader.ss
View File

@ -235,8 +235,10 @@
[stx* (syntax/placeholder-strip stx)]) [stx* (syntax/placeholder-strip stx)])
(if (and newline? (< curline line) (< mincol stxcol)) (if (and newline? (< curline line) (< mincol stxcol))
(list* stx* (list* stx*
(syntax-property
(datum->syntax-object/placeholder stx (datum->syntax-object/placeholder stx
(make-spaces (- stxcol mincol))) (make-spaces (- stxcol mincol)))
'scribble 'indentation)
r) r)
(cons stx* r))))))))) (cons stx* r)))))))))
@ -294,8 +296,12 @@
(if (and (zero? lvl) (not start-inside?)) (if (and (zero? lvl) (not start-inside?))
(done-lines r) (done-lines r)
(loop (sub1 lvl) (maybe-merge (make-stx m) r))))] (loop (sub1 lvl) (maybe-merge (make-stx m) r))))]
[(*skip re:end-of-line) [(*match1 re:end-of-line)
(loop lvl (cons (make-stx eol-token) r))] ; no merge needed => (lambda (m)
(loop lvl (cons ; no merge needed
(syntax-property (make-stx eol-token)
'scribble `(newline ,m))
r)))]
[(*peek re:command) [(*peek re:command)
;; read the next value, include comment objs, keep source ;; read the next value, include comment objs, keep source
;; location manually (see above) ;; location manually (see above)