| 1234567891011121314151617181920212223242526272829 |
- #!/bin/bash
- # Build the FILEBASE syntax validator from FILEBASE.atg.
- # Needs: CR (Coco/R V1.53), gm2 -fiso, parser/scanner frames, FileIO.
- # Note: link via the two-step module list; a single-step link trips
- # over pre-existing errors in this gm2 build's own ISO library .defs.
- set -e
- CR="${CR:-/home/eric/Projets/Projets-Modula2/MyWork/CocoGm2/CR}"
- GM2="${GM2:-/home/eric/bin/Modula2/Gm2/bin/gm2}"
- FRAMES="${CRFRAMES:-/home/eric/Projets/Projets-Modula2/MyWork/Theia/GNU-grammar/build}"
- M2LIB="${M2LIB:-/home/eric/Projets/Projets-Modula2/MyWork/Theia/GNU-grammar/build}"
- HERE="$(dirname "$0")"
- B="$HERE/build"
- rm -rf "$B"
- mkdir -p "$B"
- cp "$HERE"/*.atg "$B/"
- cp "$M2LIB/FileIO.def" "$M2LIB/FileIO.mod" "$B/"
- cd "$B"
- echo "=== CR ==="; CRFRAMES="$FRAMES" "$CR" -m -C *.atg
- echo "=== compile ==="
- for m in FileIO PascalS PascalP; do "$GM2" -fiso -I . -c "$m.mod"; done
- echo "=== link ==="
- # NOTE: the gen step exits 1 on pre-existing errors in gm2's own
- # ISO library .defs, but still writes a usable modules.lst.
- "$GM2" -fiso -I . -fgen-module-list=modules.lst -o /dev/null FileIO.o PascalS.o PascalP.o Pascal.mod || true
- "$GM2" -fiso -I . -fuse-list=modules.lst -o TP3 FileIO.o PascalS.o PascalP.o Pascal.mod
- echo "=== smoke ==="
- printf 'PROGRAM Hello;\nBEGIN\n WriteLn('"'"'hi'"'"');\nEND.\n' > Hello.pas
- ./TP3 Hello.pas
- rm -f Hello.pas Hello.LST
|
