| // Copyright (C) 2011 The Android Open Source Project |
| // |
| // Licensed under the Apache License, Version 2.0 (the "License"); |
| // you may not use this file except in compliance with the License. |
| // You may obtain a copy of the License at |
| // |
| // http://www.apache.org/licenses/LICENSE-2.0 |
| // |
| // Unless required by applicable law or agreed to in writing, software |
| // distributed under the License is distributed on an "AS IS" BASIS, |
| // WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. |
| // See the License for the specific language governing permissions and |
| // limitations under the License. |
| |
| package gerrit; |
| |
| import com.google.gerrit.server.rules.StoredValues; |
| import com.googlecode.prolog_cafe.exceptions.PrologException; |
| 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.SymbolTerm; |
| import com.googlecode.prolog_cafe.lang.Term; |
| import org.eclipse.jgit.revwalk.RevCommit; |
| |
| /** |
| * Prolog predicate for the commit message of a change. |
| * |
| * <p>Checks that the term that is provided as input to this Prolog predicate is a string atom that |
| * matches the commit message of the change. |
| * |
| * <pre> |
| * 'commit_message'(-Msg) |
| * </pre> |
| */ |
| public class PRED_commit_message_1 extends Predicate.P1 { |
| public PRED_commit_message_1(Term a1, Operation n) { |
| arg1 = a1; |
| cont = n; |
| } |
| |
| @Override |
| public Operation exec(Prolog engine) throws PrologException { |
| engine.setB0(); |
| Term a1 = arg1.dereference(); |
| |
| RevCommit revCommit = StoredValues.COMMIT.get(engine); |
| String commitMessage = revCommit.getFullMessage(); |
| |
| SymbolTerm msg = SymbolTerm.create(commitMessage); |
| if (!a1.unify(msg, engine.trail)) { |
| return engine.fail(); |
| } |
| return cont; |
| } |
| } |