From 8a984fa798bb95ae5e1feb4907ce7c2a22b1e0ac Mon Sep 17 00:00:00 2001 From: Doni Pracner Date: Mon, 28 Jul 2014 01:59:01 +0200 Subject: [PATCH] mjc2wsl - fixed number print procedure to use the length of the number; removed TODO --- src/com/quemaster/transformations/mjc2wsl/mjc2wsl.java | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/com/quemaster/transformations/mjc2wsl/mjc2wsl.java b/src/com/quemaster/transformations/mjc2wsl/mjc2wsl.java index 26452e8..9a61bbf 100644 --- a/src/com/quemaster/transformations/mjc2wsl/mjc2wsl.java +++ b/src/com/quemaster/transformations/mjc2wsl/mjc2wsl.java @@ -212,8 +212,8 @@ public class mjc2wsl{ if (!genInlinePrint) { ret.append("\nPROC Print_MJ(val, format VAR)==\n"); ret.append(createComment("print spacing", C_SPEC)); - ret.append("\n\tIF format>1 THEN\n\t\tFOR i:=2 TO "); - ret.append("format STEP 1 DO PRINFLUSH(\" \") OD\n"); + ret.append("\n\tIF format>1 THEN\n\t\tFOR i:=1 TO "); + ret.append("MAX(0, format-SLENGTH(@String(tempb))) STEP 1 DO PRINFLUSH(\" \") OD\n"); ret.append("\tFI;\n\tPRINFLUSH(val)\nEND\n"); ret.append("\nPROC Print_MJ_CHAR(val, format VAR)==\n"); @@ -670,7 +670,6 @@ public class mjc2wsl{ break; } case print: { - // TODO printing numbers needs different lengths of spacing prl(createStartVar("tempa", "tempb")); prl(createTopTwoEStack()); -- 2.25.1