[p5sagit/p5-mst-13.2.git] / os2 / OS2 / ExtAttr / ExtAttr.xs

#ifdef __cplusplus
extern "C" {
#endif
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#ifdef __cplusplus
}
#endif

#include "myea.h"

SV *
my_eadvalue(pTHX_ _ead ead, int index)
{
    SV *sv;
    int size = _ead_value_size(ead, index);
    void *p;

    if (size == -1) {
	Perl_die(aTHX_ "Error getting size of EA: %s", strerror(errno));
    }
    p = _ead_get_value(ead, index);
    return  newSVpv((char*)p, size);
}

#define my_eadreplace(ead, index, sv, flag)	\
	_ead_replace((ead), (index), flag, SvPVX(sv), SvCUR(sv))

#define my_eadadd(ead, name, sv, flag)	\
	_ead_add((ead), (name), flag, SvPVX(sv), SvCUR(sv))


MODULE = OS2::ExtAttr		PACKAGE = OS2::ExtAttr	PREFIX = my_ead

SV *
my_eadvalue(ead, index)
	_ead	ead
	int	index
    CODE:
	RETVAL = my_eadvalue(aTHX_ ead, index);
    OUTPUT:
	RETVAL

int
my_eadreplace(ead, index, sv, flag = 0)
	_ead	ead
	int	index
	SV *	sv
	int	flag

int
my_eadadd(ead, name, sv, flag = 0)
	_ead	ead
	char *	name
	SV *	sv
	int	flag

MODULE = OS2::ExtAttr		PACKAGE = OS2::ExtAttr	PREFIX = _ea


void
_ea_free(ptr)
	struct _ea *	ptr

int
_ea_get(dst, path, handle, name)
	struct _ea *	dst
	char *	path
	int	handle
	char *	name

int
_ea_put(src, path, handle, name)
	struct _ea *	src
	char *	path
	int	handle
	char *	name

int
_ea_remove(path, handle, name)
	char *	path
	int	handle
	char *	name

MODULE = OS2::ExtAttr		PACKAGE = OS2::ExtAttr	PREFIX = _ead

int
_ead_add(ead, name, flags, value, size)
	_ead	ead
	char *	name
	int	flags
	void *	value
	int	size

void
_ead_clear(ead)
	_ead	ead

int
_ead_copy(dst_ead, src_ead, src_index)
	_ead	dst_ead
	_ead	src_ead
	int	src_index

int
_ead_count(ead)
	_ead	ead

_ead
_ead_create()

int
_ead_delete(ead, index)
	_ead	ead
	int	index

void
_ead_destroy(ead)
	_ead	ead

int
_ead_fea2list_size(ead)
	_ead	ead

void *
_ead_fea2list_to_fealist(src)
	void *	src

void *
_ead_fealist_to_fea2list(src)
	void *	src

int
_ead_find(ead, name)
	_ead	ead
	char *	name

void *
_ead_get_fea2list(ead)
	_ead	ead

int
_ead_get_flags(ead, index)
	_ead	ead
	int	index

char *
_ead_get_name(ead, index)
	_ead	ead
	int	index

void *
_ead_get_value(ead, index)
	_ead	ead
	int	index

int
_ead_name_len(ead, index)
	_ead	ead
	int	index

int
_ead_read(ead, path, handle, flags)
	_ead	ead
	char *	path
	int	handle
	int	flags

int
_ead_replace(ead, index, flags, value, size)
	_ead	ead
	int	index
	int	flags
	void *	value
	int	size

void
_ead_sort(ead)
	_ead	ead

int
_ead_use_fea2list(ead, src)
	_ead	ead
	void *	src

int
_ead_value_size(ead, index)
	_ead	ead
	int	index

int
_ead_write(ead, path, handle, flags)
	_ead	ead
	char *	path
	int	handle
	int	flags
Commit	Line	Data
760ac839	1	#ifdef __cplusplus
	2	extern "C" {
	3	#endif
	4	#include "EXTERN.h"
	5	#include "perl.h"
	6	#include "XSUB.h"
	7	#ifdef __cplusplus
	8	}
	9	#endif
	10
	11	#include "myea.h"
	12
	13	SV *
