[audio-opusfile.git] / Opusfile.xs

#define PERL_NO_GET_CONTEXT
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "ppport.h"

/* op_free is both Perl_op_free and a function in opusfile */
#undef op_free
#include <opus/opusfile.h>

#include "const-c.inc"

typedef OggOpusFile*    Audio__Opusfile;
typedef const OpusHead* Audio__Opusfile__Head;
typedef const OpusTags* Audio__Opusfile__Tags;
typedef const OpusPictureTag* Audio__Opusfile__PictureTag;

MODULE = Audio::Opusfile		PACKAGE = Audio::Opusfile		PREFIX = op_

PROTOTYPES: ENABLE
INCLUDE: const-xs.inc

Audio::Opusfile
op_open_file(path)
	const char *path;
PREINIT:
	int err;
C_ARGS:
	path, &err
POSTCALL:
	if(err)
		croak("op_open_file returned error %d\n", err);

Audio::Opusfile
op_open_memory(const char *data, size_t length(data))
PREINIT:
	int err;
C_ARGS:
	data, XSauto_length_of_data, &err
POSTCALL:
	if(err)
		croak("op_open_memory returned error %d\n", err);

bool
op_test(const char *data, size_t length(data))
PROTOTYPE: $
PREINIT:
	int ret;
CODE:
	ret = op_test (NULL, data, XSauto_length_of_data);
	if(ret < 0 && ret != OP_ENOTFORMAT && ret != OP_EBADHEADER)
		croak("op_test returned error %d\n", RETVAL);
	RETVAL = !ret;
OUTPUT:
	RETVAL


void
DESTROY(of)
	Audio::Opusfile of;
CODE:
	op_free(of);

bool
op_seekable(of)
	Audio::Opusfile of;

int
op_link_count(of)
	Audio::Opusfile of;

int
op_serialno(of, li = -1)
	Audio::Opusfile of;
	int li;

# op_channel_count is not exported; it can be obtained via op_head

long
op_raw_total(of, li = -1)
	Audio::Opusfile of;
	int li;

long
op_pcm_total(of, li = -1)
	Audio::Opusfile of;
	int li;

Audio::Opusfile::Head
op_head(of, li = -1)
	Audio::Opusfile of;
	int li;

Audio::Opusfile::Tags
op_tags(of, li = -1)
	Audio::Opusfile of;
	int li;

# op_current_link not exported until we export the decoding API

int
op_bitrate(of, li = -1)
	Audio::Opusfile of;
	int li;

# op_bitrate_instant, op_raw_tell, op_pcm_tell not exported until we
# export the decoding API

MODULE = Audio::Opusfile		PACKAGE = Audio::Opusfile::Tags		PREFIX = opus_tags_

int
opus_tags_query_count(tags, tag)
	Audio::Opusfile::Tags tags;
	const char* tag;

const char*
opus_tags_query(tags, tag, count = 0)
	Audio::Opusfile::Tags tags;
	const char* tag;
	int count;

MODULE = Audio::Opusfile		PACKAGE = Audio::Opusfile::PictureTag		PREFIX = opus_picture_tag_

Audio::Opusfile::PictureTag
opus_picture_tag_parse(tag)
	const char *tag;
PREINIT:
	OpusPictureTag *pic;
	int err;
CODE:
	Newx(pic, 1, OpusPictureTag);
	if(err = opus_picture_tag_parse(pic, tag))
		croak("opus_picture_tag_parse returned error %d\n", err);
	RETVAL = pic;
OUTPUT:
	RETVAL

void
DESTROY(pic)
	Audio::Opusfile::PictureTag pic
CODE:
	Safefree(pic);

int
type(pic)
	Audio::Opusfile::PictureTag pic;
CODE:
	RETVAL = pic->type;
OUTPUT:
	RETVAL

const char*
mime_type(pic)
	Audio::Opusfile::PictureTag pic;
CODE:
	RETVAL = pic->mime_type;
OUTPUT:
	RETVAL

