mirror of
https://github.com/vishapoberon/vipak.git
synced 2026-04-06 04:52:26 +00:00
New Packeges added
This commit is contained in:
Ruben Shekspir
parent
fe5d179b49
commit
39873387e1
8 changed files with 229 additions and 202 deletions
6
DependencyResolver.Mod
Normal file
6
DependencyResolver.Mod
Normal file
|
|
@ -0,0 +1,6 @@
|
||||||
|
MODULE DependencyResolver;
|
||||||
|
IMPORT
|
||||||
|
JsonParser
|
||||||
|
BEGIN
|
||||||
|
|
||||||
|
END DependencyResolver.
|
||||||
|
|
@ -1,199 +0,0 @@
|
||||||
MODULE HashMap;
|
|
||||||
IMPORT Logger, CharacterStack, Strings, Out;
|
|
||||||
CONST
|
|
||||||
ArrayMaxNumber = 100;
|
|
||||||
(* Const *)
|
|
||||||
symbolBracketStart = "{";
|
|
||||||
symbolBracketEnd = "}";
|
|
||||||
(* TODO: Reverse " and ' *)
|
|
||||||
quote = "'";
|
|
||||||
coma = ",";
|
|
||||||
TYPE
|
|
||||||
TString = ARRAY ArrayMaxNumber 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);
|
|
||||||
|
|
||||||
TerminalKeys : ARRAY ArrayMaxNumber OF TString;
|
|
||||||
TerminalsValues : ARRAY ArrayMaxNumber OF TString;
|
|
||||||
|
|
||||||
NonTerminalKeys : ARRAY ArrayMaxNumber OF TString;
|
|
||||||
NonTerminalValues : POINTER TO ARRAY OF JsonTypePointer;
|
|
||||||
END;
|
|
||||||
|
|
||||||
VAR
|
|
||||||
jsonRecord: JsonTypePointer;
|
|
||||||
testValue: ARRAY ArrayMaxNumber OF CHAR;
|
|
||||||
keyFound: BOOLEAN;
|
|
||||||
PROCEDURE GetTerminal *(self: JsonTypePointer; key: ARRAY OF CHAR; VAR returnValue: ARRAY OF CHAR): BOOLEAN;
|
|
||||||
VAR
|
|
||||||
i: LONGINT;
|
|
||||||
BEGIN
|
|
||||||
FOR i := 0 TO LEN(self.TerminalKeys) - 1 DO
|
|
||||||
IF Strings.Match(key, self.TerminalKeys[i]) THEN COPY(self.TerminalsValues[i], returnValue); RETURN TRUE END;
|
|
||||||
END;
|
|
||||||
RETURN FALSE;
|
|
||||||
END GetTerminal;
|
|
||||||
|
|
||||||
(*
|
|
||||||
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();
|
|
||||||
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.top(characterStack) = 0AX;
|
|
||||||
|
|
||||||
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 ArrayMaxNumber OF CHAR;
|
|
||||||
symbol: CHAR;
|
|
||||||
symbolStart: CHAR;
|
|
||||||
quoteStart: BOOLEAN;
|
|
||||||
BEGIN
|
|
||||||
NEW(self);
|
|
||||||
NEW(self.NonTerminalValues, ArrayMaxNumber);
|
|
||||||
self.GetTerminal := GetTerminal;
|
|
||||||
|
|
||||||
NEW(characterStack);
|
|
||||||
characterStack := CharacterStack.Create();
|
|
||||||
|
|
||||||
i := 0;
|
|
||||||
j := 0;
|
|
||||||
terminalIterator := 0;
|
|
||||||
noneTerminalIterator := 0;
|
|
||||||
|
|
||||||
|
|
||||||
COPY("", key);
|
|
||||||
COPY("", val);
|
|
||||||
COPY("", nonTerminalVal);
|
|
||||||
|
|
||||||
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];
|
|
||||||
|
|
||||||
(* 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;
|
|
||||||
|
|
||||||
COPY("", string);
|
|
||||||
END;
|
|
||||||
|
|
||||||
IF (Strings.Length(key) > 0) & (Strings.Length(val) > 0) THEN
|
|
||||||
deQuote(key, self.TerminalKeys[terminalIterator]);
|
|
||||||
deQuote(val, self.TerminalsValues[terminalIterator]);
|
|
||||||
INC(terminalIterator);
|
|
||||||
|
|
||||||
COPY("", key);
|
|
||||||
COPY("", 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;
|
|
||||||
|
|
||||||
COPY("", string);
|
|
||||||
END;
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
IF (Strings.Length(key) > 0) & (Strings.Length(nonTerminalVal) > 0) THEN
|
|
||||||
deQuote(key, self.NonTerminalKeys[noneTerminalIterator]);
|
|
||||||
self.NonTerminalValues[noneTerminalIterator] := Create(nonTerminalVal);
|
|
||||||
|
|
||||||
INC(noneTerminalIterator);
|
|
||||||
|
|
||||||
COPY("", key);
|
|
||||||
COPY("", nonTerminalVal);
|
|
||||||
RETURN self;
|
|
||||||
END;
|
|
||||||
|
|
||||||
INC(i);
|
|
||||||
UNTIL i > LEN(text) - 1;
|
|
||||||
|
|
||||||
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;
|
|
||||||
|
|
||||||
END HashMap.
|
|
||||||
197
JsonParser.Mod
197
JsonParser.Mod
|
|
@ -1,4 +1,199 @@
|
||||||
MODULE JsonParser;
|
MODULE JsonParser;
|
||||||
|
IMPORT Logger, CharacterStack, Strings, Out;
|
||||||
|
CONST
|
||||||
|
ArrayMaxNumber = 100;
|
||||||
|
(* Const *)
|
||||||
|
symbolBracketStart = "{";
|
||||||
|
symbolBracketEnd = "}";
|
||||||
|
(* TODO: Reverse " and ' *)
|
||||||
|
quote = "'";
|
||||||
|
coma = ",";
|
||||||
|
TYPE
|
||||||
|
TString = ARRAY ArrayMaxNumber 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);
|
||||||
|
|
||||||
|
TerminalKeys : ARRAY ArrayMaxNumber OF TString;
|
||||||
|
TerminalsValues : ARRAY ArrayMaxNumber OF TString;
|
||||||
|
|
||||||
|
NonTerminalKeys : ARRAY ArrayMaxNumber OF TString;
|
||||||
|
NonTerminalValues : POINTER TO ARRAY OF JsonTypePointer;
|
||||||
|
END;
|
||||||
|
|
||||||
|
VAR
|
||||||
|
jsonRecord: JsonTypePointer;
|
||||||
|
testValue: ARRAY ArrayMaxNumber OF CHAR;
|
||||||
|
keyFound: BOOLEAN;
|
||||||
|
PROCEDURE GetTerminal *(self: JsonTypePointer; key: ARRAY OF CHAR; VAR returnValue: ARRAY OF CHAR): BOOLEAN;
|
||||||
|
VAR
|
||||||
|
i: LONGINT;
|
||||||
|
BEGIN
|
||||||
|
FOR i := 0 TO LEN(self.TerminalKeys) - 1 DO
|
||||||
|
IF Strings.Match(key, self.TerminalKeys[i]) THEN COPY(self.TerminalsValues[i], returnValue); RETURN TRUE END;
|
||||||
|
END;
|
||||||
|
RETURN FALSE;
|
||||||
|
END GetTerminal;
|
||||||
|
|
||||||
|
(*
|
||||||
|
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();
|
||||||
|
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.top(characterStack) = 0AX;
|
||||||
|
|
||||||
|
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 ArrayMaxNumber OF CHAR;
|
||||||
|
symbol: CHAR;
|
||||||
|
symbolStart: CHAR;
|
||||||
|
quoteStart: BOOLEAN;
|
||||||
|
BEGIN
|
||||||
|
NEW(self);
|
||||||
|
NEW(self.NonTerminalValues, ArrayMaxNumber);
|
||||||
|
self.GetTerminal := GetTerminal;
|
||||||
|
|
||||||
|
NEW(characterStack);
|
||||||
|
characterStack := CharacterStack.Create();
|
||||||
|
|
||||||
|
i := 0;
|
||||||
|
j := 0;
|
||||||
|
terminalIterator := 0;
|
||||||
|
noneTerminalIterator := 0;
|
||||||
|
|
||||||
|
|
||||||
|
COPY("", key);
|
||||||
|
COPY("", val);
|
||||||
|
COPY("", nonTerminalVal);
|
||||||
|
|
||||||
|
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];
|
||||||
|
|
||||||
|
(* 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;
|
||||||
|
|
||||||
|
COPY("", string);
|
||||||
|
END;
|
||||||
|
|
||||||
|
IF (Strings.Length(key) > 0) & (Strings.Length(val) > 0) THEN
|
||||||
|
deQuote(key, self.TerminalKeys[terminalIterator]);
|
||||||
|
deQuote(val, self.TerminalsValues[terminalIterator]);
|
||||||
|
INC(terminalIterator);
|
||||||
|
|
||||||
|
COPY("", key);
|
||||||
|
COPY("", 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;
|
||||||
|
|
||||||
|
COPY("", string);
|
||||||
|
END;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
IF (Strings.Length(key) > 0) & (Strings.Length(nonTerminalVal) > 0) THEN
|
||||||
|
deQuote(key, self.NonTerminalKeys[noneTerminalIterator]);
|
||||||
|
self.NonTerminalValues[noneTerminalIterator] := Create(nonTerminalVal);
|
||||||
|
|
||||||
|
INC(noneTerminalIterator);
|
||||||
|
|
||||||
|
COPY("", key);
|
||||||
|
COPY("", nonTerminalVal);
|
||||||
|
RETURN self;
|
||||||
|
END;
|
||||||
|
|
||||||
|
INC(i);
|
||||||
|
UNTIL i > LEN(text) - 1;
|
||||||
|
|
||||||
|
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;
|
||||||
|
|
||||||
PROCEDURE
|
|
||||||
END JsonParser.
|
END JsonParser.
|
||||||
7
Opium.Mod
Normal file
7
Opium.Mod
Normal file
|
|
@ -0,0 +1,7 @@
|
||||||
|
MODULE opium;
|
||||||
|
IMPORT
|
||||||
|
Args,
|
||||||
|
PackageFileParser
|
||||||
|
BEGIN
|
||||||
|
|
||||||
|
END opium.
|
||||||
6
PackageFileParser.Mod
Normal file
6
PackageFileParser.Mod
Normal file
|
|
@ -0,0 +1,6 @@
|
||||||
|
MODULE PackageFileParser;
|
||||||
|
IMPORT
|
||||||
|
JsonParser
|
||||||
|
BEGIN
|
||||||
|
|
||||||
|
END PackageFileParser.
|
||||||
6
PackegeResolver.Mod
Normal file
6
PackegeResolver.Mod
Normal file
|
|
@ -0,0 +1,6 @@
|
||||||
|
MODULE PackegeResolver;
|
||||||
|
IMPORT
|
||||||
|
JsonParser
|
||||||
|
BEGIN
|
||||||
|
|
||||||
|
END PackegeResolver.
|
||||||
6
RemoteClient.Mod
Normal file
6
RemoteClient.Mod
Normal file
|
|
@ -0,0 +1,6 @@
|
||||||
|
MODULE RemoteClient;
|
||||||
|
IMPORT
|
||||||
|
httpClient
|
||||||
|
BEGIN
|
||||||
|
|
||||||
|
END RemoteClient.
|
||||||
4
makefile
4
makefile
|
|
@ -9,13 +9,13 @@ all:
|
||||||
../diaspora2hugo/src/lists/Sys.Mod \
|
../diaspora2hugo/src/lists/Sys.Mod \
|
||||||
../diaspora2hugo/src/lists/List.Mod \
|
../diaspora2hugo/src/lists/List.Mod \
|
||||||
../CharacterStack.Mod \
|
../CharacterStack.Mod \
|
||||||
../HashMapString.Mod -m
|
../JsonParser.Mod -m
|
||||||
|
|
||||||
clean:
|
clean:
|
||||||
cd builds && rm * &
|
cd builds && rm * &
|
||||||
|
|
||||||
run:
|
run:
|
||||||
./builds/HashMap
|
./builds/JsonParser
|
||||||
|
|
||||||
test: clean all run
|
test: clean all run
|
||||||
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue