486 lines
12 KiB
C++
486 lines
12 KiB
C++
/* main.cpp */
|
|
|
|
|
|
#include <QtGui>
|
|
#include <QtUiTools>
|
|
#include <QGLWidget>
|
|
#include <QtMultimedia/QSound>
|
|
#include <chicken.h>
|
|
#include <assert.h>
|
|
|
|
|
|
#define ___safe
|
|
#define ___bool int
|
|
#define ___out
|
|
|
|
|
|
static int qt_char_encoding = 1; // 0=latin1, 1=utf8, 2=ascii
|
|
|
|
|
|
class SimpleReceiver: public QObject
|
|
{
|
|
Q_OBJECT
|
|
|
|
void *thunk;
|
|
|
|
public:
|
|
|
|
SimpleReceiver(char *name, C_word proc) {
|
|
setObjectName(name);
|
|
thunk = CHICKEN_new_gc_root();
|
|
CHICKEN_gc_root_set(thunk, proc);
|
|
}
|
|
|
|
~SimpleReceiver() { CHICKEN_delete_gc_root(thunk); }
|
|
|
|
public slots:
|
|
void slot() { C_callback(CHICKEN_gc_root_ref(thunk), 0); }
|
|
};
|
|
|
|
|
|
class GLWidget: public QGLWidget
|
|
{
|
|
void *thunk;
|
|
|
|
public:
|
|
GLWidget(char *name, QWidget *parent, C_word proc) : QGLWidget(parent) {
|
|
setObjectName(name);
|
|
thunk = CHICKEN_new_gc_root();
|
|
CHICKEN_gc_root_set(thunk, proc);
|
|
}
|
|
|
|
~GLWidget() { CHICKEN_delete_gc_root(thunk); }
|
|
|
|
protected:
|
|
// Set up the rendering context, define display lists etc.:
|
|
void initializeGL() { C_save(C_fix(0)); C_callback(CHICKEN_gc_root_ref(thunk), 1); }
|
|
// setup viewport, projection etc.:
|
|
void resizeGL(int w, int h) { C_save(C_fix(1)); C_save(C_fix(w)); C_save(C_fix(h)); C_callback(CHICKEN_gc_root_ref(thunk), 3); }
|
|
// draw the scene:
|
|
void paintGL() { C_save(C_fix(2)); C_callback(CHICKEN_gc_root_ref(thunk), 1); }
|
|
};
|
|
|
|
|
|
#define qtobject QObject *
|
|
#define qtapplication QApplication *
|
|
#define qtreceiver SimpleReceiver *
|
|
#define qtwidget QWidget *
|
|
#define qtpixmap QPixmap *
|
|
#define qttimer QTimer *
|
|
#define qtsound QSound *
|
|
#define qttextedit QTextEdit *
|
|
#define qtaction QAction *
|
|
|
|
extern "C" {
|
|
#include "prototypes.h"
|
|
}
|
|
|
|
|
|
#include "main.moc"
|
|
|
|
|
|
QApplication *qt_init()
|
|
{
|
|
QApplication *app = new QApplication(C_main_argc, C_main_argv);
|
|
QObject::connect(app, SIGNAL(lastWindowClosed()), app, SLOT(quit()));
|
|
return qApp;
|
|
}
|
|
|
|
|
|
QWidget *qt_create(char *string, QWidget *parent)
|
|
{
|
|
QUiLoader loader;
|
|
QBuffer buf;
|
|
buf.open(QBuffer::ReadWrite);
|
|
buf.write(string);
|
|
buf.seek(0);
|
|
QWidget *w = loader.load(&buf, parent);
|
|
buf.close();
|
|
return w;
|
|
}
|
|
|
|
|
|
___bool qt_run(___bool once)
|
|
{
|
|
if(once) {
|
|
qApp->processEvents();
|
|
return 1;
|
|
}
|
|
else return qApp->exec();
|
|
}
|
|
|
|
|
|
void qt_show(QWidget *w) { w->show(); }
|
|
void qt_hide(QWidget *w) { w->show(); }
|
|
void qt_deleteobject(QObject *o) { delete o; }
|
|
void qt_deletepixmap(QPixmap *o) { delete o; }
|
|
___bool qt_connect(QWidget *w1, char *sig, QObject *w2, char *slot) { return bool(QObject::connect(w1, sig, w2, slot)); }
|
|
QObject *qt_find(QObject *parent, char *name) { return parent->findChild<QObject *>(QString(name)); }
|
|
QObject *qt_receiver(char *name, C_word proc) { return new SimpleReceiver(name, proc); }
|
|
|
|
|
|
char *qstrdata(const QString &str)
|
|
{
|
|
static char *strbuf = NULL;
|
|
static int strbuflen = 0;
|
|
int len = str.size();
|
|
|
|
if(strbuf == NULL || strbuflen < len) {
|
|
strbuf = (char *)realloc(strbuf, strbuflen = len * 2);
|
|
assert(strbuf != NULL);
|
|
}
|
|
|
|
char *ptr;
|
|
|
|
switch(qt_char_encoding) {
|
|
|
|
case 1: ptr = str.toLatin1().data(); break;
|
|
case 2: ptr = str.toUtf8().data(); break;
|
|
case 3: ptr = str.toLatin1().data(); break;
|
|
}
|
|
|
|
memcpy(strbuf, ptr, len + 1);
|
|
return strbuf;
|
|
}
|
|
|
|
|
|
int qchrdata(const QChar chr)
|
|
{
|
|
switch(qt_char_encoding) {
|
|
|
|
case 1: return chr.toLatin1(); break;
|
|
case 2: return chr.unicode(); break;
|
|
default: return chr.toLatin1(); break;
|
|
}
|
|
}
|
|
|
|
|
|
qtpixmap qt_pixmap(char *filename)
|
|
{
|
|
QPixmap *px = new QPixmap(filename);
|
|
|
|
if(px->isNull()) {
|
|
delete px;
|
|
return 0;
|
|
}
|
|
|
|
return px;
|
|
}
|
|
|
|
|
|
int qt_message(char *caption, char *text, QWidget *parent, char *b0, char *b1, char *b2)
|
|
{
|
|
return QMessageBox::information(parent, caption, text, b0, b1, b2);
|
|
}
|
|
|
|
|
|
#define propsetter(name, type) \
|
|
___bool qt_set ## name ## property(QWidget *w, char *prop, type val) \
|
|
{ \
|
|
const QMetaObject *mo = w->metaObject(); \
|
|
int i = mo->indexOfProperty(prop); \
|
|
if(i == -1) return 0; \
|
|
else return mo->property(i).write(w, val); \
|
|
}
|
|
|
|
|
|
propsetter(string, char *)
|
|
propsetter(bool, ___bool)
|
|
propsetter(int, int)
|
|
propsetter(float, double)
|
|
propsetter(char, char)
|
|
|
|
|
|
___bool qt_setpixmapproperty(QWidget *w, char *prop, qtpixmap val)
|
|
{
|
|
const QMetaObject *mo = w->metaObject();
|
|
int i = mo->indexOfProperty(prop);
|
|
if(i == -1) return 0;
|
|
else return mo->property(i).write(w, *val);
|
|
}
|
|
|
|
|
|
___bool qt_setpointproperty(QWidget *w, char *prop, int *val)
|
|
{
|
|
const QMetaObject *mo = w->metaObject();
|
|
int i = mo->indexOfProperty(prop);
|
|
if(i == -1) return 0;
|
|
else {
|
|
switch(mo->property(i).type()) {
|
|
case QVariant::Point: return mo->property(i).write(w, QPoint(val[ 0 ], val[ 1 ]));
|
|
case QVariant::Size: return mo->property(i).write(w, QSize(val[ 0 ], val[ 1 ]));
|
|
default: return false;
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
___bool qt_setpointfproperty(QWidget *w, char *prop, double *val)
|
|
{
|
|
const QMetaObject *mo = w->metaObject();
|
|
int i = mo->indexOfProperty(prop);
|
|
if(i == -1) return 0;
|
|
else {
|
|
switch(mo->property(i).type()) {
|
|
case QVariant::PointF: return mo->property(i).write(w, QPointF(val[ 0 ], val[ 1 ]));
|
|
case QVariant::SizeF: return mo->property(i).write(w, QSizeF(val[ 0 ], val[ 1 ]));
|
|
default: return false;
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
___bool qt_setrectproperty(QWidget *w, char *prop, int *val)
|
|
{
|
|
const QMetaObject *mo = w->metaObject();
|
|
int i = mo->indexOfProperty(prop);
|
|
if(i == -1) return 0;
|
|
else return mo->property(i).write(w, QRect(val[ 0 ], val[ 1 ], val[ 2 ], val[ 3 ]));
|
|
}
|
|
|
|
|
|
___bool qt_setrectfproperty(QWidget *w, char *prop, double *val)
|
|
{
|
|
const QMetaObject *mo = w->metaObject();
|
|
int i = mo->indexOfProperty(prop);
|
|
if(i == -1) return 0;
|
|
else return mo->property(i).write(w, QRectF(val[ 0 ], val[ 1 ], val[ 2 ], val[ 3 ]));
|
|
}
|
|
|
|
|
|
char *qt_getstringproperty(QWidget *w, char *prop)
|
|
{
|
|
const QMetaObject *mo = w->metaObject();
|
|
int i = mo->indexOfProperty(prop);
|
|
return qstrdata(mo->property(i).read(w).toString());
|
|
}
|
|
|
|
|
|
int qt_getcharproperty(QWidget *w, char *prop)
|
|
{
|
|
const QMetaObject *mo = w->metaObject();
|
|
int i = mo->indexOfProperty(prop);
|
|
return qchrdata(mo->property(i).read(w).toChar());
|
|
}
|
|
|
|
|
|
int qt_getintproperty(QWidget *w, char *prop)
|
|
{
|
|
const QMetaObject *mo = w->metaObject();
|
|
int i = mo->indexOfProperty(prop);
|
|
return mo->property(i).read(w).toInt();
|
|
}
|
|
|
|
|
|
double qt_getfloatproperty(QWidget *w, char *prop)
|
|
{
|
|
const QMetaObject *mo = w->metaObject();
|
|
int i = mo->indexOfProperty(prop);
|
|
return mo->property(i).read(w).toDouble();
|
|
}
|
|
|
|
|
|
___bool qt_getboolproperty(QWidget *w, char *prop)
|
|
{
|
|
const QMetaObject *mo = w->metaObject();
|
|
int i = mo->indexOfProperty(prop);
|
|
return mo->property(i).read(w).toBool();
|
|
}
|
|
|
|
|
|
qtpixmap qt_getpixmapproperty(QWidget *w, char *prop)
|
|
{
|
|
const QMetaObject *mo = w->metaObject();
|
|
int i = mo->indexOfProperty(prop);
|
|
return new QPixmap(mo->property(i).read(w).value<QPixmap>());
|
|
}
|
|
|
|
|
|
C_word qt_getpointfproperty(QWidget *w, char *prop, C_word pt)
|
|
{
|
|
const QMetaObject *mo = w->metaObject();
|
|
int i = mo->indexOfProperty(prop);
|
|
QPointF qpt = mo->property(i).read(w).toPointF();
|
|
*((double *)C_data_pointer(C_block_item(pt, 1))) = qpt.x();
|
|
((double *)C_data_pointer(C_block_item(pt, 1)))[ 1 ] = qpt.y();
|
|
return pt;
|
|
}
|
|
|
|
|
|
C_word qt_getpointproperty(QWidget *w, char *prop, C_word pt)
|
|
{
|
|
const QMetaObject *mo = w->metaObject();
|
|
int i = mo->indexOfProperty(prop);
|
|
QPoint qpt = mo->property(i).read(w).toPoint();
|
|
*((int *)C_data_pointer(C_block_item(pt, 1))) = qpt.x();
|
|
((int *)C_data_pointer(C_block_item(pt, 1)))[ 1 ] = qpt.y();
|
|
return pt;
|
|
}
|
|
|
|
|
|
C_word qt_getrectfproperty(QWidget *w, char *prop, C_word pt)
|
|
{
|
|
const QMetaObject *mo = w->metaObject();
|
|
int i = mo->indexOfProperty(prop);
|
|
QRectF qpt = mo->property(i).read(w).toRectF();
|
|
*((double *)C_data_pointer(C_block_item(pt, 1))) = qpt.x();
|
|
((double *)C_data_pointer(C_block_item(pt, 1)))[ 1 ] = qpt.y();
|
|
((double *)C_data_pointer(C_block_item(pt, 1)))[ 2 ] = qpt.width();
|
|
((double *)C_data_pointer(C_block_item(pt, 1)))[ 3 ] = qpt.height();
|
|
return pt;
|
|
}
|
|
|
|
|
|
C_word qt_getrectproperty(QWidget *w, char *prop, C_word pt)
|
|
{
|
|
const QMetaObject *mo = w->metaObject();
|
|
int i = mo->indexOfProperty(prop);
|
|
QRect qpt = mo->property(i).read(w).toRect();
|
|
*((int *)C_data_pointer(C_block_item(pt, 1))) = qpt.x();
|
|
((int *)C_data_pointer(C_block_item(pt, 1)))[ 1 ] = qpt.y();
|
|
((int *)C_data_pointer(C_block_item(pt, 1)))[ 2 ] = qpt.width();
|
|
((int *)C_data_pointer(C_block_item(pt, 1)))[ 3 ] = qpt.height();
|
|
return pt;
|
|
}
|
|
|
|
|
|
C_word qt_getsizefproperty(QWidget *w, char *prop, C_word pt)
|
|
{
|
|
const QMetaObject *mo = w->metaObject();
|
|
int i = mo->indexOfProperty(prop);
|
|
QSizeF qpt = mo->property(i).read(w).toSizeF();
|
|
*((double *)C_data_pointer(C_block_item(pt, 1))) = qpt.width();
|
|
((double *)C_data_pointer(C_block_item(pt, 1)))[ 1 ] = qpt.height();
|
|
return pt;
|
|
}
|
|
|
|
|
|
C_word qt_getsizeproperty(QWidget *w, char *prop, C_word pt)
|
|
{
|
|
const QMetaObject *mo = w->metaObject();
|
|
int i = mo->indexOfProperty(prop);
|
|
QSize qpt = mo->property(i).read(w).toSize();
|
|
*((int *)C_data_pointer(C_block_item(pt, 1))) = qpt.width();
|
|
((int *)C_data_pointer(C_block_item(pt, 1)))[ 1 ] = qpt.height();
|
|
return pt;
|
|
}
|
|
|
|
|
|
int qt_propertytype(qtwidget w, char *prop)
|
|
{
|
|
const QMetaObject *mo = w->metaObject();
|
|
int i = mo->indexOfProperty(prop);
|
|
|
|
if(i == -1) return 0;
|
|
else {
|
|
switch(mo->property(i).type()) {
|
|
case QVariant::Bool: return 1;
|
|
case QVariant::Char: return 2;
|
|
case QVariant::Double: return 3;
|
|
case QVariant::Int:
|
|
case QVariant::UInt: return 4;
|
|
case QVariant::LongLong:
|
|
case QVariant::ULongLong: return 3;
|
|
case QVariant::String: return 5;
|
|
case QVariant::Pixmap: return 6;
|
|
case QVariant::PointF: return 7;
|
|
case QVariant::RectF: return 8;
|
|
case QVariant::SizeF: return 9;
|
|
case QVariant::Point: return 10;
|
|
case QVariant::Size: return 11;
|
|
case QVariant::Rect: return 12;
|
|
default: return 0;
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
const char *qt_classname(qtobject w) { return w->metaObject()->className(); }
|
|
qtwidget qt_gl(char *name, qtwidget parent, C_word proc) { return new GLWidget(name, parent, proc); }
|
|
void qt_update(qtwidget w) { w->update(); }
|
|
|
|
|
|
qttimer qt_timer(double secs)
|
|
{
|
|
QTimer *tm = new QTimer();
|
|
tm->setInterval((int)(secs * 1000));
|
|
return tm;
|
|
}
|
|
|
|
|
|
void qt_start(qttimer t) { t->start(); }
|
|
void qt_stoptimer(qttimer t) { t->stop(); }
|
|
void qt_stopsound(qtsound t) { t->stop(); }
|
|
void qt_clearlistwidget(qtwidget w) { ((QListWidget *)w)->clear(); }
|
|
void qt_addcomboboxitem(qtwidget w, char *s) { ((QComboBox *)w)->addItem(s); }
|
|
void qt_addlistwidgetitem(qtwidget w, char *s) { ((QListWidget *)w)->addItem(s); }
|
|
|
|
void qt_addtreewidgetitem(qtwidget w, char *s)
|
|
{
|
|
QStringList lst = QString(s).split("|");
|
|
((QTreeWidget *)w)->addTopLevelItem(new QTreeWidgetItem(lst));
|
|
}
|
|
|
|
char *qt_listwidgetitem(qtwidget w, int i) {
|
|
return qstrdata(((QListWidget *)w)->item(i)->text());
|
|
}
|
|
|
|
qtsound qt_sound(char *filename) { return new QSound(filename); }
|
|
void qt_play(qtsound s) { s->play(); }
|
|
|
|
|
|
char *qt_getexistingdirectory(qtwidget p, char *cap, char *dir, int opts)
|
|
{
|
|
return qstrdata(QFileDialog::getExistingDirectory(p, cap, dir, (QFileDialog::Option)opts));
|
|
}
|
|
|
|
|
|
char *qt_getopenfilename(qtwidget p, char *cap, char *dir, char *filter, int opts)
|
|
{
|
|
return qstrdata(QFileDialog::getOpenFileName(p, cap, dir, filter, 0, (QFileDialog::Options)opts));
|
|
}
|
|
|
|
|
|
char *qt_getsavefilename(qtwidget p, char *cap, char *dir, char *filter, int opts)
|
|
{
|
|
return qstrdata(QFileDialog::getSaveFileName(p, cap, dir, filter, 0, (QFileDialog::Options)opts));
|
|
}
|
|
|
|
|
|
void qt_setheaders(qtwidget w, char *s) { ((QTreeWidget *)w)->setHeaderLabels(QString(s).split("|")); }
|
|
|
|
|
|
char *qt_selection(qttextedit t)
|
|
{
|
|
QString txt = ((QTextEdit *)t)->textCursor().selectedText();
|
|
txt.replace(QChar(QChar::ParagraphSeparator), '\n');
|
|
return qstrdata(txt);
|
|
}
|
|
|
|
|
|
void qt_insert(qttextedit t, char *s)
|
|
{
|
|
QTextEdit *te = (QTextEdit *)t;
|
|
QTextCursor c = te->textCursor();
|
|
c.insertText(s);
|
|
}
|
|
|
|
|
|
qtaction qt_shortcut(qtwidget w, char *key)
|
|
{
|
|
QAction *a = new QAction(w);
|
|
a->setShortcut(QKeySequence(key));
|
|
return a;
|
|
}
|
|
|
|
|
|
void qt_addaction(qtwidget w, qtaction a) { ((QWidget *)w)->addAction((QAction *)a); }
|
|
void qt_removeaction(qtwidget w, qtaction a) { ((QWidget *)w)->removeAction((QAction *)a); }
|
|
|
|
|
|
int qt_charencoding(int mode)
|
|
{
|
|
if(mode) return qt_char_encoding = mode;
|
|
else return qt_char_encoding;
|
|
}
|