private void visit(ConcreteNode node)
{
AbstractNode asn = null;
// Import = "import" >> 2 children, _current == null
if (node.Type == ConcreteNodeType.Import && this._current == null)
{
if (node.Children.Count > 2)
{
this._compiler.AddError(CompileErrorCode.FewerParametersExpected, node.File, node.Line);
return;
}
if (node.Children.Count < 2)
{
this._compiler.AddError(CompileErrorCode.StringExpected, node.File, node.Line);
return;
}
var impl = new ImportAbstractNode();
impl.Line = node.Line;
impl.File = node.File;
impl.Target = node.Children[0].Token;
impl.Source = node.Children[1].Token;
asn = impl;
}
// variable set = "set" >> 2 children, children[0] == variable
else if (node.Type == ConcreteNodeType.VariableAssignment)
{
if (node.Children.Count > 2)
{
this._compiler.AddError(CompileErrorCode.FewerParametersExpected, node.File, node.Line);
return;
}
if (node.Children.Count < 2)
{
this._compiler.AddError(CompileErrorCode.StringExpected, node.File, node.Line);
return;
}
if (node.Children[0].Type != ConcreteNodeType.Variable)
{
this._compiler.AddError(CompileErrorCode.VariableExpected, node.Children[0].File, node.Children[0].Line);
return;
}
var name = node.Children[0].Token;
var value = node.Children[1].Token;
if (this._current != null && this._current is ObjectAbstractNode)
{
var ptr = (ObjectAbstractNode)this._current;
ptr.SetVariable(name, value);
}
else
{
this._compiler.Environment.Add(name, value);
}
}
// variable = $*, no children
else if (node.Type == ConcreteNodeType.Variable)
{
if (node.Children.Count != 0)
{
this._compiler.AddError(CompileErrorCode.FewerParametersExpected, node.File, node.Line);
return;
}
var impl = new VariableGetAbstractNode(this._current);
impl.Line = node.Line;
impl.File = node.File;
impl.Name = node.Token;
asn = impl;
}
// Handle properties and objects here
else if (node.Children.Count != 0)
{
// Grab the last two nodes
ConcreteNode temp1 = null, temp2 = null;
if (node.Children.Count >= 1)
{
temp1 = node.Children[node.Children.Count - 1];
}
if (node.Children.Count >= 2)
{
temp2 = node.Children[node.Children.Count - 2];
}
// object = last 2 children == { and }
if (temp1 != null && temp2 != null && temp1.Type == ConcreteNodeType.RightBrace &&
temp2.Type == ConcreteNodeType.LeftBrace)
{
if (node.Children.Count < 2)
{
this._compiler.AddError(CompileErrorCode.StringExpected, node.File, node.Line);
return;
}
var impl = new ObjectAbstractNode(this._current);
impl.Line = node.Line;
impl.File = node.File;
impl.IsAbstract = false;
// Create a temporary detail list
var temp = new List <ConcreteNode>();
if (node.Token == "abstract")
{
impl.IsAbstract = true;
}
else
{
temp.Add(node);
}
temp.AddRange(node.Children);
// Get the type of object
IEnumerator <ConcreteNode> iter = temp.GetEnumerator();
iter.MoveNext();
impl.Cls = iter.Current.Token;
var validNode = iter.MoveNext();
// Get the name
// Unless the type is in the exclusion list
if (validNode && (iter.Current.Type == ConcreteNodeType.Word || iter.Current.Type == ConcreteNodeType.Quote) &&
!this._compiler._isNameExcluded(impl.Cls, this._current))
{
impl.Name = iter.Current.Token;
validNode = iter.MoveNext();
}
// Everything up until the colon is a "value" of this object
while (validNode && iter.Current.Type != ConcreteNodeType.Colon &&
iter.Current.Type != ConcreteNodeType.LeftBrace)
{
if (iter.Current.Type == ConcreteNodeType.Variable)
{
var var = new VariableGetAbstractNode(impl);
var.File = iter.Current.File;
var.Line = iter.Current.Line;
var.Name = iter.Current.Token;
impl.Values.Add(var);
}
else
{
var atom = new AtomAbstractNode(impl);
atom.File = iter.Current.File;
atom.Line = iter.Current.Line;
atom.Value = iter.Current.Token;
impl.Values.Add(atom);
}
validNode = iter.MoveNext();
}
// Find the base
if (validNode && iter.Current.Type == ConcreteNodeType.Colon)
{
// Children of the ':' are bases
foreach (var j in iter.Current.Children)
{
impl.Bases.Add(j.Token);
}
validNode = iter.MoveNext();
}
// Finally try to map the cls to an id
if (this._compiler.KeywordMap.ContainsKey(impl.Cls))
{
impl.Id = this._compiler.KeywordMap[impl.Cls];
}
asn = (AbstractNode)impl;
this._current = impl;
// Visit the children of the {
AbstractTreeBuilder.Visit(this, temp2.Children);
// Go back up the stack
this._current = impl.Parent;
}
// Otherwise, it is a property
else
{
var impl = new PropertyAbstractNode(this._current);
impl.Line = node.Line;
impl.File = node.File;
impl.Name = node.Token;
if (this._compiler.KeywordMap.ContainsKey(impl.Name))
{
impl.Id = this._compiler.KeywordMap[impl.Name];
}
asn = (AbstractNode)impl;
this._current = impl;
// Visit the children of the {
AbstractTreeBuilder.Visit(this, node.Children);
// Go back up the stack
this._current = impl.Parent;
}
}
// Otherwise, it is a standard atom
else
{
var impl = new AtomAbstractNode(this._current);
impl.Line = node.Line;
impl.File = node.File;
impl.Value = node.Token;
if (this._compiler.KeywordMap.ContainsKey(impl.Value))
{
impl.Id = this._compiler.KeywordMap[impl.Value];
}
asn = impl;
}
if (asn != null)
{
if (this._current != null)
{
if (this._current is PropertyAbstractNode)
{
var impl = (PropertyAbstractNode)this._current;
impl.Values.Add(asn);
}
else
{
var impl = (ObjectAbstractNode)this._current;
impl.Children.Add(asn);
}
}
else
{
this._nodes.Add(asn);
}
}
}
private void visit( ConcreteNode node )
{
AbstractNode asn = null;
// Import = "import" >> 2 children, _current == null
if ( node.Type == ConcreteNodeType.Import && this._current == null )
{
if ( node.Children.Count > 2 )
{
this._compiler.AddError( CompileErrorCode.FewerParametersExpected, node.File, node.Line );
return;
}
if ( node.Children.Count < 2 )
{
this._compiler.AddError( CompileErrorCode.StringExpected, node.File, node.Line );
return;
}
var impl = new ImportAbstractNode();
impl.Line = node.Line;
impl.File = node.File;
impl.Target = node.Children[ 0 ].Token;
impl.Source = node.Children[ 1 ].Token;
asn = impl;
}
// variable set = "set" >> 2 children, children[0] == variable
else if ( node.Type == ConcreteNodeType.VariableAssignment )
{
if ( node.Children.Count > 2 )
{
this._compiler.AddError( CompileErrorCode.FewerParametersExpected, node.File, node.Line );
return;
}
if ( node.Children.Count < 2 )
{
this._compiler.AddError( CompileErrorCode.StringExpected, node.File, node.Line );
return;
}
if ( node.Children[ 0 ].Type != ConcreteNodeType.Variable )
{
this._compiler.AddError( CompileErrorCode.VariableExpected, node.Children[ 0 ].File, node.Children[ 0 ].Line );
return;
}
var name = node.Children[ 0 ].Token;
var value = node.Children[ 1 ].Token;
if ( this._current != null && this._current is ObjectAbstractNode )
{
var ptr = (ObjectAbstractNode)this._current;
ptr.SetVariable( name, value );
}
else
{
this._compiler.Environment.Add( name, value );
}
}
// variable = $*, no children
else if ( node.Type == ConcreteNodeType.Variable )
{
if ( node.Children.Count != 0 )
{
this._compiler.AddError( CompileErrorCode.FewerParametersExpected, node.File, node.Line );
return;
}
var impl = new VariableGetAbstractNode( this._current );
impl.Line = node.Line;
impl.File = node.File;
impl.Name = node.Token;
asn = impl;
}
// Handle properties and objects here
else if ( node.Children.Count != 0 )
{
// Grab the last two nodes
ConcreteNode temp1 = null, temp2 = null;
if ( node.Children.Count >= 1 )
{
temp1 = node.Children[ node.Children.Count - 1 ];
}
if ( node.Children.Count >= 2 )
{
temp2 = node.Children[ node.Children.Count - 2 ];
}
// object = last 2 children == { and }
if ( temp1 != null && temp2 != null && temp1.Type == ConcreteNodeType.RightBrace &&
temp2.Type == ConcreteNodeType.LeftBrace )
{
if ( node.Children.Count < 2 )
{
this._compiler.AddError( CompileErrorCode.StringExpected, node.File, node.Line );
return;
}
var impl = new ObjectAbstractNode( this._current );
impl.Line = node.Line;
impl.File = node.File;
impl.IsAbstract = false;
// Create a temporary detail list
var temp = new List<ConcreteNode>();
if ( node.Token == "abstract" )
{
impl.IsAbstract = true;
}
else
{
temp.Add( node );
}
temp.AddRange( node.Children );
// Get the type of object
IEnumerator<ConcreteNode> iter = temp.GetEnumerator();
iter.MoveNext();
impl.Cls = iter.Current.Token;
var validNode = iter.MoveNext();
// Get the name
// Unless the type is in the exclusion list
if ( validNode && ( iter.Current.Type == ConcreteNodeType.Word || iter.Current.Type == ConcreteNodeType.Quote ) &&
!this._compiler._isNameExcluded( impl.Cls, this._current ) )
{
impl.Name = iter.Current.Token;
validNode = iter.MoveNext();
}
// Everything up until the colon is a "value" of this object
while ( validNode && iter.Current.Type != ConcreteNodeType.Colon &&
iter.Current.Type != ConcreteNodeType.LeftBrace )
{
if ( iter.Current.Type == ConcreteNodeType.Variable )
{
var var = new VariableGetAbstractNode( impl );
var.File = iter.Current.File;
var.Line = iter.Current.Line;
var.Name = iter.Current.Token;
impl.Values.Add( var );
}
else
{
var atom = new AtomAbstractNode( impl );
atom.File = iter.Current.File;
atom.Line = iter.Current.Line;
atom.Value = iter.Current.Token;
impl.Values.Add( atom );
}
validNode = iter.MoveNext();
}
// Find the base
if ( validNode && iter.Current.Type == ConcreteNodeType.Colon )
{
// Children of the ':' are bases
foreach ( var j in iter.Current.Children )
{
impl.Bases.Add( j.Token );
}
validNode = iter.MoveNext();
}
// Finally try to map the cls to an id
if ( this._compiler.KeywordMap.ContainsKey( impl.Cls ) )
{
impl.Id = this._compiler.KeywordMap[ impl.Cls ];
}
asn = (AbstractNode)impl;
this._current = impl;
// Visit the children of the {
AbstractTreeBuilder.Visit( this, temp2.Children );
// Go back up the stack
this._current = impl.Parent;
}
// Otherwise, it is a property
else
{
var impl = new PropertyAbstractNode( this._current );
impl.Line = node.Line;
impl.File = node.File;
impl.Name = node.Token;
if ( this._compiler.KeywordMap.ContainsKey( impl.Name ) )
{
impl.Id = this._compiler.KeywordMap[ impl.Name ];
}
asn = (AbstractNode)impl;
this._current = impl;
// Visit the children of the {
AbstractTreeBuilder.Visit( this, node.Children );
// Go back up the stack
this._current = impl.Parent;
}
}
// Otherwise, it is a standard atom
else
{
var impl = new AtomAbstractNode( this._current );
impl.Line = node.Line;
impl.File = node.File;
impl.Value = node.Token;
if ( this._compiler.KeywordMap.ContainsKey( impl.Value ) )
{
impl.Id = this._compiler.KeywordMap[ impl.Value ];
}
asn = impl;
}
if ( asn != null )
{
if ( this._current != null )
{
if ( this._current is PropertyAbstractNode )
{
var impl = (PropertyAbstractNode)this._current;
impl.Values.Add( asn );
}
else
{
var impl = (ObjectAbstractNode)this._current;
impl.Children.Add( asn );
}
}
else
{
this._nodes.Add( asn );
}
}
}