From 71a7576ddeab7f8db0ae1ece0048d826da291832 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Sat, 3 Mar 2012 22:08:30 -0500
Subject: [PATCH] DirExists function rename

---
 mdl/m_fileio.pas       | 6 +++---
 mystic/bbs_common.pas  | 2 +-
 mystic/mpl_execute.pas | 2 +-
 mystic/mystic.pas      | 2 +-
 4 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/mdl/m_fileio.pas b/mdl/m_fileio.pas
index 70e9b68..bba04a7 100644
--- a/mdl/m_fileio.pas
+++ b/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.
\ No newline at end of file
+End.
diff --git a/mystic/bbs_common.pas b/mystic/bbs_common.pas
index b382daf..194a2b6 100644
--- a/mystic/bbs_common.pas
+++ b/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+}
diff --git a/mystic/mpl_execute.pas b/mystic/mpl_execute.pas
index be89975..5b7caf1 100644
--- a/mystic/mpl_execute.pas
+++ b/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
diff --git a/mystic/mystic.pas b/mystic/mystic.pas
index 5bc77e1..43ce150 100644
--- a/mystic/mystic.pas
+++ b/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;