Gecko [ www.vortexaion.com ]

Name	Size	Permission	Date
Color	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Expr	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
File	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Filter	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Font	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
include	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
API.pod	9.89 KB	-rw-rw-rw-	2015-01-25 11:51
APIRef.pod	51.62 KB	-rw-rw-rw-	2021-01-24 17:46
Color.pm	16.61 KB	-rw-rw-rw-	2020-06-13 09:09
Cookbook.pod	15.1 KB	-rw-rw-rw-	2014-01-10 11:46
CountColor.pm	817 B	-rw-rw-rw-	2020-06-13 10:10
Draw.pod	36.08 KB	-rw-rw-rw-	2019-12-26 11:47
Engines.pod	13.1 KB	-rw-rw-rw-	2014-01-10 11:46
Expr.pm	15.57 KB	-rw-rw-rw-	2020-06-13 09:36
ExtUtils.pm	2.06 KB	-rw-rw-rw-	2020-06-13 09:37
Files.pod	55.26 KB	-rw-rw-rw-	2019-02-26 09:03
Fill.pm	12.08 KB	-rw-rw-rw-	2020-06-13 09:45
Filters.pod	21.76 KB	-rw-rw-rw-	2020-03-21 03:07
Font.pm	27.12 KB	-rw-rw-rw-	2020-06-13 09:11
Fountain.pm	9.25 KB	-rw-rw-rw-	2020-06-13 09:11
Handy.pod	924 B	-rw-rw-rw-	2014-01-10 11:46
IO.pod	8.35 KB	-rw-rw-rw-	2019-01-15 06:30
ImageTypes.pod	32.63 KB	-rw-rw-rw-	2015-11-09 11:01
Inline.pod	1.54 KB	-rw-rw-rw-	2014-01-10 11:46
Install.pod	10.91 KB	-rw-rw-rw-	2020-06-13 08:54
LargeSamples.pod	3.15 KB	-rw-rw-rw-	2014-01-10 11:46
Matrix2d.pm	10.16 KB	-rw-rw-rw-	2020-06-13 10:15
Preprocess.pm	7.32 KB	-rw-rw-rw-	2020-06-13 09:48
Probe.pm	16.45 KB	-rw-rw-rw-	2020-06-13 10:16
Regops.pm	9.36 KB	-rw-rw-rw-	2020-06-13 09:50
Security.pod	1.68 KB	-rw-rw-rw-	2014-01-10 11:46
Test.pm	30.68 KB	-rw-rw-rw-	2020-06-13 10:16
Threads.pod	1.83 KB	-rw-rw-rw-	2014-01-10 11:46
Transform.pm	12.1 KB	-rw-rw-rw-	2020-06-13 09:26
Transformations.pod	27.45 KB	-rw-rw-rw-	2018-09-14 04:56
Tutorial.pod	4.98 KB	-rw-rw-rw-	2014-01-10 11:46
interface.pod	8.72 KB	-rw-rw-rw-	2014-01-10 11:46
regmach.pod	2.68 KB	-rw-rw-rw-	2014-01-10 11:46
typemap	4.03 KB	-rw-rw-rw-	2019-01-15 06:30

Rename

#i_img *			T_PTR_NULL
Imager::Color           T_PTROBJ
Imager::Color::Float    T_PTROBJ
Imager::ImgRaw          T_IMAGER_IMAGE
Imager::Font::TT	T_PTROBJ
Imager::IO              T_PTROBJ
Imager::FillHandle      T_PTROBJ
const char *		T_PV
im_float		T_FLOAT
float*			T_ARRAY
undef_int		T_IV_U
undef_neg_int           T_IV_NEGU
HASH			T_HVREF
utf8_str		T_UTF8_STR
i_img_dim		T_IV_checked
im_double		T_NV_checked

# these types are for use by Inline, which can't handle types containing ::
Imager__Color           T_PTROBJ_INV
Imager__Color__Float    T_PTROBJ_INV
Imager__ImgRaw          T_IMAGER_IMAGE
Imager__FillHandle      T_PTROBJ_INV
Imager__IO              T_PTROBJ_INV

# mostly intended for non-Imager-core use
Imager                  T_IMAGER_FULL_IMAGE

#############################################################################
INPUT
T_PTR_NULL
	if (SvOK($arg)) $var = INT2PTR($type,SvIV($arg));
	else $var = NULL

