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

postgres

This commit is contained in:
Vítor Santos Costa 2015-03-04 09:59:42 +00:00
parent 5b19e9546a
commit 65c97e7072
4 changed files with 560 additions and 401 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/myddas/Makefile.in
View File

@ -58,7 +58,7 @@ MYDDAS_SOURCES= \
MYDDAS_PROLOG= \
$(srcdir)/pl/myddas.ypp \
$(srcdir)/pl/myddas_assert_predicates.ypp \
$(srcdir)/pl/myddas_assert_predicates.ypp \
$(srcdir)/pl/myddas_mysql.ypp \
$(srcdir)/pl/myddas_sqlite3.ypp \
$(srcdir)/pl/myddas_top_level.ypp \

2
packages/myddas/myddas_mysql.c
View File

@ -149,7 +149,7 @@ c_db_my_connect( USES_REGS1 ) {
else
{
/* Criar um novo no na lista de ligacoes*/
new = myddas_util_add_connection(conn,NULL,MYDDAS_API);
new = myddas_util_add_connection(conn,NULL,MYDDAS_MYSQL);
if (new == NULL){
#ifdef DEBUG

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

File diff suppressed because it is too large Load Diff

14
packages/myddas/pl/myddas_errors.ypp
View File

@ -114,7 +114,19 @@
nonvar(Password),
atom(Connection),
get_value(Connection,[]). % Nao pode ter nenhum valor atribuido
'$error_checks'(db_open(sqlit3,Connection,File,_User,_Password)) :- !,
'$error_checks'(db_open(postgres,Connection,_Host/_Db/_Port/_,_User,_Password)) :- !,
atom(Connection),
get_value(Connection,[]). % Nao pode ter nenhum valor atribuido
'$error_checks'(db_open(postgres,Connection,_Host/_Db/_Port/_,_User)) :- !,
atom(Connection),
get_value(Connection,[]). % Nao pode ter nenhum valor atribuido
'$error_checks'(db_open(postgres,Connection,_Host/_Db/_Port/_)) :- !,
atom(Connection),
get_value(Connection,[]). % Nao pode ter nenhum valor atribuido
'$error_checks'(db_open(postgres,Connection)) :- !,
atom(Connection),
get_value(Connection,[]). % Nao pode ter nenhum valor atribuido
'$error_checks'(db_open(sqlite3,Connection,File,_User,_Password)) :- !,
nonvar(File), % == \+var(ODBCEntry)
atom(Connection),
get_value(Connection,[]). % Nao pode ter nenhum valor atribuido