json-strict/src/typeclass.coffee

Json Specification & Validation & Document Generation

require 'coffee-mate/global'

{typeclass, instance} = do ->
	instances = {}
	reg = {}

	typeclass = (classname) ->
		cls = reg[classname] ?= {}
		ins = instances[classname] ?= []
		hasInstance: (t) -> ins.indexOf(t) >= 0
		where: (funcs) ->
			rst_funcs = {}
			foreach enumerate(funcs), ([funcname, funcdefault]) ->
				ls = cls[funcname] ?= []
				f = (arg) ->
					unless arg?
						throw TypeError "No Instance of #{classname}(via #{funcname}(#{arg})) For #{arg}"
					for [type, funcbody] in ls
						#log -> type
						if arg.constructor is type
							return funcbody(arg)
					if funcdefault?
						return funcdefault.call(rst_funcs, arg)
					else
						throw TypeError "No Instance of #{classname}(via #{funcname}(#{arg})) For #{arg.constructor.name or 'UnnamedType'}"
				rst_funcs[funcname] = f
			return rst_funcs

	instance = (classname) ->
		cls = reg[classname] ?= {}
		ins = instances[classname] ?= []
		(type) ->
			#log -> type
			ins.push(type) if ins.indexOf(type) < 0
			where: (funcdict) ->
				foreach (enumerate funcdict), ([funcname, funcbody]) ->
					(cls[funcname] ?= []).push [type, funcbody]

	typeclass.registered = reg
	instance.registered = instances

	return {typeclass, instance}

module.exports = {typeclass, instance}

if module.parent is null
	{show} = typeclass('Show').where
		show: (x) -> str @zero(x)
		zero: -> 0

	instance('Show')(String).where
		show: (s) -> json s

	instance('Show')(Number).where {}

	log -> show "hello"
	log -> show 1
	log -> typeclass('Show').hasInstance(String)
	log -> typeclass('Show').hasInstance(Number)
	log -> typeclass('Show').hasInstance(Object)
	#log -> show null
	#log -> show 0
	#log -> show {x: 1}