mix-language 1.0.0

data/lib/javascript/base/number.js

@@ -0,0 +1,251 @@
+/**
+ *  Copyright © 2011 Jesse Sielaff
+ */
+
+var NUMBER =
+{
+  functions: {}
+};
+
+copy_functions(NUMBER, OBJECT);
+
+function new_number (value)
+{
+  var number =
+  {
+    object_type: NUMBER_TYPE,
+    functions: {},
+    data: {},
+    keys: [],
+    unknown: Object_bad_key,
+    value: value
+  };
+  
+  copy_functions(number, NUMBER);
+  
+  return number;
+}
+
+function cmp_number (a, b)
+{
+  return (a === b) ? 0 : (a > b) ? 1 : -1;
+}
+
+function Number_div (self, args)
+{
+  var num = args[0];
+  
+  if (xself(self, NUMBER_TYPE, "#div") || xarg(num, NUMBER_TYPE, "Number#div", "number"))
+  {
+    return NULL;
+  }
+  
+  return new_number(self.value / num.value);
+}
+
+function Number_gt (self, args)
+{
+  var num = args[0];
+  
+  if (xself(self, NUMBER_TYPE, "#gt") || xarg(num, NUMBER_TYPE, "Number#gt", "number"))
+  {
+    return NULL;
+  }
+  
+  var a = self.value;
+  var b = num.value;
+  
+  return (cmp_number(a, b) === 1) ? TRUE : FALSE;
+}
+
+function Number_gteq (self, args)
+{
+  var num = args[0];
+  
+  if (xself(self, NUMBER_TYPE, "#gteq") || xarg(num, NUMBER_TYPE, "Number#gteq", "number"))
+  {
+    return NULL;
+  }
+  
+  var a = self.value;
+  var b = num.value;
+  
+  return (cmp_number(a, b) !== -1) ? TRUE : FALSE;
+}
+
+function Number_lt (self, args)
+{
+  var num = args[0];
+  
+  if (xself(self, NUMBER_TYPE, "#lt") || xarg(num, NUMBER_TYPE, "Number#lt", "number"))
+  {
+    return NULL;
+  }
+  
+  var a = self.value;
+  var b = num.value;
+  
+  return (cmp_number(a, b) === -1) ? TRUE : FALSE;
+}
+
+function Number_lteq (self, args)
+{
+  var num = args[0];
+  
+  if (xself(self, NUMBER_TYPE, "#lteq") || xarg(num, NUMBER_TYPE, "Number#lteq", "number"))
+  {
+    return NULL;
+  }
+  
+  var a = self.value;
+  var b = num.value;
+  
+  return (cmp_number(a, b) !== 1) ? TRUE : FALSE;
+}
+
+function Number_minus (self, args)
+{
+  var num = args[0];
+  
+  if (xself(self, NUMBER_TYPE, "#minus") || xarg(num, NUMBER_TYPE, "Number#minus", "number"))
+  {
+    return NULL;
+  }
+  
+  return new_number(self.value - num.value);
+}
+
+function Number_mod (self, args)
+{
+  var num = args[0];
+  
+  if (xself(self, NUMBER_TYPE, "#mod") || xarg(num, NUMBER_TYPE, "Number#mod", "number"))
+  {
+    return NULL;
+  }
+  
+  return new_number(self.value % num.value);
+}
+
+function Number_plus (self, args)
+{
+  var num = args[0];
+  
+  if (xself(self, NUMBER_TYPE, "#plus") || xarg(num, NUMBER_TYPE, "Number#plus", "number"))
+  {
+    return NULL;
+  }
+  
+  return new_number(self.value + num.value);
+}
+
+function Number_mul (self, args)
+{
+  var num = args[0];
+  
+  if (xself(self, NUMBER_TYPE, "#mul") || xarg(num, NUMBER_TYPE, "Number#mul", "number"))
+  {
+    return NULL;
+  }
+  
+  return new_number(self.value * num.value);
+}
+
+function Number_stringify (self, args)
+{
+  if (xself(self, NUMBER_TYPE, "#stringify"))
+  {
+    return NULL;
+  }
+  
+  return new_string('' + self.value);
+}
+
+function Number_times (self, args)
+{
+  var func = args[0];
+  
+  if (xself(self, NUMBER_TYPE, "#times") || xarg(func, FUNCTION_TYPE, "Number#times", "function"))
+  {
+    return self;
+  }
+  
+  var n = self.value;
+  var body = func.value;
+  var bound = func.bound;
+  
+  for (var i = 0; i < n; ++i)
+  {
+    ITERATING += 1;
+    body(bound, [new_number(i)]);
+    ITERATING -= 1;
+    
+    if (BREAK_VALUE)
+    {
+      var result = BREAK_VALUE;
+      
+      BREAK_VALUE = null;
+      return result;
+    }
+    else if (RETURN_VALUE)
+    {
+      RETURN_VALUE = null;
+    }
+  }
+  
+  return self;
+}
+
+function Number_upto (self, args)
+{
+  var num = args[0];
+  var func = args[1];
+  
+  if (xself(self, NUMBER_TYPE, "#upto") || xarg(num, NUMBER_TYPE, "Number#upto", "number") || xarg(func, FUNCTION_TYPE, "Number#upto", "function"))
+  {
+    return self;
+  }
+  
+  var start = self.value;
+  var end = num.value;
+  var body = func.value;
+  var bound = func.bound;
+  
+  for (var i = start; i <= end; ++i)
+  {
+    ITERATING += 1;
+    body(bound, [new_number(i)]);
+    ITERATING -= 1;
+    
+    if (BREAK_VALUE)
+    {
+      var result = BREAK_VALUE;
+      
+      BREAK_VALUE = null;
+      return result;
+    }
+    else if (RETURN_VALUE)
+    {
+      RETURN_VALUE = null;
+    }
+  }
+  
+  return self;
+}
+
+add_function(NUMBER, 'div', Number_div, ['number']);
+add_function(NUMBER, 'inspect', Number_stringify, []);
+add_function(NUMBER, 'gt', Number_gt, ['number']);
+add_function(NUMBER, 'gteq', Number_gteq, ['number']);
+add_function(NUMBER, 'lt', Number_lt, ['number']);
+add_function(NUMBER, 'lteq', Number_lteq, ['number']);
+add_function(NUMBER, 'minus', Number_minus, ['number']);
+add_function(NUMBER, 'mod', Number_mod, ['number']);
+add_function(NUMBER, 'mul', Number_mul, ['number']);
+add_function(NUMBER, 'percent', Number_mod, ['number']);
+add_function(NUMBER, 'plus', Number_plus, ['number']);
+add_function(NUMBER, 'slash', Number_div, ['number']);
+add_function(NUMBER, 'star', Number_mul, ['number']);
+add_function(NUMBER, 'stringify', Number_stringify, []);
+add_function(NUMBER, 'times', Number_times, ['function']);
+add_function(NUMBER, 'upto', Number_upto, ['number','function']);

