view release on metacpan or  search on metacpan

Attribute.xs  view on Meta::CPAN

	RETVAL



void
ListAttrs(node)
        long node;
PREINIT:
        char buf[B_ATTR_NAME_LENGTH];
        status_t err;
PPCODE:
	/* list what attrs BNode finds */

        while ((err = ((BNode *) node)->GetNextAttrName(buf)) == B_OK) {
                XPUSHs(sv_2mortal(newSVpv(buf, strlen(buf))));
        }



SV *
ReadAttr(node, attr)