Index: TECH/Exceptions/LockedException.cls.xml =================================================================== diff -u --- TECH/Exceptions/LockedException.cls.xml (revision 0) +++ TECH/Exceptions/LockedException.cls.xml (revision 28) @@ -0,0 +1,14 @@ + + + +1 +TECH.Exceptions.AbstractOmschrijvingException +0 + + +TECH.enu.ExceptionCode + + + + Index: TECH/Install.cls.xml =================================================================== diff -u --- TECH/Install.cls.xml (revision 0) +++ TECH/Install.cls.xml (revision 28) @@ -0,0 +1,38 @@ + + + +vhLib.Macro +1 +%RegisteredObject +0 + + +1 + + + + FishEye: Tag 19 refers to a dead (removed) revision in file `TECH/Iterator.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: TECH/Print/API.cls.xml =================================================================== diff -u --- TECH/Print/API.cls.xml (revision 0) +++ TECH/Print/API.cls.xml (revision 28) @@ -0,0 +1,32 @@ + + + +1 +%RegisteredObject +0 + + +1 +Toepassing:%String="",Printer:%String=0 +TECH.Print.Printer + is onbestaand") + Quit:'$D(^TECH("PRINT",Toepassing,0)) $$$ERROR($$$GeneralError,"Toepassing <"_Toepassing_"> default printer implementatie is onbestaand") + + If '$D(^TECH("PRINT",Toepassing,Printer)) Set Printer = 0 // indien geen specifieke implementatie voor printer default implementatie nemen + + Set PrinterClassname = $G(^TECH("PRINT",Toepassing,Printer)) + + Set FullPrinterClassname = "TECH.Print.impl."_PrinterClassname + Quit:'##class(%Library.CompiledClass).%ExistsId(FullPrinterClassname) $$$ERROR($$$GeneralError,"Klasse "_FullPrinterClassname_" is onbestaand") + + Merge Settings = ^TECH("PRINT",Toepassing,Printer,PrinterClassname) + + Set objPrinter = $zobjClassmethod(FullPrinterClassname,"%New",Toepassing , .Settings) + + Quit objPrinter +]]> + + + Index: TECH/Concurrency/Transactie.cls.xml =================================================================== diff -u --- TECH/Concurrency/Transactie.cls.xml (revision 0) +++ TECH/Concurrency/Transactie.cls.xml (revision 28) @@ -0,0 +1,214 @@ + + + + +Deze klasse combineert transacties (die een rollback toelaten) en locks. +N.B. Bij SQL statements is het starten van een transactie voldoende +om de nodige locking en unlocking te laten gebeuren. + +Let op: gedrag van SQL engine bij UPDATE: +1) De evaluatie van WHERE-clause gebeurt t.o.v. de eventueel nog + niet-gecommitte data (ook indien in read committed modus). +2) De records die een match zijn t.o.v. de WHERE clause worden ge-locked + indien nodig voor het isolation level. +3) De WHERE-clause wordt opnieuw geëvalueerd. +TECH.ExcHandling +TECH.Error +1 +%RegisteredObject +0 + + + +TODO: Indien niet Gestart, dan geen locks uitvoeren. +TxStatus +1 + + + +ObjectLock +array +1 + + + +TxIsolatieLevel +1 + + + +IsolatieLevel:TxIsolatieLevel="" +%Status + + + + +TxIsolatieLevel + + + + +TxStatus + + + + +%ArrayOfObjects + + + + +Object:%Persistent + + + + +Object:%Persistent + + + + +Object:%Persistent + + + + +Object:%Persistent + + + + + + + + + + + + + + + + +1 + + + + +StatusCode:%Status,Message:%String +1 + + + + +Object:%Persistent,Shared:%Boolean +1 + + + + +ObjectLock:ObjectLock +1 + + + + +ObjectLock:ObjectLock +1 + + + + +ObjectLock:ObjectLock +1 + + + + +Object:%Persistent,Shared:%Boolean +1 +ObjectLock + + + + +Bericht +1 + + + + Index: TECH/Print/Kolommen/Document.cls.xml =================================================================== diff -u --- TECH/Print/Kolommen/Document.cls.xml (revision 0) +++ TECH/Print/Kolommen/Document.cls.xml (revision 28) @@ -0,0 +1,194 @@ + + + + +Een document is de klasse die de werkelijke voorstelling levert voor een te printen document (al dan niet op scherm) +Het is mogelijk om volledige lijnen toe te voegen aan het document (met een delimiter) die verspreid zullen worden over de kolommen +Het is ook mogelijk om lijnen toe te voegen aan specifieke kolommen, niet alle kolommen hoeven even lang te zijn +1 +%RegisteredObject +0 + + +%String +1 + + + +%String +1 + + + +TECH.Print.Kolommen.Kolom +list +1 + + + +%String + + + +%String + + + +TECH.Print.Kolommen.DocumentType + + + + +Documentid is de id die werd gebruikt om het documenttype te definiëren. +De titel en subtitel (optioneel) komen bovenaan op de pagina te staan +De reskey is volledig optioneel en wordt enkel in de databank gebruikt voor het opslaan van de global +DocumentId:%String,Titel:%String,Subtitel:%String="",ResKey:%String="TECHDOCGEN" +%Status + + + + + +Wist alle ingevoerde gegevens in de kolommen +%Status + + + + +%Integer + + + + +KolomIndex:%Integer +TECH.Print.Kolommen.Kolom + + + + +1 + + + + +%Integer + + + + + +Sorteert het document op een welbepaalde kolom. +Optioneel: RegelVan, RegelTot. Indien opgegeven worden enkel de regels binnen het bereik gesorteerd +Comparator:TECH.Comparator.IComparator,Kolom:%Integer,RegelVan:%Integer=1,RegelTot:%Integer="" + + + + + +Print de inhoud van het document +PrintToScreen = True zorgt voor een print op het scherm +Bedrijf:%String,PrintToScreen:%Boolean=##CLASS(TECH.Config.ConfigMgr).Instance().GetString("PrintLijstenOpScherm") +%Status + + + + + +Voegt een lijn met delimiters toe aan de kolommen, waarbij elke piece in de opeenvolgende kolom wordt geplaatst +Lijn:%String,Delimiter:%String +%Status + + + + Index: TECH/Vector.cls.xml =================================================================== diff -u --- TECH/Vector.cls.xml (revision 0) +++ TECH/Vector.cls.xml (revision 28) @@ -0,0 +1,213 @@ + + + +serial +1 +%SerialObject +0 + + +%Float + + + +%Float + + + +%Float + + + +X:%Float,Y:%Float,Z:%Float +1 +1 +%Status + + + + +%String + + + + +1 +Graden:%Float +%Float + + + + +1 +Radialen:%Float +%Float + + + + +%Boolean + + + + +v2:Vector +Vector + + + + +v2:Vector +%Float + + + + +v2:Vector +Vector + + + + +V2:Vector + + + + +Digits=5 +Vector + + + + + +Clips the vector between 0 and the given maximum value for each coordinate +MaxX:%Float,MaxY:%Float,MaxZ:%Float +Vector +MaxX: MaxX, 1: ..X) + Set YRes = $Select(..Y<0: 0, ..Y>MaxY: MaxY, 1: ..Y) + Set ZRes = $Select(..Z<0: 0, ..Z>MaxZ: MaxZ, 1: ..Z)*/ + Set XRes = $Select(..X>MaxX: MaxX, 1: ..X) + Set YRes = $Select(..Y>MaxY: MaxY, 1: ..Y) + Set ZRes = $Select(..Z>MaxZ: MaxZ, 1: ..Z) + Quit ..%New(XRes, YRes, ZRes) +]]> + + + +%Float + + + + +Vector + + + + +Vector + + + + +v2:Vector +%Float + + + + +Angle:%Float +Vector + + + + +Angle:%Float +Vector + + + + +Angle:%Float +Vector + + + + + +Rotate the vector around another vector over an angle. The other vector needs to a unit vector. +Angle:%Float,Around:Vector +Vector + + + + +%Library.CacheSerialState +VectorState +^TECH.VectorS + +listnode +"TECH.Vector" + +X + + +Y + + +Z + + + + + Index: Tools/impl/MoveHelper.cls.xml =================================================================== diff -u --- Tools/impl/MoveHelper.cls.xml (revision 0) +++ Tools/impl/MoveHelper.cls.xml (revision 28) @@ -0,0 +1,345 @@ + + + +1 +TECH.ClassInfo.QNameFinder +0 + + +svn.Helper +1 + + + +%Boolean +1 + + + +%String +1 + + + +%String +1 + + + +ZoekOpPrefix:%Boolean=0 +1 +1 +%Status + + + + + +Set cls="DUAL" +Do ##class(Tools.impl.MoveHelper).%New().Move("APPS.VisiDot."_cls,"APPS.VisiDot.dto."_cls) +q +Do ##class(Tools.impl.MoveHelper).%New().Move("APPS.VisiDot.DUAL","APPS.VisiDot.dto.DUAL") +ClassFrom:%String,ClassTo:%String + 0) + { + Do Berichten(Class.GeefNaam()).Insert("In de method "_Method.GeefNaam()_" "_i_" keer gebruikt") + Do Commands.Insert(##class(Tools.impl.RenameImplementationCommand).%New(Lijnen, Method)) + Do ClassesToSave.SetAt(Class,Class.GeefNaam()) + } + } + } + } + + w "Volgende items zullen hernoemd worden:",!! + + Set Klasse = $Order(Berichten("")) + While (Klasse '= "") + { + If (Berichten(Klasse).Count() > 0) + { + w "In klasse "_Klasse_":",! + Set Iterator = ##class(TECH.ListIterator).%New(Berichten(Klasse)) + While (Iterator.HasNext()) + { + w $J(" ",4)_"- "_Iterator.Next(),! + } + } + Set Klasse = $Order(Berichten(Klasse)) + } + + If (##class(%Dictionary.ClassDefinition).%ExistsId(ClassTo)) + { + w !,"WAARSCHUWING: "_ClassTo_" bestaat reeds en zal worden overschreven!",! + } + + Set Input = "" + While (Input '= "Y") && (Input '= "N") + { + w !,"Wilt u deze acties uitvoeren? (Y/N)",! + read Input + } + + If (Input = "Y") + { + w !!,"Uitvoeren van de acties:",!! + + Set CommandIterator = ##class(TECH.ListIterator).%New(Commands) + While (CommandIterator.HasNext()) + { + Set Command = CommandIterator.Next() + w $J(" ",4)_"- " + Set Status = Command.Execute() + w ! + + If ($$$ISERR(Status)) w $J(" ",6)_"Fout: "_$$ParseStatus^vhLib(Status),! + } + + Set ClassesIterator = ##class(TECH.ListIterator).%New(ClassesToSave) + While (ClassesIterator.HasNext()) + { + Set Class = ClassesIterator.Next() + If ('##class(TECH.ListUtils).Contains(TeVerplaatsenKlassen, ##class(%Dictionary.ClassDefinition).%OpenId(Class.GeefNaam()))) + { + w $J(" ",4)_"- Opslaan "_Class.GeefNaam(),! + Set Status = Class.Save() + If ($$$ISERR(Status)) w $J(" ",6)_"Fout: "_$$ParseStatus^vhLib(Status),! + Else Do ..ExportToSVN(Class.GeefNaam()) + } + } + + + Set TeVerplaatsenIterator = ##class(TECH.ListIterator).%New(TeVerplaatsenKlassen) + While (TeVerplaatsenIterator.HasNext()) + { + Set ClassFromDefinition = TeVerplaatsenIterator.Next() + Do ##class(%Dictionary.ClassDefinition).%DeleteId(..RenameNaar(ClassFromDefinition.Name)) + w $J(" ",4)_"- Klasse "_ClassFromDefinition.Name_" verplaatsen...",! + + // De klasse mag pas op het einde van alle acties verplaatst worden, dit is nodig als er zich in de te verplaatsen + // klasse een referentie is naar zichzelf, anders wordt deze niet hernoemd. + Set Clone = ClassFromDefinition.%ConstructClone(1) + Set Clone.Name = ..RenameNaar(ClassFromDefinition.Name) + Set Status = Clone.%Save() + If ($$$ISERR(Status)) w $J(" ",6)_"Fout: "_$$ParseStatus^vhLib(Status),! + Else Do ..ExportToSVN(Clone.Name) + } + + Set Input = "" + While (Input '= "Y") && (Input '= "N") + { + w !,"Wilt u volgende klassen definitief verwijderen? (Y/N)",! + Set TeVerplaatsenIterator = ##class(TECH.ListIterator).%New(TeVerplaatsenKlassen) + While (TeVerplaatsenIterator.HasNext()) + { + Set ClassFromDefinition = TeVerplaatsenIterator.Next() + w $J(" ",4)_"- Klasse "_ClassFromDefinition.Name_"",! + } + read Input + } + + If (Input = "Y") + { + Set TeVerplaatsenIterator = ##class(TECH.ListIterator).%New(TeVerplaatsenKlassen) + While (TeVerplaatsenIterator.HasNext()) + { + Set ClassFromDefinition = TeVerplaatsenIterator.Next() + Set Status = $SYSTEM.OBJ.Delete(ClassFromDefinition.Name_".cls") //##class(%Dictionary.ClassDefinition).%DeleteId(ClassFromDefinition.Name) + If ($$$ISERR(Status)) w $J(" ",6)_"Fout: "_$$ParseStatus^vhLib(Status),! + Else Do ..DeleteFromSVN(ClassFromDefinition.Name) + } + } + + Do ..svnHelper.CompileImportedSourceCode() + + } + + w !!,"GELIEVE EEN NIEUWE TERMINAL TE OPENEN VOOR DE VOLGENDE VERPLAATS ACTIE!",!! +]]> + + + +Class:TECH.ClassInfo.ClassDefinition,String:%String,Prefix:%String,Suffix:%String +1 +%String + + + + +ClassName:%String +1 + + + + +ClassName:%String +1 +%String + + + + +Classname:%String +1 + + + + +Classname:%String +1 + + + + Index: TECH/Print/Kolommen/DocumentType.cls.xml =================================================================== diff -u --- TECH/Print/Kolommen/DocumentType.cls.xml (revision 0) +++ TECH/Print/Kolommen/DocumentType.cls.xml (revision 28) @@ -0,0 +1,131 @@ + + + + +Beschrijft de structuur van het af te printen document +1 +%RegisteredObject +0 + + +%String +1 + + + +%String +1 + + + +TECH.Print.Kolommen.KolomDefinitie +list +1 + + + + +Documentid moet uniek zijn, Reskey is optioneel en wordt enkel gebruikt in de global +DocumentId:%String,ResKey:%String="TECHDOCGEN" +1 +1 +%Status + + + + + +Verwijder de documentdefinitie uit de global +%Status + + + + +%Integer + + + + +Index:%Integer +TECH.Print.Kolommen.KolomDefinitie + + + + + +Laad alle kolommen die reeds aanwezig zijn onder de opgegeven keys +1 + + + + +KolomIndex:%Integer +%Status + + + + +Kolom:TECH.Print.Kolommen.KolomDefinitie +%Status + + + + + +Sla het documenttype op in de bijbehorende globals zodat er document met gemaakt kunnen worden + + + + Index: TECH/Concurrency/TxScopeOptie.cls.xml =================================================================== diff -u --- TECH/Concurrency/TxScopeOptie.cls.xml (revision 0) +++ TECH/Concurrency/TxScopeOptie.cls.xml (revision 28) @@ -0,0 +1,85 @@ + + + + +Opties voor het gebruiken en scopen van transacties. +Voor uitleg bij de mogelijkheden, zie http://java.sun.com/j2ee/tutorial/1_3-fcs/doc/Transaction3.html +datatype +1 +%String + + +,Required,RequiresNew,Supports,Mandatory,NotSupported + + + + + + + +1 +TxScopeOptie + + + + + + + + +1 +TxScopeOptie + + + + + + + + +1 +TxScopeOptie + + + + + + + + +1 +TxScopeOptie + + + + + + + + +1 +TxScopeOptie + + + + Index: TECH/Mail.cls.xml =================================================================== diff -u --- TECH/Mail.cls.xml (revision 0) +++ TECH/Mail.cls.xml (revision 28) @@ -0,0 +1,158 @@ + + + + +JBL + 2011-05-17 +1 +%RegisteredObject +0 + + + +Check een email adres adhv pattern-match, en afzonderlijke controles. +Tevens kan een nslookup van het domein gedaan worden, aan te geven via parameter. +Write ##class(TECH.Mail).Check("jbl@vanhoecke.be") +Write ##class(TECH.Mail).Check("jbl@nietbestaand.be",1) + +Return +1 = OK +0 = Foutieve syntax +-1 = NSLookup niet geslaagd. +1 +Mail:%String,NsLookUp:%Boolean=0,CacheNsLookUp:%Boolean=0 +1 +%Status + + + + + +Eerste en laatste teken van local part mogen geen punt zijn. +Er mogen geen twee of meer opeenvolgende punten achter elkaar staan. +1 +MailPart +1 + + + + +1 +MailDomainPart:%String +%Status + + + + +1 +MailDomainPart:%String +1 +%Status + + + + +1 +MailDomainPart:%String +1 +%Status + + + + +1 +NsLookUp:%String,MailDomainPart:%String,HandleMethod:%String +1 +%Status + c:\"_FileName + s Ok=$ZF(-1,Exec) + Set %NsLookUp=0 + Set FileName=$$READ^vhDEV("c:\",FileName,"D`##class("_..%ClassName(1)_")."_HandleMethod_"","M") + Set Status = %NsLookUp + Set:'Status Status = $$$ERROR($$$GeneralError,"Niet bestaand domein.") + Do DELFILE^vhDEV("c:\",FileName) + Kill %NsLookUp + Set %NsLookUps(MailDomainPart) = Status + Quit Status +]]> + + + +1 +Rec + + + + +1 +Rec + + + + Index: TECH/Print/Kolommen/TekstUitlijning.cls.xml =================================================================== diff -u --- TECH/Print/Kolommen/TekstUitlijning.cls.xml (revision 0) +++ TECH/Print/Kolommen/TekstUitlijning.cls.xml (revision 28) @@ -0,0 +1,27 @@ + + + +datatype +1 +%String +0 + + +,L,R + + + +1 +%String + + + + +1 +%String + + + + Index: TECH/Exceptions/AbstractOmschrijvingException.cls.xml =================================================================== diff -u --- TECH/Exceptions/AbstractOmschrijvingException.cls.xml (revision 0) +++ TECH/Exceptions/AbstractOmschrijvingException.cls.xml (revision 28) @@ -0,0 +1,44 @@ + + + +1 +TECH.Exceptions.Exception +0 + + +%String +1 + + + +Omschrijving:%String +1 +1 +%Status + + + + + +Wordt gebruikt om in de ecode weg te schrijven, de omschrijving blijft dus best beperkt. +%String + + + + + +Wordt door de error handler in het e-mailbericht bijgeschreven. +%String + + + + Index: TECH/Concurrency/TransactionMgr.cls.xml =================================================================== diff -u --- TECH/Concurrency/TransactionMgr.cls.xml (revision 0) +++ TECH/Concurrency/TransactionMgr.cls.xml (revision 28) @@ -0,0 +1,160 @@ + + + + +Koppeling van Transactie aan locks en aan het huidige proces. +TODO: Geneste Start / Commit ondersteunen. +TECH.Error +1 +%RegisteredObject +0 + + +1 + + + + +1 + + + + +1 + + + + +1 +Object:%Persistent + + + + +1 +Object:%Persistent + + + + +1 +Object:%Persistent + + + + +1 +Object:%Persistent + + + + +1 + + + + + +Opvragen of we momenteel in de context van een transactie lopen. +1 +%Boolean + + + + + +Opvragen of we momenteel in de context van een RepeatableRead transactie lopen. +1 +%Boolean + + + + + +Opvragen of we momenteel in de context van een ReadCommitted transactie lopen. +1 +%Boolean + + + + +1 + + + + +1 +1 + + + + +1 +Transactie:Transactie +1 + + + + FishEye: Tag 19 refers to a dead (removed) revision in file `TECH/IO.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: Tools/CompileEnumerator.cls.xml =================================================================== diff -u --- Tools/CompileEnumerator.cls.xml (revision 0) +++ Tools/CompileEnumerator.cls.xml (revision 28) @@ -0,0 +1,150 @@ + + + + +Compileert alle persistente klasse die een bepaalde enumerator als property hebben. +1 +%RegisteredObject +0 + + + +Do ##class(Tools.CompileEnumerator).Compile("DOM.PM.enu.Variant") +1 +EnumeratorKlasse:%String,VraagBevestiging:%Boolean=1 + + + + +1 + + + + + +1 +ClassDefinition:%Dictionary.ClassDefinition,EnumeratorKlasse:%String +1 + + + + Index: TECH/ExceptionHandler.cls.xml =================================================================== diff -u --- TECH/ExceptionHandler.cls.xml (revision 0) +++ TECH/ExceptionHandler.cls.xml (revision 28) @@ -0,0 +1,61 @@ + + + +1 +%RegisteredObject +0 + + +1 +Exception:TECH.IException + + + + +1 +ExceptionTypes...:%String +TECH.IException + + + + FishEye: Tag 19 refers to a dead (removed) revision in file `TECH/Logon.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: TECH/Concurrency/TxStatus.cls.xml =================================================================== diff -u --- TECH/Concurrency/TxStatus.cls.xml (revision 0) +++ TECH/Concurrency/TxStatus.cls.xml (revision 28) @@ -0,0 +1,42 @@ + + + + +Status van een transactie of transactie scope. +datatype +1 +%String + + +,NietGestart,Gestart,Committed,RolledBack + + + +1 +TxStatus + + + + +1 +TxStatus + + + + +1 +TxStatus + + + + +1 +TxStatus + + + + Index: TECH/ClassInfo/FormalSpecParser.cls.xml =================================================================== diff -u --- TECH/ClassInfo/FormalSpecParser.cls.xml (revision 0) +++ TECH/ClassInfo/FormalSpecParser.cls.xml (revision 28) @@ -0,0 +1,83 @@ + + + +1 +%RegisteredObject +0 + + +%Integer +1 + + + +%String +1 + + + +FormalSpec:%String +%ListOfObjects + + + + +1 +%String + 0) || (AantalQuotes#2 = 1) || ((Char '= "=") && (Char '= ",") && (Char '= ":"))) + { + Set Part = Part _ Char + Set ..Position = ..Position + 1 + + Set AantalOpenBrackets = AantalOpenBrackets + (Char = "(") - (Char = ")") + Set AantalQuotes = AantalQuotes + (Char = """") + Set Char = ..GeefChar() + } + Quit Part +]]> + + + +1 +%String + + + + Index: TECH/enu/DatePart.cls.xml =================================================================== diff -u --- TECH/enu/DatePart.cls.xml (revision 0) +++ TECH/enu/DatePart.cls.xml (revision 28) @@ -0,0 +1,65 @@ + + + +datatype +1 +%String +0 + + +1 +TECH.enu.DatePart + + + + +1 +TECH.enu.DatePart + + + + +1 +TECH.enu.DatePart + + + + +1 +TECH.enu.DatePart + + + + +1 +TECH.enu.DatePart + + + + +1 +TECH.enu.DatePart + + + + +1 +TECH.enu.DatePart + + + + +1 +TECH.enu.DatePart + + + + Index: TECH/Algo/Graph/DependencyGraph.cls.xml =================================================================== diff -u --- TECH/Algo/Graph/DependencyGraph.cls.xml (revision 0) +++ TECH/Algo/Graph/DependencyGraph.cls.xml (revision 28) @@ -0,0 +1,143 @@ + + + +TECH.Error +1 +%RegisteredObject +0 + + +TECH.Algo.Graph.Node +array +1 + + + +1 +1 +%Status + + + + +Node:TECH.Algo.Graph.Node + + + + +DependentNode:TECH.Algo.Graph.Node,Node:TECH.Algo.Graph.Node + + + + +DependentName:%String,Name:%String + + + + +%ListOfObjects + 0) + { + Do ..VisitTopologicalSort(Queue.GetAt(1),.Visited,.DependencyQueue) + Do Queue.RemoveAt(1) + } + + Quit DependencyQueue +]]> + + + + + + + + +%ListOfObjects + + + + + 0) && (Queue.Count() = 0)) + While (('HasCycle) && (Queue.Size > 0)) + { + Set HasCycle = (..VisitCycle(Queue.GetAt(1)) > ..Nodes.Count()) + Do Queue.RemoveAt(1) + } + Quit HasCycle +]]> + + + + +Returns the length of the last visited path, if there is a cycle, it returns the numbers of nodes + 1 +Node:TECH.Algo.Graph.Node,PathLength:%Integer=0 +1 +%Integer + ..Nodes.Count()) && Iterator.HasNext()) + { + Set PathLength = ..VisitCycle(Iterator.Next(),PathLength+1) + } + Quit PathLength +]]> + + + + +Geeft lijst van de Data vertrekkende van de lijst van de Nodes van de Graph. +1 +DependencyQueue:%ListOfObjects +%ListOfObjects + + + + FishEye: Tag 19 refers to a dead (removed) revision in file `TECH/Enumeration.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: TECH/Config/dto/ConfigItem.cls.xml =================================================================== diff -u --- TECH/Config/dto/ConfigItem.cls.xml (revision 0) +++ TECH/Config/dto/ConfigItem.cls.xml (revision 28) @@ -0,0 +1,17 @@ + + + +1 +%RegisteredObject,%XML.Adaptor +0 + + +%String + + + +TECH.Config.dto.ConfigWaarde +list + + + Index: Tools/CacheSourceUtils.cls.xml =================================================================== diff -u --- Tools/CacheSourceUtils.cls.xml (revision 0) +++ Tools/CacheSourceUtils.cls.xml (revision 28) @@ -0,0 +1,26 @@ + + + +1 +%RegisteredObject +0 + + + +Do ##class(Tools.CacheSourceUtils).MoveClass("KlasseVan","KlasseNaar") +1 +ClassToMove:%String,MoveToClass:%String + + + + + +Do ##class(Tools.CacheSourceUtils).MoveClass("PackageVan","PackageNaar") +1 +PackageToMove:%String,MoveToPackage:%String + + + + FishEye: Tag 19 refers to a dead (removed) revision in file `TECH/File.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: TECH/Exceptions/InvalidInputException.cls.xml =================================================================== diff -u --- TECH/Exceptions/InvalidInputException.cls.xml (revision 0) +++ TECH/Exceptions/InvalidInputException.cls.xml (revision 28) @@ -0,0 +1,14 @@ + + + +1 +TECH.Exceptions.AbstractOmschrijvingException +0 + + +TECH.enu.ExceptionCode + + + + Index: TECH/Exceptions/StatusException.cls.xml =================================================================== diff -u --- TECH/Exceptions/StatusException.cls.xml (revision 0) +++ TECH/Exceptions/StatusException.cls.xml (revision 28) @@ -0,0 +1,31 @@ + + + +1 +TECH.Exceptions.BaseException +0 + + +%Status +1 + + + +ExceptionCode:TECH.enu.ExceptionCode,Omschrijving:%String,Status:%Status +1 +1 +%Status + + + + +%String + + + + Index: TECH/Algo/Stapeling/StapelingException.cls.xml =================================================================== diff -u --- TECH/Algo/Stapeling/StapelingException.cls.xml (revision 0) +++ TECH/Algo/Stapeling/StapelingException.cls.xml (revision 28) @@ -0,0 +1,8 @@ + + + +1 +TECH.Exceptions.BaseException +0 + + Index: TECH/Algo/Sort/InsertionSort.cls.xml =================================================================== diff -u --- TECH/Algo/Sort/InsertionSort.cls.xml (revision 0) +++ TECH/Algo/Sort/InsertionSort.cls.xml (revision 28) @@ -0,0 +1,28 @@ + + + +1 +%RegisteredObject +0 + + + +Sorteert de opgegeven lijst zelf. Maakt geen nieuwe lijst aan. +1 +TeSorteren:%ListOfDataTypes,Comparator:TECH.Comparator.IComparator + 0) && (Comparator.IsKleinerDan(Hulp,TeSorteren.GetAt(k)))) + { + Do TeSorteren.SetAt(TeSorteren.GetAt(k),k+1) + Set k = k - 1 + } + Do TeSorteren.SetAt(Hulp,k+1) + } +]]> + + + Index: TECH/GlobalUtils.cls.xml =================================================================== diff -u --- TECH/GlobalUtils.cls.xml (revision 0) +++ TECH/GlobalUtils.cls.xml (revision 28) @@ -0,0 +1,105 @@ + + + +1 +%RegisteredObject +0 + + +1 +Filename:%String,lbGlobals:%List +0 +%String + + + + +1 +Filename:%String,flagOverwrite:%Boolean=1 +0 +%String + database corruptie + new IO,IOPAR,IOT + set IO=Filename + set IOPAR="(::8192)" + set IOT="RMS" + quit $$entry^%GIF(flagOverwrite) + */ +]]> + + + +1 +Filename:%String,flagOverwrite:%Boolean=1 +0 +%String + + + + +1 +Filename:%String,lbGlobals:%List + + + + +1 +Filename:%String,flagOverwrite:%Boolean=1 + + + + +1 +lbGlobals + + + + Index: TECH/ArrayIterator.cls.xml =================================================================== diff -u --- TECH/ArrayIterator.cls.xml (revision 0) +++ TECH/ArrayIterator.cls.xml (revision 28) @@ -0,0 +1,64 @@ + + + +1 +Iterator,%RegisteredObject +0 + + +%String +1 +1 + + + +%String +1 + + + + +Returns true if the iteration has more elements. +%Boolean + + + + + +1 +1 +%Status + + + + + +Returns the next element in the iteration. +Only returns a valid element if HasNext() returns true +Causes an error if HasNext() returns false +%CacheString + + + + + + + + +%String + + + + FishEye: Tag 19 refers to a dead (removed) revision in file `TECH/Files.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: TECH/Config/ConfigService.cls.xml =================================================================== diff -u --- TECH/Config/ConfigService.cls.xml (revision 0) +++ TECH/Config/ConfigService.cls.xml (revision 28) @@ -0,0 +1,44 @@ + + + +1 +%RegisteredObject +0 + + +TECH.Config.dto.ConfigItems + + + + Index: TECH/Print/impl/BartenderPrinter.cls.xml =================================================================== diff -u --- TECH/Print/impl/BartenderPrinter.cls.xml (revision 0) +++ TECH/Print/impl/BartenderPrinter.cls.xml (revision 28) @@ -0,0 +1,102 @@ + + + +1 +TECH.Print.Printer +0 + + +BL.Sys.LabelPrinter +1 + + + +%String + + + +%String +1 + + + +%Status + + + + +pxLabel:TECH.Print.AbstractLabel +%Status + + + + + + + + +pxLabel:TECH.Print.AbstractLabel +%Status + + + + +Toepassing:%String="",Settings +1 +1 +%Status + + + + +pxLabel +1 + + + + +pxLabel +1 + + + + Index: TECH/ChangeInfo.cls.xml =================================================================== diff -u --- TECH/ChangeInfo.cls.xml (revision 0) +++ TECH/ChangeInfo.cls.xml (revision 28) @@ -0,0 +1,74 @@ + + + +1 +1 +%Persistent +0 + + +%String +1 + + + +%TimeStamp +1 + + + +%String +1 + + + +%TimeStamp +1 + + + +%String + + + + +%TimeStamp + + + + +%String + + + + +%TimeStamp + + + + +insert:%Boolean +1 +%Status + + + + Index: TECH/Comparator/IComparator.cls.xml =================================================================== diff -u --- TECH/Comparator/IComparator.cls.xml (revision 0) +++ TECH/Comparator/IComparator.cls.xml (revision 28) @@ -0,0 +1,14 @@ + + + +1 +1 +0 + + +1 +Waarde1:%String,Waarde2:%String +%Boolean + + + Index: TECH/ClassInfo/ClassDefinition.cls.xml =================================================================== diff -u --- TECH/ClassInfo/ClassDefinition.cls.xml (revision 0) +++ TECH/ClassInfo/ClassDefinition.cls.xml (revision 28) @@ -0,0 +1,201 @@ + + + +1 +%RegisteredObject,TECH.ClassInfo.QNameFinder +0 + + +%Dictionary.ClassDefinition +1 + + + +%String +1 + + + +%String +1 + + + +%Boolean + + + + +%Boolean + + + + +%Boolean + + + + +%String + + + + +%String + + + + +TECH.Iterator + + + + +TECH.Iterator + + + + +TECH.Iterator + + + + +TECH.Iterator + + + + +SuperKlassen:%String + + + + +ClassName:%String +1 +1 +%Status + + + + +%Status + + + + +1 +%String + + + + +%Library.CustomStorage + + + Index: TECH/Config/dto/ConfigWaarde.cls.xml =================================================================== diff -u --- TECH/Config/dto/ConfigWaarde.cls.xml (revision 0) +++ TECH/Config/dto/ConfigWaarde.cls.xml (revision 28) @@ -0,0 +1,16 @@ + + + +1 +%RegisteredObject,%XML.Adaptor +0 + + +%String + + + +%String + + + Index: Tools/impl/RenameSuperCommand.cls.xml =================================================================== diff -u --- Tools/impl/RenameSuperCommand.cls.xml (revision 0) +++ Tools/impl/RenameSuperCommand.cls.xml (revision 28) @@ -0,0 +1,40 @@ + + + +1 +%RegisteredObject,Tools.impl.ICommand +0 + + +%String +1 + + + +TECH.ClassInfo.ClassDefinition +1 + + + +RenameTo:%String,ClassDefinition:TECH.ClassInfo.ClassDefinition +1 +1 +%Status + + + + +%Status + + + + Index: TECH/Print/Printer.cls.xml =================================================================== diff -u --- TECH/Print/Printer.cls.xml (revision 0) +++ TECH/Print/Printer.cls.xml (revision 28) @@ -0,0 +1,37 @@ + + + +1 +1 +%RegisteredObject +0 + + +AbstractLabel +list + + + + + + + +Item:AbstractLabel +%Status + + + + +%Status + + + + + + + + Index: TECH/PubSub/Event.cls.xml =================================================================== diff -u --- TECH/PubSub/Event.cls.xml (revision 0) +++ TECH/PubSub/Event.cls.xml (revision 28) @@ -0,0 +1,56 @@ + + + +serial +1 +%SerialObject +0 + + +TECH.PubSub.EventData + + + + +%Integer + + + +%String + + + +Data:TECH.PubSub.EventData +1 +1 +%Status + + + + +%Library.CacheSerialState +EventState +^TECH.PubSub.EventS + +listnode +"TECH.PubSub.Event" + +Data + + +TimeStampje + + +Type + + +TijdCreatie + + + + + Index: TECH/ClassInfo/ParameterDefinition.cls.xml =================================================================== diff -u --- TECH/ClassInfo/ParameterDefinition.cls.xml (revision 0) +++ TECH/ClassInfo/ParameterDefinition.cls.xml (revision 28) @@ -0,0 +1,60 @@ + + + +1 +%RegisteredObject +0 + + +%String +1 + + + +%String +1 + + + +%String +1 + + + +Naam:%String,Type:%String,DefaultWaarde:%String +1 +1 +%Status + + + + +%String + + + + +%String + + + + +Type:%String + + + + +%String + + + + Index: TECH/LogUtils.cls.xml =================================================================== diff -u --- TECH/LogUtils.cls.xml (revision 0) +++ TECH/LogUtils.cls.xml (revision 28) @@ -0,0 +1,103 @@ + + + +1 +%RegisteredObject +0 + + +%String +$ZU( 5);$ZU( 12);$ZU( 18);$ZU( 20);$ZU( 23,1);$ZU( 34);$ZU( 39);$ZU( 55);$ZU( 56,0);$ZU( 56,1);$ZU( 67,10,$J);$ZU( 67,11,$J);$ZU( 67,12,$J);$ZU( 67,13,$J);$ZU( 67,14,$J);$ZU( 67,15,$J);$ZU( 67,4,$J);$ZU( 67,5,$J);$ZU( 67,7,$J);$ZU( 67,8,$J);$ZU( 67,9,$J);$ZU( 68,1);$ZU( 68,21);$ZU( 68,25);$ZU( 68,27);$ZU( 68,32);$ZU( 68,34);$ZU( 68,36);$ZU( 68,38);$ZU( 68,40);$ZU( 68,41);$ZU( 68,43);$ZU( 68,5);$ZU( 68,6);$ZU( 68,7);$ZU(131,0);$ZV;Error;Lev;Routine + + + +%String +F;F0;F1;F2;F3;F4;F5;F6;F7;F8;F9;F11;F12;F55;F56;F57;F58;F60;F61;F62;F70;F71;F90;F91;F92;F93;F94;F95;FDL;FIN;FP;FG;F80;F81;F82;F83;F84;F85;F86;F87;F88;F89;F96;F97;F30;F31;F32;F33;F100;F101;F102;F103;F103;F110;F111;F120;F121;F122;F123;F124;F125;F;F0;F1;F11;F12;F2;F3;F4;F420;F5;F55;F56;F57;F58;F6;F60;F61;F62;F7;F70;F71;F8;F9;F90;F91;F92;F93;F94;F95;FCH;FCS;FDL;FE;FG;FIN;FLO;FMTB;FMTCL;FMTI;FMTK;FMTU;FMTb;FMTi;FMTk;FMTu;FR;FS;FS132;FS80;FSC;FUP + + + +%String +Geen extra info aanwezig. + + + +1 +%String + + + + +1 +ErrorID:%Integer + + + + +1 +StackLevel:%Integer,InfoType:%String,Key:%String + + + + Index: Tools/_SYNCAPP/metadata.xml =================================================================== diff -u Binary files differ Index: TECH/Concurrency/VhPersistent.cls.xml =================================================================== diff -u --- TECH/Concurrency/VhPersistent.cls.xml (revision 0) +++ TECH/Concurrency/VhPersistent.cls.xml (revision 28) @@ -0,0 +1,130 @@ + + + + +1 +TECH.Error +1 +%Persistent +0 + + +%Integer +0 + + + +InstanceVersion:%Integer=-1 +%Status + + + + +1 +ID:%String +%Persistent + + + + +1 +ID:%String,InstanceVersion:%Integer="",ControleerBijOpenen:%Boolean=1 +%Persistent + + + + +DeepClone:%Boolean=0,NogIets:%String +%Library.RegisteredObject + + + + +insert:%Boolean +1 +%Status + + + + +insert:%Boolean +1 +%Status + + + + +Id:%String,Shared:%Boolean +%Status + + + + +1 +Id:%String,Shared:%Boolean +%Status + + + + +LockType:%String +%Status + + + + +StatusCode:%Status,Message:%String +1 + + + + +1 +Bericht +1 + + + + FishEye: Tag 19 refers to a dead (removed) revision in file `TECH/Error/ErrorAdaptor.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: TECH/PubSub/EventRaiser.cls.xml =================================================================== diff -u --- TECH/PubSub/EventRaiser.cls.xml (revision 0) +++ TECH/PubSub/EventRaiser.cls.xml (revision 28) @@ -0,0 +1,15 @@ + + + +1 +1 +%RegisteredObject +0 + + +1 +Event:TECH.PubSub.Event +%Status + + + Index: TECH/Directory.cls.xml =================================================================== diff -u --- TECH/Directory.cls.xml (revision 0) +++ TECH/Directory.cls.xml (revision 28) @@ -0,0 +1,66 @@ + + + +1 +%RegisteredObject +0 + + + +Maakt volledig directory path aan, bv C:\map1\map2\map3 +1 +Directory:%String + + + + + +Gaat volledig recursief een directory verwijderen +1 +Directory:%String + + + + + +Verwijdert alle bestanden uit een directory die ouder of gelijk zijn aan de opgegeven datum +1 +Directory:%String,Datum:%Date + + + + Index: Tools/impl/RenamePropertyCommand.cls.xml =================================================================== diff -u --- Tools/impl/RenamePropertyCommand.cls.xml (revision 0) +++ Tools/impl/RenamePropertyCommand.cls.xml (revision 28) @@ -0,0 +1,40 @@ + + + +1 +%RegisteredObject,Tools.impl.ICommand +0 + + +%String +1 + + + +TECH.ClassInfo.PropertyDefinition +1 + + + +RenameTo:%String,PropertyDefinition:TECH.ClassInfo.PropertyDefinition +1 +1 +%Status + + + + +%Status + + + + Index: Tools/impl/RenameMethodCommand.cls.xml =================================================================== diff -u --- Tools/impl/RenameMethodCommand.cls.xml (revision 0) +++ Tools/impl/RenameMethodCommand.cls.xml (revision 28) @@ -0,0 +1,40 @@ + + + +1 +%RegisteredObject,Tools.impl.ICommand +0 + + +%String +1 + + + +TECH.ClassInfo.MethodDefinition +1 + + + +RenameTo:%String,MethodDefinition:TECH.ClassInfo.MethodDefinition +1 +1 +%Status + + + + +%Status + + + + Index: TECH/Integer.cls.xml =================================================================== diff -u --- TECH/Integer.cls.xml (revision 0) +++ TECH/Integer.cls.xml (revision 28) @@ -0,0 +1,29 @@ + + + +datatype +INTEGER +INTEGER +INTEGER +%Library.Integer +0 + + +1 +generator +%val:%Integer +%Integer + + + + FishEye: Tag 19 refers to a dead (removed) revision in file `TECH/ListUtils.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: TECH/Timing/Timer.cls.xml =================================================================== diff -u --- TECH/Timing/Timer.cls.xml (revision 0) +++ TECH/Timing/Timer.cls.xml (revision 28) @@ -0,0 +1,129 @@ + + + + +TODO: Rekening houden met de dag, in de timestamps. +persistent +TECH.Error +1 +%Persistent +0 + + + +Hierin de class-name + method-name. +%String + + + + + +Hierin bvb "Orgalux website". +%String + + + +%String + + + + +Eenheid: millisecond. +%Integer + + + +%String + + + +%String + + + +Label + + + +ParentLabel + + + +Label:%String,ParentLabel:%String="",Context:%String="" +%Status + + + + +%Integer + + + + +%Integer + + + + + + + + +1 +1 +%String + + + + +%Library.CacheStorage +^TECH.Timing.TimerD +TimerDefaultData +^TECH.Timing.TimerD +^TECH.Timing.TimerI +^TECH.Timing.TimerS + +listnode + + +%%CLASSNAME + + +Context + + +Duurtijd + + +GUID + + +Label + + +ParentLabel + + +Starttijd + + + + + FishEye: Tag 19 refers to a dead (removed) revision in file `TECH/Matrix.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: TECH/Print/Kolommen/TekstType.cls.xml =================================================================== diff -u --- TECH/Print/Kolommen/TekstType.cls.xml (revision 0) +++ TECH/Print/Kolommen/TekstType.cls.xml (revision 28) @@ -0,0 +1,27 @@ + + + +datatype +1 +%String +0 + + +,C,N + + + +1 +%String + + + + +1 +%String + + + + Index: TECH/Print/impl/FilePrinter.cls.xml =================================================================== diff -u --- TECH/Print/impl/FilePrinter.cls.xml (revision 0) +++ TECH/Print/impl/FilePrinter.cls.xml (revision 28) @@ -0,0 +1,33 @@ + + + +1 +TECH.Print.Printer +0 + + + +TODO implementatie uitput naar bestand .. + + + + +Item:AbstractLabel +%Status + + + + +%Status + + + + + + + + Index: TECH/ClassInfo/PropertyDefinition.cls.xml =================================================================== diff -u --- TECH/ClassInfo/PropertyDefinition.cls.xml (revision 0) +++ TECH/ClassInfo/PropertyDefinition.cls.xml (revision 28) @@ -0,0 +1,60 @@ + + + +1 +%RegisteredObject,TECH.ClassInfo.QNameFinder +0 + + +%Dictionary.PropertyDefinition +1 + + + +TECH.ClassInfo.ClassDefinition +1 + + + +PropertyDefinition:%Dictionary.PropertyDefinition,ParentClass:TECH.ClassInfo.ClassDefinition +1 +1 +%Status + + + + +%String + + + + +%String + + + + +Type:%String + + + + +TECH.ClassInfo.ClassDefinition + + + + +%Status + + + + Index: Tools/impl/ICommand.cls.xml =================================================================== diff -u --- Tools/impl/ICommand.cls.xml (revision 0) +++ Tools/impl/ICommand.cls.xml (revision 28) @@ -0,0 +1,13 @@ + + + +1 +1 +0 + + +1 +%Status + + + Index: TECH/PiecesIterator.cls.xml =================================================================== diff -u --- TECH/PiecesIterator.cls.xml (revision 0) +++ TECH/PiecesIterator.cls.xml (revision 28) @@ -0,0 +1,63 @@ + + + + +Een lege string wordt niet aanschouwd als een piece. De HasNext() zal dus false teruggeven als de string leeg is. +1 +%RegisteredObject,TECH.Iterator +0 + + +%Integer +1 + + + +%String +1 + + + +%String +1 + + + +%Integer +1 + + + +Pieces:%String,Delimiter:%String +1 +%Status + + + + + +Returns true if the iteration has more elements. +%Boolean + + + + + +Returns the next element in the iteration. +Only returns a valid element if HasNext() returns true +Causes an error if HasNext() returns false +%CacheString + + + + Index: TECH/PubSub/EventData.cls.xml =================================================================== diff -u --- TECH/PubSub/EventData.cls.xml (revision 0) +++ TECH/PubSub/EventData.cls.xml (revision 28) @@ -0,0 +1,15 @@ + + + + + +serial +1 +%SerialObject + + +%Library.CacheSerialState +^TECH.PubSub.EventDataS + + + FishEye: Tag 19 refers to a dead (removed) revision in file `TECH/StringUtils.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: TECH/Concurrency/TxScope.cls.xml =================================================================== diff -u --- TECH/Concurrency/TxScope.cls.xml (revision 0) +++ TECH/Concurrency/TxScope.cls.xml (revision 28) @@ -0,0 +1,270 @@ + + + + +Koppeling van Transactie aan locks en aan het huidige proces. +Let op: voorlopig is nesten van TxScope wel mogelijk, maar nesten van Transactie niet. +TODO: Slechts 1x start per Scope ondersteunen (idem voor rollback en commit). +TECH.ExcHandling +TECH.Error +1 +%RegisteredObject +0 + + +TxScopeOptie +1 + + + +TxScope +1 + + + +Transactie +1 + + + +%Boolean +1 + + + +TxStatus +1 + + + + + + + +1 +TxScope + + + + +1 +Scope:TxScope +1 + + + + +1 +TxScope + + + + +1 +TxScopeOptie:TxScopeOptie="Required",TxIsolatieLevel:TxIsolatieLevel="" +TxScope + + + + +TxScopeOptie:TxScopeOptie="Required" +%Status + + + + +RuimereScope:TxScope + + + + + + + + + + + + +TxStatus + + + + +TxScopeOptie + + + + +TxScope + + + + +IsolatieLevel:TxIsolatieLevel="" + + + + + + + + + + + + + + + + +Object:%Persistent + + + + +Object:%Persistent + + + + +Object:%Persistent + + + + +Object:%Persistent + + + + + +Opvragen of we momenteel in de context van een RepeatableRead transactie lopen. +%Boolean + + + + + +Opvragen of we momenteel in de context van een RepeatableRead transactie lopen. +%Boolean + + + + + +Opvragen of we momenteel in de context van een ReadCommitted transactie lopen. +%Boolean + + + + Index: TECH/Exceptions/BaseException.cls.xml =================================================================== diff -u --- TECH/Exceptions/BaseException.cls.xml (revision 0) +++ TECH/Exceptions/BaseException.cls.xml (revision 28) @@ -0,0 +1,55 @@ + + + +1 +TECH.Exceptions.Exception +0 + + +TECH.enu.ExceptionCode +1 + + + +%String +1 + + + + +Omschrijving kan gebruikt worden om in de $ECODE te plaatsen +ExceptionCode:TECH.enu.ExceptionCode,Omschrijving:%String +1 +1 +%Status + + + + +TECH.enu.ExceptionCode + + + + +%String + + + + +%String + + + + FishEye: Tag 19 refers to a dead (removed) revision in file `TECH/ListIterator.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: TECH/Print/AbstractLabel.cls.xml =================================================================== diff -u --- TECH/Print/AbstractLabel.cls.xml (revision 0) +++ TECH/Print/AbstractLabel.cls.xml (revision 28) @@ -0,0 +1,15 @@ + + + +1 +1 +%RegisteredObject +0 + + +%Status + + + + Index: TECH/ClassUtils.cls.xml =================================================================== diff -u --- TECH/ClassUtils.cls.xml (revision 0) +++ TECH/ClassUtils.cls.xml (revision 28) @@ -0,0 +1,140 @@ + + + +1 +%RegisteredObject +0 + + +1 +%List + + + + +1 +%List + + + + +1 +LabelRoutine +1 +%List + + + + +1 +ClassName,Method +%String + + + + +1 +ClassName,Method,Parameter +%String + + + + +1 + +%Boolean + + + + +1 + +%Boolean + + + + +1 + +%Boolean + + + + +1 + +%Boolean + + + + Index: TECH/Asserts.cls.xml =================================================================== diff -u --- TECH/Asserts.cls.xml (revision 0) +++ TECH/Asserts.cls.xml (revision 28) @@ -0,0 +1,79 @@ + + + + + Assert (=check) methods. + + REMARK: if we can dynamically find information from the call-stack, that + would eliminate the need for passing a "context" string to the methods... + +1 +%RegisteredObject +0 + + + + Checks that object is of a (sub)type of type. + If not, it logs an error (using the objectName and context). + Returns true (1) if it seems ok; false (0) if something seems wrong. + +1 +object:%RegisteredObject,type:%String,objectName:%String,context:%String +%Boolean + + + + + + Checks that the objects in the given list is of a (sub)type of type. + If not, it logs an error (using the objectName and context). + Returns true (1) if it seems ok; false (0) if something seems wrong. + +1 +list:%ListOfObjects,type:%String,listName:%String,context:%String +%Boolean + + + + +1 +Boodschap:%String + + + + Index: TECH/Exceptions/RuntimeException.cls.xml =================================================================== diff -u --- TECH/Exceptions/RuntimeException.cls.xml (revision 0) +++ TECH/Exceptions/RuntimeException.cls.xml (revision 28) @@ -0,0 +1,52 @@ + + + +1 +TECH.Exceptions.Exception +0 + + +%String +1 + + + +%String +1 + + + +ECode:%String,ZError:%String +1 +1 +%Status + + + + +%String + + + + +TECH.enu.ExceptionCode + + + + +%String + + + + Index: TECH/Print/Kolommen/PrintExample.cls.xml =================================================================== diff -u --- TECH/Print/Kolommen/PrintExample.cls.xml (revision 0) +++ TECH/Print/Kolommen/PrintExample.cls.xml (revision 28) @@ -0,0 +1,94 @@ + + + +1 +%RegisteredObject +0 + + + + + + +1 + + + + + + + + +1 + + + + + + + + +1 + + + + Index: TECH/Exceptions/SaveFailedException.cls.xml =================================================================== diff -u --- TECH/Exceptions/SaveFailedException.cls.xml (revision 0) +++ TECH/Exceptions/SaveFailedException.cls.xml (revision 28) @@ -0,0 +1,37 @@ + + + +1 +TECH.Exceptions.AbstractOmschrijvingException +0 + + +%Status +1 + + + +Omschrijving:%String,Status:%Status +1 +1 +%Status + + + + +TECH.enu.ExceptionCode + + + + +%String + + + + Index: TECH/Stack.cls.xml =================================================================== diff -u --- TECH/Stack.cls.xml (revision 0) +++ TECH/Stack.cls.xml (revision 28) @@ -0,0 +1,52 @@ + + + + +Stack van elementen. +1 +%RegisteredObject +0 + + +%ListOfDataTypes +1 + + + +Element:%String + + + + +%String + + + + +%String + + + + +%Boolean + + + + + + + + + + + + Index: TECH/PubSub/EventSubscription.cls.xml =================================================================== diff -u --- TECH/PubSub/EventSubscription.cls.xml (revision 0) +++ TECH/PubSub/EventSubscription.cls.xml (revision 28) @@ -0,0 +1,64 @@ + + + +persistent +1 +%Persistent +0 + + +%String + + + +%String + + + + +%String + + + +EventType + + + +EventType:%String,RespondingClass:%String,RespondingMethod:%String +1 +1 +%Status + + + + +%Library.CacheStorage +^TECH.PubSub.EventSubscriptionD +EventSubscriptionDefaultData +^TECH.PubSub.EventSubscriptionD +^TECH.PubSub.EventSubscriptionI +^TECH.PubSub.EventSubscriptionS + +listnode + + +%%CLASSNAME + + +EventType + + +RespondingClass + + +RespondingMethod + + + + + Index: TECH/ClassInfo/QNameFinder.cls.xml =================================================================== diff -u --- TECH/ClassInfo/QNameFinder.cls.xml (revision 0) +++ TECH/ClassInfo/QNameFinder.cls.xml (revision 28) @@ -0,0 +1,54 @@ + + + +1 +%RegisteredObject +0 + + +Klasse:%String,ContextClassDefinition:TECH.ClassInfo.ClassDefinition +1 +%String + 0) && (QualifiedName = "")) + { + Set KlasseNaam = $Piece(ContextClassDefinition.GeefPackage(),".",1,Piece)_"."_Klasse + If (##class(%Dictionary.ClassDefinition).%ExistsId(KlasseNaam)) + { + Set QualifiedName = KlasseNaam + } + Set Piece = Piece - 1 + } + + /// Kijk naar de imports + If (QualifiedName = "") + { + Set ImportsIterator = ContextClassDefinition.GeefImports() + + While (ImportsIterator.HasNext() && (QualifiedName = "")) + { + Set Import = ImportsIterator.Next() + If (##class(%Dictionary.ClassDefinition).%ExistsId(Import_"."_Klasse)) + { + Set QualifiedName = Import_"."_Klasse + } + } + } + } + Else + { + Set QualifiedName = Klasse + } + Quit QualifiedName +]]> + + + FishEye: Tag 19 refers to a dead (removed) revision in file `TECH/FileInfo.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: TECH/OBJ/Validator.cls.xml =================================================================== diff -u --- TECH/OBJ/Validator.cls.xml (revision 0) +++ TECH/OBJ/Validator.cls.xml (revision 28) @@ -0,0 +1,61 @@ + + + +TECH.Error,vhLib.Macro +1 +%RegisteredObject +0 + + +vhLib.Logger +1 + + + + + + + + +Object:%RegisteredObject +%Status + + + + +Logger:vhLib.Logger="" +1 +1 +%Status + + + + Index: Tools/CacheExecuter.cls.xml =================================================================== diff -u --- Tools/CacheExecuter.cls.xml (revision 0) +++ Tools/CacheExecuter.cls.xml (revision 28) @@ -0,0 +1,126 @@ + + + +0 +%RegisteredObject +0 + + +#UNDEF# + + + + + + + +1 +P1:%String,P2:%String,P3:%String,P4:%String,P5:%String +%String + wordt <"Param1","Param2"> + New Loop,Stop + Set Stop=0 + For Loop=$L(ParamStr):-1:0 Do Quit:(Stop) + . If $E(ParamStr,Loop)'="," Do + .. Set Stop=1 + Set ParamStr=$E(ParamStr,1,Loop) + + Quit ParamStr +]]> + + + + + + + +1 +CellValue:%String +%String + + + + + + + + +1 +ClassName:%String,MethodName:%String,P1:%String,P2:%String,P3:%String,P4:%String,P5:%String +%String + + + + + + + + +1 +CodeStr:%String +%String + + + + + + + + +1 +Routine:%String,P1:%String,P2:%String,P3:%String,P4:%String,P5:%String +%String + + + + Index: TECH/Comparator/StringComparator.cls.xml =================================================================== diff -u --- TECH/Comparator/StringComparator.cls.xml (revision 0) +++ TECH/Comparator/StringComparator.cls.xml (revision 28) @@ -0,0 +1,15 @@ + + + +1 +%RegisteredObject,TECH.Comparator.IComparator +0 + + +Waarde1:%String,Waarde2:%String +%Boolean + + + + FishEye: Tag 19 refers to a dead (removed) revision in file `TECH/CompileUtils.cls.xml'. FishEye: No comparison available. Pass `N' to diff? FishEye: Tag 19 refers to a dead (removed) revision in file `TECH/Context/RuntimeContext.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: TECH/ClassInfo/MethodDefinition.cls.xml =================================================================== diff -u --- TECH/ClassInfo/MethodDefinition.cls.xml (revision 0) +++ TECH/ClassInfo/MethodDefinition.cls.xml (revision 28) @@ -0,0 +1,123 @@ + + + +1 +%RegisteredObject,TECH.ClassInfo.QNameFinder +0 + + +%Dictionary.MethodDefinition +1 + + + +TECH.ClassInfo.ClassDefinition +1 + + + +TECH.ClassInfo.ParameterDefinition +list +1 + + + +MethodDefinition:%Dictionary.MethodDefinition,ParentClass:TECH.ClassInfo.ClassDefinition +1 +1 +%Status + + + + +%String + + + + +TECH.Iterator + + + + +%String + + + + +Type:%String + + + + +%Stream + + + + +%String + + + + +TECH.ClassInfo.ClassDefinition + + + + +%String + + + + + + + + +%Status + + + + Index: TECH/Math.cls.xml =================================================================== diff -u --- TECH/Math.cls.xml (revision 0) +++ TECH/Math.cls.xml (revision 28) @@ -0,0 +1,62 @@ + + + +1 +%RegisteredObject +0 + + +1 +Getal:%Float +%Float + + + + +1 +Getal:%Float +%Integer + + + + +1 +Getal:%Float +%Integer + + + + +1 +Getal1:%Float,Getal2:%Float +%Float + Getal2) Set Min = Getal2 + Quit Min +]]> + + + +1 +Getal1:%Float,Getal2:%Float +%Float + + + + +1 +Getal:%Float,CijfersNaKomma:%Integer +%Float + + + + Index: TECH/DateTime.cls.xml =================================================================== diff -u --- TECH/DateTime.cls.xml (revision 0) +++ TECH/DateTime.cls.xml (revision 28) @@ -0,0 +1,242 @@ + + + +1 +%RegisteredObject +0 + + +1 +Horolog:%String +%Integer + + + + +1 +Horolog:%String +%TimeStamp + + + + +1 +Horolog:%String +%Date + + + + +1 +Text:%String,Type:%String="",Taal:%String="" +%Date + + + + +1 +Timestamp:%TimeStamp +%Integer + + + + +1 +Timestamp:%TimeStamp +%Date + + + + +1 +TimeStamp:%TimeStamp +%String + + + + +1 +Date:%Date +%TimeStamp + + + + +1 +Horolog1:%String,Horolog2:%String +%Boolean + ..HorologToSeconds(Horolog2) +]]> + + + +1 +%Date + + + + +1 +%Date + + + + +1 +%Time + + + + +1 +%TimeStamp + + + + +1 +DatePart:TECH.enu.DatePart,Timestamp1:%TimeStamp,Timestamp2:%TimeStamp +%Integer + + + + +1 +TimeStamp:%TimeStamp,Verschil:%Integer,DatePart:TECH.enu.DatePart +%TimeStamp + + + + +1 +Datum:%Date,Verschil:%Integer,DatePart:TECH.enu.DatePart +%Date + + + + + +Werkt ook met timestamp +1 +Dag:%Date +%String + + + + +1 +Dag:%Date +%Boolean + + + + +1 +TijdExpressie:%TimeStamp +%Integer + + + + +1 +TijdExpressie:%TimeStamp +%Integer + + + + +1 +TijdExpressie:%TimeStamp +%Integer + + + + + +Werkt ook met %Date +1 +TijdExpressie:%TimeStamp +%Integer + + + + + +Werkt ook met %Date +1 +TijdExpressie:%TimeStamp +%Integer + + + + + +Werkt ook met %Date +1 +TijdExpressie:%TimeStamp +%Integer + + + + + +Werkt ook met %Date +1 +TijdExpressie:%TimeStamp +%Integer + + + + +1 +Datum:%Date +%Date + + + + +1 +Datum:%Date +%Date + + + + Index: TECH/Timing/TimerUtils.cls.xml =================================================================== diff -u --- TECH/Timing/TimerUtils.cls.xml (revision 0) +++ TECH/Timing/TimerUtils.cls.xml (revision 28) @@ -0,0 +1,170 @@ + + + +1 +%RegisteredObject +0 + + +TECH.Stack +1 + + + +%Library.ListOfObjects +1 + + + +%String +1 + + + +%Boolean +1 + + + + +Do ##class(TECH.Timing.TimerUtils).EnableTiming("") +1 +Context:%String="" + + + + +1 + + + + + +Start een timer en geef een unieke ID. +1 +Label:%String +%String + + + + + +Stop de timer met de gegeven ID. +1 +Timer:%String + + + + + +Do ##class(TECH.Timing.TimerUtils).Flush() +1 + + + + +1 +TECH.Timing.TimerUtils + + + + +%Status + + + + + +Start een timer en geef een unieke ID. +Label:%String +%String + + + + + +Stop de timer met de gegeven ID. +Timer:%String + + + + + + + + +Context:%String="" + + + + +Enabled:%Boolean + + + + +Timer:TECH.Timing.Timer +1 + + + + Index: TECH/Concurrency/TxIsolatieLevel.cls.xml =================================================================== diff -u --- TECH/Concurrency/TxIsolatieLevel.cls.xml (revision 0) +++ TECH/Concurrency/TxIsolatieLevel.cls.xml (revision 28) @@ -0,0 +1,53 @@ + + + +datatype +1 +%String + + +,ReadUncommitted,ReadCommitted,RepeatableRead + + + + + + + +1 + + + + + + + + +1 + + + + + + + + +1 + + + + Index: TECH/Comparator/IntegerComparator.cls.xml =================================================================== diff -u --- TECH/Comparator/IntegerComparator.cls.xml (revision 0) +++ TECH/Comparator/IntegerComparator.cls.xml (revision 28) @@ -0,0 +1,15 @@ + + + +1 +%RegisteredObject,TECH.Comparator.IComparator +0 + + +Waarde1:%String,Waarde2:%String +%Boolean + + + + FishEye: Tag 19 refers to a dead (removed) revision in file `TECH/SourceCodeUtils.cls.xml'. FishEye: No comparison available. Pass `N' to diff? FishEye: Tag 19 refers to a dead (removed) revision in file `TECH/ListObjectIdIterator.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: TECH/PubSub/impl/EventDispatcher.cls.xml =================================================================== diff -u --- TECH/PubSub/impl/EventDispatcher.cls.xml (revision 0) +++ TECH/PubSub/impl/EventDispatcher.cls.xml (revision 28) @@ -0,0 +1,46 @@ + + + +1 +%RegisteredObject +0 + + +Event:TECH.PubSub.Event +%Status + + + + +%SQLQuery +Event:TECH.PubSub.Event + SELECT ID FROM TECH_PubSub.EventSubscription WHERE EventType = :Event.Type + + + Index: Tools/impl/RenameImplementationCommand.cls.xml =================================================================== diff -u --- Tools/impl/RenameImplementationCommand.cls.xml (revision 0) +++ Tools/impl/RenameImplementationCommand.cls.xml (revision 28) @@ -0,0 +1,46 @@ + + + +1 +%RegisteredObject,Tools.impl.ICommand +0 + + +%ListOfDataTypes +1 + + + +TECH.ClassInfo.MethodDefinition +1 + + + +Implementation:%ListOfDataTypes,MethodDefinition:TECH.ClassInfo.MethodDefinition +1 +1 +%Status + + + + +%Status + + + + Index: TECH/ListbuildIterator.cls.xml =================================================================== diff -u --- TECH/ListbuildIterator.cls.xml (revision 0) +++ TECH/ListbuildIterator.cls.xml (revision 28) @@ -0,0 +1,57 @@ + + + + +Een lege string wordt niet aanschouwd als een piece. De HasNext() zal dus false teruggeven als de string leeg is. +1 +%RegisteredObject,TECH.Iterator +0 + + +%Integer +1 + + + +%String +1 + + + +%Integer +1 + + + +Listbuild:%String +1 +%Status + + + + + +Returns true if the iteration has more elements. +%Boolean + + + + + +Returns the next element in the iteration. +Only returns a valid element if HasNext() returns true +Causes an error if HasNext() returns false +%CacheString + + + + Index: TECH/enu/ExceptionCode.cls.xml =================================================================== diff -u --- TECH/enu/ExceptionCode.cls.xml (revision 0) +++ TECH/enu/ExceptionCode.cls.xml (revision 28) @@ -0,0 +1,118 @@ + + + +datatype +1 +%String +0 + + +;1000:GeneralError;1001:PropertyRequired;1002:ParameterRequired;1002:ParameterInvalid;1003:ObjectExpected;1004:Locked;1005:InvalidInput;1005:InvalidOutput;1007:InvalidID;1006:Create object;1008:InvalidEnumerationValue;1009:Unimplemented;3000:ObjectValidationFailed;3001:SaveFailed;5000:UserError + + + +1 +TECH.enu.ExceptionCode + + + + +1 +TECH.enu.ExceptionCode + + + + +1 +TECH.enu.ExceptionCode + + + + +1 +TECH.enu.ExceptionCode + + + + +1 +TECH.enu.ExceptionCode + + + + +1 +TECH.enu.ExceptionCode + + + + +1 +TECH.enu.ExceptionCode + + + + +1 +TECH.enu.ExceptionCode + + + + +1 +TECH.enu.ExceptionCode + + + + +1 +TECH.enu.ExceptionCode + + + + +1 +TECH.enu.ExceptionCode + + + + +1 +TECH.enu.ExceptionCode + + + + +1 +TECH.enu.ExceptionCode + + + + +1 +TECH.enu.ExceptionCode + + + + +1 +TECH.enu.ExceptionCode + + + + Index: TECH/ReversedListIterator.cls.xml =================================================================== diff -u --- TECH/ReversedListIterator.cls.xml (revision 0) +++ TECH/ReversedListIterator.cls.xml (revision 28) @@ -0,0 +1,79 @@ + + + +1 +Iterator,%RegisteredObject +0 + + +%AbstractList +1 + + + +%String +1 + + + +%String +1 + + + +%CacheString +1 + + + + +Returns true if the iteration has more elements. +%Boolean + + + + +List:%AbstractList +1 +1 +%Status + + + + + +Returns the next element in the iteration. +Only returns a valid element if HasNext() returns true +Causes an error if HasNext() returns false +%CacheString + + + + + + + + +%String + + + + Index: TECH/Algo/Stapeling/INiveauSchikking.cls.xml =================================================================== diff -u --- TECH/Algo/Stapeling/INiveauSchikking.cls.xml (revision 0) +++ TECH/Algo/Stapeling/INiveauSchikking.cls.xml (revision 28) @@ -0,0 +1,23 @@ + + + +1 +1 +0 + + + +Geeft het maximaal aantal objecten dat deze schikking kan plaatsen +1 +%Integer + + + + +Krijgt een Stack van TECH.Algo.Stapeling.I3DObject binnen. Geeft het aantal 3D objecten terug die het zal gebruiken. +1 +I3DObjecten:TECH.Stack +%Integer + + + Index: TECH/Exceptions/Exception.cls.xml =================================================================== diff -u --- TECH/Exceptions/Exception.cls.xml (revision 0) +++ TECH/Exceptions/Exception.cls.xml (revision 28) @@ -0,0 +1,110 @@ + + + +1 +TECH.IException,%RegisteredObject +0 + + +TECH.IException +1 + + + + +TO DO : Stack zou een %Stream moeten worden. +%String +1 + + + +%TimeStamp +1 + + + +%List +1 + + + +1 +1 +%Status + + + + +Exception:TECH.IException + + + + +%String + + + + +TECH.IException + + + + +%String + + + + +%TimeStamp + + + + +StackLevel +1 +%String + "_$STACK($STACK-i,"MCODE") + } + Quit Txt +]]> + + + +%String + + + + FishEye: Tag 19 refers to a dead (removed) revision in file `TECH/Error/dto/ErrorInfo.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: TECH/Config/dto/ConfigItems.cls.xml =================================================================== diff -u --- TECH/Config/dto/ConfigItems.cls.xml (revision 0) +++ TECH/Config/dto/ConfigItems.cls.xml (revision 28) @@ -0,0 +1,13 @@ + + + +1 +%RegisteredObject,%XML.Adaptor +0 + + +TECH.Config.dto.ConfigItem +list + + + Index: TECH/Exceptions/GeneralErrorException.cls.xml =================================================================== diff -u --- TECH/Exceptions/GeneralErrorException.cls.xml (revision 0) +++ TECH/Exceptions/GeneralErrorException.cls.xml (revision 28) @@ -0,0 +1,14 @@ + + + +1 +TECH.Exceptions.AbstractOmschrijvingException +0 + + +TECH.enu.ExceptionCode + + + + Index: TECH/RoutineUtils.cls.xml =================================================================== diff -u --- TECH/RoutineUtils.cls.xml (revision 0) +++ TECH/RoutineUtils.cls.xml (revision 28) @@ -0,0 +1,64 @@ + + + +1 +%RegisteredObject +0 + + +1 +Routine:%String +%String + + + + +1 +Routine:%String +%Boolean + + + + +1 +Label:%String +%String + + + + +1 +LabelAndRoutine:%String +%String + + + + +1 +LabelAndRoutine:%String +%String + + + + Index: TECH/Concurrency/DbUtils.cls.xml =================================================================== diff -u --- TECH/Concurrency/DbUtils.cls.xml (revision 0) +++ TECH/Concurrency/DbUtils.cls.xml (revision 28) @@ -0,0 +1,182 @@ + + + + +Utility methods voor open en save van objecten. +Doel: Locking (db en optimistic locks), status-codes controleren, onbestaande objecten controleren. +TECH.ExcHandling +TECH.Error +1 +%RegisteredObject +0 + + +1 +Object:%Persistent,insert:%Boolean +%Status + + + + +1 +Object:%Persistent,insert:%Boolean +%Status + + + + +1 +Object:%Persistent +%Status + + + + +1 +ID:%String,ClassName:%String +%Persistent + + + + +1 +ID:%String,ClassName:%String,InstanceVersion:%Integer="",ControleerVersionBijOpenen:%Boolean=1 +%Persistent + + + + +1 +Object:%Persistent,DeepClone:%Boolean +%Library.RegisteredObject + + + + + +Hernoemd van CheckOptimisticConcurrencyNaSqlUpdate wegens te lang! +1 +Tabel:%String,ID:%String,GewensteInstanceVersion:%Integer + + + + +StatusCode:%Status,Message:%String +1 + + + + Index: TECH/OperatieScope.cls.xml =================================================================== diff -u --- TECH/OperatieScope.cls.xml (revision 0) +++ TECH/OperatieScope.cls.xml (revision 28) @@ -0,0 +1,228 @@ + + + + +Stelt de scope van een APPS-level operatie voor. +Helpt bij uitvoeren van taken die bij start en einde van een operatie +moeten gebeuren. Bvb: loggen, start/stop timer, check authorizatie, audit trail... + +Dit ondersteunt geneste calls; en zorgt dat de nodige acties toch maar 1x gebeuren. +TECH.Error +1 +%RegisteredObject +0 + + +OperatieScope +1 + + + +%Integer +1 + + + +TECH.Stack +1 + + + +1 +TxScopeOptie:TECH.Concurrency.TxScopeOptie="Required",TxIsolatieLevel:TECH.Concurrency.TxIsolatieLevel="" +OperatieScope + + + + +1 +OperatieScope + + + + +1 +1 +OperatieScope + + + + +1 +OperatieScope + + + + +%Status + + + + + + + + +TxScopeOptie:TECH.Concurrency.TxScopeOptie="Required",TxIsolatieLevel:TECH.Concurrency.TxIsolatieLevel="" + + + + +1 + + + + + + + + +Resultaat="" + 0) + { + Set ..NestingNiveau = ..NestingNiveau - 1 + } + + If (0 = ..NestingNiveau) { + Do ..OperatieGelukt(Resultaat) + } +]]> + + + + + + + +Exception + 0) + { + Set ..NestingNiveau = ..NestingNiveau - 1 + } + + If (0 = ..NestingNiveau) { + Do ..OperatieGefaald(.Exception) + } + + If $Data(Exception) + { + If ('$IsObject(Exception)) + { + Set Exception = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),Exception) + } + Do ##class(TECH.ExceptionHandler).Throw(Exception) + } +]]> + + + +1 + + + + +1 + + + + + + + + +1 + + + + + + + + +Resultaat +1 + + + + + + + + +Ecode +1 + + + Index: TECH/Print/Kolommen/Kolom.cls.xml =================================================================== diff -u --- TECH/Print/Kolommen/Kolom.cls.xml (revision 0) +++ TECH/Print/Kolommen/Kolom.cls.xml (revision 28) @@ -0,0 +1,8 @@ + + + +1 +%ListOfDataTypes +0 + + Index: TECH/XMLDataSet.cls.xml =================================================================== diff -u --- TECH/XMLDataSet.cls.xml (revision 0) +++ TECH/XMLDataSet.cls.xml (revision 28) @@ -0,0 +1,37 @@ + + + +1 +%XML.DataSet +0 + + + +Generate hard coded schema that is used for DataSet +1 + +%Status +1 +",! + Write " ",! + If ..#NAMESPACE'="" { + Write " ",! + } Else { + ;Write " ",! // Staat in commentaar voor flex, mocht de #NAMESPACE ingevuld geweest zijn dat had dit wél goed gewerkt. + Write " ",! + } + Write " ",! + Write "",! + Set schema(class)="" + Quit $$$OK +]]> + + + Index: TECH/PubSub/impl/SimpelEventRaiser.cls.xml =================================================================== diff -u --- TECH/PubSub/impl/SimpelEventRaiser.cls.xml (revision 0) +++ TECH/PubSub/impl/SimpelEventRaiser.cls.xml (revision 28) @@ -0,0 +1,15 @@ + + + +1 +TECH.PubSub.EventRaiser +0 + + +Event:TECH.PubSub.Event +%Status + + + + Index: TECH/System.cls.xml =================================================================== diff -u --- TECH/System.cls.xml (revision 0) +++ TECH/System.cls.xml (revision 28) @@ -0,0 +1,18 @@ + + + +1 +%RegisteredObject +0 + + +1 +%ArrayOfDataTypes + + + + Index: TECH/Print/Kolommen/KolomDefinitie.cls.xml =================================================================== diff -u --- TECH/Print/Kolommen/KolomDefinitie.cls.xml (revision 0) +++ TECH/Print/Kolommen/KolomDefinitie.cls.xml (revision 28) @@ -0,0 +1,43 @@ + + + +1 +%RegisteredObject +0 + + +%String + + + +%Integer + + + +TECH.Print.Kolommen.TekstType + + + +TECH.Print.Kolommen.TekstUitlijning + + + +Titel:%String,Breedte:%Integer=-1,TekstType:TECH.Print.Kolommen.TekstType,TekstUitlijning:TECH.Print.Kolommen.TekstUitlijning +%Status + $length(Titel)+1) + { + Set Spaties = " " + Set ..Titel = Titel_$E(Spaties,1,Breedte-$length(Titel)) + Set ..Breedte = Breedte + } + else { Set ..Breedte = Breedte } + Set ..TekstType = TekstType + Set ..TekstUitlijning = TekstUitlijning + Quit $$$OK +]]> + + + Index: TECH/PubSub/OrchestrationContext.cls.xml =================================================================== diff -u --- TECH/PubSub/OrchestrationContext.cls.xml (revision 0) +++ TECH/PubSub/OrchestrationContext.cls.xml (revision 28) @@ -0,0 +1,15 @@ + + + +1 +%RegisteredObject +0 + + +1 +TECH.PubSub.EventRaiser + + + + Index: TECH/Concurrency/ObjectLock.cls.xml =================================================================== diff -u --- TECH/Concurrency/ObjectLock.cls.xml (revision 0) +++ TECH/Concurrency/ObjectLock.cls.xml (revision 28) @@ -0,0 +1,51 @@ + + + + +Informatie over een lock op een object. +1 +%RegisteredObject +0 + + +%String + + + +%String + + + + + + + +%Boolean + + + +ObjectId:%String,KlasseNaam:%String,Shared:%Boolean +%Status + + + + +%String + + + + +%String + + + + Index: TECH/IException.cls.xml =================================================================== diff -u --- TECH/IException.cls.xml (revision 0) +++ TECH/IException.cls.xml (revision 28) @@ -0,0 +1,37 @@ + + + +1 +1 +0 + + + +Wordt gebruikt om in de ecode weg te schrijven, de omschrijving blijft dus best beperkt. +1 +%String + + + +1 +TECH.enu.ExceptionCode + + + +1 +%String + + + +1 +%TimeStamp + + + + +Wordt door de error handler in het e-mailbericht bijgeschreven. +1 +%String + + + Index: Tools/impl/RenameParameterCommand.cls.xml =================================================================== diff -u --- Tools/impl/RenameParameterCommand.cls.xml (revision 0) +++ Tools/impl/RenameParameterCommand.cls.xml (revision 28) @@ -0,0 +1,47 @@ + + + +1 +%RegisteredObject,Tools.impl.ICommand +0 + + +%String +1 + + + +TECH.ClassInfo.ParameterDefinition +1 + + + +TECH.ClassInfo.MethodDefinition +1 + + + +RenameTo:%String,ParameterDefinition:TECH.ClassInfo.ParameterDefinition,MethodDefinition:TECH.ClassInfo.MethodDefinition +1 +1 +%Status + + + + +%Status + + + + FishEye: Tag 19 refers to a dead (removed) revision in file `TECH/Error.inc.rou'. FishEye: No comparison available. Pass `N' to diff? FishEye: Tag 19 refers to a dead (removed) revision in file `TECH/CSP/CSPApplicatie.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: TECH/Dialog/ModalPopup.cls.xml =================================================================== diff -u --- TECH/Dialog/ModalPopup.cls.xml (revision 0) +++ TECH/Dialog/ModalPopup.cls.xml (revision 28) @@ -0,0 +1,46 @@ + + + +1 +%RegisteredObject +0 + + +%String + + + +%String + + + +Titel:%String,Inhoud:%String +1 +1 +%Status + + + + + + + + +Titel:%String,Inhoud:%String + + + + + + + + FishEye: Tag 19 refers to a dead (removed) revision in file `TECH/Error/impl/ErrorHandler.cls.xml'. FishEye: No comparison available. Pass `N' to diff? FishEye: Tag 19 refers to a dead (removed) revision in file `TECH/Config/ConfigItem.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: TECH/PubSub/impl/PubSubLogger.cls.xml =================================================================== diff -u --- TECH/PubSub/impl/PubSubLogger.cls.xml (revision 0) +++ TECH/PubSub/impl/PubSubLogger.cls.xml (revision 28) @@ -0,0 +1,27 @@ + + + +vhLib.Macro +1 +vhLib.Logger +0 + + +Groep:%String +1 +1 +%Status + + + + + + + + + Index: TECH/VhChangeInfo.cls.xml =================================================================== diff -u --- TECH/VhChangeInfo.cls.xml (revision 0) +++ TECH/VhChangeInfo.cls.xml (revision 28) @@ -0,0 +1,23 @@ + + + +1 +1 +TECH.Concurrency.VhPersistent,TECH.ChangeInfo +0 + + +insert:%Boolean +1 +%Status + + + + Index: TECH/Algo/Stapeling/I3DObject.cls.xml =================================================================== diff -u --- TECH/Algo/Stapeling/I3DObject.cls.xml (revision 0) +++ TECH/Algo/Stapeling/I3DObject.cls.xml (revision 28) @@ -0,0 +1,23 @@ + + + +1 +1 +0 + + +1 +%Float + + + +1 +%Float + + + +1 +%Float + + + FishEye: Tag 19 refers to a dead (removed) revision in file `TECH/Config/ConfiguredFactory.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: TECH/Algo/Stapeling/Stapeling.cls.xml =================================================================== diff -u --- TECH/Algo/Stapeling/Stapeling.cls.xml (revision 0) +++ TECH/Algo/Stapeling/Stapeling.cls.xml (revision 28) @@ -0,0 +1,75 @@ + + + +1 +%RegisteredObject +0 + + +TECH.Algo.Stapeling.INiveauSchikking +list +1 + + + +NiveauSchikking:TECH.Algo.Stapeling.INiveauSchikking +%Boolean + 0) && (NiveauSchikking.GeefMaxAantalObjecten() > ..NiveauSchikkingen.GetAt(k).GeefMaxAantalObjecten())) + { + Do ..NiveauSchikkingen.InsertAt(..NiveauSchikkingen.GetAt(k),k+1) + Set k = k - 1 + } + Do ..NiveauSchikkingen.InsertAt(NiveauSchikking,k+1) + Quit 1 +]]> + + + +I3DObjecten:%ListOfObjects +%Float + + + + Index: TECH/Algo/Graph/Node.cls.xml =================================================================== diff -u --- TECH/Algo/Graph/Node.cls.xml (revision 0) +++ TECH/Algo/Graph/Node.cls.xml (revision 28) @@ -0,0 +1,65 @@ + + + +1 +%RegisteredObject +0 + + +%String + + + +%String + + + +TECH.Algo.Graph.Node +array +1 + + + +%Integer +1 + + + +Name:%String,Data:%String="" +1 +1 +%Status + + + + +Node:TECH.Algo.Graph.Node + + + + + + + + +%Integer + + + + +Node:TECH.Algo.Graph.Node + + + + Index: TECH/Print/PrinterKenmerkUtils.cls.xml =================================================================== diff -u --- TECH/Print/PrinterKenmerkUtils.cls.xml (revision 0) +++ TECH/Print/PrinterKenmerkUtils.cls.xml (revision 28) @@ -0,0 +1,24 @@ + + + + +Voorlopige oplossing om losse functies van een printer op te vragen +Later zal een volledige Printer-implementatie oplossing gebouwd worden +(Created by WimV on 15/10/2010) +vhLib.Macro +1 +%RegisteredObject +0 + + + +Printer ondersteund geen Postscript-printing, kan alleen printen via PCL +1 +PrinterName:%String +1 +%Boolean + + + +