languages/ruby/app_templates/kapp/app.cpp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

#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();
}