+
+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()
+ kill mdSources set mdSources(SourceCode)=""
+ do ..CompileList(.mdSources,Flags,.mdErrors)
+ if 'mdErrors 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
+
+
+
+
+
+
+
+
+
+