projects
/
unix-history
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
BSD 4_1c_2 release
[unix-history]
/
usr
/
src
/
usr.lib
/
libF77
/
getarg_.c
/*
char id_getarg[] = "@(#)getarg_.c 1.1";
*
* return a specified command line argument
*
* calling sequence:
* character*20 arg
* call getarg(k, arg)
* where:
* arg will receive the kth unix command argument
*/
getarg_
(
n
,
s
,
ls
)
long int
*
n
;
register
char
*
s
;
long int
ls
;
{
extern
int
xargc
;
extern
char
**
xargv
;
register
char
*
t
;
register
int
i
;
if
(*
n
>=
0
&& *
n
<
xargc
)
t
=
xargv
[*
n
];
else
t
=
""
;
for
(
i
=
0
;
i
<
ls
&& *
t
!=
'\0'
; ++
i
)
*
s
++ = *
t
++;
for
( ;
i
<
ls
; ++
i
)
*
s
++ =
' '
;
}