| 1195 | |
| 1196 | |
| 1197 | static const char *aux_upvalue (StkId fi, int n, TValue **val, |
| 1198 | CClosure **owner, UpVal **uv) { |
| 1199 | switch (ttype(fi)) { |
| 1200 | case LUA_TCCL: { /* C closure */ |
| 1201 | CClosure *f = clCvalue(fi); |
| 1202 | if (!(1 <= n && n <= f->nupvalues)) return NULL; |
| 1203 | *val = &f->upvalue[n-1]; |
| 1204 | if (owner) *owner = f; |
| 1205 | return ""; |
| 1206 | } |
| 1207 | case LUA_TLCL: { /* Lua closure */ |
| 1208 | LClosure *f = clLvalue(fi); |
| 1209 | TString *name; |
| 1210 | Proto *p = f->p; |
| 1211 | if (!(1 <= n && n <= p->sizeupvalues)) return NULL; |
| 1212 | *val = f->upvals[n-1]->v; |
| 1213 | if (uv) *uv = f->upvals[n - 1]; |
| 1214 | name = p->upvalues[n-1].name; |
| 1215 | return (name == NULL) ? "(*no name)" : getstr(name); |
| 1216 | } |
| 1217 | default: return NULL; /* not a closure */ |
| 1218 | } |
| 1219 | } |
| 1220 | |
| 1221 | |
| 1222 | LUA_API const char *lua_getupvalue (lua_State *L, int funcindex, int n) { |
no outgoing calls
no test coverage detected