diff options
| author | Mihai Moldovan <ionic@ionic.de> | 2017-12-15 12:55:17 +0100 |
|---|---|---|
| committer | Mihai Moldovan <ionic@ionic.de> | 2017-12-15 12:55:17 +0100 |
| commit | 1dad092caf01d733990648e6df64cbf964df5143 (patch) | |
| tree | 39de0e643e76754a3e23ca9dd0350b8ba4f76250 /nx-X11/config/util/mkdirhier.cmd | |
| parent | 6d70b9e3c47f27a166f4aacb522c5c1e49092dd9 (diff) | |
| parent | 2b9025f797ee322e21077e100c2ee27c2e7fa0e0 (diff) | |
| download | nx-libs-1dad092caf01d733990648e6df64cbf964df5143.tar.gz nx-libs-1dad092caf01d733990648e6df64cbf964df5143.tar.bz2 nx-libs-1dad092caf01d733990648e6df64cbf964df5143.zip | |
Merge branch '3.6.x'
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 |