PS: I changed the ^ in the regexp to .* so it works for things like ;;;; fdask #lang scheme
I assume that's what you'd meant? Robby On Fri, Jan 29, 2010 at 3:37 PM, Robby Findler <[email protected]> wrote: > On Fri, Jan 29, 2010 at 2:24 PM, Eli Barzilay <[email protected]> wrote: >> Here's some rough code that is easy to translate to a port instead of >> a string: >> >> (define (lang-line str) >> (let* ([i (open-input-string str)] >> [l (read-language i (lambda () '?))]) >> (if (eq? '? l) >> (values "???" '???) >> (values (regexp-replace #rx"^#(?:!|lang ) *" >> (substring str 0 (file-position i)) >> "") >> (l 'module-language '???))))) > > This doesn't work for planet packages, right? > > Robby > _________________________________________________ For list-related administrative tasks: http://list.cs.brown.edu/mailman/listinfo/plt-dev
