toss-devel-svn Mailing List for Toss (Page 4)

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

Revision: 1674
          http://toss.svn.sourceforge.net/toss/?rev=1674&view=rev
Author:   lukaszkaiser
Date:     2012-02-11 22:40:58 +0000 (Sat, 11 Feb 2012)
Log Message:
-----------
Cleanup in Client.

Modified Paths:
--------------
    trunk/Toss/Client/.cvsignore
    trunk/Toss/Client/clientTest.js
    trunk/Toss/Client/index.html

Added Paths:
-----------
    trunk/Toss/Client/img/toss.png

Removed Paths:
-------------
    trunk/Toss/Client/JsHandler.js
    trunk/Toss/Client/Login.js
    trunk/Toss/Client/profile.html
    trunk/Toss/Client/register.html
    trunk/Toss/Client/support.html
    trunk/Toss/Client/toss.png

Property Changed:
----------------
    trunk/Toss/Client/


Property changes on: trunk/Toss/Client
___________________________________________________________________
Modified: svn:ignore
   - # We are still using .cvsignore files as we find them easier to manage
# than svn properties. Therefore if you change .cvsignore do the following.
#     svn propset svn:ignore -F .cvsignore .

*.ttf
*.eot
*.svg
*.woff
*~

   + # We are still using .cvsignore files as we find them easier to manage
# than svn properties. Therefore if you change .cvsignore do the following.
#     svn propset svn:ignore -F .cvsignore .

JsHandler.js
clientTestRender*.png
*~


Modified: trunk/Toss/Client/.cvsignore
===================================================================

--- trunk/Toss/Client/.cvsignore	2012-02-11 22:16:36 UTC (rev 1673)
+++ trunk/Toss/Client/.cvsignore	2012-02-11 22:40:58 UTC (rev 1674)
@@ -2,8 +2,6 @@
 # than svn properties. Therefore if you change .cvsignore do the following.
 #     svn propset svn:ignore -F .cvsignore .
 
-*.ttf
-*.eot
-*.svg
-*.woff
+JsHandler.js
+clientTestRender*.png
 *~

