From 6c196ec8a41d6ed506c133c8b33dba9684f9a7a6 Mon Sep 17 00:00:00 2001 From: xleroy Date: Wed, 3 Mar 2010 12:34:43 +0000 Subject: Updated raytracer test. Added SPASS test. git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1271 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- test/spass/subst.h | 219 +++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 219 insertions(+) create mode 100644 test/spass/subst.h (limited to 'test/spass/subst.h') diff --git a/test/spass/subst.h b/test/spass/subst.h new file mode 100644 index 00000000..db26197c --- /dev/null +++ b/test/spass/subst.h @@ -0,0 +1,219 @@ +/**************************************************************/ +/* ********************************************************** */ +/* * * */ +/* * SUBSTITUTION * */ +/* * * */ +/* * $Module: SUBSTITUTION * */ +/* * * */ +/* * Copyright (C) 1996, 1997, 1998, 1999, 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$ */ + +#ifndef _SUBST_ +#define _SUBST_ + +/**************************************************************/ +/* Includes */ +/**************************************************************/ + +#include "term.h" +#include "symbol.h" +#include "list.h" + +/**************************************************************/ +/* Data Structures */ +/**************************************************************/ + +typedef struct subst { + struct subst *next; + SYMBOL dom; + TERM codomain; +} SUBST_NODE, *SUBST; + + +static __inline__ SUBST subst_Get(void) +{ + return (SUBST) memory_Malloc(sizeof(SUBST_NODE)); +} + +static __inline__ void subst_FreeOneNode(SUBST SL) +{ + memory_Free(SL, sizeof(SUBST_NODE)); +} + +/**************************************************************/ +/* Include 'unify.h' after SUBST declaration. */ +/**************************************************************/ + +#include "unify.h" + +/**************************************************************/ +/* Functions on Substitutions */ +/**************************************************************/ + +static __inline__ SUBST subst_Nil(void) +{ + return (SUBST)NULL; +} + +static __inline__ BOOL subst_Exist(SUBST S) +{ + return S != subst_Nil(); +} + +static __inline__ BOOL subst_Empty(SUBST S) +{ + return S == subst_Nil(); +} + +static __inline__ SUBST subst_Next(SUBST S) +{ + return S->next; +} + +static __inline__ void subst_SetNext(SUBST S, SUBST N) +{ + S->next = N; +} + +static __inline__ SYMBOL subst_Dom(SUBST S) +{ + return S->dom; +} + +static __inline__ TERM subst_Cod(SUBST S) +{ + return S->codomain; +} + +static __inline__ SUBST subst_NUnion(SUBST S1,SUBST S2) +{ + SUBST Result; + + if (S1 == (SUBST)NULL) + return S2; + + if (S2 == (SUBST)NULL) + return S1; + + Result = S1; + + for (; S1->next != (SUBST)NULL; S1 = S1->next); + + S1->next = S2; + + return Result; +} + + +/**************************************************************/ +/* Functions for Creation and Deletion */ +/**************************************************************/ + +SUBST subst_Add(SYMBOL, TERM, SUBST); +void subst_Delete(SUBST); +void subst_Free(SUBST); + +/**************************************************************/ +/* Functions for Applying and Copying */ +/**************************************************************/ + +TERM subst_Term(SYMBOL, SUBST); +TERM subst_Apply(SUBST, TERM); +SUBST subst_Merge(SUBST, SUBST); +SUBST subst_Compose(SUBST, SUBST); +SUBST subst_Copy(SUBST); +BOOL subst_MatchTops(const CONTEXT, SUBST); +BOOL subst_BindVar(SYMBOL,SUBST); + +/**************************************************************/ +/* Functions for Search of Unifiers */ +/**************************************************************/ + +BOOL subst_Unify(CONTEXT, SUBST); +BOOL subst_IsShallow(SUBST); + +/**************************************************************/ +/* Functions for Search of Generalizations */ +/**************************************************************/ + +BOOL subst_Match(const CONTEXT, SUBST); + +/**************************************************************/ +/* Functions for Search of Instances */ +/**************************************************************/ + +BOOL subst_MatchReverse(const CONTEXT, SUBST); + +/**************************************************************/ +/* Functions for Search of Variations */ +/**************************************************************/ + +BOOL subst_Variation(const CONTEXT, SUBST); + +/**************************************************************/ +/* Functions for Computation of MSCGs */ +/**************************************************************/ + +SUBST subst_ComGen(const CONTEXT, SUBST, SUBST*, SUBST*); + +/**************************************************************/ +/* Functions for Closing Bindings */ +/**************************************************************/ + +void subst_CloseVariables(const CONTEXT, SUBST); +SUBST subst_CloseOpenVariables(SUBST); + +/**************************************************************/ +/* Functions for Extracting Substitutions from Bindings */ +/**************************************************************/ + +void subst_ExtractUnifier(const CONTEXT, SUBST*, const CONTEXT, SUBST*); +void subst_ExtractUnifierCom(const CONTEXT, SUBST*); +SUBST subst_ExtractMatcher(void); + +/**************************************************************/ +/* Functions for Debugging */ +/**************************************************************/ + +void subst_Print(SUBST); + +#endif + + -- cgit