1*2525Sdlw /* 2*2525Sdlw char id_getarg[] = "@(#)getarg_.c 1.1"; 3*2525Sdlw * 4*2525Sdlw * return a specified command line argument 5*2525Sdlw * 6*2525Sdlw * calling sequence: 7*2525Sdlw * character*20 arg 8*2525Sdlw * call getarg(k, arg) 9*2525Sdlw * where: 10*2525Sdlw * arg will receive the kth unix command argument 11*2525Sdlw */ 12*2525Sdlw 13*2525Sdlw getarg_(n, s, ls) 14*2525Sdlw long int *n; 15*2525Sdlw register char *s; 16*2525Sdlw long int ls; 17*2525Sdlw { 18*2525Sdlw extern int xargc; 19*2525Sdlw extern char **xargv; 20*2525Sdlw register char *t; 21*2525Sdlw register int i; 22*2525Sdlw 23*2525Sdlw if(*n>=0 && *n<xargc) 24*2525Sdlw t = xargv[*n]; 25*2525Sdlw else 26*2525Sdlw t = ""; 27*2525Sdlw for(i = 0; i<ls && *t!='\0' ; ++i) 28*2525Sdlw *s++ = *t++; 29*2525Sdlw for( ; i<ls ; ++i) 30*2525Sdlw *s++ = ' '; 31*2525Sdlw } 32