shoes 3.0.1

data/shoes/ruby.h

@@ -0,0 +1,299 @@
+//
+// shoes/ruby.h
+// Some defs for Ruby.
+//
+#include <ruby.h>
+#include "shoes/canvas.h"
+
+#if defined(__cplusplus)
+extern "C" {
+#if 0
+} /* satisfy cc-mode */
+#endif
+#endif
+
+#ifdef RUBY_RUBY_H
+#define RUBY_CRITICAL(statements) do {statements;} while (0)
+#else
+#include <rubysig.h>
+#include <st.h>
+#ifndef RUBY_1_9
+#include <node.h>
+#endif
+#endif
+
+#if defined(__cplusplus)
+#if 0
+{ /* satisfy cc-mode */
+#endif
+}  /* extern "C" { */
+#endif
+
+#ifndef SHOES_RUBY_H
+#define SHOES_RUBY_H
+
+#if _MSC_VER
+typedef VALUE (*HOOK)(...);
+typedef int (*FOREACH)(...);
+#define CASTFOREACH(x) reinterpret_cast<FOREACH>(x)
+#define CASTHOOK(x) reinterpret_cast<HOOK>(x)
+#undef fopen
+#undef fclose
+#undef fread
+#else
+typedef VALUE (*HOOK)();
+#define CASTHOOK(x) x
+#define CASTFOREACH(x) x
+#endif
+
+#ifdef WORDS_BIGENDIAN
+#define BE_CPU_N(x, n)
+#define LE_CPU_N(x, n) flip_endian((unsigned char *)(x), n) 
+#else
+#define BE_CPU_N(x, n) flip_endian((unsigned char *)(x), n) 
+#define LE_CPU_N(x, n)
+#endif
+
+#define BE_CPU(x) BE_CPU_N(&(x), sizeof(x)) 
+#define LE_CPU(x) LE_CPU_N(&(x), sizeof(x)) 
+
+static inline void flip_endian(unsigned char* x, int length) {
+  int i;
+  unsigned char tmp;
+
+  for(i = 0; i < (length / 2); i++) {
+    tmp = x[i];
+    x[i] = x[length - i - 1];
+    x[length - i - 1] = tmp;
+  }
+}
+
+#ifndef RARRAY_LEN
+#define RARRAY_LEN(arr)  RARRAY(arr)->len
+#define RARRAY_PTR(arr)  RARRAY(arr)->ptr
+#define RSTRING_LEN(str) RSTRING(str)->len
+#define RSTRING_PTR(str) RSTRING(str)->ptr
+#endif
+
+#undef s_host
+
+extern VALUE cShoes, cApp, cDialog, cTypes, cShoesWindow, cMouse, cCanvas, cFlow, cStack, cMask, cNative, cShape, cVideo, cImage, cEffect, cEvery, cTimer, cAnim, cPattern, cBorder, cBackground, cPara, cBanner, cTitle, cSubtitle, cTagline, cCaption, cInscription, cLinkText, cTextBlock, cTextClass, cSpan, cStrong, cSub, cSup, cCode, cDel, cEm, cIns, cButton, cEditLine, cEditBox, cListBox, cProgress, cSlider, cCheck, cRadio, cColor, cDownload, cResponse, cColors, cLink, cLinkHover, ssNestSlot;
+extern VALUE aMsgList;
+extern VALUE eInvMode, eNotImpl, eImageError;
+extern VALUE reHEX_SOURCE, reHEX3_SOURCE, reRGB_SOURCE, reRGBA_SOURCE, reGRAY_SOURCE, reGRAYA_SOURCE, reLF;
+extern VALUE symAltQuest, symAltSlash, symAltDot;
+extern VALUE instance_eval_proc;
+extern ID s_checked_q, s_perc, s_aref, s_mult;
+
+typedef struct {
+  int n;
+  VALUE a[10];
+} rb_arg_list;
+
+VALUE mfp_instance_eval(VALUE, VALUE);
+VALUE ts_funcall2(VALUE, ID, int, VALUE *);
+int rb_parse_args(int, const VALUE *, const char *, rb_arg_list *);
+int rb_parse_args_allow(int, const VALUE *, const char *, rb_arg_list *);
+long rb_ary_index_of(VALUE, VALUE);
+VALUE rb_ary_insert_at(VALUE, long, int, VALUE);
+VALUE shoes_safe_block(VALUE, VALUE, VALUE);
+void shoes_ruby_init(void);
+
+#define BEZIER 0.55228475;
+
+//
+// Exception handling strings for eval
+//
+#define SHOES_META \
+  "(class << Shoes; self; end).instance_eval do;"
+#ifdef SHOES_WIN32
+#define QUIT_ALERT_MSG() MessageBox(NULL, RSTRING_PTR(msg), "Shoes", MB_OK)
+#else
+#define QUIT_ALERT_MSG() printf("%s\n", RSTRING_PTR(msg))
+#endif
+#define QUIT_ALERT(v) \
+   VALUE line_re = rb_eval_string("/:\\d+:\\s*/"); \
+   VALUE msg = rb_funcall(v, rb_intern("message"), 0); \
+   VALUE msg2 = rb_funcall(msg, rb_intern("split"), 2, line_re, INT2NUM(2)); \
+   if (RARRAY_LEN(msg2) > 1) msg = rb_ary_entry(msg2, 1); \
+   QUIT_ALERT_MSG(); \
+   return SHOES_QUIT;
+
+#define NUM2RGBINT(x) (rb_obj_is_kind_of(x, rb_cFloat) ? NUM2DBL(x) * 255 : NUM2INT(x))
+#define DEF_COLOR(name, r, g, b) rb_hash_aset(cColors, ID2SYM(rb_intern("" # name)), shoes_color_new(r, g, b, 255))
+#define GET_STRUCT(ele, var) \
+  shoes_##ele *var; \
+  Data_Get_Struct(self, shoes_##ele, var)
+
+
+//
+// Common funcs for dealing with attribute hashes
+//
+#define CHECK_HASH(hsh)                if (TYPE(hsh) != T_HASH) { hsh = Qnil; }
+#define ATTR(attr, n)                  shoes_hash_get(attr, s_##n)
+#define PX(attr, n, dn, pn)            shoes_px(shoes_hash_get(attr, s_##n), dn, pn, 1)
+#define PXN(attr, n, dn, pn)            shoes_px(shoes_hash_get(attr, s_##n), dn, pn, 0)
+#define PX2(attr, n1, n2, dn, dr, pn)  shoes_px2(attr, s_##n1, s_##n2, dn, dr, pn)
+#define ATTR2(typ, attr, n, dn)        shoes_hash_##typ(attr, s_##n, dn)
+#define ATTRSET(attr, k, v)            attr = shoes_hash_set(attr, s_##k, v)
+#define ATTR_MARGINS(attr, dm, canvas) \
+  int lmargin, rmargin, tmargin, bmargin; \
+  VALUE margino = ATTR(attr, margin); \
+  if (rb_obj_is_kind_of(margino, rb_cArray)) \
+  { \
+    lmargin = shoes_px(rb_ary_entry(margino, 0), dm, CPW(canvas), 1); \
+    tmargin = shoes_px(rb_ary_entry(margino, 1), dm, CPH(canvas), 1); \
+    rmargin = shoes_px(rb_ary_entry(margino, 2), dm, CPW(canvas), 1); \
+    bmargin = shoes_px(rb_ary_entry(margino, 3), dm, CPH(canvas), 1); \
+  } \
+  else \
+  { \
+    lmargin = rmargin = PX(attr, margin, dm, CPW(canvas)); \
+    tmargin = bmargin = PX(attr, margin, dm, CPH(canvas)); \
+  } \
+  lmargin = PX(attr, margin_left, lmargin, CPW(canvas)); \
+  rmargin = PX(attr, margin_right, rmargin, CPW(canvas)); \
+  tmargin = PX(attr, margin_top, tmargin, CPH(canvas)); \
+  bmargin = PX(attr, margin_bottom, bmargin, CPH(canvas))
+
+#define CHECK_HOVER(self_t, h, touch) \
+  if ((self_t->hover & HOVER_MOTION) != h && !NIL_P(self_t->attr)) \
+  { \
+    VALUE action = ID2SYM(h ? s_hover : s_leave); \
+    VALUE proc = rb_hash_aref(self_t->attr, action); \
+    if (!NIL_P(proc)) \
+      shoes_safe_block(self, proc, rb_ary_new3(1, self)); \
+    if (touch != NULL) *touch += 1; \
+    self_t->hover = (self_t->hover & HOVER_CLICK) | h; \
+  }
+
+#define IS_INSIDE(self_t, x, y) \
+  (self_t->place.iw > 0 && self_t->place.ih > 0 && \
+   x >= self_t->place.ix + self_t->place.dx && \
+   x <= self_t->place.ix + self_t->place.dx + self_t->place.iw && \
+   y >= self_t->place.iy + self_t->place.dy && \
+   y <= self_t->place.iy + self_t->place.dy + self_t->place.ih)
+
+int shoes_px(VALUE, int, int, int);
+int shoes_px2(VALUE, ID, ID, int, int, int);
+VALUE shoes_hash_set(VALUE, ID, VALUE);
+VALUE shoes_hash_get(VALUE, ID);
+int shoes_hash_int(VALUE, ID, int);
+double shoes_hash_dbl(VALUE, ID, double);
+char *shoes_hash_cstr(VALUE, ID, char *);
+VALUE rb_str_to_pas(VALUE);
+void shoes_place_exact(shoes_place *, VALUE, int, int);
+void shoes_place_decide(shoes_place *, VALUE, VALUE, int, int, unsigned char, int);
+unsigned char shoes_is_element(VALUE);
+unsigned char shoes_is_any(VALUE);
+void shoes_extras_remove_all(shoes_canvas *);
+void shoes_ele_remove_all(VALUE);
+void shoes_cairo_rect(cairo_t *, double, double, double, double, double);
+void shoes_cairo_arc(cairo_t *, double, double, double, double, double, double);
+
+#define SYMBOL_DEFS(f) f(bind); f(gsub); f(keys); f(update); f(merge); f(new); f(URI); f(now); f(debug); f(info); f(warn); f(error); f(run); f(to_a); f(to_ary); f(to_f); f(to_i); f(to_int); f(to_s); f(to_str); f(to_pattern); f(align); f(angle); f(angle1); f(angle2); f(arrow); f(autoplay); f(begin); f(body); f(cancel); f(call); f(center); f(change); f(checked); f(choose); f(click); f(corner); f(curve); f(distance); f(displace_left); f(displace_top); f(downcase); f(draw); f(emphasis); f(end); f(family); f(fill); f(finish); f(font); f(fullscreen); f(group); f(hand); f(headers); f(hidden); f(host); f(hover); f(href); f(insert); f(inner); f(items); f(justify); f(kerning); f(keydown); f(keypress); f(keyup); f(match); f(method); f(motion); f(link); f(leading); f(leave); f(ok); f(outer); f(path); f(points); f(port); f(progress); f(redirect); f(release); f(request_uri); f(rise); f(scheme); f(save); f(size); f(slider); f(state); f(wheel); f(scroll); f(stretch); f(strikecolor); f(strikethrough); f(stroke); f(start); f(attach); f(text); f(title); f(top); f(right); f(bottom); f(left); f(up); f(down); f(height); f(minheight); f(remove); f(resizable); f(strokewidth); f(cap); f(widget); f(width); f(minwidth); f(marker); f(margin); f(margin_left); f(margin_right); f(margin_top); f(margin_bottom); f(radius); f(secret); f(blur); f(glow); f(shadow); f(arc); f(rect); f(oval); f(line); f(shape); f(star); f(project); f(round); f(square); f(undercolor); f(underline); f(variant); f(weight); f(wrap); f(dash); f(nodot); f(onedot); 
+#define SYMBOL_INTERN(name) s_##name = rb_intern("" # name)
+#define SYMBOL_ID(name) ID s_##name 
+#define SYMBOL_EXTERN(name) extern ID s_##name
+
+SYMBOL_DEFS(SYMBOL_EXTERN);
+
+#define CANVAS_DEFS(f) \
+  f(".close", close, 0); \
+  f(".gutter", get_gutter_width, 0); \
+  f(".nostroke", nostroke, 0); \
+  f(".stroke", stroke, -1); \
+  f(".strokewidth", strokewidth, 1); \
+  f(".dash", dash, 1); \
+  f(".cap", cap, 1); \
+  f(".nofill", nofill, 0); \
+  f(".fill", fill, -1); \
+  f("+arc", arc, -1); \
+  f("+rect", rect, -1); \
+  f("+oval", oval, -1); \
+  f("+line", line, -1); \
+  f("+arrow", arrow, -1); \
+  f("+star", star, -1); \
+  f("+para", para, -1); \
+  f("+banner", banner, -1); \
+  f("+title", title, -1); \
+  f("+subtitle", subtitle, -1); \
+  f("+tagline", tagline, -1); \
+  f("+caption", caption, -1); \
+  f("+inscription", inscription, -1); \
+  f(".code", code, -1); \
+  f(".del", del, -1); \
+  f(".em", em, -1); \
+  f(".ins", ins, -1); \
+  f(".link", link, -1); \
+  f(".span", span, -1); \
+  f(".strong", strong, -1); \
+  f(".sub", sub, -1); \
+  f(".sup", sup, -1); \
+  f("+background", background, -1); \
+  f("+border", border, -1); \
+  f("+video", video, -1); \
+  f(".blur", blur, -1); \
+  f(".glow", glow, -1); \
+  f(".shadow", shadow, -1); \
+  f("+image", image, -1); \
+  f(".imagesize", imagesize, 1); \
+  f("+animate", animate, -1); \
+  f("+every", every, -1); \
+  f("+timer", timer, -1); \
+  f("+shape", shape, -1); \
+  f(".move_to", move_to, 2); \
+  f(".line_to", line_to, 2); \
+  f(".curve_to", curve_to, 6); \
+  f(".arc_to", arc_to, 6); \
+  f(".transform", transform, 1); \
+  f(".translate", translate, 2); \
+  f(".rotate", rotate, 1); \
+  f(".scale", scale, -1); \
+  f(".skew", skew, -1); \
+  f(".push", push, 0); \
+  f(".pop", pop, 0); \
+  f(".reset", reset, 0); \
+  f("+button", button, -1); \
+  f("+list_box", list_box, -1); \
+  f("+edit_line", edit_line, -1); \
+  f("+edit_box", edit_box, -1); \
+  f("+progress", progress, -1); \
+  f("+slider", slider, -1); \
+  f("+check", check, -1); \
+  f("+radio", radio, -1); \
+  f(".app", get_app, 0); \
+  f("+after", after, -1); \
+  f("+before", before, -1); \
+  f("+append", append, -1); \
+  f("+prepend", prepend, -1); \
+  f("+flow", flow, -1); \
+  f("+stack", stack, -1); \
+  f("+mask", mask, -1); \
+  f("+widget", widget, -1); \
+  f(".start", start, -1); \
+  f(".finish", finish, -1); \
+  f(".hover", hover, -1); \
+  f(".leave", leave, -1); \
+  f(".click", click, -1); \
+  f(".release", release, -1); \
+  f(".motion", motion, -1); \
+  f(".keydown", keydown, -1); \
+  f(".keypress", keypress, -1); \
+  f(".keyup", keyup, -1); \
+  f("+clear", clear_contents, -1); \
+  f(".visit", goto, 1); \
+  f(".mouse", mouse, 0); \
+  f(".cursor", get_cursor, 0); \
+  f(".cursor=", set_cursor, 1); \
+  f(".clipboard", get_clipboard, 0); \
+  f(".clipboard=", set_clipboard, 1); \
+  f(".download", download, -1); \
+  f(".owner", owner, 0); \
+  f(".window", window, -1); \
+  f(".dialog", dialog, -1); \
+  f(".window_plain", window_plain, 0); \
+  f(".dialog_plain", dialog_plain, 0); \
+  f("._snapshot", snapshot, -1)
+
+#endif

data/shoes/world.c

@@ -0,0 +1,243 @@
+///
+// shoes/world.c
+// Abstract windowing for GTK, Quartz (OSX) and Win32.
+//
+#include "shoes/app.h"
+#include "shoes/ruby.h"
+#include "shoes/config.h"
+#include "shoes/world.h"
+#include "shoes/native.h"
+#include "shoes/internal.h"
+#ifdef SHOES_SIGNAL
+#include <signal.h>
+
+void
+shoes_sigint()
+{
+  shoes_native_quit();
+}
+#endif
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+shoes_world_t *shoes_world = NULL;
+
+shoes_world_t *
+shoes_world_alloc()
+{
+  shoes_world_t *world = SHOE_ALLOC(shoes_world_t);
+  SHOE_MEMZERO(world, shoes_world_t, 1);
+  world->apps = rb_ary_new();
+  world->msgs = rb_ary_new();
+  world->mainloop = FALSE;
+  world->image_cache = st_init_strtable();
+  world->blank_image = cairo_image_surface_create(CAIRO_FORMAT_ARGB32, 1, 1);
+  world->blank_cache = SHOE_ALLOC(shoes_cached_image);
+  world->blank_cache->surface = world->blank_image;
+  world->blank_cache->pattern = NULL;
+  world->blank_cache->width = 1;
+  world->blank_cache->height = 1;
+  world->blank_cache->mtime = 0;
+  world->default_font = pango_font_description_new();
+  pango_font_description_set_family(world->default_font, "Arial");
+  pango_font_description_set_absolute_size(world->default_font, 14. * PANGO_SCALE * (96./72.));
+  rb_gc_register_address(&world->apps);
+  rb_gc_register_address(&world->msgs);
+  return world;
+}
+
+int
+shoes_world_free_image_cache(char *key, shoes_cache_entry *cached, char *arg)
+{
+  if (cached->type != SHOES_CACHE_ALIAS && cached->image != NULL)
+  {
+    if (cached->image->pattern != NULL)
+      cairo_pattern_destroy(cached->image->pattern);
+    if (cached->image->surface != shoes_world->blank_image)
+      cairo_surface_destroy(cached->image->surface);
+    free(cached->image);
+  }
+  free(cached);
+  free(key);
+  return ST_CONTINUE;
+}
+
+void
+shoes_world_free(shoes_world_t *world)
+{
+#ifdef VLC_0_9
+  if (world->vlc != NULL) libvlc_release(world->vlc);
+#endif
+  shoes_native_cleanup(world);
+  st_foreach(world->image_cache, CASTFOREACH(shoes_world_free_image_cache), 0);
+  st_free_table(world->image_cache);
+  SHOE_FREE(world->blank_cache);
+  cairo_surface_destroy(world->blank_image);
+  pango_font_description_free(world->default_font);
+  rb_gc_unregister_address(&world->apps);
+  rb_gc_unregister_address(&world->msgs);
+  if (world != NULL)
+    SHOE_FREE(world);
+}
+
+#ifdef RUBY_1_9
+int
+shoes_ruby_embed()
+{
+  VALUE v;
+  char *argv[] = {"ruby", "-e", "1"};
+  int sysinit_argc = 0;
+  char**  sysinit_argv = NULL;
+  RUBY_INIT_STACK;
+#ifdef SHOES_WIN32
+  ruby_sysinit( &sysinit_argc, &sysinit_argv );
+#endif
+  ruby_init();
+  v = (VALUE)ruby_options(3, argv);
+  return !FIXNUM_P(v);
+}
+#else
+#define shoes_ruby_embed ruby_init
+#endif
+
+shoes_code
+shoes_init(SHOES_INIT_ARGS)
+{
+#ifdef SHOES_SIGNAL
+  signal(SIGINT,  shoes_sigint);
+  signal(SIGQUIT, shoes_sigint);
+#endif
+  shoes_ruby_embed();
+  shoes_ruby_init();
+  shoes_world = shoes_world_alloc();
+#ifdef SHOES_WIN32
+  shoes_world->os.instance = inst;
+  shoes_world->os.style = style;
+#endif
+  shoes_native_init();
+  rb_const_set(cShoes, rb_intern("FONTS"), shoes_font_list());
+  return SHOES_OK;
+}
+
+void
+shoes_update_fonts(VALUE ary)
+{
+#if PANGO_VERSION_MAJOR > 1 || PANGO_VERSION_MINOR >= 22
+  pango_cairo_font_map_set_default(NULL);
+#endif
+  rb_funcall(rb_const_get(cShoes, rb_intern("FONTS")), rb_intern("replace"), 1, ary);
+}
+
+static VALUE
+shoes_load_begin(VALUE v)
+{
+  char *bootup = (char *)v;
+  return rb_eval_string(bootup);
+}
+
+static VALUE
+shoes_load_exception(VALUE v, VALUE exc)
+{
+  return exc;
+}
+
+shoes_code
+shoes_load(char *path)
+{
+  char bootup[SHOES_BUFSIZE];
+
+  if (path)
+  {
+    sprintf(bootup, "Shoes.visit(%%q<%s>);", path);
+
+    VALUE v = rb_rescue2(CASTHOOK(shoes_load_begin), (VALUE)bootup, CASTHOOK(shoes_load_exception), Qnil, rb_cObject, 0);
+    if (rb_obj_is_kind_of(v, rb_eException))
+    {
+      shoes_canvas_error(Qnil, v);
+      rb_eval_string("Shoes.show_log");
+    }
+  }
+
+  return SHOES_OK;
+}
+
+void
+shoes_set_argv(int argc, char **argv)
+{
+  ruby_set_argv(argc, argv);
+}
+
+static VALUE
+shoes_start_begin(VALUE v)
+{
+  return rb_eval_string("$SHOES_URI = Shoes.args!");
+}
+
+static VALUE
+shoes_start_exception(VALUE v, VALUE exc)
+{
+  return exc;
+}
+
+shoes_code
+shoes_start(char *path, char *uri)
+{
+  shoes_code code = SHOES_OK;
+  char bootup[SHOES_BUFSIZE];
+  int len = shoes_snprintf(bootup,
+    SHOES_BUFSIZE,
+    "begin;"
+      "DIR = File.expand_path(File.dirname(%%q<%s>));"
+      "$:.replace([DIR+'/ruby/lib/'+RUBY_PLATFORM, DIR+'/ruby/lib', DIR+'/lib', '.']);"
+      "require 'shoes';"
+      "DIR;"
+    "rescue Object => e;"
+      "puts(e.message);"
+    "end",
+    path);
+
+  if (len < 0 || len >= SHOES_BUFSIZE)
+  {
+    QUIT("Path to script is too long.");
+  }
+
+  VALUE str = rb_eval_string(bootup);
+  if (NIL_P(str))
+    return SHOES_QUIT;
+
+  StringValue(str);
+  strcpy(shoes_world->path, RSTRING_PTR(str));
+
+  char *load_uri_str = NULL;
+  VALUE load_uri = rb_rescue2(CASTHOOK(shoes_start_begin), Qnil, CASTHOOK(shoes_start_exception), Qnil, rb_cObject, 0);
+  if (!RTEST(load_uri))
+    return SHOES_QUIT;
+  if (rb_obj_is_kind_of(load_uri, rb_eException))
+  {
+    QUIT_ALERT(load_uri);
+  }
+
+  if (rb_obj_is_kind_of(load_uri, rb_cString))
+    load_uri_str = RSTRING_PTR(load_uri);
+
+  code = shoes_load(load_uri_str);
+  if (code != SHOES_OK)
+    goto quit;
+
+  code = shoes_app_start(shoes_world->apps, uri);
+quit:
+  return code;
+}
+
+shoes_code
+shoes_final()
+{
+  shoes_world_free(shoes_world);
+  return SHOES_OK;
+}
+
+#ifdef __cplusplus
+}
+#endif