%%s 0/0/0
%%d D 1.1 25-Mar-82 12:01:21 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
#-h- args.r          2552  asc  25-mar-82 07:17:52  v1.1 (sw-tools v1.1)
#-h- main            1841  asc  25-mar-82 07:17:39  v1.1 (sw-tools v1.1)
 DRIVER(args)

 character name(FILENAMESIZE), arg(MAXLINE), args(ARGBUFSIZE),
	   image(FILENAMESIZE), pid(PIDSIZE)
 integer k, i, n, type, verbos, count
 integer getarg, getlin, length, loccom, spawn

 string sh "sh"
 string local "local"
 string usestr "usage:  args [-v] tool [arguments]."
 string fsuff BOTH_SUFFIX
 string isuff IMAGE_SUFFIX

 call query(usestr)
 verbos = NO
 for (i=1; getarg(i, arg, MAXLINE) != EOF; i=i+1)
    if (arg(1) != '-')
	break
    else if (arg(2) == 'v' | arg(2) == 'V')
	verbos = YES
    else
	call badarg(arg)
 if (getarg(i, name, FILENAMESIZE) == EOF)
    call error(usestr)
 k = 1
 count = 1
 for ( ; getarg(i, arg, MAXLINE) != EOF; i=i+1)
    {
    call packit(count, arg, args, k, ARGBUFSIZE)
    count = count + 1
    }
 for (n=getlin(arg, STDIN); n != EOF; n=getlin(arg, STDIN))
    if (n > 1)
	{
	arg(n) = EOS
	call packit(count, arg, args, k, ARGBUFSIZE)
	count = count + 1
	}
 args(k) = EOS				# terminate string
#
#	build search path
#	:~home:~usr:~bin
#
 call impath(arg)
#
#	now find the process and spawn it
#
 type = loccom(name, arg, fsuff, image)
 if (type == ERR)
    call scopy(local, 1, image, 1)
 else if (type == ASCII)
    {
    call strcpy(image, name)
    if (loccom(sh, arg, isuff, image) != BINARY)
	call error("Cannot locate shell image file.")
    else
	{
	i = 1
	call stcopy(sh, 1, arg, i)
	call chcopy(' ', arg, i)
	call stcopy(name, 1, arg, i)
	for (n=1; args(n) != EOS; n=n+1)
	    if (args(n) == ' ' | args(n) == '@t')
		break
	call scopy(args, n, arg, i)
	for (i=1; arg(i) != EOS; i=i+1)
	    if (i < ARGBUFSIZE)
		args(i) = arg(i)
	    else
		break
	args(i) = EOS
	}
    }
 if (verbos == YES)
    call remark(args)
 if (spawn(image, args, pid, WAIT) == ERR)
    {
    call remark(args)
    call remark("** Error spawning this command from args. **")
    }

 DRETURN
 end
#-h- packit           342  asc  25-mar-82 07:17:41  v1.1 (sw-tools v1.1)
 subroutine packit(n, in, out, outptr, size)

 integer n, outptr, size, len
 integer length
 character in(ARB), out(ARB)

 if (n > 1)
    if (outptr < size)
	call chcopy(' ', out, outptr)
    else
	call sizerr(out, outptr)
 len = length(in)
 if (outptr+len >= size)
    call sizerr(out, outptr)
 call stcopy(in, 1, out, outptr)

 return
 end
#-h- sizerr           150  asc  25-mar-82 07:17:42  v1.1 (sw-tools v1.1)
 subroutine sizerr(buf, n)

 integer n
 character buf(ARB)

 buf(n) = EOS
 call remark(buf)
 call error("** Command line too long. **")

 return
 end
#-h- args.fmt        1424  asc  25-mar-82 07:17:54  v1.1 (sw-tools v1.1)
.so ~bin/manhdr
.hd Args (1) 25-Aug-80
use standard input as arguments for command
.sy
args [-v] tool [arguments]
.ds
Args reads the standard input file and concatenates the words found there
onto the arguments passed to it.  It then spawns the tool "tool" with
those arguments.  The first argument to Args which does not start with a
"-" is taken to be the name of the tool to be invoked.  Args uses the
same search path as the shell, and if "tool" is a script file, a copy
of the shell will be spawned reading that file for its commands.  The
optional -v argument causes Args to display the final command line on
ERROUT before spawning the sub-process.

The most common use of Args is as a form of argument explosion, as in the
following example:

.in +5
Suppose you wish to delete all files which have the string "tst"
somewhere in the filename.  This may be accomplished with the following
shell command line:
.sp
% ls tst | args rm -v
.sp
All of the files matching the pattern "tst" will be fed to Args, which will
concatenate the names onto Rm's command line.  Rm will then be spawned, and
will print the name of each file as it is deleted.

.in -5
If the information found on standard input is so voluminous as to cause
the argument string to be too large, the command line is displayed on ERROUT
and the process is NOT spawned.

.fl
none
.sa
sh - command line interpreter (for search path rules)
.au
Joe Sventek
.bu
%%E 1