// -*- Mode: JavaScript; tab-width: 4; -*-
// ======================
// = Javascript Library =
// ======================
// Based on MooTools 1.3pA
var UID = (function(){
	
	var index = 0, table = {}, primitives = {};
	
	return {
		
		uidOf: function(item){
			item = valueOf(item);
			if (!(item instanceof Object)) item = primitives[item] || (primitives[item] = {valueOf: item});
			var uid = (item.uid || (item.uid = (index++).toString(16)));
			if (table[uid] == null) table[uid] = item;
			return uid;
		},
		
		itemOf: function(uid){
			return valueOf(table[uid] || null);
		}
		
	};
	
})();
function valueOf(item){
	return (item != null && item.valueOf) ? item.valueOf() : null;
};
Object.each = function(object, fn, self){
	for (var property in object) {
		fn.call(self||object[property], object[property], property, object);
	}
};

Array.each = function(array, fn, self){
	for (var i=0; i < array.length; i++) {
		fn.call(self||array[i], array[i], i, array);
	}
};

Object.merge = function(){
	var mix = {};
	for (var i = 0, l = arguments.length; i < l; i++){
		var object = arguments[i];
		if (Object.type(object) != 'object') continue;
		for (var key in object){
			var op = object[key], mp = mix[key];
			mix[key] = (mp && Object.type(op) == 'object' && Object.type(mp) == 'object') ? Object.merge(mp, op) : $unlink(op);
		}
	}
	return mix;
};
toString = {}.toString;
Object.type = function(obj){
	var undefined
	if (obj != obj) return 'NaN';
	if (obj === undefined) return 'undefined';
	if (obj === null) return 'null';
	if (obj === true) return 'true';
	if (obj === false) return 'false';
	if (obj instanceof Array) return 'array';
	if (obj instanceof Date) return 'date';
	if (obj instanceof RegExp) return 'regexp';
	if (toString.call(obj) === '[object MediaList]') return 'object';
	if (toString.call(obj) === '[object CSSRuleList]') return 'object';
	if (toString.call(obj) === '[object CSSStyleDeclaration]') return 'style';
	if (toString.call(obj) === '[object Array]') return 'array';
	if (toString.call(obj) === '[object Date]') return 'date';
	if (obj.nodeName){
		switch (obj.nodeType){
		case 1: return 'element';
		case 3: return (/\S/).test(obj.nodeValue) ? 'textnode' : 'whitespace';
		}
	} else if (typeof obj.length == 'number'){
		if (obj.callee) return 'arguments';
		else if (obj.item) return 'collection';
	}
	return typeof obj;
};
function $pick(){
	for (var i = 0, l = arguments.length; i < l; i++){
		if (arguments[i] != undefined) return arguments[i];
	}
	return null;
};
function $unlink(object){
	var unlinked;
	switch (Object.type(object)){
		case 'object':
			unlinked = {};
			for (var p in object) unlinked[p] = $unlink(object[p]);
		break;
		case 'array':
			unlinked = [];
			for (var i = 0, l = object.length; i < l; i++) unlinked[i] = $unlink(object[i]);
		break;
		default: return object;
	}
	return unlinked;
};
function $splat(obj){
	var type = Object.type(obj);
	return (type) ? ((type != 'array' && type != 'arguments') ? [obj] : obj) : [];
};

Array.indexOf = function(array, item, from){
	var len = array.length;
	for (var i = (from < 0) ? Math.max(0, len + from) : from || 0; i < len; i++){
		if (array[i] === item) return i;
	}
	return -1;
};

var Events = {
	
	addEvents: function(eventsObject){
		if (!eventsObject) return this;
		for (var name in eventsObject) {
			this.addEvent(name, eventsObject[name]);
		}
		return this;
	},
	
	addEvent: function(name, method){
		// console.log('< addEvent: '+name, {_this:this, name:name, method:method}); 
try{
		if (this.events && this.events[name] && this.events[name]['static']) method.apply(this, this.events[name]['static'].args);
		if (!this.events) this.events = {};
		if (!this.events[name]) this.events[name] = [];
		// this.events[name].include(method);
		if (!Array.indexOf(this.events[name], method) != -1) this.events[name].push(method);
}catch(e){
	// setTimeout(function(){
	// 	throw(e);
	// }, 100);
};
		
		return this;
	},
	
	removeEvent: function(name, method){
		// if (!this.events || !this.events[name]) return this;
		// this.events[name].erase(method);
		for (var i = this.events[name].length; i--; i){
			if (this.events[name][i] === method) this.events[name].splice(i, 1);
		}
		return this;
	},
	
	fireEvent: function(name, args){
		// console.log('> fireEvent: '+name, {_this:this, name:name, args:args}); 
		if (!this.events || !this.events[name]) return this;
		args = $splat(args);
		for (var i=0, fn; fn = this.events[name][i]; i++){
			fn.apply(this, args);
		}
		return this;
	},
	
	fireEventStatic: function(name, args){
		this.events = this.events || {};
		this.events[name] = this.events[name] || [];
		this.events[name]['static'] = {name:name, args:args};
		return this.fireEvent(name, args);
	}
	
};

