1TYPEMAP 2 3gchar T_IV 4gint T_IV 5gint32 T_IV 6guchar T_U_CHAR 7guint T_IV 8gulong T_U_LONG 9guint32 T_IV 10gdouble T_DOUBLE 11gchar * T_PV 12gint * T_PTROBJ 13guchar * T_PV 14 15utf8_str T_UTF8 16utf8_str_const T_UTF8 17 18GimpDrawable * T_GDRAWABLE 19GimpTile * T_TILE 20GimpPixelRgn * T_PIXELRGN 21GimpPixelRgn_PDL * T_PIXELRGN_PDL 22 23GtkWidget * T_IV 24 25GimpPixelRgnIterator T_PTROBJ 26 27IMAGE T_PREF 28LAYER T_PREF 29COLOR T_PREF 30CHANNEL T_PREF 31DRAWABLE T_PREF_ANY 32DISPLAY T_PREF 33REGION T_PREF 34 35GimpMemsizeEntry * GOBJECT 36GimpMemsizeEntry_own * GOBJECT_OWN 37GimpButton * GOBJECT 38GimpButton_own * GOBJECT_OWN 39GimpChainButton * GOBJECT 40GimpChainButton_own * GOBJECT_OWN 41GimpColorArea * GOBJECT 42GimpColorArea_own * GOBJECT_OWN 43GimpColorButton * GOBJECT 44GimpColorButton_own * GOBJECT_OWN 45GimpColorDisplay * GOBJECT 46GimpColorDisplay_own * GOBJECT_OWN 47GimpColorNotebook * GOBJECT 48GimpColorNotebook_own * GOBJECT_OWN 49GimpColorScale * GOBJECT 50GimpColorScale_own * GOBJECT_OWN 51GimpColorSelect * GOBJECT 52GimpColorSelect_own * GOBJECT_OWN 53GimpColorSelector * GOBJECT 54GimpColorSelector_own * GOBJECT_OWN 55GimpDialog * GOBJECT 56GimpDialog_own * GOBJECT_OWN 57GimpFileEntry * GOBJECT 58GimpFileEntry_own * GOBJECT_OWN 59GimpFontSelectButton * GOBJECT 60GimpFontSelectButton_own * GOBJECT_OWN 61GimpOffsetArea * GOBJECT 62GimpOffsetArea_own * GOBJECT_OWN 63GimpPathEditor * GOBJECT 64GimpPathEditor_own * GOBJECT_OWN 65GimpPickButton * GOBJECT 66GimpPickButton_own * GOBJECT_OWN 67GimpPixmap * GOBJECT 68GimpPixmap_own * GOBJECT_OWN 69GimpSizeEntry * GOBJECT 70GimpSizeEntry_own * GOBJECT_OWN 71GimpUnitMenu * GOBJECT 72GimpUnitMenu_own * GOBJECT_OWN 73 74GimpRGB T_GIMP_RGB 75GimpHSV T_GIMP_HSV 76GimpUnit T_GIMP_ENUM 77GimpColorAreaType T_GIMP_ENUM 78GimpChainPosition T_GIMP_ENUM 79GimpColorSelectorChannel T_GIMP_ENUM 80GimpSizeEntryUpdatePolicy T_GIMP_ENUM 81 82INPUT 83 84T_UTF8 85 $var = SvPVutf8_nolen ($arg); 86 87T_PREF 88 $var = unbless_croak ($arg, PKG_$ntype) 89 90T_PREF_ANY 91 $var = unbless_croak ($arg, PKG_ANY) 92 93T_GDRAWABLE 94 $var = old_gdrawable ($arg) 95 96T_TILE 97 $var = old_tile ($arg) 98 99T_PIXELRGN 100 $var = old_pixelrgn ($arg) 101 102T_PIXELRGN_PDL 103 $var = old_pixelrgn_pdl ($arg) 104 105GOBJECT 106 $var = ($type) SvGObject ($arg); 107 108T_GIMP_RGB 109 SvGimpRGB ($arg, $var); 110 111T_GIMP_HSV 112 SvGimpHSV ($arg, $var); 113 114T_GIMP_ENUM 115 $var = gperl_convert_enum (${ 116 my $t = $ntype; 117 $t =~ s/(?=[A-Z])/_/g; 118 \lc substr $t, 1; 119 }_type (), ($arg)); 120 121OUTPUT 122 123T_UTF8 124 sv_setpv ($arg, $var); 125 SvUTF8_on ($arg); 126 127T_PREF 128 $arg = autobless (newSViv ($var), GIMP_PDB_$ntype); 129 130T_PREF_ANY 131 $arg = autobless (newSViv ($var), GIMP_PDB_$ntype); 132 133T_GDRAWABLE 134 135GOBJECT 136 $arg = newSVGObject (G_OBJECT ($var)); 137 138GOBJECT_OWN 139 $arg = newSVGObject_noinc (G_OBJECT ($var)); 140 141T_GIMP_ENUM 142 $arg = gperl_convert_back_enum (${ 143 my $t = $ntype; 144 $t =~ s/(?=[A-Z])/_/g; 145 \lc substr $t, 1; 146 }_type (), ($var)); 147 148T_GIMP_RGB 149 $arg = newSVGimpRGB ($var); 150 151T_GIMP_HSV 152 $arg = newSVGimpHSV ($var); 153 154