gistfile1.minid

module tojsons

import json

local orig_toJSON = json.toJSON

local function obj2Table(value : instance) {
		local t = {}
		foreach(k, v; fieldsOf(value)) {
			if(isInstance(v))
				v = obj2Table(v)
			t[k] = v
		}
		
		return t
}

json.toJSON = function(value : table | array | instance, pretty : bool = false) {
	if(isInstance(value)) {
		value = obj2Table(value)
	}
	
	return orig_toJSON(value, pretty)
}

function main() {
	class A {
		a
		b
		c
		
		function constructor() {
			:a = 1
			:b = 3
		}
	}
	
	class B {
		d
		e
		f
		
		function constructor() {
			:e = "bla"
			:f = A()
		}
	}
	
	local b = B()
	
	writeln $ json.toJSON $ b, true
}