Lines Matching defs:nargs
1706 int nargs, modifier;
1785 nargs = 0;
1789 nargs++;
1793 nargs++;
1796 gen2cd(tkgetline, nargs);
1810 int nargs, cdx = 0; // index in TT.zcode list
1830 nargs = 1;
1833 nargs++;
1835 gen2cd(tkgetline, nargs);
3018 static int fflush_file(int nargs)
3020 if (!nargs) return fflush_all();
3112 static void varprint(int(*fpvar)(FILE *, const char *, ...), FILE *outfp, int nargs)
3117 char *pfmt, *fmt = to_str(STKP-nargs+1)->vst->str;
3118 k = stkn(nargs - 2);
3458 static void gsub(int opcode, int nargs, int parmbase)
3459 { (void)nargs;
3568 int opcode, op2, k, r, nargs, nsubscrs, range_num, parmbase = 0;
3775 nargs = *ip++;
3782 default: nargs++; break;
3784 nargs--;
3786 varprint(fprintf, outfp->fp, nargs);
3787 drop_n(nargs);
3790 if (!nargs) {
3796 for (int k = 0; k < nargs; k++) {
3798 int sp = stkn(nargs - 1 - k);
3806 drop_n(nargs);
3832 nargs = popnumval();
3833 int newparmbase = stkn(nargs);
3836 for ( ;nargs > nparms; nargs--)
3838 for ( ;nargs < nparms; nargs++) {
3851 struct symtab_slot *q = &((struct symtab_slot *)loctab->base)[nargs+1];
3867 nargs = STACK[parmbase+ARG_CNT].num;
3873 while (stkn(0) > parmbase + nargs) {
3896 nargs = *ip++;
3897 newparmbase = stkn(nargs);
3899 STACK[newparmbase+ARG_CNT].num = nargs;
3900 push_int_val(nargs); // FIXME TODO pass this in a zregister?
4084 nargs = *ip++;
4101 if (nargs == 2 && source == tkpipe) swap();
4105 nargs--;
4108 // nargs source TT.stack
4115 v = nargs ? setup_lvalue(0, parmbase, &field_num) : 0;
4129 nargs = *ip++;
4130 if (nargs == 2) push_val(&STACK[FS]);
4142 nargs = *ip++;
4169 nargs = *ip++;
4170 struct zstring *zz = to_str(STKP - nargs + 1)->vst;
4173 ssize_t mm = CLAMP(trunc(to_num(STKP - nargs + 2)) - 1, 0, nchars);
4175 if (nargs == 3) nn = CLAMP(trunc(to_num(STKP)), 0, nn);
4179 zstring_release(&(STKP - nargs + 1)->vst);
4180 (STKP - nargs + 1)->vst = zzz;
4181 drop_n(nargs - 1);
4185 nargs = *ip++;
4200 nargs = *ip++;
4201 for (int i = 1; i < nargs; i++) switch (opcode) {
4208 drop_n(nargs);
4214 nargs = *ip++;
4243 nargs = *ip++;
4244 v = nargs ? STKP : &FIELD[0];
4251 if (nargs) drop();
4256 nargs = *ip++;
4271 nargs = *ip++;
4272 r = fflush_file(nargs);
4273 if (nargs) drop();
4278 nargs = *ip++;
4285 nargs = *ip++;
4288 varprint(fsprintf, 0, nargs);
4289 drop_n(nargs);
4296 nargs = *ip++;
4302 nargs = *ip++;
4310 nargs = *ip++;
4311 if (nargs == 1) {
4316 nargs = *ip++;