public void ArrayDeclare(VariableExpression _name, List <IExpression> _size, ParserType _type)
{
Console.Write("Dim As ");
switch (_type)
{
case ParserType.Double:
Console.Write("Double");
break;
case ParserType.Integer:
Console.Write("Integer");
break;
case ParserType.String:
Console.Write("String");
break;
}
((ITabControl)_name).WithFrontSpace();
Console.Write("(");
var last = _size.Last();
var first = _size.First();
foreach (var size in _size)
{
if (size == first)
{
((ITabControl)size).WithoutFrontSpace();
}
else
{
((ITabControl)size).WithFrontSpace();
}
if (size != last)
{
Console.Write(",");
}
}
Console.Write(")");
}
public void ArrayUseExpression(List <IExpression> _offset, VariableExpression _variable)
{
Console.Write("(");
var last = _offset.Last();
var first = _offset.First();
foreach (var size in _offset)
{
if (size == first)
{
((ITabControl)size).WithoutFrontSpace();
}
else
{
((ITabControl)size).WithFrontSpace();
}
if (size != last)
{
Console.Write(",");
}
}
Console.Write(")");
}
public ProcedureDeclare(VariableExpression name, IStatement arguments, IStatement statements)
{
_name = name;
_arguments = arguments;
_statements = statements;
}
public ArrayDeclare(VariableExpression name, ParserType type, List <IExpression> size)
{
_name = name;
_type = type;
_size = size;
}
public CallFunctionExpression(VariableExpression name, IStatement arguments)
{
_name = name;
_arguments = arguments;
}
public DeclareStatement(VariableExpression value, ParserType type)
{
_value = value;
_type = type;
}
public Argument(VariableExpression name, ParserType type)
{
Name = name;
Type = type;
}
public DeclareAndAssignStatement(ParserType type, VariableExpression name, IExpression right)
{
_type = type;
_name = name;
_right = right;
}
public ArrayUseExpression(VariableExpression variable, List <IExpression> offset)
{
_variable = variable;
_offset = offset;
}
