int main(int argc, char* argv[])
{
lua_State* L;
Proto* f;
int i=doargs(argc,argv);
argc-=i; argv+=i;
if (argc<=0) usage("no input files given",NULL);
L=lua_open();
luaB_opentests(L);
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);
if (dumping)
{
FILE* D=fopen(output,"wb");
if (D==NULL) cannot(output,"open","out");
if (stripping) strip(L,f);
luaU_dump(L,f,writer,D);
if (ferror(D)) cannot(output,"write","out");
fclose(D);
}
lua_close(L);
return 0;
}
int main(int argc, char* argv[])
{
#ifdef _WIN32
HMODULE module = LoadLibrary("lua_shared.dll");
#else
void* module = dlopen("lua_shared.so", RTLD_LAZY);
#endif
if(!luaL_loadfunctions(module, &LuaFunctions, sizeof(LuaFunctions)))
{
printf("Error loading lua_shared\n");
return 1;
}
{
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();
luaL_openlibs(L);
//lua_register(L, "print", glua_print);
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;
}
int main(int argc, char **argv)
{
cago_t *go;
int teql = 100000, tmax = 500000, trep = 10000, ncont;
real mddt = 0.002f, thermdt = 0.02f;
real epav, epdv, rdav, rddv, rmsd;
av_t avep[1], avrmsd[1];
doargs(argc, argv);
if ((go = cago_open(fnpdb, kb, ka, kd1, kd3, nbe, nbc, rcc,
PDB_CONTACT_HEAVY, 4, CAGO_VERBOSE)) == NULL) {
fprintf(stderr, "cannot initialize from %s\n", fnpdb);
return 1;
}
cago_initmd(go, 1, 0.1, 0.0);
rmsd = cago_rmsd(go, go->x, NULL);
ncont = cago_ncontacts(go, go->x, 1.2, NULL, NULL);
printf("%s n %d, tp %.3f, tps %.3f, epot %g, %g (ref), rmsd %g, cont %d/%d\n",
fnpdb, go->n, tp, tps, go->epot, go->epotref,
rmsd, ncont, go->ncont);
cago_mdrun(go, mddt, thermdt, tps, tp, avep, avrmsd,
teql, tmax, trep);
epav = av_getave(avep);
epdv = av_getdev(avep);
rdav = av_getave(avrmsd);
rddv = av_getdev(avrmsd);
printf("tp %.3f, tps %.3f, epot %.2f(%.2f), rmsd %.4f(%.4f)\n",
tp, tps, epav, epdv, rdav, rddv);
cago_writepos(go, go->x, go->v, "cago.pos");
cago_close(go);
return 0;
}
int main(int argc, char **argv)
{
(void) argtp;
doargs(argc, argv);
run();
return 0;
}
int main(int argc, char* argv[]) {
const char *input_luac, *opcodes_def;
int i;
lua_State* L;
Proto* f;
FILE* D;
gargc = argc;
gargv = argv;
i = doargs(argc,argv);
argc -= i;
argv += i;
if (argc < 1) {
usage("need 1 arguments at least", NULL);
}
L = lua_open();
glstate = L;
//luaB_opentests(L);
input_luac = argv[0];
if (luaL_loadfile(L, input_luac) != 0) {
fatal(lua_tostring(L, -1));
}
f = toproto(L, -1);
if (cmp_gen_lua || cmp_gen_luac) {
Proto* input_proto = f;
Proto* allopcodes_proto;
const char* buff = cmp_gen_lua ? allopcodes_lua : allopcodes_luac;
int bufflen = cmp_gen_lua ? allopcodes_lua_len : allopcodes_luac_len;
if (luaL_loadbuffer(L, buff, bufflen, "allopcodes.lua") != 0) {
fatal(lua_tostring(L, -1));
}
allopcodes_proto = toproto(L, -1);
CompareAndGenOpcodes(input_proto, allopcodes_proto);
} else {
opcodes_def = (argv[1]) ? (argv[1]) : OPCODES_TXT;
if (!generateOp2op(opcodes_def)) {
fprintf(stderr, "opcodes.txt file: %s format error!", opcodes_def);
return EXIT_FAILURE;
}
swapOpCode(f);
D = (output == NULL) ? stdout : fopen(output, "wb");
if (D == NULL) cannot("open", output);
lua_lock(L);
luaU_dump(L, f, writer, D, 0);
lua_unlock(L);
if (ferror(D)) cannot("write", output);
if (fclose(D)) cannot("close", output);
printf("%s generated!\n", output);
}
lua_close(L);
return EXIT_SUCCESS;
}
int luac_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;
}
int luac_main(int argc, char* argv[])
{
lua_State* L;
int i=doargs(argc,argv);
argc-=i; argv+=i;
if (argc<=0) usage("no input files given");
L=luaL_newstate();
if (L==NULL) fatal("cannot create state: not enough memory");
lua_pushcfunction(L,&pmain);
lua_pushinteger(L,argc);
lua_pushlightuserdata(L,argv);
if (lua_pcall(L,2,0,0)!=LUA_OK) fatal(lua_tostring(L,-1));
lua_close(L);
return EXIT_SUCCESS;
}
//initialize and process command line parameters or user input
int main(int argc, char *argv[]) {
printf("\n%s %s, (C) 2008-2011 AJ Siemelink\n", ExeName, Version);
printf("single threaded, no hashing, mode=%s, extract=%s, count=%s\n",
PERFT_NAME,
EXTRACT_NAME,
COUNT_NAME
);
Bitboard::init();
_board.setstartpos();
//arg-mode
if (argc>=2) return doargs(argc, argv);
//interactive mode
return doinput();
}
int main(int argc, char **argv)
{
ising_t *is;
doargs(argc, argv);
is = is2_open(L);
/* read in the density of states */
die_if (is2_loadlogdos(is, NULL) != 0,
"no dos for the %dx%d model\n", L, L);
run(is, nsteps);
is2_close(is);
//mtsave(NULL);
return 0;
}
int main(int argc, char* argv[])
{
LuaThread* L;
int i=doargs(argc,argv);
argc-=i; argv+=i;
if (argc<=0) usage("no input files given");
L=luaL_newstate();
if (L==NULL) fatal("cannot create state: not enough memory");
L->stack_.push(pmain);
lua_pushinteger(L,argc);
L->stack_.push( LuaValue::Pointer(argv) );
if (lua_pcall(L,2,0,0)!=LUA_OK) fatal(lua_tostring(L,-1));
lua_close(L);
return EXIT_SUCCESS;
}
int
main(int argc, char *argv[])
{
initprogname(argc > 0 ? argv[0] : NULL);
doargs(argc, argv);
correctsize = (off_t) (numkeys*sizeof(int));
setdir();
genkeys();
sort();
validate();
complainx("Succeeded.");
unsetdir();
return 0;
}
int main(int argc, char **argv)
{
avp_t *avp;
//hist_t *hs;
//int row, ver;
//unsigned fflags;
//double vmin, vmax, vdel;
doargs(argc, argv);
die_if ((avp = avp_load(fnavp)) == NULL, "cannot load avp from %s\n", fnavp);
//histgetinfo(fnhis, &row, &vmin, &vmax, &vdel, &ver, &fflags);
//hs = hs_open(1, vmin, vmax, vdel);
//die_if (hs_load(hs, fnhis, HIST_VERBOSE) != 0, "cannot load histogram from %s\n", fnhis);
output(avp, "fe.dat");
//hs_close(hs);
avp_close(avp);
return 0;
}
int main(int argc, char* argv[])
#endif // #if LUA_COMPILER
{
lua_State* L;
struct Smain s;
int test=1;
target.little_endian=*(char*)&test;
target.sizeof_int=sizeof(int);
target.sizeof_strsize_t=sizeof(strsize_t);
target.sizeof_lua_Number=sizeof(lua_Number);
target.lua_Number_integral=(((lua_Number)0.5)==0);
target.is_arm_fpa=0;
#if LUA_COMPILER
int f=setjmp(ebuf);
if (f == 0) {
#endif
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);
#if LUA_COMPILER
}
/*
* If we're using luac on the MCU,
* set these variables to their
* default value before return;
*/
listing=0; /* list bytecodes? */
dumping=1; /* dump bytecodes? */
stripping=0; /* strip debug information? */
output=Output; /* actual output file name */
progname=PROGNAME; /* actual program name */
#endif
return EXIT_SUCCESS;
}
int main(int argc, const char* argv[])
{
Proto** P,*tf;
int i=doargs(argc,argv);
argc-=i; argv+=i;
if (argc<=0) usage("no input files given",NULL);
L=lua_open(0);
P=luaM_newvector(L,argc,Proto*);
for (i=0; i<argc; i++)
P[i]=load(IS("-")? NULL : argv[i]);
tf=combine(P,argc);
if (dumping) luaU_optchunk(tf);
if (listing) luaU_printchunk(tf);
if (testing) luaU_testchunk(tf);
if (dumping)
{
if (stripping) strip(tf);
luaU_dumpchunk(tf,efopen(output,"wb"));
}
return 0;
}
int EiC_run(int argc, char **argv)
{
char * n2 = doargs(argc,argv);
int h = EiC_interActive;
code_t code;
EiC_interActive = 0; /* turn off interactive mode */
code = EiC_ENV->CODE;
EiC_ENV->CODE.nextinst = EiC_ENV->CODE.binst = 0;
EiC_ENV->CODE.inst = NULL;
EiC_ENV->CODE.prev = &code;
/*sp = EiC_ENV->sp;*/
EiC_prolineString(n2);
runEiC();
if(!EiC_Include_file(argv[0],1))
return 0;
else
runEiC();
if(doEntry())
runEiC();
/* rem: runEiC will call free_env_code */
EiC_ENV->CODE.prev = NULL;
EiC_ENV->CODE = code;
/*EiC_ENV->sp = sp;*/
xfree(n2);
n2 = NULL; //maks
EiC_interActive = h;
return 1;
}
int main(int argc, char* argv[])
{
lua_State* L;
struct Smain s;
int test=1;
target.little_endian=*(char*)&test;
target.sizeof_int=sizeof(int);
target.sizeof_strsize_t=sizeof(strsize_t);
target.sizeof_lua_Number=sizeof(lua_Number);
target.lua_Number_integral=(((lua_Number)0.5)==0);
target.is_arm_fpa=0;
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;
}
int main(int argc, char* argv[])
{
int oargc;
char** oargv;
char tmp[256];
lua_State* L;
Proto* f;
int i;
oargc = argc;
oargv = argv;
LDS2 = NULL;
i=doargs(argc,argv);
argc-=i; argv+=i;
if (argc<=0) usage("no input files given",NULL);
L=lua_open();
glstate = L;
luaB_opentests(L);
for (i=0; i<argc; i++)
{
const char* filename=IS("-") ? NULL : argv[i];
if (luaL_loadfile(L,filename)!=0) fatal(lua_tostring(L,-1));
}
if (disassemble) {
printf("; This file has been disassembled using luadec " VERSION " by sztupy (http://winmo.sztupy.hu)\n");
printf("; Command line was: ");
} else {
printf("-- Decompiled using luadec " VERSION " by sztupy (http://winmo.sztupy.hu)\n");
printf("-- Command line was: ");
}
for (i=1; i<oargc; i++) {
printf("%s ",oargv[i]);
}
printf("\n\n");
f=combine(L,argc);
if (guess_locals) {
luaU_guess_locals(f,0);
}
if (lds2) {
int i,i2;
for (i=-1; i<f->sizep; i++) {
Proto * x = f;
if (i!=-1) {
x = f->p[i];
}
for (i2=0; i2<x->sizelocvars; i2++) {
if (i2!=0) printf(",");
printf("%d-%d",x->locvars[i2].startpc,x->locvars[i2].endpc);
}
printf(";");
}
return 0;
}
if (functions) {
if (disassemble) {
sprintf(tmp,"%d",functions);
luaU_disassemble(f,debugging,functions,tmp);
} else {
luaU_decompileFunctions(f, debugging, functions);
}
}
else {
if (disassemble) {
sprintf(tmp,"");
luaU_disassemble(f,debugging,0,tmp);
} else {
luaU_decompile(f, debugging);
}
}
return 0;
}
void main(int argc, char *argv[])
{
doargs(argc,argv);
dosphere();
exit(0);
}
int main(int argc, char* argv[]) {
lua_State* L;
const char *destfile, *destnum, *srcfile, *srcnum;
Proto *fdestroot, *fsrcroot, *fparent, *fdest, *fsrc;
int cdest, csrc;
char *realdestnum = NULL, *realsrcnum = NULL;
FILE* D;
int diff, i;
gargc = argc;
gargv = argv;
i = doargs(argc,argv);
argc -= i;
argv += i;
if (printfuncnum && argc < 1) {
usage("need 1 arguments for -pn at least", NULL);
}
if (argc < 4) {
usage("need 4 arguments at least", NULL);
}
L = lua_open();
glstate = L;
luaB_opentests(L);
destfile = argv[0];
destnum = argv[1];
if (luaL_loadfile(L, destfile) != 0) {
fatal(lua_tostring(L, -1));
}
fdestroot = toproto(L, -1);
if (printfuncnum) {
printf("%d\n",0);
printFuncStructure(fdestroot, " 0_");
lua_close(L);
return EXIT_SUCCESS;
}
realdestnum = (char*)calloc(strlen(destnum)+1, sizeof(char));
fparent = findParentFunction(fdestroot, destnum, &cdest, realdestnum);
if (cdest < 0) {
if (realdestnum) { free(realdestnum); realdestnum = NULL; }
fatal("cannot find dest function");
}
if (fparent == NULL) {
fdest = fdestroot;
} else {
fdest = fparent->p[cdest];
}
srcfile = argv[2];
srcnum = argv[3];
if (luaL_loadfile(L, srcfile) != 0) {
fatal(lua_tostring(L, -1));
}
fsrcroot = toproto(L, -1);
realsrcnum = (char*)calloc(strlen(srcnum)+1, sizeof(char));
fsrc = findParentFunction(fsrcroot, srcnum, &csrc, realsrcnum);
if (csrc < 0) {
if (realdestnum) { free(realdestnum); realdestnum = NULL; }
if (realsrcnum) { free(realsrcnum); realsrcnum = NULL; }
fatal("cannot find src function");
}
if (fsrc == NULL) {
fsrc = fsrcroot;
} else {
fsrc = fsrc->p[csrc];
}
if (!replace_sub){
if (fparent == NULL) {
if (realdestnum) { free(realdestnum); realdestnum = NULL; }
if (realsrcnum) { free(realsrcnum); realsrcnum = NULL; }
fatal("cannot use root as dest function");
}
fprintf(stderr, "Replacing %s %s with %s %s ...\n", destfile, realdestnum, srcfile, realsrcnum);
diff = replaceFunction(fparent, cdest, fsrc);
fprintf(stderr, "1 function replaced ok.\n");
} else {
fprintf(stderr, "Replacing sub functions of %s %s with those of %s %s ...\n", destfile, realdestnum, srcfile, realsrcnum);
diff = replaceSubFunctions(fdest, fsrc);
fprintf(stderr, "%d function replaced ok.", MIN(fdest->sizep, fsrc->sizep));
if (fdest->sizep != fsrc->sizep) {
fprintf(stderr, " The dest has %d sub functions, but the src has %d . Please have a check.\n", fdest->sizep, fsrc->sizep);
} else {
fprintf(stderr, "\n");
}
}
if (realdestnum) { free(realdestnum); realdestnum = NULL; }
if (realsrcnum) { free(realsrcnum); realsrcnum = NULL; }
if (strict == 1 && diff > 0){
fatal("strip mode on and incompatible functions found, stop writing output.");
}
D = (output == NULL) ? stdout : fopen(output, "wb");
if (D == NULL) cannot("open");
lua_lock(L);
luaU_dump(L, fdestroot, writer, D, 0);
lua_unlock(L);
if (ferror(D)) cannot("write");
if (fclose(D)) cannot("close");
printf("%s generated!\n", output);
lua_close(L);
return EXIT_SUCCESS;
}
int main(int argc, char **argv)
{
doargs(argc, argv);
run();
return 0;
}
