Index: AXtools/AXifPackageCleaner.cls.xml
===================================================================
diff -u
--- AXtools/AXifPackageCleaner.cls.xml	(revision 0)
+++ AXtools/AXifPackageCleaner.cls.xml	(revision 42452)
@@ -0,0 +1,81 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXtools.AXifPackageCleaner">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="UsedClassNames">
+<Type>%ArrayOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="RootPackage">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Cleanup">
+<FormalSpec>RootPackage:%String</FormalSpec>
+<Implementation><![CDATA[
+	set svnHelper = ##class(svn.Helper).%New()
+
+	set ..RootPackage = RootPackage
+	do ..UsedClassNames.Clear()
+	
+	do ..GetUsedClassNamesFromProperties(RootPackage_"."_"Envelope")
+	do ..AddUsedClassName(RootPackage_"."_"Envelope")
+	
+	#dim ClassIterator As TECH.Iterator = ##class(TECH.ClassUtils).GetClassesInPackageIterator(RootPackage,$$$True)
+	while ClassIterator.HasNext() {
+		#dim ClassName As %String = ClassIterator.Next()
+		do:$$$Not(..UsedClassNames.IsDefined(ClassName)) svnHelper.SVNDelete(ClassName_".cls")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GetUsedClassNamesFromProperties">
+<FormalSpec>ClassName:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	quit:$$$Not(##class(TECH.StringUtils).StartsWith(ClassName,..RootPackage))
+	
+	quit:..UsedClassNames.IsDefined(ClassName)
+	
+	set ClassDefinition = ##class(%Dictionary.ClassDefinition).%OpenId(ClassName)
+	set itProperties = ##class(TECH.ListIterator).%New(ClassDefinition.Properties)
+	while itProperties.HasNext() {
+		#dim Property As %Dictionary.PropertyDefinition = itProperties.Next()
+		#dim UsedClassName As %String = Property.Type
+		do ..GetUsedDerivedClasses(UsedClassName)
+		do ..GetUsedClassNamesFromProperties(UsedClassName)
+		do ..AddUsedClassName(UsedClassName)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GetUsedDerivedClasses">
+<FormalSpec>ClassName:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	quit:$$$Not(##class(TECH.StringUtils).StartsWith(ClassName,..RootPackage))
+	
+	#dim DerivedClasses As %ListOfDataTypes = ##class(TECH.ClassUtils).GetDerivedClasses(ClassName)
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(DerivedClasses)
+	while Iterator.HasNext() {
+		do ..AddUsedClassName(Iterator.Next())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AddUsedClassName">
+<FormalSpec>ClassName:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	quit:$$$Not(##class(TECH.StringUtils).StartsWith(ClassName,..RootPackage))
+	
+	do ..UsedClassNames.SetAt(ClassName,ClassName)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXtools/AXifClassCleaner.cls.xml
===================================================================
diff -u
--- AXtools/AXifClassCleaner.cls.xml	(revision 0)
+++ AXtools/AXifClassCleaner.cls.xml	(revision 42452)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXtools.AXifClassCleaner">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Cleanup">
+<FormalSpec>Package:%String</FormalSpec>
+<Implementation><![CDATA[
+	set svnRepo = ##class(svn.Repository).%OpenId(1)
+	
+	#dim ClassIterator As TECH.Iterator = ##class(TECH.ClassUtils).GetClassesInPackageIterator(Package)
+	while ClassIterator.HasNext() {
+		#dim Class As %Dictionary.ClassDefinition = ##class(%Dictionary.ClassDefinition).%OpenId(ClassIterator.Next())
+		if $$$Contains(Class.Super,"%RegisteredObject") {
+			set Class.Super = $replace(Class.Super,"%RegisteredObject","%SerialObject")
+			set Class.ClassType = "serial"
+		}
+		do Class.DescriptionReset()
+		do Class.%Save()
+		do svnRepo.ExportNonRoutine(,Class.Name_".cls")
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>