From f4092abdf94af6a99aff944d6264bc1284e8bdd4 Mon Sep 17 00:00:00 2001
From: Reinhard Tartler <siretart@tauware.de>
Date: Mon, 10 Oct 2011 17:43:39 +0200
Subject: Imported nx-X11-3.1.0-1.tar.gz

Summary: Imported nx-X11-3.1.0-1.tar.gz
Keywords:

Imported nx-X11-3.1.0-1.tar.gz
into Git repository
---
 nx-X11/config/util/mkdirhier.cmd | 54 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 54 insertions(+)
 create mode 100644 nx-X11/config/util/mkdirhier.cmd

(limited to 'nx-X11/config/util/mkdirhier.cmd')

diff --git a/nx-X11/config/util/mkdirhier.cmd b/nx-X11/config/util/mkdirhier.cmd
new file mode 100644
index 000000000..9ee8fa791
--- /dev/null
+++ b/nx-X11/config/util/mkdirhier.cmd
@@ -0,0 +1,54 @@
+/* OS/2 REXX SCRIPT */
+/* $XFree86: xc/config/util/mkdirhier.cmd,v 3.1 1996/02/09 08:18:04 dawes Exp $ */
+
+CALL RxFuncAdd 'SysMkDir', 'RexxUtil', 'SysMkDir'
+
+IF ARG() = 0 THEN DO
+	SAY "mkdirhier: usage: mkdirhier directory ..."
+	EXIT 1
+END
+
+curdir=DIRECTORY()
+drive=DELSTR(curdir,3)
+
+status=""
+PARSE ARG all
+
+DO i=1 TO WORDS(all)
+	direc = TRANSLATE(WORD(all,i),'/','\')
+	SELECT
+	WHEN direc = "" THEN DO
+		SAY "mkdirhier: empty directory name"
+		status=1
+		ITERATE
+		END
+	WHEN POS('0a'x,direc) > 0 THEN DO
+		SAY "mkdirhier: directory name contains a newline: '" direc "'"
+		status=1
+		ITERATE
+		END
+	OTHERWISE NOP
+	END
+	IF POS(":",direc) = 0 THEN direc = INSERT(drive,direc)
+
+	dirbuf.0 = direc
+	DO k=1 TO 1000
+		direc1 = STRIP(direc,"t","/")
+		dpath1 = FILESPEC("path",direc1)
+		dirbuf.k=FILESPEC("drive",direc1)||STRIP(dpath1,"t","/")
+		IF POS("/",dirbuf.k) = 0 THEN LEAVE k
+		direc=dirbuf.k
+	END
+	DO m=k-1 TO 0 BY -1
+		dospath = TRANSLATE(dirbuf.m,'\','/')
+		targetdir=DIRECTORY(dospath)
+		IF targetdir = dospath THEN
+			NOP
+		ELSE
+			CALL SysMkDir(dospath)
+		CALL DIRECTORY curdir
+	END
+END
+
+
+EXIT status
-- 
cgit v1.2.3