Kevin/Tiger
Archived
1
1
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

First public commit!

Browse Source
This commit is contained in:
Juan Carlos Pujol Mainegra
2017-08-18 03:07:43 -05:00
parent 2c754790e6
commit 5a8ddf6978
91 changed files with 17165 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

105
YATC/ASTNodes/LocalNode/ExpressionNode/StatementNode/AssignNode.cs Normal file
View File

@@ -0,0 +1,105 @@
/*
* Yet Another Tiger Compiler (YATC)
*
* Copyright 2014 Damian Valdés Santiago, Juan Carlos Pujol Mainegra
*
* Permission is hereby granted, free of charge, to any person obtaining a copy
* of this software and associated documentation files (the "Software"), to deal
* in the Software without restriction, including without limitation the rights
* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
* copies of the Software, and to permit persons to whom the Software is
* furnished to do so, subject to the following conditions:
*
* The above copyright notice and this permission notice shall be included in all
* copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
* SOFTWARE.
*
*/
using Antlr.Runtime;
using System.Linq.Expressions;
using System.Reflection.Emit;
using YATC.Scope;
namespace YATC.ASTNodes
{
class AssignNode : StatementNode
{
public AssignNode(IToken payload)
: base(payload)
{
}
public VarAccessNode LeftValueNode { get { return (VarAccessNode)TigerChildren[0]; } }
public ExpressionNode RightExpressionNode { get { return (ExpressionNode)TigerChildren[1]; } }
public override void CheckSemantics(TigerScope scope, Report report)
{
this.LeftValueNode.CheckSemantics(scope, report);
this.RightExpressionNode.CheckSemantics(scope, report);
// No se reporta el error para evitar cascadas de errores
this.TigerType = this.LeftValueNode.IsOk && this.RightExpressionNode.IsOk
? TigerType.Void
: TigerType.Error;
if (!this.IsOk)
return;
if (this.RightExpressionNode.TigerType.Equals(TigerType.Void))
{
report.AddError(this.Line, this.Column, "Right hand side must evaluate to a returning value.");
this.TigerType = TigerType.Error;
return;
}
/* Assignment */
if (!this.RightExpressionNode.TigerType.IsAssignableTo(this.LeftValueNode.TigerType))
{
report.AddError(this.Line, this.Column,
"Type mismatch: Types of variable declaration and expression do not match: '{0}' and '{1}'",
this.LeftValueNode.TigerType.Name, this.RightExpressionNode.TigerType.Name);
this.TigerType = TigerType.Error;
return;
}
// checks if left variable is not read-only, i.e., it is not defined in a ForNode
// la segunda pregunta accessNode == null es por si se quiere agregar campos o arrays
if (this.LeftValueNode.VariableInfo.IsReadOnly && this.LeftValueNode.AccessNode == null)
{
this.TigerType = TigerType.Error;
report.AddError(this.Line, this.Column,
"Cannot assign to a read-only variable (it may be declared within a for control structure).");
return;
}
this.TigerType = TigerType.Void;
}
internal override void GenerateCode(ModuleBuilder moduleBuilder)
{
this.LeftValueNode.GenerateCode(moduleBuilder);
this.RightExpressionNode.GenerateCode(moduleBuilder);
//int isOK = (int)(34 < 342);
this.VmExpression =
Expression.Block(
Expression.Assign(
this.LeftValueNode.VmExpression,
Expression.Convert(
this.RightExpressionNode.VmExpression,
this.LeftValueNode.TigerType.GetCLRType()
)
),
Expression.Empty());
}
}
}

80
YATC/ASTNodes/LocalNode/ExpressionNode/StatementNode/BreakNode.cs Normal file
View File

