一个简单的Lua解释器


#include "stdafx.h"

#include<stdarg.h>
#include<stdlib.h>
#include<stdio.h>
#include<string.h>    
#include<math.h>

#include<errno.h>
extern "C"{
#include "lua.h"
#include "lauxlib.h"
#include "lualib.h"
}

lua_State *L;

void errormethod(const char *fmt, ...){
	va_list argp;
	va_start(argp, fmt);
	vfprintf(stderr, fmt, argp);
	va_end(argp);
	lua_close(L);
	//exit(EXIT_FAILURE);
}

static int l_sin(lua_State* L){
	//double d = lua_tonumber(L, 1);
	double d = luaL_checknumber(L, 1);
	lua_pushnumber(L, sin(d));
	//printf("call1 %f\n", d);
	return 1;
} 

static int add(lua_State* L){
	int n1 = lua_tonumber(L, 1);
	int n2 = lua_tonumber(L, 2);
	int sum = n1 + n2;
	lua_pushnumber(L, sum);
	//printf("call2 %f\n", d);  
	return 1;
} 
  
int main(int argc, char* argv[])
{
	char buff[256];
	int error;
	L = luaL_newstate();//创建Lua环境
	luaL_openlibs(L);//加载标准库
	lua_pushcfunction(L, l_sin);
	lua_setglobal(L, "mysin");
	lua_pushcfunction(L, add);
	lua_setglobal(L, "add");
		
	while(fgets(buff, sizeof(buff), stdin) != NULL){
		error = luaL_loadbuffer(L, buff, strlen(buff), "line") || lua_pcall(L, 0, 0, 0);
		if(error){  
			//errormethod("%s\n", lua_tostring(L, -1));
			fprintf(stderr, "%s\n", lua_tostring(L, -1));
			lua_pop(L, -1);
		}
  
	}
//	lua_close(L);
	system("pause");
	return 0;
}

From Lua程序设计..

给我的认识是

Lua仅仅是一门嵌入式的脚本语言

需要宿主语言去启动它。

 

转载于:https://www.cnblogs.com/MyGameAndYOU/p/3958071.html

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值