mix-language 1.0.0

data/lib/javascript/dom/drag.js

@@ -0,0 +1,211 @@
+/**
+ *  Copyright © 2011 Jesse Sielaff
+ */
+
+function Element_draggable (self, args)
+{
+  return Element_attribute(self, [new_string('draggable'), args[0]]);
+}
+
+function Element_drag (self, args)
+{
+  return Element_on(self, [new_string('drag'), args[0]]);
+}
+
+function Element_drag_end (self, args)
+{
+  return Element_on(self, [new_string('dragend'), args[0]]);
+}
+
+function Element_drag_enter (self, args)
+{
+  return Element_on(self, [new_string('dragenter'), args[0]]);
+}
+
+function Element_drag_leave (self, args)
+{
+  return Element_on(self, [new_string('dragleave'), args[0]]);
+}
+
+function Element_drag_over (self, args)
+{
+  var func = args[0];
+  
+  if (xself(self, ELEMENT_TYPE, "#on"))
+  {
+    return self;
+  }
+  
+  var name = 'ondragover';
+  var node = self.value;
+  
+  if (func === NULL)
+  {
+    node[name] = null;
+    return self;
+  }
+  
+  if (xarg(func, FUNCTION_TYPE, "Element#on", "function"))
+  {
+    return self;
+  }
+  
+  var body = func.value;
+  
+  node[name] = function (event)
+  {
+    event = event || window.event;
+    
+    if (event.preventDefault)
+    {
+      event.preventDefault();
+    }
+    
+    event.returnValue = false;
+    
+    body(self, [new_event(event)]);
+    
+    return false;
+  }
+  
+  return self;
+}
+
+function Element_drag_start (self, args)
+{
+  var func = args[0];
+  
+  if (xself(self, ELEMENT_TYPE, "#on"))
+  {
+    return self;
+  }
+  
+  var name = 'ondragstart';
+  var node = self.value;
+  
+  if (func === NULL)
+  {
+    node[name] = null;
+    return self;
+  }
+  
+  if (xarg(func, FUNCTION_TYPE, "Element#on", "function"))
+  {
+    return self;
+  }
+  
+  var body = func.value;
+  
+  node[name] = function (event)
+  {
+    event = event || window.event;
+    event.__default_allowed__ = true;
+    event.dataTransfer.setData('text/plain', null);
+    
+    body(self, [new_event(event)]);
+    
+    return event.__default_allowed__;
+  }
+  
+  return self;
+}
+
+function Element_drop (self, args)
+{
+  return Element_on(self, [new_string('drop'), args[0]]);
+}
+
+function Event_drop_effect (self, args)
+{
+  var str = args[0];
+  
+  if (xself(self, EVENT_TYPE, "#drop_effect") || xarg(str, STRING_TYPE, "Event#drop_effect", "string"))
+  {
+    return self;
+  }
+  
+  var dt = self.value.dataTransfer;
+  
+  if (dt)
+  {
+    dt.dropEffect = str.value;
+  }
+  
+  return self;
+}
+
+function Event_effect_allowed (self, args)
+{
+  var str = args[0];
+  
+  if (xself(self, EVENT_TYPE, "#effect_allowed") || xarg(str, STRING_TYPE, "Event#effect_allowed", "string"))
+  {
+    return self;
+  }
+  
+  var dt = self.value.dataTransfer;
+  
+  if (dt)
+  {
+    dt.effectAllowed = str.value;
+  }
+  
+  return self;
+}
+
+function Event_get_data (self, args)
+{
+  var str = args[0];
+  
+  if (xself(self, EVENT_TYPE, "#get_data") || xarg(str, STRING_TYPE, "Event#get_data", "string"))
+  {
+    return NULL;
+  }
+  
+  var dt = self.value.dataTransfer;
+  
+  if (dt)
+  {
+    return new_string(dt.getData(str.__value__));
+  }
+  
+  return NULL;
+}
+
+function Event_no_drop (self, args)
+{
+  return Event_drop_effect(self, [new_string('none')]);
+}
+
+function Event_set_data (self, args)
+{
+  var type = args[0];
+  var value = args[1];
+  
+  if (xself(self, EVENT_TYPE, "#set_data") || xarg(str, STRING_TYPE, "Event#set_data", "string mime-type") || xarg(str, STRING_TYPE, "Event#set_data", "string value"))
+  {
+    return NULL;
+  }
+  
+  var dt = self.value.dataTransfer;
+  
+  if (dt)
+  {
+    dt.setData(type.value, value.value);
+  }
+  
+  return self;
+}
+
+add_function(ELEMENT, 'draggable', Element_draggable, ['setting']);
+add_function(ELEMENT, 'drag', Element_drag, ['function']);
+add_function(ELEMENT, 'drag_end', Element_drag_end, ['function']);
+add_function(ELEMENT, 'drag_enter', Element_drag_enter, ['function']);
+add_function(ELEMENT, 'drag_leave', Element_drag_leave, ['function']);
+add_function(ELEMENT, 'drag_over', Element_drag_over, ['function']);
+add_function(ELEMENT, 'drag_start', Element_drag_start, ['function']);
+add_function(ELEMENT, 'drop', Element_drop, ['function']);
+add_function(EVENT, 'drop_effect', Event_drop_effect, ['setting']);
+add_function(EVENT, 'effect_allowed', Event_effect_allowed, ['setting']);
+add_function(EVENT, 'get_data', Event_get_data, ['mime_type']);
+add_function(EVENT, 'no_drop', Event_no_drop, []);

