From 998fb17fdc150bc9c6b3d8da0dd37dfd1ae7b39a Mon Sep 17 00:00:00 2001
From: Alexander Harkness <bearbin@gmail.com>
Date: Sun, 24 Nov 2013 14:29:35 +0000
Subject: Moved tolua++

---
 tolua++-1.0.93/src/bin/tolua.c | 169 -----------------------------------------
 1 file changed, 169 deletions(-)
 delete mode 100644 tolua++-1.0.93/src/bin/tolua.c

(limited to 'tolua++-1.0.93/src/bin/tolua.c')

diff --git a/tolua++-1.0.93/src/bin/tolua.c b/tolua++-1.0.93/src/bin/tolua.c
deleted file mode 100644
index cc9f9adcd..000000000
--- a/tolua++-1.0.93/src/bin/tolua.c
+++ /dev/null
@@ -1,169 +0,0 @@
-/* tolua
-** Support code for Lua bindings.
-** Written by Waldemar Celes
-** TeCGraf/PUC-Rio
-** Aug 2003
-** $Id:$
-*/
-
-/* This code is free software; you can redistribute it and/or modify it.
-** The software provided hereunder is on an "as is" basis, and
-** the author has no obligation to provide maintenance, support, updates,
-** enhancements, or modifications.
-*/
-
-#include "tolua++.h"
-
-#include "lua.h"
-#include "lualib.h"
-#include "lauxlib.h"
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-
-
-static void help (void)
-{
- fprintf(stderr,"\n"
-         "usage: tolua++ [options] input_file\n"
-         "\n"
-         "Command line options are:\n"
-         "  -v       : print version information.\n"
-         "  -o  file : set output file; default is stdout.\n"
-         "  -H  file : create include file.\n"
-         "  -n  name : set package name; default is input file root name.\n"
-         "  -p       : parse only.\n"
-         "  -P       : parse and print structure information (for debug).\n"
-         "  -S       : disable support for c++ strings.\n"
-         "  -1       : substract 1 to operator[] index (for compatibility with tolua5).\n"
-         "  -L  file : run lua file (with dofile()) before doing anything.\n"
-         "  -D       : disable automatic exporting of destructors for classes that have\n"
-         "             constructors (for compatibility with tolua5)\n"
-         "  -W       : disable warnings for unsupported features (for compatibility\n"
-         "             with tolua5)\n"
-         "  -C       : disable cleanup of included lua code (for easier debugging)\n"
-         "  -E  value[=value] : add extra values to the luastate\n"
-         "  -t       : export a list of types asociates with the C++ typeid name\n"
-         "  -q       : don't print warnings to the console\n"
-         "  -h       : print this message.\n"
-         "Should the input file be omitted, stdin is assumed;\n"
-         "in that case, the package name must be explicitly set.\n\n"
-        );
-}
-
-static void version (void)
-{
- fprintf(stderr, "%s (written by W. Celes, A. Manzur)\n",TOLUA_VERSION);
-}
-
-static void setfield (lua_State* L, int table, char* f, char* v)
-{
- lua_pushstring(L,f);
- lua_pushstring(L,v);
- lua_settable(L,table);
-}
-
-static void add_extra (lua_State* L, char* value) {
-	int len;
-	lua_getglobal(L, "_extra_parameters");
-	len = luaL_getn(L, -1);
-	lua_pushstring(L, value);
-	lua_rawseti(L, -2, len+1);
-	lua_pop(L, 1);
-};
-
-static void error (char* o)
-{
- fprintf(stderr,"tolua: unknown option '%s'\n",o);
- help();
- exit(1);
-}
-
-int main (int argc, char* argv[])
-{
- #ifdef LUA_VERSION_NUM /* lua 5.1 */
- lua_State* L = luaL_newstate();
- luaL_openlibs(L);
- #else
- lua_State* L = lua_open();
- luaopen_base(L);
- luaopen_io(L);
- luaopen_string(L);
- luaopen_table(L);
- luaopen_math(L);
- luaopen_debug(L);
- #endif
-
- lua_pushstring(L,TOLUA_VERSION); lua_setglobal(L,"TOLUA_VERSION");
- lua_pushstring(L,LUA_VERSION); lua_setglobal(L,"TOLUA_LUA_VERSION");
-
- if (argc==1)
- {
-  help();
-  return 0;
- }
- else
- {
-  int i, t;
-  lua_newtable(L);
-  lua_setglobal(L, "_extra_parameters");
-  lua_newtable(L);
-  lua_pushvalue(L,-1);
-  lua_setglobal(L,"flags");
-  t = lua_gettop(L);
-  for (i=1; i<argc; ++i)
-  {
-   if (*argv[i] == '-')
-   {
-    switch (argv[i][1])
-    {
-     case 'v': version(); return 0;
-     case 'h': help(); return 0;
-     case 'p': setfield(L,t,"p",""); break;
-     case 'P': setfield(L,t,"P",""); break;
-     case 'o': setfield(L,t,"o",argv[++i]); break;
-     case 'n': setfield(L,t,"n",argv[++i]); break;
-     case 'H': setfield(L,t,"H",argv[++i]); break;
-     case 'S': setfield(L,t,"S",""); break;
-     case '1': setfield(L,t,"1",""); break;
-     case 'L': setfield(L,t,"L",argv[++i]); break;
-     case 'D': setfield(L,t,"D",""); break;
-     case 'W': setfield(L,t,"W",""); break;
-     case 'C': setfield(L,t,"C",""); break;
-     case 'E': add_extra(L,argv[++i]); break;
-     case 't': setfield(L,t,"t",""); break;
-     case 'q': setfield(L,t,"q",""); break;
-     default: error(argv[i]); break;
-    }
-   }
-   else
-   {
-    setfield(L,t,"f",argv[i]);
-    break;
-   }
-  }
-  lua_pop(L,1);
- }
-/* #define TOLUA_SCRIPT_RUN */
-#ifndef TOLUA_SCRIPT_RUN
- {
-  int tolua_tolua_open (lua_State* L);
-  tolua_tolua_open(L);
- }
-#else
- {
-  char* p;
-  char  path[BUFSIZ];
-  strcpy(path,argv[0]);
-  p = strrchr(path,'/');
-  if (p==NULL) p = strrchr(path,'\\');
-  p = (p==NULL) ? path : p+1;
-  sprintf(p,"%s","../src/bin/lua/");
-  lua_pushstring(L,path); lua_setglobal(L,"path");
-		strcat(path,"all.lua");
-  lua_dofile(L,path);
- }
-#endif
- return 0;
-}
-- 
cgit v1.2.3