OpenConf_Scripts/SyntaxAnalysis.wsc - master - MadDAD/alterplast

OpenConf_Scripts/SyntaxAnalysis.wsc
1 099 строк27 KB
trdm
24 мар 2017, 12:42
24 мар 2017, 12:42988c847
<?xml version="1.0" encoding="windows-1251"?>
<!--
	�������������� ������ �������
	
    �����: ����� �������
	E-mail:		<adirks@ngs.ru>
	ICQ UIN:	13472890

	������ $Revision: 1.24 $	

-->
<package>

<component>
<?component error="true" debug="true"?>
<registration
	description="OpenConf.1C++"
	progid="OpenConf._1CPP"
	version="1.00"
	classid="{39FDBFD7-F28E-4242-8F1C-1CFEFAB0B5DD}"
>
</registration>

<comment>���������� ���������� ����� OpenConf'a</comment> 
<reference guid="{578f85c8-89eb-4cda-ac7e-8f3bb34e8b54}" /> 

<public>
	<property name="ClassCount" get="get_ClassCount"/>
	<property name="ClassInfo" get="get_ClassInfo">
	<comment><![CDATA[
���������� ������ ���� TClassInfo �� ���������. ������ �.�. ������ - ������� � ���������, ��� ������� - ������ ������.
���������� �������:
	Name - ������: ��� ������
	Location - ������: ��� ��������� ��� �����, ��� ��������� ����������� �������
	BaseClasses - ���������: ����� ���� ������� �������
	Methods - ���������: ����� ���� ����������� �������
	Vars - ���������: ����� ���� ����������� ����������
	DefFile - ������: ��� ��������� ��� �����, ��� ��������� ����������� ������
������:
	OpenModule - ��������� ������ ������ � �������������
	FillMethodList - ��������� ������ ���� ����������� ������� ������. ���� �������� ��� ������ �� ������, � ������� ������� "�������"
	]]></comment>
	</property>
	
	<method name="SetConfig">
		<PARAMETER name="Configurator"/>
	</method>

	<method name="UpdateClassesInfo">
	<comment><![CDATA[
��������� ���������� � ������� 1�++.
	]]></comment>
	</method>

	<method name="FindClassByPath">
		<PARAMETER name="DocPath"/>
	<comment><![CDATA[
		���������� ������ ���� TClassInfo �� ���������, ������ ��� �� ����������� ����.
	]]></comment>
	</method>

	<method name="GetDefFiles">
	<comment><![CDATA[
		���������� ������ ���� "OpenConf.Collection" - ��������� prm-������ ����������� �������.
	]]></comment>
	</method>

	<method name="FindClassDefinition">
		<PARAMETER name="Doc"/>
		<PARAMETER name="ClassName"/>
	<comment><![CDATA[
		���������� ����� ������ � ������������ ������ - class ��������� ��� ����� ���������
	]]></comment>
	</method>

	<method name="OpenByPath">
		<PARAMETER name="FilePath"/>
	<comment><![CDATA[
		��������� ���� ��� ��������� � �������������
	]]></comment>
	</method>
</public>