@@ -0,0 +1,80 @@
/*
* Yet Another Tiger Compiler (YATC)
*
* Copyright 2014 Damian Valdés Santiago, Juan Carlos Pujol Mainegra
*
* Permission is hereby granted, free of charge, to any person obtaining a copy
* of this software and associated documentation files (the "Software"), to deal
* in the Software without restriction, including without limitation the rights
* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
* copies of the Software, and to permit persons to whom the Software is
* furnished to do so, subject to the following conditions:
*
* The above copyright notice and this permission notice shall be included in all
* copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
* SOFTWARE.
*
*/
using Antlr.Runtime;
using System.Linq.Expressions;
using System.Reflection.Emit;
using YATC.Scope;
namespace YATC.ASTNodes
{
class BreakNode : StatementNode
{
public BreakNode(IToken payload)
: base(payload)
{
}
public IBreakeableNode Owner { get; set; }
public override void CheckSemantics(TigerScope scope, Report report)
{
foreach (var node in this.GetNodesToRoot())
{
var exprSeq = node as ExprSeqNode;
if (exprSeq != null)
exprSeq.HasBreakInside = true;
var breakable = node as IBreakeableNode;
if (breakable != null)
{
this.Owner = breakable;
break;
}
if (node is FunDeclNode)
{
report.AddError(this.Line, this.Column,
"Break loop control structure not found within function.");
break;
}
}
if (this.Owner == null)
{
report.AddError(Line, Column, "Break does not have a matching loop control structure owner.");
this.TigerType = TigerType.Error;
return;
}
this.TigerType = TigerType.Void;
}
internal override void GenerateCode(ModuleBuilder moduleBuilder)
{
this.VmExpression = Expression.Break(this.Owner.BreakTarget);
}
}
}

49
YATC/ASTNodes/LocalNode/ExpressionNode/StatementNode/EmptyNode.cs Normal file
View File

@@ -0,0 +1,49 @@
/*
* Yet Another Tiger Compiler (YATC)
*
* Copyright 2014 Damian Valdés Santiago, Juan Carlos Pujol Mainegra
*
* Permission is hereby granted, free of charge, to any person obtaining a copy
* of this software and associated documentation files (the "Software"), to deal
* in the Software without restriction, including without limitation the rights
* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
* copies of the Software, and to permit persons to whom the Software is
* furnished to do so, subject to the following conditions:
*
* The above copyright notice and this permission notice shall be included in all
* copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
* SOFTWARE.
*
*/
using Antlr.Runtime;
using System.Reflection.Emit;
using YATC.Scope;
namespace YATC.ASTNodes
{
class EmptyNode : StatementNode
{
public EmptyNode(IToken payload)
: base(payload)
{
}
public override void CheckSemantics(TigerScope scope, Report report)
{
this.TigerType = TigerType.Void;
}
internal override void GenerateCode(ModuleBuilder moduleBuilder)
{
// vacío a propósito
}
}
}

127
YATC/ASTNodes/LocalNode/ExpressionNode/StatementNode/ForNode.cs Normal file
View File

