folkslinux
/
rpm
mirror of https://github.com/rpm-software-management/rpm.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

cleaner handling of error return vals on database and header typemaps 

CVS patchset: 3799
CVS date: 2000/06/02 07:52:39
This commit is contained in:
rjray 2000-06-02 07:52:39 +00:00
parent 10a6795c83
commit 14698620a5
1 changed files with 36 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
Perl-RPM/typemap
View File

@ -2,10 +2,10 @@
TYPEMAP
const char * T_PTROBJ
RPM T_PTROBJ
RPM::Database O_RPM_Database
RPM::Header O_RPM_Header
const char * T_PTROBJ
RPM T_PTROBJ
RPM::Database O_RPM_Database
RPM::Header O_RPM_Header
#
# The following mappings for O_HvRV are taken directly from Dean Roehrich's
@ -15,31 +15,45 @@ RPM::Header O_RPM_Header
OUTPUT
O_RPM_Database
$arg = sv_bless(newRV_noinc((SV*)$var),
gv_stashpv("RPM::Database", TRUE));
hv_magic($var, (GV *)Nullhv, 'P');
if ($var != Null(RPM__Database))
{
$arg = sv_bless(newRV_noinc((SV*)$var),
gv_stashpv("RPM::Database", TRUE));
hv_magic($var, (GV *)Nullhv, 'P');
}
else
{
$arg = newSVsv(&PL_sv_undef);
}
O_RPM_Header
$arg = sv_bless(newRV_noinc((SV*)$var),
gv_stashpv("RPM::Header", TRUE));
hv_magic($var, (GV *)Nullhv, 'P');
if ($var != Null(RPM__Header))
{
$arg = sv_bless(newRV_noinc((SV*)$var),
gv_stashpv("RPM::Header", TRUE));
hv_magic($var, (GV *)Nullhv, 'P');
}
else
{
$arg = newSVsv(&PL_sv_undef);
}
INPUT
O_RPM_Database
if (sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVHV))
$var = (HV*)SvRV($arg);
if (sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVHV))
$var = (HV*)SvRV($arg);
else
{
warn(\"${Package}::$func_name() -- $var is not a blessed HV reference\");
XSRETURN_UNDEF;
}
{
warn(\"${Package}::$func_name() -- $var is not a blessed HV reference\");
XSRETURN_UNDEF;
}
O_RPM_Header
if (sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVHV))
$var = (HV*)SvRV($arg);
if (sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVHV))
$var = (HV*)SvRV($arg);
else
{
warn(\"${Package}::$func_name() -- $var is not a blessed HV reference\");
XSRETURN_UNDEF;
}
{
warn(\"${Package}::$func_name() -- $var is not a blessed HV reference\");
XSRETURN_UNDEF;
}