mirror of
https://github.com/vishapoberon/vipak.git
synced 2026-04-06 13:02:26 +00:00
moved vipack specific sources to src
This commit is contained in:
parent
8a476ab610
commit
c02b5d6c83
23 changed files with 24 additions and 86 deletions
|
|
@ -1 +0,0 @@
|
||||||
Subproject commit abe322f45bff05b42da71271186a623d5e511428
|
|
||||||
48
makefile
48
makefile
|
|
@ -18,23 +18,23 @@ copy-version-file-to-build-dir:
|
||||||
all: http
|
all: http
|
||||||
cd $(BUILDDIR) && \
|
cd $(BUILDDIR) && \
|
||||||
$(VOC) -s \
|
$(VOC) -s \
|
||||||
../vpkGit.Mod \
|
../src/vpkGit.Mod \
|
||||||
../vpkFsHelper.Mod \
|
../src/vpkFsHelper.Mod \
|
||||||
../vpkConf.Mod \
|
../src/vpkConf.Mod \
|
||||||
../vpkUserDetails.Mod \
|
../src/vpkUserDetails.Mod \
|
||||||
../vpkSettings.Mod \
|
../src/vpkSettings.Mod \
|
||||||
../vpkTime.Mod \
|
../src/vpkTime.Mod \
|
||||||
../vpkLogger.Mod \
|
../src/vpkLogger.Mod \
|
||||||
../lists/src/Sys.Mod \
|
../lists/src/Sys.Mod \
|
||||||
../lists/src/List.Mod \
|
../lists/src/List.Mod \
|
||||||
../lists/src/strutils.Mod \
|
../lists/src/strutils.Mod \
|
||||||
../vpkCharacterStack.Mod \
|
../src/vpkCharacterStack.Mod \
|
||||||
../vpkJsonParser.Mod \
|
../src/vpkJsonParser.Mod \
|
||||||
../vpkFileManager.Mod \
|
../src/vpkFileManager.Mod \
|
||||||
../vpkPackageResolver.Mod \
|
../src/vpkPackageResolver.Mod \
|
||||||
../vpkDependencyResolver.Mod \
|
../src/vpkDependencyResolver.Mod \
|
||||||
../vpkPackageFileParser.Mod \
|
../src/vpkPackageFileParser.Mod \
|
||||||
../vipack.Mod -m
|
../src/vipack.Mod -m
|
||||||
|
|
||||||
|
|
||||||
run:
|
run:
|
||||||
|
|
@ -43,24 +43,24 @@ run:
|
||||||
|
|
||||||
http: clean
|
http: clean
|
||||||
cd $(BUILDDIR) && \
|
cd $(BUILDDIR) && \
|
||||||
$(VOC) -s ../vpkTime.Mod \
|
$(VOC) -s ../src/vpkTime.Mod \
|
||||||
../vpkLogger.Mod \
|
../src/vpkLogger.Mod \
|
||||||
../Internet/src/types.Mod \
|
../Internet/src/types.Mod \
|
||||||
../Internet/src/sockets.Mod \
|
../Internet/src/sockets.Mod \
|
||||||
../Internet/src/netdb.Mod \
|
../Internet/src/netdb.Mod \
|
||||||
../Internet/src/Internet.Mod \
|
../Internet/src/Internet.Mod \
|
||||||
../vpkHttp.Mod
|
../src/vpkHttp.Mod
|
||||||
|
|
||||||
json:
|
json:
|
||||||
cd $(BUILDDIR) && \
|
cd $(BUILDDIR) && \
|
||||||
$(VOC) -s \
|
$(VOC) -s \
|
||||||
../vpkTime.Mod \
|
../src/vpkTime.Mod \
|
||||||
../vpkLogger.Mod \
|
../src/vpkLogger.Mod \
|
||||||
../diaspora2hugo/src/lists/Sys.Mod \
|
../lists/src/Sys.Mod \
|
||||||
../diaspora2hugo/src/lists/List.Mod \
|
../lists/src/List.Mod \
|
||||||
../diaspora2hugo/src/lists/strutils.Mod \
|
../lists/src/strutils.Mod \
|
||||||
../vpkCharacterStack.Mod \
|
../src/vpkCharacterStack.Mod \
|
||||||
../vpkJsonParser.Mod
|
../src/vpkJsonParser.Mod
|
||||||
|
|
||||||
clean:
|
clean:
|
||||||
if [ -d "$(BUILDDIR)" ]; then rm -rf $(BUILDDIR); fi
|
if [ -d "$(BUILDDIR)" ]; then rm -rf $(BUILDDIR); fi
|
||||||
|
|
|
||||||
|
|
@ -156,7 +156,6 @@ BEGIN
|
||||||
UNTIL (text[i] = 0X) OR (i = LEN(text));
|
UNTIL (text[i] = 0X) OR (i = LEN(text));
|
||||||
END dumpTextTill0;
|
END dumpTextTill0;
|
||||||
|
|
||||||
|
|
||||||
PROCEDURE textToPstrings*(VAR text: ARRAY OF CHAR): pstrings;
|
PROCEDURE textToPstrings*(VAR text: ARRAY OF CHAR): pstrings;
|
||||||
VAR
|
VAR
|
||||||
i, j, lineNum, start, number: INTEGER;
|
i, j, lineNum, start, number: INTEGER;
|
||||||
15
test.Mod
15
test.Mod
|
|
@ -1,15 +0,0 @@
|
||||||
MODULE test;
|
|
||||||
IMPORT Out;
|
|
||||||
VAR
|
|
||||||
string: POINTER TO ARRAY OF CHAR;
|
|
||||||
BEGIN
|
|
||||||
NEW(string, 42);
|
|
||||||
string[1] := "a";
|
|
||||||
Out.Char(string[1]);
|
|
||||||
Out.Ln();
|
|
||||||
Out.Int(ORD(string[1]), 10);
|
|
||||||
Out.Ln();
|
|
||||||
Out.Int(ORD(string[2]), 10);
|
|
||||||
Out.Ln();
|
|
||||||
COPY("Gago", string);
|
|
||||||
END test.
|
|
||||||
30
time.Mod
30
time.Mod
|
|
@ -1,30 +0,0 @@
|
||||||
MODULE time;
|
|
||||||
IMPORT SYSTEM;
|
|
||||||
|
|
||||||
PROCEDURE -Aincludesystime '#include <sys/time.h>'; (* for gettimeofday *)
|
|
||||||
PROCEDURE -Aincludetime '#include <time.h>'; (* for localtime *)
|
|
||||||
PROCEDURE -Aincludesystypes '#include <sys/types.h>';
|
|
||||||
|
|
||||||
PROCEDURE -gettimeval "struct timeval tv; gettimeofday(&tv,0)";
|
|
||||||
PROCEDURE -tvsec(): LONGINT "tv.tv_sec";
|
|
||||||
PROCEDURE -tvusec(): LONGINT "tv.tv_usec";
|
|
||||||
PROCEDURE -sectotm(s: LONGINT) "struct tm *time = localtime((time_t*)&s)";
|
|
||||||
PROCEDURE -tmsec(): LONGINT "(LONGINT)time->tm_sec";
|
|
||||||
PROCEDURE -tmmin(): LONGINT "(LONGINT)time->tm_min";
|
|
||||||
PROCEDURE -tmhour(): LONGINT "(LONGINT)time->tm_hour";
|
|
||||||
PROCEDURE -tmmday(): LONGINT "(LONGINT)time->tm_mday";
|
|
||||||
PROCEDURE -tmmon(): LONGINT "(LONGINT)time->tm_mon";
|
|
||||||
PROCEDURE -tmyear(): LONGINT "(LONGINT)time->tm_year";
|
|
||||||
|
|
||||||
PROCEDURE Now*(VAR year, month, day, hour, min, sec: LONGINT);
|
|
||||||
BEGIN
|
|
||||||
gettimeval; sectotm(tvsec());
|
|
||||||
year := tmyear() + 1900;
|
|
||||||
month := tmmon();
|
|
||||||
day := tmmday();
|
|
||||||
hour := tmhour();
|
|
||||||
min := tmmin();
|
|
||||||
sec := tmsec();
|
|
||||||
END Now;
|
|
||||||
|
|
||||||
END time.
|
|
||||||
15
vpkTest.Mod
15
vpkTest.Mod
|
|
@ -1,15 +0,0 @@
|
||||||
MODULE vpkTest;
|
|
||||||
IMPORT Out;
|
|
||||||
VAR
|
|
||||||
string: POINTER TO ARRAY OF CHAR;
|
|
||||||
BEGIN
|
|
||||||
NEW(string, 42);
|
|
||||||
string[1] := "a";
|
|
||||||
Out.Char(string[1]);
|
|
||||||
Out.Ln();
|
|
||||||
Out.Int(ORD(string[1]), 10);
|
|
||||||
Out.Ln();
|
|
||||||
Out.Int(ORD(string[2]), 10);
|
|
||||||
Out.Ln();
|
|
||||||
COPY("Gago", string);
|
|
||||||
END vpkTest.
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue