2.9BSD - /usr/src/lib/libU77/iargc_.c

   1: /*
   2: char id_iargc[] = "@(#)iargc_.c	1.1";
   3:  *
   4:  * return the number of args on the command line following the command name
   5:  *
   6:  * calling sequence:
   7:  *	nargs = iargc()
   8:  * where:
   9:  *	nargs will be set to the number of args
  10:  */
  11: 
  12: #include    "../libI77/fiodefs.h"
  13: 
  14: extern int xargc;
  15: 
  16: ftnint iargc_()
  17: {
  18:     return ((ftnint)(xargc - 1));
  19: }

Defined functions