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 some todo comments in code.

Browse source
This commit is contained in:
Norayr Chilingarian 2024-07-18 01:17:51 +04:00
parent 126d5bf5e4
commit 9aae54c17e
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/vpkJsonDepRetriever.Mod
View file

@ -240,7 +240,7 @@ BEGIN
NEW(keyLower, LEN(rootObj.name^) + 1); NEW(keyLower, LEN(rootObj.name^) + 1);
COPY(rootObj.name^, keyLower^); COPY(rootObj.name^, keyLower^);
ToLower(keyLower^); ToLower(keyLower^);
IF keyLower^ = "remote" THEN IF keyLower^ = "remote" THEN (* TODO, get rid of hardcoded string literals, decide with case *)
fndRemSec := TRUE; fndRemSec := TRUE;
ELSE ELSE
rootObj := rootObj.next; rootObj := rootObj.next;
@ -263,7 +263,7 @@ BEGIN
val := rootObj.value(Json.Str).str; val := rootObj.value(Json.Str).str;
Out.String("Processing key: "); Out.String(key^); Out.Ln; Out.String("Processing key: "); Out.String(key^); Out.Ln;
Out.String("Value: "); Out.String(val^); Out.Ln; Out.String("Value: "); Out.String(val^); Out.Ln;
IF keyLower^ = "type" THEN (* type *) IF keyLower^ = "type" THEN (* type *) (* TODO, get rid of hardcoded string literals, decide with case *)
IF val^ = vpkSettings.rmtTypHttpsVal THEN IF val^ = vpkSettings.rmtTypHttpsVal THEN
NEW(httpsRemote); d^.rmt := httpsRemote; NEW(httpsRemote); d^.rmt := httpsRemote;
d^.Type := vpkSettings.https; d^.Type := vpkSettings.https;
@ -282,14 +282,14 @@ BEGIN
ELSE ELSE
Out.String("Unhandled remote type: "); Out.String(val^); Out.Ln; HALT(5); Out.String("Unhandled remote type: "); Out.String(val^); Out.Ln; HALT(5);
END; END;
ELSIF keyLower^ = "tag" THEN ELSIF keyLower^ = "tag" THEN (* TODO, get rid of hardcoded string literals, decide with case *)
IF d^.rmt # NIL THEN IF d^.rmt # NIL THEN
COPY(val^, d^.rmt(vpkdepTree.RemoteGit)^.tag); (* Use the tag field appropriately *) COPY(val^, d^.rmt(vpkdepTree.RemoteGit)^.tag); (* Use the tag field appropriately *)
Out.String("Set tag to "); Out.String(val^); Out.Ln; Out.String("Set tag to "); Out.String(val^); Out.Ln;
ELSE ELSE
Out.String("d^.rmt is NIL when setting tag"); Out.Ln; Out.String("d^.rmt is NIL when setting tag"); Out.Ln;
END; END;
ELSIF keyLower^ = "path" THEN ELSIF keyLower^ = "path" THEN (* TODO, get rid of hardcoded string literals, decide with case *)
IF d^.rmt # NIL THEN IF d^.rmt # NIL THEN
COPY(val^, d^.rmt^.URI); COPY(val^, d^.rmt^.URI);
Out.String("Set URI to "); Out.String(val^); Out.Ln; Out.String("Set URI to "); Out.String(val^); Out.Ln;
@ -300,7 +300,7 @@ BEGIN
Out.String("Unhandled key: "); Out.String(key^); Out.Ln; Out.String("Unhandled key: "); Out.String(key^); Out.Ln;
END; END;
ELSE ELSE
IF keyLower^ = "files" THEN IF keyLower^ = "files" THEN (* TODO, get rid of hardcoded string literals, decide with case *)
IF (d^.rmt IS vpkdepTree.RemoteHttps) THEN IF (d^.rmt IS vpkdepTree.RemoteHttps) THEN
httpsRemote2 := d^.rmt(vpkdepTree.RemoteHttps); (* Separate the cast *) httpsRemote2 := d^.rmt(vpkdepTree.RemoteHttps); (* Separate the cast *)
tmpRemote := httpsRemote2; tmpRemote := httpsRemote2;