// Custom
Object.fromQueryString = function(queryString){
	queryString = String(queryString);
	if (!queryString) return {};
	queryString = queryString.split('?');
	if (queryString.length > 1) queryString = queryString.slice(1);
	queryString = queryString.join('?');
	var object = {};
	var vars = queryString.split('&');
	if (vars.length) for (var i=0, this_var; this_var = vars[i]; i++){
		this_var = this_var.split('=');
		var key = decodeURIComponent(this_var[0]);
		var val = decodeURIComponent(this_var.slice(1).join('=').replace(/\+/g, ' '));
		
		if (object[key] != undefined){
			if (!object[key].push) object[key] = [object[key]];
			object[key].push(val);
		}else{
			object[key] = val;
		}
	}
	return object;
};
Object.toQueryString = function(object){
	var queryString = [];
	for (var key in object) {
		// try{/* console.log( "key: "+key ); */}catch(e){};
		var value = object[key];
		// try{/* console.log( "value: "+String(value)+Object.type(value) ); */}catch(e){};
		var result;
		switch (Object.type(value)){
			case 'object': result = Object.toQueryString(value, key); break;
			case 'array':
				result = [];
				for (var i=0, val; val = value[i]; i++){
					var o = {};
					o[key]=val;
					result.push(Object.toQueryString(o));
				}
				// try{/* console.log( "result: "+String(result) ); */}catch(e){};
				result = result.join('&');
			break;
			default: result = key + '=' + encodeURIComponent(value||'');
		}
		// try{/* console.log( "result: "+String(result) ); */}catch(e){};
		if (result) queryString.push(result);
	}
	// try{/* console.log( "queryString: "+String(queryString) ); */}catch(e){};
	return queryString.join('&');
};
Object.toArray=function(object){
	var arr = [];
	for (var property in object) {
		arr.push(property);
		arr.push(object[property]);
	}
	return arr;
};
Object.fromKeyValue = function(key, value){
	key = (''+key).split('.');
	var obj={};
	var object = obj;
	for (var i=0; i < key.length; i++) {
		obj = (obj[key[i]] = key[i+1] ? {} : value);
	}
	return object;
};

Object.toXMLSimple=function(object, tagName){
	var xml = [];
	switch (Object.type(object)){
	case 'object':
		if (tagName) { xml.push('<'); xml.push(tagName); xml.push('>'); }
		for (var property in object) {
			var o = object[property];
			if (property.indexOf(':')+1){
				o = Object.fromKeyValue(property, object[property]);
				object[property] = o;
				property=null;
			}
			
			xml.push(Object.toXMLSimple( o, property ));
		}
		if (tagName) { xml.push('</'); xml.push(tagName); xml.push('>'); }
		break;
	case 'array':
		for (var i=0; i < object.length; i++) {
			xml.push(Object.toXMLSimple( object[i], tagName ));
		}
		break;
	default:
		if (tagName) { xml.push('<'); xml.push(tagName); xml.push('>'); }
		object = String(object);
		if (/[<]/.test(object)){
			xml.push('<![CDATA[');
			object+=']]>';
		}
		xml.push(object);
		if (tagName) { xml.push('</'); xml.push(tagName); xml.push('>'); }
	}
	return xml.join('');
};
/* console.log( Object.toXMLSimple({1:1,2:2,3:{val:[1,2,3]},html:'<b>bold! & stuff</b>'}, 'settings') ); */
/* console.log( Object.toXMLSimple(Object.merge(Object.fromQueryString('plot_area:margins:left=123'),Object.fromQueryString('plot_area:background:alpha=100')), 'settings') ); */
// 
// document.write(pp(Object.fromKeyValue('plot_area:margins:left', 500)));
// document.write(pp(Object.fromKeyValue('left', 500)));

