Index: TECH/CompileUtils.cls.xml
===================================================================
diff -u -r1074 -r3894
--- TECH/CompileUtils.cls.xml	(.../CompileUtils.cls.xml)	(revision 1074)
+++ TECH/CompileUtils.cls.xml	(.../CompileUtils.cls.xml)	(revision 3894)
@@ -79,5 +79,49 @@
 	quit lbResult
 ]]></Implementation>
 </Method>
+
+<Method name="CompileMACFiles">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	set rset = ##class(%ResultSet).%New("%Library.Routine:RoutineList")
+	do rset.Execute("*.MAC")
+	while rset.Next() {
+		set Routine = rset.Get("Name")
+		set Generated = ##class(TECH.RoutineUtils).GeneratedClassCode(Routine,.GeneratedClass)
+		if 'Generated {
+			kill mdSources,mdErrors
+			set mdSources(Routine)=Routine
+			do $system.OBJ.CompileList(.mdSources,"cbk-d",.mdErrors)
+			if +$order(mdErrors("")) write Routine," failed",!
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="CompileAll">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	
+	set svnHelper = ##class(svn.Helper).%New()
+	
+	set itRoutines = ##class(TECH.ListIterator).%New(svnHelper.RoutineList())
+	while itRoutines.HasNext() {
+		do svnHelper.ToCompile.List.Insert(itRoutines.Next())
+	}
+	
+	set itClasses =  ##class(TECH.ListIterator).%New(svnHelper.ClassList())		
+	while itClasses.HasNext() {
+		do svnHelper.ToCompile.List.Insert(itClasses.Next())
+	}
+	
+	do ##class(TECH.ListUtils).RemoveItemFromList("svn.Helper.cls",svnHelper.ToCompile.List)
+	do ##class(TECH.ListUtils).RemoveItemFromList(..%ClassName(1)_".cls",svnHelper.ToCompile.List)
+	
+	for ctrCompileLoops = 1 : 1 : 10 {
+		set Recompile = ctrCompileLoops > 1
+		do svnHelper.CompileImportedSourceCode(Recompile)
+	}
+]]></Implementation>
+</Method>
 </Class>
 </Export>