1 TECH.ClassInfo.QNameFinder svn.Helper 1 %Boolean 1 %String %String Tools.impl.ICommand list 1 %String 1 1 TECH.ClassInfo.ClassDefinition array 1 %String array 1 %Dictionary.ClassDefinition list 1 ZoekOpPrefix:%Boolean=0 1 1 %Status ClassFrom:%String,ClassTo:%String ClassFrom:%String,ClassTo:%String ClassName:%String 1 %Boolean ClassFrom:%String,ClassTo:%String String:%String,Prefix:%String,Suffix:%String,Class:TECH.ClassInfo.ClassDefinition 1 %String %ListOfDataTypes %String 1) Set NieuweLijn = NieuweLijn_" = "_##class(TECH.StringUtils).Trim($Piece(LijnZonderPrefix,"=",2,$Length(LijnZonderPrefix,"="))) Set Lijn = NieuweLijn Set AantalWijzigingen = AantalWijzigingen + 1 } } If (Lijn [ "##class(") { #dim Vervangen As %String = ..ReplaceBetween(Lijn,"##class(",")",Class) If (Vervangen '= Lijn) { Set AantalWijzigingen = AantalWijzigingen + 1 Set Lijn = Vervangen } } Quit Lijn ]]> ClassName:%String 1 ClassName:%String 1 %String SourceCode:%String 1 SourceCodeFrom:%String,SourceCodeTo:%String 1 1 Class:TECH.ClassInfo.ClassDefinition 1 Class:TECH.ClassInfo.ClassDefinition 1 Class:TECH.ClassInfo.ClassDefinition 1 Class:TECH.ClassInfo.ClassDefinition,Method:TECH.ClassInfo.MethodDefinition 1 0 { Do ..Berichten(Class.GeefNaam()).Insert("In de method "_Method.GeefNaam()_" "_AantalWijzigingen_" keer gebruikt") Do ..Commands.Insert(##class(Tools.impl.RenameImplementationCommand).%New(Lijnen, Method)) Do ..ClassesToSave.SetAt(Class,Class.GeefNaam()) } ]]> Class:TECH.ClassInfo.ClassDefinition,Method:TECH.ClassInfo.MethodDefinition 1 Class:TECH.ClassInfo.ClassDefinition,Method:TECH.ClassInfo.MethodDefinition 1 1 0 { set ..Berichten(rsRoutine.Get("Name"))=##class(%ListOfDataTypes).%New() Do ..Berichten(rsRoutine.Get("Name")).Insert(AantalWijzigingen_" keer gebruikt") Do ..Commands.Insert(##class(Tools.impl.RenameRoutineCommand).%New(Lijnen, rsRoutine.Get("Name"))) Do ..RoutinesToSave.SetAt(rsRoutine.Get("Name"),rsRoutine.Get("Name")) } } ]]> 1 0) { if $piece(SourceCode,".",$length(SourceCode,"."))="mac" { write "In routine "_SourceCode_":",! } else { write "In klasse "_SourceCode_":",! } Set Iterator = ##class(TECH.ListIterator).%New(..Berichten(SourceCode)) while (Iterator.HasNext()) { w $J(" ",4)_"- "_Iterator.Next(),! } } Set SourceCode = $Order(..Berichten(SourceCode)) } If (##class(%Dictionary.ClassDefinition).%ExistsId(..RenameTo)) { w !,"WAARSCHUWING: "_..RenameTo_" bestaat reeds en zal worden overschreven!",! } ]]> 1 %Boolean 1 1 1 1 1