opolygon*	T_PTROBJ
omultipolygon*	T_PTROBJ
omultilinestring*	T_PTROBJ

polygon		T_POLYGON
polygon*        T_POLYGON_PTR

multi_polygon		T_MULTI_POLYGON
multi_polygon*        T_MULTI_POLYGON_PTR

linestring	T_LINESTRING
linestring*	T_LINESTRING_PTR

multi_linestring	T_MULTI_LINESTRING
multi_linestring*	T_MULTI_LINESTRING_PTR

point_xy	T_POINT_XY
point_xy*       T_POINT_XY_PTR

INPUT
T_POLYGON
	if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVAV) {
	  $type* tmp = perl2polygon(aTHX_ (AV*)SvRV($arg));
	  if (tmp == NULL) {
	    Perl_croak(aTHX_ \"%s: %s is not an array reference or contains invalid data\",
	               ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	               \"$var\");
	  }
	  else {
	    $var = *tmp;
	    delete tmp;
	  }
	}
	else
	  Perl_croak(aTHX_ \"%s: %s is not an array reference\",
	             ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	             \"$var\");

T_POLYGON_PTR
	if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVAV) {
	  $var = perl2polygon(aTHX_ (AV*)SvRV($arg));
	  if (($var) == NULL) {
	    Perl_croak(aTHX_ \"%s: %s is not an array reference or contains invalid data\",
	               ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	               \"$var\");
	  }
	}
	else
	  Perl_croak(aTHX_ \"%s: %s is not an array reference\",
	             ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	             \"$var\");

T_MULTI_POLYGON
	if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVAV) {
	  $type* tmp = perl2multi_polygon(aTHX_ (AV*)SvRV($arg));
	  if (tmp == NULL) {
	    Perl_croak(aTHX_ \"%s: %s is not an array reference or contains invalid data\",
	               ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	               \"$var\");
	  }
	  else {
	    $var = *tmp;
	    delete tmp;
	  }
	}
	else
	  Perl_croak(aTHX_ \"%s: %s is not an array reference\",
	             ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	             \"$var\");

T_MULTI_POLYGON_PTR
	if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVAV) {
	  $var = perl2multi_polygon(aTHX_ (AV*)SvRV($arg));
	  if (($var) == NULL) {
	    Perl_croak(aTHX_ \"%s: %s is not an array reference or contains invalid data\",
	               ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	               \"$var\");
	  }
	}
	else
	  Perl_croak(aTHX_ \"%s: %s is not an array reference\",
	             ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	             \"$var\");

T_LINESTRING
	if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVAV) {
	  $type* tmp = perl2linestring(aTHX_ (AV*)SvRV($arg));
	  if (tmp == NULL) {
	    Perl_croak(aTHX_ \"%s: %s is not an array reference or contains invalid data\",
	               ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	               \"$var\");
	  }
	  else {
	    $var = *tmp;
	    delete tmp;
	  }
	}
	else
	  Perl_croak(aTHX_ \"%s: %s is not an array reference\",
	             ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	             \"$var\");

T_LINESTRING_PTR
	if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVAV) {
	  $var = perl2linestring(aTHX_ (AV*)SvRV($arg));
	  if (($var) == NULL) {
	    Perl_croak(aTHX_ \"%s: %s is not an array reference or contains invalid data\",
	               ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	               \"$var\");
	  }
	}
	else
	  Perl_croak(aTHX_ \"%s: %s is not an array reference\",
	             ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	             \"$var\");


T_MULTI_LINESTRING
	if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVAV) {
	  $type* tmp = perl2multi_linestring(aTHX_ (AV*)SvRV($arg));
	  if (tmp == NULL) {
	    Perl_croak(aTHX_ \"%s: %s is not an array reference or contains invalid data\",
	               ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	               \"$var\");
	  }
	  else {
	    $var = *tmp;
	    delete tmp;
	  }
	}
	else
	  Perl_croak(aTHX_ \"%s: %s is not an array reference\",
	             ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	             \"$var\");

T_MULTI_LINESTRING_PTR
	if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVAV) {
	  $var = perl2multi_linestring(aTHX_ (AV*)SvRV($arg));
	  if (($var) == NULL) {
	    Perl_croak(aTHX_ \"%s: %s is not an array reference or contains invalid data\",
	               ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	               \"$var\");
	  }
	}
	else
	  Perl_croak(aTHX_ \"%s: %s is not an array reference\",
	             ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	             \"$var\");

T_POINT_XY
	if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVAV) {
	  $type* tmp = perl2point_xy(aTHX_ (AV*)SvRV($arg));
	  if (tmp == NULL) {
	    Perl_croak(aTHX_ \"%s: %s is not an array reference or contains invalid data\",
	               ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	               \"$var\");
	  }
	  else {
	    $var = *tmp;
	    delete tmp;
	  }
	}
	else
	  Perl_croak(aTHX_ \"%s: %s is not an array reference\",
	             ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	             \"$var\");

T_POINT_XY_PTR
	if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVAV) {
	  $var = perl2point_xy(aTHX_ (AV*)SvRV($arg));
	  if (($var) == NULL) {
	    Perl_croak(aTHX_ \"%s: %s is not an array reference or contains invalid data\",
	               ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	               \"$var\");
	  }
	}
	else
	  Perl_croak(aTHX_ \"%s: %s is not an array reference\",
	             ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	             \"$var\");


OUTPUT

T_POLYGON
	$arg = polygon2perl(aTHX_ $var);

T_POLYGON_PTR
	$arg = polygon2perl(aTHX_ *$var);
	delete $var;

T_MULTI_POLYGON
	$arg = multi_polygon2perl(aTHX_ $var);

T_MULTI_POLYGON_PTR
	$arg = multi_polygon2perl(aTHX_ *$var);
	delete $var;

T_LINESTRING
	$arg = linestring2perl(aTHX_ $var);

T_LINESTRING_PTR
	$arg = linestring2perl(aTHX_ *$var);
	delete $var;

T_MULTI_LINESTRING
	$arg = multi_linestring2perl(aTHX_ $var);

T_MULTI_LINESTRING_PTR
	$arg = multi_linestring2perl(aTHX_ *$var);
	delete $var;

T_POINT_XY
	$arg = point_xy2perl(aTHX_ $var);

T_POINT_XY_PTR
	$arg = point_xy2perl(aTHX_ *$var);
	delete $var;