1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
//
// 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 );
}
|
