79 lines
2.4 KiB
Perl
79 lines
2.4 KiB
Perl
|
/* xml.iso.pl : Wrapper for ISO 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.
|
||
|
|
*/
|
||
|
|
:- ensure_loaded( xml_driver ).
|
||
|
|
|
||
|
|
/* xml_exception( +Message, +Document, +Culprit, +Path ) is a hook to
|
||
|
|
* raise an exception to be raised in respect of a fault in the XML Term:
|
||
|
|
* Document.
|
||
|
|
* - Culprit is a sub-term of Document which cannot be serialized;
|
||
|
|
* - Message is an atom naming the type of error;
|
||
|
|
* - Path is a string encoding a list of SubTerm's ancestor elements in the
|
||
|
|
* form <tag>{(id)}* where <tag> is the element tag and <id> is the value
|
||
|
|
* of any attribute _named_ id.
|
||
|
|
*/
|
||
|
|
xml_exception( Message, Document, Culprit, Path ) :-
|
||
|
|
throw(
|
||
|
|
application_error('XML Parse: ~s in ~q~nCulprit: ~q~nPath: ~s',
|
||
|
|
[Message,Document,Culprit,Path] )
|
||
|
|
).
|
||
|
|
|
||
|
|
append( [], L, L ).
|
||
|
|
append( [H|T0], L, [H|T1] ) :-
|
||
|
|
append( T0, L, T1 ).
|
||
|
|
|
||
|
|
otherwise.
|
||
|
|
|
||
|
|
/* member( ?Element, ?List ) holds when Element is a member of List.
|
||
|
|
*/
|
||
|
|
member( H, [H|_] ).
|
||
|
|
member( H, [_|T] ):-
|
||
|
|
member( H, T ).
|
||
|
|
|
||
|
|
/* select( ?Element, ?List0, ?List1 ) is true if List1 is equal to List0
|
||
|
|
* with Element removed.
|
||
|
|
*/
|
||
|
|
select( H, [H|T], T ).
|
||
|
|
select( Element, [H|T0], [H|T1] ):-
|
||
|
|
select( Element, T0, T1 ).
|
||
|
|
|
||
|
|
end_of_file.
|
||
|
|
|
||
|
|
/* is_list( +List ) holds when List is a list. Built-in?
|
||
|
|
*/
|
||
|
|
is_list( List ) :-
|
||
|
|
nonvar( List ),
|
||
|
|
is_list1( List ).
|
||
|
|
|
||
|
|
is_list1( [] ).
|
||
|
|
is_list1( [_|_] ).
|