data/lib/javascript/dom/element.js

@@ -0,0 +1,307 @@
+/**
+ *  Copyright © 2011 Jesse Sielaff
+ */
+
+var ELEMENT =
+{
+  functions: {}
+}
+
+copy_functions(ELEMENT, OBJECT);
+
+var startup = function ()
+{
+  var node = document.getElementById('mix-app');
+  
+  if (node)
+  {
+    SELF = APP =
+    {
+      object_type: ELEMENT_TYPE,
+      functions: {},
+      data: {},
+      keys: [],
+      unknown: Object_bad_key,
+      value: node,
+      parent: NULL,
+      children: [],
+    }
+    
+    copy_functions(APP, ELEMENT);
+  }
+  else
+  {
+    SELF = APP = new_object({}, []);
+    warn("Did not find element with id \"mix-app\"");
+  }
+};
+
+function new_element (element_type, fields, keys)
+{
+  var node = document.createElement(element_type.tag_name);
+  var element =
+  {
+    object_type: ELEMENT_TYPE,
+    functions: {},
+    data: fields,
+    keys: keys,
+    unknown: Object_bad_key,
+    value: node,
+    parent: NULL,
+    children: []
+  }
+  
+  copy_functions(element, ELEMENT);
+  copy_functions(element, element_type);
+  
+  return element;
+}
+
+function Element_add_class (self, args)
+{
+  var str = args[0];
+  
+  if (xself(self, ELEMENT_TYPE, "#add_class") || xarg(str, STRING_TYPE, "#add_class", "string"))
+  {
+    return self;
+  }
+  
+  var node = self.value;
+  var name = str.value.trim();
+  var classes = node.className.split(/\s+/);
+  var index = classes.indexOf(name);
+  
+  if (index < 0)
+  {
+    classes.push(name);
+    node.className = classes.join(' ').trim();
+  }
+  
+  return self;
+}
+
+function Element_attribute (self, args)
+{
+  var str = args[0];
+  var setting = args[1];
+  
+  if (xself(self, ELEMENT_TYPE, "#attribute") || xarg(str, null, "Element#attribute", "string"))
+  {
+    return self;
+  }
+  
+  var name = str.value;
+  var node = self.value;
+  
+  if (setting)
+  {
+    var value = call_function(setting, 'stringify', []).value;
+    
+    node.setAttribute(name, value);
+    return self;
+  }
+  else
+  {
+    return new_string(node[name]);
+  }
+}
+
+function Element_empty_q (self, args)
+{
+  if (xself(self, ELEMENT_TYPE, "#empty?"))
+  {
+    return NULL;
+  }
+  
+  return (self.children.length === 0) ? TRUE : FALSE;
+}
+
+function Element_last (self, args)
+{
+  if (xself(self, ELEMENT_TYPE, "#last"))
+  {
+    return NULL;
+  }
+  
+  var elements = self.children;
+  var l = elements.length;
+  
+  return (l === 0) ? NULL : elements[l - 1];
+}
+
+function Element_length (self, args)
+{
+  if (xself(self, ELEMENT_TYPE, "#length"))
+  {
+    return NULL;
+  }
+  
+  return new_number(self.children.length);
+}
+
+function Element_pop (self, args)
+{
+  if (xself(self, ELEMENT_TYPE, "#pop"))
+  {
+    return NULL;
+  }
+  
+  var elements = self.children;
+  
+  if (elements.length === 0)
+  {
+    return NULL;
+  }
+  
+  var element = elements.pop();
+  
+  element.parent = NULL;
+  self.value.removeChild(element.value);
+  
+  return element;
+}
+
+function Element_push (self, args)
+{
+  var element = args[0];
+  
+  if (xself(self, ELEMENT_TYPE, "#push") || xarg(element, null, "Element#push", "element or text"))
+  {
+    return self;
+  }
+  
+  if (element.object_type !== TEXT_TYPE && element.object_type !== ELEMENT_TYPE)
+  {
+    warn("Ignoring Element#push;" + " expected element or text argument");
+    return self;
+  }
+  
+  if (element.parent !== NULL)
+  {
+    call_function(element, 'release', []);
+  }
+  
+  var e = self;
+  
+  while (e !== NULL)
+  {
+    if (e === element)
+    {
+      warn("Ignoring attempt to nest element into itself");
+      return self;
+    }
+    
+    e = e.parent;
+  }
+  
+  var node = element.value;
+  
+  element.parent = self;
+  self.children.push(element);
+  self.value.appendChild(node);
+  
+  return self;
+}
+
+function Element_release (self, args)
+{
+  if (xself(self, ELEMENT_TYPE, "#release"))
+  {
+    return self;
+  }
+  
+  var parent = self.parent;
+  
+  if (parent === NULL)
+  {
+    return self;
+  }
+  
+  var node = self.value;
+  var parent_node = parent.value;
+  var index = parent.children.indexOf(self);
+  
+  parent.children.splice(index, 1);
+  parent_node.removeChild(node);
+  self.parent = NULL;
+  
+  return self;
+}
+
+function Element_remove_class (self, args)
+{
+  var str = args[0];
+  
+  if (xself(self, ELEMENT_TYPE, "#add_class") || xarg(str, STRING_TYPE, "#add_class", "string"))
+  {
+    return self;
+  }
+  
+  var node = self.value;
+  var name = str.value.trim();
+  var classes = node.className.split(/\s+/);
+  var index = classes.indexOf(name);
+  
+  while (index >= 0)
+  {
+    classes.splice(index, 1)
+    index = classes.indexOf(name);
+  }
+  
+  node.className = classes.join(' ');
+  
+  return self;
+}
+
+function Element_stringify (self, args)
+{
+  if (xself(self, ELEMENT_TYPE, "#stringify"))
+  {
+    return self;
+  }
+  
+  var node = self.value;
+  var id = node.id;
+  var classes = node.className
+  var string = node.nodeName;
+  
+  string += (id) ? '#' + id : '';
+  
+  if (classes !== "")
+  {
+    var class_names = classes.split(' ');
+    
+    for (var i = 0, l = class_names.length; i < l; ++i)
+    {
+      string += '.' + class_names[i];
+    }
+  }
+  
+  var fields = self.data;
+  var keys = self.keys;
+  
+  for (var k, i = 0, l = keys.length; i < l; ++i)
+  {
+    k = keys[i];
+    
+    string += ' ' + k + ':';
+    string += ' ' + call_function(fields[k], 'inspect', []).value;
+    
+    if (i < l - 1)
+    {
+      string += ',';
+    }
+  }
+  
+  return new_string('<' + string + '>');
+}
+
+add_function(ELEMENT, 'add_class', Element_add_class, ['string']);
+add_function(ELEMENT, 'last', Element_last, []);
+add_function(ELEMENT, 'length', Element_length, []);
+add_function(ELEMENT, 'empty?', Element_empty_q, []);
+add_function(ELEMENT, 'pop', Element_pop, []);
+add_function(ELEMENT, 'push', Element_push, ['element']);
+add_function(ELEMENT, 'release', Element_release, []);
+add_function(ELEMENT, 'stringify', Element_stringify, []);
+add_function(ELEMENT, 'remove_class', Element_remove_class, ['string']);

