vishapoberon/vipak
1
0
Fork 0
mirror of https://github.com/vishapoberon/vipak.git synced 2026-04-05 20:42:26 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

added other dump for testing. -- noch

Browse source
This commit is contained in:
norayr 2017-05-19 19:08:42 +04:00
parent d5590950f5
commit 4d26bd839c
1 changed files with 14 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

16
stringHelpers.Mod
View file

@ -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;