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

dependency tree gets populated.

Browse source
This commit is contained in:
Norayr Chilingarian 2020-06-09 17:57:59 +04:00
parent 289c154f46
commit d8a2a9ddac
19 changed files with 229 additions and 707 deletions
Download patch file Download diff file Expand all files Collapse all files

43
tst/testFiles.Mod Normal file
View file

@ -0,0 +1,43 @@
MODULE testFiles;
IMPORT Out, vpkFiles;
VAR
f : vpkFiles.fileInfo;
PROCEDURE test(f: vpkFiles.fileInfo);
VAR
b : BOOLEAN;
BEGIN
Out.String(f.name); Out.Ln;
IF vpkFiles.Exists(f) THEN
Out.String("exists"); Out.Ln;
IF vpkFiles.dir IN f.attr THEN Out.String("directory"); Out.Ln; END;
IF vpkFiles.char IN f.attr THEN Out.String("char"); Out.Ln; END;
IF vpkFiles.block IN f.attr THEN Out.String("block"); Out.Ln; END;
IF vpkFiles.file IN f.attr THEN Out.String("file"); Out.Ln; END;
IF vpkFiles.fifo IN f.attr THEN Out.String("fifo"); Out.Ln; END;
IF vpkFiles.symlink IN f.attr THEN Out.String("symlink"); Out.Ln; END;
IF vpkFiles.socket IN f.attr THEN Out.String("socket"); Out.Ln; END;
ELSE
Out.String("does not exist"); Out.Ln;
END;
Out.Ln;
END test;
BEGIN
f.name := "/aosenth";
test(f);
f.name := "/dev/nvme0n1";
test(f);
f.name := "/home";
test(f);
f.name := "/etc/fstab";
test(f);
f.name := "/usr/src/linux";
test(f);
f.name := "/dev/video0";
test(f);
f.name := "/tmp/fifo";
test(f);
END testFiles.