MyDDAS: Added new predicate db_prolog_select/4

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1511 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

library/MYDDAS/myddas.yap

@@ -22,9 +22,11 @@
 		  db_verbose/1,
 		  db_module/1,
 		  db_is_database_predicate/3,
+		  db_abolish/2,
 		  db_stats/2,
 		  
 		  db_sql_select/3,
+		  db_prolog_select/4,
 		  db_command/2,
 		  db_insert/2,
 		  db_create_table/3,
@@ -175,7 +177,7 @@ db_module(ModuleName):-
 
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% db_is_database_predicate/3
+% db_is_database_predicate(+,+,+)
 %
 %
 db_is_database_predicate(PredName,Arity,Module):-
@@ -185,7 +187,24 @@ db_is_database_predicate(PredName,Arity,Module):-
 
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% db_stats/2
+% db_abolish(+,+)
+%
+%
+db_abolish(Module:PredName,Arity):-!,
+	'$error_checks'(db_abolish(Module:PredName,Arity)),
+	%c_db_delete_predicate(
+	abolish(Module:PredName,Arity).
+db_abolish(PredName,Arity):-
+	'$error_checks'(db_abolish(PredName,Arity)),
+	
+	%c_db_delete_predicate(
+	abolish(PredName,Arity).
+			      
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% db_stats(+,-)
 %
 %
 :- set_value(db_myddas_stats_count,0).
@@ -206,7 +225,7 @@ db_stats(Connection,List):-
 
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% db_sql_select/3
+% db_sql_select(+,+,-)
 % 
 %
 db_sql_select(Connection,SQL,LA):-
@@ -231,6 +250,35 @@ db_sql_select(Connection,SQL,LA):-
 	).
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% db_prolog_select(+,-,+,+)
+%
+%
+db_prolog_select(Connection,LA,ViewName,DbGoal):-
+	
+	functor(ViewName,PredName,Arity),
+	%functor(NewName,PredName,Arity),
+	translate(ViewName,DbGoal,Code),
+	queries_atom(Code,SQL),
+	
+	% build arg list for db_my_row/2
+        '$make_list_of_args'(1,Arity,ViewName,LA),
+
+	get_value(Connection,Con),
+	c_db_connection_type(Con,ConType),
+	'$write_or_not'(SQL),
+	( ConType == mysql ->
+	    db_my_result_set(Mode),
+	    c_db_my_query(SQL,ResultSet,Con,Mode),
+	    !,c_db_my_row(ResultSet,Arity,LA)
+	;
+	    true
+	).
+	    
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % db_command/2
 % 

library/MYDDAS/myddas_test_predicates.yap

@@ -243,38 +243,6 @@ db_my_import_michel(RelationName,PredName,Connection) :-
 
 
 
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% db_ilpview/4
-%
-%
-db_ilpview(Connection,LA,ViewName,DbGoal):-
-	
-	functor(ViewName,PredName,Arity),
-	functor(NewName,PredName,Arity),
-	translate(ViewName,DbGoal,Code),
-	queries_atom(Code,SQL),
-	
-	% build arg list for db_my_row/2
-        '$make_list_of_args'(1,Arity,NewName,LA),
-
-	get_value(Connection,Con),
-	c_db_connection_type(Con,ConType),
-	'$write_or_not'(SQL),
-	( ConType == mysql ->
-	    db_my_result_set(Mode),
-	    c_db_my_query(SQL,ResultSet,Con,Mode),
-	    !,c_db_my_row(ResultSet,Arity,LA)
-	;
-	    true
-	).
-	    
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-
-
-
-
-	
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % db_view_original/3
 %