|
|
1.1 root 1: /* Copyright (c) 1979 Regents of the University of California */
2:
3: static char sccsid[] = "@(#)ARGV.c 1.1 10/29/80";
4:
5: #include "h00vars.h"
6: #include "h01errs.h"
7:
8: ARGV(subscript, var, size)
9:
10: int subscript; /* subscript into argv */
11: register char *var; /* pointer to pascal char array */
12: register int size; /* sizeof(var) */
13: {
14: register char *cp;
15:
16: if (subscript >= _argc) {
17: ERROR(EARGV, subscript);
18: return;
19: }
20: cp = _argv[subscript];
21: do {
22: *var++ = *cp++;
23: } while (--size && *cp);
24: while (size--)
25: *var++ = ' ';
26: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.