/*
 * history API JavaScript Library v3.2.1
 *
 * Support: IE8+, FF3+, Opera 9+, Safari, Chrome
 *
 * Copyright 2011-2012, Dmitriy Pakhtinov ( spb.piksel@gmail.com )
 *
 * http://spb-piksel.ru/
 *
 * Dual licensed under the MIT and GPL licenses:
 *   http://www.opensource.org/licenses/mit-license.php
 *   http://www.gnu.org/licenses/gpl.html
 *
 * Update: 17-11-2012
 */

(function( window, True, False, Null, undefined ) {

	"use strict";

	var
		// Symlink for document
		document = window.document,
		// HTML tag
		documentElement = document.documentElement,
		// preserve original object of History
		windowHistory = window.history || {},
		// obtain a reference to the Location object
		windowLocation = window.location,
		// Check support HTML5 History API
		api = !!windowHistory.pushState,
		// If the first event is triggered when the page loads
		// This behavior is obvious for Chrome and Safari
		initialState = api && windowHistory.state === undefined,
		initialFire = windowLocation.href,
		// Just a reference to the methods
		JSON = window.JSON || {},
		defineProp = Object.defineProperty,
		defineGetter = Object.prototype.__defineGetter__,
		defineSetter = Object.prototype.__defineSetter__,
		historyPushState = windowHistory.pushState,
		historyReplaceState = windowHistory.replaceState,
		sessionStorage = window.sessionStorage,
		hasOwnProperty = Object.prototype.hasOwnProperty,
		toString = Object.prototype.toString,
		// if we are in Internet Explorer
		msie = +(((window.eval && eval("/*@cc_on 1;@*/") && /msie (\d+)/i.exec(navigator.userAgent)) || [])[1] || 0),
		// unique ID of the library needed to run VBScript in IE
		libID = ( new Date() ).getTime(),
		// counter of created classes in VBScript
		VBInc = ( defineProp || defineGetter ) && ( !msie || msie > 8 ) ? 0 : 1,

		// original methods text links
		_a, _r, _d,
		// prefix to names of events
		eventPrefix = "",
		// saving originals event methods
		addEvent = ( _a = "addEventListener", window[ _a ] ) || ( _a = "attachEvent", eventPrefix = "on", window[ _a ] ),
		removeEvent = ( _r = "removeEventListener", window[ _r ] ) || ( _r = "detachEvent", window[ _r ] ),
		fireEvent = ( _d = "dispatchEvent", window[ _d ] ) || ( _d = "fireEvent", window[ _d ] ),

		// scopes for event listeners
		eventsListPopState = [],
		eventsListHashChange = [],

		skipHashChange = 0,

	eventsList = {
		"onpopstate": eventsListPopState,
		"popstate": eventsListPopState,
		"onhashchange": eventsListHashChange,
		"hashchange": eventsListHashChange
	},

	// get external settings for this library
	sets = (function() {

		var
			i, m, s, config = { "basepath": '/', "redirect": 0, "type": '/' },
			el = document.getElementsByTagName("SCRIPT");

		// parse GET parameters for internal settings.
		for( i = 0; el[ i ]; i++ ) {
			if ( m = /(.*)\/(?:history|spike)(?:-\d\.\d(?:\.\d)?\w?)?(?:\.min)?.js\?(.*)$/i.exec( el[ i ].src ) ||
				( i === el.length - 1 && ( m = el[ i ].src.split( "?" ) ).length === 2 && ( m[ 2 ] = m[ 1 ] ) && m ) ) {
				for( i = 0, s = m[ 2 ].split( "&" ); s[ i ]; ) {
					m = s[ i++ ].split( "=" );
					config[ m[ 0 ] ] = m[ 1 ] == 'true' ? True : m[ 1 ] == 'false' ? False : m[ 1 ] || '';
				}
				config["basepath"] = config["basepath"] || "/";
				break;
			}
		}
		return config;
	})(),

	// function for the preparation of URL-links for further work
	normalizeUrl = (function( a ) {

		var _href, relative, special, nohash, host, port, pathname,
		    re = new RegExp( "^" + sets["basepath"], "i" );

		return function( href, test ) {

			if ( !href ) {

				href = windowLocation.href;

				if ( !api || test ) {
					// form the absolute link from the hash
					href = windowLocation.protocol + "//" +
						windowLocation.host + sets["basepath"] +
						( href.replace( /^[^#]*/, '' ) || "#" ).
						replace( new RegExp( "^#[\/]?(?:" + sets["type"] + ")?" ), "" );
				}
			} else if ( !api || msie ) {

				var current = normalizeUrl(),
				    _pathname = current._pathname,
				    _protocol = current._protocol;

				// convert relative link to the absolute
				href = /^(?:[\w0-9]+\:)?\/\//.test( href ) ?
					href.indexOf( "/" ) === 0 ? _protocol + href :
					href : _protocol + "//" + current._host + (
					href.indexOf( "/" ) === 0 ? href :
					href.indexOf( "?" ) === 0 ? _pathname + href :
					href.indexOf( "#" ) === 0 ? _pathname + current._search + href :
					_pathname.replace( /[^\/]+$/g, '' ) + href
				);
			}

			// no need to transform what is already converted the last time
			if ( _href !== href ) {

				// parse to part with a browser
				a.href = _href = href;

				port = a.port;
				host = a.host;
				pathname = a.pathname;

				// Internet Explorer adds the port number to standard protocols
				if ( ( a.protocol === "http:" && port == 80 ) ||
					( a.protocol === "https:" && port == 443 ) ) {
					host = a.hostname;
					port = "";
				}

				// Internet Explorer removes the slash at the beginning the way, we need to add it back
				pathname = pathname.indexOf( "/" ) === 0 ? pathname : "/" + pathname;
				// relative link, no protocol, no host
				relative = pathname + a.search + a.hash;
				// special links for set to hash-link, if browser not support History API
				nohash = pathname.replace( re, sets["type"] ) + a.search;
				special = nohash + a.hash;
			}

			// added first symbol for Closure Compiler to advanced optimization
			return {
				_href: a.protocol + "//" + host + relative,
				_protocol: a.protocol,
				_host: host,
				_hostname: a.hostname || windowLocation.hostname,
				_port: port || windowLocation.port,
				_pathname: pathname,
				_search: a.search,
				_hash: a.hash,
				_relative: relative,
				_nohash: nohash,
				_special: special
			}
		}
	})( document.createElement("a") ),

	// modifiable object of History
	History = !VBInc ? windowHistory : {
		// properties to create an object in IE
		"back": windowHistory.back,
		"forward": windowHistory.forward,
		"go": windowHistory.go,
		"pushState": Null,
		"replaceState": Null,
		"emulate": !api,
		"toString": function() {
			return "[object History]";
		}
	},

	// Accessors for the object History
	HistoryAccessors = {
		"state": {
			get: function() {
				return historyStorage()[ History.location.href ] || Null;
			}
		},
		"length": {
			get: function() {
				return windowHistory.length;
			}
		},
		"location": {
			set: function( val ) {
				window.location = val;
			},
			get: function() {
				return api ? windowLocation : Location;
			}
		}
	},

	// The new Location object to add it to the object of History
	Location = {
		"assign": function( url ) {
			windowLocation.assign( api || url.indexOf( "#" ) !== 0 ? url : "#" + normalizeUrl()._nohash + url );
		},
		"reload": windowLocation.reload,
		"replace": function( url ) {
			windowLocation.replace( api || url.indexOf( "#" ) !== 0 ? url : "#" + normalizeUrl()._nohash + url );
		},
		"toString": function() {
			return this.href;
		}
	},

	// Accessors for the object Location
	LocationAccessors = {
		"href": {
			set: function( val ) {
				windowLocation.href = val;
			},
			get: function() {
				return normalizeUrl()._href;
			}
		},
		"protocol": {
			set: function( val ) {
				windowLocation.protocol = val;
			},
			get: function() {
				return windowLocation.protocol;
			}
		},
		"host": {
			set: function( val ) {
				windowLocation.host = val;
			},
			get: function() {
				return windowLocation.host;
			}
		},
		"hostname": {
			set: function( val ) {
				windowLocation.hostname = val;
			},
			get: function() {
				return windowLocation.hostname;
			}
		},
		"port": {
			set: function( val ) {
				windowLocation.port = val;
			},
			get: function() {
				return windowLocation.port;
			}
		},
		"pathname": {
			set: function( val ) {
				windowLocation.pathname = val;
			},
			get: function() {
				return normalizeUrl()._pathname;
			}
		},
		"search": {
			set: function( val ) {
				windowLocation.search = val;
			},
			get: function() {
				return normalizeUrl()._search;
			}
		},
		"hash": {
			set: function( val ) {
				windowLocation.hash = "#" + normalizeUrl()._nohash +
							( val.indexOf( "#" ) === 0 ? val : "#" + val );
			},
			get: function() {
				return normalizeUrl()._hash;
			}
		}
	},

	// defineProperties for static objects
	createStaticObject = function( obj, props, novb ) {

		var tmp = obj, key, vb = False;

		if ( defineProp || defineGetter ) {
			for( key in props ) {
				if ( hasOwnProperty.call( props, key ) ) {
					if ( defineGetter ) {
						props[ key ].get &&
							defineGetter.call( obj, key, props[ key ].get );
						props[ key ].set &&
							defineSetter.call( obj, key, props[ key ].set );
					} else if ( defineProp ) {
						try {
							defineProp( obj, key, props[ key ] );
						} catch( _e_ ) {
							if ( novb ) {
								return False;
							}
							vb = True;
							break;
						}
					}
				}
			}
		} else vb = True;

		if ( vb && VBInc ) {

			var
				staticClass = "StaticClass" + libID + VBInc++,
				parts = [ "Class " + staticClass ];

			// functions for VBScript
			if ( !( "execVB" in window ) ) {
				execScript( 'Function execVB(c) ExecuteGlobal(c) End Function', 'VBScript' );
			}
			if ( !( "VBCVal" in window ) ) {
				execScript( 'Function VBCVal(o,r) If IsObject(o) Then Set r=o Else r=o End If End Function', 'VBScript' );
			}

			for( key in obj ) {
				parts[ parts.length ] = "Public [" + key + "]";
			}

			if ( hasOwnProperty.call( obj, "toString" ) ) {
				if ( !obj.propertyIsEnumerable( 'toString' ) ) {
					parts[ parts.length ] = "Public [toString]";
				}
				props["(toString)"] = {
					get: function() {
						return this.toString.call( this );
					}
				}
			}

			for( key in props ) {
				if ( hasOwnProperty.call( props, key ) ) {
					if ( props[ key ].get ) {
						obj["get " + key] = props[ key ].get;
						parts.push(
							"Public [get " + key + "]",
							"Public " + ( key === "(toString)" ? "Default " : "" ) + "Property Get [" + key + "]",
							"Call VBCVal(me.[get " + key + "].call(me),[" + key + "])",
							"End Property"
						);

					}
					if ( props[ key ].set ) {
						obj["set " + key] = props[ key ].set;
						parts.push(
							"Public [set " + key + "]",
							"Public Property Let [" + key + "](v)",
							"Call me.[set " + key + "].call(me,v)",
							"End Property",
							"Public Property Set [" + key + "](v)",
							"Call me.[set " + key + "].call(me,v)",
							"End Property"
						);
					}
				}
			}

			parts.push(
				"End Class",
				"Function " + staticClass + "Factory()",
				"Set " + staticClass + "Factory=New " + staticClass,
				"End Function"
			);

			execVB( parts.join( "\n" ) );

			tmp = window[ staticClass + "Factory" ]();

			for( key in obj ) {
				tmp[ key ] = obj[ key ];
			}
			if ( hasOwnProperty.call( obj, "toString" ) ) {
				tmp.toString = obj.toString;
			}
		}

		return tmp;
	},

	historyStorage = function( state ) {
		return sessionStorage ? state ? sessionStorage.setItem( '__hitoryapi__', JSON.stringify( state ) ) :
				JSON.parse( sessionStorage.getItem( '__hitoryapi__' ) ) || {} : {};
	},

	fireStateChange = function( type, oldURL, newURL ) {

		var
			winHndl = type === 2 ? window.onhashchange : window.onpopstate,
			name = type === 2 ? 'hashchange' : 'popstate',
			o, list = eventsList[ name ];

		if ( document.createEvent ) {
			o = document.createEvent( 'Events' );
			o.initEvent( name, False, False );
		} else {
			o = document.createEventObject();
			o.type = name;
		}

		o.state = History.state;
		o.oldURL = oldURL;
		o.newURL = newURL;

		if ( winHndl ) {
			winHndl.call( window, o );
		}

		for( var i = 0, len = list.length; i < len; i++ ) {
			list[ i ].call( window, o );
		}
	},

	hashChanged = ( !msie || msie > 7 ) && (function() {

		var
			windowPopState = window.onpopstate || Null,
			windowHashChange = window.onhashchange || Null,
			popstateFired = 0,
			initialStateHandler = Null,
			urlObject = normalizeUrl(),
			oldURL = urlObject._href,
			oldHash = urlObject._hash.replace( /^#/, "" ),

		fireInitialState = function() {
			if ( initialFire && !( initialFire = 0 ) && urlObject._relative !== sets["basepath"] ) {
				clearInterval( initialStateHandler );
				setTimeout( fireStateChange, 10 );
			}
		},

		change = function( e ) {

			var urlObject = normalizeUrl();

			if ( skipHashChange ) {
				oldURL = urlObject._href;
				return skipHashChange = 0;
			}

			var
				oldUrl = e.oldURL || oldURL,
				newUrl = oldURL = e.newURL || urlObject._href,
				oldHash = oldUrl.replace( /^.*?(#|$)/, "" ),
				newHash = newUrl.replace( /^.*?(#|$)/, "" );

			if ( oldUrl != newUrl && !popstateFired ) {
				// fire popstate
				fireStateChange();
			}

			popstateFired = 0;
			initialFire = 0;

			if ( oldHash != newHash ) {
				// fire hashchange
				fireStateChange( 2, oldUrl, newUrl );
			}
		}

		addEvent( eventPrefix + "hashchange", change, False );

		addEvent( eventPrefix + "popstate", function() {

			// popstate ignore the event when the document is loaded
			if ( initialFire === windowLocation.href ) {
				return initialFire = 0;
			}

			initialFire = 0;

			fireStateChange( popstateFired = 1 );

		}, False );

		History["redirect"] = function( type, basepath ) {

			sets["type"] = type === undefined ? sets["type"] : type;
			sets["basepath"] = basepath === undefined ? sets["basepath"] : basepath;

			if ( window.top == window.self ) {

				var
					relative = normalizeUrl( Null, True )._relative,
					search = windowLocation.search,
					path = windowLocation.pathname,
					basepath = sets["basepath"];

				if ( api ) {

					if ( relative != basepath && (new RegExp( "^" + basepath + "$", "i" )).test( path ) ) {
						windowLocation.href = relative;
					}

					if ( ( new RegExp( "^" + basepath + "$", "i" ) ).test( path + '/' ) ) {
						windowLocation.href = basepath;
					} else if ( !(new RegExp( "^" + basepath, "i" )).test( path ) ) {
						windowLocation.href = path.replace(/^\//, basepath ) + search;
					}
				} else if ( path != basepath ) {
					windowLocation.href = basepath + '#' + path.
						replace( new RegExp( "^" + basepath, "i" ), sets["type"] ) + search + windowLocation.hash;
				}
			}
		}

		History = createStaticObject( History, VBInc ? HistoryAccessors : windowHistory.state === undefined ? {
			// Safari does not support the built-in object state
			state: HistoryAccessors.state,
			// add a location object inside the object History
			location: HistoryAccessors.location
		} : {
			// for all other browsers that work correctly with the history
			location: HistoryAccessors.location
		});

		Location = createStaticObject( Location, LocationAccessors );

		// overwrite addEventListener/attachEvent
		window[ _a ] = function( event, listener, capture, aWantsUntrusted ) {

			if ( eventsList[ event ] ) {
				eventsList[ event ].push( listener );
				if ( !api && eventsListPopState === eventsList[ event ] ) {
					fireInitialState();
				}
			} else {
				addEvent( event, listener, capture, aWantsUntrusted );
			}
		}

		// overwrite removeEventListener/detachEvent
		window[ _r ] = function( event, listener, capture ) {

			var list = eventsList[ event ];

			if ( list ) {
				for( var i = list.length; --i; ) {
					if ( list[ i ] === listener ) {
						list.splice( i, 1 );
						break;
					}
				}
			} else {
				removeEvent( event, listener, capture );
			}
		}

		// overwrite dispatchEvent/fireEvent
		window[ _d ] = function( event, eventObject ) {

			var
				type = event && event.type || event,
				list = eventsList[ event ],
				winHndl = list === eventsListPopState ? window.onpopstate : window.onhashchange;

			if ( list ) {
				eventObject = eventObject || ( typeof event == "string" ? window.event : event );
				try {
					eventObject && ( eventObject.target = window );
				} catch( _e_ ) {
					try {
						eventObject.srcElement = window;
					} catch( _e_ ) {}
				}
				if ( winHndl ) {
					winHndl.call( window, eventObject );
				}
				for( var i = 0, len = list.length; i < len; i++ ) {
					list[ i ].call( window, eventObject );
				}
				return True;
			} else {
				return fireEvent( event, eventObject );
			}
		}

		if ( VBInc ) {
			// override global History object and onhashchange property in window
			execScript( 'Public history, onhashchange', 'VBScript' );
		}

		if ( ( ( !defineProp && !defineGetter ) || !createStaticObject( window, {
			"onhashchange": {
				get: function() {
					return windowHashChange;
				},
				set: function( val ) {
					windowHashChange = val || Null;
				}
			},
			"onpopstate": {
				get: function() {
					return windowPopState;
				},
				set: function( val ) {
					if ( windowPopState = ( val || Null ) ) {
						!api && fireInitialState();
					}
				}
			}
		}, 1 ) ) && !api ) {
			initialStateHandler = setInterval(function() {
				if ( window.onpopstate ) {
					fireInitialState();
				}
			}, 100);
		}

		if ( sets["redirect"] ) {
			History["redirect"]();
		}

		if ( !api ) {
			// 
			document[ _a ]( eventPrefix + "click", function( e ) {
				var
					event = e || window.event,
					target = event.target || event.srcElement,
					defaultPrevented = "defaultPrevented" in event ? event.defaultPrevented : event.returnValue === False;

				if ( target && target.nodeName === "A" && !defaultPrevented ) {

					e = normalizeUrl( target.getAttribute( "href", 2 ), True );

					if ( e._hash && e._hash !== "#" && e._hash === e._href.replace( normalizeUrl()._href.split( "#" ).shift(), "" ) ) {

						history.location.hash = e._hash;

						e = e._hash.replace( /^#/, '' );

						if ( ( target = document.getElementById( e ) ) && target.id === e && target.nodeName === "A" ) {
							var rect = target.getBoundingClientRect();
							window.scrollTo( ( documentElement.scrollLeft || 0 ),
								rect.top + ( documentElement.scrollTop || 0 ) - ( documentElement.clientTop || 0 ) );
						}

						if ( event.preventDefault ) {
							event.preventDefault();
						} else {
							event.returnValue = false;
						}
					}
				}
			}, False );
		}

		History.pushState = function( state, title, url, replace ) {

			var
				stateObject = historyStorage(),
				currentHref = normalizeUrl()._href,
				urlObject = url && normalizeUrl( url );

			initialFire = 0;
			url = urlObject ? urlObject._href : currentHref;

			if ( replace && stateObject[ currentHref ] ) {
				delete stateObject[ currentHref ];
			}

			if ( ( !api || initialState ) && sessionStorage && state ) {
				stateObject[ url ] = state;
				historyStorage( stateObject );
				state = Null;
			}

			if ( historyPushState && historyReplaceState ) {
				if ( replace ) {
					historyReplaceState.call( History, state, title, url );
				} else {
					historyPushState.call( History, state, title, url );
				}
			} else if ( urlObject && urlObject._relative != normalizeUrl()._relative ) {
				skipHashChange = 1;
				if ( replace ) {
					windowLocation.replace( "#" + urlObject._special );
				} else {
					windowLocation.hash = urlObject._special;
				}
			}
		}

		History.replaceState = function( state, title, url ) {
			History.pushState( state, title, url, 1 );
		}

		if ( VBInc ) {
			// replace the original History object in IE 8
			window.history = History;

		} else {
			// Add other browsers to emulate variable
			// The object of History, thus, we can learn
			// If the browser has native support for working with history
			window.history["emulate"] = !api;
		}

	})();

})( window, true, false, null );