31 lines
759 B
Plaintext
31 lines
759 B
Plaintext
|
|
||
|
|
:- object(hook).
|
||
|
|
|
||
|
|
:- info([
|
||
|
|
version is 1.0,
|
||
|
|
author is 'Paulo Moura',
|
||
|
|
date is 2006/01/29,
|
||
|
|
comment is 'Example of an object defining compiler hook predicates.']).
|
||
|
|
|
||
|
|
:- public(hook/2).
|
||
|
|
:- mode(hook(@nonvar, -list), zero_or_one).
|
||
|
|
:- info(hook/2, [
|
||
|
|
comment is 'Compiler hook predicate.',
|
||
|
|
arguments is ['Term'-'Source file term', 'Terms'-'Resulting list of terms']]).
|
||
|
|
|
||
|
|
hook((:- info(Original)), [(:- info(New))]) :-
|
||
|
|
expand_author(Original, New).
|
||
|
|
|
||
|
|
expand_author([], []).
|
||
|
|
expand_author([Info| Infos], [Info2| Infos2]) :-
|
||
|
|
( Info = (author is Abbreviation) ->
|
||
|
|
author(Abbreviation, FullName),
|
||
|
|
Info2 = (author is FullName)
|
||
|
|
; Info = Info2
|
||
|
|
),
|
||
|
|
expand_author(Infos, Infos2).
|
||
|
|
|
||
|
|
author(pm, 'Paulo Moura, pmoura@logtalk.org').
|
||
|
|
|
||
|
|
:- end_object.
|