| 8117 | |
| 8118 | |
| 8119 | static void parlist (LexState *ls) { |
| 8120 | /* parlist -> [ param { `,' param } ] */ |
| 8121 | FuncState *fs = ls->fs; |
| 8122 | Proto *f = fs->f; |
| 8123 | int nparams = 0; |
| 8124 | f->is_vararg = 0; |
| 8125 | if (ls->t.token != ')') { /* is `parlist' not empty? */ |
| 8126 | do { |
| 8127 | switch (ls->t.token) { |
| 8128 | case TK_NAME: { /* param -> NAME */ |
| 8129 | new_localvar(ls, str_checkname(ls), nparams++); |
| 8130 | break; |
| 8131 | } |
| 8132 | case TK_DOTS: { /* param -> `...' */ |
| 8133 | luaX_next(ls); |
| 8134 | #if defined(LUA_COMPAT_VARARG) |
| 8135 | /* use `arg' as default name */ |
| 8136 | new_localvarliteral(ls, "arg", nparams++); |
| 8137 | f->is_vararg = VARARG_HASARG | VARARG_NEEDSARG; |
| 8138 | #endif |
| 8139 | f->is_vararg |= VARARG_ISVARARG; |
| 8140 | break; |
| 8141 | } |
| 8142 | default: luaX_syntaxerror(ls, "<name> or " LUA_QL("...") " expected"); |
| 8143 | } |
| 8144 | } while (!f->is_vararg && testnext(ls, ',')); |
| 8145 | } |
| 8146 | adjustlocalvars(ls, nparams); |
| 8147 | f->numparams = cast_byte(fs->nactvar - (f->is_vararg & VARARG_HASARG)); |
| 8148 | luaK_reserveregs(fs, fs->nactvar); /* reserve register for parameters */ |
| 8149 | } |
| 8150 | |
| 8151 | |
| 8152 | static void body (LexState *ls, expdesc *e, int needself, int line) { |
no test coverage detected