mirror of
https://github.com/vishapoberon/vipak.git
synced 2026-04-05 20:42:26 +00:00
25 lines
827 B
Modula-2
25 lines
827 B
Modula-2
MODULE testFsHelper;
|
|
IMPORT Out, vpkFsHelper;
|
|
|
|
VAR
|
|
dir : ARRAY 64 OF CHAR;
|
|
f : vpkFsHelper.fileInfo;
|
|
b : BOOLEAN;
|
|
BEGIN
|
|
dir := "/home";
|
|
f.name := "/home";
|
|
|
|
IF vpkFsHelper.Exists(f) THEN
|
|
Out.String("exists"); Out.Ln;
|
|
IF vpkFsHelper.dir IN f.attr THEN Out.String("directory"); Out.Ln; END;
|
|
IF vpkFsHelper.char IN f.attr THEN Out.String("char"); Out.Ln; END;
|
|
IF vpkFsHelper.block IN f.attr THEN Out.String("block"); Out.Ln; END;
|
|
IF vpkFsHelper.file IN f.attr THEN Out.String("file"); Out.Ln; END;
|
|
IF vpkFsHelper.fifo IN f.attr THEN Out.String("fifo"); Out.Ln; END;
|
|
IF vpkFsHelper.symlink IN f.attr THEN Out.String("symlink"); Out.Ln; END;
|
|
IF vpkFsHelper.socket IN f.attr THEN Out.String("socket"); Out.Ln; END;
|
|
ELSE
|
|
Out.String("does not exist"); Out.Ln;
|
|
END;
|
|
|
|
END testFsHelper.
|