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/g-util.boot | |
parent | 1642c3f8ce94264813f4d7ac79f24f16f5fb7ded (diff) | |
download | open-axiom-0de5ea3df4ffff2d97202a66629e19e0579410ea.tar.gz |
cleanup
Diffstat (limited to 'src/interp/g-util.boot')
-rw-r--r-- | src/interp/g-util.boot | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot index 90e10318..dfc527b9 100644 --- a/src/interp/g-util.boot +++ b/src/interp/g-util.boot @@ -760,7 +760,7 @@ after(u,v) == r -$blank == char ('_ ) +$blank == char " " trimString s == leftTrim rightTrim s @@ -816,12 +816,12 @@ $exposeFlag := false --if true, messages go to $outStream $exposeFlagHeading := false --see htcheck.boot $checkingXmptex? := false --see htcheck.boot $exposeDocHeading:= nil --see htcheck.boot -$charPlus == char '_+ -$charBlank == (char '_ ) -$charLbrace == char '_{ -$charRbrace == char '_} -$charBack == char '_\ -$charDash == char '_- +$charPlus == char "+" +$charBlank == char " " +$charLbrace == char "{" +$charRbrace == char "}" +$charBack == char "\" +$charDash == char "-" $charTab == abstractChar 9 $charNewline == abstractChar 10 @@ -829,16 +829,16 @@ $charFauxNewline == abstractChar 25 $stringNewline == charString abstractChar 10 $stringFauxNewline == charString abstractChar 25 -$charExclusions == [char 'a, char 'A] -$charQuote == char '_' -$charSemiColon == char '_; -$charComma == char '_, -$charPeriod == char '_. -$checkPrenAlist := [[char '_(,:char '_)],[char '_{,:char '_}],[char '_[,:char '_]]] -$charEscapeList:= [char '_%,char '_#,$charBack] -$charIdentifierEndings := [char '__, char "!", char '_?] -$charSplitList := [$charComma,$charPeriod,char '_[, char '_],$charLbrace, $charRbrace, char '_(, char '_), char '_$, char '_%] -$charDelimiters := [$charBlank, char '_(, char '_), $charBack] +$charExclusions == [char "a", char "A"] +$charQuote == char "'" +$charSemiColon == char ";" +$charComma == char "," +$charPeriod == char "." +$checkPrenAlist := [[char "(",:char ")"],[char "{",:char "}"],[char "[",:char "]"]] +$charEscapeList:= [char "%",char "#",$charBack] +$charIdentifierEndings := [char "__", char "!", char "?"] +$charSplitList := [$charComma,$charPeriod,char "[", char "]",$charLbrace, $charRbrace, char "(", char ")", char "$", char "%"] +$charDelimiters := [$charBlank, char "(", char ")", $charBack] $HTspadmacros := '("\spadtype" "\spadcommand" "\spadop" "\spadfun" "\spadatt" "\spadsyscom" "\spad" "\s") $HTmacs := [ ['"\beginmenu",$charRbrace,'"menu",$charLbrace,'"\begin"], @@ -873,7 +873,7 @@ $beginEndList := '( isDefaultPackageName x == s := symbolName x - stringChar(s,maxIndex s) = char '_& + stringChar(s,maxIndex s) = char "&" isDefaultPackageForm? x == x is [op,:.] and IDENTP op and isDefaultPackageName op |