[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Axiom-developer] [#122 Handling of power series] PATCH: Replace %i (ind
From: |
test |
Subject: |
[Axiom-developer] [#122 Handling of power series] PATCH: Replace %i (indent) by %I |
Date: |
Thu, 24 Mar 2005 12:03:27 -0600 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Axiom-developer] [#122 Handling of power series] PATCH: Replace %i (indent) by %I,
test <=