artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Nyacc example scripts: support Guile-1.8.

Browse source
This commit is contained in:
Jan Nieuwenhuizen 2016-12-19 22:14:04 +01:00
parent c9c44ad63f
commit 9bd403adbe
2 changed files with 14 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
guile/nyacc-calc.scm
View file

@ -1,6 +1,6 @@
#! /bin/sh #! /bin/sh
# -*-scheme-*- # -*-scheme-*-
exec guile -L $(pwd)/module -e '(nyacc)' -s "$0" "$@" exec ${GUILE-guile} -L $(pwd)/module -e '(nyacc)' -s "$0" "$@"
!# !#
;;; Mes --- The Maxwell Equations of Software ;;; Mes --- The Maxwell Equations of Software
@ -24,6 +24,11 @@ exec guile -L $(pwd)/module -e '(nyacc)' -s "$0" "$@"
;; The Maxwell Equations of Software -- John McCarthy page 13 ;; The Maxwell Equations of Software -- John McCarthy page 13
;; http://www.softwarepreservation.org/projects/LISP/book/LISP%201.5%20Programmers%20Manual.pdf ;; http://www.softwarepreservation.org/projects/LISP/book/LISP%201.5%20Programmers%20Manual.pdf
#!
Run with Guile-1.8:
GUILE='~/src/guile-1.8/build/pre-inst-guile --debug -q' guile/nyacc.scm
!#
;; Tcalc.scm - calculator ;; Tcalc.scm - calculator
;; ;;
;; Copyright (C) 2015 Matthew R. Wette ;; Copyright (C) 2015 Matthew R. Wette
@ -34,6 +39,8 @@ exec guile -L $(pwd)/module -e '(nyacc)' -s "$0" "$@"
;; without any warranty. ;; without any warranty.
(define-module (nyacc) (define-module (nyacc)
#:use-module (ice-9 syncase) ;; guile-1.8
#:use-module (ice-9 optargs) ;; guile-1.8
#:use-module (nyacc lalr) #:use-module (nyacc lalr)
#:use-module (nyacc lex) #:use-module (nyacc lex)
#:use-module (nyacc parse) #:use-module (nyacc parse)

7
guile/nyacc.scm
View file

@ -1,6 +1,6 @@
#! /bin/sh #! /bin/sh
# -*-scheme-*- # -*-scheme-*-
exec guile -L $(pwd)/module -e '(nyacc)' -s "$0" "$@" exec ${GUILE-guile} -L $(pwd)/module -e '(nyacc)' -s "$0" "$@"
!# !#
;;; Mes --- The Maxwell Equations of Software ;;; Mes --- The Maxwell Equations of Software
@ -24,6 +24,11 @@ exec guile -L $(pwd)/module -e '(nyacc)' -s "$0" "$@"
;; The Maxwell Equations of Software -- John McCarthy page 13 ;; The Maxwell Equations of Software -- John McCarthy page 13
;; http://www.softwarepreservation.org/projects/LISP/book/LISP%201.5%20Programmers%20Manual.pdf ;; http://www.softwarepreservation.org/projects/LISP/book/LISP%201.5%20Programmers%20Manual.pdf
#!
Run with Guile-1.8:
GUILE='~/src/guile-1.8/build/pre-inst-guile --debug -q' guile/nyacc.scm
!#
(define-module (nyacc) (define-module (nyacc)
#:use-module (nyacc lang c99 parser) #:use-module (nyacc lang c99 parser)
#:use-module (ice-9 rdelim) #:use-module (ice-9 rdelim)