private void get_prog(string p_code)
{
Regex regex = new Regex(@LexicalAnalyzer.p_prog, RegexOptions.IgnoreCase);
string prog_param = null;
string rec_struct = null;
string prog_result = null;
int b_scope_cnt = 0; // счетчик откр. скобок для подпрограмм
int e_scope_cnt = 0; // счетчик закр. скобок для подпрограмм
int rec_b_scope_cnt = 0; // счетчик открытия скобок для структуры
int rec_e_scope_cnt = 0; // счетчик зкарытия скобок для стурктуры
bool rec_parse = false; //признак разбора структуры
bool b_next = true; // признак продолжения цикла для получения списка параметров
bool b_com_next = false;
int begin_cnt = 0; // счетчик начала блока begin
int end_cnt = 0; // счетчик окончания блока
bool is_func = false; // признак функции
bool parse_param_stop = false; //признак того что параметры подпрограммы разобраны
string proc_code = "";
// счетчики
int n_str = 1;
int var_cnt = 1;
int proc_cnt = 1;
int macro_cnt = 1;
int inc_cnt = 1;
foreach (var str in p_code.Split(new string[] { Environment.NewLine }, StringSplitOptions.None))
{
// нормализация строки, удаление табуляции и спец. языка типа ref[ -> ref [
string l_str = Regex.Replace(str, @"(\t)+|;", " ").Trim();
l_str = Regex.Replace(l_str, @"(\s)?(ref\[)", " ref [");
if (l_str.Length == 0)
{
n_str++;
continue;
}
// удалим одностроковый коментарии
if (l_str.Contains("--"))
{
l_str = l_str.Remove(l_str.IndexOf("--"), l_str.Length - l_str.IndexOf("--"));
}
// удалим многострочный коментарий
if (l_str.Contains("/*"))
{
if (l_str.Contains("*/"))
{
l_str = l_str.Remove(l_str.IndexOf("/*"), l_str.IndexOf("*/") + 2);
b_com_next = false;
// continue;
}
else
{
l_str = l_str.Remove(l_str.IndexOf("/*"), l_str.Length);
b_com_next = true;
continue;
}
}
if (b_com_next)
{
if (l_str.Contains("*/"))
{
l_str = l_str.Remove(0, l_str.IndexOf("*/") + 2);
b_com_next = false;
}
else
{
continue;
}
}
if (l_str.Length == 0)
{
n_str++;
continue;
}
MatchCollection matches = regex.Matches(str);
if (matches.Count > 0)
{
foreach (Match match in matches)
{ //1 нашли строку с подпрограммой
_procTree = new _TreeCode.SubProgramm();
_procTree.name = Regex.Replace(match.Value, @"(procedure|function)", "", RegexOptions.IgnoreCase).Trim(); // наим подпрограммы
_procTree.type = Regex.Match(l_str, @"(procedure|function)", RegexOptions.IgnoreCase).Value;
_procTree.IsPublic = Regex.IsMatch(l_str, @"(public)", RegexOptions.IgnoreCase);
//IsProg = true;
}
}
// найдем параметры подпрораммы
if (_procTree != null)
{
// удалим коментарии из строки с параметрами
if (Regex.IsMatch(l_str, @LexicalAnalyzer.p_comment))
{
l_str = l_str.Remove(l_str.IndexOf("--"), l_str.Length - l_str.IndexOf("--"));
}
// разбор возвращаемого значения функции
if (_procTree.type == "function" && l_str.Contains("return"))
{
string _patt_ret = "return";
is_func = true;
prog_result = l_str.Substring(l_str.IndexOf(_patt_ret));
string[] arr_res = l_str.Substring(l_str.IndexOf(_patt_ret)).Split(new string[] { _patt_ret, "is", " " }, StringSplitOptions.RemoveEmptyEntries);
_TreeCode._Vars _result = new _TreeCode._Vars();
if (arr_res.Contains("ref"))
{
_result.IsRef = true;
arr_res = arr_res.Where(val => val != "ref").ToArray();
}
foreach (var item in arr_res)
{
_result.type = item.Trim();
_procTree.result = _result;
}
prog_result = null;
_result = null;
}
// разбор параметров
//разберем строку посимвольно
if (parse_param_stop == false)
{
int i = 1;
foreach (char c in l_str)
{
if (c == '(')
{
b_scope_cnt++;
}
if (c == ')')
{
e_scope_cnt++;
}
if (is_func && b_scope_cnt == 0)
{
if (l_str.IndexOf("return") < l_str.IndexOf('(') || l_str.IndexOf('(') == 0) // функция без параметров
{
//b_next = false;
break;
//continue;
}
}
else if (b_scope_cnt > 0 && b_scope_cnt != e_scope_cnt)
{
prog_param += c;
}
else if (b_scope_cnt > 0 && b_scope_cnt == e_scope_cnt)
{
prog_param += c;
// нормализация параметров, удаляем скобки по краям и пробелы
prog_param = prog_param.Trim(new Char[] { '(', ' ' });
prog_param = prog_param.Remove(prog_param.LastIndexOf(')'), 1);
get_param(ref prog_param, ref _procTree);
parse_param_stop = true;
break;
//continue;
}
i++;
}
}
else
if (b_next)
{
if (Regex.IsMatch(l_str, @"(^begin$)"))
{
begin_cnt++;
}
if (Regex.IsMatch(l_str, @"(^end$)"))
{
end_cnt++;
}
if (begin_cnt > 0)
{
if (begin_cnt == end_cnt)
{
b_next = false;
proc_code = null;
// l_func = false;
}
else
{
proc_code += l_str + NL;
}
}
}
}
else if (l_str.Contains("macro"))
{
// обработка макросов
macro_cnt++;
}
else if (l_str.Contains("include"))
{
// обработка Include
inc_cnt++;
}
else // строка с глобальными переменными
{
string[] global_arr = l_str.Split(' ');
if (rec_parse == false)
{
global_vars = new _TreeCode._Vars();
if (global_arr.Contains("public"))
{
global_arr = global_arr.Where(val => val != "public").ToArray();
global_vars.IsPublic = true;
}
if (global_arr.Contains("ref"))
{
global_arr = global_arr.Where(val => val != "ref").ToArray();
global_vars.IsRef = true;
}
if (global_arr.Contains("const"))
{
global_vars.IsConst = true;
global_arr = global_arr.Where(val => val != "const").ToArray();
}
if (global_arr.Contains("type"))
{
global_arr = global_arr.Where(val => val != "type").ToArray();
global_vars.IsType = true;
}
if (global_arr.Contains("default"))
{
global_arr = global_arr.Where(val => val != ":=").ToArray();
global_vars.type = global_arr[1];
}
if (global_arr.Contains(":="))
{
global_arr = global_arr.Where(val => val != ":=").ToArray();
global_vars.type = global_arr[1];
}
if (global_arr.Contains("is"))
{
global_arr = global_arr.Where(val => val != "is").ToArray();
}
if (global_arr.Contains("of"))
{
global_arr = global_arr.Where(val => val != "of").ToArray();
}
if (global_arr.Contains("by"))
{
global_arr = global_arr.Where(val => val != "by").ToArray();
}
if (global_arr.Contains("table"))
{
global_vars.IsTable = true;
global_arr = global_arr.Where(val => val != "table").ToArray();
}
if (global_arr.Contains("index"))
{
global_vars.IndexBy = global_arr[2];
global_arr = global_arr.Where(val => val != "index").ToArray();
}
if (global_arr.Contains("record"))
{
rec_parse = true;
global_vars.IsRec = true;
global_arr = global_arr.Where(val => val != "record").ToArray();
}
if (global_arr.Length >= 1)
{
global_vars.name = global_arr[0];
}
if (global_arr.Length >= 2)
{
global_vars.type = global_arr[1];
}
tree_code.vars.Add(var_cnt, global_vars);
var_cnt++;
}
if (rec_parse == true)
{
if (global_arr.Contains("("))
{
rec_b_scope_cnt++;
}
if (global_arr.Contains(")"))
{
rec_e_scope_cnt++;
}
if (rec_b_scope_cnt > 0)
{
rec_struct += string.Join(" ", global_arr);
}
if (rec_b_scope_cnt > 0 && rec_b_scope_cnt == rec_e_scope_cnt)
{
//необходимо добавить разбор рекорд
rec_parse = false;
rec_struct = null;
rec_b_scope_cnt = 0;
rec_e_scope_cnt = 0;
}
}
}
// закончили разбор параметров
if (b_next == false)
{
tLog.AppendText("-----------------------------------------" + NL);
tLog.AppendText(_procTree.IsPublic + " " + _procTree.type + " " + _procTree.name + NL);
if (_procTree.result != null)
{
tLog.AppendText("resutl ref=" + _procTree.result.IsRef + " type=" + _procTree.result.type + NL);
}
tLog.AppendText("*****************************************" + NL);
foreach (var par in _procTree.parameters)
{
tLog.AppendText("name=" + par.Value.name +
" ref=" + par.Value.IsRef +
" type=" + par.Value.type +
" def=" + par.Value.def_value + NL);
}
// tLog.AppendText(prog_param.Replace('\t', ' ') + NL);
tLog.AppendText("*****************************************" + NL);
tree_code.programms.Add(proc_cnt, _procTree);
//prog_name = null;
_procTree = null;
prog_param = null;
b_scope_cnt = 0;
e_scope_cnt = 0;
l_str = null;
b_next = true;
begin_cnt = 0;
end_cnt = 0;
proc_cnt++;
}
n_str++;
}
}
private void get_param(ref string p_code, ref _TreeCode.SubProgramm p_subs)
{
//p_code = p_code.Substring(p_code.IndexOf('(')+1, p_code.LastIndexOf(')')-1);
// p_code = getCommentParams(p_code);
string[] _pars = p_code.Split(',');
int i = 0;
foreach (var par in _pars)
{
_TreeCode.SubProgramm._Params p = new _TreeCode.SubProgramm._Params();
string[] _p = par.Trim().Split(new string[] { " ", ":=", }, StringSplitOptions.RemoveEmptyEntries);
p.name = _p[0];
if (_p.Length == 2) // параметра типа: имя тип
{
p.type = _p[1];
//if (_p[2].Contains("ref[")) // параметр типа: имя ref тип
//{
// p.IsRef = true;
// p.type = _p[2];
//}
}
else if (_p.Length > 2)
{
if (_p.Contains("in"))
{
p.in_par = true;
_p = _p.Where(val => val != "in").ToArray();
}
if (_p.Contains("out"))
{
p.out_par = true;
_p = _p.Where(val => val != "out").ToArray();
}
if (_p.Contains("ref")) // параметр типа: имя ref тип
{
p.IsRef = true;
p.type = _p[2];
// ищем знач. по умолчанию
if (_p.Contains("default"))
{
p.def_value = _p[4];
}
else if (_p.Length > 3)
{
p.def_value = string.Join(" ", _p.Skip(3));
}
}
else
{
p.type = _p[1];
// ищем знач. по умолчанию
if (_p.Contains("default"))
{
p.def_value = _p[3];
}
else if (_p.Length > 2)
{
p.def_value = string.Join(" ", _p.Skip(2));
}
}
}
p_subs.parameters.Add(i, p);
i++;
}
}
