diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-01-14 11:56:20 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-01-14 11:56:20 +0000 |
| commit | 9906d4079093b27d185f4116485fffe80ff19380 (patch) | |
| tree | da1b4e4f7d0ffc3e05ee63f04826274c62832708 /src/interp/cparse.boot | |
| parent | 7d98b7fa7d816f132fb09bf439333f4145c603f8 (diff) | |
| download | open-axiom-9906d4079093b27d185f4116485fffe80ff19380.tar.gz | |
* lisp/core.lisp.in (mkIntArray): New. Export.
* interp/patches.lisp (/RF): Move to cparse.boot.
(/RQ): Likewise.
(/RQ,LIB): Likewise.
(/RF-1): Likewise.
(/EF): Move to spad.lisp.
(construct): Remove.
(READSPADEXPR): Likewise.
(SHAREDITEMS): Likewise.
(installStandardTestPackages): Likewise.
(spadtestValueHook): Likewise.
(testError): Likewise.
($TestOptions): Likewise.
(rebuild): Likewise.
($ViewportProcessToWatch): Likewise.
(setViewportProcess): Likewise.
(waitForViewport): Likewise.
* interp/i-analy.boot (pushDownOp?): Use mkIntArray in place of
GETZEROVEC.
* interp/i-funsel.boot (argCouldBelongToSubdomain): Likewise.
* interp/i-intern.boot (flagArguments): Likewise.
Diffstat (limited to 'src/interp/cparse.boot')
| -rw-r--r-- | src/interp/cparse.boot | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/src/interp/cparse.boot b/src/interp/cparse.boot index 0c8465fd..79de955f 100644 --- a/src/interp/cparse.boot +++ b/src/interp/cparse.boot @@ -1087,3 +1087,30 @@ npMoveTo n== (npNext();npMoveTo n) npEqKey "SETTAB" => npMoveTo(n+1) (npNext();npMoveTo n) + +--% + +_/RF(:x) == + $Echo: local := true + _/RF_-1 nil + +_/RQ(:x) == + $Echo: local := false + _/RF_-1 nil + +_/RQ_,LIB(:x) == + $Echo: local := false + _/RF_-1 nil + + +_/RF_-1 x == + ifile := MAKE_-INPUT_-FILENAME _/EDITFILE + lfile := nil + type := PATHNAME_-TYPE ifile + type = '"boot" => + lfile := MAKE_-PATHNAME(type <- '"lisp",defaults <- ifile) + BOOT(ifile,lfile) + LOAD lfile + type = '"lisp" => LOAD ifile + type = '"input" => ncINTERPFILE(ifile,$Echo) + SPAD ifile |