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

MyDDAS: Changed translate/3 only for a particular case, for April 

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1520 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
tiagosoares 2006-01-17 18:07:06 +00:00
parent 31f7623984
commit ac5ba3fa10
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
library/MYDDAS/myddas_prolog2sql.yap
View File

@ -1016,8 +1016,9 @@ query_atom(query(Select,From,Where),QueryList,Diff):-
query_atom(agg_query(Function,Select,From,Where,Group),QueryList,Diff):-
clause_atom('SELECT',Function,Select,',',QueryList,X1),
clause_atom('FROM',From,',',X1,X2),
clause_atom('WHERE',Where,'AND',X2,X3),
clause_atom('GROUP BY',Group,',',X3,Diff).
clause_atom('WHERE',Where,'AND',X2,Diff).
%ILP : PARA NAO POR OS GROUP BYS. FAZER FLAG PARA ISTO
%clause_atom('GROUP BY',Group,',',X3,Diff).
query_atom(negated_existential_subquery(Select,From,Where),QueryList,Diff):-
column_atom('NOT EXISTS(',QueryList,X1),
@ -1056,12 +1057,12 @@ clause_atom(Keyword,[Column|RestColumns],Junctor,QueryList,Diff):-
%DISTINCT
clause_atom(Keyword,'COUNTDISTINCT',[Column],Junctor,QueryList,Diff):-!,
column_atom(Keyword,QueryList,X1),
column_atom(' ',X1,X2),
column_atom('COUNT',X2,X3),
column_atom('(DISTINCT ',X3,X4),
clause_atom([Column],Junctor,X4,X5),
column_atom(') ',X5,Diff).
column_atom(Keyword,QueryList,X1),
column_atom(' ',X1,X2),
column_atom('COUNT',X2,X3),
column_atom('(DISTINCT ',X3,X4),
clause_atom([Column],Junctor,X4,X5),
column_atom(') ',X5,Diff).
clause_atom(Keyword,Function,[Column],Junctor,QueryList,Diff):-
column_atom(Keyword,QueryList,X1),