mirror of
https://github.com/vishapoberon/vipak.git
synced 2026-04-06 04:52:26 +00:00
checking conf file and dir
This commit is contained in:
parent
c5b750daba
commit
a36f236bb3
3 changed files with 66 additions and 13 deletions
25
vpkConf.Mod
Normal file
25
vpkConf.Mod
Normal file
|
|
@ -0,0 +1,25 @@
|
|||
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.
|
||||
Loading…
Add table
Add a link
Reference in a new issue