40 static uint	nargs(NODE *np);
41 static NODE	*dosub(NODE *np, int glob);
42 static NODE	*docasetr(NODE *np, int upper);
56 f_exp(NODE *np)  in f_exp()  argument
60 	if ((na = nargs(np)) > 1)  in f_exp()
62 	return (realnode(exp(exprreal(na==0 ? field0 : getlist(&np)))));  in f_exp()
71 f_int(NODE *np)  in f_int()  argument
75 	if ((na = nargs(np)) > 1)  in f_int()
77 	return (intnode(exprint(na==0 ? field0 : getlist(&np))));  in f_int()
86 f_log(NODE *np)  in f_log()  argument
90 	if ((na = nargs(np)) > 1)  in f_log()
92 	return (realnode(log(exprreal(na==0 ? field0 : getlist(&np)))));  in f_log()
101 f_sqrt(NODE *np)  in f_sqrt()  argument
105 	if ((na = nargs(np)) > 1)  in f_sqrt()
107 	return (realnode(sqrt(exprreal(na==0 ? field0 : getlist(&np)))));  in f_sqrt()
115 f_sin(NODE *np)  in f_sin()  argument
117 	if (nargs(np) != 1)  in f_sin()
119 	return (realnode(sin(exprreal(getlist(&np)))));  in f_sin()
127 f_cos(NODE *np)  in f_cos()  argument
129 	if (nargs(np) != 1)  in f_cos()
131 	return (realnode(cos(exprreal(getlist(&np)))));  in f_cos()
139 f_atan2(NODE *np)  in f_atan2()  argument
143 	if (nargs(np) != 2)  in f_atan2()
145 	y = (double)exprreal(getlist(&np));  in f_atan2()
146 	x = (double)exprreal(getlist(&np));  in f_atan2()
156 f_srand(NODE *np)  in f_srand()  argument
162 	if ((na = nargs(np)) > 1)  in f_srand()
166 		seed = (uint)exprint(getlist(&np));  in f_srand()
178 f_rand(NODE *np)  in f_rand()  argument
184 	if (nargs(np) != 0)  in f_rand()
197 f_sub(NODE *np)  in f_sub()  argument
199 	return (dosub(np, 1));  in f_sub()
208 f_gsub(NODE *np)  in f_gsub()  argument
210 	return (dosub(np, 0));  in f_gsub()
218 dosub(NODE *np, int glob)  in dosub()  argument
228 	if ((na = nargs(np)) != 2 && na != 3)  in dosub()
230 	rp = getregexp(getlist(&np));  in dosub()
231 	sub = exprstring(getlist(&np));  in dosub()
233 		left = getlist(&np);  in dosub()
262 f_match(NODE *np)  in f_match()  argument
269 	if (nargs(np) != 2)  in f_match()
271 	text = exprstring(getlist(&np));  in f_match()
272 	rp = getregexp(getlist(&np));  in f_match()
290 f_system(NODE *np)  in f_system()  argument
294 	if (nargs(np) != 1)  in f_system()
297 	retcode = system(mbunconvert(exprstring(getlist(&np))));  in f_system()
306 f_index(NODE *np)  in f_index()  argument
312 	if (nargs(np) != 2)  in f_index()
314 	s1 = (wchar_t *)exprstring(getlist(&np));  in f_index()
315 	s2 = (wchar_t *)exprstring(getlist(&np));  in f_index()
338 f_length(NODE *np)  in f_length()  argument
342 	if ((na = nargs(np)) > 1)  in f_length()
346 		na = wcslen((wchar_t *)exprstring(getlist(&np)));  in f_length()
355 f_split(NODE *np)  in f_split()  argument
368 	if ((n = nargs(np))<2 || n>3)  in f_split()
370 	ep = exprstring(snp = getlist(&np));  in f_split()
371 	tnp = getlist(&np);  in f_split()
375 		sep = getlist(&np);  in f_split()
461 f_sprintf(NODE *np)  in f_sprintf()  argument
466         if (nargs(np) == 0)  in f_sprintf()
468         length = xprintf(np, (FILE *)NULL, &cp);  in f_sprintf()
469         np = stringnode(cp, FNOALLOC, length);  in f_sprintf()
470         return (np);  in f_sprintf()
478 f_substr(NODE *np)  in f_substr()  argument
485 	if ((n = nargs(np))<2 || n>3)  in f_substr()
487 	str = exprstring(getlist(&np));  in f_substr()
488 	if ((start = (int)exprint(getlist(&np))-1) < 0)  in f_substr()
492 		x = (int)exprint(getlist(&np));  in f_substr()
508 	np = stringnode(str, FALLOC, len);  in f_substr()
510 	return (np);  in f_substr()
517 f_close(NODE *np)  in f_close()  argument
522 	if (nargs(np) != 1)  in f_close()
524 	name = mbunconvert(exprstring(getlist(&np)));  in f_close()
540 f_ord(NODE *np)  in f_ord()  argument
542 	if (nargs(np) != 1)  in f_ord()
544 	return (intnode((INT)*exprstring(getlist(&np))));  in f_ord()
553 f_tolower(NODE *np)  in f_tolower()  argument
555 	return (docasetr(np, 0));  in f_tolower()
564 f_toupper(NODE *np)  in f_toupper()  argument
566 	return (docasetr(np, 1));  in f_toupper()
580 f_asort(NODE *np)  in f_asort()  argument
589 	if (nargs(np) != 2)  in f_asort()
591 	array = getlist(&np);  in f_asort()
597 	funcname = exprstring(getlist(&np));  in f_asort()
656 nargs(NODE *np)  in nargs()  argument
660 	if (np == NNULL)  in nargs()
663 	while (np!=NNULL && np->n_type==COMMA) {  in nargs()
664 		np = np->n_right;  in nargs()
674 docasetr(NODE *np, int upper)  in docasetr()  argument
681 	if ((na = nargs(np)) > 1)  in docasetr()
683 	str = strsave(na==0 ? linebuf : exprstring(getlist(&np)));  in docasetr()