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

user defined directives are multiple.

Browse Source
This commit is contained in:
Vítor Santos Costa 2015-11-09 11:29:09 +00:00
parent 6975c60645
commit 2d330f3bee
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pl/directives.yap
View File

@ -67,6 +67,8 @@
'$all_directives'(G) :- !, '$all_directives'(G) :- !,
'$directive'(G). '$directive'(G).
:- multifile '$directive'/1.
'$directive'(block(_)). '$directive'(block(_)).
'$directive'(char_conversion(_,_)). '$directive'(char_conversion(_,_)).
'$directive'(compile(_)). '$directive'(compile(_)).
@ -132,6 +134,8 @@ considered.
*/ */
:- multifile '$exec_directive'/5.
'$exec_directive'(initialization(D), _, M, _, _) :- '$exec_directive'(initialization(D), _, M, _, _) :-
'$initialization'(M:D). '$initialization'(M:D).
'$exec_directive'(initialization(D,OPT), _, M, _, _) :- '$exec_directive'(initialization(D,OPT), _, M, _, _) :-