// // Copyright 2008 Hezekiah M. Carty // // This file is part of PLplot. // // PLplot is free software: you can redistribute it and/or modify // it under the terms of the GNU Lesser General Public License as published by // the Free Software Foundation, either version 2 of the License, or // (at your option) any later version. // // PLplot is distributed in the hope that it will be useful, // but WITHOUT ANY WARRANTY; without even the implied warranty of // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the // GNU Lesser General Public License for more details. // // You should have received a copy of the GNU Lesser General Public License // along with PLplot. If not, see <http://www.gnu.org/licenses/>. // #include <plplotP.h> // The "usual" OCaml includes #include <caml/alloc.h> #include <caml/callback.h> #include <caml/fail.h> #include <caml/memory.h> #include <caml/misc.h> #include <caml/mlvalues.h> #include <caml/bigarray.h> #include <plplot.h> #include <cairo.h> //* OCaml Cairo integration. // Get a Cairo context from OCaml. These #defines are from the // OCaml Cairo bindings. #define wPointer_val( t, val ) ( *( (t **) Data_custom_val( val ) ) ) #define cairo_t_val( v ) wPointer_val( cairo_t, v ) value ml_set_plplot_cairo_context( value context ) { CAMLparam1( context ); pl_cmd( PLESC_DEVINIT, cairo_t_val( context ) ); CAMLreturn( Val_unit ); }