mirror of
https://github.com/vishapoberon/vipak.git
synced 2026-04-05 20:42: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
|
||||
cd $(BUILDDIR) && \
|
||||
$(VOC) -s \
|
||||
../vpkGit.Mod \
|
||||
../vpkFsHelper.Mod \
|
||||
../vpkConf.Mod \
|
||||
../vpkUserDetails.Mod \
|
||||
../vpkSettings.Mod \
|
||||
../vpkTime.Mod \
|
||||
../vpkLogger.Mod \
|
||||
../src/vpkGit.Mod \
|
||||
../src/vpkFsHelper.Mod \
|
||||
../src/vpkConf.Mod \
|
||||
../src/vpkUserDetails.Mod \
|
||||
../src/vpkSettings.Mod \
|
||||
../src/vpkTime.Mod \
|
||||
../src/vpkLogger.Mod \
|
||||
../lists/src/Sys.Mod \
|
||||
../lists/src/List.Mod \
|
||||
../lists/src/strutils.Mod \
|
||||
../vpkCharacterStack.Mod \
|
||||
../vpkJsonParser.Mod \
|
||||
../vpkFileManager.Mod \
|
||||
../vpkPackageResolver.Mod \
|
||||
../vpkDependencyResolver.Mod \
|
||||
../vpkPackageFileParser.Mod \
|
||||
../vipack.Mod -m
|
||||
../src/vpkCharacterStack.Mod \
|
||||
../src/vpkJsonParser.Mod \
|
||||
../src/vpkFileManager.Mod \
|
||||
../src/vpkPackageResolver.Mod \
|
||||
../src/vpkDependencyResolver.Mod \
|
||||
../src/vpkPackageFileParser.Mod \
|
||||
../src/vipack.Mod -m
|
||||
|
||||
|
||||
run:
|
||||
|
|
@ -43,24 +43,24 @@ run:
|
|||
|
||||
http: clean
|
||||
cd $(BUILDDIR) && \
|
||||
$(VOC) -s ../vpkTime.Mod \
|
||||
../vpkLogger.Mod \
|
||||
$(VOC) -s ../src/vpkTime.Mod \
|
||||
../src/vpkLogger.Mod \
|
||||
../Internet/src/types.Mod \
|
||||
../Internet/src/sockets.Mod \
|
||||
../Internet/src/netdb.Mod \
|
||||
../Internet/src/Internet.Mod \
|
||||
../vpkHttp.Mod
|
||||
../src/vpkHttp.Mod
|
||||
|
||||
json:
|
||||
cd $(BUILDDIR) && \
|
||||
$(VOC) -s \
|
||||
../vpkTime.Mod \
|
||||
../vpkLogger.Mod \
|
||||
../diaspora2hugo/src/lists/Sys.Mod \
|
||||
../diaspora2hugo/src/lists/List.Mod \
|
||||
../diaspora2hugo/src/lists/strutils.Mod \
|
||||
../vpkCharacterStack.Mod \
|
||||
../vpkJsonParser.Mod
|
||||
../src/vpkTime.Mod \
|
||||
../src/vpkLogger.Mod \
|
||||
../lists/src/Sys.Mod \
|
||||
../lists/src/List.Mod \
|
||||
../lists/src/strutils.Mod \
|
||||
../src/vpkCharacterStack.Mod \
|
||||
../src/vpkJsonParser.Mod
|
||||
|
||||
clean:
|
||||
if [ -d "$(BUILDDIR)" ]; then rm -rf $(BUILDDIR); fi
|
||||
|
|
|
|||
|
|
@ -156,7 +156,6 @@ BEGIN
|
|||
UNTIL (text[i] = 0X) OR (i = LEN(text));
|
||||
END dumpTextTill0;
|
||||
|
||||
|
||||
PROCEDURE textToPstrings*(VAR text: ARRAY OF CHAR): pstrings;
|
||||
VAR
|
||||
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