
       .


CodeWorks.pm -  (package)      .
: 
	LoadModule($FileName) -     
		- $FileName -	 ,   .
	
	ProcessModule($ProcName) -     
		- $ProcName -	 ,     .    .

	FindProc($ProcName) -     .     $proc_start, $proc_end  $proc_body
		- $ProcName -	 ,     .

	CreateProc($ProcName, $ProcText, $PeforeProc) -   
		- $ProcName   -  
		- $ProcText   -   
		- $PeforeProc -  ,     .   .

	RemoveProc($ProcName, $WithComments) -   
		- $ProcName     -   
		- $WithComments -   ,         .

	InsertVarDecl($ObjName, $ProcName, $VarName) -   
		- $ObjName  -   .      :     
		                 <ObjectName>,       $ObjName.
		- $ProcName -  ,     .   ,    
		                 .
		- $VarName  -  .
		
	RemoveVarDecl($ObjName, $ProcName, $VarName) -   .   InsertVarDecl()
	
	RenameObject($ObjName, $ProcName, $OldName, $NewName) -    
		- $ObjName  -   .      :     
		                 <ObjectName>,       $ObjName.
		- $ProcName -  ,    - .   , 
		                   .
		- $OldName  -  
		- $NewName  -   

	InsertCode($ObjName, $ProcName, $Code, $AtEnd) -  
		- $ObjName  -   .      :   $Code  
		                <ObjectName>,       $ObjName.
		- $ProcName -  ,     .   ,    
		                .
		- $AtEnd    -    ,       .
		
	ReplaceCode($ObjName, $ProcName, $OldCode, $NewCode) -      .
		- $ObjName  -   .      :   $Code  
		                <ObjectName>,       $ObjName.
		- $ProcName -  ,     .   ,    
		                 .
		- $OldCode  -  . RegExp ,     , 
		                 .      -  
					  - ,   non capturing groupings, .. -  (?:||This|Self).
		- $NewCode  -  ,        $OldCode.

	RemoveCode($ProcName, $StartMarker, $EndMarker) -  ,  
		- $ProcName    -  ,     .   ,    
		                   .
		- $StartMarker -  ,     . : "\/\/{ "
		- $EndMarker   -  ,     . : "\/\/} "

	GetObjectName($FullFName) -        . ,  
		                        $FullFName = "Src\\\.1s"     "".

	PrintErrors() -    @errors  stdout

	GetErrorsDescr() -   -  @errors.     '\n'


 ,      :
	$first_proc			-        
	$last_proc			-        
	$last_proc_end		-        
	$last_var			-    
	$first_code			-     (  /)
	$first_line_for_ins	-  ,     
	$last_line_for_ins	-  ,    
	$proc_start			-    
	$proc_end			-    
	$proc_body			-    
	$line_count			-    
	@lines				-    
	@errors				-    ,    ,    -

Code_Ins.pl  -        .
 :    *.1s,    ,    .
 -   ,   CodeWorks.pm.    
   .     :
	.pl
	.pl
	.pl
	.pl
	.pl
	.pl
	.pl
	.pl
	

.pl  .pl -  .
