diff options
author | dos-reis <gdr@axiomatics.org> | 2011-10-18 01:27:42 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-10-18 01:27:42 +0000 |
commit | 630b6f25ff2900a31326141b67a187a685e7e9b8 (patch) | |
tree | f87d21c2387137ff8500e0e0ede9f2dbcabac64a /src/interp/postpar.boot | |
parent | 16111656afaa94a382d61de6c3ec37a9bdca05ef (diff) | |
download | open-axiom-630b6f25ff2900a31326141b67a187a685e7e9b8.tar.gz |
* interp/spad-parser.boot (parseSegmentTail): Tidy.
* interp/postpar.boot (postSEGMENT): Remove.
(postTupleCollect): Likewise.
(postBootNotEqual): Likewise.
* interp/parsing.lisp (CHAR-EQ): Remove.
(CHAR-NE): Likewise.
(getToken): Likewise.
* interp/newaux.lisp: Remove "^=" as legitimate operator.
* interp/lexing.boot (geToken): Rename from getSpadToken.
* interp/i-intern.boot (mkAtree3): Check for new form of universal
segment.
* interp/parse.boot (parseSegment): Likewise.
* algebra/seg.spad.pamphlet (Segment): Use .. instead of SEGMENT.
(SegmentFunctions2): Likewise.
(UniversalSegment): Likewise.
Diffstat (limited to 'src/interp/postpar.boot')
-rw-r--r-- | src/interp/postpar.boot | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/src/interp/postpar.boot b/src/interp/postpar.boot index aa279f98..aba24540 100644 --- a/src/interp/postpar.boot +++ b/src/interp/postpar.boot @@ -346,12 +346,6 @@ postRepeat t == t isnt ["REPEAT",:m,x] => systemErrorHere ["postRepeat",t] ["REPEAT",:postIteratorList m,postTran x] -postSEGMENT: %ParseTree -> %ParseForm -postSEGMENT t == - t isnt ["SEGMENT",a,b] => systemErrorHere ["postSEGMENT",t] - key:= [a,'"..",:(b => [b]; nil)] - postError ['" Improper placement of segment",:bright key] - postCollect: %ParseTree -> %ParseForm postCollect t == t isnt [constructOp,:m,x] => systemErrorHere ["postCollect",t] @@ -371,11 +365,6 @@ postCollect t == ["REDUCE","append",0,[op,:itl,newBody]] [op,:itl,y] -postTupleCollect: %ParseTree -> %ParseForm -postTupleCollect t == - t isnt [constructOp,:m,x] => systemErrorHere ["postTupleCollect",t] - postCollect [constructOp,:m,["construct",x]] - postIteratorList: %List %ParseTree -> %List %ParseForm postIteratorList x == x is [p,:l] => @@ -530,15 +519,6 @@ unComma x == x is ["%Comma",:y] => y [x] ---% `^=' -++ check that `^=' is not used in Spad code to mean `not equal'. -postBootNotEqual: %ParseTree -> %ParseForm -postBootNotEqual u == - checkWarning ['"Operator ", :bright '"^=", - '"is not valid Spad. Please use",:bright '"~=",'"instead."] - ["~=",:postTran rest u] - - --% %Match postAlternatives alts == @@ -570,7 +550,6 @@ for x in [["with", :"postWith"],_ ["in", :"postin"],_ ["IN", :"postIn"],_ ["REPEAT", :"postRepeat"],_ - ["TupleCollect", :"postTupleCollect"],_ ["add", :"postAdd"],_ ["%Reduce", :"postReduce"],_ [",", :"postComma"],_ @@ -588,7 +567,6 @@ for x in [["with", :"postWith"],_ ["->", :"postMapping"],_ ["=>", :"postExit"],_ ["%Match",:"postMatch"],_ - ["^=", :"postBootNotEqual"],_ ["%Comma", :"post%Comma"]] repeat property(first x, 'postTran) := rest x |