head	1.4;
access;
symbols
	rpm-4_4_8-release:1.4.18.2
	rpm-4_4_7-release:1.4.18.2
	rpm-4_4_6-release:1.4.18.2
	rpm-4_4_5-release:1.4.18.2
	rpm-4_4_4-release:1.4.18.2
	pjones-sparse-experiment:1.4.0.20
	rpm-4_4:1.4.0.18
	rpm-4_3_1-start:1.4
	rpm-4_3:1.4.0.16
	rpm-4_2_1-release:1.4
	rpm-4_1_1-release:1.4
	rpm-4_2-release:1.4
	rpm-4_2:1.4.0.14
	rpm-4_1-release:1.4
	rpm-4_1:1.4.0.12
	rpm-4_0_4-release:1.4
	jbj-before-beecrypt:1.4
	rpm-4_0_3-release:1.4
	jbj_b4_rollback:1.4
	rpm-4_0_2-release:1.4
	rpm-4_0_1-release:1.4
	rpm-3_0_6-release:1.4
	rpm-4_0-release:1.4
	rpm-3_0_6:1.4
	rpm-4_0:1.4.0.10
	rpm-3_0_5:1.4.0.8
	jbj_sparc64:1.4.0.6
	rpm-3_0_4:1.4.0.4
	rpm-3_0_3:1.4.0.2;
locks; strict;
comment	@# @;


1.4
date	99.07.16.08.44.54;	author gafton;	state Exp;
branches
	1.4.18.1;
next	1.3;

1.3
date	99.07.14.22.06.21;	author gafton;	state Exp;
branches;
next	1.2;

1.2
date	99.07.14.17.23.30;	author gafton;	state Exp;
branches;
next	1.1;

1.1
date	99.07.14.16.52.52;	author jbj;	state Exp;
branches;
next	;

1.4.18.1
date	2004.11.19.15.44.15;	author jbj;	state dead;
branches;
next	1.4.18.2;

1.4.18.2
date	2005.11.19.17.36.24;	author jbj;	state Exp;
branches;
next	;


desc
@@


1.4
log
@Added rpmdb traversal
@
text
@/* $Id: typemap,v 1.3 1999/07/14 22:06:21 gafton Exp $ */

TYPEMAP

Header			T_PTROBJ
rpmTransactionSet	T_PTROBJ
rpmdb			T_PTROBJ

const char *		T_PV
@


1.4.18.1
log
@Not in rpm-4_4.
@
text
@d1 1
a1 1
/* $Id: typemap,v 1.4 1999/07/16 08:44:54 gafton Exp $ */
@


1.4.18.2
log
@- complete forking perl-RPM2/* to perl/* module name "RPM".
@
text
@d1 2
a3 31
rpmdb			O_OBJECT_rpmdb
rpmdbMatchIterator	O_OBJECT_rpmmi
Header                  O_OBJECT_header
rpmts			O_OBJECT_rpmts
rpmprobFilterFlags	T_IV
rpmElementType		T_IV

INPUT
O_OBJECT_rpmdb
    if (sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG))
        $var = ($type)SvIV((SV*)SvRV( $arg ));
    else {
        warn( \"${Package}::$func_name() -- $var is not a blessed SV reference\" );
        XSRETURN_UNDEF;
    }

O_OBJECT_rpmmi
    if (sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG))
        $var = ($type)SvIV((SV*)SvRV( $arg ));
    else {
        warn( \"${Package}::$func_name() -- $var is not a blessed SV reference\" );
        XSRETURN_UNDEF;
    }

O_OBJECT_header
    if (sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG))
        $var = ($type)SvIV((SV*)SvRV( $arg ));
    else {
        warn( \"${Package}::$func_name() -- $var is not a blessed SV reference\" );
        XSRETURN_UNDEF;
    }
d5 3
a7 7
O_OBJECT_rpmts
    if (sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG))
        $var = ($type)SvIV((SV*)SvRV( $arg ));
    else {
        warn( \"${Package}::$func_name() -- $var is not a blessed SV reference\" );
        XSRETURN_UNDEF;
    }
d9 1
a9 9
OUTPUT
O_OBJECT_rpmdb
        sv_setref_pv( $arg, "RPM::C::DB", (void*)$var );
O_OBJECT_rpmmi
        sv_setref_pv( $arg, "RPM::C::PackageIterator", (void*)$var );
O_OBJECT_header
        sv_setref_pv( $arg, "RPM::C::Header", (void*)$var );
O_OBJECT_rpmts
        sv_setref_pv( $arg, "RPM::C::Transaction", (void*)$var );
@


1.3
log
@Added transactions skeleton
@
text
@d1 1
a1 1
/* $Id: typemap,v 1.2 1999/07/14 17:23:30 gafton Exp $ */
d5 3
a7 3
Header * T_PTROBJ
const char * T_PV
Transaction * T_PTROBJ
d9 1
@


1.2
log
@Updated
@
text
@d1 1
a1 1
/* $Id: typemap,v 1.3 1999/07/14 07:41:14 gafton Exp $ */
d7 1
@


1.1
log
@Merge Christian's preliminary perl bindings.
@
text
@@

