C API

--[[
    1. C API中的大部分函数并不检查他们参数的正确性，你需要在调用前确保参数的准确。

    2. Lua 中的字符串不是以零为结束符的，他们依赖于一个明确的长度，因此可以包含任意的二进制数据。
       --Lua_string结尾总是零，但中间也可能包含零。

    3. 无论你何时压入一个元素到栈上，你有责任确保在栈上有空间来做这件事情。
       int lua_checkstack(lua_State *L, int sz);

    4. 永远不要将指向Lua字符串的指针保存到访问他们的外部函数中。

]]
[[
    压入元素
]]
lua_pushnil, lua_pushnumber, lua_pushboolean,
任意的字符串(char* 类型，允许包含‘\0‘字符)用lua_pushlstring
C语言风格(以‘\0‘结束)的字符串(const char*)用lua_pushstring
--void lua_pushnil(lua_State *L)
--void lua_pushboolean(lua_State *L, int bool)
--void lua_pushnumber(lua_State *L, double n)
--void lua_pushlstring(lua_State *L, const char *s, size_t length)
--void lua_puthstring(lua_State *L, const char *s)

[[
    查询元素
]]
API用索引来访问栈中的元素。在栈中第一个被压入栈的元素索引为1，下一个为2，
也可以用负索引，-1指出栈顶元素。
--lua_tostring(L, -1)以字符串的形式返回栈顶的值

int lua_is...(lua_State *L, int index)--是对应类型返回1,否则0
检查一个元素是否是指定的类型，...可以是任何Lua类型。lua_isnumber和lua_isstring函数
不检查这个值是否是指定的类型，而是看它是否能被转换成指定的那种类型。

lua_type函数返回栈中元素的类型:LUA_TNIT/LUA_TBOOLEAN/LUA_TNUMBER/LUA_TSTRING/LUA_TTABLE
/LUA_TFUNCTION/LUA_TUSERDATE/LUA_TTHREAD

[[　　lua_to函数]]
如果给定的元素的类型不正确，lua_toboolean、lua_tonumber和lua_strlen返回0，其它函数返回NULL。
--int lua_toboolean(lua_State *L, int index)
--double lua_tonumber(lua_State *L, int index)
--const char* lua_tostring(lua_State *L, int index)
--size_t lua_strlen(lua_State *L, int index)

[[
    其它堆栈操作
]]
--int lua_gettop(lua_State *L)
--void lua_settop(lua_State *L, int index)
--void lua_pushvalue(lus_State *L, int index)
--void lua_remove(lua_State *L, int index)
--void lua_insert(lua_State *L, int index)
--void lua_replace(lua_State *L, int index)
函数lua_gettop返回堆栈中的元素个数，它也是栈顶元素的索引。
从栈顶中弹窗n个元素:lua_settop(L, -(n)-1)
lua_pushvalue:    压入堆栈上指定索引的一个拷贝到栈顶;
lua_remove:        移除指定索引位置的元素，并将其上元素下移
lua_insert:        移动栈顶元素到指定位置，并将上面的元素上移
lua_replace:    从栈顶弹出元素值并将其设置到指定索引位置，没有任何移动操作

程序：

#include <stdio.h>
#include <string>
#include "call_va.h"
#include "LuaTestAPI.h"

extern "C" {
#include <lua.h>
#include <lauxlib.h>
#include <lualib.h>
}
#pragma comment(lib, "lua5.1.lib")

int main(void)
{
    char buff[256];
    lua_State *L = lua_open();
    luaL_openlibs(L);

    initAPI(L);

    if(luaL_dofile(L, "test.lua") == 0)
    {
        //调用lua函数，在lua中将调用LuaTestAPI中的gotoxy
        lua_getglobal(L, "Run");
        lua_pushnumber(L, 20);
        lua_pushnumber(L, 10);
        lua_pushnumber(L, 1111);//额外传入一个值
        lua_pop(L, 1);            //弹窗额外传入的值
        lua_pushstring(L, "Test");
        if(lua_pcall(L, 3, 3, 0)!= 0)
        {
            const char* strError = lua_tostring(L, -1);
            printf("%s", strError);
            return -1;
        }

        //lua中的返回：return "result", 10, {name = "Mical", age = 12}
        //读取返回值
        if(lua_isstring(L, 1) && lua_isnumber(L, 2) && lua_istable(L, 3))
        {
            const char* str = lua_tostring(L, 1);
            int num = lua_tonumber(L, 2);

            lua_getfield(L, 3, "name");
            lua_getfield(L, 3, "age");
            const char* name = lua_tostring(L, 4);
            int age = lua_tonumber(L, 5);

            printf("return_1:%s\n", str);
            printf("return_2:%d\n", num);

            printf("return_3_name:%s\n", name);
            printf("return_3_age:%d\n", age);
        }

        lua_close(L);
    }
}

lua代码：

function Run(x, y, val)
    GotoXY(x, y)
    Test1.put(val)
    return "result", 10, {name = "Mical", age = 12}
end

C中gotoxy代码：

#include<windows.h>
#include "LuaTestAPI.h"

int gotoxy(lua_State *L)
{
    int x = luaL_checknumber(L, 1);
    int y = luaL_checknumber(L, 2);
    COORD coord={x,y};
    SetConsoleCursorPosition(GetStdHandle(STD_OUTPUT_HANDLE), coord);
    return 1;
}

void initAPI(lua_State *L)
{
    lua_register(L, "GotoXY", gotoxy);
}