data/lib/javascript/dom/event.js

@@ -0,0 +1,113 @@
+/**
+ *  Copyright © 2011 Jesse Sielaff
+ */
+
+var EVENT =
+{
+  functions: {}
+};
+
+copy_functions(EVENT, OBJECT);
+
+function new_event (value)
+{
+  var ev =
+  {
+    object_type: EVENT_TYPE,
+    functions: {},
+    data: {},
+    value: value
+  };
+  
+  copy_functions(ev, EVENT);
+  
+  return ev;
+}
+
+function Element_on (self, args)
+{
+  var str = args[0];
+  var func = args[1];
+  
+  if (xself(self, ELEMENT_TYPE, "#on") || xarg(str, STRING_TYPE, "Element#on", "string"))
+  {
+    return self;
+  }
+  
+  var name = 'on' + str.value;
+  var node = self.value;
+  
+  if (func === NULL)
+  {
+    node[name] = null;
+    return self;
+  }
+  
+  if (xarg(func, FUNCTION_TYPE, "Element#on", "function"))
+  {
+    return self;
+  }
+  
+  var body = func.value;
+  
+  node[name] = function (event)
+  {
+    event = event || window.event;
+    event.__default_allowed__ = true;
+    
+    body(self, [new_event(event)]);
+    
+    return event.__default_allowed__;
+  }
+  
+  return self;
+}
+
+function Event_prevent_default (self, args)
+{
+  if (xself(self, EVENT_TYPE, "#prevent_default"))
+  {
+    return self;
+  }
+  
+  var event = self.value;
+  
+  if (event.preventDefault)
+  {
+    event.preventDefault();
+  }
+  
+  event.returnValue = false;
+  event.__default_allowed__ = false;
+  
+  return self;
+}
+
+function Event_stop_bubbling (self, args)
+{
+  if (xself(self, EVENT_TYPE, "#prevent_default"))
+  {
+    return self;
+  }
+  
+  var event = self.value;
+  
+  if (event.stopPropagation)
+  {
+    event.stopPropagation();
+  }
+  
+  event.cancelBubble = true;
+  
+  return self;
+}
+
+function Event_stringify (self, args)
+{
+  return new_string('<event>');
+}
+
+add_function(EVENT, 'inspect', Event_stringify, []);
+add_function(EVENT, 'prevent_default', Event_prevent_default, []);
+add_function(EVENT, 'stop_bubbling', Event_stop_bubbling, []);
+add_function(EVENT, 'stringify', Event_stringify, []);

