116 lines
2.0 KiB
C
116 lines
2.0 KiB
C
/*
|
|
* mooutils-fli.c
|
|
*
|
|
* Copyright (C) 2004-2007 by Yevgen Muntyan <muntyan@math.tamu.edu>
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License version 2.1 as published by the Free Software Foundation.
|
|
*
|
|
* See COPYING file that comes with this distribution.
|
|
*/
|
|
|
|
#include "mooutils/moopython.h"
|
|
#include "mooutils/mooobjc.h"
|
|
|
|
|
|
/**
|
|
* Python
|
|
*/
|
|
|
|
typedef struct {
|
|
gpointer data;
|
|
GDestroyNotify destroy;
|
|
} Data;
|
|
|
|
MooPyAPI *moo_py_api = NULL;
|
|
|
|
|
|
void
|
|
moo_python_add_data (gpointer data,
|
|
GDestroyNotify destroy)
|
|
{
|
|
Data *d;
|
|
|
|
g_return_if_fail (moo_py_api != NULL);
|
|
g_return_if_fail (destroy != NULL);
|
|
|
|
d = g_new (Data, 1);
|
|
d->data = data;
|
|
d->destroy = destroy;
|
|
moo_py_api->_free_list = g_slist_prepend (moo_py_api->_free_list, d);
|
|
}
|
|
|
|
static void
|
|
data_free (Data *d)
|
|
{
|
|
if (d)
|
|
{
|
|
d->destroy (d->data);
|
|
g_free (d);
|
|
}
|
|
}
|
|
|
|
|
|
gboolean
|
|
moo_python_init (guint version,
|
|
MooPyAPI *api)
|
|
{
|
|
if (version != MOO_PY_API_VERSION)
|
|
return FALSE;
|
|
|
|
g_return_val_if_fail (!moo_py_api || !api, FALSE);
|
|
|
|
if (moo_py_api)
|
|
{
|
|
g_slist_foreach (moo_py_api->_free_list, (GFunc) data_free, NULL);
|
|
g_slist_free (moo_py_api->_free_list);
|
|
}
|
|
|
|
moo_py_api = api;
|
|
|
|
if (moo_py_api)
|
|
moo_py_api->_free_list = NULL;
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
|
|
MooPyObject *
|
|
moo_Py_INCREF (MooPyObject *obj)
|
|
{
|
|
g_return_val_if_fail (moo_python_running (), obj);
|
|
|
|
if (obj)
|
|
moo_py_api->incref (obj);
|
|
|
|
return obj;
|
|
}
|
|
|
|
|
|
void
|
|
moo_Py_DECREF (MooPyObject *obj)
|
|
{
|
|
g_return_if_fail (moo_python_running ());
|
|
|
|
if (obj)
|
|
moo_py_api->decref (obj);
|
|
}
|
|
|
|
|
|
/**
|
|
* Objective-C
|
|
*/
|
|
|
|
MooObjCAPI *moo_objc_api = NULL;
|
|
|
|
gboolean
|
|
moo_objc_init (guint version,
|
|
MooObjCAPI *api)
|
|
{
|
|
g_return_val_if_fail (version == MOO_OBJC_API_VERSION, FALSE);
|
|
g_return_val_if_fail (!moo_objc_api || !api, FALSE);
|
|
moo_objc_api = api;
|
|
return TRUE;
|
|
}
|