diff options
Diffstat (limited to 'nx-X11/config/util/mkdirhier.cmd')
| -rw-r--r-- | nx-X11/config/util/mkdirhier.cmd | 54 |
1 files changed, 0 insertions, 54 deletions
diff --git a/nx-X11/config/util/mkdirhier.cmd b/nx-X11/config/util/mkdirhier.cmd deleted file mode 100644 index 9ee8fa791..000000000 --- a/nx-X11/config/util/mkdirhier.cmd +++ /dev/null @@ -1,54 +0,0 @@ -/* 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 |