|
|
1.1 root 1: /*
2: * Copyright (c) 1980 Regents of the University of California.
3: * All rights reserved. The Berkeley software License Agreement
4: * specifies the terms and conditions for redistribution.
5: *
6: * @(#)iargc_.c 5.1 6/7/85
7: */
8:
9: /*
10: * return the number of args on the command line following the command name
11: *
12: * calling sequence:
13: * nargs = iargc()
14: * where:
15: * nargs will be set to the number of args
16: */
17:
18: extern int xargc;
19:
20: long iargc_()
21: {
22: return ((long)(xargc - 1));
23: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.