Added 'visible' key (public, protected, ...) in JSON output.

Author: AndreasMatthias

script/cli/doc.lua

@@ -187,6 +187,7 @@ local function collectTypes(global, results)
             field.desc    = getDesc(source)
             field.rawdesc = getDesc(source, true)
             field.extends = packObject(source.value)
+            field.visible = vm.getVisibleType(source)
             return
         end
         if source.type == 'tableindex' then