14 my_eadvalue(pTHX_ _ead ead, int index)
17 int size = _ead_value_size(ead, index);
21 Perl_die(aTHX_ "Error getting size of EA: %s", strerror(errno));
23 p = _ead_get_value(ead, index);
24 return newSVpv(p, size);
27 #define my_eadreplace(ead, index, sv, flag) \
28 _ead_replace((ead), (index), flag, SvPVX(sv), SvCUR(sv))
30 #define my_eadadd(ead, name, sv, flag) \
31 _ead_add((ead), (name), flag, SvPVX(sv), SvCUR(sv))
34 MODULE = OS2::ExtAttr PACKAGE = OS2::ExtAttr PREFIX = my_ead
37 my_eadvalue(ead, index)
41 RETVAL = my_eadvalue(aTHX_ ead, index);
46 my_eadreplace(ead, index, sv, flag = 0)
53 my_eadadd(ead, name, sv, flag = 0)
59 MODULE = OS2::ExtAttr PACKAGE = OS2::ExtAttr PREFIX = _ea
67 _ea_get(dst, path, handle, name)
74 _ea_put(src, path, handle, name)
81 _ea_remove(path, handle, name)
86 MODULE = OS2::ExtAttr PACKAGE = OS2::ExtAttr PREFIX = _ead
89 _ead_add(ead, name, flags, value, size)
101 _ead_copy(dst_ead, src_ead, src_index)
114 _ead_delete(ead, index)
123 _ead_fea2list_size(ead)
127 _ead_fea2list_to_fealist(src)
131 _ead_fealist_to_fea2list(src)
140 _ead_get_fea2list(ead)
144 _ead_get_flags(ead, index)
149 _ead_get_name(ead, index)
154 _ead_get_value(ead, index)
159 _ead_name_len(ead, index)
164 _ead_read(ead, path, handle, flags)
171 _ead_replace(ead, index, flags, value, size)
183 _ead_use_fea2list(ead, src)
188 _ead_value_size(ead, index)
193 _ead_write(ead, path, handle, flags)