/*
import List
import Maybe
import JavaScript
import Dict
import JSON
*/

(function(){
  'use strict';

  var eq = function(x,y) {
    if (typeof x === "object") {
	if (x !== null && '_' in x) {
	    for (var i in x) { if (x[i] != y[i]) return false; }
	    for (var i in y) { if (!(i in x)) return false; }
	    return true;
	}
	if (x === y) return true;
	if (x.length !== y.length) return false;
	for (var i = x.length; i--; ) {
	    if (!eq(x[i],y[i])) return false;
	}
	return true;
    }
    return x === y;
  };

  var Tuple0 = { ctor: "Tuple0" }
  function Tuple2(x,y) { return { ctor = "Tuple2", _0:x, _1:y }; }

  function makeSpaces(s) {
    if (s.length == 0) { return s; }
    var arr = s.split('');
    if (arr[0] == ' ') { arr[0] = " " }      
    for (var i = arr.length; --i; ) {
      if (arr[i][0] == ' ' && arr[i-1] == ' ') {
        arr[i-1] = arr[i-1] + arr[i];
        arr[i] = '';
      }
    }
    for (var i = arr.length; i--; ) {
      if (arr[i].length > 1 && arr[i][0] == ' ') {
        var spaces = arr[i].split('');
        for (var j = spaces.length - 2; j >= 0; j -= 2) {
          spaces[j] = ' ';
        }
        arr[i] = spaces.join('');
      }
    }
    arr = arr.join('');
    if (arr[arr.length-1] === " ") {
	return arr.slice(0,-1) + ' ';
    }
    return arr;
  }

  function properEscape(str) {
    if (str.length == 0) return str;
    str = str //.replace(/&/g,  "&")
             .replace(/"/g, /*"*/  """)
             .replace(/'/g, /*'*/  "'")
             .replace(/</g,  "&#60;")
             .replace(/>/g,  "&#62;")
             .replace(/\n/g, "<br/>");
    var arr = str.split('<br/>');
    for (var i = arr.length; i--; ) {
	arr[i] = makeSpaces(arr[i]);
    }
    return arr.join('<br/>');
  }

  var toText = function(elmList) {
    if (typeof elmList === "string") return properEscape(elmList);
    var a = [];
    while (elmList.ctor === "Cons") {
      a.push(elmList._0);
      elmList = elmList._1;
    }
    return properEscape(a.join(''));
  };

  function getTextSize(w,h,txt) {
    var t = document.createElement('div');
    t.innerHTML = txt;
    t.style.textAlign = 'left';
    if (w > 0) { t.style.width  = w + "px"; }
    
    t.style.visibility = "hidden";
    t.style.styleFloat = "left";
    t.style.cssFloat   = "left";
    
    document.body.appendChild(t);
    var cStyle = window.getComputedStyle(t,null);
    var realW = cStyle.getPropertyValue("width").slice(0,-2) - 0;
    var realH = cStyle.getPropertyValue("height").slice(0,-2) - 0;
    document.body.removeChild(t);
    //delete t;
    return [Math.ceil(realW),Math.ceil(Math.max(h,realH))];
  }

  function getSize(e) {
    var t = e.cloneNode(true);
    
    t.style.visibility = "hidden";
    t.style.styleFloat = "left";
    t.style.cssFloat   = "left";
    
    document.body.appendChild(t);
    var w = t.offsetWidth;
    var h = t.offsetHeight;
    document.body.removeChild(t);
    //delete t;
    return [w,h];
  }

  function getExcess(e) {
    var t = e.cloneNode(true);
    
    t.style.visibility = "hidden";
    t.style.styleFloat = "left";
    t.style.cssFloat   = "left";
    
    document.body.appendChild(t);
    var ow = t.offsetWidth;
    var oh = t.offsetHeight;
    var cStyle = window.getComputedStyle(t,null);
    var w = cStyle.getPropertyValue("width").slice(0,-2) - 0;
    var h = cStyle.getPropertyValue("height").slice(0,-2) - 0;
    document.body.removeChild(t);
    //delete t;
    return [ow-w,oh-h];
  }


  function groupForms(forms) {
    forms = Elm.JavaScript.castListToJSArray(forms);
    var groups = [];
    var arr = [];
    for (var i = forms.length; i--; ) {
	var f = forms[i];
	switch(f._3.ctor) {
	case "FElement":
	    if (arr.length > 0) {
		groups.push(arr);
		arr = [];
	    }
	    groups.push(f);
	    break;
	default:
	    arr.push(f);
	}
    }
    if (arr.length > 0) groups.push(arr);
    return groups;
  }

  var toString = function(v) {
    if (typeof v === "function") {
	return "<function>";
    } else if (typeof v === "boolean") {
	return v ? "True" : "False";
    } else if (typeof v === "number") {
	return v+"";
    } else if (typeof v === "string" && v.length < 2) {
	return "'"+v+"'";
    } else if (typeof v === "object" && ('_' in v)) {
	var output = [];
	for (var k in v._) {
	  console.log(k,v._[k]);
          for (var i = v._[k].length; i--; ) {
            output.push(k + " = " + toString(v._[k][i]));
	  }
	}
	for (var k in v) {
          if (k === '_') continue;
	  output.push(k + " = " + toString(v[k]));
	}
	if (output.length === 0) return "{}";
	return "{ " + output.join(", ") + " }";
    } else if ('ctor' in v) {
	if (v.ctor.substring(0,5) === "Tuple") {
	    var output = new Array(v.length-1);
	    for (var i = v.length; --i; ) { output[i-1] = toString(v[i]); }
	    return "(" + output.join(",") + ")";
	} else if (v.ctor === "Cons") {
	    var isStr = typeof v._0 === "string";
	    var start = isStr ? '"' : "[";
	    var  end  = isStr ? '"' : "]";
	    var  sep  = isStr ?  "" : ",";
	    var   f   = isStr ? function(x){return x} : toString;
	    var output = start + f(v._0);
	    v = v._1;
	    while (v.ctor === "Cons") {
		output += sep + f(v._0);
		v = v._1;
	    }
	    return output + end;
	} else if (v.ctor === "Nil") {
	    return "[]";
	} else if (v.ctor === "JSON") {
	    return "(JSON.fromList " + toString(Elm.JSON.toList(v)) + ")";
	} else if (v.ctor === "RBNode" || v.ctor === "RBEmpty") {
	    function cons(k){ return function(v) { return function(acc) { return Elm.Native.List.Cons(Tuple2(k,v),acc); }; }; }
	    var list = Elm.Dict.foldr(cons)(Elm.Native.List.Nil)(v);
	    var name = "Dict";
	    if (list.ctor === "Cons" && list._0._1.ctor === "Tuple0") {
		name = "Set";
		list = Elm.List.map(function(x) { return x._0; })(list);
	    }
	    return "(" + name + ".fromList " + toString(list) + ")";
	} else {
	    var output = "";
	    for (var i = v.length; --i; ) { output = ' ' + toString(v[i]) + output; }
	    output = v.ctor + output;
	    return (v.length > 1) ? "(" + output + ")" : output;
	}
    }
    return v+"";
  };
  var show = function(v) { return str(toString(v)); };
  var append = function(xs,ys) {
    if (typeof xs === "string" && typeof ys === "string") {
	return xs.concat(ys);
    }
    if (xs.ctor === "Nil") {
	return ys;
    }
    var root = Elm.Native.List.Cons(xs._0. Elm.Native.List.Nil);
    var curr = root;
    xs = xs._1;
    while (xs.ctor==="Cons") {
	curr._1 = Elm.Native.List.Cons(xs._0. Elm.Native.List.Nil);
	xs = xs._1;
	curr = curr._1;
    }
    curr._1 = ys;
    return root;
  };

  var str = function(s) {
    var out = Elm.Native.List.Nil;
    for (var i = s.length; i--; ) {
	out = Elm.Native.List.Cons(s[i], out);
    }
    return out;
  };
  
  function wrap(elem) {
      var p = Value.getSize(elem);
      return ['Element', Guid.guid(), ["EHtml",elem],
	      p.ctor, p._0, 1, Elm.Maybe.Nothing, Elm.Maybe.Nothing];
  }
  var addListener = function() {
      if(document.addEventListener) {
	  return function(element, event, handler) {
	      element.addEventListener(event, handler, false);
	  };
      } else {
	  return function(element, event, handler) {
	      element.attachEvent('on' + event, handler);
	  };
      }
  }();

  Elm.Native.Misc = {
      eq:eq,
      str:str,
      show:show,
      Tuple:Tuple,
      append:append,
      listToArray:listToArray,
      toText : toText,
      properEscape : properEscape,
      getTextSize : getTextSize,
      getSize : getSize,
      getExcess : getExcess,
      groupForms : groupForms,
      wrap : wrap,
      addListener : addListener
  };
}());