svn,%occErrors 1 %RegisteredObject svn2Filebridge this comes from TEMP variabele %String Product name, e.g. VSS, ClearCase, CVS, etc.. SVN svn.CompileList %Boolean 0 svn.SyncStatus array %String array %String %String %String %String this indicates the branch name, default is trunk %String 1 %String 1 %Boolean %ListOfDataTypes TECH.CSP.CSPApplicatie 1 !!!! Path and WorkSpacePath are case sensitive 1 Path:%String,WorkSpacePath:%String iPath:%String %String InternalName %Status "_ExternalName, ! } do ##class(svn.SourceCodeInfo).Update(InternalName,ExternalName) } else { write "Skipping : "_InternalName } quit ]]> Filename:%String %Status InternalName:%String,isDirectory:%Boolean=0,flagDeleteCode:%Boolean=1 %String tFile:%String %Status rset:%ResultSet 1 %Boolean InternalName InternalName 1 InternalName %Boolean flagRecompile:%Boolean=0 0) { if flagRecompile { set idxSource="" set ListToCompile = ##class(TECH.ListUtils).CopyListOfDataTypes(..ToCompile.List) set itListToCompile = ##class(TECH.ListIterator).%New(ListToCompile) while itListToCompile.HasNext() { set SourceCode = itListToCompile.Next() if ##class(TECH.SourceCodeUtils).Exists(SourceCode) { kill mdSources set mdSources(SourceCode)="" do ..CompileList(.mdSources,Flags,.mdErrors) if 'mdErrors do ##class(TECH.ListUtils).RemoveItemFromList(SourceCode,..ToCompile.List) } else { do ##class(TECH.ListUtils).RemoveItemFromList(SourceCode,..ToCompile.List) } } } if 'flagRecompile { do ..CompileList(.mdSources,Flags,.mdErrors) if 'mdErrors do ..ToCompile.List.Clear() } do ..ToCompile.%Save() } set ..ExecCompile = 0 ]]> 1 0 InternalName %Boolean accessor method for LocalWorspacePath property pBranch:%String="" %String pBranch:%String="" %String pBranch:%String="" %String JBL + set path to a good format Path:%String="" %String Convert the internal name, e.g. TEST.MAC to an external name that is used to export the routine/class/csp item. This is often a filename to write the file out to. InternalName:%String,FullPath:%Boolean=1 %String \package\classname.cls.xml to an internal name that is used to import the routine/class/csp item. ]]> ExternalName:%String,LocalWorkSpacePath:%String="" %String %String %ListOfDataTypes %ListOfDataTypes %ListOfDataTypes %ListOfObjects InternalName %String Horolog1,Horolog2 1 %Boolean InternalName %Boolean InternalName %Boolean ExternalName %Boolean InternalName %Boolean Delete is nodig wanneer code nog bestaat in database maar niet meer op het filesysteem en als er in de database een import/export historiek bestaat. InternalName %Boolean InternalName:%String InternalName 1 svn.SyncStatus InternalName Input:%String,WildCard:%String 0 InternalName %Boolean WildCard:%String,StartWith:%String helper function to create intermediate directory when needed pFilename:%String 1 accessor method for LocalWorspaceRoot property %String accessor method for LocalWorspaceRoot property %String accessor method for LocalWorspaceRoot property %String accessor method for RepositoryRoot property this method automatically adds NAMESPACE to the repository root %String DK 2.10 %Boolean pBranch:%String="" %String %Boolean %Boolean %New method to provide notification that a new instance of an object is being created.

If this method returns an error then the object will not be created.

It is passed the arguments provided in the %New call. When customizing this method, override the arguments with whatever variables and types you expect to receive from %New(). For example, if you're going to call %New, passing 2 arguments, %OnNew's signature could be:

Method %OnNew(dob as %Date = "", name as %Name = "") as %Status]]> initvalue:%CacheString 1 1 %Status %String %String ExternalName,InternalName %Status %Status ")&&(Line["") continue:$$$StartsWith(Line,"")&&(Line["") continue:$$$StartsWith(Line,"" #endif do File.WriteLine(Line) } do File.SaveStream() quit Status ]]> %Status ExternalName:%String %Status ExternalName:%String,InternalName:%String="" %Status ExternalName:%String,InternalName:%String="" ExternalName:%String 1 set Hash=$system.Encryption.MD5Encode(Hash) #else Set Hash=$system.Encryption.SHA1HashStream(Stream) #endif if flagIsTempFile { do ##class(%File).Delete(ExternalName) } quit Hash ]]> InternalName:%String %String Path:%String Revisions...:%String %ListOfDataTypes 0) { if ResultInfo.Action = "D" { if ##class(TECH.SourceCodeUtils).Type(InternalName) = "other" { do ..RemovePackageFromArray(arrFiles,InternalName) } do arrFiles.RemoveAt(InternalName) } else { do arrFiles.SetAt(InternalName,InternalName) } } Else { w "Geen interne klasse gevonden voor "_ResultInfo.ExternalName,! } } } } Kill ^oddPROJECT(..#svn2FilebridgeProjectname) set Project = ##class(%Studio.Project).%New() set Project.Name = ..#svn2FilebridgeProjectname set itFiles = ##class(TECH.ListIterator).%New(arrFiles) while itFiles.HasNext() { set InternalName = itFiles.Next() set Extension = $zconvert($piece(InternalName,".",$length(InternalName,".")),"l") if ##class(TECH.SourceCodeUtils).Type(InternalName) = "class" { set InternalName = $piece(InternalName,".",1,$length(InternalName,".")-1) } if Extension="inc" set Extension="mac" set scAddItem = Project.AddItem(InternalName,Extension) } write Project.%Save() quit ]]> arrInternalNames:%ArrayOfDataTypes,Package:%String InternalName:%String %Boolean 0 { set itExternalNames = ##class(TECH.ListIterator).%New(listExternalNames) while itExternalNames.HasNext() { set ExternalName = itExternalNames.Next() do ..SVNImport(ExternalName) } do ..CompileImportedSourceCode() } ]]>