mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-02 21:10:27 +02:00
9d198c1b17
* Makefile.am (psyntax.pp): Enable rule for psyntax.pp only in maintainer mode. Use compile-psyntax.scm for actual compilation. Make sure the uninstalled guile is used. (EXTRA_DIST): Distribute compile-psyntax.scm * compile-psyntax.scm: New file.
25 lines
738 B
Scheme
25 lines
738 B
Scheme
(use-modules (ice-9 syncase))
|
|
|
|
;; XXX - We need to be inside (ice-9 syncase) since psyntax.ss calls
|
|
;; `eval' int he `interaction-environment' aka the current module and
|
|
;; it expects to have `andmap' there. The reason for this escapes me
|
|
;; at the moment.
|
|
;;
|
|
(define-module (ice-9 syncase))
|
|
|
|
(define source (list-ref (command-line) 1))
|
|
(define target (list-ref (command-line) 2))
|
|
|
|
(let ((in (open-input-file source))
|
|
(out (open-output-file (string-append target ".tmp"))))
|
|
(let loop ((x (read in)))
|
|
(if (eof-object? x)
|
|
(begin
|
|
(close-port out)
|
|
(close-port in))
|
|
(begin
|
|
(write (sc-expand3 x 'c '(compile load eval)) out)
|
|
(newline out)
|
|
(loop (read in))))))
|
|
|
|
(system (format #f "mv -f ~s.tmp ~s" target target))
|