1 /*-
2 * Copyright (c) 1980 The Regents of the University of California.
3 * All rights reserved.
4 *
5 * %sccs.include.proprietary.c%
6 */
7
8 #ifndef lint
9 static char sccsid[] = "@(#)iargc_.c 5.2 (Berkeley) 04/12/91";
10 #endif /* not lint */
11
12 /*
13 * return the number of args on the command line following the command name
14 *
15 * calling sequence:
16 * nargs = iargc()
17 * where:
18 * nargs will be set to the number of args
19 */
20
21 extern int xargc;
22
iargc_()23 long iargc_()
24 {
25 return ((long)(xargc - 1));
26 }
27