Changeset 5718 for trunk/tools

Timestamp:

May 16, 2001, 3:17:03 AM (24 years ago)

Author:

bird

Message:

Added fix for '.' and '..'.

File:

• trunk/tools/bin/Exists.cmd (modified) (2 diffs)

trunk/tools/bin/Exists.cmd

@@ -1 @@
-/* $Id: Exists.cmd,v 1.1 2000-03-09 17:23:23 bird Exp $
+/* $Id: Exists.cmd,v 1.2 2001-05-16 01:17:03 bird Exp $
  *
- * Simple rexx util which checks if an file exists.
+ * Simple rexx util which checks if a file or directory exists.
  *
  * Syntax: exists.cmd <filename>
  * Return code: 0 - file exists
- *              1 - file don't exist.
+ *              1 - file doesn't exist.
  *
- * Copyright (c) 2000 knut st. osmundsen (knut.stange.osmundsen@pmsc.no)
+ * Copyright (c) 2000-2001 knut st. osmundsen (knut.stange.osmundsen@mynd.no)
  *
  * Project Odin Software License can be found in LICENSE.TXT
@@ -14 +14 @@
     parse arg sFile
 
+    if (sFile = '.' | sFile = '..') then
+        exit(0);
+
     if (stream(sFile, 'c', 'query exists') = '') then
+    do  /* directory ? */
+        if (RxFuncQuery('SysFileTree') = 1) then
+            call RxFuncAdd 'SysFileTree', 'RexxUtil', 'SysFileTree';
+        rc = SysFileTree(sFile, sDirs, 'DO');
+        if (rc = 0 & sDirs.0 = 1) then
+            exit(0);
         exit(1);
+    end
     exit(0);