???????????????????
func.lua
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>
//lua????
#include <lua.h>
#include <lualib.h>
#include <lauxlib.h>
#define err_exit(num??fmt??args) 
do{printf("[%s:%d]"fmt" "??__FILE__??__LINE__??##args);exit(num);} while(0)
#define err_return(num??fmt??args) 
do{printf("[%s:%d]"fmt" "??__FILE__??__LINE__??##args);return(num);} while(0)
//lua?е????c???????壬?????
int csum(lua_State* l)
{
int a = lua_tointeger(l??1) ;
int b = lua_tointeger(l??2) ;
lua_pushinteger(l??a+b) ;
return 1 ;
}
int main(int argc??char** argv)
{
lua_State * l = luaL_newstate() ;
//????lua???л???
if ( l == NULL ) err_return(-1??"luaL_newstat() failed");
int ret = 0 ;
ret = luaL_loadfile(l??"func.lua") ;
//????lua??????
if ( ret != 0 ) err_return(-1??"luaL_loadfile failed") ;
ret = lua_pcall(l??0??0??0) ;
if ( ret != 0 ) err_return(-1??"lua_pcall failed:%s"??lua_tostring(l??-1)) ;
lua_getglobal(l??"width");
//???lua?ж???????
lua_getglobal(l??"height");
printf("height:%ld width:%ld "??lua_tointeger(l??-1)??lua_tointeger(l??-2)) ;
lua_pop(l??1) ;
//???lua???
int a = 11 ;
int b = 12 ;
lua_getglobal(l??"sum");
//????lua?е????sum
lua_pushinteger(l??a) ;
lua_pushinteger(l??b) ;
ret = lua_pcall(l??2??1??0) ;
if ( ret != 0 ) err_return(-1??"lua_pcall failed:%s"??lua_tostring(l??-1)) ;
printf("sum:%d + %d = %ld "??a??b??lua_tointeger(l??-1)) ;
lua_pop(l??1) ;
const char str1[] = "hello" ;
const char str2[] = "world" ;
lua_getglobal(l??"mystrcat");
//????lua?е????mystrcat
lua_pushstring(l??str1) ;
lua_pushstring(l??str2) ;
ret = lua_pcall(l??2??1??0) ;
if ( ret != 0 ) err_return(-1??"lua_pcall failed:%s"??lua_tostring(l??-1)) ;
printf("mystrcat:%s%s = %s "??str1??str2??lua_tostring(l??-1)) ;
lua_pop(l??1) ;
lua_pushcfunction(l??csum) ;
//?????lua??????c????
lua_setglobal(l??"csum") ;
//????lua?е?????csum
lua_getglobal(l??"mysum");
//????lua?е?mysum???????ú?????????????ж????csum?????????
lua_pushinteger(l??a) ;
lua_pushinteger(l??b) ;
ret = lua_pcall(l??2??1??0) ;
if ( ret != 0 ) err_return(-1??"lua_pcall failed:%s"??lua_tostring(l??-1)) ;
printf("mysum:%d + %d = %ld "??a??b??lua_tointeger(l??-1)) ;
lua_pop(l??1) ;
lua_close(l) ;
//???lua???л???
return 0 ;
}