Lines Matching refs:np
38 static uint nargs(NODE *np);
39 static NODE *dosub(NODE *np, int glob);
40 static NODE *docasetr(NODE *np, int upper);
54 f_exp(NODE *np) in f_exp() argument
58 if ((na = nargs(np)) > 1) in f_exp()
60 return (realnode(exp(exprreal(na==0 ? field0 : getlist(&np))))); in f_exp()
69 f_int(NODE *np) in f_int() argument
73 if ((na = nargs(np)) > 1) in f_int()
75 return (intnode(exprint(na==0 ? field0 : getlist(&np)))); in f_int()
84 f_log(NODE *np) in f_log() argument
88 if ((na = nargs(np)) > 1) in f_log()
90 return (realnode(log(exprreal(na==0 ? field0 : getlist(&np))))); in f_log()
99 f_sqrt(NODE *np) in f_sqrt() argument
103 if ((na = nargs(np)) > 1) in f_sqrt()
105 return (realnode(sqrt(exprreal(na==0 ? field0 : getlist(&np))))); in f_sqrt()
113 f_sin(NODE *np) in f_sin() argument
115 if (nargs(np) != 1) in f_sin()
117 return (realnode(sin(exprreal(getlist(&np))))); in f_sin()
125 f_cos(NODE *np) in f_cos() argument
127 if (nargs(np) != 1) in f_cos()
129 return (realnode(cos(exprreal(getlist(&np))))); in f_cos()
137 f_atan2(NODE *np) in f_atan2() argument
141 if (nargs(np) != 2) in f_atan2()
143 y = (double)exprreal(getlist(&np)); in f_atan2()
144 x = (double)exprreal(getlist(&np)); in f_atan2()
154 f_srand(NODE *np) in f_srand() argument
160 if ((na = nargs(np)) > 1) in f_srand()
164 seed = (uint)exprint(getlist(&np)); in f_srand()
176 f_rand(NODE *np) in f_rand() argument
182 if (nargs(np) != 0) in f_rand()
195 f_sub(NODE *np) in f_sub() argument
197 return (dosub(np, 1)); in f_sub()
206 f_gsub(NODE *np) in f_gsub() argument
208 return (dosub(np, 0)); in f_gsub()
216 dosub(NODE *np, int glob) in dosub() argument
226 if ((na = nargs(np)) != 2 && na != 3) in dosub()
228 rp = getregexp(getlist(&np)); in dosub()
229 sub = exprstring(getlist(&np)); in dosub()
231 left = getlist(&np); in dosub()
260 f_match(NODE *np) in f_match() argument
267 if (nargs(np) != 2) in f_match()
269 text = exprstring(getlist(&np)); in f_match()
270 rp = getregexp(getlist(&np)); in f_match()
288 f_system(NODE *np) in f_system() argument
292 if (nargs(np) != 1) in f_system()
295 retcode = system(mbunconvert(exprstring(getlist(&np)))); in f_system()
304 f_index(NODE *np) in f_index() argument
310 if (nargs(np) != 2) in f_index()
312 s1 = (wchar_t *)exprstring(getlist(&np)); in f_index()
313 s2 = (wchar_t *)exprstring(getlist(&np)); in f_index()
336 f_length(NODE *np) in f_length() argument
340 if ((na = nargs(np)) > 1) in f_length()
344 na = wcslen((wchar_t *)exprstring(getlist(&np))); in f_length()
353 f_split(NODE *np) in f_split() argument
366 if ((n = nargs(np))<2 || n>3) in f_split()
368 ep = exprstring(snp = getlist(&np)); in f_split()
369 tnp = getlist(&np); in f_split()
373 sep = getlist(&np); in f_split()
460 f_sprintf(NODE *np) in f_sprintf() argument
465 if (nargs(np) == 0) in f_sprintf()
467 length = xprintf(np, (FILE *)NULL, &cp); in f_sprintf()
468 np = stringnode(cp, FNOALLOC, length); in f_sprintf()
469 return (np); in f_sprintf()
477 f_substr(NODE *np) in f_substr() argument
484 if ((n = nargs(np))<2 || n>3) in f_substr()
486 str = exprstring(getlist(&np)); in f_substr()
487 if ((start = (int)exprint(getlist(&np))-1) < 0) in f_substr()
491 x = (int)exprint(getlist(&np)); in f_substr()
507 np = stringnode(str, FALLOC, len); in f_substr()
509 return (np); in f_substr()
516 f_close(NODE *np) in f_close() argument
521 if (nargs(np) != 1) in f_close()
523 name = mbunconvert(exprstring(getlist(&np))); in f_close()
539 f_ord(NODE *np) in f_ord() argument
541 if (nargs(np) != 1) in f_ord()
543 return (intnode((INT)*exprstring(getlist(&np)))); in f_ord()
552 f_tolower(NODE *np) in f_tolower() argument
554 return (docasetr(np, 0)); in f_tolower()
563 f_toupper(NODE *np) in f_toupper() argument
565 return (docasetr(np, 1)); in f_toupper()
579 f_asort(NODE *np) in f_asort() argument
588 if (nargs(np) != 2) in f_asort()
590 array = getlist(&np); in f_asort()
596 funcname = exprstring(getlist(&np)); in f_asort()
655 nargs(NODE *np) in nargs() argument
659 if (np == NNULL) in nargs()
662 while (np!=NNULL && np->n_type==COMMA) { in nargs()
663 np = np->n_right; in nargs()
673 docasetr(NODE *np, int upper) in docasetr() argument
680 if ((na = nargs(np)) > 1) in docasetr()
682 str = strsave(na==0 ? linebuf : exprstring(getlist(&np))); in docasetr()