avoid a possible sign-extension for offsets/sizes in SGI

[imager.git] / apidocs.perl

diff --git a/apidocs.perl b/apidocs.perl
index b96c72775dc7e3a45c299e7b62d93da67455a2b1..927939a325868252040c524c458c0d8bc1cbf881 100644 (file)
--- a/apidocs.perl
+++ b/apidocs.perl
@@ -102,6 +102,12 @@ Imager::APIRef - Imager's C API - reference.
 
   i_color color;
   color.rgba.r = 255; color.rgba.g = 0; color.rgba.b = 255;
 
   i_color color;
   color.rgba.r = 255; color.rgba.g = 0; color.rgba.b = 255;

+  double x[] = { ... };
+  double y[] = { ... };
+  i_polygon_t poly;
+  poly.count = sizeof(x) / sizeof(*x);
+  poly.x = x;
+  poly.y = y;

 
 EOS
 
 
 EOS
 


@@ -187,13 +193,18 @@ close OUT;
 
 
 sub make_func_list {
 
 
 sub make_func_list {

-  my @funcs = qw(i_img i_color i_fcolor i_fill_t mm_log mm_log i_img_color_channels i_img_has_alpha i_img_dim i_DF i_DFc i_DFp i_DFcp i_psamp_bits i_gsamp_bits i_psamp i_psampf);
+  my @funcs =
+    qw(i_img i_color i_fcolor i_fill_t mm_log mm_log i_color_model_t
+       im_context_t i_img_dim i_img_dim_u im_slot_t
+       i_polygon_t i_poly_fill_mode_t i_mutex_t
+       i_img_has_alpha i_DF i_DFc i_DFp i_DFcp i_psamp_bits i_gsamp_bits
+       i_psamp i_psampf);

   open FUNCS, "< imexttypes.h"
     or die "Cannot open imexttypes.h: $!\n";
   my $in_struct;
   while (<FUNCS>) {
     /^typedef struct/ && ++$in_struct;
   open FUNCS, "< imexttypes.h"
     or die "Cannot open imexttypes.h: $!\n";
   my $in_struct;
   while (<FUNCS>) {
     /^typedef struct/ && ++$in_struct;

-    if ($in_struct && /\(\*f_(i[om]?_\w+)/) {
+    if ($in_struct && !/SKIP/ && /\(\*f_(i[om]?_\w+)/) {

       my $name = $1;
       $name =~ s/_imp$//;
       push @funcs, $name;
       my $name = $1;
       $name =~ s/_imp$//;
       push @funcs, $name;