mirror of
https://github.com/vishapoberon/vipak.git
synced 2026-04-05 20:42:26 +00:00
freebsd makefile and vpkFiles.
This commit is contained in:
Norayr Chilingarian
parent
8762f456a6
commit
dd610c89eb
4 changed files with 261 additions and 5 deletions
191
src/unix/vpkFreeBSDFiles.Mod
Normal file
191
src/unix/vpkFreeBSDFiles.Mod
Normal file
|
|
@ -0,0 +1,191 @@
|
|||
MODULE vpkFiles;
|
||||
IMPORT SYSTEM;
|
||||
|
||||
CONST
|
||||
dir* = 0; char* = 1; block* = 2; file* = 3; fifo* = 4;
|
||||
symlink* = 5; socket* = 6;
|
||||
|
||||
TYPE
|
||||
fileInfo* = RECORD;
|
||||
name* : ARRAY 256 OF CHAR;
|
||||
attr- : SET
|
||||
END;
|
||||
|
||||
(* https://github.com/vishaps/voc/blob/4bebc891a4d0d1184d74134908bdc1a91e3ad5be/src/lib/system/freebsd/clang/x86_64/Unix.Mod
|
||||
from output of cpp /usr/include/sys/stat.h
|
||||
struct stat {
|
||||
__dev_t st_dev;
|
||||
ino_t st_ino;
|
||||
mode_t st_mode;
|
||||
nlink_t st_nlink;
|
||||
uid_t st_uid;
|
||||
gid_t st_gid;
|
||||
__dev_t st_rdev;
|
||||
struct timespec st_atim;
|
||||
struct timespec st_mtim;
|
||||
struct timespec st_ctim;
|
||||
off_t st_size;
|
||||
blkcnt_t st_blocks;
|
||||
blksize_t st_blksize;
|
||||
fflags_t st_flags;
|
||||
__uint32_t st_gen;
|
||||
__int32_t st_lspare;
|
||||
struct timespec st_birthtim;
|
||||
# 148 "/usr/include/sys/stat.h"
|
||||
unsigned int :(8 / 2) * (16 - (int)sizeof(struct timespec));
|
||||
unsigned int :(8 / 2) * (16 - (int)sizeof(struct timespec));
|
||||
};
|
||||
sizes on freebsd 64 bit
|
||||
short int 2
|
||||
int 4
|
||||
long 8
|
||||
long int 8
|
||||
size_t 8
|
||||
dev_t 4
|
||||
ino_t 4
|
||||
mode_t 2
|
||||
nlink_t 2
|
||||
uid_t 4
|
||||
gid_t 4
|
||||
off_t 8
|
||||
blksize_t 4
|
||||
blkcnt_t 8
|
||||
time_t 8
|
||||
fflags_t 4
|
||||
__uint32_t 4
|
||||
__int32_t 4
|
||||
*)
|
||||
Status* = RECORD (* struct stat *)
|
||||
dev* : INTEGER; (* dev_t 4 *)
|
||||
ino* : INTEGER; (* ino_t 4 *)
|
||||
mode*: SHORTINT; mode1*: SHORTINT; (* mode_t 2 *)
|
||||
nlink* : SHORTINT; nlink1*: SHORTINT; (* nlink_t 2 *)
|
||||
uid*, gid*: INTEGER; (* uid_t, gid_t 4 *)
|
||||
rdev*: INTEGER; (* dev_t 4 *)
|
||||
atime* : LONGINT; atimences* : LONGINT; (* struct timespec 16 *)
|
||||
mtime* : LONGINT; mtimences* : LONGINT; (* struct timespec 16 *)
|
||||
ctime* : LONGINT; ctimences* : LONGINT; (* struct timespec 16 *)
|
||||
size*: LONGINT; (* off_t 8 *)
|
||||
blocks* : LONGINT;
|
||||
blksize* : INTEGER;
|
||||
flags* : INTEGER;
|
||||
gen* : INTEGER;
|
||||
lspare* : INTEGER;
|
||||
birthtime* : LONGINT; birthtimences* : LONGINT; (* struct timespec 16 *)
|
||||
END ;
|
||||
(*
|
||||
Status = RECORD (* struct stat *)
|
||||
dev* : HUGEINT; (* dev_t 8 *)
|
||||
ino* : HUGEINT; (* ino 8 *)
|
||||
nlink* : HUGEINT;
|
||||
mode* : LONGINT;
|
||||
uid*, gid*: LONGINT;
|
||||
pad0* : LONGINT;
|
||||
rdev* : HUGEINT;
|
||||
size* : HUGEINT;
|
||||
blksize* : HUGEINT;
|
||||
blocks* : HUGEINT;
|
||||
atime* : HUGEINT;
|
||||
atimences* : HUGEINT;
|
||||
mtime* : HUGEINT;
|
||||
mtimensec* : HUGEINT;
|
||||
ctime* : HUGEINT;
|
||||
ctimensec* : HUGEINT;
|
||||
unused0*, unused1*, unused2*: HUGEINT;
|
||||
END;
|
||||
*)
|
||||
PROCEDURE -Aincludesysstat '#include <sys/stat.h>';
|
||||
PROCEDURE -Aincludesystypes '#include <sys/types.h>';
|
||||
|
||||
PROCEDURE -mkdir(VAR path: ARRAY OF CHAR): INTEGER
|
||||
"(int)mkdir(path, 0755)";
|
||||
|
||||
PROCEDURE mkDir*(VAR path: ARRAY OF CHAR): BOOLEAN;
|
||||
VAR res: INTEGER;
|
||||
BEGIN
|
||||
res := mkdir(path);
|
||||
IF res = 0 THEN RETURN TRUE ELSE RETURN FALSE END
|
||||
END mkDir;
|
||||
|
||||
PROCEDURE -stat(VAR path : ARRAY OF CHAR; st: Status): INTEGER
|
||||
"stat((const char*)path, (struct stat*)&st)";
|
||||
|
||||
PROCEDURE -isDir(mode: LONGINT): INTEGER
|
||||
"S_ISDIR(mode)";
|
||||
|
||||
PROCEDURE -isChar(mode: LONGINT): INTEGER
|
||||
"S_ISCHR(mode)";
|
||||
|
||||
PROCEDURE -isBlock(mode: LONGINT): INTEGER
|
||||
"S_ISBLK(mode)";
|
||||
|
||||
PROCEDURE -isReg(mode: LONGINT): INTEGER
|
||||
"S_ISREG(mode)";
|
||||
|
||||
PROCEDURE -isFIFO(mode: LONGINT): INTEGER
|
||||
"S_ISFIFO(mode)";
|
||||
|
||||
PROCEDURE -isLnk(mode: LONGINT): INTEGER
|
||||
"S_ISLNK(mode)";
|
||||
|
||||
PROCEDURE -isSock(mode: LONGINT): INTEGER
|
||||
"S_ISSOCK(mode)";
|
||||
|
||||
PROCEDURE Exists*(VAR fl : fileInfo): BOOLEAN;
|
||||
VAR
|
||||
i : INTEGER;
|
||||
st: Status;
|
||||
BEGIN
|
||||
fl.attr := {};
|
||||
i := stat(fl.name, st);
|
||||
IF i < 0 THEN RETURN FALSE END;
|
||||
IF i = 0 THEN (* file exists*)
|
||||
i := isDir(st.mode);
|
||||
IF i # 0 THEN fl.attr := fl.attr + {dir} END;
|
||||
i := isChar(st.mode);
|
||||
IF i # 0 THEN fl.attr := fl.attr + {char} END;
|
||||
i := isBlock(st.mode);
|
||||
IF i # 0 THEN fl.attr := fl.attr + {block} END;
|
||||
i := isReg(st.mode);
|
||||
IF i # 0 THEN fl.attr := fl.attr + {file} END;
|
||||
i := isFIFO(st.mode);
|
||||
IF i # 0 THEN fl.attr := fl.attr + {fifo} END;
|
||||
i := isLnk(st.mode);
|
||||
IF i # 0 THEN fl.attr := fl.attr + {symlink} END;
|
||||
i := isSock(st.mode);
|
||||
IF i # 0 THEN fl.attr := fl.attr + {socket} END;
|
||||
RETURN TRUE
|
||||
END;
|
||||
END Exists;
|
||||
|
||||
PROCEDURE ExistsByName*(VAR fileName : ARRAY OF CHAR): BOOLEAN;
|
||||
VAR
|
||||
i : INTEGER;
|
||||
st: Status;
|
||||
fl: fileInfo;
|
||||
BEGIN
|
||||
fl.attr := {};
|
||||
COPY(fileName, fl.name);
|
||||
i := stat(fl.name, st);
|
||||
IF i < 0 THEN RETURN FALSE END;
|
||||
IF i = 0 THEN (* file exists*)
|
||||
i := isDir(st.mode);
|
||||
IF i # 0 THEN fl.attr := fl.attr + {dir} END;
|
||||
i := isChar(st.mode);
|
||||
IF i # 0 THEN fl.attr := fl.attr + {char} END;
|
||||
i := isBlock(st.mode);
|
||||
IF i # 0 THEN fl.attr := fl.attr + {block} END;
|
||||
i := isReg(st.mode);
|
||||
IF i # 0 THEN fl.attr := fl.attr + {file} END;
|
||||
i := isFIFO(st.mode);
|
||||
IF i # 0 THEN fl.attr := fl.attr + {fifo} END;
|
||||
i := isLnk(st.mode);
|
||||
IF i # 0 THEN fl.attr := fl.attr + {symlink} END;
|
||||
i := isSock(st.mode);
|
||||
IF i # 0 THEN fl.attr := fl.attr + {socket} END;
|
||||
RETURN TRUE
|
||||
END;
|
||||
END ExistsByName;
|
||||
|
||||
|
||||
END vpkFiles.
|
||||
Loading…
Add table
Add a link
Reference in a new issue