read-lang-file

8.16.0.4

read-lang-file🔗ℹ

source code: https://github.com/AlexKnauth/lang-file

(require lang-file/read-lang-file)

package: lang-file-lib

procedure
(read-lang-file path-string) → syntax?
path-string : path-string?

Reads a #lang file into a module syntax object.

procedure
(read-lang-module port) → syntax?
port : input-port?

Reads the contents of a #lang file from port into a module syntax object.

Examples:

> (require lang-file/read-lang-file)
> (read-lang-module (open-input-string "#lang racket/base\n(+ 1 2)"))
#<syntax:string:1:6 (module anonymous-module racket/base (#%module-begin (+ 1 2)))>
> (syntax->datum
(read-lang-module (open-input-string "#lang racket/base\n(+ 1 2)")))
'(module anonymous-module racket/base (#%module-begin (+ 1 2)))

procedure
(lang-file? path-string) → boolean?
path-string : path-string?

Returns true if path-string points to a valid #lang file, false otherwise.

procedure
(lang-file-lang path-string) → (or/c false? string?)
path-string : path-string?

Returns a string containing the the language of a #lang file.