head	1.2;
access;
symbols
	netbsd-5-2-3-RELEASE:1.2
	netbsd-5-1-5-RELEASE:1.2
	riastradh-xf86-video-intel-2-7-1-pre-2-21-15:1.2
	riastradh-drm2-base:1.2
	netbsd-5-2-2-RELEASE:1.2
	netbsd-5-1-4-RELEASE:1.2
	netbsd-5-2-1-RELEASE:1.2
	netbsd-5-1-3-RELEASE:1.2
	netbsd-5-2:1.2.0.8
	netbsd-5-2-RELEASE:1.2
	netbsd-5-2-RC1:1.2
	netbsd-5-1-2-RELEASE:1.2
	netbsd-5-1-1-RELEASE:1.2
	netbsd-5-1:1.2.0.6
	netbsd-5-1-RELEASE:1.2
	netbsd-5-1-RC4:1.2
	netbsd-5-1-RC3:1.2
	netbsd-5-1-RC2:1.2
	netbsd-5-1-RC1:1.2
	netbsd-5-0-2-RELEASE:1.2
	netbsd-5-0-1-RELEASE:1.2
	netbsd-5-0:1.2.0.4
	netbsd-5-0-RELEASE:1.2
	netbsd-5-0-RC4:1.2
	netbsd-5-0-RC3:1.2
	netbsd-5-0-RC2:1.2
	netbsd-5-0-RC1:1.2
	netbsd-5:1.2.0.2
	netbsd-5-base:1.2
	netbsd-2-0-3-RELEASE:1.1.1.1
	netbsd-2-1:1.1.1.1.0.8
	netbsd-2-1-RELEASE:1.1.1.1
	netbsd-2-1-RC6:1.1.1.1
	netbsd-2-1-RC5:1.1.1.1
	netbsd-2-1-RC4:1.1.1.1
	netbsd-2-1-RC3:1.1.1.1
	netbsd-2-1-RC2:1.1.1.1
	netbsd-2-1-RC1:1.1.1.1
	netbsd-2-0-2-RELEASE:1.1.1.1
	netbsd-2-0-1-RELEASE:1.1.1.1
	netbsd-2:1.1.1.1.0.6
	netbsd-2-base:1.1.1.1
	netbsd-2-0-RELEASE:1.1.1.1
	netbsd-2-0-RC5:1.1.1.1
	netbsd-2-0-RC4:1.1.1.1
	netbsd-2-0-RC3:1.1.1.1
	netbsd-2-0-RC2:1.1.1.1
	netbsd-2-0-RC1:1.1.1.1
	netbsd-2-0:1.1.1.1.0.4
	netbsd-2-0-base:1.1.1.1
	netbsd-1-6-PATCH002-RELEASE:1.1.1.1
	netbsd-1-6-PATCH002:1.1.1.1
	netbsd-1-6-PATCH002-RC4:1.1.1.1
	netbsd-1-6-PATCH002-RC3:1.1.1.1
	netbsd-1-6-PATCH002-RC2:1.1.1.1
	netbsd-1-6-PATCH002-RC1:1.1.1.1
	netbsd-1-6:1.1.1.1.0.2
	netbsd-1-6-base:1.1.1.1
	netbsd-1-6-PATCH001:1.1.1.1
	netbsd-1-6-RELEASE:1.1.1.1
	netbsd-1-5-PATCH003:1.1.1.1
	netbsd-1-5-PATCH002:1.1.1.1
	netbsd-1-5-PATCH001:1.1.1.1
	xf-3_3-branch-2001-03-05:1.1.1.1
	netbsd-1-5-RELEASE:1.1.1.1
	netbsd-1-4-PATCH003:1.1.1.1
	netbsd-1-4-PATCH002:1.1.1.1
	v3-3-6:1.1.1.1
	comdex-fall-1999:1.1.1.1
	v3-3-5:1.1.1.1
	v3-3-4:1.1.1.1
	netbsd-1-4-PATCH001:1.1.1.1
	netbsd-1-4-RELEASE:1.1.1.1
	v3-3-3-1:1.1.1.1
	netbsd-1-3-PATCH003:1.1.1.1
	v3-3-3:1.1.1.1
	pre-xf86-3-3-3-import:1.1.1.1
	netbsd-1-3-PATCH002:1.1.1.1
	v3-3-2:1.1.1.1
	netbsd-1-3-RELEASE:1.1.1.1
	v3-3-1:1.1.1.1
	v3-3:1.1.1.1
	v3-2:1.1.1.1
	XF86:1.1.1;
locks; strict;
comment	@:: @;


1.2
date	2005.01.07.18.51.38;	author tron;	state dead;
branches;
next	1.1;

1.1
date	97.03.15.06.08.29;	author scottr;	state Exp;
branches
	1.1.1.1;
next	;

1.1.1.1
date	97.03.15.06.08.29;	author scottr;	state Exp;
branches;
next	;


desc
@@


1.2
log
@EOL of XFree86 3.3.6, approved by core@@NetBSD.org
@
text
@/* OS/2 REXX SCRIPT */
/* $XFree86: xc/config/util/mkdirhier.cmd,v 3.2 1996/02/19 12:16:51 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
@


1.1
log
@Initial revision
@
text
@@


1.1.1.1
log
@XFree86 3.2 sources
@
text
@@