init
This commit is contained in:
aixianling
386
Gateway/srvlib/3rd/tolua++/tolua.cc
Normal file
386
Gateway/srvlib/3rd/tolua++/tolua.cc
Normal file
@@ -0,0 +1,386 @@
|
||||
#ifdef _MSC_VER
|
||||
/* tolua
|
||||
** Support code for Lua bindings.
|
||||
** Written by Waldemar Celes
|
||||
** TeCGraf/PUC-Rio
|
||||
** Aug 2003
|
||||
** $Id: tolua.c 1141 2006-05-18 23:58:45Z lindquist $
|
||||
*/
|
||||
|
||||
/* 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.
|
||||
*/
|
||||
|
||||
|
||||
extern "C"
|
||||
{
|
||||
#include "tolua++.h"
|
||||
#include "toluabind.h"
|
||||
#include "lua.h"
|
||||
#include "lualib.h"
|
||||
#include "lauxlib.h"
|
||||
}
|
||||
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
#include <string.h>
|
||||
|
||||
//#include <vld.h>
|
||||
|
||||
#include <afx.h>
|
||||
#include <afxwin.h> // MFC 核心组件和标准组件
|
||||
#include <afxext.h> // MFC 扩展
|
||||
|
||||
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"
|
||||
" -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);
|
||||
}
|
||||
|
||||
|
||||
#include <stdlib.h>
|
||||
#include <stdio.h>
|
||||
#include "crc32c.h"
|
||||
|
||||
|
||||
__time64_t GetDirTime(CString strFullPath)
|
||||
{
|
||||
//查找指定目录大小的归递函数
|
||||
__time64_t dir_t,sub_t;
|
||||
CFileFind finder;
|
||||
|
||||
dir_t=sub_t=0;
|
||||
strFullPath+= "\\*.*";
|
||||
if (finder.FindFile(strFullPath))
|
||||
{
|
||||
while (1)
|
||||
{
|
||||
BOOL bFound;
|
||||
|
||||
bFound=finder.FindNextFile();
|
||||
if (finder.IsDirectory())
|
||||
{
|
||||
if (!finder.IsDots())
|
||||
{
|
||||
sub_t=GetDirTime(finder.GetFilePath());
|
||||
dir_t+=sub_t;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
CFile file;
|
||||
CFileStatus state;
|
||||
if (file.Open(finder.GetFilePath(),CFile::modeRead))
|
||||
{
|
||||
file.GetStatus(state);
|
||||
dir_t += state.m_mtime.GetTime();
|
||||
file.Close();
|
||||
}
|
||||
}
|
||||
if (bFound==FALSE)
|
||||
break;
|
||||
}
|
||||
}
|
||||
finder.Close();
|
||||
return dir_t;
|
||||
|
||||
}
|
||||
|
||||
bool get_crc(const char* f, unsigned int* crc)
|
||||
{
|
||||
FILE* inf;
|
||||
inf = fopen(f, "r");
|
||||
if (!inf)
|
||||
{
|
||||
fprintf(stderr, "file is not exists!%s", f);
|
||||
return false;
|
||||
}
|
||||
char inbuf[512 * 1024];
|
||||
size_t inl;
|
||||
inl = fread(inbuf, 1, sizeof(inbuf), inf);
|
||||
if (inl >= sizeof(inbuf))
|
||||
{
|
||||
fprintf(stderr, "big file!%s\n", f);
|
||||
fclose(inf);
|
||||
return false;
|
||||
}
|
||||
|
||||
*crc = leveldb::crc32c::Value(inbuf, inl);
|
||||
fclose(inf);
|
||||
return true;
|
||||
}
|
||||
|
||||
unsigned int crc[1024];
|
||||
unsigned int newcrc[1024];
|
||||
size_t fc = 0;
|
||||
|
||||
void check_chg(const char* f)
|
||||
{
|
||||
// array crc 不用初始化了
|
||||
fc = 0;
|
||||
FILE* cf = fopen("cf", "rb");
|
||||
size_t cl = 0;
|
||||
if (cf)
|
||||
{
|
||||
cl = fread(crc, sizeof(unsigned int), sizeof(crc)/sizeof(crc[0]), cf);
|
||||
fclose(cf);
|
||||
}
|
||||
|
||||
if (get_crc(f, newcrc)) fc++;
|
||||
|
||||
FILE* inf;
|
||||
inf = fopen(f, "r");
|
||||
if (!inf)
|
||||
{
|
||||
fprintf(stderr, "file is not exists!%s", f);
|
||||
exit(1);
|
||||
}
|
||||
|
||||
char src[10 * 1024];
|
||||
size_t sl = fread(src, 1, sizeof(src), inf);
|
||||
src[sl] = 0;
|
||||
fclose(inf);
|
||||
|
||||
const char* line = src;
|
||||
char* lpos = (char*)strchr(line, '\n');
|
||||
while(*line)
|
||||
{
|
||||
if (lpos) *lpos = 0;
|
||||
if (*line)
|
||||
{
|
||||
if (strncmp(line, "$cfile", 6) == 0 || strncmp(line, "$pfile", 6) == 0)
|
||||
{
|
||||
const char* l = strchr(line, '"');
|
||||
if (l)
|
||||
{
|
||||
char* r = (char*)strchr(l+1, '"');
|
||||
const char* fn = l;
|
||||
if (r) *r = 0;
|
||||
if (r && get_crc(fn+1, newcrc + fc)) fc++;
|
||||
}
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
|
||||
if(!lpos) break;
|
||||
line = lpos + 1;
|
||||
lpos = (char*)strchr(line, '\n');
|
||||
}
|
||||
|
||||
if (fc == cl && fc > 0)
|
||||
{
|
||||
bool chg = false;
|
||||
for (size_t i = 0; i < fc; i++)
|
||||
{
|
||||
if (newcrc[i] != crc[i])
|
||||
{
|
||||
fprintf(stderr, "%d,%d,%d",i, newcrc[i], crc[i]);
|
||||
chg = true;
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
if (!chg)
|
||||
{
|
||||
fprintf(stderr, "no change!");
|
||||
exit(0);// no change
|
||||
}
|
||||
}
|
||||
|
||||
// 新的crc写入文件
|
||||
cf = fopen("cf", "wb");
|
||||
if (cf)
|
||||
{
|
||||
size_t wc = fwrite(newcrc, sizeof(unsigned int), fc, cf);
|
||||
fclose(cf);
|
||||
if (wc != fc)
|
||||
{
|
||||
fprintf(stderr, "file write error!");
|
||||
}
|
||||
}
|
||||
fprintf(stderr, "file change!,%d,%d..", fc, cl);
|
||||
return;
|
||||
}
|
||||
|
||||
const char* check_dir = "..";
|
||||
const char* save_file = "c:\\cf";
|
||||
|
||||
void check_dir_chg()
|
||||
{
|
||||
FILE* cf = fopen(save_file, "rb");
|
||||
__time64_t rt = 0;
|
||||
if (cf)
|
||||
{
|
||||
fread(&rt, sizeof(__time64_t), 1, cf);
|
||||
fclose(cf);
|
||||
}
|
||||
|
||||
__time64_t nt = GetDirTime(check_dir);
|
||||
if (nt == rt)
|
||||
{
|
||||
fprintf(stderr, "no change!");
|
||||
exit(0);// no change
|
||||
}
|
||||
fprintf(stderr, "file change!,%lld,%lld..", rt, nt);
|
||||
return;
|
||||
}
|
||||
|
||||
void save_time()
|
||||
{
|
||||
__time64_t nt = GetDirTime(check_dir);
|
||||
FILE* cf = fopen(save_file, "wb");
|
||||
if (cf)
|
||||
{
|
||||
size_t wc = fwrite(&nt, sizeof(__time64_t), 1, cf);
|
||||
fclose(cf);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
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;
|
||||
default: error(argv[i]); break;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
setfield(L,t,"f",argv[i]);
|
||||
// revision:zac in 2012-1-5
|
||||
check_dir_chg();
|
||||
break;
|
||||
}
|
||||
}
|
||||
lua_pop(L,1);
|
||||
}
|
||||
#define TOLUA_SCRIPT_RUN
|
||||
#ifndef TOLUA_SCRIPT_RUN
|
||||
{
|
||||
int tolua_tolua_open (lua_State* L);
|
||||
tolua_tolua_open(L);
|
||||
|
||||
save_time();
|
||||
}
|
||||
#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","lua/");
|
||||
lua_pushstring(L,path);
|
||||
lua_setglobal(L,"path");
|
||||
strcat(path,"all.lua");
|
||||
lua_dofile(L,path);
|
||||
|
||||
save_time();
|
||||
}
|
||||
#endif
|
||||
return 0;
|
||||
}
|
||||
#endif
|
||||
Reference in New Issue
Block a user