X-Git-Url: http://git.imager.perl.org/imager.git/blobdiff_plain/9a6ab99c43628b6203b3de2321a2ae424004a203..c6e870ae38b69a724097522ce3ddedba4f7cbd2b:/Imager.xs

diff --git a/Imager.xs b/Imager.xs
index e80395bf..94c4325f 100644
--- a/Imager.xs
+++ b/Imager.xs
@@ -437,7 +437,7 @@ io_reader(void *p, void *data, size_t size) {
   size  -= cbd->used - cbd->where;
   out   += cbd->used - cbd->where;
   if (size < sizeof(cbd->buffer)) {
-    int did_read;
+    int did_read = 0;
     int copy_size;
     while (size
 	   && (did_read = call_reader(cbd, cbd->buffer, size, 
@@ -535,6 +535,8 @@ static struct value_name make_color_names[] =
   { "webmap", mc_web_map, },
   { "addi", mc_addi, },
   { "mediancut", mc_median_cut, },
+  { "mono", mc_mono, },
+  { "monochrome", mc_mono, },
 };
 
 static struct value_name translate_names[] =
@@ -1696,10 +1698,10 @@ i_matrix_transform(im, xsize, ysize, matrix, ...)
       OUTPUT:
         RETVAL
 
-void
+undef_int
 i_gaussian(im,stdev)
     Imager::ImgRaw     im
-	     float     stdev
+	    double     stdev
 
 void
 i_unsharp_mask(im,stdev,scale)
@@ -2250,9 +2252,9 @@ i_test_format_probe(ig, length)
 #ifdef HAVE_LIBTIFF
 
 Imager::ImgRaw
-i_readtiff_wiol(ig, length, page=0)
+i_readtiff_wiol(ig, allow_incomplete, page=0)
         Imager::IO     ig
-	       int     length
+	       int     allow_incomplete
                int     page
 
 void
@@ -2881,9 +2883,9 @@ i_readgif_multi_wiol(ig)
 
 
 Imager::ImgRaw
-i_readpnm_wiol(ig, length)
+i_readpnm_wiol(ig, allow_incomplete)
         Imager::IO     ig
-	       int     length
+	       int     allow_incomplete
 
 
 undef_int
@@ -2912,8 +2914,9 @@ i_writebmp_wiol(im,ig)
         Imager::IO     ig
 
 Imager::ImgRaw
-i_readbmp_wiol(ig)
+i_readbmp_wiol(ig, allow_incomplete=0)
         Imager::IO     ig
+        int            allow_incomplete
 
 
 undef_int
@@ -3269,7 +3272,7 @@ Imager::ImgRaw
 i_diff_image(im, im2, mindist=0)
     Imager::ImgRaw     im
     Imager::ImgRaw     im2
-               int     mindist
+            double     mindist
 
 undef_int
 i_fountain(im, xa, ya, xb, yb, type, repeat, combine, super_sample, ssample_param, segs)
@@ -3565,8 +3568,6 @@ i_ppal(im, l, y, ...)
       PREINIT:
         i_palidx *work;
         int i;
-        STRLEN len;
-        int count;
       CODE:
         if (items > 3) {
           work = mymalloc(sizeof(i_palidx) * (items-3));
@@ -3591,9 +3592,7 @@ i_ppal_p(im, l, y, data)
         SV *data
       PREINIT:
         i_palidx const *work;
-        int i;
         STRLEN len;
-        int count;
       CODE:
         work = (i_palidx const *)SvPV(data, len);
         len /= sizeof(i_palidx);
@@ -4023,6 +4022,10 @@ i_img_16_new(x, y, ch)
         int y
         int ch
 
+Imager::ImgRaw
+i_img_to_rgb16(im)
+       Imager::ImgRaw im
+
 Imager::ImgRaw
 i_img_double_new(x, y, ch)
         int x
@@ -4261,7 +4264,7 @@ i_wf_cp(face, im, tx, ty, channel, size, text_sv, align, aa, utf8 = 0)
         if (SvUTF8(text_sv))
           utf8 = 1;
 #endif
-	RETVAL = i_wf_cp(face, im, tx, ty, channel, size, text, strlen(text), 
+	RETVAL = i_wf_cp(face, im, tx, ty, channel, size, text, text_len, 
 		         align, aa, utf8);
       OUTPUT:
 	RETVAL