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 06/07/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 } 24