xref: /csrg-svn/usr.bin/f77/libU77/iargc_.c (revision 2524)
1*2524Sdlw /*
2*2524Sdlw char id_iargc[] = "@(#)iargc_.c	1.1";
3*2524Sdlw  *
4*2524Sdlw  * return the number of args on the command line following the command name
5*2524Sdlw  *
6*2524Sdlw  * calling sequence:
7*2524Sdlw  *	nargs = iargc()
8*2524Sdlw  * where:
9*2524Sdlw  *	nargs will be set to the number of args
10*2524Sdlw  */
11*2524Sdlw 
12*2524Sdlw extern int xargc;
13*2524Sdlw 
14*2524Sdlw long iargc_()
15*2524Sdlw {
16*2524Sdlw 	return ((long)(xargc - 1));
17*2524Sdlw }
18