const char*
description(pic)
	Audio::Opusfile::PictureTag pic;
CODE:
	RETVAL = pic->description;
OUTPUT:
	RETVAL

int
width(pic)
	Audio::Opusfile::PictureTag pic;
CODE:
	RETVAL = pic->width;
OUTPUT:
	RETVAL

int
height(pic)
	Audio::Opusfile::PictureTag pic;
CODE:
	RETVAL = pic->height;
OUTPUT:
	RETVAL

int
depth(pic)
	Audio::Opusfile::PictureTag pic;
CODE:
	RETVAL = pic->depth;
OUTPUT:
	RETVAL

int
colors(pic)
	Audio::Opusfile::PictureTag pic;
CODE:
	RETVAL = pic->colors;
OUTPUT:
	RETVAL

int
data_length(pic)
	Audio::Opusfile::PictureTag pic;
CODE:
	RETVAL = pic->data_length;
OUTPUT:
	RETVAL

SV*
data(pic)
	Audio::Opusfile::PictureTag pic;
CODE:
	RETVAL = newSVpvn(pic->data, pic->data_length);
OUTPUT:
	RETVAL

int
format(pic)
	Audio::Opusfile::PictureTag pic;
CODE:
	RETVAL = pic->format;
OUTPUT:
	RETVAL

MODULE = Audio::Opusfile		PACKAGE = Audio::Opusfile::Head

int
version(head)
	Audio::Opusfile::Head head;
CODE:
	RETVAL = head->version;
OUTPUT:
	RETVAL

int
channel_count(head)
	Audio::Opusfile::Head head;
CODE:
	RETVAL = head->channel_count;
OUTPUT:
	RETVAL

unsigned
pre_skip(head)
	Audio::Opusfile::Head head;
CODE:
	RETVAL = head->pre_skip;
OUTPUT:
	RETVAL

unsigned
input_sample_rate(head)
	Audio::Opusfile::Head head;
CODE:
	RETVAL = head->input_sample_rate;
OUTPUT:
	RETVAL

int
output_gain(head)
	Audio::Opusfile::Head head;
CODE:
	RETVAL = head->output_gain;
OUTPUT:
	RETVAL

int
mapping_family(head)
	Audio::Opusfile::Head head;
CODE:
	RETVAL = head->mapping_family;
OUTPUT:
	RETVAL

int
stream_count(head)
	Audio::Opusfile::Head head;
CODE:
	RETVAL = head->stream_count;
OUTPUT:
	RETVAL

int
coupled_count(head)
	Audio::Opusfile::Head head;
CODE:
	RETVAL = head->coupled_count;
OUTPUT:
	RETVAL

int
mapping(head, k)
	Audio::Opusfile::Head head;
	unsigned k;
CODE:
	if(k >= OPUS_CHANNEL_COUNT_MAX)
		croak("k must be less than %d\n", (int)OPUS_CHANNEL_COUNT_MAX);
	RETVAL = (int) head->mapping[k];
OUTPUT:
	RETVAL
