Changeset 1948 for libcaca/trunk/ruby/cuculTweet

Timestamp:

Nov 13, 2007, 2:20:14 PM (12 years ago)

Author:

Pascal Terjan

Message:

Improve Ruby API for draw_{,thin_}polyline and fix a leak on error

File:

• libcaca/trunk/ruby/cucul/cucul-canvas.c (modified) (5 diffs)

libcaca/trunk/ruby/cucul/cucul-canvas.c

@@ -245 +245 @@
 }
 
-static VALUE draw_polyline(VALUE self, VALUE x, VALUE y, VALUE ch)
+static VALUE draw_polyline(VALUE self, VALUE points, VALUE ch)
 {
     int i, n;
     int *ax, *ay;
-    
-    n = RARRAY(x)->len;
-
-    /* Ensure x and y have the same number of elements */
-    if(n != RARRAY(y)->len)
-        rb_raise(rb_eArgError, "Arguments do not have the same number of elements");
+    int error = 0;
+    VALUE v, x, y;
+
+    n = RARRAY(points)->len;
 
     ax = (int*)malloc(n*sizeof(int));
@@ -269 +267 @@
     for(i=0; i<n; i++)
     {
-        ax[i] = NUM2INT(rb_ary_entry(x, i));
-        ay[i] = NUM2INT(rb_ary_entry(y, i));
+        v = rb_ary_entry(points, i);
+        if((TYPE(v) == T_ARRAY) && (RARRAY(v)->len == 2))
+        {
+            x = rb_ary_entry(v,0);
+            y = rb_ary_entry(v,1);
+            if(rb_obj_is_kind_of(x, rb_cInteger) &&
+               rb_obj_is_kind_of(y, rb_cInteger))
+            {
+                ax[i] = NUM2INT(x);
+                ay[i] = NUM2INT(y);
+            } else
+                error = 1;
+        }
+        else
+            error = 1;
+    }
+
+    if(error)
+    {
+        free(ax);
+        free(ay);
+        rb_raise(rb_eArgError, "Invalid list of points");
     }
 
@@ -289 +307 @@
 }
 
-
-static VALUE draw_thin_polyline(VALUE self, VALUE x, VALUE y)
+static VALUE draw_thin_polyline(VALUE self, VALUE points)
 {
     int i, n;
     int *ax, *ay;
-    
-    n = RARRAY(x)->len;
-
-    /* Ensure x and y have the same number of elements */
-    if(n != RARRAY(y)->len)
-        rb_raise(rb_eArgError, "Arguments do not have the same number of elements");
+    int error = 0;
+    VALUE v, x, y;
+
+    n = RARRAY(points)->len;
 
     ax = (int*)malloc(n*sizeof(int));
@@ -314 +329 @@
     for(i=0; i<n; i++)
     {
-        ax[i] = NUM2INT(rb_ary_entry(x, i));
-        ay[i] = NUM2INT(rb_ary_entry(y, i));
+        v = rb_ary_entry(points, i);
+        if((TYPE(v) == T_ARRAY) && (RARRAY(v)->len == 2))
+        {
+            x = rb_ary_entry(v,0);
+            y = rb_ary_entry(v,1);
+            if(rb_obj_is_kind_of(x, rb_cInteger) &&
+               rb_obj_is_kind_of(y, rb_cInteger))
+            {
+                ax[i] = NUM2INT(x);
+                ay[i] = NUM2INT(y);
+            } else
+                error = 1;
+        }
+        else
+            error = 1;
+    }
+
+    if(error)
+    {
+        free(ax);
+        free(ay);
+        rb_raise(rb_eArgError, "Invalid list of points");
     }
 
@@ -575 +610 @@
 
     rb_define_method(cCanvas, "draw_line", draw_line, 5);
-    rb_define_method(cCanvas, "draw_polyline", draw_polyline, 3);
+    rb_define_method(cCanvas, "draw_polyline", draw_polyline, 2);
     rb_define_method(cCanvas, "draw_thin_line", draw_thin_line, 4);
-    rb_define_method(cCanvas, "draw_thin_polyline", draw_thin_polyline, 2);
+    rb_define_method(cCanvas, "draw_thin_polyline", draw_thin_polyline, 1);
     rb_define_method(cCanvas, "draw_circle", draw_circle, 4);
     rb_define_method(cCanvas, "draw_ellipse", draw_ellipse, 5);