Import X server from vnc-3.3.7.

[rdpsrv] / Xserver / config / util / added.cmd

diff --git a/Xserver/config/util/added.cmd b/Xserver/config/util/added.cmd
new file mode 100644 (file)
index 0000000..aa63f16
--- /dev/null
+++ b/Xserver/config/util/added.cmd
@@ -0,0 +1,23 @@
+/* OS/2 REXX script to create nonexisting directories
+ * run with 'added dirlist_file'
+ * where dirlist_file is a XFree86 added-* file
+ *
+ * $XFree86: xc/config/util/added.cmd,v 3.0 1994/10/20 06:01:00 dawes Exp $
+ */
+
+file = arg(1)
+linein(file,1,0)
+curdir = directory()
+do while lines(file)=1
+  fs = strip(filespec("path",linein(file)),'t','/')
+  newdir = directory(fs)
+  if newdir='' then do
+    say 'create directory='fs
+    call directory(curdir)
+    call 'xc\config\util\mkdirhier.cmd' fs
+  end 
+  else do
+    say 'found directory='newdir
+    call directory(curdir)
+  end
+end