[[ Store ]] Output manifest.xml when packaging LCS extensions

Author: livecodeali

Toolset/libraries/revidedeveloperextensionlibrary.livecodescript

@@ -775,6 +775,18 @@ private command __revIDEDeveloperExtensionBuildPackage pFolder, pTargetFolder, @
       return "Error: missing file" && tFullPath
    end if
 
+   local tManifestFile
+   put pFolder & slash & "manifest.xml" into tManifestFile
+   
+   if tDetailsA["source_type"] is "lcs" then
+      revIDEExtensionGenerateManifestForLCSExtension \
+            tDetailsA["source_file"], pFolder
+   end if
+   
+   if there is no file tManifestFile then
+      return "Error: missing manifest" && tManifestFile
+   end if
+   
    local tTargetFolder
    if pTargetFolder is empty then
       put pFolder into tTargetFolder
@@ -892,9 +904,14 @@ private command __revIDEDeveloperExtensionBuildPackage pFolder, pTargetFolder, @
    local tSupportFiles
    put tDetailsA["support_files"] into tSupportFiles
 
+   local tModuleFile
+   if tDetailsA["source_type"] is "lcb" then
+      put pFolder & slash & "module.lcm" into tModuleFile
+   end if
+   
    if tError is empty then
       put __revIDEDeveloperExtensionAddSpecifiedFilesToPackage(\
-            tFullPath, tSupportFiles, pFolder, tArchive, pFolder & slash & "module.lcm", \
+            tFullPath, tSupportFiles, pFolder, tArchive, tModuleFile, \
             tIcon, tRetinaIcon, tGuide, tDocs, tResources, tCode, \
             tSamples, tInterfaceFile, tDefaultScript, tEditors) \
             into tError
@@ -918,7 +935,7 @@ private command __revIDEDeveloperExtensionBuildPackage pFolder, pTargetFolder, @
 end __revIDEDeveloperExtensionBuildPackage
 
 private function __revIDEDeveloperExtensionAddSpecifiedFilesToPackage \
-      pSource, pSupportFiles, pFolder, pArchive, pModule, pIcon,  \
+      pSource, pSupportFiles, pFolder, pArchive, pModuleFile, pIcon,  \
       pRetinaIcon, pGuide, pDocs, pResourcesFolder, pCodeFolder, \
       pSamplesFolder, pInterfaceFile, pDefaultScript, pEditors
 
@@ -943,7 +960,9 @@ private function __revIDEDeveloperExtensionAddSpecifiedFilesToPackage \
    end repeat
 
    # Add module into package
-   revZipAddItemWithFile pArchive, "module.lcm", pModule
+   if pModuleFile is not empty then
+      revZipAddItemWithFile pArchive, item -1 of pModuleFile, pModuleFile
+   end if
 
    if the result begins with "ziperr" then
       put "couldn't add module" into tError

Toolset/libraries/revideextensionlibrary.livecodescript

@@ -1357,6 +1357,8 @@ private command __revIDELCSExtensionLoad pFullPath, pFolder, pVersion, pStatus,
    __extensionPropertySet tCacheIndex, "author", pAdditionalInfoA["author"]
    __extensionPropertySet tCacheIndex, "title", pAdditionalInfoA["display name"]
    __extensionPropertySet tCacheIndex, "svgicon", pAdditionalInfoA["svgicon"]
+   __extensionPropertySet tCacheIndex, "version", pAdditionalInfoA["version"]
+   
    repeat for each key tKey in pAdditionalInfoA["uses"]
       local tSettingString
       put empty into tSettingString
@@ -1890,3 +1892,55 @@ command revIDEExtensionIconFromType pType, pID, @rIconName, @rIconPath
          break
    end switch
 end revIDEExtensionIconFromType
+
+private command addXML @xXML, pDepth, pTag, pContent, pAttributesA
+   repeat pDepth
+      put space after xXML
+   end repeat
+   put "<" & pTag after xXML
+   repeat for each key tKey in pAttributesA
+      put " " & tKey & "=" & quote & pAttributesA[tKey] & quote \
+            after xXML
+   end repeat
+   if pContent is empty then
+      put " />" after xXML
+   else
+      put ">" & pContent & "</" & pTag & ">" after xXML
+   end if
+   put return after xXML
+end addXML
+
+command revIDEExtensionGenerateManifestForLCSExtension pSource, pFolder
+   local tDataA
+   put __fetchScriptLibraryData(pFolder, pSource) into tDataA
+   
+   local tPackageXML, tAttrA
+   repeat for each item tTag in "name,title,author,version,type"
+      addXML tPackageXML, 1, tTag, tDataA[tTag]
+   end repeat
+   
+   addXML tPackageXML, 1, "license", "community"
+   
+   // TODO: This will only work for loaded lcs libraries
+   repeat for each line tRequirement in revSBGetExtensionDependenciesForExtension(tDataA["name"])
+      put tRequirement into tAttrA["name"]
+      addXML tPackageXML, 1, "requires", "", tAttrA
+      put empty into tAttrA
+   end repeat
+   
+   repeat for each item tMetadata in "svgicon"
+      local tValue
+      put tDataA[tMetadata] into tValue
+      if tValue is empty then
+         next repeat
+      end if
+      put tMetadata into tAttrA["key"]
+      addXML tPackageXML, 1, "metadata", tValue, tAttrA
+      put empty into tAttrA
+   end repeat
+   
+   local tXML
+   put "0.0" into tAttrA["version"]
+   addXML tXML, 0, "package", return & tPackageXML, tAttrA
+   put textEncode(tXML, "utf-8") into url("binfile:" & pFolder & slash & "manifest.xml")
+end revIDEExtensionGenerateManifestForLCSExtension