view/old/lua.cpp

#include <windows.h>
BOOL exist(char *file);

// C++の場合extern "C"が必要
extern "C" {
#include "lua.h"
#include "lualib.h"
#include "lauxlib.h"
}

void tes(char *val,char *str){
        char path[1000];
        wsprintf(path,"%s/lua.lua",str);
        if(!exist(path)) return;
        *str=0;
    lua_State *L = lua_open();
    luaL_openlibs(L); // これで以下の個別のライブラリを一度に使えるようにする
    //luaopen_base(L); // Luaでprint関数が使えるようにする
    //luaopen_io(L); // 
    //luaopen_string(L); // Luaでstring関係の関数が使えるようにする
    luaL_dofile(L, path); // Lua scipt 読み込む


    // add.lua 内のstr関数をスタックに積む（関数名の文字列"str"を引数に）
    lua_pushstring(L, "str");
    lua_gettable(L, LUA_GLOBALSINDEX);
    //lua_pushnumber(L, 30); // 引数1 文字列"string test"をスタックに
    lua_pushstring(L, val); // 引数1 文字列"string test"をスタックに
    lua_pushstring(L, "test"); // 引数2 文字列"string test"をスタックに
    // 関数を呼ぶ。第2引数は渡す引数の数、第3引数は戻り値の数。

        lua_call(L, 2, 1);

    // スタックの1番目の要素=戻り値を p に入れる(copyしたほうがいい？)
        char *p=(char*)lua_tostring(L, -1) ;
        char buffer[900];
    //sprintf(str,"%f\n",p);
    sprintf(str,"%s\n",p);
        //strcat(str,buffer);
}