/********************************************************************** * Copyright (c) Digital Equipment Corporation 1984, 1985, 1986. * * All Rights Reserved. * * Reference "/usr/src/COPYRIGHT" for applicable restrictions. * **********************************************************************/ /* * SCCSID: @(#)getarg_.c 3.0 4/22/86 char id_getarg[] = "(2.9BSD) 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 */ #include "../libI77/fiodefs.h" getarg_(n, s, ls) ftnint *n; register char *s; ftnlen 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++ = ' '; }