diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2010-03-03 12:34:43 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2010-03-03 12:34:43 +0000 |
commit | 6c196ec8a41d6ed506c133c8b33dba9684f9a7a6 (patch) | |
tree | 4e1422ea2a810520d0d9b0fbb78c0014ba9f8443 /test/spass/resolution.c | |
parent | 93d89c2b5e8497365be152fb53cb6cd4c5764d34 (diff) | |
download | compcert-6c196ec8a41d6ed506c133c8b33dba9684f9a7a6.tar.gz compcert-6c196ec8a41d6ed506c133c8b33dba9684f9a7a6.zip |
Updated raytracer test. Added SPASS test.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1271 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'test/spass/resolution.c')
-rw-r--r-- | test/spass/resolution.c | 178 |
1 files changed, 178 insertions, 0 deletions
diff --git a/test/spass/resolution.c b/test/spass/resolution.c new file mode 100644 index 00000000..96e4bff5 --- /dev/null +++ b/test/spass/resolution.c @@ -0,0 +1,178 @@ +/**************************************************************/ +/* ********************************************************** */ +/* * * */ +/* * RESOLUTION * */ +/* * * */ +/* * $Module: RESOLUTION * */ +/* * * */ +/* * Copyright (C) 1996, 1997, 1998, 2001 * */ +/* * MPI fuer Informatik * */ +/* * * */ +/* * This program is free software; you can redistribute * */ +/* * it and/or modify it under the terms of the GNU * */ +/* * General Public License as published by the Free * */ +/* * Software Foundation; either version 2 of the License, * */ +/* * or (at your option) any later version. * */ +/* * * */ +/* * This program is distributed in the hope that it will * */ +/* * be useful, but WITHOUT ANY WARRANTY; without even * */ +/* * the implied warranty of MERCHANTABILITY or FITNESS * */ +/* * FOR A PARTICULAR PURPOSE. See the GNU General Public * */ +/* * License for more details. * */ +/* * * */ +/* * You should have received a copy of the GNU General * */ +/* * Public License along with this program; if not, write * */ +/* * to the Free Software Foundation, Inc., 59 Temple * */ +/* * Place, Suite 330, Boston, MA 02111-1307 USA * */ +/* * * */ +/* * * */ +/* $Revision: 21527 $ * */ +/* $State$ * */ +/* $Date: 2005-04-24 21:10:28 -0700 (Sun, 24 Apr 2005) $ * */ +/* $Author: duraid $ * */ +/* * * */ +/* * Contact: * */ +/* * Christoph Weidenbach * */ +/* * MPI fuer Informatik * */ +/* * Stuhlsatzenhausweg 85 * */ +/* * 66123 Saarbruecken * */ +/* * Email: weidenb@mpi-sb.mpg.de * */ +/* * Germany * */ +/* * * */ +/* ********************************************************** */ +/**************************************************************/ + + +/* $RCSfile$ */ + +#include "resolution.h" + + +/**************************************************************/ +/* Functions */ +/**************************************************************/ + + +void res_InsertClauseIndex(CLAUSE clause, st_INDEX stindex) +/********************************************************** + INPUT: A st_INDEX and a clause. + RETURNS: Inserts the clause in the st_INDEX stindex. + CAUTION: None. +***********************************************************/ +{ + int n,j; + + n = clause_Length(clause); + for (j = 0; j < n; j++) + st_EntryCreate(stindex, + clause_GetLiteral(clause,j), + clause_GetLiteralTerm(clause,j), + cont_LeftContext()); +} + + +void res_DeleteClauseIndex(CLAUSE clause, st_INDEX stindex) +/********************************************************** + INPUT: A st_INDEX and a clause. + RETURNS: Deletes the clause from the st_INDEX stindex. + CAUTION: None. +***********************************************************/ +{ + int n, j; + + n = clause_Length(clause); + for (j = 0; j < n; j++) + if (!st_EntryDelete(stindex, + clause_GetLiteral(clause,j), + clause_GetLiteralTerm(clause,j), + cont_LeftContext())) + misc_DumpCore(); +} + + + +CLAUSE res_SelectLightestClause(LIST clauselist) +/********************************************************** + INPUT: A list of clauses. + RETURNS: The lightest clause of the clauselist. + CAUTION: None. +***********************************************************/ +{ + CLAUSE clause; + LIST scan; + int min; + + clause = list_Car(clauselist); + min = clause_Weight(clause); + + for (scan=list_Cdr(clauselist); !list_Empty(scan); scan=list_Cdr(scan)) { + if (clause_Weight(list_Car(scan)) < min) { + clause = list_Car(scan); + min = clause_Weight(clause); + } + } + return clause; +} + + +BOOL res_HasTautology(CLAUSE clause) +/********************************************************** + INPUT: A clauses. + RETURNS: TRUE if the clause contains a complementary + literal pair and FALSE otherwise. + CAUTION: None. +***********************************************************/ +{ + BOOL found; + TERM literal1; + int i, j, n; + + found = FALSE; + n = clause_Length(clause); + + for (i = 0; i < n && !found; i++) { + literal1 = fol_ComplementaryTerm(clause_GetLiteralTerm(clause,i)); + for (j = 0; j < n && !found; j++) + if (j != i && term_Equal(literal1, clause_GetLiteralTerm(clause,j))) + found = TRUE; + + term_Delete(literal1); + } + return found; +} + + + +BOOL res_BackSubWithLength(CLAUSE clause, st_INDEX stindex) +/********************************************************** + INPUT: A clauses and an index. + RETURNS: TRUE if a clause of the index subsumes the clause clause + and length(clause) >= length(clause of index). + CAUTION: None. +***********************************************************/ +{ + int n,i; + LIST scan,generals; + TERM term; + LITERAL litres; + + n = clause_Length(clause); + for (i = 0; i < n; i++) { + term = clause_GetLiteralTerm(clause,i); + generals = st_GetGen(cont_LeftContext(), stindex, term); + for (scan = generals; !list_Empty(scan); scan = list_Cdr(scan)) { + litres = (LITERAL) list_Car(scan); + if (litres == clause_GetLiteral(clause_LiteralOwningClause(litres),0) && + clause_Length(clause) >= clause_Length(clause_LiteralOwningClause(litres)) && + clause_Weight(clause) >= clause_Weight(clause_LiteralOwningClause(litres)) && + subs_Idc(clause_LiteralOwningClause(litres),clause)) { + list_Delete(generals); + return TRUE; + } + } + list_Delete(generals); + } + return FALSE; +} + + |