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

postgres

Browse Source
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= \ MYDDAS_PROLOG= \
$(srcdir)/pl/myddas.ypp \ $(srcdir)/pl/myddas.ypp \
$(srcdir)/pl/myddas_assert_predicates.ypp \ $(srcdir)/pl/myddas_assert_predicates.ypp \
$(srcdir)/pl/myddas_mysql.ypp \ $(srcdir)/pl/myddas_mysql.ypp \
$(srcdir)/pl/myddas_sqlite3.ypp \ $(srcdir)/pl/myddas_sqlite3.ypp \
$(srcdir)/pl/myddas_top_level.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 else
{ {
/* Criar um novo no na lista de ligacoes*/ /* 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){ if (new == NULL){
#ifdef DEBUG #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), nonvar(Password),
atom(Connection), atom(Connection),
get_value(Connection,[]). % Nao pode ter nenhum valor atribuido 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) nonvar(File), % == \+var(ODBCEntry)
atom(Connection), atom(Connection),
get_value(Connection,[]). % Nao pode ter nenhum valor atribuido get_value(Connection,[]). % Nao pode ter nenhum valor atribuido