TECH.RegisteredObject %Dictionary.ClassDefinition 1 %Dictionary.ClassDefinition 1 svn.Helper 1 1 1 %Status 1 ClassName:%String Method:%Dictionary.MethodDefinition %Boolean 1 %Boolean ClassDefinition:%Dictionary.ClassDefinition 1 %Boolean ClassName:%String 1 %Boolean 1 %String Method:%Dictionary.MethodDefinition 1 Name:%String,Method:%Dictionary.MethodDefinition 1 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 = $char(9)_CacheCommando_" ..VerwerkMethodCall("_$$$TussenQuotes(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 MockMethod.Implementation.WriteLine(Line) do MockMethod.%Save() quit ]]> ClassName:%String 1 MockClassName:%String,ClassName:%String 1 MockClassName:%String 1 %Dictionary.ClassDefinition 1 %String SourceCode:%String 1