static TERM cont_CopyAndApplyIndexVariableBindings(const CONTEXT Context, TERM Term)
{
SYMBOL TermTop;
#ifdef CHECK
if (symbol_IsIndexVariable(term_TopSymbol(Term)) &&
!cont_VarIsBound(Context, term_TopSymbol(Term))) {
misc_StartErrorReport();
misc_ErrorReport("\n In cont_CopyAndApplyIndexVariableBindings:");
misc_ErrorReport(" Expected bound index variable.");
misc_FinishErrorReport();
}
#endif
TermTop = term_TopSymbol(Term);
while (symbol_IsIndexVariable(TermTop)) {
if (cont_VarIsBound(Context, TermTop)) {
Term = cont_ContextBindingTerm(Context, TermTop);
TermTop = term_TopSymbol(Term);
}
}
if (term_IsComplex(Term)) {
LIST Scan, ArgumentList;
for (Scan = ArgumentList = list_Copy(term_ArgumentList(Term));
!list_Empty(Scan);
Scan = list_Cdr(Scan))
list_Rplaca(Scan, cont_CopyAndApplyIndexVariableBindings(Context, list_Car(Scan)));
return term_Create(TermTop, ArgumentList);
} else
return term_Create(TermTop, list_Nil());
}
void symbol_FPrintOtter(FILE* File, SYMBOL Symbol)
/**************************************************************
INPUT: A file and a symbol.
RETURNS: None.
SUMMARY: Prints a symbol in Otter format to stdout.
***************************************************************/
{
#ifdef CHECK
if (!symbol_IsSymbol(Symbol)) {
misc_StartErrorReport();
misc_ErrorReport("\n In symbol_FPrintOtter: Illegal input.\n");
misc_FinishErrorReport();
}
#endif
if (symbol_IsVariable(Symbol)) {
SYMBOL NormSymbol;
NormSymbol = symbol_NormVar(Symbol);
if (symbol_IsStandardVariable(Symbol)) {
if (Symbol <= 6)
/* u, v, w, x, y, z */
sprintf(symbol_VARSTRING,"%c", 116 + NormSymbol);
else
/* x1, x2, x3, ... */
sprintf(symbol_VARSTRING,"x%d", NormSymbol - 6);
}
else if (symbol_IsIndexVariable(Symbol))
/* I1, I2, I3, ... */
sprintf(symbol_VARSTRING,"I%d", NormSymbol);
fputs(symbol_VARSTRING, File);
}
else
if (symbol_SignatureExists()) {
if (symbol_IsConstant(Symbol))
fprintf(File, "c%s", symbol_Name(Symbol));
else
if (symbol_IsFunction(Symbol))
fprintf(File, "f%s", symbol_Name(Symbol));
else
if (symbol_IsPredicate(Symbol))
fprintf(File, "P%s", symbol_Name(Symbol));
else
fputs(symbol_Name(Symbol), File);
}
else
fprintf(File, "%d", Symbol);
}
BOOL cont_BindingsAreRenamingModuloMatching(const CONTEXT RenamingContext)
{
CONTEXT Context;
#ifdef CHECK
if (!cont_IsContextEmpty(RenamingContext)) {
misc_StartErrorReport();
misc_ErrorReport("\n In cont_BindingsAreRenamingModuloMatching:");
misc_ErrorReport(" Renaming context contains bindings.\n");
misc_FinishErrorReport();
}
#endif
cont_StartBinding();
Context = cont_LastBinding();
while (Context) {
if (!symbol_IsIndexVariable(cont_BindingSymbol(Context))) {
SYMBOL CodomainSymbol;
CodomainSymbol = term_TopSymbol(cont_BindingTerm(Context));
if (symbol_IsVariable(CodomainSymbol)) {
if (cont_VarIsRenamed(RenamingContext, CodomainSymbol)) {
cont_BackTrack();
return FALSE;
} else {
cont_CreateBinding(RenamingContext, CodomainSymbol, NULL, NULL);
cont_SetContextBindingRenaming(RenamingContext, CodomainSymbol, CodomainSymbol);
}
} else {
cont_BackTrack();
return FALSE;
}
}
Context = cont_BindingLink(Context);
}
cont_BackTrack();
return TRUE;
}
void symbol_FPrint(FILE* File, SYMBOL Symbol)
/**************************************************************
INPUT: A file and a symbol.
RETURNS: None.
SUMMARY: Prints a symbol to the file.
***************************************************************/
{
#ifdef CHECK
if (!symbol_IsSymbol(Symbol)) {
misc_StartErrorReport();
misc_ErrorReport("\n In symbol_FPrint: Illegal input.\n");
misc_FinishErrorReport();
}
#endif
if (symbol_Equal(symbol_Null(),Symbol))
fputs("NULL", File);
else if (symbol_IsVariable(Symbol)) {
SYMBOL NormSymbol;
NormSymbol = symbol_NormVar(Symbol);
if (symbol_IsStandardVariable(Symbol)) {
if (Symbol <= 6)
/* U, V, W, X, Y, Z */
sprintf(symbol_VARSTRING,"%c", 'U' + NormSymbol - 1);
else
/* X1, X2, X3, ... */
sprintf(symbol_VARSTRING,"X%d", NormSymbol - 6);
}
else if (symbol_IsIndexVariable(Symbol))
/* I1, I2, I3, ... */
sprintf(symbol_VARSTRING,"I%d", NormSymbol);
fputs(symbol_VARSTRING, File);
}
else if (symbol_SignatureExists())
fputs(symbol_Name(Symbol), File);
else
fprintf(File, "%d", Symbol);
}
BOOL cont_TermEqualModuloBindings(CONTEXT IndexContext, CONTEXT CtL, TERM TermL,
CONTEXT CtR, TERM TermR)
/*********************************************************
INPUT: Two contexts, two terms.
RETURNS: The boolean value TRUE if the terms are equal.
CAUTION: EQUAL FUNCTION- OR PREDICATE SYMBOLS SHARE THE
SAME ARITY. THIS IS NOT VALID FOR JUNCTORS!
*******************************************************/
{
#ifdef CHECK
if (!(term_IsTerm(TermL) && term_IsTerm(TermR))) {
misc_StartErrorReport();
misc_ErrorReport("\n In cont_TermEqualModuloBindings: Input terms are corrupted.\n");
misc_FinishErrorReport();
}
#endif
while (term_IsVariable(TermL)) {
SYMBOL TermTop;
TermTop = term_TopSymbol(TermL);
if (symbol_IsIndexVariable(TermTop))
CtL = IndexContext;
else if (CtL == cont_InstanceContext())
break;
if (cont_VarIsBound(CtL, TermTop)) {
CONTEXT CHelp;
CHelp = cont_ContextBindingContext(CtL, TermTop);
TermL = cont_ContextBindingTerm(CtL, TermTop);
CtL = CHelp;
} else
break;
}
while (term_IsVariable(TermR)) {
SYMBOL TermTop;
TermTop = term_TopSymbol(TermR);
if (symbol_IsIndexVariable(TermTop))
CtR = IndexContext;
else if (CtR == cont_InstanceContext())
break;
if (cont_VarIsBound(CtR, TermTop)) {
CONTEXT CHelp;
CHelp = cont_ContextBindingContext(CtR, TermTop);
TermR = cont_ContextBindingTerm(CtR, TermTop);
CtR = CHelp;
} else
break;
}
if (!term_EqualTopSymbols(TermL, TermR))
return FALSE;
else
if (term_IsVariable(TermL)) {
if (CtL == CtR)
return TRUE;
else
return FALSE;
}
else
if (term_IsComplex(TermL)) {
LIST ScanL, ScanR;
for (ScanL=term_ArgumentList(TermL), ScanR=term_ArgumentList(TermR);
list_Exist(ScanL) && list_Exist(ScanR);
ScanL=list_Cdr(ScanL), ScanR=list_Cdr(ScanR))
if (!cont_TermEqualModuloBindings(IndexContext, CtL, list_Car(ScanL),
CtR, list_Car(ScanR)))
return FALSE;
return (list_Empty(ScanL) ? list_Empty(ScanR) : FALSE);
}
else
return TRUE;
}
