diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-05-21 08:46:31 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-05-21 08:46:31 +0000 |
| commit | ec02c6670d57cbb6814c6a79e133e1e2b41ed0af (patch) | |
| tree | e9a0ff29216c7efee328f4cf0534e50f7d0da5c3 /src/interp/lexing.boot | |
| parent | 327b68f0e2086eef9fc755b9ffba76343839e4ee (diff) | |
| download | open-axiom-ec02c6670d57cbb6814c6a79e133e1e2b41ed0af.tar.gz | |
* interp/parsing.lisp: Remove.
* interp/spad-parser.boot (floatExponent): New.
(parseFloatExponent): Use it instead of FLOATEXPID.
* interp/lexing.boot (nextLinesClear!): New.
(ioClear!): Likewise.
(OUT-STREAM): Define here.
* interp/debug.lisp: Import lexing instead of parsing. Tidy.
* interp/preparse.lisp: Likewise.
* interp/spad.lisp: Likewise.
* interp/util.lisp: Likewise.
* interp/Makefile.in (OBJS): Do not include parsing.$(FASLEXT).
(parsing.$(FASLEXT)): Remove. Adjust dependents.
Diffstat (limited to 'src/interp/lexing.boot')
| -rw-r--r-- | src/interp/lexing.boot | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/src/interp/lexing.boot b/src/interp/lexing.boot index 3143b23c..aeaccf9d 100644 --- a/src/interp/lexing.boot +++ b/src/interp/lexing.boot @@ -121,9 +121,15 @@ nextLine st == SETQ(LINE,l) $currentLine := l +nextLinesClear!() == + $lineStack := nil + ++ Current input stream. IN_-STREAM := 'T +++ Current output stream +OUT_-STREAM := 'T + ++ Advances IN-STREAM, invoking Next Line if necessary advanceChar!() == repeat @@ -603,3 +609,13 @@ popStack4() == nthStack n == reductionValue stackStore($reduceStack).(n - 1) + + +--% + +ioClear!() == + lineClear! $spadLine + tokenStackClear!() + reduceStackClear() + $SPAD => nextLinesClear!() + nil |