/// <see cref="AbstractNode.Clone"/>
public override AbstractNode Clone()
{
var node = new AtomAbstractNode(Parent);
node.File = File;
node.Line = Line;
node.Id = this.Id;
node._value = Value;
return(node);
}
/// <see cref="AbstractNode.Clone"/>
public override AbstractNode Clone()
{
var node = new AtomAbstractNode( Parent );
node.File = File;
node.Line = Line;
node.Id = this.Id;
node._value = Value;
return node;
}
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 );
}
}
}
