Atom Translations and CUDA stub

packages/cuda/cuda.yap

@@ -0,0 +1,29 @@
+:- module(bdd, [cuda_extensional/2,
+	cuda_rule/2]).
+
+tell_warning :-
+	print_message(warning,functionality(cuda)).
+
+:- catch(load_foreign_files([cuda], [], init_cuda),_,fail) -> true ; tell_warning.
+
+:- meta_predicate cudda_extensional(:,-).
+
+cuda_extensional( Call, IdFacts) :-
+	strip_module(Call, Mod, Name/Arity),
+	functor(S, Name, Arity),
+	findall( S, Mod:S, L),
+	length( L, N ),
+	load_facts( N, Arity, L, IdFacts ).
+
+cuda_rule((Head :- Body) , IdRules) :-
+	body_to_list( Body, L, [], 1, N),
+	functor(Head, Na, Ar),
+	load_rule( N, Arity, [Head|L], IdRules ).
+
+
+body_to_list( (B1, B2), LF, L0, N0, N) :- !,
+	body_to_list( B1, LF, LI, N0, N1), 
+	body_to_list( B2, LI, L0, N1, NF). 
+body_to_list( B, [B|L], L, N0, N) :-
+	N is N0+1.
+