MYDDAS: Enhanced statistics ability

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1628 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2006-05-03 18:02:29 +00:00
parent 955c6d7b32
commit 174a2c4518
10 changed files with 179 additions and 25 deletions
--- a/library/MYDDAS/myddas_errors.ypp
+++ b/library/MYDDAS/myddas_errors.ypp
@@ -61,8 +61,13 @@
 '$error_checks'(db_command(Connection,SQL)):-!,
        atom(Connection),
        nonvar(SQL).
+#ifdef MYDDAS_STATS
 '$error_checks'(db_stats(_,List)):-!,
 	var(List).
+'$error_checks'(db_stats_time(Reference,Time)):-!,
+	number(Reference),
+	var(Time).
+#endif
 '$error_checks'(db_export_view(Connection,TableViewName,SQLorDbGoal,FieldsInf)):-!,
        atom(Connection),
 	( atom(TableViewName) -> atom(SQLorDbGoal) ; true ),