// JavaScript Document

function serialize( mixed_value ) {
    // http://kevin.vanzonneveld.net
    // +   original by: Arpad Ray (mailto:arpad@php.net)
    // +   improved by: Dino
    // +   bugfixed by: Andrej Pavlovic
    // +   bugfixed by: Garagoth
    // %          note: We feel the main purpose of this function should be to ease the transport of data between php & js
    // %          note: Aiming for PHP-compatibility, we have to translate objects to arrays
    // *     example 1: serialize(['Kevin', 'van', 'Zonneveld']);
    // *     returns 1: 'a:3:{i:0;s:5:"Kevin";i:1;s:3:"van";i:2;s:9:"Zonneveld";}'
    // *     example 2: serialize({firstName: 'Kevin', midName: 'van', surName: 'Zonneveld'});
    // *     returns 2: 'a:3:{s:9:"firstName";s:5:"Kevin";s:7:"midName";s:3:"van";s:7:"surName";s:9:"Zonneveld";}'
 
    var _getType = function( inp ) {
        var type = typeof inp, match;
        var key;
        if (type == 'object' && !inp) {
            return 'null';
        }
        if (type == "object") {
            if (!inp.constructor) {
                return 'object';
            }
            var cons = inp.constructor.toString();
            if (match = cons.match(/(\w+)\(/)) {
                cons = match[1].toLowerCase();
            }
            var types = ["boolean", "number", "string", "array"];
            for (key in types) {
                if (cons == types[key]) {
                    type = types[key];
                    break;
                }
            }
        }
        return type;
    };
    var type = _getType(mixed_value);
    var val, ktype = '';
    
    switch (type) {
        case "function": 
            val = ""; 
            break;
        case "undefined":
            val = "N";
            break;
        case "boolean":
            val = "b:" + (mixed_value ? "1" : "0");
            break;
        case "number":
            val = (Math.round(mixed_value) == mixed_value ? "i" : "d") + ":" + mixed_value;
            break;
        case "string":
            val = "s:" + mixed_value.length + ":\"" + mixed_value + "\"";
            break;
        case "array":
        case "object":
            val = "a";
            /*
            if (type == "object") {
                var objname = mixed_value.constructor.toString().match(/(\w+)\(\)/);
                if (objname == undefined) {
                    return;
                }
                objname[1] = serialize(objname[1]);
                val = "O" + objname[1].substring(1, objname[1].length - 1);
            }
            */
            var count = 0;
            var vals = "";
            var okey;
            var key;
            for (key in mixed_value) {
                ktype = _getType(mixed_value[key]);
                if (ktype == "function") { 
                    continue; 
                }
                
                okey = (key.match(/^[0-9]+$/) ? parseInt(key) : key);
                vals += serialize(okey) +
                        serialize(mixed_value[key]);
                count++;
            }
            val += ":" + count + ":{" + vals + "}";
            break;
    }
    if (type != "object" && type != "array") val += ";";
    return val;
}


function unserialize(data){
  function error(type, msg, filename, line){throw new window[type](msg, filename, line);}
  function read_until(data, offset, stopchar){
    var buf = [];
    var char = data.slice(offset, offset + 1);
    var i = 2;
    while(char != stopchar){
      if((i+offset) > data.length){
        error('Error', 'Invalid');
      }
      buf.push(char);
      char = data.slice(offset + (i - 1),offset + i);
      i += 1;
    }
    return [buf.length, buf.join('')];
  };
  function read_chars(data, offset, length){
    buf = [];
    for(var i = 0;i < length;i++){
      var char = data.slice(offset + (i - 1),offset + i);
      buf.push(char);
    }
    return [buf.length, buf.join('')];
  };
  function _unserialize(data, offset){
    if(!offset) offset = 0;
    var buf = [];
    var dtype = (data.slice(offset, offset + 1)).toLowerCase();
    
    var dataoffset = offset + 2;
    var typeconvert = new Function('x', 'return x');
    var chars = 0;
    var datalength = 0;
    
    switch(dtype){
      case "i":
        typeconvert = new Function('x', 'return parseInt(x)');
        var readData = read_until(data, dataoffset, ';');
        var chars = readData[0];
        var readdata = readData[1];
        dataoffset += chars + 1;
      break;
      case "b":
        typeconvert = new Function('x', 'return (parseInt(x) == 1)');
        var readData = read_until(data, dataoffset, ';');
        var chars = readData[0];
        var readdata = readData[1];
        dataoffset += chars + 1;
      break;
      case "d":
        typeconvert = new Function('x', 'return parseFloat(x)');
        var readData = read_until(data, dataoffset, ';');
        var chars = readData[0];
        var readdata = readData[1];
        dataoffset += chars + 1;
      break;
      case "n":
        readdata = null;
      break;
      case "s":
        var ccount = read_until(data, dataoffset, ':');
        var chars = ccount[0];
        var stringlength = ccount[1];
        dataoffset += chars + 2;
        
        var readData = read_chars(data, dataoffset+1, parseInt(stringlength));
        var chars = readData[0];
        var readdata = readData[1];
        dataoffset += chars + 2;
        if(chars != parseInt(stringlength) && chars != readdata.length){
          error('SyntaxError', 'String length mismatch');
        }
      break;
      case "a":
        var readdata = {};
        
        var keyandchars = read_until(data, dataoffset, ':');
        var chars = keyandchars[0];
        var keys = keyandchars[1];
        dataoffset += chars + 2;
        
        for(var i = 0;i < parseInt(keys);i++){
          var kprops = _unserialize(data, dataoffset);
          var kchars = kprops[1];
          var key = kprops[2];
          dataoffset += kchars;
          
          var vprops = _unserialize(data, dataoffset);
          var vchars = vprops[1];
          var value = vprops[2];
          dataoffset += vchars;
          
          readdata[key] = value;
        }
        
        dataoffset += 1;
      break;
      default:
        error('SyntaxError', 'Unknown / Unhandled data type(s): ' + dtype);
      break;
    }
    return [dtype, dataoffset - offset, typeconvert(readdata)];
  };
  return _unserialize(data, 0)[2];
}