コード例 #1
0
ファイル: Relation2Alloy.java プロジェクト: qvt/echo
 /**
  * Generates the relation field over the model sigs for called relations Must be run before the
  * relation constraint is created (otherwise recursive calls will fail)
  *
  * @return the Alloy field for this relation
  * @throws EchoError
  * @todo Support for n models
  */
 private Field addRelationFields() throws EchoError {
   Field field = null;
   Decl fst = rootvar2alloydecl.get(relation.getDomains().get(0).getRootVariable().getName());
   /*Decl snd = rootvar2alloydecl.get(relation.getDomains().get(1)
   .getVariable().getName());*/
   try {
     Sig s = (Sig) fst.expr.type().toExpr();
     for (Field f : s.getFields()) {
       if (f.label.equals(AlloyUtil.relationFieldName(relation, dependency.target))) field = f;
     }
     if (field == null) {
       field =
           s.addField(
               AlloyUtil.relationFieldName(relation, dependency.target),
               /*type.setOf()*/ Sig.UNIV.setOf());
     }
   } catch (Err a) {
     throw new ErrorAlloy(
         ErrorAlloy.FAIL_CREATE_FIELD,
         "Failed to create relation field representation: " + relation.getName(),
         a,
         Task.TRANSLATE_TRANSFORMATION);
   }
   return field;
 }
コード例 #2
0
ファイル: Relation2Alloy.java プロジェクト: qvt/echo
 /**
  * adds to the transformation translator the constraint defining the field of this sub relation
  *
  * @param fact the constraint defining this relation
  * @param field the field representing this sub relation
  * @throws EchoError
  */
 private void addRelationDef(Expr fact, Field field) throws EchoError {
   Decl fst = rootvar2alloydecl.get(relation.getDomains().get(0).getRootVariable().getName());
   Decl snd = rootvar2alloydecl.get(relation.getDomains().get(1).getRootVariable().getName());
   Func f;
   try {
     Expr e = field.equal(fact.comprehensionOver(fst, snd));
     f = new Func(null, field.label + "def", model_params_decls, null, e);
     transformation_translator.addSubRelationDef(f);
   } catch (Err a) {
     throw new ErrorAlloy(
         ErrorAlloy.FAIL_CREATE_FUNC,
         "Failed to create sub relation field constraint: " + relation.getName(),
         a,
         Task.TRANSLATE_TRANSFORMATION);
   }
 }
コード例 #3
0
ファイル: Relation2Alloy.java プロジェクト: qvt/echo
  /**
   * Constructs a new relation to Alloy translator. Translates a relation (top or non top) to Alloy
   * in a given direction.
   *
   * @param relation the relation being translated
   * @param top whether the relation is top or not
   * @throws EchoError
   */
  Relation2Alloy(
      EAlloyTransformation transformation_translator,
      Boolean top,
      Relation2Alloy parent_translator,
      EDependency dependency,
      ERelation relation)
      throws EchoError {
    this.relation = relation;
    this.dependency = dependency;
    this.top = top;
    this.transformation_translator = transformation_translator;
    this.parent_translator = top ? this : parent_translator;

    for (EModelParameter mdl : relation.getTransformation().getModels()) {
      Decl d;
      String metamodelID = mdl.getMetamodel().ID;
      try {
        d =
            AlloyEchoTranslator.getInstance()
                .getMetamodel(metamodelID)
                .sig_metamodel
                .oneOf(mdl.getName());
      } catch (Err a) {
        throw new ErrorAlloy(
            ErrorAlloy.FAIL_CREATE_VAR,
            "Failed to create transformation model variable: " + mdl.getName(),
            a,
            Task.TRANSLATE_TRANSFORMATION);
      }
      model_params_decls.add(d);
      modelparam2var.put(mdl.getName(), d.get());
      var2model.put(d.get().label, null);
      var2var.put(d.get().label, d.get());
    }

    initVariableLists();

    Field field = null;
    if (!top) field = addRelationField();

    Expr fact = calculateFact();
    AlloyOptimizations opt = new AlloyOptimizations();
    if (EchoOptionsSetup.getInstance().isOptimize() && true) {
      fact = opt.trading(fact);
      fact = opt.onePoint(fact);
    }
    EchoReporter.getInstance().debug("Post-opt: " + fact);

    if (top) addRelationPred(fact);
    else addRelationDef(fact, field);
  }
