diff options
Diffstat (limited to '')
-rw-r--r-- | libraries/LuaJIT-1.1.7/src/luac.c | 200 |
1 files changed, 0 insertions, 200 deletions
diff --git a/libraries/LuaJIT-1.1.7/src/luac.c b/libraries/LuaJIT-1.1.7/src/luac.c deleted file mode 100644 index d070173..0000000 --- a/libraries/LuaJIT-1.1.7/src/luac.c +++ /dev/null | |||
@@ -1,200 +0,0 @@ | |||
1 | /* | ||
2 | ** $Id: luac.c,v 1.54 2006/06/02 17:37:11 lhf Exp $ | ||
3 | ** Lua compiler (saves bytecodes to files; also list bytecodes) | ||
4 | ** See Copyright Notice in lua.h | ||
5 | */ | ||
6 | |||
7 | #include <errno.h> | ||
8 | #include <stdio.h> | ||
9 | #include <stdlib.h> | ||
10 | #include <string.h> | ||
11 | |||
12 | #define luac_c | ||
13 | #define LUA_CORE | ||
14 | |||
15 | #include "lua.h" | ||
16 | #include "lauxlib.h" | ||
17 | |||
18 | #include "ldo.h" | ||
19 | #include "lfunc.h" | ||
20 | #include "lmem.h" | ||
21 | #include "lobject.h" | ||
22 | #include "lopcodes.h" | ||
23 | #include "lstring.h" | ||
24 | #include "lundump.h" | ||
25 | |||
26 | #define PROGNAME "luac" /* default program name */ | ||
27 | #define OUTPUT PROGNAME ".out" /* default output file */ | ||
28 | |||
29 | static int listing=0; /* list bytecodes? */ | ||
30 | static int dumping=1; /* dump bytecodes? */ | ||
31 | static int stripping=0; /* strip debug information? */ | ||
32 | static char Output[]={ OUTPUT }; /* default output file name */ | ||
33 | static const char* output=Output; /* actual output file name */ | ||
34 | static const char* progname=PROGNAME; /* actual program name */ | ||
35 | |||
36 | static void fatal(const char* message) | ||
37 | { | ||
38 | fprintf(stderr,"%s: %s\n",progname,message); | ||
39 | exit(EXIT_FAILURE); | ||
40 | } | ||
41 | |||
42 | static void cannot(const char* what) | ||
43 | { | ||
44 | fprintf(stderr,"%s: cannot %s %s: %s\n",progname,what,output,strerror(errno)); | ||
45 | exit(EXIT_FAILURE); | ||
46 | } | ||
47 | |||
48 | static void usage(const char* message) | ||
49 | { | ||
50 | if (*message=='-') | ||
51 | fprintf(stderr,"%s: unrecognized option " LUA_QS "\n",progname,message); | ||
52 | else | ||
53 | fprintf(stderr,"%s: %s\n",progname,message); | ||
54 | fprintf(stderr, | ||
55 | "usage: %s [options] [filenames].\n" | ||
56 | "Available options are:\n" | ||
57 | " - process stdin\n" | ||
58 | " -l list\n" | ||
59 | " -o name output to file " LUA_QL("name") " (default is \"%s\")\n" | ||
60 | " -p parse only\n" | ||
61 | " -s strip debug information\n" | ||
62 | " -v show version information\n" | ||
63 | " -- stop handling options\n", | ||
64 | progname,Output); | ||
65 | exit(EXIT_FAILURE); | ||
66 | } | ||
67 | |||
68 | #define IS(s) (strcmp(argv[i],s)==0) | ||
69 | |||
70 | static int doargs(int argc, char* argv[]) | ||
71 | { | ||
72 | int i; | ||
73 | int version=0; | ||
74 | if (argv[0]!=NULL && *argv[0]!=0) progname=argv[0]; | ||
75 | for (i=1; i<argc; i++) | ||
76 | { | ||
77 | if (*argv[i]!='-') /* end of options; keep it */ | ||
78 | break; | ||
79 | else if (IS("--")) /* end of options; skip it */ | ||
80 | { | ||
81 | ++i; | ||
82 | if (version) ++version; | ||
83 | break; | ||
84 | } | ||
85 | else if (IS("-")) /* end of options; use stdin */ | ||
86 | break; | ||
87 | else if (IS("-l")) /* list */ | ||
88 | ++listing; | ||
89 | else if (IS("-o")) /* output file */ | ||
90 | { | ||
91 | output=argv[++i]; | ||
92 | if (output==NULL || *output==0) usage(LUA_QL("-o") " needs argument"); | ||
93 | if (IS("-")) output=NULL; | ||
94 | } | ||
95 | else if (IS("-p")) /* parse only */ | ||
96 | dumping=0; | ||
97 | else if (IS("-s")) /* strip debug information */ | ||
98 | stripping=1; | ||
99 | else if (IS("-v")) /* show version */ | ||
100 | ++version; | ||
101 | else /* unknown option */ | ||
102 | usage(argv[i]); | ||
103 | } | ||
104 | if (i==argc && (listing || !dumping)) | ||
105 | { | ||
106 | dumping=0; | ||
107 | argv[--i]=Output; | ||
108 | } | ||
109 | if (version) | ||
110 | { | ||
111 | printf("%s %s\n",LUA_RELEASE,LUA_COPYRIGHT); | ||
112 | if (version==argc-1) exit(EXIT_SUCCESS); | ||
113 | } | ||
114 | return i; | ||
115 | } | ||
116 | |||
117 | #define toproto(L,i) (clvalue(L->top+(i))->l.p) | ||
118 | |||
119 | static const Proto* combine(lua_State* L, int n) | ||
120 | { | ||
121 | if (n==1) | ||
122 | return toproto(L,-1); | ||
123 | else | ||
124 | { | ||
125 | int i,pc; | ||
126 | Proto* f=luaF_newproto(L); | ||
127 | setptvalue2s(L,L->top,f); incr_top(L); | ||
128 | f->source=luaS_newliteral(L,"=(" PROGNAME ")"); | ||
129 | f->maxstacksize=1; | ||
130 | pc=2*n+1; | ||
131 | f->code=luaM_newvector(L,pc,Instruction); | ||
132 | f->sizecode=pc; | ||
133 | f->p=luaM_newvector(L,n,Proto*); | ||
134 | f->sizep=n; | ||
135 | pc=0; | ||
136 | for (i=0; i<n; i++) | ||
137 | { | ||
138 | f->p[i]=toproto(L,i-n-1); | ||
139 | f->code[pc++]=CREATE_ABx(OP_CLOSURE,0,i); | ||
140 | f->code[pc++]=CREATE_ABC(OP_CALL,0,1,1); | ||
141 | } | ||
142 | f->code[pc++]=CREATE_ABC(OP_RETURN,0,1,0); | ||
143 | return f; | ||
144 | } | ||
145 | } | ||
146 | |||
147 | static int writer(lua_State* L, const void* p, size_t size, void* u) | ||
148 | { | ||
149 | UNUSED(L); | ||
150 | return (fwrite(p,size,1,(FILE*)u)!=1) && (size!=0); | ||
151 | } | ||
152 | |||
153 | struct Smain { | ||
154 | int argc; | ||
155 | char** argv; | ||
156 | }; | ||
157 | |||
158 | static int pmain(lua_State* L) | ||
159 | { | ||
160 | struct Smain* s = (struct Smain*)lua_touserdata(L, 1); | ||
161 | int argc=s->argc; | ||
162 | char** argv=s->argv; | ||
163 | const Proto* f; | ||
164 | int i; | ||
165 | if (!lua_checkstack(L,argc)) fatal("too many input files"); | ||
166 | for (i=0; i<argc; i++) | ||
167 | { | ||
168 | const char* filename=IS("-") ? NULL : argv[i]; | ||
169 | if (luaL_loadfile(L,filename)!=0) fatal(lua_tostring(L,-1)); | ||
170 | } | ||
171 | f=combine(L,argc); | ||
172 | if (listing) luaU_print(f,listing>1); | ||
173 | if (dumping) | ||
174 | { | ||
175 | FILE* D= (output==NULL) ? stdout : fopen(output,"wb"); | ||
176 | if (D==NULL) cannot("open"); | ||
177 | lua_lock(L); | ||
178 | luaU_dump(L,f,writer,D,stripping); | ||
179 | lua_unlock(L); | ||
180 | if (ferror(D)) cannot("write"); | ||
181 | if (fclose(D)) cannot("close"); | ||
182 | } | ||
183 | return 0; | ||
184 | } | ||
185 | |||
186 | int main(int argc, char* argv[]) | ||
187 | { | ||
188 | lua_State* L; | ||
189 | struct Smain s; | ||
190 | int i=doargs(argc,argv); | ||
191 | argc-=i; argv+=i; | ||
192 | if (argc<=0) usage("no input files given"); | ||
193 | L=lua_open(); | ||
194 | if (L==NULL) fatal("not enough memory for state"); | ||
195 | s.argc=argc; | ||
196 | s.argv=argv; | ||
197 | if (lua_cpcall(L,pmain,&s)!=0) fatal(lua_tostring(L,-1)); | ||
198 | lua_close(L); | ||
199 | return EXIT_SUCCESS; | ||
200 | } | ||