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