Lua プログラミング例（5）。C言語によるLuaテーブルの読み込みと追加

#include "stdafx.h"

lua_State *L;


void load_lua(char *filename){
 L=luaL_newstate();
 luaL_openlibs(L);
 if((luaL_loadfile(L,filename) || lua_pcall(L,0,0,0))! = 0){
 luaL_error(L,"loadfile error! \n %s",lua_tostring(L,-1));
 }
}

double getfield(lua_State *L,char * key){
 double res;
 // default top of stack is table, put key on stack
 lua_pushstring(L,key);
 lua_gettable(L,-2); //find the element whose key is key and put it on the top of the stack
 if(!lua_isnumber(L,-1)){
 luaL_error(L,"num get error! %s\n",lua_tostring(L,-1));
 }
 res = lua_tonumber(L,-1);
 lua_pop(L,1); //delete the resulting lookup
 return res;
}
void setfield(lua_State *L,char *key,double value){
 //default top of stack is table
 lua_pushstring(L,key);
 lua_pushnumber(L,value);
 lua_settable(L,-3); //Set the pair of keys as elements
}

struct mycolor{
 char *name;
 unsigned char red,green,blue;
}Color[]={
 {"WIETH",1,1,1}
 {"BLACK",0,0,0},
 {"BLUE",0,0,1}
};
// first create an empty stack, fill in the elements, pop up the table with lua_setglobal, and assign it to a global variable
void setcolor(lua_State *L,struct mycolor col){
 lua_newtable(L);
 setfield(L,"r",col.red);
 setfield(L,"g",col.green);
 setfield(L,"b",col.blue);
 lua_setglobal(L,col.name);
}

void getcolor(lua_State *L,char *key){
 lua_getglobal(L,key);
 if(!lua_istable(L,-1)){
 luaL_error(L,"'background' is not a table! %s\n",lua_tostring(L,-1));
 }
 double red;
 double green;
 double blue; 
 red = getfield(L,"r");
 blue = getfield(L,"b");
 green = getfield(L,"g");
 printf("The %s color : red = %.2f ,green = %.2f ,blue = %.2f\n",key,red,green,blue);
}

int _tmain(int argc, _TCHAR* argv[])
{
 load_lua("test.lua");
 getcolor(L,"background");
 int i = 0;
 while(Color[i].name ! = NULL){
 setcolor(L,Color[i]);
 i++;
 }
 getcolor(L,"WIETH");
 getcolor(L,"BLUE");
 return 0;
}

The background color : red = 1.00 ,green = 0.50 ,blue = 0.70
The WIETH color : red = 1.00 ,green = 1.00 ,blue = 1.00
The BLUE color : red = 0.00 ,green = 0.00 ,blue = 1.00