package mpg123
MP3 decoding library
Install
Dune Dependency
Authors
Maintainers
Sources
0.3.tar.gz
md5=a79b90c89ddbd8fc8c39142b3d5f4dde
sha512=1f92f7a001552e279f146eb14340b747eb18f6dd7ee5f66f93eab37f6dd9e3f3298475085232395404ca1ed9b8a3c94796e6d67884c18d6684010f897c3f8b42
doc/src/mpg123.c_function_descriptions/mpg123_c_function_descriptions.ml.html
Source file mpg123_c_function_descriptions.ml
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 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63
open Ctypes module Types = Mpg123_c_types module Functions (F : Ctypes.FOREIGN) = struct open F let mpg123_init = foreign "mpg123_init" (void @-> returning int) let mpg123_exit = foreign "mpg123_exit" (void @-> returning void) let mpg123_new = foreign "mpg123_new" (string_opt @-> ptr int @-> returning (ptr Types.Handle.t)) let mpg123_delete = foreign "mpg123_delete" (ptr Types.Handle.t @-> returning void) let mpg123_plain_strerror = foreign "mpg123_plain_strerror" (int @-> returning string) let mpg123_strerror = foreign "mpg123_strerror" (ptr Types.Handle.t @-> returning string) let mpg123_errcode = foreign "mpg123_errcode" (ptr Types.Handle.t @-> returning int) let mpg123_decoders = foreign "mpg123_decoders" (void @-> returning (ptr string_opt)) let mpg123_supported_decoders = foreign "mpg123_supported_decoders" (void @-> returning (ptr string_opt)) let mpg123_decoder = foreign "mpg123_decoder" (ptr Types.Handle.t @-> string @-> returning int) let mpg123_current_decoder = foreign "mpg123_current_decoder" (ptr Types.Handle.t @-> returning string) let mpg123_open = foreign "mpg123_open" (ptr Types.Handle.t @-> string @-> returning int) let mpg123_close = foreign "mpg123_close" (ptr Types.Handle.t @-> returning int) let mpg123_read = foreign "mpg123_read" (ptr Types.Handle.t @-> ptr char @-> int @-> ptr int @-> returning int) let mpg123_scan = foreign "mpg123_scan" (ptr Types.Handle.t @-> returning int) let mpg123_meta_check = foreign "mpg123_meta_check" (ptr Types.Handle.t @-> returning int) let mpg123_length = foreign "mpg123_length" (ptr Types.Handle.t @-> returning int) let mpg123_meta_free = foreign "mpg123_meta_free" (ptr Types.Handle.t @-> returning void) let mpg123_id3 = foreign "mpg123_id3" (ptr Types.Handle.t @-> (ptr (ptr Types.Id3v1.t)) @-> (ptr (ptr Types.Id3v2.t)) @-> returning int) let mpg123_getformat = foreign "mpg123_getformat" (ptr Types.Handle.t @-> ptr int @-> ptr int @-> ptr int @-> returning int) let mpg123_format_none = foreign "mpg123_format_none" (ptr Types.Handle.t @-> returning int) let mpg123_format = foreign "mpg123_format" (ptr Types.Handle.t @-> int @-> int @-> int @-> returning int) end
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>