From 4d26bd839c1c41511ceffb90ac1fa11124feef79 Mon Sep 17 00:00:00 2001
From: norayr <norayr@arnet.am>
Date: Fri, 19 May 2017 19:08:42 +0400
Subject: [PATCH] added other dump for testing. -- noch

---
 stringHelpers.Mod | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/stringHelpers.Mod b/stringHelpers.Mod
index 1e5c666..6926fe0 100644
--- a/stringHelpers.Mod
+++ b/stringHelpers.Mod
@@ -87,7 +87,7 @@ BEGIN
   j := spos+1;
   REPEAT
     dst[i] := src[i+j];
-  INC(i);
+    INC(i);
   UNTIL (i+j = Strings.Length(src)) OR (src[i+j] < ' ');
 END getTillEOL;
 
@@ -134,7 +134,7 @@ BEGIN
   IF found THEN RETURN TRUE ELSE RETURN FALSE END
 END contains1;
 
-PROCEDURE dumpText(VAR text: ARRAY OF CHAR);
+PROCEDURE dumpText*(VAR text: ARRAY OF CHAR);
 VAR
   i : INTEGER;
 BEGIN
@@ -145,6 +145,18 @@ BEGIN
   UNTIL i = LEN(text);
 END dumpText;
 
+PROCEDURE dumpTextTill0*(VAR text: ARRAY OF CHAR);
+VAR
+  i : INTEGER;
+BEGIN
+  i := 0;
+  REPEAT
+    Out.Int(i, 3); Out.String("   | ord: "); Out.Int(ORD(text[i]), 15); Out.String(", char: '"); Out.Char(text[i]); Out.Char("'"); Out.Ln;
+    INC(i)
+  UNTIL (text[i] = 0X) OR (i = LEN(text));
+END dumpTextTill0;
+
+
 PROCEDURE textToPstrings*(VAR text: ARRAY OF CHAR): pstrings;
 VAR
   i, j, lineNum, start, number: INTEGER;