diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-10-11 00:18:23 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-10-11 00:18:23 +0000 |
| commit | 69e0541ffec8beb86c5e0fc04d9bec811be451cd (patch) | |
| tree | 47e1ca8863e69100a25888ce00ba52ca73d696f3 | |
| parent | ddb282d424a2f17cbfb1370988fec88a1401d45e (diff) | |
| download | open-axiom-69e0541ffec8beb86c5e0fc04d9bec811be451cd.tar.gz | |
* interp/postpar.boot: Remove functions and references to Scripts.
| -rw-r--r-- | src/ChangeLog | 4 | ||||
| -rw-r--r-- | src/interp/postpar.boot | 41 |
2 files changed, 4 insertions, 41 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 9f89ffb8..834af42f 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2011-10-10 Gabriel Dos Reis <gdr@cs.tamu.edu> + + * interp/postpar.boot: Remove functions and references to Scripts. + 2011-10-08 Gabriel Dos Reis <gdr@cs.tamu.edu> * interp/lexing.boot: New tokenizer functions. diff --git a/src/interp/postpar.boot b/src/interp/postpar.boot index 142b498e..aa279f98 100644 --- a/src/interp/postpar.boot +++ b/src/interp/postpar.boot @@ -87,8 +87,6 @@ postTran x == op is ["elt",a,b] => u:= postTran [b,:rest x] [postTran op,:rest u] - op is ["Scripts",:.] => - postScriptsForm(op,"append"/[unComma postTran y for y in rest x]) op ~= (y:= postOp op) => [y,:postTranList rest x] postForm x @@ -301,7 +299,6 @@ postForm u == numOfArgs:= (argl' is [["%Comma",:l]] => #l; 1) INTERNL("*",STRINGIMAGE numOfArgs,PNAME op) [op',:argl'] - op is ["Scripts",:.] => [:postTran op,:postTranList argl] u:= postTranList u if u is [["%Comma",:.],:.] then postError ['" ",:bright u, @@ -315,43 +312,6 @@ postQuote: %ParseTree -> %ParseForm postQuote [.,a] == quote a - -postScriptsForm: (%ParseTree,%List %ParseTree) -> %ParseForm -postScriptsForm(t,argl) == - t isnt ["Scripts",op,a] => systemErrorHere ["postScriptsForm",t] - [getScriptName(op,a,#argl),:postTranScripts a,:argl] - -postScripts: %ParseTree -> %ParseForm -postScripts t == - t isnt ["Scripts",op,a] => systemErrorHere ["postScripts",t] - [getScriptName(op,a,0),:postTranScripts a] - -getScriptName: (%Symbol,%ParseTree, %Short) -> %ParseForm -getScriptName(op,a,numberOfFunctionalArgs) == - if not ident? op then - postError ['" ",op,'" cannot have scripts"] - INTERNL("*",STRINGIMAGE numberOfFunctionalArgs, - decodeScripts a,symbolName op) - -postTranScripts: %ParseTree -> %ParseForm -postTranScripts a == - a is ["PrefixSC",b] => postTranScripts b - a is [";",:b] => "append"/[postTranScripts y for y in b] - a is [",",:b] => - ("append"/[fn postTran y for y in b]) where - fn x == - x is ["%Comma",:y] => y - [x] - [postTran a] - -decodeScripts: %ParseTree -> %ParseForm -decodeScripts a == - a is ["PrefixSC",b] => strconc(STRINGIMAGE 0,decodeScripts b) - a is [";",:b] => APPLX(function strconc,[decodeScripts x for x in b]) - a is [",",:b] => - STRINGIMAGE fn a where fn a == (a is [",",:b] => +/[fn x for x in b]; 1) - STRINGIMAGE 1 - postIf: %ParseTree -> %ParseForm postIf t == t isnt ["if",:l] => t @@ -601,7 +561,6 @@ postMatch t == --% Register special parse tree tranformers. for x in [["with", :"postWith"],_ - ["Scripts", :"postScripts"],_ ["/", :"postSlash"],_ ["construct", :"postConstruct"],_ ["%Block", :"postBlock"],_ |