Planet
navi homePPSaboutscreenshotsdownloaddevelopmentforum

source: code/branches/buildsystem/src/tolua/tolua.c @ 1975

Last change on this file since 1975 was 1975, checked in by adrfried, 15 years ago

lua removed and using extern one

  • Property svn:eol-style set to native
File size: 4.4 KB
Line 
1/* tolua
2** Support code for Lua bindings.
3** Written by Waldemar Celes
4** TeCGraf/PUC-Rio
5** Aug 2003
6** $Id:$
7*/
8
9/* This code is free software; you can redistribute it and/or modify it.
10** The software provided hereunder is on an "as is" basis, and
11** the author has no obligation to provide maintenance, support, updates,
12** enhancements, or modifications.
13*/
14
15#include "tolua++.h"
16
17#include "lua.h"
18#include "lualib.h"
19#include "lauxlib.h"
20
21#include <stdio.h>
22#include <stdlib.h>
23#include <string.h>
24
25
26static void help (void)
27{
28 fprintf(stderr,"\n"
29         "usage: tolua++ [options] input_file\n"
30         "\n"
31         "Command line options are:\n"
32         "  -v       : print version information.\n"
33         "  -o  file : set output file; default is stdout.\n"
34         "  -H  file : create include file.\n"
35         "  -n  name : set package name; default is input file root name.\n"
36         "  -p       : parse only.\n"
37         "  -P       : parse and print structure information (for debug).\n"
38         "  -S       : disable support for c++ strings.\n"
39         "  -1       : substract 1 to operator[] index (for compatibility with tolua5).\n"
40         "  -L  file : run lua file (with dofile()) before doing anything.\n"
41         "  -D       : disable automatic exporting of destructors for classes that have\n"
42         "             constructors (for compatibility with tolua5)\n"
43         "  -W       : disable warnings for unsupported features (for compatibility\n"
44         "             with tolua5)\n"
45         "  -C       : disable cleanup of included lua code (for easier debugging)\n"
46         "  -E  value[=value] : add extra values to the luastate\n"
47         "  -t       : export a list of types asociates with the C++ typeid name\n"
48         "  -h       : print this message.\n"
49         "Should the input file be omitted, stdin is assumed;\n"
50         "in that case, the package name must be explicitly set.\n\n"
51        );
52}
53
54static void version (void)
55{
56 fprintf(stderr, "%s (written by W. Celes, A. Manzur)\n",TOLUA_VERSION);
57}
58
59static void setfield (lua_State* L, int table, char* f, char* v)
60{
61 lua_pushstring(L,f);
62 lua_pushstring(L,v);
63 lua_settable(L,table);
64}
65
66static void add_extra (lua_State* L, char* value) {
67        int len;
68        lua_getglobal(L, "_extra_parameters");
69        len = luaL_getn(L, -1);
70        lua_pushstring(L, value);
71        lua_rawseti(L, -2, len+1);
72        lua_pop(L, 1);
73};
74
75static void error (char* o)
76{
77 fprintf(stderr,"tolua: unknown option '%s'\n",o);
78 help();
79 exit(1);
80}
81
82int main (int argc, char* argv[])
83{
84 #ifdef LUA_VERSION_NUM /* lua 5.1 */
85 lua_State* L = luaL_newstate();
86 luaL_openlibs(L);
87 #else
88 lua_State* L = lua_open();
89 luaopen_base(L);
90 luaopen_io(L);
91 luaopen_string(L);
92 luaopen_table(L);
93 luaopen_math(L);
94 luaopen_debug(L);
95 #endif
96
97 lua_pushstring(L,TOLUA_VERSION); lua_setglobal(L,"TOLUA_VERSION");
98 lua_pushstring(L,LUA_VERSION); lua_setglobal(L,"TOLUA_LUA_VERSION");
99
100 if (argc==1)
101 {
102  help();
103  return 0;
104 }
105 else
106 {
107  int i, t;
108  lua_newtable(L);
109  lua_setglobal(L, "_extra_parameters");
110  lua_newtable(L);
111  lua_pushvalue(L,-1);
112  lua_setglobal(L,"flags");
113  t = lua_gettop(L);
114  for (i=1; i<argc; ++i)
115  {
116   if (*argv[i] == '-')
117   {
118    switch (argv[i][1])
119    {
120     case 'v': version(); return 0;
121     case 'h': help(); return 0;
122     case 'p': setfield(L,t,"p",""); break;
123     case 'P': setfield(L,t,"P",""); break;
124     case 'o': setfield(L,t,"o",argv[++i]); break;
125     case 'n': setfield(L,t,"n",argv[++i]); break;
126     case 'H': setfield(L,t,"H",argv[++i]); break;
127     case 'S': setfield(L,t,"S",""); break;
128     case '1': setfield(L,t,"1",""); break;
129     case 'L': setfield(L,t,"L",argv[++i]); break;
130     case 'D': setfield(L,t,"D",""); break;
131     case 'W': setfield(L,t,"W",""); break;
132     case 'C': setfield(L,t,"C",""); break;
133     case 'E': add_extra(L,argv[++i]); break;
134     case 't': setfield(L,t,"t",""); break;
135     default: error(argv[i]); break;
136    }
137   }
138   else
139   {
140    setfield(L,t,"f",argv[i]);
141    break;
142   }
143  }
144  lua_pop(L,1);
145 }
146/* #define TOLUA_SCRIPT_RUN */
147#ifndef TOLUA_SCRIPT_RUN
148 {
149  int tolua_tolua_open (lua_State* L);
150  tolua_tolua_open(L);
151 }
152#else
153 {
154  char* p;
155  char  path[BUFSIZ];
156  strcpy(path,argv[0]);
157  p = strrchr(path,'/');
158  if (p==NULL) p = strrchr(path,'\\');
159  p = (p==NULL) ? path : p+1;
160  sprintf(p,"%s","../src/bin/lua/");
161  lua_pushstring(L,path); lua_setglobal(L,"path");
162                strcat(path,"all.lua");
163  lua_dofile(L,path);
164 }
165#endif
166 return 0;
167}
Note: See TracBrowser for help on using the repository browser.