aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2009-04-20 05:58:33 +0000
committerdos-reis <gdr@axiomatics.org>2009-04-20 05:58:33 +0000
commitfe63e89c9e18017cddee98f0c6ceb2783c930e86 (patch)
treece464e534bb4235950202dd6d0a3c06ea6e0218d /src
parent4957231038f00c946afee42e96b38ea1e2ea108e (diff)
downloadopen-axiom-fe63e89c9e18017cddee98f0c6ceb2783c930e86.tar.gz
* interp/msgdb.boot (substituteSegmentedMsg): Handle %x specifier.
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog4
-rw-r--r--src/interp/msgdb.boot2
2 files changed, 6 insertions, 0 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index 069201ed..223041eb 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2009-04-20 Gabriel Dos Reis <gdr@cs.tamu.edu>
+
+ * interp/msgdb.boot (substituteSegmentedMsg): Handle %x specifier.
+
2009-04-19 Gabriel Dos Reis <gdr@cs.tamu.edu>
* boot/ast.boot (genECLnativeTranslation): Tidy.
diff --git a/src/interp/msgdb.boot b/src/interp/msgdb.boot
index e49c9e21..75c0ba89 100644
--- a/src/interp/msgdb.boot
+++ b/src/interp/msgdb.boot
@@ -217,6 +217,8 @@ substituteSegmentedMsg(msg,args) ==
for ch in '(_. _, _! _: _; _?) repeat
if MEMQ(char ch,q) then l := cons(ch,l)
+ c = char "%" and n > 1 and x.1 = char "x" and DIGITP x.2 =>
+ l := [fillerSpaces(DIG2FIX x.2, '" "),:l]
--x is a plain word
l := cons(x,l)
addBlanks NREVERSE l