12524Sdlw /* 2*23029Skre * Copyright (c) 1980 Regents of the University of California. 3*23029Skre * All rights reserved. The Berkeley software License Agreement 4*23029Skre * specifies the terms and conditions for redistribution. 52524Sdlw * 6*23029Skre * @(#)iargc_.c 5.1 06/07/85 7*23029Skre */ 8*23029Skre 9*23029Skre /* 102524Sdlw * return the number of args on the command line following the command name 112524Sdlw * 122524Sdlw * calling sequence: 132524Sdlw * nargs = iargc() 142524Sdlw * where: 152524Sdlw * nargs will be set to the number of args 162524Sdlw */ 172524Sdlw 182524Sdlw extern int xargc; 192524Sdlw 202524Sdlw long iargc_() 212524Sdlw { 222524Sdlw return ((long)(xargc - 1)); 232524Sdlw } 24