Esempi in C++ (Cpp) per caml_cairo_raise_Error

Esempio n. 1

File: cairo_gtk_stubs.c Progetto: Chris00/ocaml-cairo

CAMLexport value caml_gdk_cairo_create(value vdrawable)
{
  CAMLparam1(vdrawable);
  CAMLlocal1(vcontext);
  cairo_t *cr = gdk_cairo_create(GdkDrawable_val(vdrawable));
  caml_cairo_raise_Error(cairo_status(cr)); /* caml_check_status not exported */
  vcontext = alloc_custom(&caml_cairo_ops, sizeof(void*), 1, 50);
  CAIRO_VAL(vcontext) = cr;
  CAMLreturn(vcontext);
}

Esempio n. 2

File: cairo_ocaml_types.c Progetto: hcarty/ocaml-cairo

/* For non Raise the corresponding OCaml exception. */
static void caml_check_status(cairo_t *cr)
{
  caml_cairo_raise_Error(cairo_status(cr));
}