25 lines
		
	
	
		
			750 B
		
	
	
	
		
			C
		
	
	
	
	
	
			
		
		
	
	
			25 lines
		
	
	
		
			750 B
		
	
	
	
		
			C
		
	
	
	
	
	
#ifndef _RTREE_UDI_
 | 
						|
#define _RTREE_UDI_
 | 
						|
 | 
						|
#ifndef _RTREE_
 | 
						|
typedef void control_t;
 | 
						|
#endif
 | 
						|
 | 
						|
/*Prolog term from :- udi(a(-,+,+)).
 | 
						|
  User defined index announce
 | 
						|
*/
 | 
						|
extern control_t *RtreeUdiInit (Term spec,
 | 
						|
                                void *pred,
 | 
						|
                                int arity);
 | 
						|
 | 
						|
/*this is called in each asserted term that was declared to udi_init*/
 | 
						|
extern control_t *RtreeUdiInsert (Term term, /*asserted term*/
 | 
						|
                                  control_t *control,
 | 
						|
                                  void *clausule); /*to store in tree and return
 | 
						|
                                                     in search*/
 | 
						|
 | 
						|
extern void *RtreeUdiSearch (control_t *control);
 | 
						|
extern int RtreeUdiDestroy(control_t *control);
 | 
						|
 | 
						|
#endif /* _RTREE_UDI_ */
 |