This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
2001-04-09 20:54:03 +01:00
|
|
|
/*************************************************************************
|
|
|
|
* *
|
|
|
|
* YAP Prolog *
|
|
|
|
* *
|
|
|
|
* Yap Prolog was developed at NCCUP - Universidade do Porto *
|
|
|
|
* *
|
|
|
|
* Copyright L.Damas, V.S.Costa and Universidade do Porto 1985-1997 *
|
|
|
|
* *
|
|
|
|
**************************************************************************
|
|
|
|
* *
|
|
|
|
* File: terms.yap *
|
|
|
|
* Last rev: 5/12/99 *
|
|
|
|
* mods: *
|
|
|
|
* comments: Term manipulation operations *
|
|
|
|
* *
|
|
|
|
*************************************************************************/
|
|
|
|
|
|
|
|
:- module(terms, [
|
2010-03-04 23:45:33 +00:00
|
|
|
term_hash/2,
|
|
|
|
term_hash/4,
|
2012-05-14 15:04:19 +01:00
|
|
|
term_subsumer/3,
|
2010-03-04 23:45:33 +00:00
|
|
|
instantiated_term_hash/4,
|
|
|
|
variant/2,
|
|
|
|
unifiable/3,
|
|
|
|
subsumes/2,
|
|
|
|
subsumes_chk/2,
|
|
|
|
cyclic_term/1,
|
|
|
|
variable_in_term/2,
|
|
|
|
variables_within_term/3,
|
|
|
|
new_variables_in_term/3
|
|
|
|
]).
|
2001-04-09 20:54:03 +01:00
|
|
|
|
|
|
|
term_hash(T,H) :-
|
|
|
|
term_hash(T, -1, 33554432, H).
|
|
|
|
|
2004-02-09 14:19:05 +00:00
|
|
|
%term_hash(X,Y) :-
|
|
|
|
% term_hash(X,-1,16'1000000,Y).
|
|
|
|
|
2001-04-09 20:54:03 +01:00
|
|
|
subsumes_chk(X,Y) :-
|
|
|
|
\+ \+ subsumes(X,Y).
|
|
|
|
|
|
|
|
|
|
|
|
|