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

MyDDAS: Changed the syntax of db_prolog_select/4 to db_prolog_select/3, following a sugestion by Nuno Fonseca

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1512 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
tiagosoares 2006-01-11 23:15:52 +00:00
parent b0f11a69db
commit f03fd0c1da
2 changed files with 23 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
library/MYDDAS/myddas.yap
View File

@ -26,7 +26,7 @@
db_stats/2,
db_sql_select/3,
db_prolog_select/4,
db_prolog_select/3,
db_command/2,
db_insert/2,
db_create_table/3,
@ -93,7 +93,8 @@
'$make_list_of_args'/4,
'$get_table_name'/2,
'$get_values_for_update'/4,
'$extract_args'/4
'$extract_args'/4,
'$lenght'/2
]).
:- use_module(myddas_errors,[
@ -101,12 +102,13 @@
]).
:- use_module(myddas_prolog2sql,[
translate/3
translate/3,
queries_atom/2
]).
:- use_module(lists,[
append/3
]).
]).
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@ -252,19 +254,20 @@ db_sql_select(Connection,SQL,LA):-
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% db_prolog_select(+,-,+,+)
% db_prolog_select(+,+,+)
%
%
db_prolog_select(Connection,LA,ViewName,DbGoal):-
db_prolog_select(Connection,LA,DbGoal):-
functor(ViewName,PredName,Arity),
%functor(NewName,PredName,Arity),
translate(ViewName,DbGoal,Code),
'$lenght'(LA,Arity),
functor(ViewName,viewname,Arity),
% build arg list for viewname/Arity
'$make_list_of_args'(1,Arity,ViewName,LA),
copy_term((ViewName,DbGoal),(CopyView,CopyGoal)),
translate(CopyView,CopyGoal,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),

10
library/MYDDAS/myddas_util_predicates.yap
View File

@ -33,7 +33,8 @@
'$make_list_of_args'/4,
'$where_exists'/2,
'$build_query'/5,
'$assert_facts'/2
'$assert_facts'/2,
'$lenght'/2
]).
:- use_module(myddas,[
@ -364,4 +365,9 @@
'$assert_facts'(Module,Fact):-
Module:Fact,!.
'$assert_facts'(Module,Fact):-
assert(Module:Fact).
assert(Module:Fact).
'$lenght'([],0).
'$lenght'([_|T],Sum):-
'$lenght'(T,Num),
Sum is Num + 1.