DirExists function rename

mdl/m_fileio.pas

@@ -27,11 +27,11 @@ Function ioBlockWrite (Var F: File; Var Rec; dSize: LongInt; Var Res: LongInt) :
 
 Function  FileExist       (Str: String) : Boolean;
 Function  FileErase       (Str: String) : Boolean;
-Function  FileDirExists   (Str: String) : Boolean;
 Function  JustFileName    (Str: String) : String;
 Function  JustFile        (Str: String) : String;
 Function  JustFileExt     (Str: String) : String;
 Function  JustPath        (Str: String) : String;
+Function  DirExists       (Str: String) : Boolean;
 Function  DirSlash        (Str: String) : String;
 Function  DirChange       (Dir: String) : Boolean;
 Procedure DirClean        (Path: String; Exempt: String);
@@ -391,7 +391,7 @@ Begin
   Result := (DosError = 0) and (Attr And Directory = 0);
 End;
 
-Function FileDirExists (Str: String) : Boolean;
+Function DirExists (Str: String) : Boolean;
 Var
   F    : File;
   Attr : Word;
@@ -686,4 +686,4 @@ Begin
   FreeMem (TempBuf, RecordSize);
 End;
 
-End.
+End.

mystic/bbs_common.pas

@@ -229,7 +229,7 @@ Function CheckPath (Str: String) : String;
 Begin
   While Str[Length(Str)] = PathChar Do Dec(Str[0]);
 
-  If Not FileDirExists(Str) Then Begin
+  If Not DirExists(Str) Then Begin
     If Session.io.GetYN ('|CR|12Directory doesn''t exist.  Create? |11', True) Then Begin
 
       {$I-} MkDir (Str); {$I+}

mystic/mpl_execute.pas

@@ -1415,7 +1415,7 @@ Begin
           End;
     43  : FileErase(Param[1].S);
     44  : Begin
-            TempBool := FileDirExists(Param[1].S);
+            TempBool := DirExists(Param[1].S);
             Store (TempBool, 1);
           End;
     45  : Begin

mystic/mystic.pas

@@ -138,7 +138,7 @@ End;
 
 Procedure CheckDIR (Dir: String);
 Begin
-  If Not FileDirExists(Dir) Then Begin
+  If Not DirExists(Dir) Then Begin
     Screen.WriteLine ('ERROR: ' + Dir + ' does not exist.');
 
     DisposeClasses;