public override IExprNode VisitVoidExprFor(P.VoidExprForContext context)
{
_keeper.CheckParenths(context);
var vcode = context.IDENT().Symbol.Text;
var vars = _keeper.Param.Vars;
TablikVar v;
if (vars.ContainsKey(vcode))
{
v = vars[vcode];
}
else
{
vars.Add(vcode, v = new TablikVar(vcode));
}
return(new ForNode(_keeper, context.FOR(), v, Go(context.expr()), Go(context.voidProg())));
}
public AssignNode(TablikKeeper keeper, ITerminalNode assign, ITerminalNode v, IExprNode expr, IExprNode type = null)
: base(keeper, assign, expr)
{
var vcode = v.Symbol.Text;
var vars = Keeper.Param.Vars;
if (vars.ContainsKey(vcode))
{
Var = vars[vcode];
}
else
{
vars.Add(vcode, Var = new TablikVar(vcode, type == null ? null : type.Type));
}
if (Keeper.Param.Inputs.ContainsKey(vcode))
{
AddError("Нельзя присваивать значение входу");
}
}
public VarNode(ITerminalNode terminal, TablikVar v)
: base(terminal)
{
Var = v;
}
//Семантический разбор поля Inputs
private void ParseInputs()
{
Inputs.Clear();
InputsList.Clear();
Vars.Clear();
var inputs = (ListNode <InputNode>) new InputsParsing(Keeper, InputsStr).ResultTree;
TablikVar v = null;
foreach (var node in inputs.Nodes)
{
var varCode = node.Token.Text;
if (Inputs.ContainsKey(varCode))
{
Keeper.AddError("Два входа с одинаковыми именами", node);
}
else if (varCode.ToLower() == "расчет" || varCode.ToLower() == "calc")
{
Keeper.AddError("Недопустимое имя входа", node);
}
switch (node.InputType)
{
case InputType.Simple:
var dt = node.TypeNode == null ? DataType.Real : node.TypeNode.Text.ToDataType();
var at = node.SubTypeNode == null ? ArrayType.Single : node.SubTypeNode.Token.Text.ToArrayType();
var val = node.ValueNode == null ? null : node.ValueNode.Mean;
v = new TablikVar(varCode, new SimpleType(dt, at), val);
break;
case InputType.Param:
if (!Module.Params.ContainsKey(node.TypeNode.Text))
{
Keeper.AddError("Не найден расчетный параметр", node.TypeNode);
}
else
{
var par = Module.Params[node.TypeNode.Text];
if (node.SubTypeNode == null)
{
if (!par.IsFun)
{
Keeper.AddError("Параметр без входов не может быть типом данных входа", node.TypeNode);
}
else
{
v = new TablikVar(varCode, par);
}
}
else if (!par.Params.ContainsKey(node.SubTypeNode.Text))
{
Keeper.AddError("Не найден расчетный подпараметр", node.SubTypeNode);
}
else
{
var spar = par.Params[node.SubTypeNode.Text];
if (!spar.IsFun)
{
Keeper.AddError("Подпараметр без входов не может быть типом данных входа", node.SubTypeNode);
}
else
{
v = new TablikVar(varCode, spar);
}
}
}
break;
case InputType.Signal:
string scode = node.TypeNode.Text.Substring(1, node.TypeNode.Text.Length - 2);
ObjectTypeBase t = null;
foreach (var con in Module.LinkedSources)
{
if (con.ObjectsTypes.ContainsKey(scode))
{
if (t == null)
{
t = con.ObjectsTypes[scode];
}
else
{
Keeper.AddError("Одинаковый код типа объекта в двух разных источниках", node);
}
}
else if (con.BaseObjectsTypes.ContainsKey(scode))
{
if (t == null)
{
t = con.BaseObjectsTypes[scode];
}
else
{
Keeper.AddError("Одинаковый код типа объекта в двух разных источниках", node);
}
}
}
if (t != null)
{
v = new TablikVar(varCode, t)
{
MetSignals = new SetS(), MetProps = new SetS()
}
}
;
else
{
Keeper.AddError("Не найден тип объекта или сигнала", node);
}
break;
}
if (v != null)
{
if (Inputs.ContainsKey(v.Code))
{
Keeper.AddError("Два входа с одинаковыми именами", node);
}
else
{
if (v.DefaultValue == null && InputsList.Count > 0 && InputsList[InputsList.Count - 1].DefaultValue != null)
{
Keeper.AddError("Входы со значениямия по умолчанию должны располагаться в конце списка входов", node);
}
InputsList.Add(Vars.Add(v.Code, Inputs.Add(v.Code, v)));
}
}
}
}
public ForNode(TablikKeeper keeper, ITerminalNode terminal, TablikVar v, IExprNode array, IExprNode prog)
: base(keeper, terminal, array, prog)
{
Var = v;
}