allow json parser functions usable in the wiki context.

diff --git a/ext/ml-json.cc b/ext/ml-json.cc
index 236e0ae..7b1e774 100644 (file)
--- a/ext/ml-json.cc
+++ b/ext/ml-json.cc
@@ -132,6 +132,7 @@ static MNode*  picoj2texp (const picojson::value& v) {
 
 */
 //#AFUNC       json-read       ml_json_read
+//#WIKIFUNC    json-read
 MNode*  ml_json_read (MNode* cell, MlEnv* mlenv) {
     MNode*  arg = cell->cdr ();
     ustring  text;
@@ -184,6 +185,8 @@ MNode*  ml_json_read (MNode* cell, MlEnv* mlenv) {
 */
 //#AFUNC       json-texp-read  ml_json_texp_read
 //#AFUNC       json-sexp-read  ml_json_texp_read
+//#WIKIFUNC    json-sexp-read
+//#WIKIFUNC    json-texp-read
 MNode*  ml_json_texp_read (MNode* cell, MlEnv* mlenv) {
     MNode*  arg = cell->cdr ();
     ustring  text;
@@ -313,6 +316,8 @@ MNode*  ml_json_texp_output (MNode* cell, MlEnv* mlenv) {
 */
 //#AFUNC       json-texp-output-string ml_json_texp_output_string
 //#AFUNC       json-sexp-output-string ml_json_texp_output_string
+//#WIKIFUNC    json-texp-output-string
+//#WIKIFUNC    json-sexp-output-string
 MNode*  ml_json_texp_output_string (MNode* cell, MlEnv* mlenv) {
     MNode*  arg = cell->cdr ();
     MNodePtr  json;