data/lib/javascript/base/object.js

@@ -0,0 +1,299 @@
+/**
+ *  Copyright © 2011 Jesse Sielaff
+ */
+
+var OBJECT =
+{
+  functions: {}
+};
+
+function new_object (fields, keys)
+{
+  var obj =
+  {
+    object_type: OBJECT_TYPE,
+    functions: {},
+    data: fields,
+    keys: keys,
+    unknown: Object_bad_key,
+    value: {}
+  };
+  
+  copy_functions(obj, OBJECT);
+  
+  return obj;
+}
+
+function Object_alert (self, args)
+{
+  var str = call_function(self, 'stringify', []);
+  
+  alert(str.value);
+  
+  return self;
+}
+
+function Object_bad_key (self, args)
+{
+  var str = args[0];
+  
+  xarg(str, STRING_TYPE, "#get", "string");
+  return NULL;
+}
+
+function Object_cancel (self, args)
+{
+  var ids = self.timeout_ids;
+  
+  if (ids)
+  {
+    for (var i = 0, l = ids.length; i < l; ++i)
+    {
+      clearTimeout(ids[i]);
+    }
+    
+    delete self.timeout_ids;
+  }
+  
+  return self;
+}
+
+function Object_eq (self, args)
+{
+  var obj = args[0];
+  
+  if (xarg(obj, null, "#eq", "an"))
+  {
+    return NULL;
+  }
+  
+  if (obj.object_type !== self.object_type)
+  {
+    return FALSE;
+  }
+  
+  return (self.value === obj.value) ? TRUE : FALSE;
+}
+
+function Object_every (self, args)
+{
+  var num = args[0];
+  var func = args[1];
+  
+  if (xarg(num, NUMBER_TYPE, "#every", "number") || xarg(func, FUNCTION_TYPE, "#every", "function"))
+  {
+    return self;
+  }
+  
+  var body = func.value;
+  var bound = func.bound;
+  var t = num.value;
+  
+  if (!self.interval_ids)
+  {
+    self.interval_ids = [];
+  }
+  
+  self.interval_ids.push(setInterval(function () { body(bound, [self]) }, t));
+  
+  return self;
+}
+
+function Object_fnames (self, args)
+{
+  var fnames = [];
+  
+  for (var fname in self.functions)
+  {
+    fnames.push(new_string(fname));
+  }
+  
+  return new_array(fnames.sort());
+}
+
+function Object_get (self, args)
+{
+  var str = args[0];
+  
+  if (xarg(str, STRING_TYPE, "#get", "string"))
+  {
+    return NULL;
+  }
+  
+  var key = str.value;
+  var fields = self.data;
+  
+  return fields[key] || self.unknown(self, [key]);
+}
+
+function Object_inspect (self, args)
+{
+  return new_string('{...}');
+}
+
+function Object_log (self, args)
+{
+  output(self);
+  return self;
+}
+
+function Object_neq (self, args)
+{
+  var obj = args[0];
+  
+  if (xarg(obj, null, "#neq", "an"))
+  {
+    return NULL;
+  }
+  
+  if (obj.object_type !== self.object_type)
+  {
+    return TRUE;
+  }
+  
+  return (self.value === obj.value) ? FALSE : TRUE;
+}
+
+function Object_print (self, args)
+{
+  var str = call_function(self, 'stringify', []);
+  
+  output(str.value);
+  
+  return self;
+}
+
+function Object_scope (self, args)
+{
+  var func = args[0];
+  
+  if (xarg(func, FUNCTION_TYPE, "#scope", "function"))
+  {
+    return self;
+  }
+  
+  func.value(self, []);
+  
+  return self;
+}
+
+function Object_set (self, args)
+{
+  var str = args[0];
+  var obj = args[1];
+  
+  if (xarg(obj, null, "#set", "right hand"))
+  {
+    return NULL;
+  }
+  
+  if (xarg(str, STRING_TYPE, "#set", "string key"))
+  {
+    return obj;
+  }
+  
+  var key = str.value;
+  
+  if (!self.data[key])
+  {
+    self.keys.push(key);
+  }
+  
+  return self.data[key] = value;
+}
+
+function Object_stop (self, args)
+{
+  var ids = self.interval_ids;
+  
+  if (ids)
+  {
+    for (var i = 0, l = ids.length; i < l; ++i)
+    {
+      clearInterval(ids[i]);
+    }
+    
+    delete self.interval_ids;
+  }
+  
+  return self;
+}
+
+function Object_stringify (self, args)
+{
+  var string = '';
+  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 + '}');
+}
+
+function Object_use (self, args)
+{
+  var func = args[0];
+  
+  if (xarg(func, FUNCTION_TYPE, "#use", "function"))
+  {
+    return self;
+  }
+  
+  func.value(func.bound, [self]);
+  
+  return self;
+}
+
+function Object_wait (self, args)
+{
+  var num = args[0];
+  var func = args[1];
+  
+  if (xarg(num, NUMBER_TYPE, "#wait", "number") || xarg(func, FUNCTION_TYPE, "#wait", "function"))
+  {
+    return self;
+  }
+  
+  var body = func.value;
+  var bound = func.bound;
+  var t = num.value;
+  
+  if (!self.timeout_ids)
+  {
+    self.timeout_ids = [];
+  }
+  
+  self.timeout_ids.push(setTimeout(function () { body(bound, [self]); }, t));
+  
+  return self;
+}
+
+add_function(OBJECT, 'alert', Object_alert, []);
+add_function(OBJECT, 'brackets', Object_get, ['key']);
+add_function(OBJECT, 'brackets_eq', Object_set, ['key','value']);
+add_function(OBJECT, 'cancel', Object_cancel, []);
+add_function(OBJECT, 'eq', Object_eq, ['object']);
+add_function(OBJECT, 'every', Object_every, ['milliseconds','function']);
+add_function(OBJECT, 'fnames', Object_fnames, []);
+add_function(OBJECT, 'get', Object_get, ['key']);
+add_function(OBJECT, 'inspect', Object_inspect, []);
+add_function(OBJECT, 'log', Object_log, []);
+add_function(OBJECT, 'neq', Object_neq, ['object']);
+add_function(OBJECT, 'print', Object_print, []);
+add_function(OBJECT, 'scope', Object_scope, ['function']);
+add_function(OBJECT, 'set', Object_set, ['key','value']);
+add_function(OBJECT, 'stop', Object_stop, []);
+add_function(OBJECT, 'stringify', Object_stringify, []);
+add_function(OBJECT, 'use', Object_use, ['function']);
+add_function(OBJECT, 'wait', Object_wait, ['milliseconds','function']);

