Implement stdin, stdout and stderr to Faustine.
[Faustine.git] / interpreter / lib / src / libsndfile-ocaml / sndfile_bigarray.ml
1 (*
2 ** File: sndfile_bigarray.ml
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 open Bigarray
23
24 external read_short : Sndfile.t -> (int, int16_signed_elt, c_layout) Array1.t -> int
25 = "caml_sf_read_short"
26
27 external write_short : Sndfile.t -> (int, int16_signed_elt, c_layout) Array1.t -> int
28 = "caml_sf_write_short"