<script language="JScript">
<![CDATA[

var Config;
var fso = new ActiveXObject("Scripting.FileSystemObject");
var OxyIniText = null;

var Classes = new ActiveXObject("OpenConf.Collection");
var DefFiles = new ActiveXObject("OpenConf.Collection");

// ��� �������� ������ ������ �� ���� � �����
var DictPathClasses = new ActiveXObject("Scripting.Dictionary");
var strPredFilePath = "";
var PredInfo = null;

function GetDefFiles()
{
	return DefFiles;
}

function get_ClassCount()
{
	return Classes.Size();
}

//index - ��� ������ ��� ����� � ���������
function get_ClassInfo(index)
{
	if( typeof(index) == "number" )
		return Classes.Item(index);
	
	var sz = Classes.Size();
	index = index.toLowerCase();
	for( i = 0; i < sz; i++ )
	{
		var Info = Classes.Item(i);
		if( Info.Name.toLowerCase() == index )
			return Info;
	}
	return null;
}

function SetConfig(Configurator)
{
	Config = Configurator
}

//Constructor for ClassInfo
function TClassInfo(Name, Location, BaseClasses, DefFile)
{
	this.Name = Name;
	this.Location = Location.replace("\\\\", "\\");
	this.BaseClasses = new ActiveXObject("OpenConf.Collection");
	this.Methods = new ActiveXObject("OpenConf.Collection");
	this.Vars = new ActiveXObject("OpenConf.Collection");
	this.DefFile = DefFile;
	
	this.OpenModule = function()
	{
		return OpenByPath(this.Location);
	}
	
	this.FillMethodList = FillMethodList;
	
	var re_class = new RegExp('[\\w�-���\\d_.]+', "g");
	var Matches;
	while( (Matches = re_class.exec(BaseClasses)) != null )
		this.BaseClasses.Add(Matches[0]);
}

function TClassModule()
{
	this.Type = 0; //1 - ����, 2 - ���������, 3 - ������� ���������
	this.Path = "";
	this.Doc = null;
	this.File = null;
	this.nLine = -1;
	this.WhereOpened = false;
	
	this.Open = function(ModuleName)
	{
		this.Close();

		ModuleName = ModuleName.replace("\\\\", "\\");
		
		this.Path = ModuleName;
		this.nLine = -1;
		
		name_len = ModuleName.length;
		if( ModuleName.substr(name_len-3).toUpperCase() == "@MD" )
		{
			this.Type = 2;
			RealName = "���������."+ModuleName.substr(0, name_len-3);
			//this.Doc = Config.Documents(RealName).Page("������");
			lDoc = Config.Documents(RealName);

			DocID = lDoc.ID;
			DocKind = lDoc.Kind; 
			Wnd = FindWindowByDocID(DocID, DocKind);
			this.WhereOpened = Wnd != null;
			
			if( Wnd != null )
				this.Doc = lDoc.Page("������");
			else
			{			
				lDoc.Open();
				this.Doc = lDoc.Page("������");
			
				if( (this.Doc == null) || !this.Doc){
					lWnd = FindWindowByDocID(DocID, DocKind);
					if( lWnd != null )
						lWnd.Close();
					return false;
				}
			}
		}
		else if( ModuleName.substr(name_len-4).toLowerCase() == ".ert" )
		{                        
			if( ! fso.FileExists(ModuleName) ) return false;

			this.Type = 3;
			Wnd = FindWindow(ModuleName);
			this.WhereOpened = Wnd != null;
			if( Wnd != null )
				this.Doc = Wnd.Document.Page("������");
			else
			{
				this.Doc = Config.Documents.Open(ModuleName);
				if (!this.Doc) // ���� �� �����-�� ������� �� ������ ������� ������
				{
					lWnd = FindWindow(ModuleName); // ���� ���� ���-���� ���������, ����� ��� �������
					if( lWnd != null )
						lWnd.Close();
					return false;
				}
				this.Doc = this.Doc.Page("������");
			}
		}
		else
		{
			if( ! fso.FileExists(ModuleName) ) return false;
			this.Type = 1;
			this.File = fso.OpenTextFile(ModuleName, 1, false);
		}
		
		this.nLine = 0;
		return true;
	}
	
	this.GetText = function()
	{
		if( this.Type == 1 )
			if (!this.File.AtEndOfStream)
				return this.File.ReadAll();
			else
				return "";
		else
			return this.Doc.Text;
	}
	
	this.GetLine = function()
	{
		var str;
		if( this.Type == 1 )
		{
			if( this.File.AtEndOfStream ) return null;
			str = this.File.ReadLine();
		}
		else
		{
			if( this.nLine >= this.Doc.LineCount ) return null;
			str = this.Doc.Range(this.nLine);
		}
		this.nLine++;
		return str;
	}

	this.Close = function()
	{
		if( this.Type == 1 )
		{
			if( this.File != null ) this.File.Close();
		}
		else if( this.Type == 2 )
		{
			if( ! this.WhereOpened )
			{
				Wnd = FindWindow(this.Doc.path);
				if( Wnd != null ) Wnd.Close();
			}
		}
		else if( this.Type == 3 )
		{
			if( ! this.WhereOpened )
			{
				Wnd = FindWindow(this.Doc.path);
				if( Wnd != null ) Wnd.Close();
			}
		}
		this.Type = -1;
		this.File = null;
		this.Doc = null;
	}
}

function FindWindow(DocPath)
{
	Wnd = Config.Windows.FirstWnd;
	while( Wnd != null )
	{   
		// ����� �� �������� �� ��������� ���� ���� .\�����\..\ 
		// ��������� ���������� ����
		var fileDocPath = DocPath;
		try{
			fileDocPath = fso.GetFile(DocPath).Path;
		}
		catch(e){}

		var wndDocPath = Wnd.Document.path;
		try{
			wndDocPath = fso.GetFile(wndDocPath).Path;
		}
		catch(e){}
		
		if( wndDocPath.toLowerCase() == fileDocPath.toLowerCase() )
			return Wnd;

		var lWndDocPath = wndDocPath + "\\MD Programm text";
//Config.Message("fileDocPath <" + fileDocPath+">");
//Config.Message("lWndDocPath <" + wndDocPath+">");
		
		if( lWndDocPath.toLowerCase() == fileDocPath.toLowerCase() )
			return Wnd;

		Wnd = Config.Windows.NextWnd(Wnd);
	}
	return null;
}

function FindWindowByDocID(DocID, DocKind)
{
	Wnd = Config.Windows.FirstWnd;
	while( Wnd != null )
	{   
		var lDoc = Wnd.Document;
		var wndDocID = lDoc.ID;
		var wndDocKind = lDoc.Kind;
		
		if( (wndDocID == DocID) && ( wndDocKind.toLowerCase() == DocKind.toLowerCase() ))
			return Wnd;

		Wnd = Config.Windows.NextWnd(Wnd);
	}
	return null;
}

function FindClassByPath(DocPath)
{
//	For i = 0 to SA.ClassCount - 1
//		Set Info = SA.ClassInfo(i)
//		If Info.Location = Selection Then 
//	Next
//Config.Message("��� ����� �� ��� ���� "+DocPath);
//	DictPathClasses.Add(Location, Name);

		// ����� �� �������� �� ��������� ���� ���� .\�����\..\ 
		// ��������� ���������� ����
		var fileDocPath = DocPath;
		try{
			fileDocPath = fso.GetFile(DocPath).Path;
		}
		catch(e){}
//Config.Message("fileDocPath <" + fileDocPath+">");
		if (strPredFilePath == fileDocPath)
			return PredInfo;

	try{
		var Info1 = DictPathClasses.Item(fileDocPath);
//Config.Message("����� Class <" + Info1.Name+">");
		strPredFilePath = fileDocPath;
		PredInfo = Info1;
		
		return Info1;
		//return DictPathClasses.Item(fileDocPath);
	}
	catch(e){}
//Config.Message("������ �� �����");	
	return null;
	
	var sz = Classes.Size();
	var i = 0;
	for( i = 0; i < sz; i++ )
	{
		var Info = Classes.Item(i);

		// ����� �� �������� �� ��������� ���� ���� .\�����\..\ 
		// ��������� ���������� ����
		
		var classDocPath = Info.Location;
		try{
			classDocPath = fso.GetFile(Info.Location).Path;
		}
		catch(e){}
//Config.Message("classDocPath" + classDocPath);
		
		if( classDocPath.toLowerCase() == fileDocPath.toLowerCase() )
			return Info;
	}
	
	return null;
	
}

function FindClassDefinition(Doc, ClassName)
{
	re = new RegExp("^\\s*((class)|(�����))\\s+" + ClassName+"\\s*($|[^\\w�-�_.]+)", "i");

	n = Doc.LineCount;
	for(i = 0; i < n; i++)
	{
		str = Doc.Range(i);
		if (re.test(str))
			return i;
	}
	
	return -1;
}

function OpenByPath(FilePath)
{
	//Config.Message(FilePath);
	name_len = FilePath.length;
	if( FilePath.substr(name_len-3).toUpperCase() == "@MD" )
	{
		RealName = "���������."+FilePath.substr(0, name_len-3);
		//Config.Message(RealName);
		Doc = Config.Documents(RealName);
		Doc.Open();
	}
	else if( FilePath.substr(name_len-4).toLowerCase() == ".ert" )
	{
		//Config.Message("ert "+FilePath);
		Wnd = FindWindow(FilePath);
		if( Wnd != null )
			Doc = Wnd.Document;
		else
			Doc = Config.Documents.Open(FilePath);
	}
	else //��������� ����
	{
		//Config.Message("file "+FilePath);
		Wnd = FindWindow(FilePath);
		if( Wnd != null )
			Doc = Wnd.Document;
		else
			Doc = Config.Documents.Open(FilePath);
		return Doc;
	}
	
	Doc.ActivePage = "������";
	return Doc.Page("������");
}

function UpdateClassesInfo()
{
	Classes.RemoveAll(Classes);
	DictPathClasses.RemoveAll();
	DefFiles.RemoveAll(DefFiles);
	
	OxyIniText = null;
	
	FileName = Config.IBDir + "defcls.prm";
	if( ! fso.FileExists(FileName) )
	{
		try
		{
			var Doc = Config.Documents("���������.DefCls");
		}
		catch(err)
		{
			return;
		}
		FileName = "DefCls@MD";
	}
	
	ScanClassHeader(FileName, Config.IBDir, true);
}

function ScanClassHeader(FileName, BaseDir, bFlagErrorShow)
{
	while( BaseDir.substr(BaseDir.length-1) == "\\" )
		BaseDir = BaseDir.substr(0, BaseDir.length-1);

		//Config.Message("================================ ScanClassHeader ================================ ", Config.mError);
		//Config.Message("FileName " + FileName, Config.mError);
		//Config.Message("BaseDir " + BaseDir, Config.mError);
		//Config.Message("bFlagErrorShow " + bFlagErrorShow, Config.mError);
	
	var Header = new TClassModule;
	if( !Header.Open(FileName) )
	{
		if( bFlagErrorShow )
			Config.Message("������ �������� ������ " + FileName, Config.mError);
		return false;
	}
	DefFiles.Add(FileName);
	
	var re_include = new RegExp('^\\s*//#include\\s+((?:".*")|(?:(?:\\s*\\S+)*)|(?:[^"]*))\\s*$', "i");
	var str, Matches;
	while( (str = Header.GetLine()) != null )
	{
		if( (Matches = re_include.exec(str)) == null ) continue;
		
		var IncFile = Matches[1];
		//Config.Message("1 IncFile " + IncFile, Config.mError);

		if( IncFile.substr(0, 1) == '"' ) IncFile= IncFile.substr(1, IncFile.length - 2);
		//Config.Message("2 IncFile " + IncFile, Config.mError);


		// ����� � ����� ����������� ���� ������������ �������� ��
		IncFile1 = Translate1CPPath(IncFile, Config.IBDir);
		//Config.Message("3 IncFile1 " + IncFile1, Config.mError);
		
		if( fso.FileExists(IncFile1) )
			ScanClassHeader(IncFile1, fso.GetParentFolderName(IncFile1), false);

		// ����� � ����� ����������� ���� ������������ �������� prm-�����
		else
		{
			IncFile = Translate1CPPath(IncFile, BaseDir);
			//Config.Message("4 IncFile " + IncFile, Config.mError);
		
			/*
			if( ! fso.FileExists(IncFile) )
			{
				if (bFlagErrorShow)
					Config.Message("������ �������� ������ " + FileName, Config.mError);
				return false;
			}
			*/
			var bExistsFile = ScanClassHeader(IncFile, fso.GetParentFolderName(IncFile), true);
			if (! bExistsFile)
				return false;
		}
	}

	Header.Open(FileName);
	var Text = Header.GetText();
	Text = RemoveComments(Text);

	//var lFilePathPattern = "\\w:\\\\(?:[^:]+\\\\)*[^:]+\\.[^:\\s]+" ;
	//var re_class = new RegExp('(?:�����|class)\\s+(\\S+)\\s*=\\s*((?:'+lFilePathPattern+')|[^:\\s]+)\\s*(?::\\s*([^{]*))?\\s*{', "mig");
	var lFilePathPattern = "\\w:\\\\(?:[^:\"]+\\\\)*[^:\"]+\\.[^:\\s\"]+" ;
	var re_class = new RegExp('(?:�����|class)\\s+(\\S+)\\s*=\\s*\"*((?:'+lFilePathPattern+')|[^:\\s\"]+)\"*\\s*(?::\\s*([^{]*))?\\s*{', "mig");

	while( (Matches = re_class.exec(Text)) != null )
	{
		var Name = Matches[1];
		var Location = Matches[2];
		var Base = Matches[3].replace(/\/\/.*$/mg, "");
		Base = Base.replace(/[\r\n]/, "");

		//Config.Message(Name+": "+Location+": "+Base);

		Location1 = Translate1CPPath(Location, Config.IBDir);
		if(fso.FileExists(Location1) )
			Location = Location1;
		else
			Location = Translate1CPPath(Location, BaseDir);

		//Config.Message(Name+": "+Location+": "+Base);
			
//		if(! fso.FileExists(Location) )
//		{
//			if (bFlagErrorShow)
//				Config.Message("������ �������� ������ "+ Name +", ��� ����� " + Location, Config.mError);
//			continue;
//		}

		var Info = new TClassInfo(Name, Location, Base, FileName);
		Classes.Add(Info);

		try{ // ����� ����� ��� ���������������
//Config.Message("����� "+Name+" - ���� <"+Location+">")		
			DictPathClasses.Add(Location, Info);
		}
		catch(e) {}
	}

	Header.Close();
	
	return true;
}

function Translate1CPPath(Path, BaseDir)
{
	if( Path.substr(Path.length-3).toUpperCase() == "@MD" )
		return Path;
	if( Path.substr(0, 1) == "#" )
	{
		PathParts = Path.split("\\");
		PathParts[0] = OxyAlias(PathParts[0]);
		return PathParts.join("\\");
	}
	//if( Path.substr(1, 1) != ":" && Path.substr(2, 1) != "\\" ) // TODO
	if( Path.substr(1, 1) != ":" || Path.substr(2, 1) != "\\" )
	{
		var BaseDir1 = BaseDir;
		while( BaseDir1.substr(BaseDir1.length-1) == "\\" )
			BaseDir1 = BaseDir1.substr(0, BaseDir1.length-1);
		return BaseDir1 + "\\" + Path;
	}
		
	return Path;
}

function OxyAlias(alias)
{
	if( OxyIniText == null )
	{
		var IniName = Config.BinDir + "oxy.ini";
		if( ! fso.FileExists(IniName) )
			return "";
		var OxyINI = fso.OpenTextFile(IniName, 1, false);
		OxyIniText = OxyINI.ReadAll();
	}
	
	var re_alias = new RegExp('^' + alias.substr(1) + '\\s*=\\s*([^\\r\\n]*)\\s*[\\r\\n]*$', "mig");
	var Matches;
	var found = "";
	while( (Matches = re_alias.exec(OxyIniText)) != null )
		found = Matches[1];
	
	if( found != "" && found.substr(found.length-1) == "\\" )
		found = found.substr(0, found.length-1);

	return found;
}

function FillMethodList()
{
	//var re_comment = new RegExp('^\\s*((?:(?:(?:"[^"]")*)|(?:[^/]*)|(?:[^/]+/))*)(//.*)?\\s*$', "");
	var re_exopr_var = new RegExp('\\s*(?:(?:Var)|(?:�����))\\s*([\\w�-���\\d]*)(?:\\[[\\d\\s]*\\])?\\s+�������\\s*;.*$', "igm");
	//var re_var = new RegExp('([\\w�-���\\d]+)\\s*(\\[[\\d\\s,]*\\])?', "ig");
	//var re_space = new RegExp('\\s+', "g");
	var re_proc = new RegExp('\\s*((?:procedure)|(?:function)|(?:���������)|(?:�������))\\s+([\\w�-���\\d]+)\\s*\\(([\\w�-���\\d\\s,.="\']*)\\)\\s*(?:export|�������)\\s*((?:forward)|(?:�����))?', "igm");
	
	this.Methods.RemoveAll(this.Methods);
	this.Vars.RemoveAll(this.Methods);

	var Module = new TClassModule;
	if( ! Module.Open(this.Location) )
	{
		Config.Message("���������� ������� ������ "+this.Location);
		return;
	}
	
	var Text = Module.GetText();
	Module.Close();
	
	var Matches;
	while( (Matches = re_proc.exec(Text)) != null )
	{
		if( Matches[4] != "" ) continue;
		
		method_type = Matches[1].toLowerCase();
		if( method_type == "procedure" || method_type == "���������" )
			method_type = "p:";
		else
			method_type = "f:";
		this.Methods.Add(method_type + Matches[2]);
	}

	while( (Matches = re_exopr_var.exec(Text)) != null )
	{
		this.Vars.Add(Matches[1]);
	}
}

function RemoveComments(str)
{
	var re_CrLf = new RegExp('\r\n', "");
	var Lines = str.split(re_CrLf);
	var n = Lines.length;
	for(i = 0; i < n; i++)
	{
		//var pos = Lines[i].indexOf("//");
		var lLine = Lines[i];
		var pos = lLine.indexOf("//");
		if( pos >= 0 )
		{
			var pos1 = lLine.indexOf("//#");
			if( pos1 != pos ) // ( pos1 < 0 )
			{
				Lines[i] = lLine.substr(0, pos);
			}
			else
			{
				Lines[i] = lLine.substr(pos+3, lLine.length);
			}
		}
	}
	
	return Lines.join("\r\n");
}

]]>
</script>
</component> <!-- OpenConf._1CPP -->


