mirror of
https://github.com/vishapoberon/vipak.git
synced 2026-04-05 20:42:26 +00:00
29 lines
488 B
Modula-2
29 lines
488 B
Modula-2
MODULE vpkConf;
|
|
IMPORT Files, vpkFsHelper;
|
|
|
|
PROCEDURE confExists*(VAR confFile: ARRAY OF CHAR ):BOOLEAN;
|
|
BEGIN
|
|
IF Files.Old(confFile) = NIL THEN RETURN FALSE;
|
|
ELSE RETURN TRUE;
|
|
END;
|
|
|
|
END confExists;
|
|
|
|
PROCEDURE makeConf*(VAR confFilePath: ARRAY OF CHAR;VAR f:Files.File);
|
|
BEGIN
|
|
|
|
f := Files.New(confFilePath);
|
|
Files.Register(f);
|
|
|
|
END makeConf;
|
|
|
|
PROCEDURE makeDir*(VAR confDirPath: ARRAY OF CHAR):BOOLEAN;
|
|
BEGIN
|
|
RETURN vpkFsHelper.mkDir(confDirPath);
|
|
END makeDir;
|
|
|
|
|
|
BEGIN
|
|
|
|
|
|
END vpkConf.
|