//
// 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 .
//
#include
// The "usual" OCaml includes
#include
#include
#include
#include
#include
#include
#include
#include
#include
//* 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 );
}