Add "async" key in JSON output.

Author: AndreasMatthias

script/cli/doc.lua

@@ -189,6 +189,9 @@ local function collectTypes(global, results)
             field.rawdesc = getDesc(source, true)
             field.extends = packObject(source.value)
             field.visible = vm.getVisibleType(source)
+            if vm.isAsync(source, true) then
+                field.async = true
+            end
             return
         end
         if source.type == 'tableindex' then
@@ -250,6 +253,9 @@ local function collectVars(global, results)
             result.rawdesc = result.rawdesc or getDesc(set, true)
             result.defines[#result.defines].extends['desc'] = getDesc(set)
             result.defines[#result.defines].extends['rawdesc'] = getDesc(set, true)
+            if vm.isAsync(set, true) then
+                result.defines[#result.defines].extends['async'] = true
+            end
         end
     end
     if #result.defines == 0 then