[[ LCIDLC ]] Update extract docs script for lcidl

montegoulding · montegoulding · commit 329650a74df5 · 2017-11-06T13:38:17.000+11:00
This patch allows the extract-docs script to handle either a
stack or a lcidl file.
diff --git a/util/extract-docs.livecodescript b/util/extract-docs.livecodescript
@@ -30,20 +30,34 @@ on extractDocs
    
    local tArg
    repeat with tArg = 4 to the number of elements of tArgs
+      local tName, tSource, tContent
       
-      if there is not a stack tArgs[tArg] then
+      if there is a stack tArgs[tArg] then
+         put tolower(the short name of stack tArgs[tArg]) into tName
+         put the script of stack tArgs[tArg] into tContent
+         put the long id of stack tArgs[tArg] into tSource
+      else if tArgs[tArg] ends with ".lcidl" then
+         if the platform is "Win32" then
+            set the itemDelimiter to backslash
+         else
+            set the itemDelimiter to slash
+         end if
+         put "com.livecode.external." & tolower(char 1 to -7 of the last item of tArgs[tArg]) into tName
+         put textDecode(url ("binfile:" & tArgs[tArg]), "UTF8") into tContent
+         put tArgs[tArg] into tSource
+      else
          write "Error: stack not found: " & tArgs[tArg] & return to stderr
          quit 3
       end if
             
       local tDocs
-      put revDocsGenerateDocsFileFromText(the script of stack tArgs[tArg],the long id of stack tArgs[tArg]) into tDocs
+      put revDocsGenerateDocsFileFromText(tContent, tSource) into tDocs
       
       put textEncode(tDocs, "UTF-8") into tDocs
       
       replace numToByte(13) with numToByte(10) in tDocs
       
-      put tDocs into url ("binfile:" & tOutputDir & "/" & tolower(the short name of stack tArgs[tArg]) & ".lcdoc")
+      put tDocs into url ("binfile:" & tOutputDir & "/" & tName & ".lcdoc")
    end repeat
    
    quit 0