41cd3736	14	my_eadvalue(pTHX_ _ead ead, int index)
760ac839	15	{
	16	SV *sv;
	17	int size = _ead_value_size(ead, index);
	18	void *p;
	19
	20	if (size == -1) {
41cd3736	21	Perl_die(aTHX_ "Error getting size of EA: %s", strerror(errno));
760ac839	22	}
	23	p = _ead_get_value(ead, index);
	24	return newSVpv((char*)p, size);
	25	}
	26
	27	#define my_eadreplace(ead, index, sv, flag) \
	28	_ead_replace((ead), (index), flag, SvPVX(sv), SvCUR(sv))
	29
	30	#define my_eadadd(ead, name, sv, flag) \
	31	_ead_add((ead), (name), flag, SvPVX(sv), SvCUR(sv))
	32
	33
	34	MODULE = OS2::ExtAttr PACKAGE = OS2::ExtAttr PREFIX = my_ead
	35
	36	SV *
	37	my_eadvalue(ead, index)
	38	_ead ead
	39	int index
41cd3736	40	CODE:
	41	RETVAL = my_eadvalue(aTHX_ ead, index);
	42	OUTPUT:
	43	RETVAL
760ac839	44
	45	int
	46	my_eadreplace(ead, index, sv, flag = 0)
	47	_ead ead
	48	int index
	49	SV * sv
	50	int flag
	51
	52	int
	53	my_eadadd(ead, name, sv, flag = 0)
	54	_ead ead
	55	char * name
	56	SV * sv
	57	int flag
	58
	59	MODULE = OS2::ExtAttr PACKAGE = OS2::ExtAttr PREFIX = _ea
	60
	61
	62	void
	63	_ea_free(ptr)
	64	struct _ea * ptr
	65
	66	int
	67	_ea_get(dst, path, handle, name)
	68	struct _ea * dst
	69	char * path
	70	int handle
	71	char * name
	72
	73	int
	74	_ea_put(src, path, handle, name)
	75	struct _ea * src
	76	char * path
	77	int handle
	78	char * name
	79
	80	int
	81	_ea_remove(path, handle, name)
	82	char * path
	83	int handle
	84	char * name
	85
	86	MODULE = OS2::ExtAttr PACKAGE = OS2::ExtAttr PREFIX = _ead
	87
	88	int
	89	_ead_add(ead, name, flags, value, size)
	90	_ead ead
	91	char * name
	92	int flags
	93	void * value
	94	int size
	95
	96	void
	97	_ead_clear(ead)
	98	_ead ead
	99
	100	int
	101	_ead_copy(dst_ead, src_ead, src_index)
	102	_ead dst_ead
	103	_ead src_ead
	104	int src_index
	105
	106	int
	107	_ead_count(ead)
108	_ead ead
109
110	_ead
111	_ead_create()
112
113	int
114	_ead_delete(ead, index)
115	_ead ead
116	int index
117
118	void
119	_ead_destroy(ead)
120	_ead ead
121
122	int
123	_ead_fea2list_size(ead)
124	_ead ead
125
126	void *
127	_ead_fea2list_to_fealist(src)
128	void * src
129
130	void *
131	_ead_fealist_to_fea2list(src)
132	void * src
133
134	int
135	_ead_find(ead, name)
136	_ead ead
137	char * name
138
139	void *
140	_ead_get_fea2list(ead)
141	_ead ead
142
143	int
144	_ead_get_flags(ead, index)
145	_ead ead
146	int index
147
148	char *
149	_ead_get_name(ead, index)
150	_ead ead
151	int index
152
153	void *
154	_ead_get_value(ead, index)
155	_ead ead
156	int index
157
158	int
159	_ead_name_len(ead, index)
160	_ead ead
161	int index
162
163	int
164	_ead_read(ead, path, handle, flags)
165	_ead ead
166	char * path
167	int handle
168	int flags
169
170	int
171	_ead_replace(ead, index, flags, value, size)
172	_ead ead
173	int index
174	int flags
175	void * value
176	int size
177
178	void
179	_ead_sort(ead)
180	_ead ead
181
182	int
183	_ead_use_fea2list(ead, src)
184	_ead ead
185	void * src
186
187	int
188	_ead_value_size(ead, index)
189	_ead ead
190	int index
191
192	int
193	_ead_write(ead, path, handle, flags)
194	_ead ead
195	char * path
196	int handle
197	int flags