Exemplo n.º 1
0
        /// <summary>
        /// Adds connectors to the solution that exists in the graph but nor yet in the solution.
        /// </summary>
        /// <param name="repo"></param>
        /// <param name="problemSpace"></param>
        /// <returns></returns>
        public Unit InstantiateMissingSolutionConnectors()
        {
            Graph.TraverseEdgesBF((source, edge, target) =>
            {
                var connectorData = from connectorSource in source.Instance
                                    from connectorTarget in target.Instance
                                    from stype in edge.GetStereotype(ADTechnology.Technologies.AD.ConnectorStereotypes)
                                    select Tuple.Create(connectorSource, connectorTarget, stype);

                connectorData.ForEach((connectorSource, connectorTarget, stype) =>
                {
                    var connectsAlternativeToProblem =
                        stype == ConnectorStereotypes.AddressedBy && connectorSource is OptionOccurrence;
                    var alreadyExisting = connectorSource.Connectors.Any(c =>
                    {
                        return(c.Is(stype) && (c.EaObject.SupplierID == connectorTarget.Id || c.EaObject.ClientID == connectorTarget.Id));
                    });

                    if (!connectsAlternativeToProblem && !alreadyExisting)
                    {
                        Repo.Connect(connectorSource, connectorTarget, stype);
                    }
                });
            });
            return(Unit.Instance);
        }
Exemplo n.º 2
0
        public void InstantiateSolutionConnectors(ModelEntityRepository repo)
        {
            var allInstantiations = AllInstantiations().Run();
            // connections between new instances
            var connections = from instantiation in allInstantiations
                              from source in instantiation.Instance
                              from connector in instantiation.Element.Connectors
                              where connector.EaObject.ClientID == instantiation.Element.Id
                              from connectorStype in connector.GetStereotype(ADTechnology.Technologies.AD.ConnectorStereotypes)
                              from targetInstantiation in allInstantiations
                              where connector.EaObject.SupplierID == targetInstantiation.Element.Id
                              from target in targetInstantiation.Instance
                              select Tuple.Create(source, connectorStype, target);

            // connections from new instances to referenced elements
            var referenceConnectionsFrom = from instantiation in allInstantiations
                                           from instance in instantiation.Instance
                                           from connector in instantiation.Element.Connectors
                                           where connector.EaObject.ClientID == instantiation.Element.Id
                                           from target in connector.Target(repo.GetElement)
                                           where !target.Is(ProblemSpace.Problem) && !target.Is(ProblemSpace.Option)
                                           select Tuple.Create(instance, connector.ReconstructStereotype(), target);

            // connections from referenced elements to new instances
            var referenceConnectionsTo = from instantiation in allInstantiations
                                         from instance in instantiation.Instance
                                         from connector in instantiation.Element.Connectors
                                         where connector.EaObject.SupplierID == instantiation.Element.Id
                                         from source in connector.Source(repo.GetElement)
                                         where !source.Is(ProblemSpace.Problem) && !source.Is(ProblemSpace.Option)
                                         select Tuple.Create(source, connector.ReconstructStereotype(), instance);

            connections
            .Concat(referenceConnectionsFrom)
            .Concat(referenceConnectionsTo)
            .ForEach((source, connectorStype, target) =>
            {
                try
                {
                    repo.Connect(source, target, connectorStype);
                }
                catch (Exception)
                {
                    // TODO: proper error handling
                }
            });
        }