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