rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Replaced object() with pairs() in library(json), and made key type explicit.

Browse Source
This commit is contained in:
panasenco
2021-04-28 16:09:38 -07:00
parent 0198fe90b6
commit cb07074246
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/lib/json.pl
View File

@@ -50,8 +50,8 @@ json_chars(Internal) --> json_element(Internal).
different types of values based on their principal functor. The principal functors match the types defined in different types of values based on their principal functor. The principal functors match the types defined in
the JSON Schema spec here: https://json-schema.org/draft/2020-12/json-schema-validation.html#rfc.section.6.1.1 the JSON Schema spec here: https://json-schema.org/draft/2020-12/json-schema-validation.html#rfc.section.6.1.1
EXCEPT we don't yet support the integer type. There are plans for more JSON Schema support in the near future. */ EXCEPT we don't yet support the integer type. There are plans for more JSON Schema support in the near future. */
json_value(object(Assoc)) --> json_object(Assoc). json_value(pairs(Pairs)) --> json_object(Pairs).
json_value(array(List)) --> json_array(List). json_value(list(List)) --> json_array(List).
json_value(string(Chars)) --> json_string(Chars). json_value(string(Chars)) --> json_string(Chars).
json_value(number(Number)) --> json_number(Number). json_value(number(Number)) --> json_number(Number).
json_value(boolean(Bool)) --> json_boolean(Bool). json_value(boolean(Bool)) --> json_boolean(Bool).
@@ -83,7 +83,7 @@ json_members([NextPair|Pairs], Key-Value) -->
",", ",",
json_members(Pairs, NextPair). json_members(Pairs, NextPair).
json_member(Key, Value) --> json_ws, json_string(Key), json_ws, ":", json_element(Value). json_member(string(Key), Value) --> json_ws, json_string(Key), json_ws, ":", json_element(Value).
json_array([]) --> "[", json_ws, "]". json_array([]) --> "[", json_ws, "]".
json_array([Value|Values]) --> "[", json_elements(Values, Value), "]". json_array([Value|Values]) --> "[", json_elements(Values, Value), "]".