Index: Tools/AMF/ClassCreator.cls.xml
===================================================================
diff -u
--- Tools/AMF/ClassCreator.cls.xml	(revision 0)
+++ Tools/AMF/ClassCreator.cls.xml	(revision 855)
@@ -0,0 +1,218 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Tools.AMF.ClassCreator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="MockClass">
+<Type>%Dictionary.ClassDefinition</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Class">
+<Type>%Dictionary.ClassDefinition</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="svnHelper">
+<Type>svn.Helper</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..svnHelper = ##class(svn.Helper).%New()
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Update">
+<FormalSpec>ClassName:%String</FormalSpec>
+<Implementation><![CDATA[
+	set ..Class = ##class(%Dictionary.ClassDefinition).%OpenId(ClassName)
+	
+	if ..HasToUpdate() {
+		
+		#dim MockClassName As %String = ..GetMockClassName(ClassName)
+		
+		set ..MockClass = ..OpenOrCreate(MockClassName ,ClassName)
+	
+		do ..MockClass.Methods.Clear()
+	
+		set itMethods = ##class(TECH.ListIterator).%New(..Class.Methods)
+		while itMethods.HasNext() {
+			#dim Method As %Dictionary.MethodDefinition = itMethods.Next()
+			continue:Method.Private
+			do ..CreateMethod(Method)
+		}
+		do ..CreateNewMethod()
+		do ..CreateGeefServiceMethod()
+		do ..ExportToSVN(..MockClass.Name)
+		do ..svnHelper.CompileImportedSourceCode()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="HasToUpdate">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit 1
+]]></Implementation>
+</Method>
+
+<Method name="DerivesFromCorrectInterface">
+<FormalSpec>ClassName:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim DerivesFromCorrectInterface As %Boolean = ##class(TECH.ClassUtils).ClassDerivesFrom(ClassName,"TECH.Interface")
+	if 'DerivesFromCorrectInterface set DerivesFromCorrectInterface = ##class(TECH.ClassUtils).ClassDerivesFrom(ClassName,"TECH.InternalInterface")
+	quit DerivesFromCorrectInterface
+]]></Implementation>
+</Method>
+
+<Method name="GetContextClassName">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ContextClassName As %String = ""
+	if ##class(TECH.StringUtils).StartsWith(..Class.Name,"DOM") {
+		set ContextClassName = "DOM.DomeinContext"
+	} elseif ##class(TECH.StringUtils).StartsWith(..Class.Name,"APPS") {
+		set ContextClassName = "APPS.ApplicatieContext"
+	} elseif ##class(TECH.StringUtils).StartsWith(..Class.Name,"TECH") {
+		set ContextClassName = "TECH.Context"
+	}
+	quit ContextClassName
+]]></Implementation>
+</Method>
+
+<Method name="CreateNewMethod">
+<Implementation><![CDATA[
+	set Method = ##class(%Dictionary.MethodDefinition).%New()
+	set Method.Name = "New"
+	set Method.parent = ..MockClass
+	set Method.ReturnType = ..MockClass.Name
+	set Method.FormalSpec = "SessieID:%String"
+	set Method.ClassMethod = 1
+	set Method.SequenceNumber = 1
+	do Method.Implementation.WriteLine($char(9)_"quit ..%New(SessieID)")
+	do Method.%Save()
+]]></Implementation>
+</Method>
+
+<Method name="CreateGeefServiceMethod">
+<Implementation><![CDATA[
+	set Method = ##class(%Dictionary.MethodDefinition).%New()
+	set Method.Name = "Geef"_..GeefServiceNaam()
+	set Method.parent = ..MockClass
+	set Method.ReturnType = ..Class.Name
+	set Method.FormalSpec = ""
+	set Method.Private = 1
+	set Method.ClassMethod = 0
+	set Method.SequenceNumber = 2
+	do Method.Implementation.WriteLine($char(9)_"quit ##class("_..Class.Name_").%New()")
+	do Method.%Save()
+]]></Implementation>
+</Method>
+
+<Method name="CreateMethod">
+<FormalSpec>Method:%Dictionary.MethodDefinition</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	set AMFMethod = ##class(%Dictionary.MethodDefinition).%New()
+	set AMFMethod.Name = Method.Name
+	set AMFMethod.ClassMethod = Method.ClassMethod
+	set AMFMethod.parent = ..MockClass
+	set AMFMethod.ReturnType = Method.ReturnType
+	set AMFMethod.FormalSpec = Method.FormalSpec
+	
+	#dim CacheCommando As %String = $select($length(Method.ReturnType)>0:"quit",1:"do")
+	
+	set MethodInfo = ##class(TECH.ClassInfo.MethodDefinition).%New(Method,..Class)
+	#dim itParameters As TECH.Iterator = MethodInfo.GeefParameters() 
+	
+	set Parameters = ##class(%ListOfDataTypes).%New()
+	while itParameters.HasNext() {
+		#dim Parameter As TECH.ClassInfo.ParameterDefinition = itParameters.Next()
+		do Parameters.Insert(Parameter.GeefNaam())
+	}
+	
+	#define TussenQuotes(%v)   """"_%v_""""
+	
+	#dim Line As %String
+	
+	;set Line = $char(9)_"do ##class(AMF.OmgevingInitieerder).InitieerOmgeving(..SessieID)"
+	;do AMFMethod.Implementation.WriteLine(Line)
+	
+	#dim ServiceName As %String = ..GeefServiceNaam()
+	set Line = $char(9)_"#dim "_ServiceName _" As "_..Class.Name_"= ..Geef"_ServiceName_"()"
+	do AMFMethod.Implementation.WriteLine(Line)
+	
+	set Line = $char(9)_CacheCommando_" "_ServiceName_"."_Method.Name_"("
+	#dim ParametersAsString As %String = ##class(TECH.ListUtils).ListToPieces(Parameters,",")
+	if $length(ParametersAsString)>0 set Line = Line _##class(TECH.StringUtils).Replace(ParametersAsString,"&",".")
+	set Line = Line _ ")"
+	do AMFMethod.Implementation.WriteLine(Line)
+	set AMFMethod.SequenceNumber = 999
+	write !,AMFMethod.%Save()
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="GeefServiceNaam">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit $piece(..Class.Name,".",$length(..Class.Name,"."))
+]]></Implementation>
+</Method>
+
+<Method name="GetMockClassName">
+<FormalSpec>ClassName:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	quit ##class(TECH.StringUtils).Replace(ClassName,"APPS","AMF")
+]]></Implementation>
+</Method>
+
+<Method name="OpenOrCreate">
+<FormalSpec>MockClassName:%String,ClassName:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	if '##class(%Dictionary.ClassDefinition).%ExistsId() {
+		do ..CreateMock(MockClassName)	
+	}
+	quit ##class(%Dictionary.ClassDefinition).%OpenId(MockClassName)
+]]></Implementation>
+</Method>
+
+<Method name="CreateMock">
+<FormalSpec>MockClassName:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Dictionary.ClassDefinition</ReturnType>
+<Implementation><![CDATA[
+	set MockClass = ##class(%Dictionary.ClassDefinition).%New()
+	set MockClass.Name = MockClassName
+	set MockClass.Super = "AMF.RegisteredObject"
+	set MockClass.ProcedureBlock = ..Class.ProcedureBlock
+	do MockClass.%Save()
+	
+	quit MockClass
+]]></Implementation>
+</Method>
+
+<Method name="ExportToSVN">
+<FormalSpec>SourceCode:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim InternalName As %String = SourceCode
+	if $piece(SourceCode,".",$length(SourceCode,"."))'="mac" Set InternalName = SourceCode_".cls"
+	Do ..svnHelper.SVNExport(InternalName)
+	Do ..svnHelper.ToCompile.List.Insert(InternalName)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>