static void code_params (LexState *ls, int nparams, int dots) {
FuncState *fs = ls->fs;
adjustlocalvars(ls, nparams);
luaX_checklimit(ls, fs->nactvar, MAXPARAMS, "parameters");
fs->f->numparams = cast(lu_byte, fs->nactvar);
fs->f->is_vararg = cast(lu_byte, dots);
if (dots)
create_local(ls, "arg");
luaK_reserveregs(fs, fs->nactvar); /* reserve register for parameters */
}
static void createEmptyMovieClip(LVGActionCtx *ctx, ASClass *cls, uint8_t *a, uint32_t nargs)
{
ASVal *se_name = &ctx->stack[ctx->stack_ptr];
#ifdef _DEBUG
ASVal *se_depth = se_name + 1;
assert(ASVAL_INT == se_depth->type || ASVAL_DOUBLE == se_depth->type || ASVAL_FLOAT == se_depth->type);
#endif
assert(ASVAL_STRING == se_name->type);
ASVal *loc = create_local(ctx, THIS, se_name->str);
loc->type = ASVAL_UNDEFINED;
loc->str = 0;
ASVal *res = result_val(ctx, nargs);
*res = *loc;
}
static void body (LexState *ls, expdesc *e, int needself, int line) {
/* body -> `(' parlist `)' chunk END */
FuncState new_fs;
open_func(ls, &new_fs);
new_fs.f->lineDefined = line;
check(ls, '(');
if (needself)
create_local(ls, "self");
parlist(ls);
check(ls, ')');
chunk(ls);
check_match(ls, TK_END, TK_FUNCTION, line);
close_func(ls);
pushclosure(ls, &new_fs, e);
}
static entity *create_server (entity_types type, int index, char *pargs)
{
entity
*en;
validate_client_server_local_fn ();
en = create_local (type, index, pargs);
if (en)
{
validate_client_server_remote_fn ();
create_remote (type, get_local_entity_index (en), pargs);
}
return (en);
}
static entity *create_client (entity_types type, int index, char *pargs)
{
entity
*en;
if (get_comms_data_flow () == COMMS_DATA_FLOW_TX)
{
validate_client_server_remote_fn ();
en = create_remote (type, index, pargs);
}
else
{
validate_client_server_local_fn ();
en = create_local (type, index, pargs);
}
return (en);
}
