コード例 #1
0
ファイル: calexpr.c プロジェクト: NREL/Radiance
static double
echannel(
    EPNODE	*ep
)
{
    return(chanvalue(ep->v.chan));
}
コード例 #2
0
ファイル: rcalc.c プロジェクト: Pizookies/Radiance
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);
}