Logtalk 2.26.2 files.

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

Logtalk/examples/metapredicates/sort1.lgt

@@ -1,61 +0,0 @@
-
-% sort code adopted from an example in the SICStus Prolog User Manual
-% metapredicate example taken from Prolog Part 2, Modules - Committee Draft
-
-
-:- object(sort(_Type)).
-
-
-	:- info([
-		version is 1.0,
-		author is 'Paulo Moura',
-		date is 2000/7/24,
-		comment is 'List sorting parameterized by the type of the list elements.']).
-
-
-	:- uses(list).
-	:- uses(tracer).
-
-	:- calls(comparingp).
-
-
-	:- public(sort/2).
-
-	:- mode(sort(+list, -list), one).
-
-	:- info(sort/2, [
-		comment is 'Sorts a list in ascending order.',
-		argnames is ['List', 'Sorted']]).
-
-
-	:- private(partition/4).
-
-	:- mode(partition(+list, +nonvar, -list, -list), one).
-
-	:- info(partition/4, [
-		comment is 'Partition a list in two lists containing the elements smaller and larger than a pivot.',
-		argnames is ['List', 'Pivot', 'Small', 'Large']]).
-
-
-	sort([], []).
-
-	sort([Head| Tail], Sorted) :-
-		tracer::(
-			trace(partition(Tail, Head, Small, Large)),
-			trace(sort(Small, Sorted1)),
-			trace(sort(Large, Sorted2))),
-		list::append(Sorted1, [Head| Sorted2], Sorted).
-
-
-	partition([], _, [], []).
-
-	partition([Head| Tail], Pivot, Small, Large) :-
-		parameter(1, Type),
-		(	Type::(Head < Pivot) ->
-			Small = [Head| Small1], Large = Large1
-		;	Small = Small1, Large = [Head| Large1]
-		),
-		partition(Tail, Pivot, Small1, Large1).
-
-
-:- end_object.

Logtalk/examples/metapredicates/tracer.lgt

@@ -1,37 +0,0 @@
-
-% example adopted from:
-% Programming Language Prolog Part 2, Modules
-% Committee Draft - January 14, 1998 X3J17/97/5
-
-
-:- object(tracer).
-
-
-	:- info([
-		version is 2,
-		author is 'Paulo Moura',
-		date is 2000/7/24,
-		comment is 'Tracer for a goal call and exit ports.']).
-
-
-	:- public(trace/1).
-	:- metapredicate(trace(::)).
-
-	:- mode(trace(+callable), zero_or_more).
-
-	:- info(trace/1, [
-		comment is '.',
-		argnames is ['Goal']]).
-
-
-	trace(Goal) :-
-		write('call: '), writeq(Goal), nl,
-		call(Goal),
-		write('exit: '), writeq(Goal), nl.
-		
-	trace(Goal) :-
-		write('fail: '), writeq(Goal), nl,
-		fail.
-
-
-:- end_object.