Add JSON decode functions from Js.Json and move classify into separate submodule

Author: cknitt

src/Core__JSON.mjs

@@ -1,5 +1,6 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
+import * as Caml_option from "rescript/lib/es6/caml_option.js";
 
 function classify(value) {
   var match = Object.prototype.toString.call(value);
@@ -34,14 +35,66 @@ function classify(value) {
   }
 }
 
-var Decode = {
+var Classify = {
   classify: classify
 };
 
 var Encode = {};
 
+function bool(json) {
+  if (typeof json === "boolean") {
+    return json;
+  }
+  
+}
+
+function $$null(json) {
+  if (json === null) {
+    return null;
+  }
+  
+}
+
+function string(json) {
+  if (typeof json === "string") {
+    return json;
+  }
+  
+}
+
+function $$float(json) {
+  if (typeof json === "number") {
+    return json;
+  }
+  
+}
+
+function object(json) {
+  if (typeof json === "object" && !Array.isArray(json) && json !== null) {
+    return Caml_option.some(json);
+  }
+  
+}
+
+function array(json) {
+  if (Array.isArray(json)) {
+    return json;
+  }
+  
+}
+
+var Decode = {
+  bool: bool,
+  $$null: $$null,
+  string: string,
+  $$float: $$float,
+  object: object,
+  array: array
+};
+
 export {
-  Decode ,
+  Classify ,
   Encode ,
+  Decode ,
 }
 /* No side effect */

src/Core__JSON.res

@@ -23,7 +23,7 @@ external stringifyAnyWithReplacer: ('a, jsonReplacer) => option<string> = "JSON.
 external stringifyAnyWithReplacerAndIndent: ('a, jsonReplacer, int) => option<string> =
   "JSON.stringify"
 
-module Decode = {
+module Classify = {
   type t =
     | Bool(bool)
     | Null
@@ -60,3 +60,24 @@ module Encode = {
   external object: Core__Dict.t<t> => t = "%identity"
   external array: array<t> => t = "%identity"
 }
+
+module Decode = {
+  let bool = (json: t) =>
+    Core__Type.typeof(json) === #boolean ? Some((Obj.magic(json): bool)) : None
+  let null = (json: t) => Obj.magic(json) === Core__Null.null ? Some(Core__Null.null) : None
+  let string = (json: t) =>
+    Core__Type.typeof(json) === #string ? Some((Obj.magic(json): string)) : None
+  let float = (json: t) =>
+    Core__Type.typeof(json) === #number ? Some((Obj.magic(json): float)) : None
+  let object = (json: t) =>
+    if (
+      Core__Type.typeof(json) === #object &&
+      !Core__Array.isArray(json) &&
+      !(Obj.magic(json) === Core__Null.null)
+    ) {
+      Some((Obj.magic(json): Core__Dict.t<t>))
+    } else {
+      None
+    }
+  let array = (json: t) => Core__Array.isArray(json) ? Some((Obj.magic(json): array<t>)) : None
+}

src/Core__JSON.resi

@@ -0,0 +1,55 @@
+type t = Js.Json.t
+
+type jsonReviver
+external asJsonReviver: 'a => jsonReviver = "%identity"
+type jsonReplacer
+external asJsonReplacer: 'a => jsonReplacer = "%identity"
+
+@val external parseExn: string => t = "JSON.parse"
+@val external parseExnWithReviver: (string, jsonReviver) => t = "JSON.parse"
+@val external stringify: t => string = "JSON.stringify"
+@val external stringifyWithIndent: (t, @as(json`null`) _, int) => string = "JSON.stringify"
+@val external stringifyWithReplacer: (t, jsonReplacer) => string = "JSON.stringify"
+@val external stringifyWithReplacerAndIndent: (t, jsonReplacer, int) => string = "JSON.stringify"
+
+@val external parseToAnyExn: string => 'a = "JSON.parse"
+@val external parseToAnyExnWithReviver: (string, jsonReviver) => 'a = "JSON.parse"
+@val external stringifyAny: 'a => option<string> = "JSON.stringify"
+@val
+external stringifyAnyWithIndent: ('a, @as(json`null`) _, int) => option<string> = "JSON.stringify"
+@val
+external stringifyAnyWithReplacer: ('a, jsonReplacer) => option<string> = "JSON.stringify"
+@val
+external stringifyAnyWithReplacerAndIndent: ('a, jsonReplacer, int) => option<string> =
+  "JSON.stringify"
+
+module Classify: {
+  type t =
+    | Bool(bool)
+    | Null
+    | String(string)
+    | Number(float)
+    | Object(Core__Dict.t<t>)
+    | Array(array<t>)
+
+  let classify: 'a => t
+}
+
+module Encode: {
+  external bool: bool => t = "%identity"
+  external null: t = "#null"
+  external string: string => t = "%identity"
+  external int: int => t = "%identity"
+  external float: float => t = "%identity"
+  external object: Core__Dict.t<t> => t = "%identity"
+  external array: array<t> => t = "%identity"
+}
+
+module Decode: {
+  let bool: t => option<bool>
+  let null: t => option<Core__Null.t<'a>>
+  let string: t => option<string>
+  let float: t => option<float>
+  let object: t => option<Core__Dict.t<t>>
+  let array: t => option<array<t>>
+}

test/TempTests.mjs

@@ -118,14 +118,14 @@ console.info("---");
 
 var json = JSON.parse("{\"foo\": \"bar\"}");
 
-var json$1 = Core__JSON.Decode.classify(json);
+var json$1 = Core__JSON.Classify.classify(json);
 
 var tmp;
 
 if (typeof json$1 === "number" || json$1.TAG !== /* Object */3) {
   tmp = undefined;
 } else {
-  var value = Core__JSON.Decode.classify(json$1._0["foo"]);
+  var value = Core__JSON.Classify.classify(json$1._0["foo"]);
   tmp = typeof value === "number" || value.TAG !== /* String */1 ? undefined : value._0;
 }
 

test/TempTests.res

@@ -57,9 +57,9 @@ Console.info("JSON")
 Console.info("---")
 let json = JSON.parseExn(`{"foo": "bar"}`)
 Console.log(
-  switch JSON.Decode.classify(json) {
+  switch JSON.Classify.classify(json) {
   | Object(json) =>
-    switch JSON.Decode.classify(json->Dict.get("foo")) {
+    switch JSON.Classify.classify(json->Dict.get("foo")) {
     | String(value) => Some(value)
     | _ => None
     }