/*** $Id: luac.c,v 1.54 2006/06/02 17:37:11 lhf Exp $** Lua compiler (saves bytecodes to files; also list bytecodes)** See Copyright Notice in lua.h*/#include <errno.h>#include <stdio.h>#include <stdlib.h>#include <string.h>#define luac_c#define LUA_CORE#include "lua.h"#include "lauxlib.h"#include "ldo.h"#include "lfunc.h"#include "lmem.h"#include "lobject.h"#include "lopcodes.h"#include "lstring.h"#include "lundump.h"#define PROGNAME	"luac"		/* default program name */#define	OUTPUT		PROGNAME ".out"	/* default output file */static int listing=0;			/* list bytecodes? */static int dumping=1;			/* dump bytecodes? */static int stripping=0;			/* strip debug information? */static char Output[]={ OUTPUT };	/* default output file name */static const char* output=Output;	/* actual output file name */static const char* progname=PROGNAME;	/* actual program name */static void fatal(const char* message){ fprintf(stderr,"%s: %s\n",progname,message); exit(EXIT_FAILURE);}static void cannot(const char* what){ fprintf(stderr,"%s: cannot %s %s: %s\n",progname,what,output,strerror(errno)); exit(EXIT_FAILURE);}static void usage(const char* message){ if (*message=='-')  fprintf(stderr,"%s: unrecognized option " LUA_QS "\n",progname,message); else  fprintf(stderr,"%s: %s\n",progname,message); fprintf(stderr, "usage: %s [options] [filenames].\n" "Available options are:\n" "  -        process stdin\n" "  -l       list\n" "  -o name  output to file " LUA_QL("name") " (default is \"%s\")\n" "  -p       parse only\n" "  -s       strip debug information\n" "  -v       show version information\n" "  --       stop handling options\n", progname,Output); exit(EXIT_FAILURE);}#define	IS(s)	(strcmp(argv[i],s)==0)static int doargs(int argc, char* argv[]){ int i; int version=0; if (argv[0]!=NULL && *argv[0]!=0) progname=argv[0]; for (i=1; i<argc; i++) {  if (*argv[i]!='-')			/* end of options; keep it */   break;  else if (IS("--"))			/* end of options; skip it */  {   ++i;   if (version) ++version;   break;  }  else if (IS("-"))			/* end of options; use stdin */   break;  else if (IS("-l"))			/* list */   ++listing;  else if (IS("-o"))			/* output file */  {   output=argv[++i];   if (output==NULL || *output==0) usage(LUA_QL("-o") " needs argument");   if (IS("-")) output=NULL;  }  else if (IS("-p"))			/* parse only */   dumping=0;  else if (IS("-s"))			/* strip debug information */   stripping=1;  else if (IS("-v"))			/* show version */   ++version;  else					/* unknown option */   usage(argv[i]); } if (i==argc && (listing || !dumping)) {  dumping=0;  argv[--i]=Output; } if (version) {  printf("%s  %s\n",LUA_RELEASE,LUA_COPYRIGHT);  if (version==argc-1) exit(EXIT_SUCCESS); } return i;}#define toproto(L,i) (clvalue(L->top+(i))->l.p)static const Proto* combine(lua_State* L, int n){ if (n==1)  return toproto(L,-1); else {  int i,pc;  Proto* f=luaF_newproto(L);  setptvalue2s(L,L->top,f); incr_top(L);  f->source=luaS_newliteral(L,"=(" PROGNAME ")");  f->maxstacksize=1;  pc=2*n+1;  f->code=luaM_newvector(L,pc,Instruction);  f->sizecode=pc;  f->p=luaM_newvector(L,n,Proto*);  f->sizep=n;  pc=0;  for (i=0; i<n; i++)  {   f->p[i]=toproto(L,i-n-1);   f->code[pc++]=CREATE_ABx(OP_CLOSURE,0,i);   f->code[pc++]=CREATE_ABC(OP_CALL,0,1,1);  }  f->code[pc++]=CREATE_ABC(OP_RETURN,0,1,0);  return f; }}static int writer(lua_State* L, const void* p, size_t size, void* u){ UNUSED(L); return (fwrite(p,size,1,(FILE*)u)!=1) && (size!=0);}struct Smain { int argc; char** argv;};static int pmain(lua_State* L){ struct Smain* s = (struct Smain*)lua_touserdata(L, 1); int argc=s->argc; char** argv=s->argv; const Proto* f; int i; if (!lua_checkstack(L,argc)) fatal("too many input files"); for (i=0; i<argc; i++) {  const char* filename=IS("-") ? NULL : argv[i];  if (luaL_loadfile(L,filename)!=0) fatal(lua_tostring(L,-1)); } f=combine(L,argc); if (listing) luaU_print(f,listing>1); if (dumping) {  FILE* D= (output==NULL) ? stdout : fopen(output,"wb");  if (D==NULL) cannot("open");  lua_lock(L);  luaU_dump(L,f,writer,D,stripping);  lua_unlock(L);  if (ferror(D)) cannot("write");  if (fclose(D)) cannot("close"); } return 0;}int main(int argc, char* argv[]){ lua_State* L; struct Smain s; int i=doargs(argc,argv); argc-=i; argv+=i; if (argc<=0) usage("no input files given"); L=lua_open(); if (L==NULL) fatal("not enough memory for state"); s.argc=argc; s.argv=argv; if (lua_cpcall(L,pmain,&s)!=0) fatal(lua_tostring(L,-1)); lua_close(L); return EXIT_SUCCESS;}