Commit	Line	Data
	1	#define PERL_NO_GET_CONTEXT
	2	#include "EXTERN.h"
	3	#include "perl.h"
	4	#include "XSUB.h"
	5
	6	#include "ppport.h"
	7
	8	/* op_free is both Perl_op_free and a function in opusfile */
	9	#undef op_free
	10	#include <opus/opusfile.h>
	11
	12	#include "const-c.inc"
	13
	14	typedef OggOpusFile* Audio__Opusfile;
	15	typedef const OpusHead* Audio__Opusfile__Head;
	16	typedef const OpusTags* Audio__Opusfile__Tags;
	17	typedef const OpusPictureTag* Audio__Opusfile__PictureTag;
	18
	19	MODULE = Audio::Opusfile PACKAGE = Audio::Opusfile PREFIX = op_
	20
	21	PROTOTYPES: ENABLE
	22	INCLUDE: const-xs.inc
	23
	24	Audio::Opusfile
	25	op_open_file(path)
	26	const char *path;
	27	PREINIT:
	28	int err;
	29	C_ARGS:
	30	path, &err
	31	POSTCALL:
	32	if(err)
	33	croak("op_open_file returned error %d\n", err);
	34
	35	Audio::Opusfile
	36	op_open_memory(const char *data, size_t length(data))
	37	PREINIT:
	38	int err;
	39	C_ARGS:
	40	data, XSauto_length_of_data, &err
	41	POSTCALL:
	42	if(err)
	43	croak("op_open_memory returned error %d\n", err);
	44
	45	bool
	46	op_test(const char *data, size_t length(data))
	47	PROTOTYPE: $
	48	PREINIT:
	49	int ret;
	50	CODE:
	51	ret = op_test (NULL, data, XSauto_length_of_data);
	52	if(ret < 0 && ret != OP_ENOTFORMAT && ret != OP_EBADHEADER)
	53	croak("op_test returned error %d\n", RETVAL);
	54	RETVAL = !ret;
	55	OUTPUT:
	56	RETVAL
	57
	58
	59	void
	60	DESTROY(of)
	61	Audio::Opusfile of;
	62	CODE:
	63	op_free(of);
	64
	65	bool
	66	op_seekable(of)
	67	Audio::Opusfile of;
	68
	69	int
	70	op_link_count(of)
	71	Audio::Opusfile of;
	72
	73	int
	74	op_serialno(of, li = -1)
	75	Audio::Opusfile of;
	76	int li;
	77
	78	# op_channel_count is not exported; it can be obtained via op_head
	79
	80	long
	81	op_raw_total(of, li = -1)
	82	Audio::Opusfile of;
	83	int li;
	84
	85	long
	86	op_pcm_total(of, li = -1)
	87	Audio::Opusfile of;
	88	int li;
	89
	90	Audio::Opusfile::Head
	91	op_head(of, li = -1)
	92	Audio::Opusfile of;
	93	int li;
	94
	95	Audio::Opusfile::Tags
	96	op_tags(of, li = -1)
	97	Audio::Opusfile of;
	98	int li;
	99
	100	# op_current_link not exported until we export the decoding API
	101
	102	int
	103	op_bitrate(of, li = -1)
	104	Audio::Opusfile of;
	105	int li;
	106
	107	# op_bitrate_instant, op_raw_tell, op_pcm_tell not exported until we
	108	# export the decoding API
	109
	110	MODULE = Audio::Opusfile PACKAGE = Audio::Opusfile::Tags PREFIX = opus_tags_
	111
	112	int
	113	opus_tags_query_count(tags, tag)
	114	Audio::Opusfile::Tags tags;
	115	const char* tag;
	116
	117	const char*
	118	opus_tags_query(tags, tag, count = 0)
	119	Audio::Opusfile::Tags tags;
	120	const char* tag;
	121	int count;
	122
	123	MODULE = Audio::Opusfile PACKAGE = Audio::Opusfile::PictureTag PREFIX = opus_picture_tag_
	124
	125	Audio::Opusfile::PictureTag
	126	opus_picture_tag_parse(tag)
	127	const char *tag;
	128	PREINIT:
	129	OpusPictureTag *pic;
	130	int err;
	131	CODE:
	132	Newx(pic, 1, OpusPictureTag);
	133	if(err = opus_picture_tag_parse(pic, tag))
	134	croak("opus_picture_tag_parse returned error %d\n", err);
	135	RETVAL = pic;
	136	OUTPUT:
	137	RETVAL
	138
	139	void
	140	DESTROY(pic)
	141	Audio::Opusfile::PictureTag pic
	142	CODE:
	143	Safefree(pic);
	144
	145	int
	146	type(pic)
	147	Audio::Opusfile::PictureTag pic;
	148	CODE:
	149	RETVAL = pic->type;
	150	OUTPUT:
	151	RETVAL
	152
	153	const char*
	154	mime_type(pic)
	155	Audio::Opusfile::PictureTag pic;
	156	CODE:
	157	RETVAL = pic->mime_type;
	158	OUTPUT:
	159	RETVAL
	160
	161	const char*
	162	description(pic)
	163	Audio::Opusfile::PictureTag pic;
	164	CODE:
	165	RETVAL = pic->description;
	166	OUTPUT:
	167	RETVAL
	168
	169	int
	170	width(pic)
	171	Audio::Opusfile::PictureTag pic;
	172	CODE:
	173	RETVAL = pic->width;
	174	OUTPUT:
	175	RETVAL
	176
	177	int
	178	height(pic)
	179	Audio::Opusfile::PictureTag pic;
	180	CODE:
	181	RETVAL = pic->height;
	182	OUTPUT:
	183	RETVAL
	184
	185	int
	186	depth(pic)
	187	Audio::Opusfile::PictureTag pic;
	188	CODE:
	189	RETVAL = pic->depth;
	190	OUTPUT:
	191	RETVAL
	192
	193	int
	194	colors(pic)
	195	Audio::Opusfile::PictureTag pic;
	196	CODE:
	197	RETVAL = pic->colors;
	198	OUTPUT:
	199	RETVAL
	200
	201	int
	202	data_length(pic)
	203	Audio::Opusfile::PictureTag pic;
	204	CODE:
	205	RETVAL = pic->data_length;
	206	OUTPUT:
	207	RETVAL
	208
	209	SV*
	210	data(pic)
	211	Audio::Opusfile::PictureTag pic;
	212	CODE:
	213	RETVAL = newSVpvn(pic->data, pic->data_length);
	214	OUTPUT:
	215	RETVAL
	216
	217	int
	218	format(pic)
	219	Audio::Opusfile::PictureTag pic;
	220	CODE:
	221	RETVAL = pic->format;
	222	OUTPUT:
	223	RETVAL
	224
	225	MODULE = Audio::Opusfile PACKAGE = Audio::Opusfile::Head
	226
	227	int
	228	version(head)
	229	Audio::Opusfile::Head head;
	230	CODE:
	231	RETVAL = head->version;
	232	OUTPUT:
	233	RETVAL
	234
	235	int
	236	channel_count(head)
	237	Audio::Opusfile::Head head;
	238	CODE:
	239	RETVAL = head->channel_count;
	240	OUTPUT:
	241	RETVAL
	242
	243	unsigned
	244	pre_skip(head)
	245	Audio::Opusfile::Head head;
	246	CODE:
	247	RETVAL = head->pre_skip;
	248	OUTPUT:
	249	RETVAL
	250
	251	unsigned
	252	input_sample_rate(head)
	253	Audio::Opusfile::Head head;
	254	CODE:
	255	RETVAL = head->input_sample_rate;
	256	OUTPUT:
	257	RETVAL
	258
	259	int
	260	output_gain(head)
	261	Audio::Opusfile::Head head;
	262	CODE:
	263	RETVAL = head->output_gain;
	264	OUTPUT:
	265	RETVAL
	266
	267	int
	268	mapping_family(head)
	269	Audio::Opusfile::Head head;
	270	CODE:
	271	RETVAL = head->mapping_family;
	272	OUTPUT:
	273	RETVAL
	274
	275	int
	276	stream_count(head)
	277	Audio::Opusfile::Head head;
	278	CODE:
	279	RETVAL = head->stream_count;
	280	OUTPUT:
	281	RETVAL
	282
	283	int
	284	coupled_count(head)
	285	Audio::Opusfile::Head head;
	286	CODE:
	287	RETVAL = head->coupled_count;
	288	OUTPUT:
	289	RETVAL
	290
	291	int
	292	mapping(head, k)
	293	Audio::Opusfile::Head head;
	294	unsigned k;
	295	CODE:
	296	if(k >= OPUS_CHANNEL_COUNT_MAX)
	297	croak("k must be less than %d\n", (int)OPUS_CHANNEL_COUNT_MAX);
	298	RETVAL = (int) head->mapping[k];
	299	OUTPUT:
	300	RETVAL