1
/***************************************************************************
2
qtscript.cpp - QtScript ruby extension
5
copyright : (C) 2008 by Richard Dale
6
email : richard.j.dale@gmail.com
7
***************************************************************************/
9
/***************************************************************************
11
* This program is free software; you can redistribute it and/or modify *
12
* it under the terms of the GNU General Public License as published by *
13
* the Free Software Foundation; either version 2 of the License, or *
14
* (at your option) any later version. *
16
***************************************************************************/
24
#include <smoke/qtscript_smoke.h>
30
static VALUE getClassList(VALUE /*self*/)
32
VALUE classList = rb_ary_new();
33
for (int i = 1; i <= qtscript_Smoke->numClasses; i++) {
34
if (qtscript_Smoke->classes[i].className && !qtscript_Smoke->classes[i].external)
35
rb_ary_push(classList, rb_str_new2(qtscript_Smoke->classes[i].className));
41
resolve_classname_qtscript(smokeruby_object * o)
43
return qtruby_modules[o->smoke].binding->className(o->classId);
46
extern TypeHandler QtScript_handlers[];
50
VALUE qtscript_module;
51
VALUE qtscript_internal_module;
53
static QtRuby::Binding binding;
58
init_qtscript_Smoke();
60
binding = QtRuby::Binding(qtscript_Smoke);
62
smokeList << qtscript_Smoke;
64
QtRubyModule module = { "QtScript", resolve_classname_qtscript, 0, &binding };
65
qtruby_modules[qtscript_Smoke] = module;
67
install_handlers(QtScript_handlers);
69
qtscript_module = rb_define_module("QtScript");
70
qtscript_internal_module = rb_define_module_under(qtscript_module, "Internal");
72
rb_define_singleton_method(qtscript_internal_module, "getClassList", (VALUE (*) (...)) getClassList, 0);
74
rb_require("qtscript/qtscript.rb");
75
rb_funcall(qtscript_internal_module, rb_intern("init_all_classes"), 0);