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

It Works, recursive fetch left

Browse source
This commit is contained in:
Ruben Shekspir 2019-04-27 17:07:28 +04:00
parent df9beaf66f
commit fe5d179b49
1 changed files with 18 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

26
HashMapString.Mod
View file

@ -75,6 +75,19 @@ BEGIN
RETURN j; (* returning next symbol of quote *)
END PushDownString;
PROCEDURE deQuote(text: ARRAY OF CHAR; VAR result: ARRAY OF CHAR);
VAR
i, j: LONGINT;
BEGIN
j := 0;
FOR i := 0 TO Strings.Length(text) DO
IF text[i] # quote THEN
result[j] := text[i];
INC(j);
END;
END;
END deQuote;
PROCEDURE Create*(text: ARRAY OF CHAR): JsonTypePointer;
VAR
self: JsonTypePointer;
@ -100,6 +113,7 @@ BEGIN
COPY("", key);
COPY("", val);
COPY("", nonTerminalVal);
quoteStart := FALSE;
@ -131,8 +145,8 @@ BEGIN
END;
IF (Strings.Length(key) > 0) & (Strings.Length(val) > 0) THEN
COPY(key, self.TerminalKeys[terminalIterator]);
COPY(val, self.TerminalsValues[terminalIterator]);
deQuote(key, self.TerminalKeys[terminalIterator]);
deQuote(val, self.TerminalsValues[terminalIterator]);
INC(terminalIterator);
COPY("", key);
@ -155,11 +169,7 @@ BEGIN
IF (Strings.Length(key) > 0) & (Strings.Length(nonTerminalVal) > 0) THEN
COPY(key, self.NonTerminalKeys[noneTerminalIterator]);
Logger.Log("key");
Logger.Log(key);
Logger.Log("nonTerminalVal");
Logger.Log(nonTerminalVal);
deQuote(key, self.NonTerminalKeys[noneTerminalIterator]);
self.NonTerminalValues[noneTerminalIterator] := Create(nonTerminalVal);
INC(noneTerminalIterator);
@ -179,7 +189,7 @@ BEGIN
NEW(jsonRecord);
jsonRecord := Create("{'foo': 'bar', 'test': 'test1', 'test2': {'sub': 'dub'}}");
keyFound := jsonRecord.GetTerminal(jsonRecord, "'foo'", testValue);
keyFound := jsonRecord.GetTerminal(jsonRecord, "foo", testValue);
IF keyFound THEN
Logger.Log('found KEY');