Deleted: trunk/Toss/Client/JsHandler.js
===================================================================
--- trunk/Toss/Client/JsHandler.js	2012-02-11 22:16:36 UTC (rev 1673)
+++ trunk/Toss/Client/JsHandler.js	2012-02-11 22:40:58 UTC (rev 1674)
@@ -1,979 +0,0 @@
-// A bug in js_of_ocaml: it sometimes omits the functions below, which
-// belong to its runtmie.
-
-// Applies to code below this line:
-// Js_of_ocaml runtime support
-// http://www.ocsigen.org/js_of_ocaml/
-// Copyright (C) 2010 Jérôme Vouillon
-// Laboratoire PPS - CNRS Université Paris Diderot
-//
-// This program is free software; you can redistribute it and/or modify
-// it under the terms of the GNU Lesser General Public License as published by
-// the Free Software Foundation, with linking exception;
-// either version 2.1 of the License, or (at your option) any later version.
-//
-// This program is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// GNU Lesser General Public License for more details.
-//
-// You should have received a copy of the GNU Lesser General Public License
-// along with this program; if not, write to the Free Software
-// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-
-// Provides: caml_int64_bits_of_float const
-function caml_int64_bits_of_float (x) {
-  if (!isFinite(x)) {
-    if (isNaN(x)) return [255, 1, 0, 0xfff0];
-    return (x > 0)?[255,0,0,0x7ff0]:[255,0,0,0xfff0];
-  }
-  var sign = (x>=0)?0:0x8000;
-  if (sign) x = -x;
-  var exp = Math.floor(Math.LOG2E*Math.log(x)) + 1023;
-  if (exp <= 0) {
-    exp = 0;
-    x /= Math.pow(2,-1026);
-  } else {
-    x /= Math.pow(2,exp-1027);
-    if (x < 16) { x *= 2; exp -=1; }
-    if (exp == 0) { x /= 2; }
-  }
-  var k = Math.pow(2,24);
-  var r3 = x|0;
-  x = (x - r3) * k;
-  var r2 = x|0;
-  x = (x - r2) * k;
-  var r1 = x|0;
-  r3 = (r3 &0xf) | sign | exp << 4;
-  return [255, r1, r2, r3];
-}
-//Provides: caml_int64_to_bytes
-function caml_int64_to_bytes(x) {
-  return [x[3] >> 8, x[3] & 0xff, x[2] >> 16, (x[2] >> 8) & 0xff, x[2] & 0xff,
-          x[1] >> 16, (x[1] >> 8) & 0xff, x[1] & 0xff];
-}
-// This program was compiled from OCaml by js_of_ocaml 1.0
-function caml_raise_with_arg (tag, arg) { throw [0, tag, arg]; }
-function caml_raise_with_string (tag, msg) {
-  caml_raise_with_arg (tag, new MlWrappedString (msg));
-}
-function caml_invalid_argument (msg) {
-  caml_raise_with_string(caml_global_data[4], msg);
-}
-function caml_array_bound_error () {
-  caml_invalid_argument("index out of bounds");
-}
-function caml_str_repeat(n, s) {
-  if (!n) { return ""; }
-  if (n & 1) { return caml_str_repeat(n - 1, s) + s; }
-  var r = caml_str_repeat(n >> 1, s);
-  return r + r;
-}
-function MlString(param) {
-  if (param != null) {
-    this.bytes = this.fullBytes = param;
-    this.last = this.len = param.length;
-  }
-}
-MlString.prototype = {
-  string:null,
-  bytes:null,
-  fullBytes:null,
-  array:null,
-  len:null,
-  last:0,
-  toJsString:function() {
-    return this.string = decodeURIComponent (escape(this.getFullBytes()));
-  },
-  toBytes:function() {
-    if (this.string != null)
-      var b = unescape (encodeURIComponent (this.string));
-    else {
-      var b = "", a = this.array, l = a.length;
-      for (var i = 0; i < l; i ++) b += String.fromCharCode (a[i]);
-    }
-    this.bytes = this.fullBytes = b;
-    this.last = this.len = b.length;
-    return b;
-  },
-  getBytes:function() {
-    var b = this.bytes;
-    if (b == null) b = this.toBytes();
-    return b;
-  },
-  getFullBytes:function() {
-    var b = this.fullBytes;
-    if (b !== null) return b;
-    b = this.bytes;
-    if (b == null) b = this.toBytes ();
-    if (this.last < this.len) {
-      this.bytes = (b += caml_str_repeat(this.len - this.last, '\0'));
-      this.last = this.len;
-    }
-    this.fullBytes = b;
-    return b;
-  },
-  toArray:function() {
-    var b = this.bytes;
-    if (b == null) b = this.toBytes ();
-    var a = [], l = this.last;
-    for (var i = 0; i < l; i++) a[i] = b.charCodeAt(i);
-    for (l = this.len; i < l; i++) a[i] = 0;
-    this.string = this.bytes = this.fullBytes = null;
-    this.last = this.len;
-    this.array = a;
-    return a;
-  },
-  getArray:function() {
-    var a = this.array;
-    if (!a) a = this.toArray();
-    return a;
-  },
-  getLen:function() {
-    var len = this.len;
-    if (len !== null) return len;
-    this.toBytes();
-    return this.len;
-  },
-  toString:function() { var s = this.string; return s?s:this.toJsString(); },
-  valueOf:function() { var s = this.string; return s?s:this.toJsString(); },
-  blitToArray:function(i1, a2, i2, l) {
-    var a1 = this.array;
-    if (a1)
-      for (var i = 0; i < l; i++) a2 [i2 + i] = a1 [i1 + i];
-    else {
-      var b = this.bytes;
-      if (b == null) b = this.toBytes();
-      var l1 = this.last - i1;
-      if (l <= l1)
-        for (var i = 0; i < l; i++) a2 [i2 + i] = b.charCodeAt(i1 + i);
-      else {
-        for (var i = 0; i < l1; i++) a2 [i2 + i] = b.charCodeAt(i1 + i);
-        for (; i < l; i++) a2 [i2 + i] = 0;
-      }
-    }
-  },
-  get:function (i) {
-    var a = this.array;
-    if (a) return a[i];
-    var b = this.bytes;
-    if (b == null) b = this.toBytes();
-    return (i<this.last)?b.charCodeAt(i):0;
-  },
-  safeGet:function (i) {
-    if (!this.len) this.toBytes();
-    if ((i < 0) || (i >= this.len)) caml_array_bound_error ();
-    return this.get(i);
-  },
-  set:function (i, c) {
-    var a = this.array;
-    if (!a) {
-      if (this.last == i) {
-        this.bytes += String.fromCharCode (c & 0xff);
-        this.last ++;
-        return 0;
-      }
-      a = this.toArray();
-    } else if (this.bytes != null) {
-      this.bytes = this.fullBytes = this.string = null;
-    }
-    a[i] = c & 0xff;
-    return 0;
-  },
-  safeSet:function (i, c) {
-    if (this.len == null) this.toBytes ();
-    if ((i < 0) || (i >= this.len)) caml_array_bound_error ();
-    this.set(i, c);
-  },
-  fill:function (ofs, len, c) {
-    if (ofs >= this.last && this.last && c == 0) return;
-    var a = this.array;
-    if (!a) a = this.toArray();
-    else if (this.bytes != null) {
-      this.bytes = this.fullBytes = this.string = null;
-    }
-    var l = ofs + len;
-    for (var i = ofs; i < l; i++) a[i] = c;
-  },
-  compare:function (s2) {
-    if (this.string != null && s2.string != null) {
-      if (this.string < s2.string) return -1;
-      if (this.string > s2.string) return 1;
-      return 0;
-    }
-    var b1 = this.getFullBytes ();
-    var b2 = s2.getFullBytes ();
-    if (b1 < b2) return -1;
-    if (b1 > b2) return 1;
-    return 0;
-  },
-  equal:function (s2) {
-    if (this.string != null && s2.string != null)
-      return this.string == s2.string;
-    return this.getFullBytes () == s2.getFullBytes ();
-  },
-  lessThan:function (s2) {
-    if (this.string != null && s2.string != null)
-      return this.string < s2.string;
-    return this.getFullBytes () < s2.getFullBytes ();
-  },
-  lessEqual:function (s2) {
-    if (this.string != null && s2.string != null)
-      return this.string <= s2.string;
-    return this.getFullBytes () <= s2.getFullBytes ();
-  }
-}
-function MlWrappedString (s) { this.string = s; }
-MlWrappedString.prototype = new MlString();
-function MlMakeString (l) { this.bytes = ""; this.len = l; }
-MlMakeString.prototype = new MlString ();
-function caml_array_get (array, index) {
-  if ((index < 0) || (index >= array.length - 1)) caml_array_bound_error();
-  return array[index+1];
-}
-function caml_array_set (array, index, newval) {
-  if ((index < 0) || (index >= array.length - 1)) caml_array_bound_error();
-  array[index+1]=newval; return 0;
-}
-function caml_blit_string(s1, i1, s2, i2, len) {
-  if (len === 0) return;
-  if (i2 === s2.last && s2.bytes != null) {
-    var b = s1.bytes;
-    if (b == null) b = s1.toBytes ();
-    if (i1 > 0 || s1.last > len) b = b.slice(i1, i1 + len);
-    s2.bytes += b;
-    s2.last += b.length;
-    return;
-  }
-  var a = s2.array;
-  if (!a) a = s2.toArray(); else { s2.bytes = s2.string = null; }
-  s1.blitToArray (i1, a, i2, len);
-}
-function caml_call_gen(f, args) {
-  if(f.fun)
-    return caml_call_gen(f.fun, args);
-  var n = f.length;
-  var d = n - args.length;
-  if (d == 0)
-    return f.apply(null, args);
-  else if (d < 0)
-    return caml_call_gen(f.apply(null, args.slice(0,n)), args.slice(n));
-  else
-    return function (x){ return caml_call_gen(f, args.concat([x])); };
-}
-function caml_classify_float (x) {
-  if (isFinite (x)) {
-    if (Math.abs(x) >= 2.2250738585072014e-308) return 0;
-    if (x != 0) return 1;
-    return 2;
-  }
-  return isNaN(x)?4:3;
-}
-function caml_int64_compare(x,y) {
-  var x3 = x[3] << 16;
-  var y3 = y[3] << 16;
-  if (x3 > y3) return 1;
-  if (x3 < y3) return -1;
-  if (x[2] > y[2]) return 1;
-  if (x[2] < y[2]) return -1;
-  if (x[1] > y[1]) return 1;
-  if (x[1] < y[1]) return -1;
-  return 0;
-}
-function caml_int_compare (a, b) {
-  if (a < b) return (-1); if (a == b) return 0; return 1;
-}
-function caml_compare_val (a, b, total) {
-  var stack = [];
-  for(;;) {
-    if (!(total && a === b)) {
-      if (a instanceof MlString) {
-        if (b instanceof MlString) {
-            if (a != b) {
-		var x = a.compare(b);
-		if (x != 0) return x;
-	    }
-        } else
-          return 1;
-      } else if (a instanceof Array && a[0] === (a[0]|0)) {
-        var ta = a[0];
-        if (ta === 250) {
-          a = a[1];
-          continue;
-        } else if (b instanceof Array && b[0] === (b[0]|0)) {
-          var tb = b[0];
-          if (tb === 250) {
-            b = b[1];
-            continue;
-          } else if (ta != tb) {
-            return (ta < tb)?-1:1;
-          } else {
-            switch (ta) {
-            case 248: {
-		var x = caml_int_compare(a[2], b[2]);
-		if (x != 0) return x;
-		break;
-	    }
-            case 255: {
-		var x = caml_int64_compare(a, b);
-		if (x != 0) return x;
-		break;
-	    }
-            default:
-              if (a.length != b.length) return (a.length < b.length)?-1:1;
-              if (a.length > 1) stack.push(a, b, 1);
-            }
-          }
-        } else
-          return 1;
-      } else if (b instanceof MlString ||
-                 (b instanceof Array && b[0] === (b[0]|0))) {
-        return -1;
-      } else {
-        if (a < b) return -1;
-        if (a > b) return 1;
-        if (total && a != b) {
-          if (a == a) return 1;
-          if (b == b) return -1;
-        }
-      }
-    }
-    if (stack.length == 0) return 0;
-    var i = stack.pop();
-    b = stack.pop();
-    a = stack.pop();
-    if (i + 1 < a.length) stack.push(a, b, i + 1);
-    a = a[i];
-    b = b[i];
-  }
-}
-function caml_compare (a, b) { return caml_compare_val (a, b, true); }
-function caml_create_string(len) {
-  if (len < 0) caml_invalid_argument("String.create");
-  return new MlMakeString(len);
-}
-function caml_raise_constant (tag) { throw [0, tag]; }
-var caml_global_data = [0];
-function caml_raise_zero_divide () {
-  caml_raise_constant(caml_global_data[6]);
-}
-function caml_div(x,y) {
-  if (y == 0) caml_raise_zero_divide ();
-  return (x/y)|0;
-}
-function caml_equal (x, y) { return +(caml_compare_val(x,y,false) == 0); }
-function caml_fill_string(s, i, l, c) { s.fill (i, l, c); }
-function caml_float_compare (x, y) {
-  if (x === y) return 0;
-  if (x < y) return -1;
-  if (x > y) return 1;
-  if (x === x) return 1;
-  if (y === y) return -1;
-  return 0;
-}
-function caml_parse_format (fmt) {
-  fmt = fmt.toString ();
-  var len = fmt.length;
-  if (len > 31) caml_invalid_argument("format_int: format too long");
-  var f =
-    { justify:'+', signstyle:'-', filler:' ', alternate:false,
-      base:0, signedconv:false, width:0, uppercase:false,
-      sign:1, prec:6, conv:'f' };
-  for (var i = 0; i < len; i++) {
-    var c = fmt.charAt(i);
-    switch (c) {
-    case '-':
-      f.justify = '-'; break;
-    case '+': case ' ':
-      f.signstyle = c; break;
-    case '0':
-      f.filler = '0'; break;
-    case '#':
-      f.alternate = true; break;
-    case '1': case '2': case '3': case '4': case '5':
-    case '6': case '7': case '8': case '9':
-      f.width = 0;
-      while (c=fmt.charCodeAt(i) - 48, c >= 0 && c <= 9) {
-        f.width = f.width * 10 + c; i++
-      }
-      i--;
-     break;
-    case '.':
-      f.prec = 0;
-      i++;
-      while (c=fmt.charCodeAt(i) - 48, c >= 0 && c <= 9) {
-        f.prec = f.prec * 10 + c; i++
-      }
-      i--;
-    case 'd': case 'i':
-      f.signedconv = true; /* fallthrough */
-    case 'u':
-      f.base = 10; break;
-    case 'x':
-      f.base = 16; break;
-    case 'X':
-      f.base = 16; f.uppercase = true; break;
-    case 'o':
-      f.base = 8; break;
-    case 'e': case 'f': case 'g':
-      f.signedconv = true; f.conv = c; break;
-    case 'E': case 'F': case 'G':
-      f.signedconv = true; f.uppercase = true;
-      f.conv = c.toLowerCase (); break;
-    }
-  }
-  return f;
-}
-function caml_finish_formatting(f, rawbuffer) {
-  if (f.uppercase) rawbuffer = rawbuffer.toUpperCase();
-  var len = rawbuffer.length;
-  if (f.signedconv && (f.sign < 0 || f.signstyle != '-')) len++;
-  if (f.alternate) {
-    if (f.base == 8) len += 1;
-    if (f.base == 16) len += 2;
-  }
-  var buffer = "";
-  if (f.justify == '+' && f.filler == ' ')
-    for (var i = len; i < f.width; i++) buffer += ' ';
-  if (f.signedconv) {
-    if (f.sign < 0) buffer += '-';
-    else if (f.signstyle != '-') buffer += f.signstyle;
-  }
-  if (f.alternate && f.base == 8) buffer += '0';
-  if (f.alternate && f.base == 16) buffer += "0x";
-  if (f.justify == '+' && f.filler == '0')
-    for (var i = len; i < f.width; i++) buffer += '0';
-  buffer += rawbuffer;
-  if (f.justify == '-')
-    for (var i = len; i < f.width; i++) buffer += ' ';
-  return new MlWrappedString (buffer);
-}
-function caml_format_float (fmt, x) {
-  var s, f = caml_parse_format(fmt);
-  if (x < 0) { f.sign = -1; x = -x; }
-  if (isNaN(x)) { s = "nan"; f.filler = ' '; }
-  else if (!isFinite(x)) { s = "inf"; f.filler = ' '; }
-  else
-    switch (f.conv) {
-    case 'e':
-      var s = x.toExponential(f.prec);
-      var i = s.length;
-      if (s.charAt(i - 3) == 'e')
-        s = s.slice (0, i - 1) + '0' + s.slice (i - 1);
-      break;
-    case 'f':
-      s = x.toFixed(f.prec); break;
-    case 'g':
-      var prec = f.prec?f.prec:1;
-      s = x.toExponential(prec - 1);
-      var j = s.indexOf('e');
-      var exp = +s.slice(j + 1);
-      if (exp < -4 || x.toFixed(0).length > prec) {
-        var i = j - 1; while (s.charAt(i) == '0') i--;
-        if (s.charAt(i) == '.') i--;
-        s = s.slice(0, i + 1) + s.slice(j);
-        i = s.length;
-        if (s.charAt(i - 3) == 'e')
-          s = s.slice (0, i - 1) + '0' + s.slice (i - 1);
-        break;
-      } else {
-        var p = prec;
-        if (exp < 0) { p -= exp + 1; s = x.toFixed(p); }
-        else while (s = x.toFixed(p), s.length > prec + 1) p--;
-        if (p) {
-          var i = s.length - 1; while (s.charAt(i) == '0') i--;
-          if (s.charAt(i) == '.') i--;
-          s = s.slice(0, i + 1);
-        }
-      }
-      break;
-    }
-  return caml_finish_formatting(f, s);
-}
-function caml_format_int(fmt, i) {
-  if (fmt.toString() == "%d") return new MlWrappedString(""+i);
-  var f = caml_parse_format(fmt);
-  if (i < 0) { if (f.signedconv) { f.sign = -1; i = -i; } else i >>>= 0; }
-  var s = i.toString(f.base);
-  return caml_finish_formatting(f, s);
-}
-function caml_get_public_method (obj, tag) {
-  var meths = obj[1];
-  var li = 3, hi = meths[1] * 2 + 1, mi;
-  while (li < hi) {
-    mi = ((li+hi) >> 1) | 1;
-    if (tag < meths[mi+1]) hi = mi-2;
-    else li = mi;
-  }
-  return (tag == meths[li+1] ? meths[li] : 0);
-}
-function caml_greaterequal (x, y) { return +(caml_compare(x,y,false) >= 0); }
-function caml_greaterthan (x, y) { return +(caml_compare(x,y,false) > 0); }
-function caml_int64_to_bytes(x) {
-  return [x[3] >> 8, x[3] & 0xff, x[2] >> 16, (x[2] >> 8) & 0xff, x[2] & 0xff,
-          x[1] >> 16, (x[1] >> 8) & 0xff, x[1] & 0xff];
-}
-function caml_int64_bits_of_float (x) {
-  if (!isFinite(x)) {
-    if (isNaN(x)) return [255, 1, 0, 0xfff0];
-    return (x > 0)?[255,0,0,0x7ff0]:[255,0,0,0xfff0];
-  }
-  var sign = (x>=0)?0:0x8000;
-  if (sign) x = -x;
-  var exp = Math.floor(Math.LOG2E*Math.log(x)) + 1023;
-  if (exp <= 0) {
-    exp = 0;
-    x /= Math.pow(2,-1026);
-  } else {
-    x /= Math.pow(2,exp-1027);
-    if (x < 16) { x *= 2; exp -=1; }
-    if (exp == 0) { x /= 2; }
-  }
-  var k = Math.pow(2,24);
-  var r3 = x|0;
-  x = (x - r3) * k;
-  var r2 = x|0;
-  x = (x - r2) * k;
-  var r1 = x|0;
-  r3 = (r3 &0xf) | sign | exp << 4;
-  return [255, r1, r2, r3];
-}
-function caml_hash_univ_param (count, limit, obj) {
-  var hash_accu = 0;
-  function hash_aux (obj) {
-    limit --;
-    if (count < 0 || limit < 0) return;
-    if (obj instanceof Array && obj[0] === (obj[0]|0)) {
-      switch (obj[0]) {
-      case 248:
-        count --;
-        hash_accu = (hash_accu * 65599 + obj[2]) | 0;
-        break
-      case 250:
-        limit++; hash_aux(obj); break;
-      case 255:
-        count --;
-        hash_accu = (hash_accu * 65599 + obj[1] + (obj[2] << 24)) | 0;
-        break;
-      default:
-        count --;
-        hash_accu = (hash_accu * 19 + obj[0]) | 0;
-        for (var i = obj.length - 1; i > 0; i--) hash_aux (obj[i]);
-      }
-    } else if (obj instanceof MlString) {
-      count --;
-      var a = obj.array, l = obj.getLen ();
-      if (a) {
-        for (var i = 0; i < l; i++) hash_accu = (hash_accu * 19 + a[i]) | 0;
-      } else {
-        var b = obj.getFullBytes ();
-        for (var i = 0; i < l; i++)
-          hash_accu = (hash_accu * 19 + b.charCodeAt(i)) | 0;
-      }
-    } else if (obj === (obj|0)) {
-      count --;
-      hash_accu = (hash_accu * 65599 + obj) | 0;
-    } else if (obj === +obj) {
-      count--;
-      var p = caml_int64_to_bytes (caml_int64_bits_of_float (obj));
-      for (var i = 7; i >= 0; i--) hash_accu = (hash_accu * 19 + p[i]) | 0;
-    }
-  }
-  hash_aux (obj);
-  return hash_accu & 0x3FFFFFFF;
-}
-function caml_int64_float_of_bits (x) {
-  var exp = (x[3] & 0x7fff) >> 4;
-  if (exp == 2047) {
-      if ((x[1]|x[2]|(x[3]&0xf)) == 0)
-        return (x[3] & 0x8000)?(-Infinity):Infinity;
-      else
-        return NaN;
-  }
-  var k = Math.pow(2,-24);
-  var res = (x[1]*k+x[2])*k+(x[3]&0xf);
-  if (exp > 0) {
-    res += 16
-    res *= Math.pow(2,exp-1027);
-  } else
-    res *= Math.pow(2,-1026);
-  if (x[3] & 0x8000) res = - res;
-  return res;
-}
-function caml_int64_is_negative(x) {
-  return (x[3] << 16) < 0;
-}
-function caml_int64_neg (x) {
-  var y1 = - x[1];
-  var y2 = - x[2] + (y1 >> 24);
-  var y3 = - x[3] + (y2 >> 24);
-  return [255, y1 & 0xffffff, y2 & 0xffffff, y3 & 0xffff];
-}
-function caml_int64_of_int32 (x) {
-  return [255, x & 0xffffff, (x >> 24) & 0xffffff, (x >> 31) & 0xffff]
-}
-function caml_int64_ucompare(x,y) {
-  if (x[3] > y[3]) return 1;
-  if (x[3] < y[3]) return -1;
-  if (x[2] > y[2]) return 1;
-  if (x[2] < y[2]) return -1;
-  if (x[1] > y[1]) return 1;
-  if (x[1] < y[1]) return -1;
-  return 0;
-}
-function caml_int64_lsl1 (x) {
-  x[3] = (x[3] << 1) | (x[2] >> 23);
-  x[2] = ((x[2] << 1) | (x[1] >> 23)) & 0xffffff;
-  x[1] = (x[1] << 1) & 0xffffff;
-}
-function caml_int64_lsr1 (x) {
-  x[1] = ((x[1] >>> 1) | (x[2] << 23)) & 0xffffff;
-  x[2] = ((x[2] >>> 1) | (x[3] << 23)) & 0xffffff;
-  x[3] = x[3] >>> 1;
-}
-function caml_int64_sub (x, y) {
-  var z1 = x[1] - y[1];
-  var z2 = x[2] - y[2] + (z1 >> 24);
-  var z3 = x[3] - y[3] + (z2 >> 24);
-  return [255, z1 & 0xffffff, z2 & 0xffffff, z3 & 0xffff];
-}
-function caml_int64_udivmod (x, y) {
-  var offset = 0;
-  var modulus = x.slice ();
-  var divisor = y.slice ();
-  var quotient = [255, 0, 0, 0];
-  while (caml_int64_ucompare (modulus, divisor) > 0) {
-    offset++;
-    caml_int64_lsl1 (divisor);
-  }
-  while (offset >= 0) {
-    offset --;
-    caml_int64_lsl1 (quotient);
-    if (caml_int64_ucompare (modulus, divisor) >= 0) {
-      quotient[1] ++;
-      modulus = caml_int64_sub (modulus, divisor);
-    }
-    caml_int64_lsr1 (divisor);
-  }
-  return [0,quotient, modulus];
-}
-function caml_int64_to_int32 (x) {
-  return x[1] | (x[2] << 24);
-}
-function caml_int64_is_zero(x) {
-  return (x[3]|x[2]|x[1]) == 0;
-}
-function caml_int64_format (fmt, x) {
-  var f = caml_parse_format(fmt);
-  if (f.signedconv && caml_int64_is_negative(x)) {
-    f.sign = -1; x = caml_int64_neg(x);
-  }
-  var buffer = "";
-  var wbase = caml_int64_of_int32(f.base);
-  var cvtbl = "0123456789abcdef";
-  do {
-    var p = caml_int64_udivmod(x, wbase);
-    x = p[1];
-    buffer = cvtbl.charAt(caml_int64_to_int32(p[2])) + buffer;
-  } while (! caml_int64_is_zero(x));
-  return caml_finish_formatting(f, buffer);
-}
-function caml_parse_sign_and_base (s) {
-  var i = 0, base = 10, sign = s.get(0) == 45?(i++,-1):1;
-  if (s.get(i) == 48)
-    switch (s.get(i + 1)) {
-    case 120: case 88: base = 16; i += 2; break;
-    case 111: case 79: base =  8; i += 2; break;
-    case  98: case 66: base =  2; i += 2; break;
-    }
-  return [i, sign, base];
-}
-function caml_parse_digit(c) {
-  if (c >= 48 && c <= 57)  return c - 48;
-  if (c >= 65 && c <= 90)  return c - 55;
-  if (c >= 97 && c <= 122) return c - 87;
-  return -1;
-}
-function caml_failwith (msg) {
-  caml_raise_with_string(caml_global_data[3], msg);
-}
-function caml_int_of_string (s) {
-  var r = caml_parse_sign_and_base (s);
-  var i = r[0], sign = r[1], base = r[2];
-  var threshold = -1 >>> 0;
-  var c = s.get(i);
-  var d = caml_parse_digit(c);
-  if (d < 0 || d >= base) caml_failwith("int_of_string");
-  var res = d;
-  for (;;) {
-    i++;
-    c = s.get(i);
-    if (c == 95) continue;
-    d = caml_parse_digit(c);
-    if (d < 0 || d >= base) break;
-    res = base * res + d;
-    if (res > threshold) caml_failwith("int_of_string");
-  }
-  if (i != s.getLen()) caml_failwith("int_of_string");
-  res = sign * res;
-  if ((res | 0) != res) caml_failwith("int_of_string");
-  return res;
-}
-function caml_is_printable(c) { return +(c > 31 && c < 127); }
-function caml_js_eval_string () {return eval(arguments[0].toString());}
-function caml_js_from_array(a) { return a.slice(1); }
-function caml_js_fun_call(f, args) { return f.apply(null, args.slice(1)); }
-function caml_js_to_array(a) { return [0].concat(a); }
-function caml_js_wrap_callback(f) {
-  var toArray = Array.prototype.slice;
-  return function () {
-    var args = (arguments.length > 0)?toArray.call (arguments):[undefined];
-    return caml_call_gen(f, args);
-  }
-}
-function caml_lessequal (x, y) { return +(caml_compare(x,y,false) <= 0); }
-function caml_lessthan (x, y) { return +(caml_compare(x,y,false) < 0); }
-function caml_lex_array(s) {
-  s = s.getFullBytes();
-  var a = [], l = s.length / 2;
-  for (var i = 0; i < l; i++)
-    a[i] = (s.charCodeAt(2 * i) | (s.charCodeAt(2 * i + 1) << 8)) << 16 >> 16;
-  return a;
-}
-function caml_lex_engine(tbl, start_state, lexbuf) {
-  var lex_buffer = 2;
-  var lex_buffer_len = 3;
-  var lex_start_pos = 5;
-  var lex_curr_pos = 6;
-  var lex_last_pos = 7;
-  var lex_last_action = 8;
-  var lex_eof_reached = 9;
-  var lex_base = 1;
-  var lex_backtrk = 2;
-  var lex_default = 3;
-  var lex_trans = 4;
-  var lex_check = 5;
-  if (!tbl.lex_default) {
-    tbl.lex_base =    caml_lex_array (tbl[lex_base]);
-    tbl.lex_backtrk = caml_lex_array (tbl[lex_backtrk]);
-    tbl.lex_check =   caml_lex_array (tbl[lex_check]);
-    tbl.lex_trans =   caml_lex_array (tbl[lex_trans]);
-    tbl.lex_default = caml_lex_array (tbl[lex_default]);
-  }
-  var c, state = start_state;
-  var buffer = lexbuf[lex_buffer].getArray();
-  if (state >= 0) {
-    lexbuf[lex_last_pos] = lexbuf[lex_start_pos] = lexbuf[lex_curr_pos];
-    lexbuf[lex_last_action] = -1;
-  } else {
-    state = -state - 1;
-  }
-  for(;;) {
-    var base = tbl.lex_base[state];
-    if (base < 0) return -base-1;
-    var backtrk = tbl.lex_backtrk[state];
-    if (backtrk >= 0) {
-      lexbuf[lex_last_pos] = lexbuf[lex_curr_pos];
-      lexbuf[lex_last_action] = backtrk;
-    }
-    if (lexbuf[lex_curr_pos] >= lexbuf[lex_buffer_len]){
-      if (lexbuf[lex_eof_reached] == 0)
-        return -state - 1;
-      else
-        c = 256;
-    }else{
-      c = buffer[lexbuf[lex_curr_pos]];
-      lexbuf[lex_curr_pos] ++;
-    }
-    if (tbl.lex_check[base + c] == state)
-      state = tbl.lex_trans[base + c];
-    else
-      state = tbl.lex_default[state];
-    if (state < 0) {
-      lexbuf[lex_curr_pos] = lexbuf[lex_last_pos];
-      if (lexbuf[lex_last_action] == -1)
-        caml_failwith("lexing: empty token");
-      else
-        return lexbuf[lex_last_action];
-    }else{
-      /* Erase the EOF condition only if the EOF pseudo-character was
-         consumed by the automaton (i.e. there was no backtrack above)
-       */
-      if (c == 256) lexbuf[lex_eof_reached] = 0;
-    }
-  }
-}
-function caml_make_vect (len, init) {
-  var b = [0]; for (var i = 1; i <= len; i++) b[i] = init; return b;
-}
-function MlStringFromArray (a) {
-  var len = a.length; this.array = a; this.len = this.last = len;
-}
-MlStringFromArray.prototype = new MlString ();
-var caml_md5_string =
-function () {
-  function add (x, y) { return (x + y) | 0; }
-  function xx(q,a,b,x,s,t) {
-    a = add(add(a, q), add(x, t));
-    return add((a << s) | (a >>> (32 - s)), b);
-  }
-  function ff(a,b,c,d,x,s,t) {
-    return xx((b & c) | ((~b) & d), a, b, x, s, t);
-  }
-  function gg(a,b,c,d,x,s,t) {
-    return xx((b & d) | (c & (~d)), a, b, x, s, t);
-  }
-  function hh(a,b,c,d,x,s,t) { return xx(b ^ c ^ d, a, b, x, s, t); }
-  function ii(a,b,c,d,x,s,t) { return xx(c ^ (b | (~d)), a, b, x, s, t); }
-  function md5(buffer, length) {
-    var i = length;
-    buffer[i >> 2] |= 0x80 << (8 * (i & 3));
-    for (i = (i & ~0x3) + 4;(i & 0x3F) < 56 ;i += 4)
-      buffer[i >> 2] = 0;
-    buffer[i >> 2] = length << 3;
-    i += 4;
-    buffer[i >> 2] = (length >> 29) & 0x1FFFFFFF;
-    var w = [0x67452301, 0xEFCDAB89, 0x98BADCFE, 0x10325476];
-    for(i = 0; i < buffer.length; i += 16) {
-      var a = w[0], b = w[1], c = w[2], d = w[3];
-      a = ff(a, b, c, d, buffer[i+ 0], 7, 0xD76AA478);
-      d = ff(d, a, b, c, buffer[i+ 1], 12, 0xE8C7B756);
-      c = ff(c, d, a, b, buffer[i+ 2], 17, 0x242070DB);
-      b = ff(b, c, d, a, buffer[i+ 3], 22, 0xC1BDCEEE);
-      a = ff(a, b, c, d, buffer[i+ 4], 7, 0xF57C0FAF);
-      d = ff(d, a, b, c, buffer[i+ 5], 12, 0x4787C62A);
-      c = ff(c, d, a, b, buffer[i+ 6], 17, 0xA8304613);
-      b = ff(b, c, d, a, buffer[i+ 7], 22, 0xFD469501);
-      a = ff(a, b, c, d, buffer[i+ 8], 7, 0x698098D8);
-      d = ff(d, a, b, c, buffer[i+ 9], 12, 0x8B44F7AF);
-      c = ff(c, d, a, b, buffer[i+10], 17, 0xFFFF5BB1);
-      b = ff(b, c, d, a, buffer[i+11], 22, 0x895CD7BE);
-      a = ff(a, b, c, d, buffer[i+12], 7, 0x6B901122);
-      d = ff(d, a, b, c, buffer[i+13], 12, 0xFD987193);
-      c = ff(c, d, a, b, buffer[i+14], 17, 0xA679438E);
-      b = ff(b, c, d, a, buffer[i+15], 22, 0x49B40821);
-      a = gg(a, b, c, d, buffer[i+ 1], 5, 0xF61E2562);
-      d = gg(d, a, b, c, buffer[i+ 6], 9, 0xC040B340);
-      c = gg(c, d, a, b, buffer[i+11], 14, 0x265E5A51);
-      b = gg(b, c, d, a, buffer[i+ 0], 20, 0xE9B6C7AA);
-      a = gg(a, b, c, d, buffer[i+ 5], 5, 0xD62F105D);
-      d = gg(d, a, b, c, buffer[i+10], 9, 0x02441453);
-      c = gg(c, d, a, b, buffer[i+15], 14, 0xD8A1E681);
-      b = gg(b, c, d, a, buffer[i+ 4], 20, 0xE7D3FBC8);
-      a = gg(a, b, c, d, buffer[i+ 9], 5, 0x21E1CDE6);
-      d = gg(d, a, b, c, buffer[i+14], 9, 0xC33707D6);
-      c = gg(c, d, a, b, buffer[i+ 3], 14, 0xF4D50D87);
-      b = gg(b, c, d, a, buffer[i+ 8], 20, 0x455A14ED);
-      a = gg(a, b, c, d, buffer[i+13], 5, 0xA9E3E905);
-      d = gg(d, a, b, c, buffer[i+ 2], 9, 0xFCEFA3F8);
-      c = gg(c, d, a, b, buffer[i+ 7], 14, 0x676F02D9);
-      b = gg(b, c, d, a, buffer[i+12], 20, 0x8D2A4C8A);
-      a = hh(a, b, c, d, buffer[i+ 5], 4, 0xFFFA3942);
-      d = hh(d, a, b, c, buffer[i+ 8], 11, 0x8771F681);
-      c = hh(c, d, a, b, buffer[i+11], 16, 0x6D9D6122);
-      b = hh(b, c, d, a, buffer[i+14], 23, 0xFDE5380C);
-      a = hh(a, b, c, d, buffer[i+ 1], 4, 0xA4BEEA44);
-      d = hh(d, a, b, c, buffer[i+ 4], 11, 0x4BDECFA9);
-      c = hh(c, d, a, b, buffer[i+ 7], 16, 0xF6BB4B60);
-      b = hh(b, c, d, a, buffer[i+10], 23, 0xBEBFBC70);
-      a = hh(a, b, c, d, buffer[i+13], 4, 0x289B7EC6);
-      d = hh(d, a, b, c, buffer[i+ 0], 11, 0xEAA127FA);
-      c = hh(c, d, a, b, buffer[i+ 3], 16, 0xD4EF3085);
-      b = hh(b, c, d, a, buffer[i+ 6], 23, 0x04881D05);
-      a = hh(a, b, c, d, buffer[i+ 9], 4, 0xD9D4D039);
-      d = hh(d, a, b, c, buffer[i+12], 11, 0xE6DB99E5);
-      c = hh(c, d, a, b, buffer[i+15], 16, 0x1FA27CF8);
-      b = hh(b, c, d, a, buffer[i+ 2], 23, 0xC4AC5665);
-      a = ii(a, b, c, d, buffer[i+ 0], 6, 0xF4292244);
-      d = ii(d, a, b, c, buffer[i+ 7], 10, 0x432AFF97);
-      c = ii(c, d, a, b, buffer[i+14], 15, 0xAB9423A7);
-      b = ii(b, c, d, a, buffer[i+ 5], 21, 0xFC93A039);
-      a = ii(a, b, c, d, buffer[i+12], 6, 0x655B59C3);
-      d = ii(d, a, b, c, buffer[i+ 3], 10, 0x8F0CCC92);
-      c = ii(c, d, a, b, buffer[i+10], 15, 0xFFEFF47D);
-      b = ii(b, c, d, a, buffer[i+ 1], 21, 0x85845DD1);
-      a = ii(a, b, c, d, buffer[i+ 8], 6, 0x6FA87E4F);
-      d = ii(d, a, b, c, buffer[i+15], 10, 0xFE2CE6E0);
-      c = ii(c, d, a, b, buffer[i+ 6], 15, 0xA3014314);
-      b = ii(b, c, d, a, buffer[i+13], 21, 0x4E0811A1);
-      a = ii(a, b, c, d, buffer[i+ 4], 6, 0xF7537E82);
-      d = ii(d, a, b, c, buffer[i+11], 10, 0xBD3AF235);
-      c = ii(c, d, a, b, buffer[i+ 2], 15, 0x2AD7D2BB);
-      b = ii(b, c, d, a, buffer[i+ 9], 21, 0xEB86D391);
-      w[0] = add(a, w[0]);
-      w[1] = add(b, w[1]);
-      w[2] = add(c, w[2]);
-      w[3] = add(d, w[3]);
-    }
-    var t = [];
-    for (var i = 0; i < 4; i++)
-      for (var j = 0; j < 4; j++)
-        t[i * 4 + j] = (w[i] >> (8 * j)) & 0xFF;
-    return t;
-  }
-  return function (s, ofs, len) {
-    var buf = [];
-    if (s.array) {
-      var a = s.array;
-      for (var i = 0; i < len; i+=4) {
-        var j = i + ofs;
-        buf[i>>2] = a[j] | (a[j+1] << 8) | (a[j+2] << 16) | (a[j+3] << 24);
-      }
-      for (; i < len; i++) buf[i>>2] |= a[i + ofs] << (8 * (i & 3));
-    } else {
-      var b = s.getFullBytes();
-      for (var i = 0; i < len; i+=4) {
-        var j = i + ofs;
-        buf[i>>2] =
-          b.charCodeAt(j) | (b.charCodeAt(j+1) << 8) |
-          (b.charCodeAt(j+2) << 16) | (b.charCodeAt(j+3) << 24);
-      }
-      for (; i < len; i++) buf[i>>2] |= b.charCodeAt(i + ofs) << (8 * (i & 3));
-    }
-    return new MlStringFromArray(md5(buf, len));
-  }
-} ();
-function caml_ml_flush () { return 0; }
-function caml_ml_open_descriptor_out () { return 0; }
-function caml_ml_out_channels_list () { return 0; }
-function caml_ml_output () { return 0; }
-function caml_mod(x,y) {
-  if (y == 0) caml_raise_zero_divide ();
-  return x%y;
-}
-function caml_mul(x,y) {
-  return ((((x >> 16) * y) << 16) + (x & 0xffff) * y)|0;
-}
-function caml_notequal (x, y) { return +(caml_compare_val(x,y,false) != 0); }
-function caml_obj_block (tag, size) {
-  var o = [tag];
-  for (var i = 1; i <= size; i++) o[i] = 0;
-  return o;
-}
-function caml_obj_set_tag (x, tag) { x[0] = tag; return 0; }
-function caml_obj_tag (x) { return (x instanceof Array)?x[0]:1000; }
-function caml_register_global (n, v) { caml_global_data[n + 1] = v; }
-var caml_named_values = {};
-function caml_register_named_value(nm,v) {
-  caml_named_values[nm] = v; return 0;
-}
-function caml_string_compare(s1, s2) { return s1.compare(s2); }
-function caml_string_equal(s1, s2) {
-  var b1 = s1.fullBytes;
-  var b2 = s2.fullBytes;
-  if (b1 != null && b2 != null) return (b1 == b2)?1:0;
-  return (s1.getFullBytes () == s2.getFullBytes ())?1:0;
-}
-function caml_string_notequal(s1, s2) { return 1-caml_string_equal(s1, s2); }
-function caml_sys_get_config () {
-  return [0, new MlWrappedString("Unix"), 32];
-}
-function caml_sys_random_seed () {
-  return new Date()^0xffffffff*Math.random();
-}
-function caml_update_dummy (x, y) {
-  if( typeof y==="function" ) { x.fun = y; return 0; }
-  if( y.fun ) { x.fun = y.fun; return 0; }
-  var i = y.length; while (i--) x[i] = y[i]; return 0;
-}

@@ Diff output truncated at 100000 characters. @@
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.





2010	Jan	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov (25)	Dec (62)
2011	Jan (26)	Feb (38)	Mar (67)	Apr (22)	May (41)	Jun (30)	Jul (24)	Aug (32)	Sep (29)	Oct (34)	Nov (18)	Dec (2)
2012	Jan (19)	Feb (25)	Mar (16)	Apr (2)	May (18)	Jun (21)	Jul (11)	Aug	Sep	Oct	Nov	Dec

toss-devel-svn Mailing List for Toss (Page 4)

toss-devel-svn — Toss development: svn commits