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

MyDDAS: Added once to the prolog2sql compilar

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1527 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
tiagosoares 2006-01-26 18:52:49 +00:00
parent e66348b44c
commit 1fcc25ff3b
2 changed files with 23 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
library/MYDDAS/myddas_assert_predicates.yap
View File

@ -153,7 +153,7 @@ db_view(Connection,PredName,DbGoal) :-
% get arity of projection term % get arity of projection term
functor(PredName,ViewName,Arity), functor(PredName,ViewName,Arity),
db_module(Module), db_module(Module),
not c_db_check_if_exists_pred(ViewName,Arity,Module), %not c_db_check_if_exists_pred(ViewName,Arity,Module),
% This copy_term is done to prevent the unification % This copy_term is done to prevent the unification
% with top-level variables A='var('A')' error % with top-level variables A='var('A')' error

25
library/MYDDAS/myddas_prolog2sql.yap
View File

@ -226,7 +226,13 @@ query_generation([],_,[]).
query_generation([Conjunction|Conjunctions],ProjectionTerm,[Query|Queries]):- query_generation([Conjunction|Conjunctions],ProjectionTerm,[Query|Queries]):-
projection_term_variables(ProjectionTerm,InitDict), projection_term_variables(ProjectionTerm,InitDict),
translate_conjunction(Conjunction,SQLFrom,SQLWhere,InitDict,Dict), ( Conjunction =.. [once|Arguments] ->
[Args] = Arguments,
translate_conjunction(Args,SQLFrom,SQLWhereTemp,InitDict,Dict),
append(SQLWhereTemp,[once],SQLWhere)
;
translate_conjunction(Conjunction,SQLFrom,SQLWhere,InitDict,Dict)
),
translate_projection(ProjectionTerm,Dict,SQLSelect), translate_projection(ProjectionTerm,Dict,SQLSelect),
Query = query(SQLSelect,SQLFrom,SQLWhere), Query = query(SQLSelect,SQLFrom,SQLWhere),
query_generation(Conjunctions,ProjectionTerm,Queries). query_generation(Conjunctions,ProjectionTerm,Queries).
@ -1008,7 +1014,7 @@ query_atom(query(Select,From,Where),QueryList,Diff):-
clause_atom('SELECT',Select,',',QueryList,X1), clause_atom('SELECT',Select,',',QueryList,X1),
clause_atom('FROM',From,',',X1,X2), clause_atom('FROM',From,',',X1,X2),
clause_atom('WHERE',Where,'AND',X2,Diff). clause_atom('WHERE',Where,'AND',X2,Diff).
% column_atom('LIMIT 1',Diff,Diff2).
query_atom(agg_query(Function,Select,From,Where,Group),QueryList,Diff):- query_atom(agg_query(Function,Select,From,Where,Group),QueryList,Diff):-
clause_atom('SELECT',Function,Select,',',QueryList,X1), clause_atom('SELECT',Function,Select,',',QueryList,X1),
clause_atom('FROM',From,',',X1,X2), clause_atom('FROM',From,',',X1,X2),
@ -1045,7 +1051,11 @@ query_atom(existential_subquery(Select,From,Where),QueryList,Diff):-
% ILP % ILP
% clause_atom(Keyword,[],_,QueryList,QueryList). % clause_atom(Keyword,[],_,QueryList,QueryList).
clause_atom(_,[],_,QueryList,QueryList). clause_atom(_,[],_,QueryList,QueryList).
% case there is no WHERE condition
clause_atom(_,[once],_,QueryList,Diff):-!,
column_atom(' ',QueryList,X1),
column_atom('LIMIT 1',X1,X2),
column_atom(' ',X2,Diff).
clause_atom(Keyword,[Column|RestColumns],Junctor,QueryList,Diff):- clause_atom(Keyword,[Column|RestColumns],Junctor,QueryList,Diff):-
column_atom(Keyword,QueryList,X1), column_atom(Keyword,QueryList,X1),
column_atom(' ',X1,X2), column_atom(' ',X1,X2),
@ -1076,14 +1086,21 @@ clause_atom(Keyword,Function,[Column],Junctor,QueryList,Diff):-
% --- clause_atom(ClauseCode,Junctor) -------------------------------- % --- clause_atom(ClauseCode,Junctor) --------------------------------
clause_atom([once],_,QueryList,Diff):-!,
column_atom(' LIMIT 1 ',QueryList,Diff).
clause_atom([Item],_,QueryList,Diff):- clause_atom([Item],_,QueryList,Diff):-
column_atom(Item,QueryList,Diff). column_atom(Item,QueryList,Diff).
clause_atom([Item,NextItem|RestItems],Junctor,QueryList,Diff):- clause_atom([Item,NextItem|RestItems],Junctor,QueryList,Diff):-
column_atom(Item,QueryList,X1), column_atom(Item,QueryList,X1),
column_atom(' ',X1,X2), column_atom(' ',X1,X2),
( NextItem = once ->
X4 = X2
;
column_atom(Junctor,X2,X3), column_atom(Junctor,X2,X3),
column_atom(' ',X3,X4), column_atom(' ',X3,X4)
),
clause_atom([NextItem|RestItems],Junctor,X4,Diff). clause_atom([NextItem|RestItems],Junctor,X4,Diff).