CUT_C and MYDDAS support for 64 bits architectures
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1564 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
@@ -21,12 +21,13 @@
|
||||
|
||||
:- use_module(myddas_util_predicates,[
|
||||
'$make_a_list'/2,
|
||||
'$check_fields'/2
|
||||
'$check_fields'/2,
|
||||
'$check_list_on_list'/2
|
||||
]).
|
||||
|
||||
:- use_module(lists,[
|
||||
is_list/1
|
||||
]).
|
||||
]).
|
||||
|
||||
|
||||
'$error_checks'(db_abolish(ModulePredName,Arity)):-!,
|
||||
@@ -104,10 +105,14 @@
|
||||
nonvar(Password),
|
||||
atom(Connection),
|
||||
get_value(Connection,[]). % Nao pode ter nenhum valor atribuido
|
||||
'$error_checks'(db_view(Connection,PredName,DbGoal)) :- !,
|
||||
'$error_checks'(db_view(Connection,Pred,DbGoal)) :- !,
|
||||
atom(Connection),
|
||||
nonvar(DbGoal),
|
||||
nonvar(PredName).
|
||||
nonvar(Pred),
|
||||
nonvar(DbGoal),
|
||||
Pred =.. [_|PredArgs],
|
||||
DbGoal =.. [_|DbGoalArgs],
|
||||
'$check_list_on_list'(PredArgs,DbGoalArgs).
|
||||
'$error_checks'(db_import(Connection,RelationName,PredName)) :- !,
|
||||
atom(Connection),
|
||||
atom(RelationName),
|
||||
|
Reference in New Issue
Block a user