X-Git-Url: https://git.sesse.net/?p=rdpsrv;a=blobdiff_plain;f=Xserver%2Fconfig%2Futil%2Fadded.cmd;fp=Xserver%2Fconfig%2Futil%2Fadded.cmd;h=aa63f16883256380c5da51d293cfac254bce615a;hp=0000000000000000000000000000000000000000;hb=b6e6afccf37f4ad0515ef2a698f714fdf1bf23b3;hpb=e3340a110a3b01756b8e67531395a33b40a17d37

diff --git a/Xserver/config/util/added.cmd b/Xserver/config/util/added.cmd
new file mode 100644
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