23 lines
725 B
Scheme
23 lines
725 B
Scheme
#lang scheme/base
|
|
|
|
(require (prefix-in scribble: "../reader.ss"))
|
|
|
|
(provide (rename-out [*read read])
|
|
(rename-out [*read-syntax read-syntax]))
|
|
|
|
(define (*read [inp (current-input-port)])
|
|
(wrap inp (scribble:read-inside inp)))
|
|
|
|
(define (*read-syntax [src #f] [port (current-input-port)])
|
|
(wrap port (scribble:read-syntax-inside src port)))
|
|
|
|
(define (wrap port body)
|
|
(let* ([p-name (object-name port)]
|
|
[name (if (path? p-name)
|
|
(let-values ([(base name dir?) (split-path p-name)])
|
|
(string->symbol (path->string (path-replace-suffix name #""))))
|
|
'page)]
|
|
[id 'doc])
|
|
`(module ,name scribble/doclang
|
|
(#%module-begin ,id () . ,body))))
|