# handles Imager objects rather than just raw objects
T_IMAGER_IMAGE
        if (sv_derived_from($arg, \"Imager::ImgRaw\")) {
            IV tmp = SvIV((SV*)SvRV($arg));
            $var = INT2PTR($type,tmp);
        }
        else if (sv_derived_from($arg, \"Imager\") && 
                 SvTYPE(SvRV($arg)) == SVt_PVHV) {
            HV *hv = (HV *)SvRV($arg);
            SV **sv = hv_fetch(hv, \"IMG\", 3, 0);
            if (sv && *sv && sv_derived_from(*sv, \"Imager::ImgRaw\")) {
                IV tmp = SvIV((SV*)SvRV(*sv));
                $var = INT2PTR($type,tmp);
            }
            else
                Perl_croak(aTHX_ \"$var is not of type Imager::ImgRaw\");
        }
        else
            Perl_croak(aTHX_ \"$var is not of type Imager::ImgRaw\");

T_IMAGER_FULL_IMAGE
        if (sv_derived_from($arg, \"Imager\") && 
                 SvTYPE(SvRV($arg)) == SVt_PVHV) {
            HV *hv = (HV *)SvRV($arg);
            SV **sv = hv_fetch(hv, \"IMG\", 3, 0);
            if (sv && *sv && sv_derived_from(*sv, \"Imager::ImgRaw\")) {
                IV tmp = SvIV((SV*)SvRV(*sv));
                $var = INT2PTR($type,tmp);
            }
            else
                Perl_croak(aTHX_ \"$var is not of type Imager::ImgRaw\");
        }
        else
            Perl_croak(aTHX_ \"$var is not of type Imager\");

# same as T_PTROBJ, but replace __ with ::, the opposite of the way
# xsubpp's processing works
# this is to compensate for Inline's problem with type names containing ::
T_PTROBJ_INV
        if (sv_derived_from($arg, \"${(my $ntt=$ntype)=~s/__/::/g;\$ntt}\")) {
            IV tmp = SvIV((SV*)SvRV($arg));
            $var = INT2PTR($type,tmp);
        }
        else
            croak(\"$var is not of type ${(my $ntt=$ntype)=~s/__/::/g;\$ntt}\");

T_NV_checked
	{
	    SvGETMAGIC($arg);
	    if (SvROK($arg) && !SvAMAGIC($arg)) {
	        croak(\"Numeric argument '$var' shouldn't be a reference\");
	    }
	    else {
	    	$var = ($type)SvNV($arg);
	    }
	}

T_IV_checked
	{
	    SvGETMAGIC($arg);
	    if (SvROK($arg) && !SvAMAGIC($arg)) {
	        croak(\"Numeric argument '$var' shouldn't be a reference\");
	    }
	    else {
	    	$var = ($type)SvIV($arg);
	    }
	}

#############################################################################
OUTPUT
T_IV_U
	if ($var == 0) $arg=&PL_sv_undef;
	else sv_setiv($arg, (IV)$var);
T_IV_NEGU
	if ($var < 0) $arg=&PL_sv_undef;
	else sv_setiv($arg, (IV)$var);
T_PTR_NULL
	sv_setiv($arg, (IV)$var);

# same as T_PTROBJ
T_IMAGER_IMAGE
        sv_setref_pv($arg, \"Imager::ImgRaw\", (void*)$var);

T_PTROBJ_INV
        sv_setref_pv($arg, \"${(my $ntt=$ntype)=~s/__/::/g;\$ntt}\", (void*)$var);

# ugh, the things we do for ease of use
# this isn't suitable in some cases
T_IMAGER_FULL_IMAGE
        if ($var) {
          SV *imobj = NEWSV(0, 0);
          HV *hv = newHV();
          sv_setref_pv(imobj, \"Imager::ImgRaw\", $var);
          hv_store(hv, "IMG", 3, imobj, 0);
          $arg = sv_2mortal(sv_bless(newRV_noinc((SV*)hv), gv_stashpv("Imager", 1)));
        }
        else {
          $arg = &PL_sv_undef;
        }

T_IV_checked
	sv_setiv($arg, (IV)$var);

T_NV_checked
	sv_setnv($arg, (NV)$var);