@@ -0,0 +1,127 @@
/*
* Yet Another Tiger Compiler (YATC)
*
* Copyright 2014 Damian Valdés Santiago, Juan Carlos Pujol Mainegra
*
* Permission is hereby granted, free of charge, to any person obtaining a copy
* of this software and associated documentation files (the "Software"), to deal
* in the Software without restriction, including without limitation the rights
* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
* copies of the Software, and to permit persons to whom the Software is
* furnished to do so, subject to the following conditions:
*
* The above copyright notice and this permission notice shall be included in all
* copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
* SOFTWARE.
*
*/
using Antlr.Runtime;
using System.Linq.Expressions;
using System.Reflection.Emit;
using YATC.Scope;
namespace YATC.ASTNodes
{
/// <summary>
/// for id := expr_1 to expr_2 do expr_3;
/// </summary>
class ForNode : StatementNode, IBreakeableNode
{
public ForNode(IToken payload)
: base(payload)
{
}
public TypeNode IdNode { get { return (TypeNode)TigerChildren[0]; } }
public ExpressionNode FromExpression { get { return (ExpressionNode)TigerChildren[1]; } }
public ExpressionNode ToExpression { get { return (ExpressionNode)TigerChildren[2]; } }
public ExpressionNode DoExpression { get { return (ExpressionNode)TigerChildren[3]; } }
public LabelTarget BreakTarget { get; set; }
private VariableInfo _iterVarInfo;
public override void CheckSemantics(TigerScope scope, Report report)
{
this.FromExpression.CheckSemantics(scope, report);
this.ToExpression.CheckSemantics(scope, report);
TigerScope innerScope = scope.CreateChildScope();
if (innerScope.CanFindFunVarInfo(this.IdNode.Name, false))
report.AddWarning(this.Line, this.Column,
"Variable name hides outer scope variable or function: '{0}'.",
this.IdNode.Name);
_iterVarInfo = new VariableInfo(this.IdNode.Name, new TigerTypeHolder(TigerType.Int), false) { IsReadOnly = true };
innerScope.Add(_iterVarInfo);
this.DoExpression.CheckSemantics(innerScope, report);
if (!this.FromExpression.IsOk || !this.ToExpression.IsOk || !this.DoExpression.IsOk)
{
this.TigerType = TigerType.Error;
return;
}
if (this.FromExpression.TigerType.Basetype != BaseType.Int ||
this.ToExpression.TigerType.Basetype != BaseType.Int)
{
this.TigerType = TigerType.Error;
report.AddError(this.Line, this.Column,
"Type mismatch: Expecting integer (or alias) type on intervals expression: '{0}' and '{1}' were found.",
this.FromExpression.TigerType.Name,
this.ToExpression.TigerType.Name);
return;
}
if (this.DoExpression.TigerType.Basetype != BaseType.Void)
{
this.TigerType = TigerType.Error;
report.AddError(this.Line, this.Column,
"Type mismatch: Expecting void return type in for expression: '{0}' was found.",
this.DoExpression.TigerType.Name);
return;
}
this.TigerType = TigerType.Void;
}
internal override void GenerateCode(ModuleBuilder moduleBuilder)
{
BreakTarget = Expression.Label();
ParameterExpression iter = _iterVarInfo.ParameterExpression =
Expression.Parameter(typeof(int), "iter");
ParameterExpression fromExpr = Expression.Parameter(typeof(int), "fromExpr");
ParameterExpression toExpr = Expression.Parameter(typeof(int), "toExpr");
this.FromExpression.GenerateCode(moduleBuilder);
this.ToExpression.GenerateCode(moduleBuilder);
this.DoExpression.GenerateCode(moduleBuilder);
BlockExpression blockExpression = Expression.Block(
new ParameterExpression[] { iter, fromExpr, toExpr },
new Expression[]
{
Expression.Assign(fromExpr, this.FromExpression.VmExpression),
Expression.Assign(toExpr, this.ToExpression.VmExpression),
Expression.Assign(iter, fromExpr),
Expression.Loop(Expression.Block(
Expression.IfThen(Expression.GreaterThan(iter, toExpr),
Expression.Break(BreakTarget)),
this.DoExpression.VmExpression,
Expression.PostIncrementAssign(iter)
), BreakTarget)
});
this.VmExpression = blockExpression;
}
}
}

34
YATC/ASTNodes/LocalNode/ExpressionNode/StatementNode/IBreakebleNode.cs Normal file
View File

@@ -0,0 +1,34 @@
/*
* Yet Another Tiger Compiler (YATC)
*
* Copyright 2014 Damian Valdés Santiago, Juan Carlos Pujol Mainegra
*
* Permission is hereby granted, free of charge, to any person obtaining a copy
* of this software and associated documentation files (the "Software"), to deal
* in the Software without restriction, including without limitation the rights
* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
* copies of the Software, and to permit persons to whom the Software is
* furnished to do so, subject to the following conditions:
*
* The above copyright notice and this permission notice shall be included in all
* copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
* SOFTWARE.
*
*/
using System.Linq.Expressions;
namespace YATC.ASTNodes
{
interface IBreakeableNode
{
LabelTarget BreakTarget { get; set; }
}
}

