vishapoberon/vipak
1
0
Fork 0
mirror of https://github.com/vishapoberon/vipak.git synced 2026-04-06 04:52:26 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

moved vipack specific sources to src

Browse source
This commit is contained in:
Norayr Chilingarian 2020-05-07 19:59:12 +04:00
parent 8a476ab610
commit c02b5d6c83
23 changed files with 24 additions and 86 deletions
Download patch file Download diff file Expand all files Collapse all files

30
src/vpkTime.Mod Normal file
View file

@ -0,0 +1,30 @@
MODULE vpkTime;
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 vpkTime.