DOC: generate from json format

Author: chrisws

ChangeLog

@@ -6,6 +6,7 @@
 	Added "industrial" editor theme from Shian (slot 2)
 	Runtime errors now show source screen with red error highlighter
 	Form refresh command now takes an boolean arg, true=push ui state to vars
+	Removed BALLOC, MALLOC and VADR keywords
 
 2016-02-11
 	Added export to mobile command (SDL)

documentation/mkref.bas

@@ -27,21 +27,19 @@ else
   mk_help(in_map)
 fi
 
-func get_field(row, key)
+func get_field(row, key, escq)
   local n1, n2, result
   n1 = instr(row, key) + len(key)
   n2 = instr(n1, row, "\\r") - n1
   result = mid(row, n1, n2)
+  if (escq) then
+    result = translate(result, "\\\"", "\"\"")
+  else
+    result = translate(result, "\\\"", "\"")
+  endif
   get_field = result
 end
 
-func get_help_field(row, key)
-  local result
-  result = get_field(row, key)
-  result = translate(result, "\\\"", "\"\"")
-  get_help_field = result
-end
-
 func fix_comments(comments, keyword)
   comments = translate(comments, "p. ", "")
   comments = translate(comments, "bq. ", "")
@@ -51,8 +49,9 @@ func fix_comments(comments, keyword)
   comments = translate(comments, "**", "")
   comments = translate(comments, " ", " ")
   comments = translate(comments, "\\\"", "\"")
-  comments = translate(comments, "<code>", "----[ " + keyword + " example. cut here ]----" + chr(10))
-  comments = translate(comments, "</code>", chr(10) + "----[ cut here ]----")
+  comments = translate(comments, "<code>", "----[ " + keyword + " example. cut here ]--->" + chr(10))
+  comments = translate(comments, "</code>", chr(10) + "<---[ cut here ]----" + chr(10))
+  comments = translate(comments, "\\r\\n\\r\\n", chr(10))
   comments = translate(comments, "\\r\\n", chr(10))
   fix_comments = comments
 end
@@ -62,11 +61,11 @@ sub mk_help(byref in_map)
   local in_map_len = len(in_map) - 1
   for i = 0 to in_map_len
     row = in_map(i).body_value
-    group = get_help_field(row, "group=")
-    type = get_help_field(row, "type=")
-    keyword = get_help_field(row, "keyword=")
-    syntax = get_help_field(row, "syntax=")
-    brief = get_help_field(row, "brief=")
+    group = get_field(row, "group=", true)
+    type = get_field(row, "type=", true)
+    keyword = get_field(row, "keyword=", true)
+    syntax = get_field(row, "syntax=", true)
+    brief = get_field(row, "brief=", true)
     while (i + 1 < in_map_len && in_map(i).entity_id == in_map(i + 1).entity_id)
       i++
     wend
@@ -80,7 +79,12 @@ sub mk_text_reference(byref in_map)
   local end_block = "<!-- end heading block -->"
 
   ? "SmallBASIC Language reference"
-  ? "See: http://smallbasic.sourceforge.net/?q=node/201"
+  ?
+  ? "Online:
+  ? "http://smallbasic.sourceforge.net/?q=node/201"
+  ?
+  ? "Generated with:
+  ? "https://github.com/smallbasic/SmallBASIC/blob/master/documentation/mkref.bas
   ?
   ? "   _____                 _ _ ____           _____ _____ _____
   ? " / ____|               | | |  _ \   /\    / ____|_   _/ ____|
@@ -89,14 +93,15 @@ sub mk_text_reference(byref in_map)
   ? "  ____) | | | | | | (_| | | | |_) / ____ \ ____) |_| || |____
   ? " |_____/|_| |_| |_|\__,_|_|_|____/_/    \_\_____/|_____\_____|
   ?
+  ?
 
   for i = 0 to in_map_len
     row = in_map(i).body_value
-    group = get_field(row, "group=")
-    type = get_field(row, "type=")
-    keyword = get_field(row, "keyword=")
-    syntax = get_field(row, "syntax=")
-    brief = translate(get_field(row, "brief="), "\\\"", "\"")
+    group = get_field(row, "group=", false)
+    type = get_field(row, "type=", false)
+    keyword = get_field(row, "keyword=", false)
+    syntax = get_field(row, "syntax=", false)
+    brief = get_field(row, "brief=", false)
 
     ? (i+1) + ". (" + group + ") " + keyword
     ?