diff options
Diffstat (limited to 'dev-lang/swi-prolog/files/swi-prolog-SGML_CATALOG_FILES.patch')
| -rw-r--r-- | dev-lang/swi-prolog/files/swi-prolog-SGML_CATALOG_FILES.patch | 90 |
1 files changed, 90 insertions, 0 deletions
diff --git a/dev-lang/swi-prolog/files/swi-prolog-SGML_CATALOG_FILES.patch b/dev-lang/swi-prolog/files/swi-prolog-SGML_CATALOG_FILES.patch new file mode 100644 index 000000000000..9ee6bca9424f --- /dev/null +++ b/dev-lang/swi-prolog/files/swi-prolog-SGML_CATALOG_FILES.patch @@ -0,0 +1,90 @@ +diff -ur pl-5.6.17.orig/packages/semweb/rdf_db_test.pl pl-5.6.17/packages/semweb/rdf_db_test.pl +--- pl-5.6.17.orig/packages/semweb/rdf_db_test.pl 2006-03-09 03:32:48.000000000 +1300 ++++ pl-5.6.17/packages/semweb/rdf_db_test.pl 2006-10-07 20:32:28.000000000 +1300 +@@ -13,6 +13,8 @@ + :- use_module(rdfs). + :- use_module(library(xsdp_types)). + ++:- unsetenv('SGML_CATALOG_FILES'). ++ + /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + RDF-DB test file. A test is a clause of the form: + +diff -ur pl-5.6.17.orig/packages/sgml/RDF/rdf_test.pl pl-5.6.17/packages/sgml/RDF/rdf_test.pl +--- pl-5.6.17.orig/packages/sgml/RDF/rdf_test.pl 2005-07-05 02:07:43.000000000 +1200 ++++ pl-5.6.17/packages/sgml/RDF/rdf_test.pl 2006-10-07 20:31:31.000000000 +1300 +@@ -34,6 +34,8 @@ + + :- set_prolog_flag(rdf_container, true). + ++:- unsetenv('SGML_CATALOG_FILES'). ++ + /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + Test file for the SWI-Prolog RDF parser. Toplevel predicates: + +diff -ur pl-5.6.17.orig/packages/sgml/Test/test.pl pl-5.6.17/packages/sgml/Test/test.pl +--- pl-5.6.17.orig/packages/sgml/Test/test.pl 2005-03-01 02:49:58.000000000 +1300 ++++ pl-5.6.17/packages/sgml/Test/test.pl 2006-10-07 09:14:41.000000000 +1300 +@@ -25,6 +25,7 @@ + :- asserta(user:file_search_path(foreign, '..')). + :- use_module(library(sgml)). + ++:- unsetenv('SGML_CATALOG_FILES'). + + test :- + testdir(.). +@@ -52,27 +53,27 @@ + -> format('ok') + ; format('WRONG'), + format('~NOK:~n'), +- pp(TermOk), ++ format('~w~n',[TermOk]), + format('~NANSWER:~n'), +- pp(Term) ++ format('~w~n',[Term]) + ), + error_terms(Errors), + ( compare_errors(Errors, ErrorsOk) + -> true + ; format(' [Different errors]~nOK:~n'), +- pp(ErrorsOk), ++ format('~w~n',[ErrorsOk]), + format('~NANSWER:~n'), +- pp(Errors) ++ format('~w~n',[Errors]) + ), + nl + ; show_errors, + format('Loaded, no validating data~n'), +- pp(Term) ++ format('~w~n',[Term]) + ). + + show(File) :- + load_file(File, Term), +- pp(Term). ++ format('~w~n',[Term]). + + pass(File) :- + load_file(File, Term), +diff -ur pl-5.6.17.orig/packages/sgml/Test/wrtest.pl pl-5.6.17/packages/sgml/Test/wrtest.pl +--- pl-5.6.17.orig/packages/sgml/Test/wrtest.pl 2005-03-01 02:49:58.000000000 +1300 ++++ pl-5.6.17/packages/sgml/Test/wrtest.pl 2006-10-07 09:20:18.000000000 +1300 +@@ -19,6 +19,8 @@ + :- use_module(library(sgml)). + :- use_module(library(sgml_write)). + ++:- unsetenv('SGML_CATALOG_FILES'). ++ + test :- % default test + fp('.'). + +@@ -114,7 +116,7 @@ + open(File, write, Out, [encoding(iso_latin_1)]), + current_output(C0), + set_output(Out), +- pp(Term), ++ format('~w~n',[Term]), + set_output(C0), + close(Out). + |