11638Smckusick /* Copyright (c) 1979 Regents of the University of California */ 21638Smckusick 3*6541Smckusick static char sccsid[] = "@(#)ARGV.c 1.4 04/12/82"; 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 16*6541Smckusick if ((unsigned)subscript >= _argc) { 173867Smckusic 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