コード例 #4
0
ファイル: Relation2Alloy.java プロジェクト: qvt/echo
 /**
  * adds to the transformation translator the constraint defining this top relation
  *
  * @param fact the constraint defining this relation
  * @throws EchoError
  */
 private void addRelationPred(Expr fact) throws EchoError {
   try {
     transformation_translator.addTopRelationCall(
         new Func(
             null,
             AlloyUtil.relationPredName(relation, dependency.target),
             model_params_decls,
             null,
             fact));
   } catch (Err a) {
     throw new ErrorAlloy(
         ErrorAlloy.FAIL_CREATE_FUNC,
         "Failed to create top relation constraint function: " + relation.getName(),
         a,
         Task.TRANSLATE_TRANSFORMATION);
   }
 }
コード例 #5
0
ファイル: Relation2Alloy.java プロジェクト: qvt/echo
 /**
  * adds to the transformation translator the field representing this sub relation
  *
  * @throws EchoError
  */
 private Field addRelationField() throws EchoError {
   Field field = null;
   try {
     field = addRelationFields();
     transformation_translator.addSubRelationCall(
         new Func(
             null,
             AlloyUtil.relationFieldName(relation, dependency.target),
             model_params_decls,
             field.type().toExpr(),
             field));
   } catch (Err a) {
     throw new ErrorAlloy(
         ErrorAlloy.FAIL_CREATE_FUNC,
         "Failed to create sub relation constraint function: " + relation.getName(),
         a,
         Task.TRANSLATE_TRANSFORMATION);
   }
   return field;
 }
コード例 #6
0
ファイル: Relation2Alloy.java プロジェクト: qvt/echo
  /**
   * Initializes the variable lists and generates the respective Alloy declarations.
   *
   * @throws EchoError
   * @todo Support fom <code>CollectionTemplateExp</code>
   */
  private void initVariableLists() throws EchoError {
    Map<EVariable, String> whenvar2model = new HashMap<EVariable, String>();
    Map<EVariable, String> sourcevar2model = new HashMap<EVariable, String>();
    Map<EVariable, String> targetvar2model = new HashMap<EVariable, String>();

    for (EModelDomain dom : relation.getDomains()) {
      rootvariables.put(dom.getRootVariable(), dom.getModel().getName());
      if (dependency.target.equals(dom)) targetdomain = dom;
      else sourcedomains.add(dom);
    }

    ECondition preCondition = relation.getPre();
    if (preCondition != null) whenvar2model = preCondition.getVariables(null);

    for (EModelDomain dom : sourcedomains) {
      ECondition cond = dom.getCondition();
      sourcevar2model.putAll(cond.getVariables(dom.getModel().getName()));
    }

    for (EVariable x : whenvar2model.keySet()) {
      whenvar2model.put(x, sourcevar2model.get(x));
      sourcevar2model.remove(x);
    }

    ECondition temp = targetdomain.getCondition();
    targetvar2model = temp.getVariables(targetdomain.getModel().getName());

    ECondition postCondition = relation.getPost();
    if (postCondition != null)
      for (EVariable x : postCondition.getVariables(null).keySet())
        if (targetvar2model.get(x) == null) targetvar2model.put(x, null);

    for (EVariable x : sourcevar2model.keySet()) {
      if (sourcevar2model.get(x) == null) sourcevar2model.put(x, targetvar2model.get(x));
      targetvar2model.remove(x);
    }

    for (EVariable x : whenvar2model.keySet()) {
      if (whenvar2model.get(x) == null) whenvar2model.put(x, targetvar2model.get(x));
      targetvar2model.remove(x);
    }

    if (!top)
      for (EVariable x : rootvariables.keySet()) {
        whenvar2model.remove(x);
        targetvar2model.remove(x);
        sourcevar2model.remove(x);
      }

    for (EVariable s : sourcevar2model.keySet()) var2model.put(s.getName(), sourcevar2model.get(s));
    for (EVariable s : targetvar2model.keySet()) var2model.put(s.getName(), targetvar2model.get(s));
    for (EVariable s : whenvar2model.keySet()) var2model.put(s.getName(), whenvar2model.get(s));
    if (!top)
      for (EVariable s : rootvariables.keySet()) var2model.put(s.getName(), rootvariables.get(s));

    sourcevar2alloydecl =
        AlloyUtil.variableListToExpr(sourcevar2model.keySet(), var2varmodel(), modelparam2var);
    for (String s : sourcevar2alloydecl.keySet()) var2var.put(s, sourcevar2alloydecl.get(s).get());
    targetvar2alloydecl =
        AlloyUtil.variableListToExpr(targetvar2model.keySet(), var2varmodel(), modelparam2var);
    for (String s : targetvar2alloydecl.keySet()) var2var.put(s, targetvar2alloydecl.get(s).get());
    whenvar2alloydecl =
        AlloyUtil.variableListToExpr(whenvar2model.keySet(), var2varmodel(), modelparam2var);
    for (String s : whenvar2alloydecl.keySet()) var2var.put(s, whenvar2alloydecl.get(s).get());
    rootvar2alloydecl =
        AlloyUtil.variableListToExpr(rootvariables.keySet(), var2varmodel(), modelparam2var);
    if (!top)
      for (String s : rootvar2alloydecl.keySet()) var2var.put(s, rootvar2alloydecl.get(s).get());
  }
