From bcc95cd92ca12c1783464b8ada6816d430dc0e98 Mon Sep 17 00:00:00 2001
From: Timothy Pearson <kb9vqf@pearsoncomputing.net>
Date: Sun, 18 Dec 2011 03:08:08 -0600
Subject: Initial import of libqt-perl (not yet TQt compatible)

---
 PerlQt/perlqt.h | 54 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 54 insertions(+)
 create mode 100644 PerlQt/perlqt.h

(limited to 'PerlQt/perlqt.h')

diff --git a/PerlQt/perlqt.h b/PerlQt/perlqt.h
new file mode 100644
index 0000000..e4a2c33
--- /dev/null
+++ b/PerlQt/perlqt.h
@@ -0,0 +1,54 @@
+#ifndef PERLQT_H
+#define PERLQT_H
+
+#include "marshall.h"
+
+struct smokeperl_object {
+    bool allocated;
+    Smoke *smoke;
+    int classId;
+    void *ptr;
+};
+
+struct TypeHandler {
+    const char *name;
+    Marshall::HandlerFn fn;
+};
+
+extern int do_debug;   // evil
+extern SV *sv_qapp;
+extern int object_count;
+
+// keep this enum in sync with lib/Qt/debug.pm
+
+enum QtDebugChannel {
+    qtdb_none = 0x00,
+    qtdb_ambiguous = 0x01,
+    qtdb_autoload = 0x02,
+    qtdb_calls = 0x04,
+    qtdb_gc = 0x08,
+    qtdb_virtual = 0x10,
+    qtdb_verbose = 0x20
+};
+
+void unmapPointer(smokeperl_object *, Smoke::Index, void*);
+SV *getPointerObject(void *ptr);
+void mapPointer(SV *, smokeperl_object *, HV *, Smoke::Index, void *);
+
+
+extern struct mgvtbl vtbl_smoke;
+
+inline smokeperl_object *sv_obj_info(SV *sv) {  // ptr on success, null on fail
+    if(!sv || !SvROK(sv) || SvTYPE(SvRV(sv)) != SVt_PVHV)
+	return 0;
+    SV *obj = SvRV(sv);
+    MAGIC *mg = mg_find(obj, '~');
+    if(!mg || mg->mg_virtual != &vtbl_smoke) {
+	// FIXME: die or something?
+	return 0;
+    }
+    smokeperl_object *o = (smokeperl_object*)mg->mg_ptr;
+    return o;
+}
+
+#endif // PERLQT_H
-- 
cgit v1.2.3