interpretor/lib/src/libsndfile-ocaml/sndfile_bigarray_stub.c

   1 /* Stub code to access libsndfile functions from OCaml */
   2
   3 /*
   4 **      Copyright (c) 2006, 2007 Erik de Castro Lopo <erikd at mega-nerd dot com>
   5 **      WWW: http://www.mega-nerd.com/libsndfile/Ocaml/
   6 **
   7 **      This library is free software; you can redistribute it and/or
   8 **      modify it under the terms of the GNU Lesser General Public
   9 **      License as published by the Free Software Foundation; either
  10 **      version 2 of the License, or (at your option) any later version.
  11 **
  12 **      This library is distributed in the hope that it will be useful,
  13 **      but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 **      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15 **      Lesser General Public License for more details.
  16 **
  17 **      You should have received a copy of the GNU Lesser General Public
  18 **      License along with this library; if not, write to the Free Software
  19 **      Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  20 */
  21
  22 #include <caml/mlvalues.h>
  23 #include <caml/alloc.h>
  24 #include <caml/memory.h>
  25 #include <caml/custom.h>
  26 #include <caml/fail.h>
  27 #include <caml/bigarray.h>
  28
  29 #include <stdlib.h>
  30 #include <string.h>
  31
  32 #include <sndfile.h>
  33
  34 #include "sndfile_stub.h"
  35
  36 value
  37 caml_sf_read_short (value v_wrapper)
  38 {
  39         SF_WRAPPER *wrapper ;
  40
  41 puts (__func__) ;
  42
  43         CAMLparam1 (v_wrapper) ;
  44
  45         wrapper = Data_custom_val (v_wrapper) ;
  46
  47         CAMLreturn (Val_int (0)) ;
  48 } /* caml_read_short */
  49
  50 value
  51 caml_sf_write_short (value v_wrapper)
  52 {
  53         SF_WRAPPER *wrapper ;
  54
  55 puts (__func__) ;
  56
  57         CAMLparam1 (v_wrapper) ;
  58
  59         wrapper = Data_custom_val (v_wrapper) ;
  60
  61         CAMLreturn (Val_int (0)) ;
  62 } /* caml_write_short */
  63