DotConstraint.cs

Go to the documentation of this file.

// -------------------------------------------------------------------------- 
// Project rROTOR                                                             
// -------------------------------------------------------------------------- 
// File: DotConstraint.cs                                                    
// Author:  Francisco Ortin - francisco.ortin@gmail.com                       
// Description:                                                               
//    Member access constraint to be executed each time the associated method
//       has been called. 
//    It represents constraints of the form:
//                 ret := op1 . memberName
//    Implements Composite pattern [Leaf].                               
//    Implements Command pattern [Concrete Command].                               
//    Implements Memento pattern [Memento].                               
// -------------------------------------------------------------------------- 
// Create date: 26-04-2007                                                    
// Modification date: 26-04-2007                                              

using System;
using System.Collections.Generic;
using System.Text;

using AST;
using ErrorManagement;
using Tools;
using TypeSystem.Operations;

namespace TypeSystem.Constraints {
    class DotConstraint : ConstraintAdapter {

        #region Fields
        private string memberName;
        #endregion

        #region Properties
        public string MemberName {
            get { return this.memberName; }
        }
        #endregion


        #region Constructor
        public DotConstraint(TypeExpression firstOperand, string memberName, Location location)
            : base(firstOperand, location) {
            this.memberName = memberName;
        }
        private DotConstraint(TypeExpression firstOperand, string memberName, TypeVariable returnType, Location location)
            : base(firstOperand, returnType, location) {
            this.memberName = memberName;
        }
        #endregion

        #region BuildTypeExpressionString()
        protected override string BuildTypeExpressionString() {
            return String.Format("{0}:={1}.{2}", this.ReturnType.FullName, this.FirstOperand.FullName, this.MemberName);
        }
        #endregion

        #region CloneTypeVariables()
        public override Constraint CloneTypeVariables(IDictionary<TypeVariable, TypeVariable> typeVariableMappings, IList<EquivalenceClass> equivalenceClasses) {
            TypeExpression newFirstOperand = this.FirstOperand.CloneTypeVariables(typeVariableMappings, equivalenceClasses, new List<ClassType>());
            TypeVariable newReturnType = (TypeVariable)this.ReturnType.CloneTypeVariables(typeVariableMappings, equivalenceClasses, new List<ClassType>());
            return new DotConstraint(newFirstOperand, this.memberName, newReturnType, this.Location);
        }
        #endregion

        #region Check()
        public override TypeExpression Check(MethodType methodAnalyzed, TypeExpression actualImplicitObject, bool showInvocationMessage,
                        SortOfUnification activeSortOfUnification, Location location) {
            TypeExpression result = (TypeExpression) this.FirstOperand.AcceptOperation(DotOperation.Create(this.memberName, methodAnalyzed, new List<TypeExpression>(), this.Location), null);
            if (result == null && showInvocationMessage) {
                ErrorManager.Instance.NotifyError(new ConstraintError(location));
                return null;
            }
            // * If no error exists, we unify the return type variable with the actual result
            this.ReturnType.Unify(result, SortOfUnification.Equivalent, new List<Pair<TypeExpression, TypeExpression>>());
            this.ReturnType.ValidTypeExpression = this.ValidTypeExpression = false;
            return this.ReturnType;
        }
        #endregion


    }
}