Adding fixes to have coherent FFI signatures.

Merge branch 'fix_issue_53' into test_transform_53
ajolma · Nov 17, 2023 · ef77036 · ef77036
2 parents dfc8740 + 714a08f
commit ef77036
Showing 1 changed file with 8 additions and 8 deletions.
diff --git a/lib/Geo/GDAL/FFI.pm b/lib/Geo/GDAL/FFI.pm
@@ -536,9 +536,9 @@ $ffi->attach('GDALInitGCPs' => [qw/int opaque/] => 'void');
 $ffi->attach('GDALDeinitGCPs' => [qw/int opaque/] => 'void');
 $ffi->attach('GDALDuplicateGCPs' => [qw/int opaque/] => 'opaque');
 $ffi->attach('GDALGCPsToGeoTransform' => [qw/int opaque double* int/] => 'int');
-$ffi->attach('GDALInvGeoTransform' => [qw/double* double*/] => 'int');
-$ffi->attach('GDALApplyGeoTransform' => [qw/double* double double double* double*/] => 'void');
-$ffi->attach('GDALComposeGeoTransforms' => [qw/double* double* double*/] => 'void');
+$ffi->attach('GDALInvGeoTransform' => [qw/double[] double[]/] => 'int');
+$ffi->attach('GDALApplyGeoTransform' => [qw/double[6] double double double* double*/] => 'void');
+$ffi->attach('GDALComposeGeoTransforms' => [qw/double[6] double[6] double[6]/] => 'void');
 $ffi->attach('GDALGetMetadataDomainList' => [qw/opaque/] => 'opaque');
 $ffi->attach('GDALGetMetadata' => [qw/opaque string/] => 'opaque');
 $ffi->attach('GDALSetMetadata' => [qw/opaque opaque string/] => 'int');
@@ -1509,11 +1509,11 @@ $ffi->attach('OCTGetSourceCS' => [qw/opaque/] => 'opaque');
 $ffi->attach('OCTGetTargetCS' => [qw/opaque/] => 'opaque');
 $ffi->attach('OCTGetInverse' => [qw/opaque/] => 'opaque');
 $ffi->attach('OCTDestroyCoordinateTransformation' => [qw/opaque/] => 'void');
-$ffi->attach('OCTTransform' => [qw/opaque int double* double* double*/] => 'int');
-$ffi->attach('OCTTransformEx' => [qw/opaque int double* double* double* int*/] => 'int');
-$ffi->attach('OCTTransform4D' => [qw/opaque int double* double* double* double* int*/] => 'int');
-$ffi->attach('OCTTransform4DWithErrorCodes' => [qw/opaque int double* double* double* double* int*/] => 'int');
-$ffi->attach('OCTTransformBounds' => [qw/opaque double double double double double* double* double* double* int/] => 'int');
+$ffi->attach('OCTTransform' => [qw/opaque int double[] double[] double[]/] => 'int');
+$ffi->attach('OCTTransformEx' => [qw/opaque int double[] double[] double[] int[]/] => 'int');
+$ffi->attach('OCTTransform4D' => [qw/opaque int double[] double[] double[] double[] int[]/] => 'int');
+$ffi->attach('OCTTransform4DWithErrorCodes' => [qw/opaque int double[] double[] double[] double[] int[]/] => 'int');
+$ffi->attach('OCTTransformBounds' => [qw/opaque double double double double double[] double[] double[] double[] int/] => 'int');
 # from apps/gdal_utils.h
 $ffi->attach('GDALInfoOptionsNew' => [qw/opaque opaque/] => 'opaque');
 $ffi->attach('GDALInfoOptionsFree' => [qw/opaque/] => 'void');