LXR syslinux/com32/lua/src/luac.c

   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
  29static int listing=0;                   /* list bytecodes? */
  30static int dumping=1;                   /* dump bytecodes? */
  31static int stripping=0;                 /* strip debug information? */
  32static char Output[]={ OUTPUT };        /* default output file name */
  33static const char* output=Output;       /* actual output file name */
  34static const char* progname=PROGNAME;   /* actual program name */
  35
  36static void fatal(const char* message)
  37{
  38 fprintf(stderr,"%s: %s\n",progname,message);
  39 exit(EXIT_FAILURE);
  40}
  41
  42static 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
  48static 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
  70static 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
 119static 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
 147static 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
 153struct Smain {
 154 int argc;
 155 char** argv;
 156};
 157
 158static 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
 186int 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}
 201