data/lib/javascript/base/string.js

@@ -0,0 +1,75 @@
+/**
+ *  Copyright © 2011 Jesse Sielaff
+ */
+
+var STRING =
+{
+  functions: {}
+};
+
+copy_functions(STRING, OBJECT);
+
+function new_string (value)
+{
+  var str =
+  {
+    object_type: STRING_TYPE,
+    functions: {},
+    data: {},
+    keys: [],
+    unknown: Object_bad_key,
+    value: value
+  };
+  
+  copy_functions(str, STRING);
+  
+  return str;
+}
+
+function String_inspect (self, args)
+{
+  if (xself(self, STRING_TYPE, "#inspect"))
+  {
+    return NULL;
+  }
+  
+  return new_string("'" + self.value + "'");
+}
+
+function String_plus (self, args)
+{
+  var str = args[0];
+  
+  if (xself(self, STRING_TYPE, "#plus") || xarg(str, STRING_TYPE, "String#plus", "string"))
+  {
+    return NULL;
+  }
+  
+  return new_string(self.value + str.value);
+}
+
+function String_stringify (self, args)
+{
+  if (xself(self, STRING_TYPE, "#stringify"))
+  {
+    return NULL;
+  }
+  
+  return new_string(self.value);
+}
+
+function String_warn (self, args)
+{
+  if (xself(self, STRING_TYPE, "#warn"))
+  {
+    return self;
+  }
+  
+  warn(self.value);
+  return self;
+}
+
+add_function(STRING, 'inspect', String_inspect, []);
+add_function(STRING, 'plus', String_plus, []);
+add_function(STRING, 'inspect', String_stringify, []);
+add_function(STRING, 'warn', String_warn, []);

data/lib/javascript/base/true.js

@@ -0,0 +1,23 @@
+/**
+ *  Copyright © 2011 Jesse Sielaff
+ */
+
+var TRUE =
+{
+  object_type: TRUE_TYPE,
+  functions: {},
+  data: {},
+  keys: [],
+  unknown: Object_bad_key,
+  value: true
+}
+
+copy_functions(TRUE, OBJECT);
+
+function True_stringify (self, args)
+{
+  return new_string('true');
+}
+
+add_function(TRUE, 'inspect', True_stringify, []);
+add_function(TRUE, 'stringify', True_stringify, []);

data/lib/javascript/dom/div.js

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