diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-10-15 06:25:45 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-10-15 06:25:45 +0000 |
| commit | 438fc2b3dca328c5e9a10e75ccb6ec25d8cf782e (patch) | |
| tree | 12838da1f18dd216c6a6048c11dd8796ac17c03a /src/interp/server.boot.pamphlet | |
| parent | ed60f495f0dfe5e3d66362bba84bcbae1cd1d0b1 (diff) | |
| download | open-axiom-438fc2b3dca328c5e9a10e75ccb6ec25d8cf782e.tar.gz | |
* Makefile.pamphlet (<<server.clisp>>): Remove.
(server.$(FASLEXT)): New rule.
* as.boot.pamphlet (asytran): Use VMREAD.
* c-util.boot.pamphlet (intersectionContour): Use assoc.
* g-error.boot.pamphlet (argumentDataError): Use read_-line.
* g-opt.boot.pamphlet: Use assoc.
* ht-util.boot.pamphlet: Likewise.
* htsertvar.boot.pamphlet: Likewise.
* server.boot.pamphlet: User read_-line.
Diffstat (limited to 'src/interp/server.boot.pamphlet')
| -rw-r--r-- | src/interp/server.boot.pamphlet | 21 |
1 files changed, 12 insertions, 9 deletions
diff --git a/src/interp/server.boot.pamphlet b/src/interp/server.boot.pamphlet index 3af5ccdb..ae0bfcc1 100644 --- a/src/interp/server.boot.pamphlet +++ b/src/interp/server.boot.pamphlet @@ -46,22 +46,25 @@ <<*>>= <<license>> +import '"macros" +)package "BOOT" + -- Scratchpad-II server -- Assoc list of interpreter frame names and unique integer identifiers -SETANDFILEQ($frameAlist, nil) -SETANDFILEQ($frameNumber, 0) -SETANDFILEQ($currentFrameNum, 0) -SETANDFILEQ($EndServerSession, false) -SETANDFILEQ($NeedToSignalSessionManager, false) -SETANDFILEQ($sockBufferLength, 9217) +$frameAlist := nil +$frameNumber := 0 +$currentFrameNum := 0 +$EndServerSession := false +$NeedToSignalSessionManager := false +$sockBufferLength := 9217 serverReadLine(stream) == -- used in place of READ-LINE in a scratchpad server system. FORCE_-OUTPUT() not $SpadServer or not IS_-CONSOLE stream => - READ_-LINE(stream) + read_-line(stream) IN_-STREAM: fluid := stream _*EOF_*: fluid := NIL line := @@ -71,7 +74,7 @@ serverReadLine(stream) == $NeedToSignalSessionManager := false action := serverSwitch() action = $CallInterp => - l := READ_-LINE(stream) + l := read_-line(stream) $NeedToSignalSessionManager := true return l action = $CreateFrame => @@ -144,7 +147,7 @@ serverLoop() == action := serverSwitch() action = $CallInterp => CATCH('coerceFailure,CATCH('top__level, CATCH('SPAD__READER, - parseAndInterpret READ_-LINE(CURINSTREAM) ))) + parseAndInterpret read_-line(CURINSTREAM) ))) PRINC MKPROMPT() FINISH_-OUTPUT() sockSendInt($SessionManager, $EndOfOutput) |