static gboolean
seed_cairo_surface_set_fallback_resolution(SeedContext ctx,
SeedObject this_object,
SeedString property_name,
SeedValue value,
SeedException *exception)
{
cairo_surface_t *surf;
gdouble x, y;
SeedValue jsx, jsy;
CHECK_THIS_BOOL();
if (!seed_value_is_object (ctx, value))
{
seed_make_exception(ctx, exception, "ArgumentError", "Cairo.Surface.fallback_resolution must be an array [x,y]");
return FALSE;
}
jsx = seed_object_get_property_at_index (ctx, (SeedObject) value, 0, exception);
jsy = seed_object_get_property_at_index (ctx, (SeedObject) value, 1, exception);
surf = seed_object_to_cairo_surface (ctx, this_object, exception);
x = seed_value_to_double (ctx, jsx, exception);
y = seed_value_to_double (ctx, jsy, exception);
cairo_surface_set_fallback_resolution (surf, x, y);
return TRUE;
}
static gboolean
seed_ffi_build_signature (SeedContext ctx,
seed_ffi_function_priv *priv,
SeedObject sig,
SeedException *exception)
{
SeedObject arguments;
SeedValue ret_type_ref, length_ref;
guint length, i;
arguments = seed_object_get_property (ctx, sig, "arguments");
ret_type_ref = seed_object_get_property (ctx, sig, "returns");
if (!seed_value_is_object (ctx, arguments))
{
seed_make_exception (ctx, exception, "FFIError",
"Signature arguments member must be an array describing argument types");
return FALSE;
}
length_ref = seed_object_get_property (ctx, arguments, "length");
length = seed_value_to_uint (ctx, length_ref, exception);
priv->n_args = length;
priv->args = g_slice_alloc (length * sizeof (GType));
for (i = 0; i < length; i++)
{
SeedValue type = seed_object_get_property_at_index (ctx, arguments,
i, exception);
priv->args[i] = seed_value_to_int (ctx, type, exception);
}
priv->ret_val = seed_value_to_int (ctx, ret_type_ref, exception);
priv->signature_obj = sig;
seed_value_protect (ctx, sig);
return TRUE;
}
gboolean
seed_value_to_cairo_matrix (SeedContext ctx,
SeedValue value,
cairo_matrix_t *matrix,
SeedException *exception)
{
if (!seed_value_is_object (ctx, value))
return FALSE;
matrix->xx = seed_value_to_double (ctx, seed_object_get_property_at_index (ctx, (SeedObject) value, 0, exception), exception);
matrix->yx = seed_value_to_double (ctx, seed_object_get_property_at_index (ctx, (SeedObject) value, 1, exception), exception);
matrix->xy = seed_value_to_double (ctx, seed_object_get_property_at_index (ctx, (SeedObject) value, 2, exception), exception);
matrix->yy = seed_value_to_double (ctx, seed_object_get_property_at_index (ctx, (SeedObject) value, 3, exception), exception);
matrix->x0 = seed_value_to_double (ctx, seed_object_get_property_at_index (ctx, (SeedObject) value, 4, exception), exception);
matrix->y0 = seed_value_to_double (ctx, seed_object_get_property_at_index (ctx, (SeedObject) value, 5, exception), exception);
return TRUE;
}
static gboolean
peas_extension_seed_call (PeasExtensionWrapper *exten,
const gchar *method_name,
GIArgument *args,
GIArgument *retval)
{
PeasExtensionSeed *sexten = PEAS_EXTENSION_SEED (exten);
GType exten_type;
SeedValue js_method;
GICallableInfo *func_info;
gint n_args, i;
SeedValue *js_in_args;
OutArg *out_args;
SeedValue js_ret, val;
SeedException exc = NULL;
gchar *exc_string;
gint n_in_args = 0;
gint n_out_args = 0;
GIArgument argument;
g_return_val_if_fail (sexten->js_context != NULL, FALSE);
g_return_val_if_fail (sexten->js_object != NULL, FALSE);
exten_type = peas_extension_wrapper_get_extension_type (exten);
/* Fetch the JS method we want to call */
js_method = seed_object_get_property (sexten->js_context,
sexten->js_object,
method_name);
if (seed_value_is_undefined (sexten->js_context, js_method))
{
g_warning ("Method '%s.%s' is not defined",
g_type_name (exten_type), method_name);
return FALSE;
}
/* We want to display an error if the method is defined but is not a function. */
if (!seed_value_is_function (sexten->js_context, js_method))
{
g_warning ("Method '%s.%s' is not a function",
g_type_name (exten_type), method_name);
return FALSE;
}
/* Prepare the arguments */
func_info = peas_gi_get_method_info (exten_type, method_name);
if (func_info == NULL)
return FALSE;
n_args = g_callable_info_get_n_args (func_info);
g_return_val_if_fail (n_args >= 0, FALSE);
js_in_args = g_newa (SeedValue, n_args);
out_args = g_newa (OutArg, n_args + 1);
/* We put the return value first in the out tuple, as it seems to be
* the common behaviour for GI-based bindings */
g_callable_info_load_return_type (func_info, &out_args[0].type_info);
if (g_type_info_get_tag (&out_args[0].type_info) != GI_TYPE_TAG_VOID)
out_args[n_out_args++].ptr = &retval->v_pointer;
/* Handle the other arguments */
for (i = 0; i < n_args && exc == NULL; i++)
{
GIArgInfo arg_info;
GIDirection direction;
g_callable_info_load_arg (func_info, i, &arg_info);
direction = g_arg_info_get_direction (&arg_info);
g_arg_info_load_type (&arg_info, &out_args[n_out_args].type_info);
if (direction == GI_DIRECTION_IN)
{
js_in_args[n_in_args++] = seed_value_from_gi_argument (sexten->js_context,
&args[i],
&out_args[n_out_args].type_info,
&exc);
}
if (direction == GI_DIRECTION_INOUT)
{
GIArgument arg;
peas_gi_pointer_to_argument (&out_args[n_out_args].type_info,
args[i].v_pointer, &arg);
js_in_args[n_in_args++] = seed_value_from_gi_argument (sexten->js_context,
&arg,
&out_args[n_out_args].type_info,
&exc);
}
if (direction == GI_DIRECTION_OUT || direction == GI_DIRECTION_INOUT)
out_args[n_out_args++].ptr = args[i].v_pointer;
}
if (exc != NULL)
goto cleanup;
js_ret = seed_object_call (sexten->js_context,
js_method,
sexten->js_object,
n_in_args,
js_in_args,
&exc);
if (exc != NULL)
goto cleanup;
if (n_out_args == 1)
{
if (seed_value_to_gi_argument (sexten->js_context, js_ret,
&out_args[0].type_info, &argument, &exc))
{
peas_gi_argument_to_pointer (&out_args[0].type_info,
&argument, out_args[0].ptr);
}
}
else if (n_out_args > 0 && seed_value_is_object (sexten->js_context, js_ret))
{
for (i = 0; i < n_out_args && exc == NULL; i++)
{
val = seed_object_get_property_at_index (sexten->js_context, js_ret,
i, exc);
if (exc == NULL &&
seed_value_to_gi_argument (sexten->js_context, val,
&out_args[i].type_info,
&argument, &exc))
{
peas_gi_argument_to_pointer (&out_args[i].type_info,
&argument, out_args[i].ptr);
}
}
}
cleanup:
g_base_info_unref ((GIBaseInfo *) func_info);
if (exc == NULL)
return TRUE;
exc_string = seed_exception_to_string (sexten->js_context, exc);
g_warning ("Seed Exception: %s", exc_string);
g_free (exc_string);
return FALSE;
}
