3 files changed, 627 insertions, 0 deletions
diff --git a/Tests/MODELS2020-CaseStudies/case.study.pledge.run/src-gen/queries/.gitignore b/Tests/MODELS2020-CaseStudies/case.study.pledge.run/src-gen/queries/.gitignore
index 527f3a0e..f679c1a8 100644
--- a/Tests/MODELS2020-CaseStudies/case.study.pledge.run/src-gen/queries/.gitignore
+++ b/Tests/MODELS2020-CaseStudies/case.study.pledge.run/src-gen/queries/.gitignore
@@ -110,3 +110,11 @@
 /X_inv48_notDis.java
 /X_inv49_1.java
 /X_inv49_2.java
+/.FamilyTreeConstraints.java._trace
+/.MemberHasParent.java._trace
+/.MemberIsItsOwnParent.java._trace
+/.NegativeAge.java._trace
+/.ParentTooYoung.java._trace
+/.TwoMembersHaveNoParent.java._trace
+/.Case_study_short.java._trace
+/.X_inv48.java._trace
diff --git a/Tests/MODELS2020-CaseStudies/case.study.pledge.run/src-gen/queries/Case_study_short.java b/Tests/MODELS2020-CaseStudies/case.study.pledge.run/src-gen/queries/Case_study_short.java
new file mode 100644
index 00000000..5c72b809
--- /dev/null
+++ b/Tests/MODELS2020-CaseStudies/case.study.pledge.run/src-gen/queries/Case_study_short.java
@@ -0,0 +1,64 @@
+/**
+ * Generated from platform:/resource/case.study.pledge.run/src/queries/case_study_short.vql
+ */
+package queries;
+import org.eclipse.viatra.query.runtime.api.ViatraQueryEngine;
+import org.eclipse.viatra.query.runtime.api.impl.BaseGeneratedPatternGroup;
+import queries.Inv48;
+import queries.X_inv48;
+/**
+ * A pattern group formed of all public patterns defined in case_study_short.vql.
+ * 
+ * <p>Use the static instance as any {@link interface org.eclipse.viatra.query.runtime.api.IQueryGroup}, to conveniently prepare
+ * a VIATRA Query engine for matching all patterns originally defined in file case_study_short.vql,
+ * in order to achieve better performance than one-by-one on-demand matcher initialization.
+ * 
+ * <p> From package queries, the group contains the definition of the following patterns: <ul>
+ * <li>inv48</li>
+ * <li>x_inv48</li>
+ * </ul>
+ * 
+ * @see IQueryGroup
+ * 
+ */
+@SuppressWarnings("all")
+public final class Case_study_short extends BaseGeneratedPatternGroup {
+  /**
+   * Access the pattern group.
+   * 
+   * @return the singleton instance of the group
+   * @throws ViatraQueryRuntimeException if there was an error loading the generated code of pattern specifications
+   * 
+   */
+  public static Case_study_short instance() {
+    if (INSTANCE == null) {
+        INSTANCE = new Case_study_short();
+    }
+    return INSTANCE;
+  }
+  
+  private static Case_study_short INSTANCE;
+  
+  private Case_study_short() {
+    querySpecifications.add(Inv48.instance());
+    querySpecifications.add(X_inv48.instance());
+  }
+  
+  public Inv48 getInv48() {
+    return Inv48.instance();
+  }
+  
+  public Inv48.Matcher getInv48(final ViatraQueryEngine engine) {
+    return Inv48.Matcher.on(engine);
+  }
+  
+  public X_inv48 getX_inv48() {
+    return X_inv48.instance();
+  }
+  
+  public X_inv48.Matcher getX_inv48(final ViatraQueryEngine engine) {
+    return X_inv48.Matcher.on(engine);
+  }
+}
diff --git a/Tests/MODELS2020-CaseStudies/case.study.pledge.run/src-gen/queries/X_inv48.java b/Tests/MODELS2020-CaseStudies/case.study.pledge.run/src-gen/queries/X_inv48.java
new file mode 100644
index 00000000..b02f3c99
--- /dev/null
+++ b/Tests/MODELS2020-CaseStudies/case.study.pledge.run/src-gen/queries/X_inv48.java
@@ -0,0 +1,555 @@
+/**
+ * Generated from platform:/resource/case.study.pledge.run/src/queries/case_study_A.vql
+ */
+package queries;
+import Taxation.Physical_Person;
+import java.util.Arrays;
+import java.util.Collection;
+import java.util.LinkedHashSet;
+import java.util.List;
+import java.util.Objects;
+import java.util.Optional;
+import java.util.Set;
+import java.util.function.Consumer;
+import java.util.stream.Collectors;
+import java.util.stream.Stream;
+import org.apache.log4j.Logger;
+import org.eclipse.emf.ecore.EClass;
+import org.eclipse.emf.ecore.EDataType;
+import org.eclipse.viatra.query.runtime.api.IPatternMatch;
+import org.eclipse.viatra.query.runtime.api.IQuerySpecification;
+import org.eclipse.viatra.query.runtime.api.ViatraQueryEngine;
+import org.eclipse.viatra.query.runtime.api.impl.BaseGeneratedEMFPQuery;
+import org.eclipse.viatra.query.runtime.api.impl.BaseGeneratedEMFQuerySpecification;
+import org.eclipse.viatra.query.runtime.api.impl.BaseMatcher;
+import org.eclipse.viatra.query.runtime.api.impl.BasePatternMatch;
+import org.eclipse.viatra.query.runtime.emf.types.EClassTransitiveInstancesKey;
+import org.eclipse.viatra.query.runtime.emf.types.EDataTypeInSlotsKey;
+import org.eclipse.viatra.query.runtime.emf.types.EStructuralFeatureInstancesKey;
+import org.eclipse.viatra.query.runtime.matchers.backend.QueryEvaluationHint;
+import org.eclipse.viatra.query.runtime.matchers.psystem.PBody;
+import org.eclipse.viatra.query.runtime.matchers.psystem.PVariable;
+import org.eclipse.viatra.query.runtime.matchers.psystem.basicdeferred.Equality;
+import org.eclipse.viatra.query.runtime.matchers.psystem.basicdeferred.ExportedParameter;
+import org.eclipse.viatra.query.runtime.matchers.psystem.basicenumerables.ConstantValue;
+import org.eclipse.viatra.query.runtime.matchers.psystem.basicenumerables.TypeConstraint;
+import org.eclipse.viatra.query.runtime.matchers.psystem.queries.PParameter;
+import org.eclipse.viatra.query.runtime.matchers.psystem.queries.PParameterDirection;
+import org.eclipse.viatra.query.runtime.matchers.psystem.queries.PVisibility;
+import org.eclipse.viatra.query.runtime.matchers.tuple.Tuple;
+import org.eclipse.viatra.query.runtime.matchers.tuple.Tuples;
+import org.eclipse.viatra.query.runtime.util.ViatraQueryLoggingUtil;
+/**
+ * A pattern-specific query specification that can instantiate Matcher in a type-safe way.
+ * 
+ * <p>Original source:
+ *         <code><pre>
+ *         pattern x_inv48(p : Physical_Person) {
+ *             Physical_Person.disability_type(p, ::NONE);
+ *         }
+ * </pre></code>
+ * 
+ * @see Matcher
+ * @see Match
+ * 
+ */
+@SuppressWarnings("all")
+public final class X_inv48 extends BaseGeneratedEMFQuerySpecification<X_inv48.Matcher> {
+  /**
+   * Pattern-specific match representation of the queries.x_inv48 pattern,
+   * to be used in conjunction with {@link Matcher}.
+   * 
+   * <p>Class fields correspond to parameters of the pattern. Fields with value null are considered unassigned.
+   * Each instance is a (possibly partial) substitution of pattern parameters,
+   * usable to represent a match of the pattern in the result of a query,
+   * or to specify the bound (fixed) input parameters when issuing a query.
+   * 
+   * @see Matcher
+   * 
+   */
+  public static abstract class Match extends BasePatternMatch {
+    private Physical_Person fP;
+    
+    private static List<String> parameterNames = makeImmutableList("p");
+    
+    private Match(final Physical_Person pP) {
+      this.fP = pP;
+    }
+    
+    @Override
+    public Object get(final String parameterName) {
+      switch(parameterName) {
+          case "p": return this.fP;
+          default: return null;
+      }
+    }
+    
+    @Override
+    public Object get(final int index) {
+      switch(index) {
+          case 0: return this.fP;
+          default: return null;
+      }
+    }
+    
+    public Physical_Person getP() {
+      return this.fP;
+    }
+    
+    @Override
+    public boolean set(final String parameterName, final Object newValue) {
+      if (!isMutable()) throw new java.lang.UnsupportedOperationException();
+      if ("p".equals(parameterName) ) {
+          this.fP = (Physical_Person) newValue;
+          return true;
+      }
+      return false;
+    }
+    
+    public void setP(final Physical_Person pP) {
+      if (!isMutable()) throw new java.lang.UnsupportedOperationException();
+      this.fP = pP;
+    }
+    
+    @Override
+    public String patternName() {
+      return "queries.x_inv48";
+    }
+    
+    @Override
+    public List<String> parameterNames() {
+      return X_inv48.Match.parameterNames;
+    }
+    
+    @Override
+    public Object[] toArray() {
+      return new Object[]{fP};
+    }
+    
+    @Override
+    public X_inv48.Match toImmutable() {
+      return isMutable() ? newMatch(fP) : this;
+    }
+    
+    @Override
+    public String prettyPrint() {
+      StringBuilder result = new StringBuilder();
+      result.append("\"p\"=" + prettyPrintValue(fP));
+      return result.toString();
+    }
+    
+    @Override
+    public int hashCode() {
+      return Objects.hash(fP);
+    }
+    
+    @Override
+    public boolean equals(final Object obj) {
+      if (this == obj)
+          return true;
+      if (obj == null) {
+          return false;
+      }
+      if ((obj instanceof X_inv48.Match)) {
+          X_inv48.Match other = (X_inv48.Match) obj;
+          return Objects.equals(fP, other.fP);
+      } else {
+          // this should be infrequent
+          if (!(obj instanceof IPatternMatch)) {
+              return false;
+          }
+          IPatternMatch otherSig  = (IPatternMatch) obj;
+          return Objects.equals(specification(), otherSig.specification()) && Arrays.deepEquals(toArray(), otherSig.toArray());
+      }
+    }
+    
+    @Override
+    public X_inv48 specification() {
+      return X_inv48.instance();
+    }
+    
+    /**
+     * Returns an empty, mutable match.
+     * Fields of the mutable match can be filled to create a partial match, usable as matcher input.
+     * 
+     * @return the empty match.
+     * 
+     */
+    public static X_inv48.Match newEmptyMatch() {
+      return new Mutable(null);
+    }
+    
+    /**
+     * Returns a mutable (partial) match.
+     * Fields of the mutable match can be filled to create a partial match, usable as matcher input.
+     * 
+     * @param pP the fixed value of pattern parameter p, or null if not bound.
+     * @return the new, mutable (partial) match object.
+     * 
+     */
+    public static X_inv48.Match newMutableMatch(final Physical_Person pP) {
+      return new Mutable(pP);
+    }
+    
+    /**
+     * Returns a new (partial) match.
+     * This can be used e.g. to call the matcher with a partial match.
+     * <p>The returned match will be immutable. Use {@link #newEmptyMatch()} to obtain a mutable match object.
+     * @param pP the fixed value of pattern parameter p, or null if not bound.
+     * @return the (partial) match object.
+     * 
+     */
+    public static X_inv48.Match newMatch(final Physical_Person pP) {
+      return new Immutable(pP);
+    }
+    
+    private static final class Mutable extends X_inv48.Match {
+      Mutable(final Physical_Person pP) {
+        super(pP);
+      }
+      
+      @Override
+      public boolean isMutable() {
+        return true;
+      }
+    }
+    
+    private static final class Immutable extends X_inv48.Match {
+      Immutable(final Physical_Person pP) {
+        super(pP);
+      }
+      
+      @Override
+      public boolean isMutable() {
+        return false;
+      }
+    }
+  }
+  
+  /**
+   * Generated pattern matcher API of the queries.x_inv48 pattern,
+   * providing pattern-specific query methods.
+   * 
+   * <p>Use the pattern matcher on a given model via {@link #on(ViatraQueryEngine)},
+   * e.g. in conjunction with {@link ViatraQueryEngine#on(QueryScope)}.
+   * 
+   * <p>Matches of the pattern will be represented as {@link Match}.
+   * 
+   * <p>Original source:
+   * <code><pre>
+   * pattern x_inv48(p : Physical_Person) {
+   *     Physical_Person.disability_type(p, ::NONE);
+   * }
+   * </pre></code>
+   * 
+   * @see Match
+   * @see X_inv48
+   * 
+   */
+  public static class Matcher extends BaseMatcher<X_inv48.Match> {
+    /**
+     * Initializes the pattern matcher within an existing VIATRA Query engine.
+     * If the pattern matcher is already constructed in the engine, only a light-weight reference is returned.
+     * 
+     * @param engine the existing VIATRA Query engine in which this matcher will be created.
+     * @throws ViatraQueryRuntimeException if an error occurs during pattern matcher creation
+     * 
+     */
+    public static X_inv48.Matcher on(final ViatraQueryEngine engine) {
+      // check if matcher already exists
+      Matcher matcher = engine.getExistingMatcher(querySpecification());
+      if (matcher == null) {
+          matcher = (Matcher)engine.getMatcher(querySpecification());
+      }
+      return matcher;
+    }
+    
+    /**
+     * @throws ViatraQueryRuntimeException if an error occurs during pattern matcher creation
+     * @return an initialized matcher
+     * @noreference This method is for internal matcher initialization by the framework, do not call it manually.
+     * 
+     */
+    public static X_inv48.Matcher create() {
+      return new Matcher();
+    }
+    
+    private static final int POSITION_P = 0;
+    
+    private static final Logger LOGGER = ViatraQueryLoggingUtil.getLogger(X_inv48.Matcher.class);
+    
+    /**
+     * Initializes the pattern matcher within an existing VIATRA Query engine.
+     * If the pattern matcher is already constructed in the engine, only a light-weight reference is returned.
+     * 
+     * @param engine the existing VIATRA Query engine in which this matcher will be created.
+     * @throws ViatraQueryRuntimeException if an error occurs during pattern matcher creation
+     * 
+     */
+    private Matcher() {
+      super(querySpecification());
+    }
+    
+    /**
+     * Returns the set of all matches of the pattern that conform to the given fixed values of some parameters.
+     * @param pP the fixed value of pattern parameter p, or null if not bound.
+     * @return matches represented as a Match object.
+     * 
+     */
+    public Collection<X_inv48.Match> getAllMatches(final Physical_Person pP) {
+      return rawStreamAllMatches(new Object[]{pP}).collect(Collectors.toSet());
+    }
+    
+    /**
+     * Returns a stream of all matches of the pattern that conform to the given fixed values of some parameters.
+     * </p>
+     * <strong>NOTE</strong>: It is important not to modify the source model while the stream is being processed.
+     * If the match set of the pattern changes during processing, the contents of the stream is <strong>undefined</strong>.
+     * In such cases, either rely on {@link #getAllMatches()} or collect the results of the stream in end-user code.
+     * @param pP the fixed value of pattern parameter p, or null if not bound.
+     * @return a stream of matches represented as a Match object.
+     * 
+     */
+    public Stream<X_inv48.Match> streamAllMatches(final Physical_Person pP) {
+      return rawStreamAllMatches(new Object[]{pP});
+    }
+    
+    /**
+     * Returns an arbitrarily chosen match of the pattern that conforms to the given fixed values of some parameters.
+     * Neither determinism nor randomness of selection is guaranteed.
+     * @param pP the fixed value of pattern parameter p, or null if not bound.
+     * @return a match represented as a Match object, or null if no match is found.
+     * 
+     */
+    public Optional<X_inv48.Match> getOneArbitraryMatch(final Physical_Person pP) {
+      return rawGetOneArbitraryMatch(new Object[]{pP});
+    }
+    
+    /**
+     * Indicates whether the given combination of specified pattern parameters constitute a valid pattern match,
+     * under any possible substitution of the unspecified parameters (if any).
+     * @param pP the fixed value of pattern parameter p, or null if not bound.
+     * @return true if the input is a valid (partial) match of the pattern.
+     * 
+     */
+    public boolean hasMatch(final Physical_Person pP) {
+      return rawHasMatch(new Object[]{pP});
+    }
+    
+    /**
+     * Returns the number of all matches of the pattern that conform to the given fixed values of some parameters.
+     * @param pP the fixed value of pattern parameter p, or null if not bound.
+     * @return the number of pattern matches found.
+     * 
+     */
+    public int countMatches(final Physical_Person pP) {
+      return rawCountMatches(new Object[]{pP});
+    }
+    
+    /**
+     * Executes the given processor on an arbitrarily chosen match of the pattern that conforms to the given fixed values of some parameters.
+     * Neither determinism nor randomness of selection is guaranteed.
+     * @param pP the fixed value of pattern parameter p, or null if not bound.
+     * @param processor the action that will process the selected match.
+     * @return true if the pattern has at least one match with the given parameter values, false if the processor was not invoked
+     * 
+     */
+    public boolean forOneArbitraryMatch(final Physical_Person pP, final Consumer<? super X_inv48.Match> processor) {
+      return rawForOneArbitraryMatch(new Object[]{pP}, processor);
+    }
+    
+    /**
+     * Returns a new (partial) match.
+     * This can be used e.g. to call the matcher with a partial match.
+     * <p>The returned match will be immutable. Use {@link #newEmptyMatch()} to obtain a mutable match object.
+     * @param pP the fixed value of pattern parameter p, or null if not bound.
+     * @return the (partial) match object.
+     * 
+     */
+    public X_inv48.Match newMatch(final Physical_Person pP) {
+      return X_inv48.Match.newMatch(pP);
+    }
+    
+    /**
+     * Retrieve the set of values that occur in matches for p.
+     * @return the Set of all values or empty set if there are no matches
+     * 
+     */
+    protected Stream<Physical_Person> rawStreamAllValuesOfp(final Object[] parameters) {
+      return rawStreamAllValues(POSITION_P, parameters).map(Physical_Person.class::cast);
+    }
+    
+    /**
+     * Retrieve the set of values that occur in matches for p.
+     * @return the Set of all values or empty set if there are no matches
+     * 
+     */
+    public Set<Physical_Person> getAllValuesOfp() {
+      return rawStreamAllValuesOfp(emptyArray()).collect(Collectors.toSet());
+    }
+    
+    /**
+     * Retrieve the set of values that occur in matches for p.
+     * @return the Set of all values or empty set if there are no matches
+     * 
+     */
+    public Stream<Physical_Person> streamAllValuesOfp() {
+      return rawStreamAllValuesOfp(emptyArray());
+    }
+    
+    @Override
+    protected X_inv48.Match tupleToMatch(final Tuple t) {
+      try {
+          return X_inv48.Match.newMatch((Physical_Person) t.get(POSITION_P));
+      } catch(ClassCastException e) {
+          LOGGER.error("Element(s) in tuple not properly typed!",e);
+          return null;
+      }
+    }
+    
+    @Override
+    protected X_inv48.Match arrayToMatch(final Object[] match) {
+      try {
+          return X_inv48.Match.newMatch((Physical_Person) match[POSITION_P]);
+      } catch(ClassCastException e) {
+          LOGGER.error("Element(s) in array not properly typed!",e);
+          return null;
+      }
+    }
+    
+    @Override
+    protected X_inv48.Match arrayToMatchMutable(final Object[] match) {
+      try {
+          return X_inv48.Match.newMutableMatch((Physical_Person) match[POSITION_P]);
+      } catch(ClassCastException e) {
+          LOGGER.error("Element(s) in array not properly typed!",e);
+          return null;
+      }
+    }
+    
+    /**
+     * @return the singleton instance of the query specification of this pattern
+     * @throws ViatraQueryRuntimeException if the pattern definition could not be loaded
+     * 
+     */
+    public static IQuerySpecification<X_inv48.Matcher> querySpecification() {
+      return X_inv48.instance();
+    }
+  }
+  
+  private X_inv48() {
+    super(GeneratedPQuery.INSTANCE);
+  }
+  
+  /**
+   * @return the singleton instance of the query specification
+   * @throws ViatraQueryRuntimeException if the pattern definition could not be loaded
+   * 
+   */
+  public static X_inv48 instance() {
+    try{
+        return LazyHolder.INSTANCE;
+    } catch (ExceptionInInitializerError err) {
+        throw processInitializerError(err);
+    }
+  }
+  
+  @Override
+  protected X_inv48.Matcher instantiate(final ViatraQueryEngine engine) {
+    return X_inv48.Matcher.on(engine);
+  }
+  
+  @Override
+  public X_inv48.Matcher instantiate() {
+    return X_inv48.Matcher.create();
+  }
+  
+  @Override
+  public X_inv48.Match newEmptyMatch() {
+    return X_inv48.Match.newEmptyMatch();
+  }
+  
+  @Override
+  public X_inv48.Match newMatch(final Object... parameters) {
+    return X_inv48.Match.newMatch((Taxation.Physical_Person) parameters[0]);
+  }
+  
+  /**
+   * Inner class allowing the singleton instance of {@link X_inv48} to be created 
+   *     <b>not</b> at the class load time of the outer class, 
+   *     but rather at the first call to {@link X_inv48#instance()}.
+   * 
+   * <p> This workaround is required e.g. to support recursion.
+   * 
+   */
+  private static class LazyHolder {
+    private static final X_inv48 INSTANCE = new X_inv48();
+    
+    /**
+     * Statically initializes the query specification <b>after</b> the field {@link #INSTANCE} is assigned.
+     * This initialization order is required to support indirect recursion.
+     * 
+     * <p> The static initializer is defined using a helper field to work around limitations of the code generator.
+     * 
+     */
+    private static final Object STATIC_INITIALIZER = ensureInitialized();
+    
+    public static Object ensureInitialized() {
+      INSTANCE.ensureInitializedInternal();
+      return null;
+    }
+  }
+  
+  private static class GeneratedPQuery extends BaseGeneratedEMFPQuery {
+    private static final X_inv48.GeneratedPQuery INSTANCE = new GeneratedPQuery();
+    
+    private final PParameter parameter_p = new PParameter("p", "Taxation.Physical_Person", new EClassTransitiveInstancesKey((EClass)getClassifierLiteralSafe("http:///TaxCard.ecore", "Physical_Person")), PParameterDirection.INOUT);
+    
+    private final List<PParameter> parameters = Arrays.asList(parameter_p);
+    
+    private GeneratedPQuery() {
+      super(PVisibility.PUBLIC);
+    }
+    
+    @Override
+    public String getFullyQualifiedName() {
+      return "queries.x_inv48";
+    }
+    
+    @Override
+    public List<String> getParameterNames() {
+      return Arrays.asList("p");
+    }
+    
+    @Override
+    public List<PParameter> getParameters() {
+      return parameters;
+    }
+    
+    @Override
+    public Set<PBody> doGetContainedBodies() {
+      setEvaluationHints(new QueryEvaluationHint(null, QueryEvaluationHint.BackendRequirement.UNSPECIFIED));
+      Set<PBody> bodies = new LinkedHashSet<>();
+      {
+          PBody body = new PBody(this);
+          PVariable var_p = body.getOrCreateVariableByName("p");
+          new TypeConstraint(body, Tuples.flatTupleOf(var_p), new EClassTransitiveInstancesKey((EClass)getClassifierLiteral("http:///TaxCard.ecore", "Physical_Person")));
+          body.setSymbolicParameters(Arrays.<ExportedParameter>asList(
+             new ExportedParameter(body, var_p, parameter_p)
+          ));
+          //     Physical_Person.disability_type(p, ::NONE)
+          PVariable var__virtual_0_ = body.getOrCreateVariableByName(".virtual{0}");
+          new ConstantValue(body, var__virtual_0_, getEnumLiteral("http:///TaxCard.ecore", "Disability_Types", "NONE").getInstance());
+          new TypeConstraint(body, Tuples.flatTupleOf(var_p), new EClassTransitiveInstancesKey((EClass)getClassifierLiteral("http:///TaxCard.ecore", "Physical_Person")));
+          PVariable var__virtual_1_ = body.getOrCreateVariableByName(".virtual{1}");
+          new TypeConstraint(body, Tuples.flatTupleOf(var_p, var__virtual_1_), new EStructuralFeatureInstancesKey(getFeatureLiteral("http:///TaxCard.ecore", "Physical_Person", "disability_type")));
+          new TypeConstraint(body, Tuples.flatTupleOf(var__virtual_1_), new EDataTypeInSlotsKey((EDataType)getClassifierLiteral("http:///TaxCard.ecore", "Disability_Types")));
+          new Equality(body, var__virtual_1_, var__virtual_0_);
+          bodies.add(body);
+      }
+      return bodies;
+    }
+  }
+}