未完成

static int str_len (lua_State *L) {
  size_t l;
  luaL_checklstring(L, 1, &l);
  lua_pushinteger(L, l);
  return 1;
}
获取字符串长度,
luaL_checklstring与之前的luaL_checknumber有像,luaL_checknumber的作用是检出一个数字
luaL_checklstring这个就是检出字符串长度呗,长度放入l中
老规矩,又把结果l push了一下

static ptrdiff_t posrelat (ptrdiff_t pos, size_t len) {
  /* relative string position: negative means back from end */
  if (pos < 0) pos += (ptrdiff_t)len + 1;
  return (pos >= 0) ? pos : 0;
}
ptrdiff_t 看返回就能猜到,它应该是int/long之类的类型,不管它
注释上显示是"相关字符串位置,负数代码从后面开始"
基本上的意思就是说,字符串长度为len,根据pos返回位置
如果pos大于等于0,就返回0,如果小于0,就从后面查
比如'abcdefghi',len为9,现在如果pos=3,则返回3
如果pos=-1,则pos=(-1)+9+1=9,那就说明a是第1位,现在当pos=-1时,得到第9位字符i

static int str_sub (lua_State *L) {
  size_t l;
  const char *s = luaL_checklstring(L, 1, &l);
  ptrdiff_t start = posrelat(luaL_checkinteger(L, 2), l);
  ptrdiff_t end = posrelat(luaL_optinteger(L, 3, -1), l);
  if (start < 1) start = 1;
  if (end > (ptrdiff_t)l) end = (ptrdiff_t)l;
  if (start <= end)
    lua_pushlstring(L, s+start-1, end-start+1);
  else lua_pushliteral(L, "");
  return 1;
}
根据代码,字符串,start,end,分析结果是从长度为l的字符串,以start为始end为终,取出子字符串,push掉
luaL_checkinteger(L, 2),获取第二个参数
luaL_optinteger(L, 3, -1),获取第三个参数,如果第三个参数为0或空,返回-1
剩下的就好理解了

static int str_reverse (lua_State *L) {
  size_t l;
  luaL_Buffer b;
  const char *s = luaL_checklstring(L, 1, &l);
  luaL_buffinit(L, &b);
  while (l--) luaL_addchar(&b, s[l]);
  luaL_pushresult(&b);
  return 1;
}
字符串反转