eventually refactoring to ssts-q's json module done.

This commit is contained in:
Norayr Chilingarian 2024-02-02 02:58:48 +04:00
parent b0b330ffd9
commit 5cebbb713b
2 changed files with 2 additions and 1 deletions

View file

@ -100,7 +100,7 @@ BEGIN
res := Platform.System(cmd^); res := Platform.System(cmd^);
IF res # 0 THEN Out.String("failed to run build command"); Out.Ln END; IF res # 0 THEN Out.String("failed to run build command"); Out.Ln END;
INC(j) INC(j)
UNTIL j = keys.Count - 1; UNTIL j = keys.Count;
ELSE ELSE
Out.String("no build info found for the package: "); Out.String(dep.name^); Out.Ln; Out.String("no build info found for the package: "); Out.String(dep.name^); Out.Ln;
END; END;

View file

@ -14,6 +14,7 @@ VAR
cm, fl, bl: Json.jString; cm, fl, bl: Json.jString;
b: BOOLEAN; b: BOOLEAN;
BEGIN BEGIN
k := NIL; v := NIL;
b := FALSE; b := FALSE;
jsonstr := NIL; jsonstr := NIL;
vpkStorage.json2pstring(d.name^, jsonstr); vpkStorage.json2pstring(d.name^, jsonstr);