static double echannel( EPNODE *ep ) { return(chanvalue(ep->v.chan)); }
static double l_in(char *funame) /* function call for $channel */ { int n; register char *cp; /* get argument as integer */ n = (int)(argument(1) + .5); if (n != 0) /* return channel value */ return(chanvalue(n)); /* determine number of channels */ if (noinput || inpfmt != NULL) return(0); if (nbicols) return(nbicols); cp = inpbuf; /* need to count */ for (n = 0; *cp; ) if (blnkeq && isspace(sepchar)) { while (isspace(*cp)) cp++; n += *cp != '\0'; while (*cp && !isspace(*cp)) cp++; } else { n += *cp != '\n'; while (*cp && *cp++ != sepchar) ; } return(n); }