Subversion Repositories WoWGM

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
3 tristanc 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 
}