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