11638Smckusick /* Copyright (c) 1979 Regents of the University of California */ 21638Smckusick 3*2994Smckusic static char sccsid[] = "@(#)ARGV.c 1.2 03/07/81"; 41638Smckusick 51638Smckusick #include "h00vars.h" 61638Smckusick #include "h01errs.h" 71638Smckusick 8*2994Smckusic ARGV(subscript, var, siz) 91638Smckusick 10*2994Smckusic long subscript; /* subscript into argv */ 111638Smckusick register char *var; /* pointer to pascal char array */ 12*2994Smckusic long siz; /* sizeof(var) */ 131638Smckusick { 141638Smckusick register char *cp; 15*2994Smckusic register int size = siz; 161638Smckusick 171638Smckusick if (subscript >= _argc) { 181638Smckusick ERROR(EARGV, subscript); 191638Smckusick return; 201638Smckusick } 211638Smckusick cp = _argv[subscript]; 221638Smckusick do { 231638Smckusick *var++ = *cp++; 241638Smckusick } while (--size && *cp); 251638Smckusick while (size--) 261638Smckusick *var++ = ' '; 271638Smckusick } 28