Lua_第23章 C API 纵览

标签：

<pre name="code" class="csharp">#include <stdio.h>
#include <lua.h>
#include <lauxlib.h>
#include <lualib.h>
 
 
int main (void)
{
       char buff[256];
       int error;
       lua_State *L =lua_open();  /* opensLua */
       luaopen_base(L);  /* opensthe basic library*/
       luaopen_table(L);   /* opensthe table library*/ 
       luaopen_io(L);           /* opensthe I/O library*/
        luaopen_string(L);  /* opensthe string lib.*/
       luaopen_math(L);   /* opensthe math lib.*/
 
      while (fgets(buff, sizeof(buff), stdin) !=NULL) {
       error = luaL_loadbuffer(L, buff, strlen(buff),"line") || lua_pcall(L, 0, 0, 0);
       if (error) {
            fprintf(stderr, "%s", lua_tostring(L, -1));
            lua_pop(L, 1);/* pop error message from the stack*/
            }
     }
  
       lua_close(L);
       return 0;
}

<pre name="code" class="csharp">#include <stdarg.h>
#include <stdio.h>
#include <stdlib.h>

 
void error (lua_State *L, const char *fmt, ...) {   va_list argp;
     va_start(argp,fmt); 
     vfprintf(stderr, argp);
     va_end(argp);

       lua_close(L); 
       exit(EXIT_FAILURE);
}

<pre name="code" class="csharp">#ifdef  cplusplus 
extern "C" {
#endif
...
#ifdef  cplusplus
}
#endif

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

void lua_settable (lua_Value a,lua_Value k, lua_Value v);

<pre name="code" class="csharp">void lua_pushnil (lua_State *L);
void lua_pushboolean (lua_State *L, int bool);
void lua_pushnumber (lua_State *L, double n);
void lua_pushlstring (lua_State *L, const char *s,size_tlength); 
void lua_pushstring (lua_State *L, const char *s);

         同样也有将 C 函数和 userdata 值压入栈的函数，稍后会讨论到它们。         Lua中的字符串不是以零为结束符的;它们依赖于一个明确的长度，因此可以包含 任意的二进制数据。将字符串压入串的正式函数是 lua_pushlstring，它要求一个明确的长 度作为参数。对于以零结束的字符串，你可以用 lua_pushstring(它用 strlen 来计算字符 串长度)。Lua 从来不保持一个指向外部字符串(或任何其它对象，除了 C 函数一一它总 是静态指针)的指针。对于它保持的所有字符串，Lua 要么做一份内部的拷贝要么重新 利用己经存在的字符串。因此，一旦这些函数返回之后你可以自由的修改或是释放你的缓冲区。        无论你何时压入一个元素到栈上，你有责任确保在栈上有空间来做这件事情。记住， 你现在是 C 程序员;Lua 不会宠着你。当 Lua 在起始以及在 Lua 调用 C 的时候，栈上至少有20 个空闲的记录(lua.h 中的 LUA_MINSTACK 宏定义了这个常量)。对于多数普通的用法栈是足够的，所以通常我们不必去考虑它。无论如何，有些任务或许需要更多的栈空间C如，调用一个不定参数数目的函数)。在这种情况下，或许你需要调用下面这个 函数: int lua_checkstack (lua_State *L, int sz);它检测栈上是否有足够你需要的空间(稍后会有关于它更多的信息)。  

 23.2.2查询元素         

        API 用索引来访问栈中的元素。在栈中的第一个元素(也就是第一个被压入栈的) 有索引 1，下一个有索引 2，以此类推。我们也可以用栈顶作为参照来存取元素，利用负 索引。在这种情况下，-1 指出栈顶元素(也就是最后被压入的)，-2 指出它的前一个元 素，以此类推。例如，调用lua_tostring(L,-1)以字符串的形式返回栈顶的值。我们下面将看到，在某些场合使用正索引访问栈比较方便，另外一些情况下，使用负索引访问栈更方便。 API 提供了一套 lua_is*函数来检查一个元素是否是一个指定的类型，*可以是任何 Lua 类型。因此有 lua_isnumber,lua_isstring,lua_istable 以及类似的函数。所有这些函数都有同样的原型: 

int lua_is... (lua_State *L, int index);

