abstract class %ZAPM.ext.zpm
installation string ZPM, ZAPM, Registry
set $namespace="%SYS", name="DefaultSSL" do:'##class(Security.SSLConfigs).Exists(name) ##class(Security.SSLConfigs).Create(name) set url="https://pm.community.intersystems.com/packages/zpm/latest/installer" Do ##class(%Net.URLParser).Parse(url,.comp) set ht = ##class(%Net.HttpRequest).%New(), ht.Server = comp("host"), ht.Port = 443, ht.Https=1, ht.SSLConfiguration=name, st=ht.Get(comp("path")) quit:'st $System.Status.GetErrorText(st) set xml=##class(%File).TempFilename("xml"), tFile = ##class(%Stream.FileBinary).%New(), tFile.Filename = xml do tFile.CopyFromAndSave(ht.HttpResponse.Data) do ht.%Close(), $system.OBJ.Load(xml,"ck") do ##class(%File).Delete(xml) zpm "install zapm" zapm "newdb zpm-registry" zapm "zna"
research and development ZPM
• parameter GN = "^%ZAPM.ZpmLoad";
Storage of work history
• parameter GNSET = "^%ZAPM.settings";
Storage of settings
• parameter VERSION = "1.0.46";
• classmethod CollectPackage(pPath As %String, Output pList, pRoot As %String)
• classmethod CompNS(ns)
as %Status
Recompilation to IRIS namespace
d ##class(%ZAPM.ext.zpm).CompNS("AAA")
• classmethod CompactPackage(ByRef pList, classname=$CLASSNAME())
as %Status
• classmethod CreateDBNSAndLoad(name, ns="", Version="", Repo="", gn="", err, fromrepo="")
as %Status
d ##class(%ZAPM.ext.zpm).CreateDBNSAndLoad("isc-tar")
• classmethod Description(tModuleName, UrlInc="", RepoView="0", ViewFromModule=0, num)
Show description
do ##class(%ZAPM.ext.zpm).Description("z*","/rcep",1)
• classmethod DrawArray(ByRef Array As %String, ListDir="")
as %Status
• classmethod DrawColumn(desc)
as %String
draw description, code from zpmshow.mac
• classmethod EscColor(mode="")
as %String
Output color escape sequence
do ##class(%ZAPM.ext.zpm).EscColor()
• classmethod ExtractPackage(Output pFolder As %String, classname=$CLASSNAME())
as %String
• classmethod GetAllDir(dir, ext="", ByRef out)
Get all files in a directory and subdirectories
• classmethod GetCurrRepo(Url="")
Get URL currently repository
if ##class(%ZAPM.ext.zpm).GetCurrRepo(.url) zw url
• classmethod GetDataURL(url As %String, ByRef data, ByRef req, user="", pass="")
as %Status
write $System.Status.GetErrorText(##class(%ZAPM.ext.zpm).GetDataURL("https://raw.githubusercontent.com/intersystems-community/zpm/master/module.xml",.o)) w o
• classmethod GetDefaultCommandRegistry(ServerPort)
Get Default Command of Registry
example d ##class(%ZAPM.ext.zpm).GetDefaultCommandRegistry()
• classmethod GetDescFromRepo(url As %String, ByRef desc, ByRef repo, ByRef modxml)
as %Status
TODO GitLab repo
• classmethod GetErrorLog(name)
as %String
do ##class(%ZAPM.ext.zpm).GetErrorLog("soap")
• classmethod GetFileLines(pFileName As %String, Output pOutput)
as %Status
from %ZPM.PackageManager.Developer.Utils
• classmethod GetListModule(ns=$namespace, ByRef Mod, OnlyName=1)
as %Status
do ##class(%ZAPM.ext.zpm).GetListModule(,.List)
Get module list in currently namespace
• classmethod GetModuleVersion(modulename="zapm", gn=..#GNSET)
as %Status
write ##class(%ZAPM.ext.zpm).GetModuleVersion()
• classmethod GetOexRepo(filter="")
as %String
do ##class(%ZAPM.ext.zpm).GetOexRepo("rcemper") ; output urls repos
• classmethod GetPickDepensList(name, ByRef list)
as %Status
if ##class(%ZAPM.ext.zpm).GetPickDepensList("csvgen",.list) zwrite list
if ##class(%ZAPM.ext.zpm).GetPickDepensList("openapi-client-gen",.list) zwrite list
if ##class(%ZAPM.ext.zpm).GetPickDepensList("iris-analytics-notebook",.list) zwrite list
• classmethod GetPickFileRepoUrl(nameorurl, ByRef xml, filename="module.xml")
as %Status
if ##class(%ZAPM.ext.zpm).GetPickFileRepoUrl("csvgen",.txt) write txt
if ##class(%ZAPM.ext.zpm).GetPickFileRepoUrl("csvgen",.txt,"LICENSE") write txt
• classmethod GetPickRepoUrl(name, ByRef repo)
as %Status
if ##class(%ZAPM.ext.zpm).GetPickRepoUrl("csvgen",.repo) write repo
• classmethod GetUrlRepoArhive(tLocation)
as %String
https://github.com/SergeyMi37/zapm-addcmd.git
https://codeload.github.com/SergeyMi37/zapm/zip/master
write ##class(%ZAPM.ext.zpm).GetUrlRepoArhive("https://github.com/SergeyMi37/zapm-addcmd.git")
https://gitlab.com/sergeymi/test.git
https://gitlab.com/sergeymi/test/-/archive/master/test-master.zip
write ##class(%ZAPM.ext.zpm).GetUrlRepoArhive("https://gitlab.com/sergeymi/test.git")
• classmethod GetVerZpm(ByRef IsHspm, ByRef RepoFieldName)
Version ZPM
write ##class(%ZAPM.ext.zpm).GetVerZpm(.IsHspm)
• classmethod GetVersion(ModuleName, ByRef out, list)
Get Version modules
example do ##class(%ZPM.PackageManager).GetVersion("zpm,zpm-registry",.out,.list)
• classmethod GetgithubRepo(context, ByRef urllist, ByRef count)
as %Status
do ##class(%ZAPM.ext.zpm).GetgithubRepo("SergeyMi37=repos?fork=0&name=msw&url=",.list,.co) w !,co ;w list
do ##class(%ZAPM.ext.zpm).GetgithubRepo("rcemper=repos?fork=0&name=global",.list,.co) w !,co ;w list
do ##class(%ZAPM.ext.zpm).GetgithubRepo("evshvarov=repos?fork=0",.list,.co) w !,co ;w list
• classmethod InstallModule(name, ns="", Version="", Repo="", gn="", err, fromrepo="")
as %Status
• classmethod InstallPy(lib)
do ##class(%ZAPM.ext.zpm).InstallPy("openpyxl")
• classmethod LoadRegistrys(modulename="", all=0, skipZPM=1, StartingFrom="")
as %Status
do ##class(%ZAPM.ext.zpm).LoadRegistrys()
do ##class(%ZAPM.ext.zpm).LoadRegistrys("c*",1)
do ##class(%ZAPM.ext.zpm).LoadRegistrys("app*",0,0) ;app* install manualy
do ##class(%ZAPM.ext.zpm).LoadRegistrys(,,,"iris-csv-anonymizer")
• classmethod PickApp(context, ByRef num, ByRef obj, silent=0, ByRef urllist)
as %Status
do ##class(%ZAPM.ext.zpm).PickApp("zapm",.num, .json, 1, .list) zw list
• classmethod PickOexMap(context, ByRef num)
as %Status
do ##class(%ZAPM.ext.zpm).PickOexMap("oex-mappi")
• classmethod Publish2Reg(modulename="", all=0, skipZPM=1, StartingFrom="")
as %Status
do ##class(%ZAPM.ext.zpm).Publish2Reg(,1)
• classmethod Publish2ns(ns, zpmmod, all=1, gn)
as %Status
write ##class(%ZAPM.ext.zpm).Publish2ns("USER",.arr)
• classmethod PublishModule(name, ns="", Version="", Repo="", gn="", err)
as %Status
• classmethod SetColorScheme(scheme={$s($zversion(1)=3 As "dark", 1 As "white")})
as %Status
do ##class(%ZAPM.ext.zpm).SetColorScheme("dark")
• classmethod SetModuleVersion(modulename="zapm", gn=..#GNSET, ver="")
as %Status
write ##class(%ZAPM.ext.zpm).SetModuleVersion("zapm","^%ZAPM.settings","1.0.15")
• classmethod SetProxy(ByRef req)
as %Status
• classmethod ShowLog(fn="", All=0, gn="", filtr="")
as %Status
do ##class(%ZAPM.ext.zpm).ShowLog(,1) - output without errors
do ##class(%ZAPM.ext.zpm).ShowLog() - output with errors
;or do ##class(%ZAPM.ext.zpm).ShowLog("d:\_proj\!\zapm.log")
• classmethod UnloadAndDeleteDBNS(name, Version="", Repo="", gn=..#GN)
as %Status
d ##class(%ZAPM.ext.zpm).UnloadAndDeleteDBNS("sync-dstime")
• classmethod Upgrade(ns=$namespace)
as %Status
Upgrade all installed modules
write ##class(%ZAPM.ext.zpm).Upgrade()
• classmethod UpgradeList(List)
as %Status
write ##class(%ZAPM.ext.zpm).UpgradeList(.list)
• classmethod WriteFavorite(zpmname, ServerPort, url="", repo="")
as %Status
• classmethod WriteShowLog(gn)
as %Status
• classmethod ZPMColorScheme()
as %String
write ##class(%ZAPM.ext.zpm).ZPMColorScheme()
• classmethod add2xdata(dir="d:\_proj\_zpm\appt-core\src\cls\", classname)
Add XDATA to another class
d ##class(%ZAPM.ext.zpm).add2xdata("/backup/iris/distr/apptools-task/","Test.test")
• classmethod cmdzpm()
as %String
command zpm
• classmethod cmdzpmext()
as %String
command zapm
• classmethod editor(cmd)
as %Status
• classmethod extcmd(cmd="")
as %Status
extention zpm commands
do ##class(%ZAPM.ext.zpm).extcmd("load https://github.com/Vassil2010/iris-sms")
zapp "newdb spool-demo"
• classmethod exthelp(cmd="")
as %Status
• classmethod find(extcmd)
as %Status
• classmethod help(cmd="")
as %Status
• classmethod info(extcmd)
as %Status
• classmethod list(extcmd)
as %Status
• classmethod pick(context="")
as %Status
do ##class(%ZAPM.ext.zpm).pick("soa")
• classmethod pickLoad(num, gn, gnr, sort=0)
as %Status
• classmethod pickupd(gn, gno)
as %Status
do ##class(%ZAPM.ext.zpm).pickupd(gn) ; -u - update everything
• classmethod pickupnew(gnr, num, days="")
as %Status
do ##class(%ZAPM.ext.zpm).pickupnew(gn)
• classmethod prod(extcmd)
as %Status
• classmethod prodlist(mode="")
as %Status
• classmethod reg(context="")
as %Status
do ##class(%ZAPM.ext.zpm).reg() ;view registrys
• classmethod ver()
as %String
write ##class(%ZAPM.ext.zpm).ver()