<!-- >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> -->
<component>
<?component error="true" debug="true"?>
<registration
	description="OpenConf.SyntaxAnalysis"
	progid="OpenConf.SyntaxAnalysis"
	version="1.00"
	classid="{C82CA5DE-9211-4881-9389-90813F45D6F2}"
>
</registration>

<comment>���������� ���������� ����� OpenConf'a</comment> 
<reference guid="{578f85c8-89eb-4cda-ac7e-8f3bb34e8b54}" /> 

<public>
	<property name="Methods" get="get_Methods"/>
	<property name="Method" get="get_Method"/>
	<property name="MethodCount" get="get_MethodCount"/>
	
	<method name="SetConfig">
		<PARAMETER name="Configurator"/>
	</method>

	<method name="AnalyseExpression">
	<comment><![CDATA[
	������ ���������, � ���������� ��������� �� �����
	]]></comment>
		<PARAMETER name="TextDoc"/>
		<PARAMETER name="StartLine"/>
		<PARAMETER name="StartCol"/>
	</method>
	
	<method name="AnalyseModule">
	<comment><![CDATA[
	������ ���������� ������
	]]></comment>
		<PARAMETER name="TextDoc"/>
	</method>
</public>

<script language="JScript">
<![CDATA[

var Config;
var Methods = new ActiveXObject("OpenConf.Collection");
var ModuleVars = new ActiveXObject("OpenConf.Collection");


function get_Methods()
{
	return Methods;
}
function get_MethodCount()
{
	return Methods.Size();
}
function get_Method(i)
{
	return Methods.Item(i);
}

function SetConfig(Configurator)
{
	Config = Configurator
}

//Method Constructor
function Method()
{
	this.Name = "";
	this.Params = new ActiveXObject("OpenConf.Collection");
	this.Vars = new ActiveXObject("OpenConf.Collection");
	this.DeclaredVars = new ActiveXObject("OpenConf.Collection");
	this.AutomaticVars = new ActiveXObject("OpenConf.Collection");
	this.Calls = new ActiveXObject("OpenConf.Collection");
	this.StartLine = 0;
	this.EndLine = 0;
}

//Expression Constructor
function Expression()
{
	this.Text = "";
	this.Type = "";
	this.Parts = new ActiveXObject("OpenConf.Collection");
	this.StartLine = -1;
	this.StartCol = -1;
	this.EndLine = -1;
	this.EndCol = -1;
}

function ExpressionPart()
{
	this.Text = "";
	this.Type = "";
	this.Methods = new ActiveXObject("OpenConf.Collection");
	this.Properties = new ActiveXObject("OpenConf.Collection");
}


var re_comment = new RegExp('^\\s*((?:(?:(?:"[^"]")*)|(?:[^/]*)|(?:[^/]+/))*)(//.*)?\\s*$', "");
var re_proc = new RegExp('^\\s*((?:procedure)|(?:function)|(?:���������)|(?:�������))\\s+([\\w�-���\\d]+)\\s*\\(([\\w�-���\\d\\s,.="\']*)\\)\\s*((?:forward)|(?:�����))?(.*)$', "i");
var re_param = new RegExp('(?:(?:Val)|(?:����)\\s+)?([\\w�-���\\d]+)(\\s*=\\s*(?:(?:"[^"]")|(?:[^,)]*))*)?', "ig");
var re_proc_end = new RegExp('((?:EndProcedure)|(?:EndFunction)|(?:��������������)|(?:������������))', "i");
var re_vars_def = new RegExp('^\\s*(?:(?:Var)|(?:�����))\\s*([\\w�-���\\d,=\\[\\]\\s]*)(\\s+�������\\s*)?([\\s;]*)$', "i");
var re_var = new RegExp('([\\w�-���\\d]+)\\s*(\\[[\\d\\s,]*\\])?', "ig");
var re_var_assign = new RegExp('([\\w�-���\\d.]+)\\s*=\\s*(([^;]*);)?', "g");
var re_call = new RegExp('([\\w�-���\\d.]+)\\s*\\(', "g");
var re_space = new RegExp('\\s+', "g");
var re_CrLf = new RegExp('[\\n]+', "");


//========================================================================================
// ����������� ���������, ��������� ��� �� �����, ��� ������ ����� �������� ���������� ���.
//========================================================================================
var re_IdentifierFirstLetter = /[_a-z�-���]/i;
var re_IdentifierLetter = /[_0-9a-z�-���]/i;
function AnalyseExpression(TextDoc, StartLine, StartCol, EndLine, EndCol)
{
	var nLine, strLine;

	var Expr = new Expression();
	var ExprPart;
	var state = 0; //0 - start, 1 - scanning identifier, 2 - in string, 3 - in date, 4 - in number, 5 - in func params
	var StateStack = new Array;
	var ParensCount = 0;
	
	
	if( EndLine == null )
		EndLine = TextDoc.LineCount - 1;
	
	for( nLine = StartLine; nLine <= EndLine; nLine++ )
	{
		strLine = TextDoc.Range(nLine);
		
		if( nLine == EndLine && EndCol != null )
			strLine = strLine.substr(0, EndCol);
		if( nLine == StartLine )
			strLine = strLine.substr(StartCol);
			
		var Matches = re_comment.exec(strLine);
		if( Matches != null ) strLine = Matches[1]; //�������� ����������� ������

		//����������� ��������� ������
		var chr, len = strLine.length;
		for( i = 0; i < len; i++ )
		{
			chr = strLine.charAt(i);
			if( re_CrLf.test(chr) ) continue;
			//Config.Message("	" + chr);
			
			//Text constants - just skip it
			if( chr == '"' )
			{
				if( state == 2 )
				{
					state = StateStack.pop();
				}
				else
				{
					StateStack.push(state);
					state = 2;
				}
				continue;
			}
			//Date constants - just skip it
			if( chr == "'" )
			{
				if( state == 3 )
				{
					state = StateStack.pop();
				}
				else
				{
					StateStack.push(state);
					state = 2;
				}
				continue;
			}
			
			switch( state )
			{
			case 0: //outside
				if( re_IdentifierFirstLetter.test(chr) )
				{
					strPart = chr;
					state = 1;
				}
				else if( chr == '=' )
				{
					ExprPart = new ExpressionPart();
					ExprPart.Text = chr;
					ExprPart.Type = "equal_sign";
					Expr.Parts.Add(ExprPart);
				}
				else if( chr != ' ' )
				{
					ExprPart = new ExpressionPart();
					ExprPart.Text = chr;
					ExprPart.Type = "delimiter";
					Expr.Parts.Add(ExprPart);
				}
				break
			case 1:
				if( re_IdentifierLetter.test(chr) )
					strPart += chr;
				else
				{
					ExprPart = new ExpressionPart();
					ExprPart.Text = strPart;
					ExprPart.Type = "identifier";
					Expr.Parts.Add(ExprPart);
					
					if( chr == '(' )
					{
						ExprPart.Type = "method";
						ParensCount = 1;
						state = 5;
					}
					else
					{
						state = 0;
						if( chr != ' ' )
						{
							ExprPart = new ExpressionPart();
							ExprPart.Text = chr;
							ExprPart.Type = "delimiter";
							Expr.Parts.Add(ExprPart);
						}
					}
				}
				break;
				
			case 5:
				if( chr == ')' )
				{
					ParensCount--;
					if( ParensCount == 0 )
						state = 0;
				}
				else if( chr == ')' )
				{
					ParensCount++;
				}
				break;
			}
			
			if( chr == ';' ) return Expr;
		}
	}
	
	if( state == 1 )
	{
		ExprPart = new ExpressionPart();
		ExprPart.Text = strPart;
		ExprPart.Type = "identifier";
		Expr.Parts.Add(ExprPart);
	}
	
	return Expr;
}


//========================================================================================
// ����������� ������, � ���������� ������ ����������, ��������, �������. 
// ��� ������ ��������� ���������� ������ ����������
//========================================================================================
function AnalyseModule(TextDoc)
{
	var Meth;
	var stStart = 0, stInProc = 1, stInModule = 2, stInVarsDef;
	var state = stStart, PrevState;
	
	Methods.RemoveAll(Methods);
	ModuleVars = new ActiveXObject("OpenConf.Collection");
	var proc_count = 0;
	
	var Lines = TextDoc.Text.split(re_CrLf);
	var n = Lines.length;
	for(i = 0; i < n; i++)
	{
		var str = Lines[i]; //TextDoc.Range(i);
		var Matches = re_comment.exec(str);
		if( Matches != null )
		{
			str = Matches[1];
		}
		
		switch( state )
		{
		case stStart:
		case stInModule:
			Matches = re_proc.exec(str);
			if( Matches != null )
			{
				forward = Matches[4];
				endproc = Matches[5];
				if( forward == "" )
				{
					Meth = new Method();
					Meth.Name = Matches[2];
					Meth.StartLine = i;
					str = Matches[3];
					while( (Matches = re_param.exec(str)) != null )
					{
						Meth.Params.Add(Matches[1]);
					}
					Methods.Add(Meth);
					proc_count++;
					state = stInProc;
					if( re_proc_end.exec(endproc) != null )
						state = stInModule;
						
					Config.Status(""+i+"/"+n+": "+Meth.Name);
				}
			}
			break;
			
		case stInProc:
			Matches = re_proc_end.exec(str);
			if( Matches != null )
			{
				if( state == stInProc ) Meth.EndLine = i;
				state = stInModule;
			}
			else if( (Matches = re_vars_def.exec(str)) != null )
			{
				exported = Matches[2];
				semicolon = Matches[3].replace(re_space, "");
				str = Matches[1];
				while( (Matches = re_var.exec(str)) != null )
				{
					if( state == stInProc )
						Meth.DeclaredVars.Add(Matches[1]);
					else
						ModuleVars.Add(Matches[1]);
				}
				if( semicolon != ";" )
				{
					PrevState = state;
					state = stInVarsDef;
				}
			}
			else
			{
				if( state == stInProc )
				{
					AutomaticVars = Meth.AutomaticVars;
					DeclaredVars = Meth.DeclaredVars;
					Params = Meth.Params;
				}
				else
				{
					AutomaticVars = ModuleVars;
					DeclaredVars = ModuleVars;
					Params = ModuleVars;
				}
				while( (Matches = re_var_assign.exec(str)) != null )
				{
					if( Matches[1].indexOf(".", 0) >= 0 ) continue;
					if( Params.IndexOf(Matches[1]) >= 0 ) continue;
					if( DeclaredVars.IndexOf(Matches[1]) >= 0 ) continue;
					if( AutomaticVars.IndexOf(Matches[1]) >= 0 ) continue;
					
					AutomaticVars.Add(Matches[1]+': '+Matches[3]);
				}
				
				if( state == stInProc )
				{
					while( (Matches = re_call.exec(str)) != null )
					{
						if( Matches[1].indexOf('.') >= 0 ) continue;
						if( Meth.Calls.IndexOf(Matches[1]) >= 0 ) continue;
						Meth.Calls.Add(Matches[1]);
					}
				}
			}
			break;
			
		case stInVarsDef:
			while( (Matches = re_var.exec(str)) != null )
			{
				if( PrevState == stInProc )
					Meth.DeclaredVars.Add(Matches[4]);
				else
					ModuleVars.Add(Matches[4]);
			}
			str = str.replace(re_space, "");
			if( str.substr(str.length-1) == ";" )
				state = PrevState;
			break;
		}
	}
	Config.Status("");

	return Methods;
}


]]>
</script>
</component>

</package>