Mercurial > repos > tabletprog
view modules/jsonEncoder.tp @ 362:7101ad443081
Add null terminator to string literals in x86 module and fix a bug that interfered with use of function name labels in call instructions
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Sat, 25 Apr 2015 13:05:38 -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: ",") . "}" } } }