rpm/perl/junk.xs

56 lines
1.3 KiB
Plaintext
Raw Normal View History

/*
* This file includes misc functions that were once implemented and retired
* later in the process
*
* $Id: junk.xs,v 1.2 1999/07/14 17:23:30 gafton Exp $
*/
SV *
HeaderRawItem(header, item)
Header * header
int item
PREINIT:
int_32 count, type;
int rc;
void * value;
AV * array;
char ** src;
CODE:
rc = headerGetEntry(*header, item, &type, &value, &count);
RETVAL = &PL_sv_undef;
if (rc != 0) {
switch(type) {
case RPM_CHAR_TYPE:
RETVAL = newSViv((char) (int)value);
break;
case RPM_INT8_TYPE:
RETVAL = newSViv((int_8) (int) value);
break;
case RPM_INT16_TYPE:
RETVAL = newSViv((int_16) (int) value);
break;
case RPM_INT32_TYPE:
RETVAL = newSViv((int_32)value);
break;
case RPM_STRING_TYPE:
RETVAL = newSVpv((char *)value, 0);
break;
case RPM_BIN_TYPE:
/* XXX: this looks mostly unused - how do we deal with it? */
break;
case RPM_STRING_ARRAY_TYPE:
case RPM_I18NSTRING_TYPE:
/* we have to build an array first */
array = newAV();
src = (char **) value;
while (count--) {
av_push(array, newSVpv(*src++, 0));
}
RETVAL = newRV_inc((SV*)array);
free(value);
break;
}
}
OUTPUT:
RETVAL