diff options
Diffstat (limited to 'src/boot/translator.boot')
-rw-r--r-- | src/boot/translator.boot | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/src/boot/translator.boot b/src/boot/translator.boot index b071fd0a..4b803b0c 100644 --- a/src/boot/translator.boot +++ b/src/boot/translator.boot @@ -620,36 +620,6 @@ shoeXReport stream== a := strconc(PNAME i,'" is used in ") bootOutLines( SSORT GETHASH(i,$bootUsed),stream,a) -FBO (name,fn)== - shoeGeneralFC(function BO,name,fn) - -FEV(name,fn)== - shoeGeneralFC(function EVAL_-BOOT_-FILE,name,fn) - -shoeGeneralFC(f,name,fn)== - $bfClamming :=false - $GenVarCounter := 0 - infn:=shoeAddbootIfNec fn - a:= shoeOpenInputFile(a,infn,shoeFindName2(fn,name, a)) - filename:= if # name > 8 then subString(name,0,8) else name - a => FUNCALL(f, strconc('"/tmp/",filename)) - nil - -shoeFindName2(fn,name,a)== - lines:=shoeFindLines(fn,name,a) - lines => - filename:= if # name > 8 then subString(name,0,8) else name - filename := strconc('"/tmp/",filename,'".boot") - shoeOpenOutputFile(stream, filename, - for line in lines repeat shoeFileLine (line,stream)) - true - false - -shoeTransform2 str== - bNext(function shoeItem, - streamTake(1, bNext(function shoePileInsert, - bNext(function shoeLineToks, str)))) - shoeItem (str)== dq:=first str [[[first line for line in shoeDQlines dq]],:rest str] @@ -668,15 +638,6 @@ shoePCompile fn== COMPILE (name,['LAMBDA,bv,:body]) EVAL fn -FC(name,fn)== - $GenVarCounter := 0 - infn:=shoeAddbootIfNec fn - shoeOpenInputFile(a,infn,shoeFindName(fn,name, a)) - -shoeFindName(fn,name,a)== - lines:=shoeFindLines(fn,name,a) - shoePCompileTrees shoeTransformString lines - shoePCompileTrees s== while not bStreamNull s repeat REALLYPRETTYPRINT shoePCompile first s |