summaryrefslogtreecommitdiff
path: root/etc/noparser.c
blob: f1fd4aea6a812c5d409a773d620d71e5c8cf3189 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
/*
* The code below can be used to make a Lua core that does not contain the
* parsing modules (lcode, llex, lparser), which represent 35% of the total core.
* You'll only be able to load binary files and strings, precompiled with luac.
* (Of course, you'll have to build luac with the original parsing modules!)
*
* To use this module, simply compile it and list its object file before the
* Lua libraries. The linker should then not load the parsing modules.
*
* If you want to avoid the dump module or the undump modules, use the
* corresponding #define below.
*
#define NOPARSER
#define NODUMP
#define NOUNDUMP
*/

#define NOPARSER

#define LUA_CORE
#include "lua.h"

/* --------------------------------------------------------------- noparser */
#ifdef NOPARSER
#include "llex.h"
#include "lparser.h"
#include "lzio.h"

LUAI_FUNC void luaX_init (lua_State *L) {
  UNUSED(L);
}

LUAI_FUNC Proto *luaY_parser (lua_State *L, ZIO *z, Mbuffer *buff, Varlist *varl, const char *name) {
  UNUSED(z);
  UNUSED(buff);
  UNUSED(name);
  lua_pushliteral(L,"parser not available");
  lua_error(L);
  return NULL;
}
#endif

/* --------------------------------------------------------------- nodump */
#ifdef NODUMP
#include "lundump.h"

LUAI_FUNC int luaU_dump (lua_State* L, const Proto* f, lua_Writer w, void* data, int strip) {
  UNUSED(f);
  UNUSED(w);
  UNUSED(data);
  UNUSED(strip);
  lua_pushliteral(L,"dumper not available");
  lua_error(L);
  return 0;
}
#endif

/* --------------------------------------------------------------- noundump */
#ifdef NOUNDUMP
#include "lundump.h"

LUAI_FUNC Proto *luaU_undump (lua_State *L, ZIO *z, Mbuffer *buff, const char *name) {
  UNUSED(z);
  UNUSED(buff);
  UNUSED(name);
  lua_pushliteral(L,"binary loader not available");
  lua_error(L);
  return NULL;
}
#endif