lua 源码和应用精彩集锦, 自用

Source code for Lua 5.1

This is the complete source code of , with links to header files, functions, macros, types, and variables. You can browse the modules below or find a name in the .

Includes

Core

Libraries

Interpreter

Compiler

---

Project Catalog

For a listing of projects by tags click . You might also want to see the .

a

b

c

concurrentlua

cui

d

diluculum

doculua

e

f

g

h

i

icu-lua    imagesize

j

k

l

lcurses

lua-curl

luacurl  luacurses              luadevil                                      luafreeimage

luancurses                                  luaploticus

m

n

o

p

q

r

s

sl-calculator

t

u

v

w

x

y

z

---

-- lstrlib.c: string.format 功能的实现

static void addquoted (lua_State *L, luaL_Buffer *b, int arg) {
  size_t l;
  const char *s = luaL_checklstring(L, arg, &l);
  luaL_addchar(b, '"');
  while (l--) {
    switch (*s) {
      case '"': case '\\': case '\n': {
        luaL_addchar(b, '\\');
        luaL_addchar(b, *s);
        break;
      }
      case '\0': {
        luaL_addlstring(b, "\\000", 4);
        break;
      }
      default: {
        luaL_addchar(b, *s);
        break;
      }
    }
    s++;
  }
  luaL_addchar(b, '"');
}

static const char *scanformat (lua_State *L, const char *strfrmt, char *form) {
  const char *p = strfrmt;
  while (strchr(FLAGS, *p)) p++;  /* skip flags */
  if ((size_t)(p - strfrmt) >= sizeof(FLAGS))
    luaL_error(L, "invalid format (repeated flags)");
  if (isdigit(uchar(*p))) p++;  /* skip width */
  if (isdigit(uchar(*p))) p++;  /* (2 digits at most) */
  if (*p == '.') {
    p++;
    if (isdigit(uchar(*p))) p++;  /* skip precision */
    if (isdigit(uchar(*p))) p++;  /* (2 digits at most) */
  }
  if (isdigit(uchar(*p)))
    luaL_error(L, "invalid format (width or precision too long)");
  *(form++) = '%';
  strncpy(form, strfrmt, p - strfrmt + 1);
  form += p - strfrmt + 1;
  *form = '\0';
  return p;
}


static void addintlen (char *form) {
  size_t l = strlen(form);
  char spec = form[l - 1];
  strcpy(form + l - 1, LUA_INTFRMLEN);
  form[l + sizeof(LUA_INTFRMLEN) - 2] = spec;
  form[l + sizeof(LUA_INTFRMLEN) - 1] = '\0';
}

static int str_format (lua_State *L) {
  int arg = 1;
  size_t sfl;
  const char *strfrmt = luaL_checklstring(L, arg, &sfl);
  const char *strfrmt_end = strfrmt+sfl;
  luaL_Buffer b;
  
  luaL_buffinit(L, &b);  
  while (strfrmt < strfrmt_end) {
    if (*strfrmt != L_ESC)
      luaL_addchar(&b, *strfrmt++);
    else if (*++strfrmt == L_ESC)
      luaL_addchar(&b, *strfrmt++);  /* %% */
    else { /* format item */
      char form[MAX_FORMAT];  /* to store the format (`%...') */
      char buff[MAX_ITEM];  /* to store the formatted item */
      arg++;
      strfrmt = scanformat(L, strfrmt, form);
      switch (*strfrmt++) {
        case 'c': {
          sprintf(buff, form, (int)luaL_checknumber(L, arg));
          break;
        }
        case 'd':  case 'i': {
          addintlen(form);
          sprintf(buff, form, (LUA_INTFRM_T)luaL_checknumber(L, arg));
          break;
        }
        case 'o':  case 'u':  case 'x':  case 'X': {
          addintlen(form);
          sprintf(buff, form, (unsigned LUA_INTFRM_T)luaL_checknumber(L, arg));
          break;
        }
        case 'e':  case 'E': case 'f':
        case 'g': case 'G': {
          sprintf(buff, form, (double)luaL_checknumber(L, arg));
          break;
        }
        case 'q': {
          addquoted(L, &b, arg);
          continue;  /* skip the 'addsize' at the end */
        }
        case 's': {
          size_t l;
          const char *s = luaL_checklstring(L, arg, &l);
          if (!strchr(form, '.') && l >= 100) {
            /* no precision and string is too long to be formatted;
               keep original string */
            lua_pushvalue(L, arg);
            luaL_addvalue(&b);
            continue;  /* skip the `addsize' at the end */
          }
          else {
            sprintf(buff, form, s);
            break;
          }
        }
        default: {  /* also treat cases `pnLlh' */
          return luaL_error(L, "invalid option to " LUA_QL("format"));
        }
      }
      luaL_addlstring(&b, buff, strlen(buff));
    }
  }
  luaL_pushresult(&b);
  return 1;
}

//strlib.c 中例程, 接收字符串, 返回字符串. 官方例程和自己的例程对比

static int str_upper (lua_State *L) {
  size_t l;
  size_t i;
  luaL_Buffer b;
  const char *s = luaL_checklstring(L, 1, &l);

  luaL_buffinit(L, &b);
  for (i=0; i Len = %d, Data = %s\n", Len, pcStr);

	ucRet = CheckCRC8(pcStr, Len/2, 'H');

	sprintf(pcTmp, "%02X", ucRet);
	lua_pushstring(L, (const char *)pcTmp);
	//STACK_LIST(L);

	return 1;	//返回参数个数
}

//--- lua中以数组传递参数
static int crc8(lua_State *L)
{
 u8 ucret, ucdata[200];
 size_t len, i;
 char pctmp[3];


 NumArray *a = checkarray(L);
 len = lua_tonumber(L, 2);


 for(i=0; ivalues[i];
 DEBUGP("%02X ", ucdata[i]);
 }
 ucret = CheckCRC8(ucdata, len, '0');


 sprintf(pctmp, "%02X", ucret);
 lua_pushstring(L, (const char *)pctmp);		//返回值压栈
 STACK_LIST(L);

 return 1;	//返回参数个数
}