include XMLPL package.

packages/xml/xml.pl

@@ -0,0 +1,86 @@
+/* xml.pl : XML Module wrapper for Quintus Prolog.
+
+ *
+
+ * Copyright (C) 2001-2005 Binding Time Limited
+
+ * Copyright (C) 2005-2011 John Fletcher
+
+ *
+
+ * Current Release: $Revision: 3.3 $
+
+ * 
+
+ * TERMS AND CONDITIONS:
+
+ *
+
+ * This program is offered free of charge, as unsupported source code. You may
+
+ * use it, copy it, distribute it, modify it or sell it without restriction,
+
+ * but entirely at your own risk.
+
+ *
+
+ */
+
+:- module( xml,
+
+	[
+
+	xml_parse/2,
+
+	xml_parse/3,
+
+	xml_subterm/2,
+
+	xml_pp/1
+
+	] ).
+
+
+
+/* xml is intended to be a rather modular module: it should be easy to
+
+ * build a program that can output XML, but not read it, or vice versa.
+
+ * Similarly, you may be happy to dispense with diagnosis once you are
+
+ * sure that your code will only try to make valid calls to xml_parse/2.
+
+ *
+
+ * It is intended that the code should be very portable too. Clearly,
+
+ * some small changes will be needed between platforms, but these should
+
+ * be limited to xml_utilities. xml_utilities contains most of the shared
+
+ * code and most of the potentially non-portable code.
+
+ */
+
+
+:- use_module( library(lists), [append/3] ).
+
+
+
+:- ensure_loaded( xml/xml_driver ).
+
+
+
+
+
+/* atom_codes/2, number_codes/2 and throw/1 are ISO predicates, mapped to
+
+ * the Quintus equivalent here.
+
+ */
+
+%atom_codes( Atom, Codes ) :-
+
+%	atom_chars( Atom, Codes ).
+
+