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

myddas

Browse Source
This commit is contained in:
Vitor Santos Costa 2018-11-26 09:16:52 +00:00
parent 66167abba6
commit 9dc86c735b
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/myddas/pl/myddas.ypp
View File

@ -134,6 +134,9 @@
db_listing/1 db_listing/1
]). ]).
:- meta_predicate db_import(+,+,:), db_import(+,:).
:- use_module(myddas_sqlite3,[ :- use_module(myddas_sqlite3,[
% myddas_mysql.ypp % myddas_mysql.ypp
%c_sqlite3_connect/4, %c_sqlite3_connect/4,
@ -351,7 +354,7 @@ db_stats(Protocol,List):-
#ifdef DEBUG #ifdef DEBUG
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% db_stats_time(+,-) % db_stats_time(+,-)
% Reference is C puuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;uuuuu;ointer (memory reference) % Reference is C pointer (memory reference)
% %
db_stats_time(Reference,Time):- db_stats_time(Reference,Time):-
'$error_checks'(db_stats_time(Reference,Time)), '$error_checks'(db_stats_time(Reference,Time)),

2
packages/myddas/pl/myddas_driver.ypp
View File

@ -156,7 +156,6 @@ DBMS(datalog_show_tables)(Connection) :-
% DBMS(show_tables)/2 % DBMS(show_tables)/2
% gives the results of the SHOW TABLES statement % gives the results of the SHOW TABLES statement
% by backtracking % by backtracking
#if sqlite3
DBMS(show_tables)(Connection,table(Table)) :- DBMS(show_tables)(Connection,table(Table)) :-
'$get_value'(Connection,Conn), '$get_value'(Connection,Conn),
SQL = 'SELECT name FROM sqlite_master WHERE type=\'table\' ORDER BY name', SQL = 'SELECT name FROM sqlite_master WHERE type=\'table\' ORDER BY name',
@ -165,7 +164,6 @@ DBMS(show_tables)(Connection,table(Table)) :-
c_DBMS(query)(SQL,ResultSet,Conn,Mode,_), c_DBMS(query)(SQL,ResultSet,Conn,Mode,_),
!, !,
DBMS(row)(ResultSet,1,[Table]). DBMS(row)(ResultSet,1,[Table]).
#endif
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%