Logtalk 2.27.0 files.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1539 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

Logtalk/examples/hooks/hook.lgt

@@ -0,0 +1,30 @@
+
+:- 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.