|
native Lua
0.5.0-devel
Lua on the platform you use with the compiler you choose
|
#include "lprefix.h"#include <ctype.h>#include <errno.h>#include <stdio.h>#include <stdlib.h>#include <string.h>#include "lua.h"#include "lauxlib.h"#include "ldebug.h"#include "lobject.h"#include "lopcodes.h"#include "lopnames.h"#include "lstate.h"#include "lundump.h"#include "_native_lua_config.h"
Macros | |
| #define | luac_c |
| #define | LUA_CORE |
| #define | luaU_print PrintFunction |
| #define | PROGNAME "luac" /* default program name */ |
| #define | OUTPUT PROGNAME ".out" /* default output file */ |
| #define | IS(s) (strcmp(argv[i],s)==0) |
| #define | FUNCTION "(function()end)();" |
| #define | toproto(L, i) getproto(s2v(L->top+(i))) |
| #define | UPVALNAME(x) ((f->upvalues[x].name) ? getstr(f->upvalues[x].name) : "-") |
| #define | VOID(p) ((const void*)(p)) |
| #define | eventname(i) (getstr(tmname[i])) |
| #define | COMMENT "\t; " |
| #define | EXTRAARG GETARG_Ax(code[pc+1]) |
| #define | EXTRAARGC (EXTRAARG*(MAXARG_C+1)) |
| #define | ISK (isk ? "k" : "") |
| #define | SS(x) ((x==1)?"":"s") |
| #define | S(x) (int)(x),SS(x) |
Functions | |
| int | main (int argc, char *argv[]) |
| #define COMMENT "\t; " |
| #define eventname | ( | i | ) | (getstr(tmname[i])) |
| #define EXTRAARG GETARG_Ax(code[pc+1]) |
| #define FUNCTION "(function()end)();" |
| #define IS | ( | s | ) | (strcmp(argv[i],s)==0) |
| #define ISK (isk ? "k" : "") |
| #define LUA_CORE |
| #define luac_c |
| #define luaU_print PrintFunction |
| #define OUTPUT PROGNAME ".out" /* default output file */ |
| #define PROGNAME "luac" /* default program name */ |
| #define S | ( | x | ) | (int)(x),SS(x) |
| #define SS | ( | x | ) | ((x==1)?"":"s") |
| #define UPVALNAME | ( | x | ) | ((f->upvalues[x].name) ? getstr(f->upvalues[x].name) : "-") |
| #define VOID | ( | p | ) | ((const void*)(p)) |
| int main | ( | int | argc, |
| char * | argv[] | ||
| ) |
1.8.18