allowed one way encoding of non json types with invalidObjectsAsType

these types will be encoded as string in format0 __lua_<type> e.g. __lua_function

Author: cryi

hjson.lua

@@ -1,25 +1,29 @@
 -- MIT License - Copyright (c) 2019 Void (cryon.io)
+local decoder = require "hjson.decoder"
+local encoder = require "hjson.encoder"
+local encoderH = require "hjson.encoderH"
 
-local decoder = require"hjson.decoder"
-local encoder = require"hjson.encoder"
-local encoderH = require"hjson.encoderH"
-
-local function decode(str, strict, object_hook, object_pairs_hook) 
+local function decode(str, strict, object_hook, object_pairs_hook)
     local _decoder = decoder:new(strict, object_hook, object_pairs_hoo)
     return _decoder:decode(str)
 end
 
-local function encode_json(obj, indent, skipkeys) 
-    local _encoder = encoder:new(indent, skipkeys)
+-- options = {indent, skipkeys, sort_keys, item_sort_key, invalidObjectsAsType}
+local function encode_json(obj, options)
+    local _encoder = encoder:new(options)
     return _encoder:encode(obj)
 end
 
-local function encode(obj, indent, skipkeys, sort_keys, item_sort_key) 
-    local forward = false
-    if indent == "" or indent == false or indent == 0 then 
-        return encode_json(obj, indent, skipkeys) 
+-- options = {indent, skipkeys, sort_keys, item_sort_key, invalidObjectsAsType}
+local function encode(obj, options)
+    if type(options) ~= "table" then
+        options = {}
+    end
+
+    if options.indent == "" or options.indent == false or options.indent == 0 then
+        return encode_json(obj, options)
     end
-    local _encoderH = encoderH:new(indent, skipkeys, sort_keys, item_sort_key)
+    local _encoderH = encoderH:new(options)
     return _encoderH:encode(obj)
 end
 
@@ -28,8 +32,8 @@ local hjson = {
     stringify = encode,
     encode_to_json = encode_json,
     stringify_to_json = encode_json,
-    decode = decode, 
+    decode = decode,
     parse = decode
 }
 
-return hjson
+return hjson

hjson/encoder.lua

@@ -43,7 +43,17 @@ end
 
 local JsonEncoder = {}
 
-function JsonEncoder:new(indent, skipkeys, sort_keys, item_sort_key)
+function JsonEncoder:new(options)
+  if type(options) ~= "table" then
+    options = {}
+  end
+  local indent, skipkeys, sort_keys, item_sort_key, invalidObjectsAsType =
+    options.indent,
+    options.skipkeys,
+    options.sort_keys,
+    options.item_sort_key,
+    options.invalidObjectsAsType
+
   if skipkeys == nil then
     skipkeys = true
   end
@@ -57,7 +67,7 @@ function JsonEncoder:new(indent, skipkeys, sort_keys, item_sort_key)
     indent = string.rep(" ", indent)
   end
 
-  if type(indent) == "boolean" and indent then 
+  if type(indent) == "boolean" and indent then
     indent = "    "
   end
 
@@ -195,14 +205,12 @@ function JsonEncoder:new(indent, skipkeys, sort_keys, item_sort_key)
     if type(func) == "function" then
       return func(o, encode)
     end
+    if invalidObjectsAsType then
+      return encodeFunctionMap["string"]('__lua_' ..type(o))
+    end
     error("Unexpected type '" .. _type .. "'")
   end
 
-  local function json_encode(o)
-    stack = {}
-    return encode(o)
-  end
-
   local je = {
     _encode = encode
   }
@@ -212,8 +220,8 @@ function JsonEncoder:new(indent, skipkeys, sort_keys, item_sort_key)
   return je
 end
 
-function JsonEncoder:encode(o)
-  return self._encode(o)
+function JsonEncoder:encode(o, allowNonJsonTypes)
+  return self._encode(o, allowNonJsonTypes)
 end
 
 return JsonEncoder

hjson/encoderH.lua

@@ -110,7 +110,17 @@ end
 
 local HjsonEncoder = {}
 
-function HjsonEncoder:new(indent, skipkeys, sort_keys, item_sort_key)
+function HjsonEncoder:new(options)
+    if type(options) ~= "table" then
+        options = {}
+    end
+    local indent, skipkeys, sort_keys, item_sort_key, invalidObjectsAsType =
+        options.indent,
+        options.skipkeys,
+        options.sort_keys,
+        options.item_sort_key,
+        options.invalidObjectsAsType
+
     if skipkeys == nil then
         skipkeys = true
     end
@@ -291,14 +301,12 @@ function HjsonEncoder:new(indent, skipkeys, sort_keys, item_sort_key)
         if type(func) == "function" then
             return func(o, _encode)
         end
+        if invalidObjectsAsType then
+            return encodeFunctionMap["string"]('__lua_' ..type(o))
+        end
         error("Unexpected type '" .. _type .. "'")
     end
 
-    local function json_encode(o)
-        stack = {}
-        return _encode(o)
-    end
-
     local je = {
         _encode = _encode
     }