diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-17 18:27:08 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-17 18:27:08 +0000 |
| commit | 0de5ea3df4ffff2d97202a66629e19e0579410ea (patch) | |
| tree | 211b1d1d466c64aac746e9c377acf34adfb1c18b /src/interp/record.boot | |
| parent | 1642c3f8ce94264813f4d7ac79f24f16f5fb7ded (diff) | |
| download | open-axiom-0de5ea3df4ffff2d97202a66629e19e0579410ea.tar.gz | |
cleanup
Diffstat (limited to 'src/interp/record.boot')
| -rw-r--r-- | src/interp/record.boot | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/interp/record.boot b/src/interp/record.boot index f1561208..5c7ad58c 100644 --- a/src/interp/record.boot +++ b/src/interp/record.boot @@ -59,7 +59,7 @@ namespace BOOT --======================================================================= -- Global Variables --======================================================================= -$backslash := char '_\ +$backslash := char "\" $testOutputLineFlag := nil -- referenced by charyTop, prnd to stash lines $testOutputLineStack := nil -- saves lines to be printed (needed to convert -- lines for use in hypertex) @@ -237,15 +237,15 @@ htFile2InputFile(pathname,:option) == htCommandToInputLine s == fn(s,0) where fn(s,init) == --similar to htTrimAtBackSlash except removes all \ - k := or/[i for i in init..maxIndex s | s.i = char '_\] => - member(s.(k + 1),[char 'f,char 'b]) => subString(s,init,k - init) + k := or/[i for i in init..maxIndex s | s.i = char "\"] => + member(s.(k + 1),[char "f",char "b"]) => subString(s,init,k - init) strconc(subString(s,init,k - init),fn(s,k + 1)) subString(s,init) htTrimAtBackSlash s == - backslash := char '_\ + backslash := char "\" k := or/[i for i in 0..maxIndex s | s.i = backslash - and member(s.(i + 1),[char 'f,char 'b])] => subString(s,0,k - 1) + and member(s.(i + 1),[char "f",char "b"])] => subString(s,0,k - 1) s htMkPath(directory,name,typ) == @@ -267,7 +267,7 @@ recordAndPrintTest md == --called by recordAndPrint string? $currentLine => [$currentLine] fn $currentLine where fn x == x is [y,:r] => - y.(k := maxIndex y) = char '__ => + y.(k := maxIndex y) = char "__" => u := fn r [strconc(subString(y,0,k),'" ",first u),:rest u] [y,:fn r] |