[Axiom-developer] [#122 Handling of power series] PATCH: Replace %i (indent) by %I

[test]

Changes 
http://page.axiom-developer.org/zope/mathaction/122HandlingOfPowerSeries/diff
--
This patch replace all %i (format) by %I. Go to src/interp directory and type 
grep -r '%i\>' . 
It's not heavily tested but relatively simple (check it).
See above for details.
<pre>
diff -ur ../axiom-old/src/interp/format.boot.pamphlet 
src/interp/format.boot.pamphlet
--- ../axiom-old/src/interp/format.boot.pamphlet        2005-01-05 
01:04:55.000000000 +0100
+++ src/interp/format.boot.pamphlet     2005-03-24 18:39:07.030278760 +0100
@@ -58,7 +58,7 @@
   sayMSG formatModemap old2NewModemaps displayTranModemap m
 
 sayModemapWithNumber(m,n) ==
-  msg := reverse cleanUpSegmentedMsg reverse ["%i","%i",'" ",
+  msg := reverse cleanUpSegmentedMsg reverse ["%I","%I",'" ",
     STRCONC(lbrkSch(),object2String n,rbrkSch()),
       :formatModemap displayTranModemap m,"%u","%u"]
   sayMSG flowSegmentedMsg(reverse msg,$LINELENGTH,3)
@@ -354,7 +354,7 @@
   $permitWhere : local := true
   $whereList: local := nil
   s:= form2String u
-  $whereList => concat(s,'%b,'"where",'%d,"%i",$whereList,"%u")
+  $whereList => concat(s,'%b,'"where",'%d,"%I",$whereList,"%u")
   s
 
 form2StringWithPrens form ==
@@ -482,10 +482,10 @@
     $permitWhere = true =>
       opList:= formatJoinKey(r,id)
       $whereList:= concat($whereList,"%l",$declVar,": ",
-        formJoin2 argl,'%b,'"with",'%d,"%i",opList,"%u")
+        formJoin2 argl,'%b,'"with",'%d,"%I",opList,"%u")
       formJoin2 argl
     opList:= formatJoinKey(r,id)
-    suffix := concat('%b,'"with",'%d,"%i",opList,"%u")
+    suffix := concat('%b,'"with",'%d,"%I",opList,"%u")
     concat(formJoin2 argl,suffix)
   formJoin2 u
 
diff -ur ../axiom-old/src/interp/i-syscmd.boot.pamphlet 
src/interp/i-syscmd.boot.pamphlet
--- ../axiom-old/src/interp/i-syscmd.boot.pamphlet      2005-01-30 
13:04:38.000000000 +0100
+++ src/interp/i-syscmd.boot.pamphlet   2005-03-24 18:34:14.263786032 +0100
@@ -1823,7 +1823,7 @@
      '%l,'"   ",'%b,:blankList patterns,'%d]
   for [syn,:comm] in ls repeat
     if SUBSTRING(syn,0,1) = '"|" then syn := SUBSTRING(syn,1,NIL)
-    if syn = '"%i" then syn := '"%i "
+    if syn = '"%I" then syn := '"%I "
     wid := MAX(30 - (entryWidth syn),1)
     sayBrightly concat('%b,prefix,syn,'%d,
       fillerSpaces(wid,'"."),'" ",prefix,comm)
diff -ur ../axiom-old/src/interp/msgdb.boot.pamphlet 
src/interp/msgdb.boot.pamphlet
--- ../axiom-old/src/interp/msgdb.boot.pamphlet 2005-01-05 01:05:36.000000000 
+0100
+++ src/interp/msgdb.boot.pamphlet      2005-03-24 18:35:57.886033056 +0100
@@ -28,7 +28,7 @@
    %ceon       turn on centering
    %d          turn off bright printing
    %f          user defined printing
-   %i          start indentation of 3 more spaces
+   %I          start indentation of 3 more spaces -- (2005) changed from %i 
(avoid conflict with complex i) 
    %l          start a new line
    %m          math-print an expression
    %rjoff      turn off right justification (actually ragged left)
@@ -254,7 +254,7 @@
   NREVERSE msg1
 
 
-SETANDFILEQ($msgdbPrims,'( %b %d %l %i %u %U %n %x %ce %rj "%U" "%b" "%d" "%l" 
"%i" "%u" "%U" "%n" "%x" "%ce" "%rj"))
+SETANDFILEQ($msgdbPrims,'( %b %d %l %I %u %U %n %x %ce %rj "%U" "%b" "%d" "%l" 
"%I" "%u" "%U" "%n" "%x" "%ce" "%rj"))
 SETANDFILEQ($msgdbPunct,'(_. _, _! _: _; _? _] _)  "." "," "!" ":" ";" "?" "]" 
")"  ))
 SETANDFILEQ($msgdbNoBlanksBeforeGroup,['" ", " ", '"%", "%",_
                             :$msgdbPrims, :$msgdbPunct])
@@ -289,8 +289,8 @@
   blanks := ['" "," "]
   haveBlank := NIL
   prims :=
-    '(%b %d %l %i %u %m %ce %rj _
-     "%b" "%d" "%l" "%i" "%m" "%u" "%ce" "%rj")
+    '(%b %d %l %I %u %m %ce %rj _
+     "%b" "%d" "%l" "%I" "%m" "%u" "%ce" "%rj")
   msg1 := NIL
   for x in msg repeat
     if haveBlank and ((x in blanks) or (x in prims)) then
@@ -512,7 +512,7 @@
         actualMarg := potentialMarg
         nl := [f,'%l,:nl]
         lnl := 199999
-      f in '("%i" %i ) =>
+      f in '("%I" %I ) =>
         potentialMarg := potentialMarg + 3
         nl := [f,:nl]
       PAIRP(f) and CAR(f) in '("%t" %t) =>
@@ -652,7 +652,7 @@
   x = '"%l" =>
     sayNewLine()
     for i in 1..$MARG repeat sayString '" "
-  x = '"%i" =>
+  x = '"%I" =>
     $MARG := $MARG + 3
   x = '"%u" =>
     $MARG := $MARG - 3
@@ -679,7 +679,7 @@
   x = '"%l" =>
     sayString('"\\")
     for i in 1..$MARG repeat sayString '"\ "
-  x = '"%i" =>
+  x = '"%I" =>
     $MARG := $MARG + 3
   x = '"%u" =>
     $MARG := $MARG - 3
</pre>
--
forwarded from http://page.axiom-developer.org/zope/mathaction/address@hidden