mirror of
https://github.com/vishapoberon/vipak.git
synced 2026-04-05 20:42:26 +00:00
25 lines
359 B
Modula-2
25 lines
359 B
Modula-2
MODULE vpkConf;
|
|
IMPORT Files;
|
|
|
|
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;
|
|
|
|
|
|
BEGIN
|
|
|
|
|
|
END vpkConf.
|