37
YATC/ASTNodes/LocalNode/ExpressionNode/StatementNode/StatementNode.cs Normal file
View File

@@ -0,0 +1,37 @@
/*
* Yet Another Tiger Compiler (YATC)
*
* Copyright 2014 Damian Valdés Santiago, Juan Carlos Pujol Mainegra
*
* Permission is hereby granted, free of charge, to any person obtaining a copy
* of this software and associated documentation files (the "Software"), to deal
* in the Software without restriction, including without limitation the rights
* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
* copies of the Software, and to permit persons to whom the Software is
* furnished to do so, subject to the following conditions:
*
* The above copyright notice and this permission notice shall be included in all
* copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
* SOFTWARE.
*
*/
using Antlr.Runtime;
namespace YATC.ASTNodes
{
abstract class StatementNode : ExpressionNode
{
protected StatementNode(IToken payload)
: base(payload)
{
}
}
}

94
YATC/ASTNodes/LocalNode/ExpressionNode/StatementNode/WhileNode.cs Normal file
View File

@@ -0,0 +1,94 @@
/*
* Yet Another Tiger Compiler (YATC)
*
* Copyright 2014 Damian Valdés Santiago, Juan Carlos Pujol Mainegra
*
* Permission is hereby granted, free of charge, to any person obtaining a copy
* of this software and associated documentation files (the "Software"), to deal
* in the Software without restriction, including without limitation the rights
* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
* copies of the Software, and to permit persons to whom the Software is
* furnished to do so, subject to the following conditions:
*
* The above copyright notice and this permission notice shall be included in all
* copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
* SOFTWARE.
*
*/
using Antlr.Runtime;
using System.Linq.Expressions;
using System.Reflection.Emit;
using YATC.Scope;
namespace YATC.ASTNodes
{
class WhileNode : StatementNode, IBreakeableNode
{
public WhileNode(IToken payload)
: base(payload)
{
}
public LabelTarget BreakTarget { get; set; }
public ExpressionNode ConditionExpression { get { return (ExpressionNode)TigerChildren[0]; } }
public ExpressionNode DoExpression { get { return (ExpressionNode)TigerChildren[1]; } }
public override void CheckSemantics(TigerScope scope, Report report)
{
this.ConditionExpression.CheckSemantics(scope, report);
this.DoExpression.CheckSemantics(scope, report);
if (!this.ConditionExpression.IsOk || !this.DoExpression.IsOk)
{
this.TigerType = TigerType.Error;
return;
}
if (this.ConditionExpression.TigerType.Basetype != BaseType.Int)
{
report.AddError(Line, Column,
"Type mismatch: Expecting integer (or alias) type on condition expression: '{0}' was found.",
this.ConditionExpression.TigerType.Name);
this.TigerType = TigerType.Error;
return;
}
if (this.DoExpression.TigerType.Basetype != BaseType.Void)
{
this.TigerType = TigerType.Error;
report.AddError(this.Line, this.Column,
"Type mismatch: Expecting void return type in while expression: '{0}' was found.",
this.DoExpression.TigerType.Name);
return;
}
this.TigerType = TigerType.Void;
}
internal override void GenerateCode(ModuleBuilder moduleBuilder)
{
BreakTarget = Expression.Label();
this.ConditionExpression.GenerateCode(moduleBuilder);
this.DoExpression.GenerateCode(moduleBuilder);
ConditionalExpression conditionalExpression = Expression.IfThenElse(
Expression.NotEqual(this.ConditionExpression.VmExpression, Expression.Constant(0)),
this.DoExpression.VmExpression,
Expression.Break(this.BreakTarget));
this.VmExpression = Expression.Loop(conditionalExpression, this.BreakTarget);
}
}
}