diff options
| author | Michele Calgaro <michele.calgaro@yahoo.it> | 2018-10-18 22:45:41 +0900 |
|---|---|---|
| committer | Michele Calgaro <michele.calgaro@yahoo.it> | 2018-10-21 19:17:26 +0900 |
| commit | 10ee12b66a226f890b423ab711e17efd04bd2f70 (patch) | |
| tree | 64d998718597a805203696291a935c0d9672682e /PerlTQt/perlqt.h | |
| parent | 3144af3574cf5c78b414ab7ce2efb5dacf2549b3 (diff) | |
| download | libtqt-perl-10ee12b66a226f890b423ab711e17efd04bd2f70.tar.gz libtqt-perl-10ee12b66a226f890b423ab711e17efd04bd2f70.zip | |
Moved to /usr folder instead of /opt/trinity. This relates to bug 266.
Signed-off-by: Michele Calgaro <michele.calgaro@yahoo.it>
Diffstat (limited to 'PerlTQt/perlqt.h')
| -rw-r--r-- | PerlTQt/perlqt.h | 54 |
1 files changed, 0 insertions, 54 deletions
diff --git a/PerlTQt/perlqt.h b/PerlTQt/perlqt.h deleted file mode 100644 index 7eb240a..0000000 --- a/PerlTQt/perlqt.h +++ /dev/null @@ -1,54 +0,0 @@ -#ifndef PERLTQT_H -#define PERLTQT_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/TQt/debug.pm - -enum TQtDebugChannel { - 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 // PERLTQT_H |
