Logtalk 2.17.2 files.

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

Logtalk/examples/errors/NOTES

@@ -1,12 +1,17 @@
 =================================================================
 Logtalk - Object oriented extension to Prolog
-Release 2.17.1
+Release 2.17.2
 
 Copyright (c) 1998-2004 Paulo Moura.  All Rights Reserved.
 =================================================================
 
-To load all entities in this example consult the warnings.loader and 
-the errors.loader utility files (note that these are Prolog files).
+
+The entities on this example are divided in two sets. To load the two 
+sets of entities, compile and load the corresponding loader files:
+
+| ?- logtalk_load(warnings_loader).
+
+| ?- logtalk_load(errors_loader).
 
 This folder contains examples of objects, categories, and protocols 
 containing errors that will trigger Logtalk compiler warnings and 

Logtalk/examples/errors/ccredef.lgt

@@ -0,0 +1,7 @@
+
+:- object(ccredef).
+		
+	::(_).
+	
+:- end_object.
+

Logtalk/examples/errors/errors_loader.lgt

@@ -0,0 +1,50 @@
+
+:- initialization((
+	catch(
+		logtalk_load(
+			[lgtmthdredef],
+			[unknown(warning), misspelt(warning), singletons(warning), plredef(warning), lgtredef(warning), report(on)]),
+		_,
+		true),
+	catch(
+		logtalk_load(
+			[invclause],
+			[unknown(warning), misspelt(warning), singletons(warning), plredef(warning), lgtredef(warning), report(on)]),
+		_,
+		true),
+	catch(
+		logtalk_load(
+			[unknowndir],
+			[unknown(warning), misspelt(warning), singletons(warning), plredef(warning), lgtredef(warning), report(on)]),
+		_,
+		true),
+	catch(
+		logtalk_load(
+			[noninstdir],
+			[unknown(warning), misspelt(warning), singletons(warning), plredef(warning), lgtredef(warning), report(on)]),
+		_,
+		true),
+	catch(
+		logtalk_load(
+			[invargdir],
+			[unknown(warning), misspelt(warning), singletons(warning), plredef(warning), lgtredef(warning), report(on)]),
+		_,
+		true),
+	catch(
+		logtalk_load(
+			[unmatchdir],
+			[unknown(warning), misspelt(warning), singletons(warning), plredef(warning), lgtredef(warning), report(on)]),
+		_,
+		true),
+	catch(
+		logtalk_load(
+			[catdynpred],
+			[unknown(warning), misspelt(warning), singletons(warning), plredef(warning), lgtredef(warning), report(on)]),
+		_,
+		true),
+	catch(
+		logtalk_load(
+			[ccredef],
+			[unknown(warning), misspelt(warning), singletons(warning), plredef(warning), lgtredef(warning), report(on)]),
+		_,
+		true))).

Logtalk/examples/errors/portability.lgt

@@ -1 +1,15 @@
-
+
+:- object(portability).
+
+
+	:- public(predicate/0).
+
+
+	predicate :-
+		compare(Result, first, second),
+		retractall(result(Result, _)),
+		sort([], []),
+		consult(file).
+
+
+:- end_object.

Logtalk/examples/errors/warnings_loader.lgt

@@ -0,0 +1,5 @@
+
+:- initialization(
+	logtalk_load(
+		[misspell, singletons1, plredef, lgtredef, unknownrefs, portability],
+		[unknown(warning), misspelt(warning), singletons(warning), plredef(warning), lgtredef(warning), portability(warning), report(on)])).