Bug fixed for stdin and stdout in a different platform.
[Faustine.git] / interpreter / 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