diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

get rid of PROTO

Browse Source
This commit is contained in:
Vitor Santos Costa
2013-04-25 17:15:04 -05:00
parent 24a75525c0
commit 743c9c69fb
64 changed files with 1302 additions and 1315 deletions
Download Patch File Download Diff File Expand all files Collapse all files

118
C/dbase.c
View File

@@ -174,70 +174,70 @@ typedef table {
} hash_db_table;
#endif
STATIC_PROTO(CELL *cpcells,(CELL *,CELL*,Int));
STATIC_PROTO(void linkblk,(link_entry *,CELL *,CELL));
STATIC_PROTO(Int cmpclls,(CELL *,CELL *,Int));
STATIC_PROTO(Prop FindDBProp,(AtomEntry *, int, unsigned int, Term));
STATIC_PROTO(CELL CalcKey, (Term));
static CELL *cpcells(CELL *,CELL*,Int);
static void linkblk(link_entry *,CELL *,CELL);
static Int cmpclls(CELL *,CELL *,Int);
static Prop FindDBProp(AtomEntry *, int, unsigned int, Term);
static CELL CalcKey(Term);
#ifdef COROUTINING
STATIC_PROTO(CELL *MkDBTerm, (CELL *, CELL *, CELL *, CELL *, CELL *, CELL *,int *, struct db_globs *));
static CELL *MkDBTerm(CELL *, CELL *, CELL *, CELL *, CELL *, CELL *,int *, struct db_globs *);
#else
STATIC_PROTO(CELL *MkDBTerm, (CELL *, CELL *, CELL *, CELL *, CELL *, int *, struct db_globs *));
static CELL *MkDBTerm(CELL *, CELL *, CELL *, CELL *, CELL *, int *, struct db_globs *);
#endif
STATIC_PROTO(DBRef CreateDBStruct, (Term, DBProp, int, int *, UInt, struct db_globs *));
STATIC_PROTO(DBRef record, (int, Term, Term, Term CACHE_TYPE));
STATIC_PROTO(DBRef check_if_cons, (DBRef, Term));
STATIC_PROTO(DBRef check_if_var, (DBRef));
STATIC_PROTO(DBRef check_if_wvars, (DBRef, unsigned int, CELL *));
STATIC_PROTO(int scheckcells, (int, CELL *, CELL *, link_entry *, CELL));
STATIC_PROTO(DBRef check_if_nvars, (DBRef, unsigned int, CELL *, struct db_globs *));
STATIC_PROTO(Int p_rcda, ( USES_REGS1 ));
STATIC_PROTO(Int p_rcdap, ( USES_REGS1 ));
STATIC_PROTO(Int p_rcdz, ( USES_REGS1 ));
STATIC_PROTO(Int p_rcdzp, ( USES_REGS1 ));
STATIC_PROTO(Int p_drcdap, ( USES_REGS1 ));
STATIC_PROTO(Int p_drcdzp, ( USES_REGS1 ));
STATIC_PROTO(Term GetDBTerm, (DBTerm * CACHE_TYPE));
STATIC_PROTO(DBProp FetchDBPropFromKey, (Term, int, int, char *));
STATIC_PROTO(Int i_recorded, (DBProp,Term CACHE_TYPE));
STATIC_PROTO(Int c_recorded, (int CACHE_TYPE));
STATIC_PROTO(Int co_rded, ( USES_REGS1 ));
STATIC_PROTO(Int in_rdedp, ( USES_REGS1 ));
STATIC_PROTO(Int co_rdedp, ( USES_REGS1 ));
STATIC_PROTO(Int p_first_instance, ( USES_REGS1 ));
STATIC_PROTO(void ErasePendingRefs, (DBTerm * CACHE_TYPE));
STATIC_PROTO(void RemoveDBEntry, (DBRef CACHE_TYPE));
STATIC_PROTO(void EraseLogUpdCl, (LogUpdClause *));
STATIC_PROTO(void MyEraseClause, (DynamicClause * CACHE_TYPE));
STATIC_PROTO(void PrepareToEraseClause, (DynamicClause *, DBRef));
STATIC_PROTO(void EraseEntry, (DBRef));
STATIC_PROTO(Int p_erase, ( USES_REGS1 ));
STATIC_PROTO(Int p_eraseall, ( USES_REGS1 ));
STATIC_PROTO(Int p_erased, ( USES_REGS1 ));
STATIC_PROTO(Int p_instance, ( USES_REGS1 ));
STATIC_PROTO(int NotActiveDB, (DBRef));
STATIC_PROTO(DBEntry *NextDBProp, (PropEntry *));
STATIC_PROTO(Int init_current_key, ( USES_REGS1 ));
STATIC_PROTO(Int cont_current_key, ( USES_REGS1 ));
STATIC_PROTO(Int cont_current_key_integer, ( USES_REGS1 ));
STATIC_PROTO(Int p_rcdstatp, ( USES_REGS1 ));
STATIC_PROTO(Int p_somercdedp, ( USES_REGS1 ));
STATIC_PROTO(yamop * find_next_clause, (DBRef USES_REGS));
STATIC_PROTO(Int p_jump_to_next_dynamic_clause, ( USES_REGS1 ));
static DBRef CreateDBStruct(Term, DBProp, int, int *, UInt, struct db_globs *);
static DBRef record(int, Term, Term, Term CACHE_TYPE);
static DBRef check_if_cons(DBRef, Term);
static DBRef check_if_var(DBRef);
static DBRef check_if_wvars(DBRef, unsigned int, CELL *);
static int scheckcells(int, CELL *, CELL *, link_entry *, CELL);
static DBRef check_if_nvars(DBRef, unsigned int, CELL *, struct db_globs *);
static Int p_rcda( USES_REGS1 );
static Int p_rcdap( USES_REGS1 );
static Int p_rcdz( USES_REGS1 );
static Int p_rcdzp( USES_REGS1 );
static Int p_drcdap( USES_REGS1 );
static Int p_drcdzp( USES_REGS1 );
static Term GetDBTerm(DBTerm * CACHE_TYPE);
static DBProp FetchDBPropFromKey(Term, int, int, char *);
static Int i_recorded(DBProp,Term CACHE_TYPE);
static Int c_recorded(int CACHE_TYPE);
static Int co_rded( USES_REGS1 );
static Int in_rdedp( USES_REGS1 );
static Int co_rdedp( USES_REGS1 );
static Int p_first_instance( USES_REGS1 );
static void ErasePendingRefs(DBTerm * CACHE_TYPE);
static void RemoveDBEntry(DBRef CACHE_TYPE);
static void EraseLogUpdCl(LogUpdClause *);
static void MyEraseClause(DynamicClause * CACHE_TYPE);
static void PrepareToEraseClause(DynamicClause *, DBRef);
static void EraseEntry(DBRef);
static Int p_erase( USES_REGS1 );
static Int p_eraseall( USES_REGS1 );
static Int p_erased( USES_REGS1 );
static Int p_instance( USES_REGS1 );
static int NotActiveDB(DBRef);
static DBEntry *NextDBProp(PropEntry *);
static Int init_current_key( USES_REGS1 );
static Int cont_current_key( USES_REGS1 );
static Int cont_current_key_integer( USES_REGS1 );
static Int p_rcdstatp( USES_REGS1 );
static Int p_somercdedp( USES_REGS1 );
static yamop * find_next_clause(DBRef USES_REGS);
static Int p_jump_to_next_dynamic_clause( USES_REGS1 );
#ifdef SFUNC
STATIC_PROTO(void SFVarIn, (Term));
STATIC_PROTO(void sf_include, (SFKeep *));
static void SFVarIn(Term);
static void sf_include(SFKeep *);
#endif
STATIC_PROTO(Int p_init_queue, ( USES_REGS1 ));
STATIC_PROTO(Int p_enqueue, ( USES_REGS1 ));
STATIC_PROTO(void keepdbrefs, (DBTerm * CACHE_TYPE));
STATIC_PROTO(Int p_dequeue, ( USES_REGS1 ));
STATIC_PROTO(void ErDBE, (DBRef CACHE_TYPE));
STATIC_PROTO(void ReleaseTermFromDB, (DBTerm * CACHE_TYPE));
STATIC_PROTO(PredEntry *new_lu_entry, (Term));
STATIC_PROTO(PredEntry *new_lu_int_key, (Int));
STATIC_PROTO(PredEntry *find_lu_entry, (Term));
STATIC_PROTO(DBProp find_int_key, (Int));
static Int p_init_queue( USES_REGS1 );
static Int p_enqueue( USES_REGS1 );
static void keepdbrefs(DBTerm * CACHE_TYPE);
static Int p_dequeue( USES_REGS1 );
static void ErDBE(DBRef CACHE_TYPE);
static void ReleaseTermFromDB(DBTerm * CACHE_TYPE);
static PredEntry *new_lu_entry(Term);
static PredEntry *new_lu_int_key(Int);
static PredEntry *find_lu_entry(Term);
static DBProp find_int_key(Int);
#define db_check_trail(x) { \
if (Unsigned(dbg->tofref) == Unsigned(x)) { \