src/rb_evas.c

   1 /*
   2  * $Id: rb_evas.c 29 2004-07-08 18:47:44Z tilman $
   3  *
   4  * Copyright (C) 2004 Tilman Sauerbeck (tilman at code-monkey de)
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19  */
  20
  21 #include <ruby.h>
  22
  23 #include <Evas.h>
  24
  25 #include "rb_evas_main.h"
  26 #include "rb_evas.h"
  27 #include "rb_evas_object.h"
  28
  29 static VALUE parents;
  30
  31 static void c_mark (Evas **e)
  32 {
  33         VALUE parent;
  34
  35         parent = rb_hash_aref (parents, INT2NUM ((long) (e)));
  36         if (parent != Qnil)
  37                 rb_gc_mark (parent);
  38 }
  39
  40 static void c_free (Evas **e)
  41 {
  42         /* do NOT call evas_free() here, since the Evas is freed
  43          * by ecore_evas_free() eventually */
  44         rb_hash_aset (parents, INT2NUM ((long) e), Qnil);
  45
  46         free (e);
  47 }
  48
  49 VALUE TO_EVAS (VALUE parent, Evas *e)
  50 {
  51         VALUE self;
  52         Evas **my_e = NULL;
  53
  54         if (NIL_P (parent) || !e)
  55                 return Qnil;
  56
  57         self = Data_Make_Struct (cEvas, Evas *,
  58                                  c_mark, c_free, my_e);
  59         *my_e = e;
  60
  61         rb_hash_aset (parents, INT2NUM ((long) my_e), parent);
  62
  63         rb_obj_call_init (self, 0, NULL);
  64
  65         return self;
  66 }
  67
  68 static VALUE c_inspect (VALUE self)
  69 {
  70         char buf[128];
  71
  72         GET_OBJ (self, Evas, e, "Evas");
  73
  74         snprintf (buf, sizeof (buf), "#<Evas::Evas:%p ptr=%p>",
  75                   (void *) self, *e);
  76
  77         return rb_str_new2 (buf);
  78 }
  79
  80 static VALUE c_render (VALUE self)
  81 {
  82         GET_OBJ (self, Evas, e, "Evas");
  83
  84         evas_render (*e);
  85
  86         return Qnil;
  87 }
  88
  89 static VALUE c_font_path_clear (VALUE self)
  90 {
  91         GET_OBJ (self, Evas, e, "Evas");
  92
  93         evas_font_path_clear (*e);
  94
  95         return Qnil;
  96 }
  97
  98 static VALUE c_font_path_append (VALUE self, VALUE path)
  99 {
 100         GET_OBJ (self, Evas, e, "Evas");
 101
 102         Check_Type (path, T_STRING);
 103
 104         evas_font_path_append (*e, StringValuePtr (path));
 105
 106         return Qnil;
 107 }
 108
 109 static VALUE c_font_path_prepend (VALUE self, VALUE path)
 110 {
 111         GET_OBJ (self, Evas, e, "Evas");
 112
 113         Check_Type (path, T_STRING);
 114
 115         evas_font_path_append (*e, StringValuePtr (path));
 116
 117         return Qnil;
 118 }
 119
 120 static VALUE c_font_path_get (VALUE self)
 121 {
 122         VALUE ary;
 123         const Evas_List *list, *l;
 124
 125         GET_OBJ (self, Evas, e, "Evas");
 126
 127         if (!(list = evas_font_path_list (*e)))
 128                 return rb_ary_new ();
 129
 130         ary = rb_ary_new2 (evas_list_count ((Evas_List *) list));
 131
 132         for (l = list; l; l = l->next)
 133                 rb_ary_push (ary, rb_str_new2 (l->data));
 134
 135         return ary;
 136 }
 137
 138 static VALUE c_font_cache_get (VALUE self)
 139  {
 140         GET_OBJ (self, Evas, e, "Evas");
 141
 142         return INT2FIX (evas_font_cache_get (*e));
 143 }
 144
 145 static VALUE c_font_cache_set (VALUE self, VALUE val)
 146 {
 147         GET_OBJ (self, Evas, e, "Evas");
 148
 149         Check_Type (val, T_FIXNUM);
 150
 151         evas_font_cache_set (*e, FIX2INT (val));
 152
 153         return Qnil;
 154 }
 155
 156 static VALUE c_font_cache_flush (VALUE self)
 157 {
 158         GET_OBJ (self, Evas, e, "Evas");
 159
 160         evas_font_cache_flush (*e);
 161
 162         return Qnil;
 163 }
 164
 165 static VALUE c_image_cache_get (VALUE self)
 166 {
 167         GET_OBJ (self, Evas, e, "Evas");
 168
 169         return INT2FIX (evas_image_cache_get (*e));
 170 }
 171
 172 static VALUE c_image_cache_set (VALUE self, VALUE val)
 173 {
 174         GET_OBJ (self, Evas, e, "Evas");
 175
 176         Check_Type (val, T_FIXNUM);
 177
 178         evas_image_cache_set (*e, FIX2INT (val));
 179
 180         return Qnil;
 181 }
 182
 183 static VALUE c_image_cache_reload (VALUE self)
 184 {
 185         GET_OBJ (self, Evas, e, "Evas");
 186
 187         evas_image_cache_reload (*e);
 188
 189         return Qnil;
 190 }
 191
 192 static VALUE c_image_cache_flush (VALUE self)
 193 {
 194         GET_OBJ (self, Evas, e, "Evas");
 195
 196         evas_image_cache_flush (*e);
 197
 198         return Qnil;
 199 }
 200
 201 static VALUE c_top_get (VALUE self)
 202 {
 203         Evas_Object *o;
 204         void *obj;
 205
 206         GET_OBJ (self, Evas, e, "Evas");
 207
 208         if (!(o = evas_object_top_get (*e)))
 209                 return Qnil;
 210
 211         if (!(obj = evas_object_data_get (o, RUBY_EVAS_OBJECT_KEY))) {
 212                 rb_raise (rb_eException, "EvasObject Ruby object key missing");
 213                 return Qnil;
 214         }
 215
 216         return (VALUE) obj;
 217 }
 218
 219 static VALUE c_bottom_get (VALUE self)
 220 {
 221         Evas_Object *o;
 222         void *obj;
 223
 224         GET_OBJ (self, Evas, e, "Evas");
 225
 226         if (!(o = evas_object_bottom_get (*e)))
 227                 return Qnil;
 228
 229         if (!(obj = evas_object_data_get (o, RUBY_EVAS_OBJECT_KEY))) {
 230                 rb_raise (rb_eException, "EvasObject Ruby object key missing");
 231                 return Qnil;
 232         }
 233
 234         return (VALUE) obj;
 235 }
 236
 237 static VALUE c_find_object (VALUE self, VALUE name)
 238 {
 239         Evas_Object *o;
 240         void *obj;
 241
 242         GET_OBJ (self, Evas, e, "Evas");
 243
 244         Check_Type (name, T_STRING);
 245
 246         if (!(o = evas_object_name_find (*e, StringValuePtr (name))))
 247                 return Qnil;
 248
 249         if (!(obj = evas_object_data_get (o, RUBY_EVAS_OBJECT_KEY))) {
 250                 rb_raise (rb_eException, "EvasObject Ruby object key missing");
 251                 return Qnil;
 252         }
 253
 254         return (VALUE) obj;
 255 }
 256
 257 void Init_Evas (void)
 258 {
 259         cEvas = rb_define_class_under (mEvas, "Evas", rb_cObject);
 260
 261         /* not publically instantiable yet */
 262         rb_define_private_method (rb_singleton_class (cEvas),
 263                                   "new", NULL, 0);
 264         rb_define_method (cEvas, "inspect", c_inspect, 0);
 265         rb_define_method (cEvas, "render", c_render, 0);
 266         rb_define_method (cEvas, "font_path_clear", c_font_path_clear, 0);
 267         rb_define_method (cEvas, "font_path_append", c_font_path_append, 1);
 268         rb_define_method (cEvas, "font_path_prepend", c_font_path_prepend, 1);
 269         rb_define_method (cEvas, "font_path", c_font_path_get, 0);
 270         rb_define_method (cEvas, "font_cache", c_font_cache_get, 0);
 271         rb_define_method (cEvas, "font_cache=", c_font_cache_set, 1);
 272         rb_define_method (cEvas, "font_cache_flush",
 273                           c_font_cache_flush, 0);
 274         rb_define_method (cEvas, "image_cache", c_image_cache_get, 0);
 275         rb_define_method (cEvas, "image_cache=", c_image_cache_set, 1);
 276         rb_define_method (cEvas, "image_cache_reload",
 277                           c_image_cache_reload, 0);
 278         rb_define_method (cEvas, "image_cache_flush",
 279                           c_image_cache_flush, 0);
 280         rb_define_method (cEvas, "top", c_top_get, 0);
 281         rb_define_method (cEvas, "bottom", c_bottom_get, 0);
 282         rb_define_method (cEvas, "find_object", c_find_object, 1);
 283
 284         parents = rb_hash_new ();
 285         rb_global_variable (&parents);
 286 }