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

improved makefile, removed unnecessary file.

Browse source
This commit is contained in:
Norayr Chilingarian 2020-05-07 19:10:37 +04:00
parent 2be7d9497e
commit cc2766dc18
3 changed files with 5 additions and 85 deletions
Download patch file Download diff file Expand all files Collapse all files

2
diaspora2hugo

@ -1 +1 @@
Subproject commit 3fb4cbd410309ff341510171bdd6f154e767c01b Subproject commit abe322f45bff05b42da71271186a623d5e511428

82
logger.Mod
View file

@ -1,82 +0,0 @@
MODULE Logger;
IMPORT time, Out, Strings;
CONST
deca = 10;
PROCEDURE GetDecas(number: LONGINT): LONGINT;
VAR
i: LONGINT;
BEGIN
i := 1;
WHILE number > deca DO
number := number DIV deca;
INC(i);
END;
RETURN i;
END GetDecas;
PROCEDURE LogInt*(number: LONGINT);
BEGIN
Out.Int(number, GetDecas(number));
END LogInt;
PROCEDURE LogIntLn*(number: LONGINT);
BEGIN
LogInt(number);
Out.Ln();
END LogIntLn;
PROCEDURE LogNormalized*(number, normal: LONGINT);
VAR
decimals, i: LONGINT;
BEGIN
i:=0;
decimals := GetDecas(number);
WHILE decimals + i < normal DO
INC(i);
Out.Int(0, 1)
END;
LogInt(number);
END LogNormalized;
PROCEDURE Log*(buff: ARRAY OF CHAR);
VAR
year, month, day, hour, min, sec, i: LONGINT;
BEGIN
time.Now(year, month, day, hour, min, sec);
LogNormalized(year, 4);
Out.String("/");
LogNormalized(month, 2);
Out.String("/");
LogNormalized(day, 2);
Out.String(" ");
LogNormalized(hour, 2);
Out.String("-");
LogNormalized(min, 2);
Out.String("-");
LogNormalized(sec, 2);
Out.String(" :- ");
FOR i := 0 TO Strings.Length(buff) - 1 DO
(* Out.Char(" ");
Out.Int(ORD(buff[i]), 4);
Out.Char("-"); *)
Out.Char(buff[i]);
(* Out.Char(" ");Out.Char(" ");Out.Char(" "); *)
END;
Out.Ln;
END Log;
PROCEDURE Char*(char: CHAR);
VAR
string :ARRAY 1 OF CHAR;
BEGIN
string[0] :=char;
Log(string);
END Char;
END Logger.

6
makefile
View file

@ -1,12 +1,14 @@
VOC = voc VOC = voc
VERSION_FILE = ./VersionFile.json VERSION_FILE = ./VersionFile.json
BUILDDIR = build
test: clean create_builds_dir all copy-version-file-to-build-dir run test: clean create_builds_dir all copy-version-file-to-build-dir run
create_builds_dir: create_builds_dir:
mkdir ./builds mkdir -p $(BUILDDIR)
copy-version-file-to-build-dir: copy-version-file-to-build-dir:
@ -60,7 +62,7 @@ json:
../vpkJsonParser.Mod ../vpkJsonParser.Mod
clean: clean:
rm -r builds & if [ -d "$(BUILDDIR)" ]; then rm -rf $(BUILDDIR); fi
run-http-server: run-http-server: