1 /* Copyright (c) 1979 Regents of the University of California */ 2 3 static char sccsid[] = "@(#)ARGV.c 1.4 04/12/82"; 4 5 #include "h00vars.h" 6 7 ARGV(subscript, var, siz) 8 9 long subscript; /* subscript into argv */ 10 register char *var; /* pointer to pascal char array */ 11 long siz; /* sizeof(var) */ 12 { 13 register char *cp; 14 register int size = siz; 15 16 if ((unsigned)subscript >= _argc) { 17 ERROR("Argument to argv of %D is out of range\n", subscript); 18 return; 19 } 20 cp = _argv[subscript]; 21 do { 22 *var++ = *cp++; 23 } while (--size && *cp); 24 while (size--) 25 *var++ = ' '; 26 } 27