diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-05-11 20:39:20 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-05-11 20:39:20 +0000 |
| commit | 90e40ff963ffdca1272e393e2458d04040976096 (patch) | |
| tree | 3e7614a99dbee9d384e082957ae75a44a1ce109f /src/interp | |
| parent | 0efd5f26be8d38a5eda78f9aa264c06015ee9e83 (diff) | |
| download | open-axiom-90e40ff963ffdca1272e393e2458d04040976096.tar.gz | |
* interp/preparse.lisp (PARSEPRINT): Move to spad-parser.boot.
Rename as parsePrint.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/preparse.lisp | 6 | ||||
| -rw-r--r-- | src/interp/spad-parser.boot | 11 |
2 files changed, 9 insertions, 8 deletions
diff --git a/src/interp/preparse.lisp b/src/interp/preparse.lisp index 5909ff5b..90083fcb 100644 --- a/src/interp/preparse.lisp +++ b/src/interp/preparse.lisp @@ -170,9 +170,3 @@ (|parsePiles| (|reverse!| LOCS) (|reverse!| LINES))))) (GO READLOOP))) - -(defun PARSEPRINT (L) - (if L - (progn (format t "~&~% *** PREPARSE ***~%~%") - (dolist (X L) (format t "~5d. ~a~%" (car x) (cdr x))) - (format t "~%")))) diff --git a/src/interp/spad-parser.boot b/src/interp/spad-parser.boot index 3ff71b04..54c6fa82 100644 --- a/src/interp/spad-parser.boot +++ b/src/interp/spad-parser.boot @@ -200,6 +200,14 @@ parsePiles(locs,lines) == addParensAndSemisToLine(x,y) lines +parsePrint l == + $preparseReportIfTrue and l ~= nil => + formatToStdout '"~&~% *** PREPARSE ***~%~%" + for x in l repeat + formatToStdout('"~5d. ~a~%",first x,rest x) + formatToStdout '"~%" + nil + preparse st == $COMBLOCKLIST := nil $SKIPME := false @@ -211,8 +219,7 @@ preparse st == $INDEX := $INDEX - #stack u := preparse1 stack $SKIPME => preparse st - if $preparseReportIfTrue then - PARSEPRINT u + parsePrint u $headerDocumentation := nil $docList := nil $maxSignatureLineNumber := 0 |