String.escapeHTML=function(html){
	return (''+html)//.replace(/&/g,'&amp;').replace(/</g,'&lt;')
};
String.escapeSingle=function(str){
	return (''+str).replace(/(?=['\\])/g,'\\');
};
String.escapeDouble=function(str){
	return (''+str).replace(/(?=["\\])/g,'\\');
};
String.camelCase = (function(){
	// From MooTools (modified)
	function upCaseChar(match){
		return match.charAt(1).toUpperCase();
	}
	return function(string){
		return ('' + string).replace(/-\D/g, upCaseChar);
	}
}());

var hasOwnProperty = {}.hasOwnProperty;
var ppd = {}
function pp(object, depth){
	if (!depth) depth = 0
	// if (depth > 4) return "BLARGH"
	
	// stop recursion
	var uid = UID.uidOf(object)
	
	var h = '', className = ''
	switch (Object.type(object)){
	// case 'collection':
	// 	var tmp = {}
	// 	for (var property in object){
	// 		if (!hasOwnProperty.call(object, property)) continue;
	// 		tmp[property] = String(object[property])
	// 	}
	// 	object = tmp
		// break;
	case 'style':
		className += ' style'
	case 'object':
		className += ' object'
		if (ppd[uid]) return '<a href="#pp-'+uid+'">Reused Object</a>'
		ppd[uid] = true
		var keys = {uid:true}
		h += '<table id="pp-'+uid+'" class="'+className+'"><tr><th>key</th><th>value</th></tr>';
		for (var key in object) {
			if (!hasOwnProperty.call(object, key)) continue;
			if (keys[key]) continue;
			var value = object[key];
			h += '<tr><th> '+key+' </th><td> '+pp(value, depth + 1)+' </td></tr>';
			keys[key] = true;
			if (key == (+key)){
				if (object[value] && !keys[value]){
					h += '<tr><th> '+value+' </th><td> '+pp(object[value], depth + 1)+' </td></tr>';
					keys[value] = true
				}
				var valCamelCase = String.camelCase(value)
				if (valCamelCase != value && object[valCamelCase] && !keys[valCamelCase]){
					h += '<tr><th> '+valCamelCase+' </th><td> '+pp(object[valCamelCase], depth + 1)+' </td></tr>';
					keys[valCamelCase] = true
				}
			}
		}
		h += '</table>';
		return h;
		
		break;
	case 'array':
		if (ppd[uid]) return "Dupicate Object"
		ppd[uid] = true
		h += '<ol id="pp-'+uid+'" class="array" start="0">';
		for (var key=0; key < object.length; key++) {
			var value = object[key];
			h += '<li>'+pp(value, depth + 1)+'</li>';
		}
		h += '</ol>';
		return h;
		
		break;
	case false: return 'false'; break;
	case 'string':
		return '<span class="string">'+String.escapeHTML(object).replace(/^(http.*)$/,'<a href="$1">$1</a>')+'</span>';
		break;
	case 'number':  return '<span class="number">'  + String.escapeHTML(object)+'</span>'; break;
	case 'boolean': return '<span class="boolean">' + String.escapeHTML(object)+'</span>'; break;
	case 'date':    return '<span class="date">'    + String.escapeHTML(object)+'</span>'; break;
	case 'regexp':  return '<span class="regexp">'  + String.escapeHTML(object)+'</span>'; break;
	case 'function':return '<code class="function">'+ String.escapeHTML(object)+'</code>'; break;
	default: return '<span>'                        + String.escapeHTML(object)+'</span>';
	}
	
	if (!depth) ppd = {}
};

// Basic dom events
SubtleEventsJr = {
	add: function(element, eventType, fn){
		/* console.log('<<< SubtleEventsJr.add', eventType); */
		if (element.addEventListener) element.addEventListener(eventType, fn, false);
		else element.attachEvent('on' + eventType, fn);
	},
	remove: function(element, eventType, fn) {
		/* console.log('>>> SubtleEventsJr.remove', eventType); */
		if (element.removeEventListener) element.removeEventListener(eventType, fn, false);
		else element.detachEvent('on' + eventType, fn);
	}
};


// Basic multi function onload runner
WindowEvents = function(){};
WindowEvents.prototype = Events;
WindowEvents = new WindowEvents();
window.onload = function(){
	WindowEvents.fireEventStatic('load');
};

Array.makeSortByKey = function makeSortByKey(key){
	return Array.makeSortByKey.cache[key]
		||(Array.makeSortByKey.cache[key] = function sortBy(a,b){
			if (a[key] == b[key]) return 0;
			return (a[key] > b[key]) ? -1 : 1;
		});
};
Array.makeSortByKey.cache = {};
Array.numberSorter = function(a,b){ return a - b; };

Number.setCompare = function(key, id, value){
	value = value-0;
	Number.getCompare.comparisons = Number.getCompare.comparisons || {};
	var c = Number.getCompare.comparisons[key] = Number.getCompare.comparisons[key] || {_values:{}, values:[]};
	
	c._values[id] = value;
	c.values = [];
	
	for (var id in c._values) {
		c.values.push(c._values[id]);
	}
	c.values.sort(Array.numberSorter);
	return Number.getCompare(key, value);
};
Number.getCompare = function(key, value){
	value = value-0;
	Number.getCompare.comparisons = Number.getCompare.comparisons || {};
	var c = Number.getCompare.comparisons[key] = Number.getCompare.comparisons[key] || {_values:{}, values:[]};
	
	c.min = c.values[0];
	c.max = c.values[c.values.length-1];
	c.sum = 0;
	for (var i = c.values.length - 1; i >= 0; i--){
		c.sum += c.values[i];
	}
	c.count = c.values.length;
	c.avg = c.sum / c.count;
	
	c.percent = {};
	c.percent.max = value / c.max;
	c.percent.min = value / c.min;
	c.percent.avg = value / c.avg;
	
	return c;
};

// document.write( pp(Number.setCompare('fred',1)) );
// document.write( pp(Number.setCompare('fred',1000)) );
// document.write( pp(Number.setCompare('fred',50)) );
// document.write( pp(Number.setCompare('fred',500)) );


// var o =Object.fromQueryString('http://home.subtlegradient.com:4002/selectors.html?exclude=jQuery+1.2.6&exclude=jQuery+1.3.2&exclude=Dojo+1.3&exclude=Prototype+1.6.0.3&exclude=MooTools+1.2.1&exclude=Slick+%28pre-alpha%29');
// document.write(pp(o));