技术标签: # Lua
准备工作:
1.在编写mm库前必须对lua c api要熟悉,否则会无从下手,这是一个痛苦的过程,还好风云大大对这个api进行的翻译,相对来说写lua c 库就轻松很多了,api翻译地址为:https://www.codingnow.com/2000/download/lua_manual.html#lua_getstack。
2.在扩展snapshot库时会用到uthash这个第三方工具,主要是使用哈希表的方式来做快照存储以及数组来存储对象引用路径的,地址为:https://troydhanson.github.io/uthash/userguide.html
mm库具有的功能:
1.快照Registry或者_G表。
2.计算Lua对象内存大小以及引用关系。
3.储存快照。
快照Registry或者_G表:lua里面的回收对象类型如下图所示:
所以我们只需提供MarkObject,MarkTable,MarkUserData,MarkFunction,MarkThread来递归统计对象即可。核心代码如下所示:
void MarkObject(lua_State *L, const char *desc, const char *parent)
{
luaL_checkstack(L, LUA_MINSTACK, NULL);
int type = lua_type(L, -1);
switch (type) {
case LUA_TTABLE:
MarkTable(L, desc, parent);
break;
case LUA_TUSERDATA:
MarkUserData(L, desc, parent);
break;
case LUA_TFUNCTION:
MarkFunction(L, desc, parent);
break;
case LUA_TTHREAD:
MarkThread(L, desc, parent);
break;
default:
lua_pop(L,1);
break;
}
}
void MarkTable(lua_State *L, const char *desc, const char *parent)
{
const void *addr = lua_topointer(L, -1);
if (addr == NULL)
{
return;
}
struct GCObject *obj = GetGCObject(addr);
if (obj != NULL)
{
AddRefPath(obj, desc, parent);
lua_pop(L, 1);
}
else
{
obj = AddGCObject(L, addr, desc, parent);
bool weakk = false;
bool weakv = false;
if (lua_getmetatable(L, -1))
{
lua_pushliteral(L, "__mode");
lua_rawget(L, -2);
if (lua_isstring(L, -1))
{
const char *mode = lua_tostring(L, -1);
if (strchr(mode, 'k'))
{
weakk = true;
}
if (strchr(mode, 'v'))
{
weakv = true;
}
}
lua_pop(L, 1);
luaL_checkstack(L, LUA_MINSTACK, NULL);
char **path = (char**)utarray_front(obj->paths);
MarkTable(L, "[metatable]", *path);
}
lua_pushnil(L);
while (lua_next(L, -2) != 0)
{
if (weakv)
{
lua_pop(L, 1);
}
else
{
char temp[128];
const char *name = KeyString(L, -2, temp);
char **path = (char**)utarray_front(obj->paths);
MarkObject(L, name, *path);
}
if (!weakk)
{
lua_pushvalue(L, -1);
char **path = (char**)utarray_front(obj->paths);
MarkObject(L, "[key]", *path);
}
}
lua_pop(L, 1);
}
}
void MarkUserData(lua_State *L, const char *desc, const char *parent)
{
const void *addr = lua_topointer(L, -1);
if (addr == NULL)
{
return;
}
struct GCObject *obj = GetGCObject(addr);
if(obj != NULL)
{
AddRefPath(obj, desc, parent);
lua_pop(L, 1);
}
else
{
obj = AddGCObject(L, addr, desc, parent);
if (lua_getmetatable(L, -1))
{
char **path = (char**)utarray_front(obj->paths);
MarkTable(L, "[metatable]", *path);
}
GetUserValue(L, -1);
if (lua_isnil(L, -1))
{
lua_pop(L, 2);
}
else
{
char **path = (char**)utarray_front(obj->paths);
MarkTable(L, "[uservalue]", *path);
lua_pop(L,1);
}
}
}
void MarkFunction(lua_State *L, const char *desc, const char *parent)
{
const void *addr = lua_topointer(L, -1);
if (addr == NULL)
{
return;
}
struct GCObject *obj = GetGCObject(addr);
if(obj != NULL)
{
AddRefPath(obj, desc, parent);
lua_pop(L, 1);
}
else
{
obj = AddGCObject(L, addr, desc, parent);
char **path = (char**)utarray_front(obj->paths);
MarkFunctionEnv(L, *path);
int i;
for (i=1;;i++)
{
const char *name = lua_getupvalue(L, -1, i);
if (name == NULL)
{
break;
}
path = (char**)utarray_front(obj->paths);
MarkObject(L, name[0] ? name : "[upvalue]", *path);
}
if (lua_iscfunction(L, -1) == 0)
{
lua_Debug ar;
lua_getinfo(L, ">S", &ar);
char temp[128];
sprintf(temp, "[%s:%d]", ar.short_src, ar.linedefined);
path = (char**)utarray_front(obj->paths);
AppendRefPath(obj, path, temp);
}
else
{
lua_pop(L, 1);
}
}
}
void MarkThread(lua_State *L, const char *desc, const char *parent)
{
const void *addr = lua_topointer(L, -1);
if (addr == NULL)
{
return;
}
struct GCObject *obj = GetGCObject(addr);
if (obj != NULL)
{
AddRefPath(obj, desc, parent);
lua_pop(L, 1);
}
else
{
obj = AddGCObject(L, addr, desc, parent);
int level = 0;
lua_State *cL = lua_tothread(L, -1);
if (cL == L)
{
level = 1;
}
else
{
// mark stack
int top = lua_gettop(cL);
luaL_checkstack(cL, 1, NULL);
int i;
char temp[16];
for (i = 0; i < top; i++)
{
lua_pushvalue(cL, i + 1);
sprintf(temp, "[thread %d]", i + 1);
MarkObject(cL, temp, parent);
}
}
lua_Debug ar;
while (lua_getstack(cL, level, &ar))
{
lua_getinfo(cL, "Sl", &ar);
char temp[128];
if (ar.currentline >= 0)
{
sprintf(temp, "[%s:%d]", ar.short_src, ar.currentline);
}
else
{
sprintf(temp, "[%s]", ar.short_src);
}
char **path = (char**)utarray_front(obj->paths);
AppendRefPath(obj, path, temp);
int i,j;
for (j = 1; j > -1; j-=2)
{
for (i = j;;i+=j)
{
const char *name = lua_getlocal(cL, &ar, i);
if (name == NULL)
{
break;
}
snprintf(temp, sizeof(temp), "%s : %s:%d", name, ar.short_src, ar.currentline);
path = (char**)utarray_front(obj->paths);
MarkObject(cL, temp, *path);
}
}
++level;
}
lua_pop(L,1);
}
}
计算Lua对象内存大小以及引用关系:由于lua并没有提供对象内存的计算方式,只能对整体内存进行统计,所以这里就做引用关系的处理。内存对象计算往后想到好的办法再补上。核心代码如下:
void AddRefPath(struct GCObject *obj, const char *desc, const char *parent)
{
UT_string *temp;
utstring_new(temp);
if (parent != NULL)
{
utstring_printf(temp, "%s.%s", parent, desc);
}
else
{
utstring_printf(temp, "%s", desc);
}
char *path = utstring_body(temp);
utarray_push_back(obj->paths, &path);
utstring_free(temp);
}
储存快照:快照存储在hash表中,并通过json串形式写入到本地文件中。核心代码如下:
void GenJsonResult(lua_State *L, const char *fileName)
{
FILE *fp = fopen(fileName, "w+");
if (fp == NULL)
{
printf("无法打开文件\n");
FreeGCHash();
return;
}
int count = lua_gc(L, LUA_GCCOUNT, 0);
UT_string *jsonStr;
utstring_new(jsonStr);
utstring_printf(jsonStr, "{count:%d, items:[", count);
unsigned int hashLen = HASH_COUNT(gcHash);
unsigned int hashIndex = 0;
// 遍历统计对象列表,填充json字符串串
struct GCObject *obj;
for (obj = gcHash; obj != NULL; obj = obj->hh.next)
{
utstring_printf(jsonStr, "{addr:\"%p\", type:\"%s\", memory:%d, refPath:\"",
obj->addr,
obj->type,
obj->memory);
unsigned int arrayLen = utarray_len(obj->paths);
unsigned int arrayIndex = 0;
char **path = NULL;
while ((path = (char**)utarray_next(obj->paths, path))) {
utstring_printf(jsonStr, "%s", *path);
if (arrayIndex != (arrayLen - 1))
{
utstring_printf(jsonStr, ",");
}
arrayIndex++;
}
utstring_printf(jsonStr, "\"}");
if (hashIndex != (hashLen - 1))
{
utstring_printf(jsonStr, ",\n");
}
hashIndex++;
}
utstring_printf(jsonStr, "]}");
fputs(utstring_body(jsonStr), fp);
fclose(fp);
utstring_free(jsonStr);
FreeGCHash();
}
mm库的测试结果:经验证mm运行正确。
测试用例如下:
测试输出如下:
文章浏览阅读3.2k次。本文研究全球与中国市场分布式光纤传感器的发展现状及未来发展趋势,分别从生产和消费的角度分析分布式光纤传感器的主要生产地区、主要消费地区以及主要的生产商。重点分析全球与中国市场的主要厂商产品特点、产品规格、不同规格产品的价格、产量、产值及全球和中国市场主要生产商的市场份额。主要生产商包括:FISO TechnologiesBrugg KabelSensor HighwayOmnisensAFL GlobalQinetiQ GroupLockheed MartinOSENSA Innovati_预计2026年中国分布式传感器市场规模有多大
文章浏览阅读1.1k次,点赞2次,收藏12次。常用组合逻辑电路结构——为IC设计的延时估计铺垫学习目的:估计模块间的delay,确保写的代码的timing 综合能给到多少HZ,以满足需求!_基4布斯算法代码
文章浏览阅读3.3k次,点赞3次,收藏5次。OpenAI Manager助手(基于SpringBoot和Vue)_chatgpt网页版
文章浏览阅读2.2k次。USACO自1992年举办,到目前为止已经举办了27届,目的是为了帮助美国信息学国家队选拔IOI的队员,目前逐渐发展为全球热门的线上赛事,成为美国大学申请条件下,含金量相当高的官方竞赛。USACO的比赛成绩可以助力计算机专业留学,越来越多的学生进入了康奈尔,麻省理工,普林斯顿,哈佛和耶鲁等大学,这些同学的共同点是他们都参加了美国计算机科学竞赛(USACO),并且取得过非常好的成绩。适合参赛人群USACO适合国内在读学生有意向申请美国大学的或者想锻炼自己编程能力的同学,高三学生也可以参加12月的第_usaco可以多次提交吗
文章浏览阅读394次。1.1 存储程序1.2 创建存储过程1.3 创建自定义函数1.3.1 示例1.4 自定义函数和存储过程的区别1.5 变量的使用1.6 定义条件和处理程序1.6.1 定义条件1.6.1.1 示例1.6.2 定义处理程序1.6.2.1 示例1.7 光标的使用1.7.1 声明光标1.7.2 打开光标1.7.3 使用光标1.7.4 关闭光标1.8 流程控制的使用1.8.1 IF语句1.8.2 CASE语句1.8.3 LOOP语句1.8.4 LEAVE语句1.8.5 ITERATE语句1.8.6 REPEAT语句。_mysql自定义函数和存储过程
文章浏览阅读188次。半导体二极管——集成电路最小组成单元。_本征半导体电流为0
文章浏览阅读2.8k次,点赞3次,收藏18次。游戏水面特效实现方式太多。咱们这边介绍的是一最简单的UV动画(无顶点位移),整个mesh由4个顶点构成。实现了水面效果(左图),不动代码稍微修改下参数和贴图可以实现岩浆效果(右图)。有要思路是1,uv按时间去做正弦波移动2,在1的基础上加个凹凸图混合uv3,在1、2的基础上加个水流方向4,加上对雾效的支持,如没必要请自行删除雾效代码(把包含fog的几行代码删除)S..._unity 岩浆shader
文章浏览阅读5k次。广义线性模型是线性模型的扩展,它通过连接函数建立响应变量的数学期望值与线性组合的预测变量之间的关系。广义线性模型拟合的形式为:其中g(μY)是条件均值的函数(称为连接函数)。另外,你可放松Y为正态分布的假设,改为Y 服从指数分布族中的一种分布即可。设定好连接函数和概率分布后,便可以通过最大似然估计的多次迭代推导出各参数值。在大部分情况下,线性模型就可以通过一系列连续型或类别型预测变量来预测正态分布的响应变量的工作。但是,有时候我们要进行非正态因变量的分析,例如:(1)类别型.._广义线性回归模型
文章浏览阅读69次。环境保护、 保护地球、 校园环保、垃圾分类、绿色家园、等网站的设计与制作。 总结了一些学生网页制作的经验:一般的网页需要融入以下知识点:div+css布局、浮动、定位、高级css、表格、表单及验证、js轮播图、音频 视频 Flash的应用、ul li、下拉导航栏、鼠标划过效果等知识点,网页的风格主题也很全面:如爱好、风景、校园、美食、动漫、游戏、咖啡、音乐、家乡、电影、名人、商城以及个人主页等主题,学生、新手可参考下方页面的布局和设计和HTML源码(有用点赞△) 一套A+的网_垃圾分类网页设计目标怎么写
文章浏览阅读614次,点赞7次,收藏11次。之前找到一个修改 exe 中 DLL地址 的方法, 不太好使,虽然能正确启动, 但无法改变 exe 的工作目录,这就影响了.Net 中很多获取 exe 执行目录来拼接的地址 ( 相对路径 ),比如 wwwroot 和 代码中相对目录还有一些复制到目录的普通文件 等等,它们的地址都会指向原来 exe 的目录, 而不是自定义的 “lib” 目录,根本原因就是没有修改 exe 的工作目录这次来搞一个启动程序,把 .net 的所有东西都放在一个文件夹,在文件夹同级的目录制作一个 exe._.net dll 全局目录
文章浏览阅读1.5k次。本文为转载,原博客地址:http://blog.csdn.net/hujingshuang/article/details/46910259简介 BRIEF是2010年的一篇名为《BRIEF:Binary Robust Independent Elementary Features》的文章中提出,BRIEF是对已检测到的特征点进行描述,它是一种二进制编码的描述子,摈弃了利用区域灰度..._breif description calculation 特征点
文章浏览阅读4.1k次,点赞21次,收藏79次。本文是《基于SpringBoot的房屋租赁管理系统》的配套原创说明文档,可以给应届毕业生提供格式撰写参考,也可以给开发类似系统的朋友们提供功能业务设计思路。_基于spring boot的房屋租赁系统论文