Use _ instead of $ for implementation-detail Prolog predicates

Some non-Maven build systems can't handle $ in filenames, and this was just an arbitrary convention, so it's harmless to change. Change-Id: Ifae89dcc241f1859d2376df7fe226da766fc3011
2012-01-18 15:36:23 -08:00
parent d3a1bbbf38
commit 808ee99991
3 changed files with 6 additions and 6 deletions
--- a/gerrit-server/src/main/java/gerrit/PRED__load_commit_labels_1.java
+++ b/gerrit-server/src/main/java/gerrit/PRED__load_commit_labels_1.java
@@ -0,0 +1,82 @@
+// Copyright 2011 Google Inc. All Rights Reserved.
+
+package gerrit;
+
+import com.google.gerrit.common.data.ApprovalType;
+import com.google.gerrit.common.data.ApprovalTypes;
+import com.google.gerrit.reviewdb.PatchSet;
+import com.google.gerrit.reviewdb.PatchSetApproval;
+import com.google.gerrit.reviewdb.ReviewDb;
+import com.google.gerrit.rules.PrologEnvironment;
+import com.google.gerrit.rules.StoredValues;
+import com.google.gwtorm.client.OrmException;
+
+import com.googlecode.prolog_cafe.lang.IntegerTerm;
+import com.googlecode.prolog_cafe.lang.JavaException;
+import com.googlecode.prolog_cafe.lang.ListTerm;
+import com.googlecode.prolog_cafe.lang.Operation;
+import com.googlecode.prolog_cafe.lang.Predicate;
+import com.googlecode.prolog_cafe.lang.Prolog;
+import com.googlecode.prolog_cafe.lang.PrologException;
+import com.googlecode.prolog_cafe.lang.StructureTerm;
+import com.googlecode.prolog_cafe.lang.SymbolTerm;
+import com.googlecode.prolog_cafe.lang.Term;
+
+/** Exports list of {@code commit_label( label('Code-Review', 2), user(12345789) )}. */
+class PRED__load_commit_labels_1 extends Predicate.P1 {
+  private static final long serialVersionUID = 1L;
+
+  private static final SymbolTerm sym_commit_label = SymbolTerm.intern("commit_label", 2);
+  private static final SymbolTerm sym_label = SymbolTerm.intern("label", 2);
+  private static final SymbolTerm sym_user = SymbolTerm.intern("user", 1);
+
+  PRED__load_commit_labels_1(Term a1, Operation n) {
+    arg1 = a1;
+    cont = n;
+  }
+
+  @Override
+  public Operation exec(Prolog engine) throws PrologException {
+    engine.setB0();
+    Term a1 = arg1.dereference();
+
+    Term listHead = Prolog.Nil;
+    try {
+      PrologEnvironment env = (PrologEnvironment) engine.control;
+      ReviewDb db = StoredValues.REVIEW_DB.get(engine);
+      PatchSet.Id patchSetId = StoredValues.PATCH_SET_ID.get(engine);
+      ApprovalTypes types = env.getInjector().getInstance(ApprovalTypes.class);
+
+      for (PatchSetApproval a : db.patchSetApprovals().byPatchSet(patchSetId)) {
+        if (a.getValue() == 0) {
+          continue;
+        }
+
+        ApprovalType t = types.byId(a.getCategoryId());
+        if (t == null) {
+          continue;
+        }
+
+        StructureTerm labelTerm = new StructureTerm(
+            sym_label,
+            SymbolTerm.intern(t.getCategory().getLabelName()),
+            new IntegerTerm(a.getValue()));
+
+        StructureTerm userTerm = new StructureTerm(
+            sym_user,
+            new IntegerTerm(a.getAccountId().get()));
+
+        listHead = new ListTerm(
+            new StructureTerm(sym_commit_label, labelTerm, userTerm),
+            listHead);
+      }
+    } catch (OrmException err) {
+      throw new JavaException(this, 1, err);
+    }
+
+    if (!a1.unify(listHead, engine.trail)) {
+      return engine.fail();
+    }
+    return cont;
+  }
+}