Load(path) 
	new file,class,codes,rs
	if $$ReadINI(path,.file)
	{
		set class=""
		for  
		{
			set class=$o(file("COMMAND",class), 1 ,codes) quit:class=""  
			w !,codes
			x codes
		}
		set class=""
		for  
		{
			set class=$o(file("CLASS",class), 1 ,codes) quit:class=""  			
			set codes=$ZCVT(codes,"u")
			if class["*"
			{
				set class( 1 )=$TR(class,"*","")
				s rs=##class(%ResultSet).%New("%Library.ClassDefinition:ClassInfo")
				if rs'="",rs.Execute(class(1))=1
				{
					while rs.Next()
					{
						set class(2)=rs.Get("Name") quit:'(class( 2 )[class( 1 ))  
						d class(class( 2 ),codes)
					}
				}
			} else  { d class(class,codes)}
		}
		set class=""
		for  
		{
			set class=$o(file("ROUTINES",class), 1 ,codes) quit:class=""  
			set codes=$ZCVT(codes,"u")
			d rtn(class,codes)
		}
	} else {w "Не удалось открыть файл "_path,!}
	q
class(cls,cd)
	w !,cls," "
	if cd["D" {	w "Закрываем",$system.OBJ.MakeClassDeployed(cls)}
	quit  
rtn(cls,cd)
	w !,cls," "
	if cd["DM" { w "Удаляем MAC",##class(%Library.Routine).Delete(cls_".MAC", 1 )}
	if cd["DI" { w "Удаляем INT",##class(%Library.Routine).Delete(cls_".INT", 1 )}
	quit  
Read(afile,file)
	new io,str,i,mysc
	set io=$IO,$ZT="ReadErr",mysc= 1 
	open afile:"R": 5  
	if $t 
	{
		use afile
		for i= 1 : 1   
		{
			read str: 2  quit:$ZEOF  
			if $ZSTRIP(str,"<>W"," ")'="" {set file($i(file))=str}
		}
	} else  {set mysc=0}
ReadErr
	set $ZT=""
	set:'($ZE["<ENDOFFILE>") mysc= 0 
	use io close afile
	quit mysc
ReadINI(afile,fINI)
	new file,i,mysc,section,str,name
	set mysc=$$Read(afile,.file)
	quit:mysc'=1 mysc
	for i=1:1:$g(file,0)
	{
		set str=$ZSTRIP($g(file(i)),"<>W"," ")
		if $e(str,1,1)'=";"
		{
		if str? 1 "["1.ANP1"]" 
		{
			set section=$ZCVT($p($p(str,"[", 2 ),"]", 1 ),"u")
		}
		elseif str? 1 .ANP1"=".E
		{
			set name=$ZSTRIP($p(str,"=", 1 ),"<>W"," ")
			if name'=""
			{
				set fINI(section,name)=$e(str,$f(str,"="),$l(str))
			}
		}
		}
	}
	quit  1 

; команды для eXecute - загрузка, компиляции, настройка и т.д.
[COMMAND]
; укажите реальный путь к файл проекта "demo.xml"
 1 =d $system.OBJ.Load("X:\WORK\Project\demo_data.xml","d")
 2 =d $system.OBJ.Load("X:\WORK\Project\demo_sys.xml","d")
 3 =d $system.OBJ.CompileProject("PRJ_DEMO","c-orsu")
 4 =d ##class(%Studio.Project).Delete("PRJ_DEMO")

; пост-секции
; <имя класс>=D - произвести перевод класса в режим эксплуатации
[CLASS]
Demo.Class1=D

; <имя рутины>=DМ - удалить МАС код, DI - удалить INT код,
[ROUTINES]
demo=DMDI