%%s 3/3/67
%%d D 1.2 30-Jul-83 08:50:11 tools 2 1
%%c Removed trailing periods from quoted strings.
%%s 0/0/0
%%d D 1.1 27-Mar-82 14:59:32 v1.1 1 0
%%c Version 1.1 is the Spring 1982 Distribution of the LBL/Hughes release
%%c of the Software Tools Virtual Operating System software and documentation.
%%T
%%I 1
%%D 2
#-h- mkdir.r          888  asc  25-mar-82 09:37:19  v1.1 (sw-tools v1.1)
#-h- main             815  asc  25-mar-82 09:37:11  v1.1 (sw-tools v1.1)
%%E 2
%%I 2
#-h- mkdir.r          892  asc  30-jul-83 08:49:54  tools (lblh csam sventek)
#-h- main             814  asc  30-jul-83 08:48:52  tools (lblh csam sventek)
%%E 2
### MkDir	Create directories.

DRIVER(mkdir)

character	cmd(MAXLINE), pid(PIDSIZE)
character	file(FILENAMESIZE), path(FILENAMESIZE)
integer		arg, i
integer		getarg, index, length, spawn # function(s)

string		crestr "create/directory "
string		locstr "local"
string		usestr "? Usage:  mkdir dirname ..."

if( getarg( 1, path, FILENAMESIZE) == EOF )
  call error(usestr)

for( arg = 1 ; getarg( arg, path, FILENAMESIZE) != EOF ; arg = arg + 1 )
{
  call mklocl( path, file)

  i = index( file, ']')
  if( i > 0 )
    file(i) = '.' # Replace ``]'' with ``.''
  i = length(file) + 1
  call chcopy( ']', file, i) # Tack on ``]''

  i = 1
  call stcopy( crestr, 1, cmd, i)
  call scopy( file, 1, cmd, i)

  if( spawn( locstr, cmd, pid, WAIT) == ERR )
%%D 2
    call error("? Can't spawn ``create/directory''.")
%%E 2
%%I 2
    call error("? Can't spawn ``create/directory''")
%%E 2
}

DRETURN
end
#-h- mkdir.fmt        560  asc  25-mar-82 09:37:20  v1.1 (sw-tools v1.1)
.so ~bin/manhdr
.hd MkDir (1) 14-Nov-81
create directories
.sy
mkdir dirname ...
.ds
MkDir creates the specified directories.
.ex
.ce
mkdir verbs
.sp
.fi
would create a subdirectory named ``verbs'' in the current directory.
.sp
.ce
mkdir ~usr/src
.sp
would create a subdirectory named ``src'' in directory ``~usr''.
.fl
none
.im
MkDir spawns the DCL "create/directory" command, with all the default
options.
.sa
The UNIX command ``mkdir''.
.di
? Can't spawn ``create/directory''.
.au
Dave Martin (Hughes Aircraft)
.bu
None of the DCL options may be specified.
%%E 1