You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
31 lines
933 B
31 lines
933 B
#include <ruby.h>
|
|
|
|
#include <tqstring.h>
|
|
#include <tqfileinfo.h>
|
|
#include <kinstance.h>
|
|
#include <kstandarddirs.h>
|
|
|
|
int main(int argc, char **argv) {
|
|
KInstance * instance = new KInstance("%{APPNAMELC}");
|
|
TQString appdir = ::locate("data", "%{APPNAMELC}/main.rb", instance);
|
|
delete instance;
|
|
if (appdir.isNull()) {
|
|
qFatal("Error: Can't tqfind \"%{APPNAMELC}/main.rb\"\n");
|
|
}
|
|
TQFileInfo program(appdir);
|
|
|
|
char ** rubyargs = (char **) calloc(argc+4, sizeof(char *));
|
|
rubyargs[0] = strdup(argv[0]);
|
|
rubyargs[1] = strdup("-KU");
|
|
rubyargs[2] = strdup(TQString("-C%1").tqarg(program.dirPath()).latin1());
|
|
rubyargs[3] = strdup(TQString("-I%1").tqarg(program.dirPath()).latin1());
|
|
rubyargs[4] = strdup(program.fileName().latin1());
|
|
for (int i = 1; i < argc; i++) {
|
|
rubyargs[i+4] = argv[i];
|
|
}
|
|
|
|
ruby_init();
|
|
ruby_options(argc+4, rubyargs);
|
|
ruby_run();
|
|
}
|