int           lua_toboolean (lua_State *L, int index);
double        lua_tonumber (lua_State *L, int index);
const char *  lua_tostring (lua_State *L, int index);
size_t        lua_strlen (lua_State *L, int index);

const char *s = lua_tostring(L, -1);   /* any Lua string*/ 
size_t l =lua_strlen(L, -1); /* its length */ 
assert(s[l] == '\0');
assert(strlen(s) <=l);

int lua_gettop (lua_State *L);
void lua_settop (lua_State *L, int index);
void lua_pushvalue (lua_State *L, int index);
void lua_remove (lua_State *L, int index);
void lua_insert (lua_State *L, int index);
void lua_replace (lua_State *L, int index);

     函数 lua_gettop 返回堆栈中的元素个数，它也是栈顶元素的索引。注意一个负数索 引-x 对应于正数索引 gettop-x+1。lua_settop 设置栈顶(也就是堆栈中的元素个数)为一 个指定的值。如果开始的栈顶高于新的栈顶，顶部的值被丢弃。否则，为了得到指定的大小这个函数压入相应个数的空值(nil)到栈上。特别的，lua_settop(L,0)清空堆栈。你 也可以用负数索引作为调用 lua_settop 的参数;那将会设置栈顶到指定的索引。利用这 种技巧，API 提供了下面这个宏，它从堆栈中弹出 n 个元素:

#define lua_pop(L,n) lua_settop(L, -(n)-1)

lua_settop(L,-1);   /* settop to its current value*/ 
lua_insert(L, -1);  /*move top elementto the top */

static void stackDump (lua_State *L) { 
     int i;
     int top = lua_gettop(L);
     for (i = 1; i <= top; i++) { /* repeatfor each level */
          int t = lua_type(L, i);
          switch (t) {
 
          case LUA_TSTRING: /* strings */ 
            printf("`%s'", lua_tostring(L, i)); 
            break;
 
          case LUA_TBOOLEAN:  /* booleans */ 
            printf(lua_toboolean(L, i) ? "true" : "false");
            break;
 
          case LUA_TNUMBER: /* numbers */ 
            printf("%g", lua_tonumber(L, i)); 
            break;
 
          default:  /* other values */ 
            printf("%s", lua_typename(L, t)); 
            break;
 
          }
         printf("  "); /* put aseparator */
      }
   printf("\n");     /* end thelisting */
}

#include <stdio.h>
#include <lua.h>
 
 
static void stackDump (lua_State *L) {
...
}
 
int main (void) {
  lua_State *L = lua_open();
  lua_pushboolean(L, 1); lua_pushnumber(L, 10); 
  lua_pushnil(L);lua_pushstring(L, "hello");
  stackDump(L);
      /* true 10 nil `hello' */
  
  lua_pushvalue(L, -4);stackDump(L);
      /* true 10 nil `hello' true */
 
 
  lua_replace(L, 3);stackDump(L);
     /* true 10 true `hello' */
 
 
  lua_settop(L, 6);stackDump(L);
    /* true 10 true `hello' nil nil */
 
 
  lua_remove(L, -3);stackDump(L);
   /* true 10 true nil nil */
 
 
  lua_settop(L, -5);stackDump(L);
   /* true */
 
 
lua_close(L);
return 0;
}

     不论什么时候你向 Lua 中添加一个新的 C函数，你都可能打破原来的安全性。比如， 一个类似poke的函数，在任意的内存地址存放任意的字节，可能使得内存瘫痪。你必须想法设法保证你的插件（add-ons)对于 Lua  来讲是安全的，并且提高比较好的错误处理。

      正如我们前面所讨论的，每一个 C 程序都有他自己的错勿处理方式，当你打算为 Lua 写一个库函数的时候，这里有一些标准的处理错误的方法可以参考。不论什么时候， C 函数发现错误只要简单的调用lua_error（或者 luaL_error，后者更好，因为她调用了前者并格式化了错误信息)。Lua_error 函数会清理所有在 Lua 中需要被清理的，然后和错 误信息一起回到最初的执行 lua_pcall的地方。

Lua_第23章 C API 纵览

标签：

原文地址：http://blog.csdn.net/heyuchang666/article/details/51227049