Lines Matching refs:ar
192 typedef void(*lua_Hook)(lua_State*L,lua_Debug*ar);
2410 static int lua_getstack(lua_State*L,int level,lua_Debug*ar){
2420 ar->i_ci=cast_int(ci-L->base_ci);
2424 ar->i_ci=0;
2432 static void funcinfo(lua_Debug*ar,Closure*cl){
2434 ar->source="=[C]";
2435 ar->linedefined=-1;
2436 ar->lastlinedefined=-1;
2437 ar->what="C";
2440 ar->source=getstr(cl->l.p->source);
2441 ar->linedefined=cl->l.p->linedefined;
2442 ar->lastlinedefined=cl->l.p->lastlinedefined;
2443 ar->what=(ar->linedefined==0)?"main":"Lua";
2445 luaO_chunkid(ar->short_src,ar->source,60);
2447 static void info_tailcall(lua_Debug*ar){
2448 ar->name=ar->namewhat="";
2449 ar->what="tail";
2450 ar->lastlinedefined=ar->linedefined=ar->currentline=-1;
2451 ar->source="=(tail call)";
2452 luaO_chunkid(ar->short_src,ar->source,60);
2453 ar->nups=0;
2469 static int auxgetinfo(lua_State*L,const char*what,lua_Debug*ar,
2473 info_tailcall(ar);
2479 funcinfo(ar,f);
2483 ar->currentline=(ci)?currentline(L,ci):-1;
2487 ar->nups=f->c.nupvalues;
2491 ar->namewhat=(ci)?NULL:NULL;
2492 if(ar->namewhat==NULL){
2493 ar->namewhat="";
2494 ar->name=NULL;
2506 static int lua_getinfo(lua_State*L,const char*what,lua_Debug*ar){
2517 else if(ar->i_ci!=0){
2518 ci=L->base_ci+ar->i_ci;
2521 status=auxgetinfo(L,what,ar,f,ci);
5872 lua_Debug ar;
5873 if(!lua_getstack(L,0,&ar))
5875 lua_getinfo(L,"n",&ar);
5876 if(strcmp(ar.namewhat,"method")==0){
5880 ar.name,extramsg);
5882 if(ar.name==NULL)
5883 ar.name="?";
5885 narg,ar.name,extramsg);
5896 lua_Debug ar;
5897 if(lua_getstack(L,level,&ar)){
5898 lua_getinfo(L,"Sl",&ar);
5899 if(ar.currentline>0){
5900 lua_pushfstring(L,"%s:%d: ",ar.short_src,ar.currentline);
6270 lua_Debug ar;
6273 if(lua_getstack(L,level,&ar)==0)
6275 lua_getinfo(L,"f",&ar);
