#--
#            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
#                    Version 2, December 2004
#
#            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
#   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
#
#  0. You just DO WHAT THE FUCK YOU WANT TO.
#++

module Native
	class Object
		include Native

		def [](name)
			`#@native[name]`
		end

		def []=(name, value)
			`#@native[name] = value`
		end

		def nil?
			`#@native === null || #@native === undefined`
		end

		def method_missing (name, *args)
			return super unless Opal.function? `#@native[name]`

			__native_send__ name, *args
		end
	end

	def self.included (klass)
		class << klass
			def from_native (object)
				instance = allocate
				instance.instance_variable_set :@native, object

				instance
			end
		end
	end

	def initialize (native)
		@native = native
	end

	def to_native
		@native
	end

	def native_send (name, *args)
		return method_missing(name, *args) unless Opal.function? `#@native[name]`

		`#@native[$opal.mid_to_jsid(name)].apply(#@native, args)`
	end

	alias_method :__native_send__, :native_send
end

class Module
	%x{
		function define_attr_bridge(klass, target, name, getter, setter) {
			if (getter) {
				$opal.defn(klass, $opal.mid_to_jsid(name), function() {
					var real_target = target;

					if (target.$f & T_STRING) {
						real_target = target[0] == '@' ? this[target.substr(1)] : this[$opal.mid_to_jsid(target)].apply(this, null);
					}

					var result = real_target[name];

					return result == null ? nil : result;
				});
			}

			if (setter) {
				$opal.defn(klass, $opal.mid_to_jsid(name + '='), function (block, val) {
					var real_target = target;

					if (target.$f & T_STRING) {
						real_target = target[0] == '@' ? this[target.substr(1)] : this[$opal.mid_to_jsid(target)].apply(this, null);
					}

					return real_target[name] = val;
				});
			}
		}
	}

	def attr_accessor_bridge(target, *attrs)
		%x{
			for (var i = 0, length = attrs.length; i < length; i++) {
				define_attr_bridge(this, target, attrs[i], true, true);
			}
		}

		self
	end

	def attr_reader_bridge(target, *attrs)
		%x{
			for (var i = 0, length = attrs.length; i < length; i++) {
				define_attr_bridge(this, target, attrs[i], true, false);
			}
		}

		self
	end

	def attr_reader_bridge(target, *attrs)
		%x{
			for (var i = 0, length = attrs.length; i < length; i++) {
				define_attr_bridge(this, target, attrs[i], false, true);
			}
		}

		self
	end

	def attr_bridge(target, name, setter = false)
		`define_attr_bridge(this, target, name, true, setter)`

		self
	end

	%x{
		function define_method_bridge(klass, target, id, name) {
			define_method(klass, id, function() {
				var real_target = target;

				if (target.$f & T_STRING) {
					real_target = target[0] == '@' ? this[target.substr(1)] : this[$opal.mid_to_jsid(target)].apply(this, null);
				}

				return real_target.apply(this, $slice.call(arguments, 1));
			});
		}
	}

	def define_method_bridge(object, name, ali = nil)
		`define_method_bridge(this, object, $opal.mid_to_jsid(#{ali || name}), name)`

		self
	end
end

class Object
	def to_native
		raise TypeError, 'no specialized #to_native has been implemented'
	end
end

class Boolean
	def to_native
		`this.valueOf()`
	end
end

class Array
	def to_native
		map { |obj| Opal.object?(obj) ? obj.to_native : obj }
	end
end

class Hash
	def to_native
		%x{
			var map    = this.map,
					result = {};

			for (var assoc in map) {
				var key   = map[assoc][0],
						value = map[assoc][1];

				result[key] = #{Opal.native?(`value`)} ? value : #{`value`.to_native};
			}

			return result;
		}
	end
end

class MatchData
	alias to_native to_a
end

class NilClass
	def to_native
		`var result; return result;`
	end
end

class Numeric
	def to_native
		`this.valueOf()`
	end
end

class Proc
	def to_native
		%x{
			return function () {
				return this.apply(this.$S, arguments);
			};
		}
	end
end

class Regexp
	def to_native
		self
	end
end

class String
	def to_native
		`this.valueOf()`
	end
end

module Kernel
	def Object(object)
		Opal.native?(object) ? Native::Object.new(object) : object
	end
end