コード例 #7
0
ファイル: Relation2Alloy.java プロジェクト: qvt/echo
  /**
   * Calculates the Alloy constraint denoting the relation top test. Takes the shape "forall
   * whenvars : when => (forall sourcevars : sourcedomain => (exists targetvars+wherevars :
   * targetdomain && where))" Must be run after relation field is created (otherwise recursive calls
   * will fail)
   *
   * @return the Alloy constraint representing the relation
   * @throws EchoError
   */
  private Expr calculateFact() throws EchoError {

    Expr fact = Sig.NONE.no(),
        sourceexpr = Sig.NONE.no(),
        postexpr = Sig.NONE.no(),
        whenexpr = Sig.NONE.no();
    Decl[] arraydecl;

    ECondition postCondition = relation.getPost();
    ECondition targetCondition = targetdomain.getCondition();
    try {
      if (postCondition != null) {
        postCondition.initTranslation(parent_translator, var2varmodel(), modelparam2var, null);
        postexpr = (Expr) postCondition.translate();
      }

      targetCondition.initTranslation(parent_translator, var2varmodel(), modelparam2var, null);
      Expr targetexpr = (Expr) targetCondition.translate();
      targetexpr = targetexpr.and(postexpr);

      if (targetvar2alloydecl.size() == 1)
        targetexpr = targetexpr.forSome(targetvar2alloydecl.values().iterator().next());
      else if (targetvar2alloydecl.size() > 1) {
        arraydecl = targetvar2alloydecl.values().toArray(new Decl[targetvar2alloydecl.size()]);
        targetexpr =
            targetexpr.forSome(arraydecl[0], Arrays.copyOfRange(arraydecl, 1, arraydecl.length));
      }

      for (EModelDomain dom : sourcedomains) {
        ECondition sourceCondition = dom.getCondition();
        sourceCondition.initTranslation(parent_translator, var2varmodel(), modelparam2var, null);
        sourceexpr = sourceexpr.and((Expr) sourceCondition.translate());
      }
      fact = (sourceexpr.implies(targetexpr));

      //			for (Decl d : sourcevar2alloydecl.values())
      //				EchoReporter.getInstance().debug("Source var decl: "+d.names+"::"+d.expr);
      //			for (Decl d : targetvar2alloydecl.values())
      //				EchoReporter.getInstance().debug("Target var decl: "+d.names+"::"+d.expr);

      if (sourcevar2alloydecl.size() == 1) {
        fact = fact.forAll(sourcevar2alloydecl.values().iterator().next());
      } else if (sourcevar2alloydecl.size() > 1) {
        arraydecl = sourcevar2alloydecl.values().toArray(new Decl[sourcevar2alloydecl.size()]);
        fact = fact.forAll(arraydecl[0], Arrays.copyOfRange(arraydecl, 1, arraydecl.length));
      }

      ECondition preCondition = relation.getPre();
      if (preCondition != null) {
        preCondition.initTranslation(parent_translator, var2varmodel(), modelparam2var, null);
        whenexpr = (Expr) preCondition.translate();

        fact = (whenexpr.implies(fact));
        for (Decl d : whenvar2alloydecl.values()) fact = fact.forAll(d);
      }
    } catch (Err a) {
      throw new ErrorAlloy(
          ErrorAlloy.FAIL_CREATE_VAR,
          "Failed to create relation constraint variables: " + relation.getName(),
          a,
          Task.TRANSLATE_TRANSFORMATION);
    }
    return fact;
  }