11638Smckusick /* Copyright (c) 1979 Regents of the University of California */ 21638Smckusick 3*3867Smckusic static char sccsid[] = "@(#)ARGV.c 1.3 06/10/81"; 41638Smckusick 51638Smckusick #include "h00vars.h" 61638Smckusick 72994Smckusic ARGV(subscript, var, siz) 81638Smckusick 92994Smckusic long subscript; /* subscript into argv */ 101638Smckusick register char *var; /* pointer to pascal char array */ 112994Smckusic long siz; /* sizeof(var) */ 121638Smckusick { 131638Smckusick register char *cp; 142994Smckusic register int size = siz; 151638Smckusick 161638Smckusick if (subscript >= _argc) { 17*3867Smckusic ERROR("Argument to argv of %D is out of range\n", subscript); 181638Smckusick return; 191638Smckusick } 201638Smckusick cp = _argv[subscript]; 211638Smckusick do { 221638Smckusick *var++ = *cp++; 231638Smckusick } while (--size && *cp); 241638Smckusick while (size--) 251638Smckusick *var++ = ' '; 261638Smckusick } 27