mirror of
https://github.com/vishapoberon/vipak.git
synced 2026-04-05 20:42:26 +00:00
removed unnecessary files
This commit is contained in:
Norayr Chilingarian
parent
b411ead9d9
commit
8a476ab610
8 changed files with 0 additions and 814 deletions
|
|
@ -1,121 +0,0 @@
|
||||||
MODULE CharacterStack;
|
|
||||||
IMPORT List, Out, Sys;
|
|
||||||
|
|
||||||
TYPE
|
|
||||||
integer* = Sys.integer;
|
|
||||||
TObject* = Sys.TObject;
|
|
||||||
|
|
||||||
Node* = POINTER TO NodeDesc;
|
|
||||||
NodeDesc* = List.NodeDesc;
|
|
||||||
|
|
||||||
TChar* = POINTER TO TCharDesc;
|
|
||||||
|
|
||||||
TCharDesc = RECORD (Sys.TObjectDesc)
|
|
||||||
char* : CHAR
|
|
||||||
END;
|
|
||||||
|
|
||||||
string = Sys.string;
|
|
||||||
|
|
||||||
CharacterStackType* = POINTER TO CharacterStackTypeDesc;
|
|
||||||
|
|
||||||
CharacterStackTypeDesc* = RECORD (List.TListDesc)
|
|
||||||
pop*: PROCEDURE(self: CharacterStackType): CHAR;
|
|
||||||
push*: PROCEDURE(self: CharacterStackType; char: CHAR);
|
|
||||||
top*: PROCEDURE(self: CharacterStackType) : CHAR;
|
|
||||||
END;
|
|
||||||
|
|
||||||
VAR
|
|
||||||
characterStack: CharacterStackType;
|
|
||||||
|
|
||||||
PROCEDURE push(self: CharacterStackType; char: CHAR);
|
|
||||||
VAR
|
|
||||||
ch: TChar;
|
|
||||||
int: integer;
|
|
||||||
BEGIN
|
|
||||||
NEW(ch);
|
|
||||||
ch.char := char;
|
|
||||||
int := self.Add(self, ch);
|
|
||||||
END push;
|
|
||||||
|
|
||||||
PROCEDURE pop(self: CharacterStackType): CHAR;
|
|
||||||
VAR
|
|
||||||
n: Node;
|
|
||||||
BEGIN
|
|
||||||
NEW(n);
|
|
||||||
|
|
||||||
IF self.Count = 0 THEN RETURN 0X END;
|
|
||||||
|
|
||||||
n := self.Get(self, self.Count - 1);
|
|
||||||
self.Delete(self, self.Count - 1);
|
|
||||||
RETURN n.obj(TChar).char;
|
|
||||||
END pop;
|
|
||||||
|
|
||||||
PROCEDURE top(self: CharacterStackType): CHAR;
|
|
||||||
VAR
|
|
||||||
n: Node;
|
|
||||||
BEGIN
|
|
||||||
NEW(n);
|
|
||||||
|
|
||||||
IF self.Count = 0 THEN RETURN 0X END;
|
|
||||||
|
|
||||||
n := self.Get(self, self.Count - 1);
|
|
||||||
RETURN n.obj(TChar).char;
|
|
||||||
END top;
|
|
||||||
|
|
||||||
PROCEDURE Create* () : CharacterStackType;
|
|
||||||
VAR
|
|
||||||
l : CharacterStackType;
|
|
||||||
BEGIN
|
|
||||||
NEW(l);
|
|
||||||
l.First := NIL;
|
|
||||||
l.Last := NIL;
|
|
||||||
l.Count := 0;
|
|
||||||
l.Add := List.Add;
|
|
||||||
l.Append := List.Append;
|
|
||||||
l.AppendList := List.AppendList;
|
|
||||||
l.Clear := List.Clear;
|
|
||||||
l.Free := List.Free;
|
|
||||||
l.Insert := List.Insert;
|
|
||||||
l.Delete := List.Delete;
|
|
||||||
l.Empty := List.Empty;
|
|
||||||
l.Get := List.Get;
|
|
||||||
l.res := TRUE;
|
|
||||||
|
|
||||||
l.pop := pop;
|
|
||||||
l.push:= push;
|
|
||||||
l.top := top;
|
|
||||||
RETURN(l);
|
|
||||||
END Create;
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
(* NEW(characterStack);
|
|
||||||
characterStack := Create();
|
|
||||||
characterStack.push(characterStack, 'a');
|
|
||||||
characterStack.push(characterStack, 'b');
|
|
||||||
characterStack.push(characterStack, 'c');
|
|
||||||
|
|
||||||
Out.Char(characterStack.top(characterStack));
|
|
||||||
Out.Ln();
|
|
||||||
Out.Char(characterStack.pop(characterStack));
|
|
||||||
Out.Ln();
|
|
||||||
Out.Char(characterStack.top(characterStack));
|
|
||||||
Out.Ln();
|
|
||||||
Out.Char(characterStack.pop(characterStack));
|
|
||||||
Out.Ln();
|
|
||||||
Out.Char(characterStack.top(characterStack));
|
|
||||||
Out.Ln();
|
|
||||||
Out.Char(characterStack.pop(characterStack));
|
|
||||||
Out.Ln();
|
|
||||||
Out.Char(characterStack.top(characterStack));
|
|
||||||
Out.Ln();
|
|
||||||
Out.Char(characterStack.pop(characterStack));
|
|
||||||
Out.Ln();
|
|
||||||
Out.Char(characterStack.top(characterStack));
|
|
||||||
Out.Ln();
|
|
||||||
Out.Char(characterStack.pop(characterStack));
|
|
||||||
Out.Ln();
|
|
||||||
Out.Char(characterStack.top(characterStack));
|
|
||||||
Out.Ln();
|
|
||||||
Out.Char(characterStack.pop(characterStack));
|
|
||||||
Out.Ln(); *)
|
|
||||||
END CharacterStack.
|
|
||||||
|
|
@ -1,116 +0,0 @@
|
||||||
MODULE DependencyResolver;
|
|
||||||
IMPORT JsonParser, Settings, PackageResolver, Strings, Logger;
|
|
||||||
|
|
||||||
CONST ArrayMaxNumber = 30;
|
|
||||||
|
|
||||||
VAR
|
|
||||||
moduleNames: ARRAY ArrayMaxNumber OF JsonParser.TString;
|
|
||||||
moduleJson: ARRAY ArrayMaxNumber OF JsonParser.TString;
|
|
||||||
moduleVersions: ARRAY ArrayMaxNumber OF JsonParser.TString;
|
|
||||||
|
|
||||||
j : LONGINT;
|
|
||||||
|
|
||||||
PROCEDURE ResolveVersionFiles *(jsonString: ARRAY OF CHAR);
|
|
||||||
VAR
|
|
||||||
jsonRecord, dependencies: JsonParser.JsonTypePointer;
|
|
||||||
keyFound: BOOLEAN;
|
|
||||||
packageName, version, filePath: ARRAY 32 OF CHAR;
|
|
||||||
returnedJSON: JsonParser.TString;
|
|
||||||
keys: ARRAY ArrayMaxNumber OF JsonParser.TString;
|
|
||||||
i, k : LONGINT;
|
|
||||||
BEGIN
|
|
||||||
jsonRecord := JsonParser.Create(jsonString);
|
|
||||||
keyFound := jsonRecord.GetTerminal(jsonRecord, "Package", packageName);
|
|
||||||
IF keyFound THEN
|
|
||||||
Logger.Log("Parsing package by name");
|
|
||||||
Logger.Log(packageName);
|
|
||||||
Logger.Log("------------------------");
|
|
||||||
ELSE Logger.Log("Value for the Key is not found"); RETURN; END;
|
|
||||||
|
|
||||||
dependencies := jsonRecord.GetNonTerminal(jsonRecord, "Dependencies");
|
|
||||||
|
|
||||||
IF dependencies = NIL THEN
|
|
||||||
Logger.Log("Parsing package by name");
|
|
||||||
Logger.Log(packageName);
|
|
||||||
Logger.Log("Error");
|
|
||||||
Logger.Log("No dependency");
|
|
||||||
Logger.Log("------------------------");
|
|
||||||
END;
|
|
||||||
|
|
||||||
dependencies.GetTerminalKeys(dependencies, keys);
|
|
||||||
|
|
||||||
FOR i := 0 TO dependencies.TerminalNumber - 1 DO (* TODO: rewrite with working getter everywhere*)
|
|
||||||
keyFound := dependencies.GetTerminal(dependencies, keys[i], version);
|
|
||||||
|
|
||||||
IF ~keyFound THEN Logger.Log('ERROR while searching key'); Logger.Log(keys[i]); END;
|
|
||||||
ASSERT(keyFound);
|
|
||||||
|
|
||||||
COPY("", filePath);
|
|
||||||
Strings.Append("/", filePath);
|
|
||||||
Strings.Append(keys[i], filePath);
|
|
||||||
Strings.Append("/", filePath);
|
|
||||||
Strings.Append(version, filePath);
|
|
||||||
Strings.Append("/", filePath);
|
|
||||||
Strings.Append(Settings.packageFileName, filePath);
|
|
||||||
|
|
||||||
JsonParser.Empty(returnedJSON);
|
|
||||||
|
|
||||||
PackageResolver.ResolveFile(
|
|
||||||
Settings.host,
|
|
||||||
Settings.port,
|
|
||||||
filePath,
|
|
||||||
keys[i],
|
|
||||||
Settings.packageFileName,
|
|
||||||
returnedJSON
|
|
||||||
);
|
|
||||||
|
|
||||||
keyFound := FALSE;
|
|
||||||
IF j >= LEN(moduleNames) THEN
|
|
||||||
Logger.Log("Out of range in ResolveVersionFiles function in ...");
|
|
||||||
END;
|
|
||||||
ASSERT(j < LEN(moduleNames));
|
|
||||||
|
|
||||||
FOR k := 0 TO j - 1 DO
|
|
||||||
IF Strings.Match(moduleNames[k], keys[i]) THEN
|
|
||||||
keyFound := TRUE;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
|
|
||||||
|
|
||||||
IF ~keyFound THEN
|
|
||||||
COPY(keys[i], moduleNames[j]);
|
|
||||||
COPY(version, moduleVersions[j]);
|
|
||||||
COPY(returnedJSON, moduleJson[j]);
|
|
||||||
INC(j);
|
|
||||||
ResolveVersionFiles(returnedJSON);
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
END ResolveVersionFiles;
|
|
||||||
|
|
||||||
PROCEDURE ResolvePackages*();
|
|
||||||
VAR
|
|
||||||
i: LONGINT;
|
|
||||||
keyFound: BOOLEAN;
|
|
||||||
jsonRecord, filesRecord: JsonParser.JsonTypePointer;
|
|
||||||
values: ARRAY 10 OF JsonParser.TString;
|
|
||||||
host, port, path, packageName, version: ARRAY 50 OF CHAR;
|
|
||||||
BEGIN
|
|
||||||
FOR i := 0 TO j - 1 DO
|
|
||||||
jsonRecord := JsonParser.Create(moduleJson[i]);
|
|
||||||
filesRecord := jsonRecord.GetNonTerminal(jsonRecord, "Files");
|
|
||||||
|
|
||||||
IF filesRecord = NIL THEN
|
|
||||||
Logger.Log("Error: no files section found");
|
|
||||||
END;
|
|
||||||
|
|
||||||
ASSERT(filesRecord # NIL);
|
|
||||||
keyFound := jsonRecord.GetTerminal(jsonRecord, "Remote", host);
|
|
||||||
keyFound := jsonRecord.GetTerminal(jsonRecord, "Port", port);
|
|
||||||
keyFound := jsonRecord.GetTerminal(jsonRecord, "Path", path);
|
|
||||||
keyFound := jsonRecord.GetTerminal(jsonRecord, "Package", packageName);
|
|
||||||
keyFound := jsonRecord.GetTerminal(jsonRecord, "Version", version);
|
|
||||||
PackageResolver.Resolve(host, port, path, packageName, version, filesRecord.TerminalValues); (* TODO: filesRecord.TerminalValues create working getter for this*)
|
|
||||||
END;
|
|
||||||
END ResolvePackages;
|
|
||||||
|
|
||||||
END DependencyResolver.
|
|
||||||
|
|
@ -1,81 +0,0 @@
|
||||||
MODULE FileManager;
|
|
||||||
IMPORT Files, Out, Logger, Strings, Platform;
|
|
||||||
|
|
||||||
PROCEDURE WriteString(VAR r : Files.Rider; str : ARRAY OF CHAR);
|
|
||||||
BEGIN
|
|
||||||
Files.WriteBytes(r, str, Strings.Length(str));
|
|
||||||
END WriteString;
|
|
||||||
|
|
||||||
PROCEDURE Read*(fileName: ARRAY OF CHAR; VAR returnString: ARRAY OF CHAR): BOOLEAN;
|
|
||||||
VAR
|
|
||||||
f: Files.File;
|
|
||||||
r: Files.Rider;
|
|
||||||
i: LONGINT;
|
|
||||||
BEGIN
|
|
||||||
f := Files.Old(fileName);
|
|
||||||
|
|
||||||
IF f = NIL THEN
|
|
||||||
Logger.Log("-------------------");
|
|
||||||
Logger.Log("File Name");
|
|
||||||
Logger.Log(fileName);
|
|
||||||
Logger.Log("File not found");
|
|
||||||
Logger.Log("-------------------");
|
|
||||||
RETURN FALSE
|
|
||||||
END;
|
|
||||||
|
|
||||||
Files.Set(r, f, 0);
|
|
||||||
|
|
||||||
i := 0;
|
|
||||||
REPEAT
|
|
||||||
Files.Read(r, returnString[i]);
|
|
||||||
INC(i);
|
|
||||||
UNTIL r.eof OR (i>=LEN(returnString));
|
|
||||||
|
|
||||||
RETURN TRUE;
|
|
||||||
END Read;
|
|
||||||
|
|
||||||
PROCEDURE Write*(fileName, content: ARRAY OF CHAR): BOOLEAN;
|
|
||||||
VAR
|
|
||||||
f: Files.File;
|
|
||||||
r: Files.Rider;
|
|
||||||
i: LONGINT;
|
|
||||||
BEGIN
|
|
||||||
f := Files.New(fileName);
|
|
||||||
|
|
||||||
IF f = NIL THEN
|
|
||||||
Logger.Log("-------------------");
|
|
||||||
Logger.Log("File Name");
|
|
||||||
Logger.Log(fileName);
|
|
||||||
Logger.Log("File not found");
|
|
||||||
Logger.Log("-------------------");
|
|
||||||
RETURN FALSE
|
|
||||||
END;
|
|
||||||
|
|
||||||
Files.Set(r, f, 0);
|
|
||||||
Logger.Log("Writing to file");
|
|
||||||
Logger.Log(fileName);
|
|
||||||
Logger.Log("-------------------");
|
|
||||||
WriteString(r, content);
|
|
||||||
|
|
||||||
Files.Register(f);
|
|
||||||
|
|
||||||
RETURN TRUE;
|
|
||||||
END Write;
|
|
||||||
|
|
||||||
PROCEDURE CreateDirectory*(name, path: ARRAY OF CHAR): BOOLEAN;
|
|
||||||
VAR
|
|
||||||
command, path0: ARRAY 100 OF CHAR;
|
|
||||||
errorCode: LONGINT;
|
|
||||||
BEGIN
|
|
||||||
COPY(path, path0);
|
|
||||||
COPY("mkdir -p ", command);
|
|
||||||
Strings.Append("/", path0);
|
|
||||||
Strings.Append(name, path0);
|
|
||||||
Strings.Append(path0, command);
|
|
||||||
errorCode := Platform.System(command);
|
|
||||||
|
|
||||||
IF errorCode = 0 THEN RETURN TRUE
|
|
||||||
ELSE RETURN FALSE END;
|
|
||||||
END CreateDirectory;
|
|
||||||
|
|
||||||
END FileManager.
|
|
||||||
304
JsonParser.Mod
304
JsonParser.Mod
|
|
@ -1,304 +0,0 @@
|
||||||
MODULE JsonParser;
|
|
||||||
IMPORT Logger, CharacterStack, Strings, Out, strutils, Settings;
|
|
||||||
CONST
|
|
||||||
ArrayMaxNumber = 30;
|
|
||||||
ArrayMaxNumberChar = 2000;
|
|
||||||
(* Const *)
|
|
||||||
symbolBracketStart = "{";
|
|
||||||
symbolBracketEnd = "}";
|
|
||||||
(* TODO: Reverse " and ' *)
|
|
||||||
quote = Settings.quote;
|
|
||||||
coma = ",";
|
|
||||||
TYPE
|
|
||||||
TString* = ARRAY ArrayMaxNumberChar OF CHAR;
|
|
||||||
|
|
||||||
JsonTypePointer* = POINTER TO JsonType;
|
|
||||||
|
|
||||||
JsonType* = RECORD
|
|
||||||
GetTerminal* : PROCEDURE(self : JsonTypePointer; string : ARRAY OF CHAR; VAR returnValue : ARRAY OF CHAR): BOOLEAN;
|
|
||||||
GetNonTerminal* : PROCEDURE(self : JsonTypePointer; key : ARRAY OF CHAR): JsonTypePointer;
|
|
||||||
HasKey* : PROCEDURE(self : JsonTypePointer; key : ARRAY OF CHAR): BOOLEAN;
|
|
||||||
TypeOfTheKey* : PROCEDURE(self : JsonTypePointer; key : ARRAY OF CHAR; VAR returnValue : ARRAY OF CHAR);
|
|
||||||
GetTerminalKeys* : PROCEDURE(self : JsonTypePointer; VAR destination : ARRAY OF TString);
|
|
||||||
GetTerminalValues* : PROCEDURE(self : JsonTypePointer; VAR destination : ARRAY OF TString);
|
|
||||||
GetNoneTerminalKeys* : PROCEDURE(self : JsonTypePointer; VAR destination : ARRAY OF TString);
|
|
||||||
GetTerminalNumber* : PROCEDURE(self : JsonTypePointer): LONGINT;
|
|
||||||
GetNonTerminalNumber* : PROCEDURE(self : JsonTypePointer): LONGINT;
|
|
||||||
|
|
||||||
TerminalKeys : ARRAY ArrayMaxNumber OF TString;
|
|
||||||
TerminalValues* : ARRAY ArrayMaxNumber OF TString;
|
|
||||||
TerminalNumber* : LONGINT;
|
|
||||||
|
|
||||||
NonTerminalKeys : ARRAY ArrayMaxNumber OF TString;
|
|
||||||
NonTerminalValues : POINTER TO ARRAY OF JsonTypePointer;
|
|
||||||
NonTerminalNumber* : LONGINT;
|
|
||||||
END;
|
|
||||||
|
|
||||||
VAR
|
|
||||||
jsonRecord: JsonTypePointer;
|
|
||||||
testValue: ARRAY ArrayMaxNumber OF CHAR;
|
|
||||||
keyFound: BOOLEAN;
|
|
||||||
|
|
||||||
PROCEDURE GetTerminalNumber*(self : JsonTypePointer): LONGINT;
|
|
||||||
BEGIN RETURN self.TerminalNumber END GetTerminalNumber;
|
|
||||||
|
|
||||||
PROCEDURE GetNonTerminalNumber*(self : JsonTypePointer): LONGINT;
|
|
||||||
BEGIN RETURN self.NonTerminalNumber END GetNonTerminalNumber;
|
|
||||||
|
|
||||||
PROCEDURE GetNonTerminal(self : JsonTypePointer; key : ARRAY OF CHAR): JsonTypePointer;
|
|
||||||
VAR
|
|
||||||
i: LONGINT;
|
|
||||||
BEGIN
|
|
||||||
FOR i := 0 TO self.NonTerminalNumber - 1 DO
|
|
||||||
IF Strings.Match(key, self.NonTerminalKeys[i]) THEN RETURN self.NonTerminalValues[i] END;
|
|
||||||
END;
|
|
||||||
|
|
||||||
RETURN NIL;
|
|
||||||
END GetNonTerminal;
|
|
||||||
|
|
||||||
PROCEDURE Empty *(VAR string: ARRAY OF CHAR);
|
|
||||||
VAR
|
|
||||||
i : LONGINT;
|
|
||||||
BEGIN
|
|
||||||
FOR i := 0 TO LEN(string) - 1 DO string[i] := 0X END;
|
|
||||||
COPY("", string);
|
|
||||||
END Empty;
|
|
||||||
|
|
||||||
PROCEDURE GetTerminal *(self: JsonTypePointer; key: ARRAY OF CHAR; VAR returnValue: ARRAY OF CHAR): BOOLEAN;
|
|
||||||
VAR
|
|
||||||
i: LONGINT;
|
|
||||||
noneTerminal: JsonTypePointer;
|
|
||||||
strings: strutils.strings;
|
|
||||||
parent, children: ARRAY ArrayMaxNumber OF CHAR;
|
|
||||||
BEGIN
|
|
||||||
|
|
||||||
FOR i := 0 TO self.TerminalNumber DO
|
|
||||||
IF Strings.Match(key, self.TerminalKeys[i]) THEN COPY(self.TerminalValues[i], returnValue); RETURN TRUE END;
|
|
||||||
END;
|
|
||||||
|
|
||||||
strings := strutils.tokenize(key, '.');
|
|
||||||
|
|
||||||
IF LEN(strings^) < 1 THEN RETURN FALSE END;
|
|
||||||
|
|
||||||
COPY(strings^[0], parent);
|
|
||||||
|
|
||||||
IF Strings.Length(parent) < 1 THEN RETURN FALSE END;
|
|
||||||
|
|
||||||
noneTerminal := self.GetNonTerminal(self, parent);
|
|
||||||
|
|
||||||
IF noneTerminal = NIL THEN RETURN FALSE END;
|
|
||||||
|
|
||||||
FOR i := 1 TO LEN(strings^) - 1 DO
|
|
||||||
Strings.Append(strings[i], children);
|
|
||||||
IF i < LEN(strings^) - 1 THEN
|
|
||||||
Strings.Append(".", children);
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
|
|
||||||
RETURN noneTerminal.GetTerminal(noneTerminal, children, returnValue);
|
|
||||||
|
|
||||||
RETURN FALSE;
|
|
||||||
END GetTerminal;
|
|
||||||
|
|
||||||
PROCEDURE GetTerminalKeys(self : JsonTypePointer; VAR destination : ARRAY OF TString);
|
|
||||||
VAR
|
|
||||||
i: LONGINT;
|
|
||||||
BEGIN
|
|
||||||
FOR i := 0 TO self.TerminalNumber DO
|
|
||||||
COPY(self.TerminalKeys[i], destination[i]);
|
|
||||||
END;
|
|
||||||
END GetTerminalKeys;
|
|
||||||
|
|
||||||
PROCEDURE GetTerminalValues(self : JsonTypePointer; VAR destination : ARRAY OF TString);
|
|
||||||
VAR
|
|
||||||
i: LONGINT;
|
|
||||||
BEGIN
|
|
||||||
FOR i := 0 TO self.TerminalNumber - 1 DO
|
|
||||||
Empty(destination[i]);
|
|
||||||
COPY(self.TerminalValues[i], destination[i]);
|
|
||||||
END;
|
|
||||||
END GetTerminalValues;
|
|
||||||
|
|
||||||
PROCEDURE GetNoneTerminalKeys(self : JsonTypePointer; VAR destination : ARRAY OF TString);
|
|
||||||
VAR
|
|
||||||
i: LONGINT;
|
|
||||||
BEGIN
|
|
||||||
FOR i := 0 TO LEN(self.NonTerminalKeys) - 1 DO
|
|
||||||
destination[i] := self.NonTerminalKeys[i];
|
|
||||||
END;
|
|
||||||
END GetNoneTerminalKeys;
|
|
||||||
(*
|
|
||||||
TODO:
|
|
||||||
Create a good validation for comas
|
|
||||||
Create a good validation for name repetition
|
|
||||||
*)
|
|
||||||
|
|
||||||
PROCEDURE PushDownString(
|
|
||||||
string: ARRAY OF CHAR;
|
|
||||||
startCharacter: CHAR;
|
|
||||||
endCharacter: CHAR;
|
|
||||||
i: LONGINT;
|
|
||||||
VAR returnString: ARRAY OF CHAR): LONGINT;
|
|
||||||
VAR
|
|
||||||
characterStack: CharacterStack.CharacterStackType;
|
|
||||||
j , k: LONGINT;
|
|
||||||
BEGIN
|
|
||||||
NEW(characterStack);
|
|
||||||
j := i;
|
|
||||||
characterStack := CharacterStack.Create();
|
|
||||||
Empty(returnString);
|
|
||||||
REPEAT
|
|
||||||
IF (characterStack.Count > 1) & (string[j] = endCharacter) THEN
|
|
||||||
REPEAT UNTIL characterStack.pop(characterStack) = startCharacter;
|
|
||||||
ELSE
|
|
||||||
characterStack.push(characterStack, string[j]);
|
|
||||||
INC(j);
|
|
||||||
END;
|
|
||||||
UNTIL characterStack.Count = 0; (* do not trust top it btings OAX on EOL*)
|
|
||||||
|
|
||||||
IF j >= LEN(returnString) THEN
|
|
||||||
Logger.Log('ERROR string out of range in JSON parser');
|
|
||||||
END;
|
|
||||||
ASSERT(j < LEN(returnString));
|
|
||||||
|
|
||||||
FOR k := i TO j DO
|
|
||||||
returnString[k - i] := string[k];
|
|
||||||
END;
|
|
||||||
|
|
||||||
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;
|
|
||||||
i, j, terminalIterator, noneTerminalIterator: LONGINT;
|
|
||||||
characterStack: CharacterStack.CharacterStackType;
|
|
||||||
key, val, nonTerminalVal, string: ARRAY ArrayMaxNumberChar OF CHAR;
|
|
||||||
symbol: CHAR;
|
|
||||||
symbolStart: CHAR;
|
|
||||||
quoteStart: BOOLEAN;
|
|
||||||
BEGIN
|
|
||||||
NEW(self);
|
|
||||||
NEW(self.NonTerminalValues, ArrayMaxNumber);
|
|
||||||
self.GetTerminal := GetTerminal;
|
|
||||||
self.GetNonTerminal := GetNonTerminal;
|
|
||||||
self.GetTerminalKeys := GetTerminalKeys;
|
|
||||||
self.GetNoneTerminalKeys := GetNoneTerminalKeys;
|
|
||||||
NEW(characterStack);
|
|
||||||
characterStack := CharacterStack.Create();
|
|
||||||
|
|
||||||
i := 0;
|
|
||||||
j := 0;
|
|
||||||
terminalIterator := 0;
|
|
||||||
noneTerminalIterator := 0;
|
|
||||||
|
|
||||||
Empty(key);
|
|
||||||
Empty(val);
|
|
||||||
Empty(nonTerminalVal);
|
|
||||||
Empty(string);
|
|
||||||
|
|
||||||
quoteStart := FALSE;
|
|
||||||
|
|
||||||
REPEAT
|
|
||||||
IF (text[i] = symbolBracketStart) & (i = 0) THEN
|
|
||||||
INC(i);
|
|
||||||
(* Logger.Log("Starting Parse Json"); *)
|
|
||||||
END;
|
|
||||||
|
|
||||||
IF symbol = symbolBracketStart THEN
|
|
||||||
(* Logger.Log("End Parsing Json"); *)
|
|
||||||
END;
|
|
||||||
symbol := text[i];
|
|
||||||
|
|
||||||
(* Logger.LogIntLn(i); *)
|
|
||||||
(* IF i > 508 THEN
|
|
||||||
Logger.Log(text);
|
|
||||||
END; *)
|
|
||||||
(* terminals *)
|
|
||||||
IF symbol = quote THEN
|
|
||||||
i := PushDownString(text, quote, quote, i, string);
|
|
||||||
END;
|
|
||||||
|
|
||||||
IF (Strings.Length(string) > 0) & (symbol = quote) THEN
|
|
||||||
IF Strings.Length(key) > 0 THEN
|
|
||||||
COPY(string, val);
|
|
||||||
ELSE
|
|
||||||
COPY(string, key);
|
|
||||||
END;
|
|
||||||
|
|
||||||
Empty(string);
|
|
||||||
END;
|
|
||||||
|
|
||||||
IF (Strings.Length(key) > 0) & (Strings.Length(val) > 0) THEN
|
|
||||||
deQuote(key, self.TerminalKeys[terminalIterator]);
|
|
||||||
deQuote(val, self.TerminalValues[terminalIterator]);
|
|
||||||
|
|
||||||
INC(terminalIterator);
|
|
||||||
|
|
||||||
Empty(key);
|
|
||||||
Empty(val);
|
|
||||||
END;
|
|
||||||
|
|
||||||
(* none terminals *)
|
|
||||||
IF symbol = symbolBracketStart THEN
|
|
||||||
i := PushDownString(text, symbolBracketStart, symbolBracketEnd, i, string);
|
|
||||||
END;
|
|
||||||
|
|
||||||
IF (Strings.Length(string) > 0) & (symbol = symbolBracketStart) THEN
|
|
||||||
IF Strings.Length(key) > 0 THEN
|
|
||||||
COPY(string, nonTerminalVal);
|
|
||||||
END;
|
|
||||||
|
|
||||||
Empty(string);
|
|
||||||
END;
|
|
||||||
|
|
||||||
IF (Strings.Length(key) > 0) & (Strings.Length(nonTerminalVal) > 0) THEN
|
|
||||||
deQuote(key, self.NonTerminalKeys[noneTerminalIterator]);
|
|
||||||
self.NonTerminalValues[noneTerminalIterator] := Create(nonTerminalVal);
|
|
||||||
|
|
||||||
INC(noneTerminalIterator);
|
|
||||||
|
|
||||||
Empty(key);
|
|
||||||
Empty(nonTerminalVal);
|
|
||||||
END;
|
|
||||||
|
|
||||||
INC(i);
|
|
||||||
UNTIL (i >= LEN(text) - 1) OR (text[i] = 0X);
|
|
||||||
|
|
||||||
self.NonTerminalNumber := noneTerminalIterator;
|
|
||||||
self.TerminalNumber := terminalIterator;
|
|
||||||
|
|
||||||
RETURN self;
|
|
||||||
END Create;
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
(* NEW(jsonRecord);
|
|
||||||
jsonRecord := Create("{'foo': 'bar', 'test': 'test1', 'test2': {'sub': 'dub'}}");
|
|
||||||
|
|
||||||
keyFound := jsonRecord.GetTerminal(jsonRecord, "foo", testValue);
|
|
||||||
|
|
||||||
IF keyFound THEN
|
|
||||||
Logger.Log('found KEY');
|
|
||||||
Logger.Log(testValue);
|
|
||||||
ELSE Logger.Log('Value for the Key is not found') END;
|
|
||||||
|
|
||||||
keyFound := jsonRecord.GetTerminal(jsonRecord, "test2.sub", testValue);
|
|
||||||
|
|
||||||
IF keyFound THEN
|
|
||||||
Logger.Log('found KEY');
|
|
||||||
Logger.Log(testValue);
|
|
||||||
ELSE Logger.Log('Value for the Key is not found') END; *)
|
|
||||||
END JsonParser.
|
|
||||||
|
|
@ -1,34 +0,0 @@
|
||||||
MODULE PackageFileParser;
|
|
||||||
IMPORT
|
|
||||||
JsonParser,
|
|
||||||
FileManager,
|
|
||||||
http,
|
|
||||||
Logger,
|
|
||||||
DependencyResolver,
|
|
||||||
Settings;
|
|
||||||
CONST
|
|
||||||
MAXARRAYNUMBER = 1000;
|
|
||||||
PROCEDURE install*;
|
|
||||||
VAR
|
|
||||||
jsonData: ARRAY MAXARRAYNUMBER OF CHAR;
|
|
||||||
success: BOOLEAN;
|
|
||||||
BEGIN
|
|
||||||
Logger.Log("Starting install process");
|
|
||||||
success := FileManager.Read(Settings.packageFileName, jsonData);
|
|
||||||
|
|
||||||
IF ~success THEN Logger.Log("Some ERROR occured while reading VERSIONFILE") END;
|
|
||||||
ASSERT(success);
|
|
||||||
|
|
||||||
Logger.Log("Starting resolving dependencies");
|
|
||||||
|
|
||||||
DependencyResolver.ResolveVersionFiles(jsonData);
|
|
||||||
DependencyResolver.ResolvePackages();
|
|
||||||
Logger.Log("======================");
|
|
||||||
Logger.Log("======================");
|
|
||||||
Logger.Log("Installation complete");
|
|
||||||
Logger.Log("Thanks for using OPIUM!");
|
|
||||||
END install;
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
|
|
||||||
END PackageFileParser.
|
|
||||||
|
|
@ -1,6 +0,0 @@
|
||||||
MODULE RemoteClient;
|
|
||||||
IMPORT
|
|
||||||
httpClient
|
|
||||||
BEGIN
|
|
||||||
|
|
||||||
END RemoteClient.
|
|
||||||
|
|
@ -1,8 +0,0 @@
|
||||||
MODULE Settings;
|
|
||||||
CONST
|
|
||||||
packageFileName* = "VersionFile.json";
|
|
||||||
host* = "localhost";
|
|
||||||
port* = "80";
|
|
||||||
installPath* = "dependencies";
|
|
||||||
quote* = '"';
|
|
||||||
END Settings.
|
|
||||||
144
http.Mod
144
http.Mod
|
|
@ -1,144 +0,0 @@
|
||||||
MODULE http;
|
|
||||||
IMPORT Strings, Internet, Logger, Out;
|
|
||||||
CONST
|
|
||||||
MAXARRAYNUMBER = 10000;
|
|
||||||
MAXARRAYNUMBEREXTENDED = 100000;
|
|
||||||
|
|
||||||
TYPE
|
|
||||||
PSTRING = POINTER TO ARRAY OF CHAR;
|
|
||||||
|
|
||||||
VAR
|
|
||||||
buff, buff2: ARRAY MAXARRAYNUMBEREXTENDED OF CHAR;
|
|
||||||
|
|
||||||
PROCEDURE Empty *(VAR string: ARRAY OF CHAR);
|
|
||||||
VAR
|
|
||||||
i : LONGINT;
|
|
||||||
BEGIN
|
|
||||||
FOR i := 0 TO LEN(string) - 1 DO string[i] := 0X END;
|
|
||||||
COPY("", string);
|
|
||||||
END Empty;
|
|
||||||
|
|
||||||
PROCEDURE getClean *(buff: ARRAY OF CHAR; VAR clean: ARRAY OF CHAR);
|
|
||||||
VAR
|
|
||||||
i: INTEGER;
|
|
||||||
newLine: ARRAY 2 OF CHAR;
|
|
||||||
lineIsHeader, EOL, notFirstLine: BOOLEAN;
|
|
||||||
BEGIN
|
|
||||||
i := 0;
|
|
||||||
notFirstLine := FALSE;
|
|
||||||
lineIsHeader := FALSE;
|
|
||||||
EOL := FALSE;
|
|
||||||
|
|
||||||
REPEAT
|
|
||||||
IF EOL THEN
|
|
||||||
lineIsHeader := FALSE;
|
|
||||||
EOL := FALSE;
|
|
||||||
notFirstLine := TRUE
|
|
||||||
END;
|
|
||||||
|
|
||||||
IF buff[i] = ":" THEN lineIsHeader := TRUE END;
|
|
||||||
|
|
||||||
IF ((buff[i - 1] = 0DX) & (buff[i] = 0AX)) THEN EOL := TRUE END;
|
|
||||||
|
|
||||||
INC(i);
|
|
||||||
UNTIL (i + 2 > Strings.Length(buff)) OR (~lineIsHeader & EOL & notFirstLine);
|
|
||||||
|
|
||||||
Strings.Extract(buff, i, Strings.Length(buff), clean);
|
|
||||||
END getClean;
|
|
||||||
|
|
||||||
PROCEDURE AppendEOLAndClean(buff: ARRAY OF CHAR; VAR buffClean: PSTRING);
|
|
||||||
VAR i: LONGINT;
|
|
||||||
BEGIN
|
|
||||||
i := Strings.Length(buff);
|
|
||||||
|
|
||||||
NEW(buffClean, i + 3);
|
|
||||||
|
|
||||||
COPY(buff, buffClean^);
|
|
||||||
|
|
||||||
buffClean[i] := 0DX;
|
|
||||||
buffClean[i + 1] := 0AX;
|
|
||||||
buffClean[i + 2] := " ";
|
|
||||||
END AppendEOLAndClean;
|
|
||||||
|
|
||||||
PROCEDURE addHeader(key, val: ARRAY OF CHAR; VAR buff: PSTRING);
|
|
||||||
VAR
|
|
||||||
header: ARRAY MAXARRAYNUMBER OF CHAR;
|
|
||||||
BEGIN
|
|
||||||
Empty(header);
|
|
||||||
Strings.Append(key, header);
|
|
||||||
Strings.Append(": ", header);
|
|
||||||
Strings.Append(val, header);
|
|
||||||
AppendEOLAndClean(header, buff);
|
|
||||||
END addHeader;
|
|
||||||
|
|
||||||
PROCEDURE getHeader(buff, key: ARRAY OF CHAR; VAR val: ARRAY OF CHAR);
|
|
||||||
VAR
|
|
||||||
positionStart, valPositionStart, i: LONGINT;
|
|
||||||
BEGIN
|
|
||||||
positionStart := Strings.Pos(key, buff, 0);
|
|
||||||
valPositionStart := positionStart + Strings.Length(key) + 1;
|
|
||||||
i := 0;
|
|
||||||
REPEAT
|
|
||||||
val[i] := buff[valPositionStart + i];
|
|
||||||
INC(i);
|
|
||||||
UNTIL (ORD(val[i]) = 10) (* 0DX number(newline)*) OR
|
|
||||||
(i > Strings.Length(buff));
|
|
||||||
END getHeader;
|
|
||||||
|
|
||||||
PROCEDURE get *(host, port, path: ARRAY OF CHAR; VAR buff: ARRAY OF CHAR);
|
|
||||||
VAR
|
|
||||||
socket : Internet.Socket;
|
|
||||||
connectionFlag: BOOLEAN;
|
|
||||||
valueContentLength: REAL;
|
|
||||||
send, valueContentLengthString: ARRAY MAXARRAYNUMBER OF CHAR;
|
|
||||||
sendClean: PSTRING;
|
|
||||||
httpTail: ARRAY 16 OF CHAR;
|
|
||||||
endOfLine: ARRAY 3 OF CHAR;
|
|
||||||
tmpBuff: ARRAY MAXARRAYNUMBER OF CHAR;
|
|
||||||
BEGIN
|
|
||||||
Empty( buff);
|
|
||||||
httpTail := " HTTP/1.1";
|
|
||||||
|
|
||||||
connectionFlag := Internet.Connect(host, port, socket);
|
|
||||||
|
|
||||||
send := "GET ";
|
|
||||||
|
|
||||||
Strings.Append(path, send);
|
|
||||||
Strings.Append(httpTail, send);
|
|
||||||
|
|
||||||
|
|
||||||
AppendEOLAndClean(send, sendClean);
|
|
||||||
connectionFlag := Internet.Write(socket, sendClean^);
|
|
||||||
|
|
||||||
addHeader("HOST", host, sendClean);
|
|
||||||
connectionFlag := Internet.Write(socket, sendClean^);
|
|
||||||
|
|
||||||
addHeader("User-Agent", "oberon-http-client/1.0", sendClean);
|
|
||||||
connectionFlag := Internet.Write(socket, sendClean^);
|
|
||||||
|
|
||||||
addHeader("Accept", "*/*", sendClean);
|
|
||||||
connectionFlag := Internet.Write(socket, sendClean^);
|
|
||||||
|
|
||||||
AppendEOLAndClean("", sendClean);
|
|
||||||
connectionFlag := Internet.Write(socket, sendClean^);
|
|
||||||
REPEAT
|
|
||||||
Empty( tmpBuff);
|
|
||||||
|
|
||||||
connectionFlag := Internet.Read(socket, tmpBuff);
|
|
||||||
Strings.Append(tmpBuff, buff);
|
|
||||||
getHeader(buff, "Content-Length", valueContentLengthString);
|
|
||||||
Strings.StrToReal(valueContentLengthString, valueContentLength);
|
|
||||||
(* Out.Real(valueContentLength, 6);
|
|
||||||
Out.Ln;
|
|
||||||
Logger.LogIntLn(Strings.Length(buff));
|
|
||||||
*)
|
|
||||||
(* Logger.Log(buff); *)
|
|
||||||
UNTIL ~connectionFlag OR (Strings.Length(buff) > valueContentLength);
|
|
||||||
Internet.Disconnect(socket);
|
|
||||||
END get;
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
(* get("norayr.am", "/tmp/", "80", buff);
|
|
||||||
getClean(buff, buff2);
|
|
||||||
Logger.Log(buff2); *)
|
|
||||||
END http.
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue