Formatting

This commit is contained in:
Ruben Shekspir 2019-04-21 11:31:43 +04:00
parent 3aa2bcec3e
commit e4232275bf
7 changed files with 40 additions and 33 deletions

View file

@ -1,5 +1,5 @@
MODULE HashMap;
IMPORT Logger, CharacterStack, Strings;
IMPORT Logger, CharacterStack, Strings, Out;
CONST
ArrayMaxNumber = 5000;
TYPE
@ -48,8 +48,6 @@ BEGIN
REPEAT
symbol := text[i];
INC(i);
IF symbol = symbolBracketStart THEN
Logger.Log("Starting Parse Json");
END;
@ -57,8 +55,12 @@ BEGIN
IF symbol = symbolBracketStart THEN
Logger.Log("End Parsing Json");
END;
INC(i);
Logger.LogInt(i);
UNTIL text[i] = 0AX;
Out.String(" test");
RETURN jsonRecord;
END Create;