diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-11-28 22:06:44 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-11-28 22:06:44 +0000 |
| commit | a2dd0e18ef266f90290ed2840a31e81cf83d8925 (patch) | |
| tree | a1a38d84f6ea7ba99ca913913a9aff75e3aec470 /src/interp/i-toplev.boot | |
| parent | c8289c7f950a2ff7133c299bf612b754ec500ca6 (diff) | |
| download | open-axiom-a2dd0e18ef266f90290ed2840a31e81cf83d8925.tar.gz | |
* Makefile.pamphlet (INOBJS): Don't include intint.$(FASLEXT).
(intint.$(FASLEXT)): Remove rule.
* intint.lisp: Move essential content to i-toplev.boot. Remove.
Diffstat (limited to 'src/interp/i-toplev.boot')
| -rw-r--r-- | src/interp/i-toplev.boot | 53 |
1 files changed, 53 insertions, 0 deletions
diff --git a/src/interp/i-toplev.boot b/src/interp/i-toplev.boot index b94a5ca8..c7b1231d 100644 --- a/src/interp/i-toplev.boot +++ b/src/interp/i-toplev.boot @@ -35,6 +35,18 @@ import '"i-analy" --% Top Level Interpreter Code +$intCoerceFailure == + "coerceFailure" + +$intTopLevel == + "top__level" + +$intSpadReader == + "SPAD__READER" + +$intRestart == + "restart" + -- When $QuiteCommand is true Spad will not produce any output from -- a top level command $QuietCommand := NIL @@ -333,3 +345,44 @@ interpret2(object,m1,posnForm) == if (ans := coerceInteractive(object,m1)) then ans else throwKeyedMsgCannotCoerceWithValue(x,m,m1) object + +--% +intSayKeyedMsg(key, args) == + sayKeyedMsg(packageTran key, packageTran args) + +intProcessSynonyms str == + LINE: fluid := str + processSynonyms + LINE + +intInterpretPform pf == + processInteractive(zeroOneTran packageTran pf2Sex pf, pf) + +SpadInterpretFile fn == + SpadInterpretStream(1, fn, nil) + +intNewFloat() == + ["Float"] + +intSetNeedToSignalSessionManager() == + $NeedToSignalSessionManager := true + +setCurrentLine s == + $currentLine := + null $currentLine => s + STRINGP $currentLine => + [$currentLine, :(STRINGP s => [s]; s)] + RPLACD(lastNode $currentLine, (STRINGP s => [s]; s)) + $currentLine + + +intnplisp s == + $currentLine := s + nplisp $currentLine + +intSetQuiet() == + $QuietCommand := true + +intUnsetQuiet() == + $QuietCommand := false + |