view modules/jsonEncoder.tp @ 347:ff7ea11b4b60

Add length method to executable bytearrays
author Michael Pavone <pavone@retrodev.com>
date Fri, 10 Apr 2015 00:48:12 -0700
parents eef8a5cea812
children
line wrap: on
line source
#{
	//this module exists to break a circular dependency between the json module
	//and container types like dictionaries
	encode <- :value {
		if: (object does: value understand?: "jsonEncode") {
			value jsonEncode
		} else: {
			toEncode <- #[]
			if: (object does: value understand?: "serializeFields") {
				toEncode <- value serializeFields
			} else: {
				toEncode <- object propertiesOf: value
			}
			parts <- #[]
			foreach: toEncode :idx field {
				fieldVal <- object sendMessage: field to: value
				parts append: (field jsonEncode) . ":" . (encode: fieldVal)
			}
			"{" . (parts join: ",") . "}"
		}
	}
}