c0b928c758
if there already was one that I didn't find). Also fixed syntax error raising procedure. closes PR 12859
56 lines
1.7 KiB
Racket
56 lines
1.7 KiB
Racket
#cs(module algol60 mzscheme
|
|
(require-for-syntax "parse.rkt"
|
|
;; Parses to generate an AST. Identifiers in the AST
|
|
;; are represented as syntax objects with source location.
|
|
|
|
"simplify.rkt"
|
|
;; Desugars the AST, transforming `for' to `if'+`goto',
|
|
;; and flattening `if' statements so they are always
|
|
;; of the for `if <exp> then goto <label> else goto <label>'
|
|
|
|
"compile.rkt"
|
|
;; Compiles a simplified AST to Scheme.
|
|
|
|
mzlib/file)
|
|
|
|
;; By using #'here for the context of identifiers
|
|
;; introduced by compilation, the identifiers can
|
|
;; refer to runtime functions and primitives, as
|
|
;; well as mzscheme:
|
|
(require "runtime.rkt" "prims.rkt")
|
|
|
|
|
|
(provide include-algol literal-algol)
|
|
|
|
(define-syntax (include-algol stx)
|
|
(syntax-case stx ()
|
|
[(_ str)
|
|
(string? (syntax-e (syntax str)))
|
|
|
|
(compile-simplified
|
|
(simplify
|
|
(parse-a60-file
|
|
(normalize-path (syntax-e (syntax str))
|
|
(or
|
|
(current-load-relative-directory)
|
|
(current-directory))))
|
|
#'here)
|
|
#'here)]))
|
|
|
|
(define-syntax (literal-algol stx)
|
|
(syntax-case stx ()
|
|
[(_ strs ...)
|
|
(andmap (λ (x) (string? (syntax-e x)))
|
|
(syntax->list (syntax (strs ...))))
|
|
|
|
(compile-simplified
|
|
(simplify
|
|
(parse-a60-port
|
|
(open-input-string
|
|
(apply
|
|
string-append
|
|
(map syntax-e (syntax->list #'(strs ...)))))
|
|
(syntax-source stx))
|
|
#'here)
|
|
#'here)])))
|