data/lib/javascript/dom/mouse.js

@@ -0,0 +1,16 @@
+/**
+ *  Copyright © 2011 Jesse Sielaff
+ */
+
+function Element_click (self, args)
+{
+  return Element_on(self, [new_string('click'), args[0]]);
+}
+
+function Element_double_click (self, args)
+{
+  return Element_on(self, [new_string('dblclick'), args[0]]);
+}
+
+add_function(ELEMENT, 'click', Element_click, ['function']);
+add_function(ELEMENT, 'double_click', Element_double_click, ['function']);

data/lib/javascript/dom/table.js

@@ -0,0 +1,11 @@
+/**
+ *  Copyright © 2011 Jesse Sielaff
+ */
+
+var TABLE =
+{
+  functions: {},
+  tag_name: 'table'
+};
+
+HTML_TYPES['Table'] = TABLE;

data/lib/javascript/dom/td.js

@@ -0,0 +1,18 @@
+/**
+ *  Copyright © 2011 Jesse Sielaff
+ */
+
+var TD =
+{
+  functions: {},
+  tag_name: 'td'
+};
+
+HTML_TYPES['Td'] = TD;
+
+function Td_colspan (self, args)
+{
+  return Element_attribute(self, [new_string('colspan'), args[0]]);
+}
+
+add_function(TD, 'colspan', Td_colspan, ['string','(setting)']);