Exemplo n.º 1
0
Arquivo: lptree.c Projeto: c0i/Dorothy
int lp_gc (lua_State *L) {
  Pattern *p = getpattern(L, 1);
  if (p->codesize > 0)
    realloccode(L, p, 0);
  return 0;
}
Exemplo n.º 2
0
Arquivo: lptree.c Projeto: c0i/Dorothy
static TTree *gettree (lua_State *L, int idx, int *len) {
  Pattern *p = getpattern(L, idx);
  if (len)
    *len = getsize(L, idx);
  return p->tree;
}
Exemplo n.º 3
0
int lp_gc (lua_State *L) {
  Pattern *p = getpattern(L, 1);
  realloccode(L, p, 0);  /* delete code block */
  return 0;
}