diff --git a/Makefile b/Makefile --- a/Makefile +++ b/Makefile @@ -35,13 +35,13 @@ # ------------------------------------------------------------ -CABAL_OPTIONS = +CABAL_OPTIONS = --global cabal : $(MAKE) cabal_configure cabal_build cabal_doc cabal_install cabal_configure : - runhaskell $(SETUP) configure --global $(CABAL_OPTIONS) + runhaskell $(SETUP) configure $(CABAL_OPTIONS) cabal_doc : $(HSCOLOUR) -print-css > $(HSCOLOUR) @@ -164,7 +164,8 @@ ; cd $(DIST) || exit 1 \ ; runhaskell $(SETUP) configure $(CABAL_OPTIONS) || exit 1 \ ; runhaskell $(SETUP) build || exit 1 \ - ; $(INSTALL) sudo runhaskell $(SETUP) install --global $(INSTEND) \ + ; $(MAKE) cabal_doc || exit 1 \ + ; $(INSTALL) sudo runhaskell $(SETUP) install $(CABAL_OPTIONS) $(INSTEND) \ ) distinstall : diff --git a/Version.mk b/Version.mk --- a/Version.mk +++ b/Version.mk @@ -2,6 +2,6 @@ # Version numbering for HXT SOFTWARE = hxt -VERSION = 8.2.0 -LASTVERSION = 8.1.2 +VERSION = 8.3.0 +LASTVERSION = 8.2.0 DIST_NAME = $(SOFTWARE)-$(VERSION) diff --git a/doc/hdoc/Control-Arrow-ArrowIO.html b/doc/hdoc/Control-Arrow-ArrowIO.html --- a/doc/hdoc/Control-Arrow-ArrowIO.html +++ b/doc/hdoc/Control-Arrow-ArrowIO.html @@ -19,7 +19,7 @@ > hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code - -Data.Tree.NTree.Filter
hxt-8.2.0: A collection of tools for processing XML with Haskell.Source codeContentsIndex
Data.Tree.NTree.Filter
Portabilityportable
Stabilityexperimental
MaintainerUwe Schmidt (uwe\@fh-wedel.de)
Contents
Filter -
Monadic Filter -
Description

Version : $Id: Filter.hs,v 1.6 20061112 14:52:59 hxml Exp $ -

Filter for n-ary tree structure with filter combinators -copied and modified from HxXml (http://www.cs.york.ac.uk/fp/HaXml/) -

Similar but more flexible functions for tree processing are defined in the -arrow classes Control.Arrow.ArrowList, Control.Arrow.ArrowIf, Control.Arrow.ArrowTree and Control.Arrow.ArrowState. -For new applications, especially for XML processing, it's recommended to use the arrow interface -Text.XML.HXT.Arrow instead of this filter approach as part of the api Text.XML.HXT.Parser -

Synopsis
module Data.Tree.NTree.TypeDefs
type TFilter node = NTree node -> NTrees node
type TSFilter node = NTrees node -> NTrees node
satisfies :: (a -> [b]) -> a -> Bool
none :: a -> [b]
this :: a -> [a]
isOf :: (a -> Bool) -> a -> [a]
isOfNode :: (node -> Bool) -> TFilter node
mkNTree :: NTree node -> TFilter node
replaceNode :: node -> TFilter node
replaceChildren :: NTrees node -> TFilter node
modifyNode :: (node -> Maybe node) -> TFilter node
modifyNode0 :: (node -> node) -> TFilter node
modifyChildren :: TSFilter node -> TFilter node
substChildren :: TFilter node -> TFilter node
processChildren :: TFilter node -> TFilter node
o :: (a -> [b]) -> (c -> [a]) -> c -> [b]
(.>) :: (a -> [b]) -> (b -> [c]) -> a -> [c]
seqF :: [a -> [a]] -> a -> [a]
(..>) :: (a -> [b]) -> (a -> b -> [d]) -> a -> [d]
(+++) :: (a -> [b]) -> (a -> [b]) -> a -> [b]
cat :: [a -> [b]] -> a -> [b]
orElse :: (a -> [b]) -> (a -> [b]) -> a -> [b]
iff :: (a -> [c]) -> (a -> [b]) -> (a -> [b]) -> a -> [b]
choice :: [IfThen (a -> [c]) (a -> [b])] -> a -> [b]
data IfThen a b = a :-> b
when :: (a -> [a]) -> (a -> [a]) -> a -> [a]
whenNot :: (a -> [a]) -> (a -> [a]) -> a -> [a]
guards :: (a -> [b]) -> (a -> [b]) -> a -> [b]
neg :: (a -> [c]) -> a -> [a]
containing :: (a -> [b]) -> (b -> [c]) -> a -> [b]
notContaining :: (a -> [b]) -> (b -> [c]) -> a -> [b]
(/>) :: TFilter node -> TFilter node -> TFilter node
(</) :: TFilter node -> TFilter node -> TFilter node
deep :: TFilter node -> TFilter node
deepest :: TFilter node -> TFilter node
multi :: TFilter node -> TFilter node
processBottomUp :: TFilter node -> TFilter node
processBottomUpIfNot :: TFilter node -> TFilter node -> TFilter node
processTopDown :: TFilter node -> TFilter node
processTopDownUntil :: TFilter node -> TFilter node
insertChildrenAt :: Int -> TFilter node -> TFilter node
insertChildrenAfter :: TFilter node -> TFilter node -> TFilter node
thisM :: Monad m => a -> m [a]
noneM :: Monad m => a -> m [b]
(.>>) :: Monad m => (a -> m [b]) -> (b -> m [c]) -> a -> m [c]
seqM :: Monad m => [a -> m [a]] -> a -> m [a]
(+++>>) :: Monad m => (a -> m [b]) -> (a -> m [b]) -> a -> m [b]
catM :: Monad m => [a -> m [b]] -> a -> m [b]
ifM :: Monad m => (a -> [b]) -> (a -> m [c]) -> (a -> m [c]) -> a -> m [c]
choiceM :: Monad m => [IfThen (a -> [c]) (a -> m [b])] -> a -> m [b]
whenM :: Monad m => (a -> m [a]) -> (a -> [b]) -> a -> m [a]
whenNotM :: Monad m => (a -> m [a]) -> (a -> [b]) -> a -> m [a]
guardsM :: Monad m => (a -> [b]) -> (a -> m [c]) -> a -> m [c]
containingM :: Monad m => (a -> m [b]) -> (b -> [c]) -> a -> m [b]
processChildrenM :: Monad m => (NTree node -> m [NTree node]) -> NTree node -> m [NTree node]
processTopDownM :: Monad m => (NTree node -> m [NTree node]) -> NTree node -> m [NTree node]
processBottomUpM :: Monad m => (NTree node -> m [NTree node]) -> NTree node -> m [NTree node]
liftMf :: Monad m => (a -> [b]) -> a -> m [b]
($$) :: (a -> [b]) -> [a] -> [b]
($$<) :: Monad m => (a -> m [b]) -> [a] -> m [b]
performAction :: Monad m => (a -> m b) -> a -> m [a]
Documentation
module Data.Tree.NTree.TypeDefs
type TFilter node = NTree node -> NTrees nodeSource

tree filter type: a function mapping a tree onto a list of trees -

filter can be used in various ways, as predicates, selectors, transformers, ... -

type TSFilter node = NTrees node -> NTrees nodeSource
a filter for sequences -
satisfies :: (a -> [b]) -> a -> BoolSource

satisfies converts a result of a predicate filter into a boolean -

is a shortcut for not . null -

typical use in guards or ifs: if (satisfies f) t then ... else ... -

  • 1.parameter f : the predicate filter -
  • 2.parameter t : the tree to be tested -
  • returns : b = not (null (f t)) -
Filter -
none :: a -> [b]Source
the null filter, returns the empty list -
this :: a -> [a]Source
the unit filter, returns the single element list containing the argument -
isOf :: (a -> Bool) -> a -> [a]Source

conversion from predicate function to filter -

  • 1.parameter p : the predicate for testing the tree -
  • returns : this or none depending on the predicate -
isOfNode :: (node -> Bool) -> TFilter nodeSource

select filter, selects trees with node values with a specific property -

  • 1.parameter p : the predicate for testing the node value -
  • returns : [] or [t] depending on p t -

a special case of isOf filter -

mkNTree :: NTree node -> TFilter nodeSource

filter for substituting an arbitray tree by a constant -

  • 1.parameter t : the result tree, the input tree is ignored -
  • returns : the filter -
replaceNode :: node -> TFilter nodeSource

filter for replacing the node -

  • 1.parameter n : the new node -
  • returns : the editing filter -
replaceChildren :: NTrees node -> TFilter nodeSource

filter for replacing the children -

  • 1.parameter cs : cs the list of children -
  • returns : the filter -
modifyNode :: (node -> Maybe node) -> TFilter nodeSource
modifyNode0 :: (node -> node) -> TFilter nodeSource

filter for editing the node -

  • 1.parameter nf : the XNode editing funtion -
  • returns : the filter -
modifyChildren :: TSFilter node -> TFilter nodeSource

filter for editing the children -

all children are processed with a filter mapping lists to lists, - this enables not only elementwise editing by lifting a normal - filter to a list filter with (f $$) (see '($$)') but also manipulation - of the order of the elements, e.g. reverse is an appropriate childen - editing function. -

  • 1.parameter csf : the children editing function -
  • returns : the filter -

see also : processChildren -

substChildren :: TFilter node -> TFilter nodeSource
filter for substituting the children of a tree by - a new list of childen computed by applying a filter to the input tree. - modifyChildren can be expressed by substChildren: - modifyChildren f t is equal to substChildren (f . getChildren) -
processChildren :: TFilter node -> TFilter nodeSource

Filter for editing the children of a tree element wise -

  • 1.parameter cf : the filter applied to the children -
  • returns : the editing filter -

see also : modifyChildren -

o :: (a -> [b]) -> (c -> [a]) -> c -> [b]Source

sequential composition of filters, usually written in infix notation f2 o f1. -

for predicate filter the logical AND -

  • 1.parameter f2 : the 2. filter -
  • 2.parameter f1 : the 1. filter -
  • returns : the fiter applying first f1 to n and then f2 to the result (like function composition) -
(.>) :: (a -> [b]) -> (b -> [c]) -> a -> [c]Source

pronounced "followed by", defined as: f .> g = g `o` f. -

allows filter composition in a more readable way from left to right -

  • 1.parameter f1 : the 1. filter -
  • 2.parameter f2 : the 2. filter -
  • returns : the composition of f1 and f2 -

see also : o, '(..>)' -

seqF :: [a -> [a]] -> a -> [a]Source

apply a list of filters sequentially with '(.>)', for predicate filters the generalized AND -

see also : '(.>)' -

(..>) :: (a -> [b]) -> (a -> b -> [d]) -> a -> [d]Source

special sequential composition. -

filter f is applied to an argument t. - then filter g is applied to all elements of the result list, - but the argument t is also passed as extra parameter to g. -

This allows for step by step transformations of a tree - with access to the original tree in every - transformation step. -

see also : '(.>)', o -

(+++) :: (a -> [b]) -> (a -> [b]) -> a -> [b]Source

binary parallel composition, the logical OR for predicate filter -

  • 1.parameter f1 : the 1. filter -
  • 2.parameter f2 : the 2. filter -
  • returns : the filter for applying f1 and f2 both to an argument tree and concatenating the results -
cat :: [a -> [b]] -> a -> [b]Source

apply a list of filters, a "union" for lists, for predicate filters the generalized OR -

  • 1.parameter fs : the list of filters -
  • returns : the composing filter -
orElse :: (a -> [b]) -> (a -> [b]) -> a -> [b]Source

directional choice, usually written in infix notation as f orElse g -

  • 1.parameter f : the 1. filter -
  • 2.parameter g : the 2. filter -
  • 3.parameter t : the tree -
  • returns : the filter, that applies f to t, if the result is not the empty list, the result is found, else g t is the result -
iff :: (a -> [c]) -> (a -> [b]) -> (a -> [b]) -> a -> [b]Source

if then else lifted to filters -

  • 1.parameter p : the predicate filter -
  • 2.parameter t : the "then" filter -
  • 3.parameter e : the "else" filter -
  • returns : the resulting conditional filter -
choice :: [IfThen (a -> [c]) (a -> [b])] -> a -> [b]Source

multiway branch. The list of cases f :-> g is processed sequentially, - in the first case for that f holds g is applied, if no case matches, none is - applied. - This filter can be used like a case expression: choice [ p1 :-> f1, p2 :-> f2, ... , this :-> defaultFilter] -

see also : iff, choiceM -

data IfThen a b Source
auxiliary datatype for cases within choice filter -
Constructors
a :-> b
when :: (a -> [a]) -> (a -> [a]) -> a -> [a]Source

when the predicate p holds, f is applied, else the identity filter this -

  • 1.parameter f : the conditinally applied filter -
  • 2.parameter p : the predicate -
  • returns : the conditional filter -

see also : iff, whenNot, guards, whenM -

whenNot :: (a -> [a]) -> (a -> [a]) -> a -> [a]Source

the complementary filter of when -

shortcut for f when neg g -

see also : iff, when, whenNotM, neg -

guards :: (a -> [b]) -> (a -> [b]) -> a -> [b]Source

when the predicate p holds, f is applied, else the null filter none -

  • 1.parameter p : the predicate filter -
  • 2.parameter f : the conditionally applied filter -
  • returns : the conditional filter -

see also : iff, when, guardsM -

neg :: (a -> [c]) -> a -> [a]Source

negation lifted to filters -

  • 1.parameter f : the predicate filter -
  • returns : the filter, that succeeds, when f failed -
containing :: (a -> [b]) -> (b -> [c]) -> a -> [b]Source

pruning: keep only those results from f for which g holds, usually written in infix notation as f containing g -

  • 1.parameter f : the processing filter -
  • 2.parameter g : the predicate filter -
  • 3.parameter t : the tree -
  • returns : all trees r from f t, for which g r holds (is not the empty list) -

see also : notContaining -

notContaining :: (a -> [b]) -> (b -> [c]) -> a -> [b]Source

pruning: keep only those results from f for which g does not hold -

see also : containing -

(/>) :: TFilter node -> TFilter node -> TFilter nodeSource
pronounced "slash", meaning g inside f -
(</) :: TFilter node -> TFilter node -> TFilter nodeSource
pronounced "outside" meaning f containing g -
deep :: TFilter node -> TFilter nodeSource

top down search. -

search terminates, when filter f succeeds - can e.g. be used for finding all outermost tag node of a specific kind -

deepest :: TFilter node -> TFilter nodeSource

bottom up search. -

first the children are processed, - if this does not succeed, the node itself is processed - can e.g. be used for finding all innermost tag nodes of a specific kind -

multi :: TFilter node -> TFilter nodeSource

process all nodes of the whole tree. -

can e.g. be used for finding all nodes of a specific kind -

processBottomUp :: TFilter node -> TFilter nodeSource

bottom up transformation -

  • 1.parameter f : the simple transforming filter -
  • returns : the filter that applies f to all subtrees and the tree itself in a deepth first left to right manner -

see also : processTopDown, processBottomUpIfNot -

processBottomUpIfNot :: TFilter node -> TFilter node -> TFilter nodeSource

guarded bottom up transformation, stops at subtrees for which a predicate p holds -

  • 1.parameter f : the transforming filter -
  • 2.parameter p : the predicate filter for the guard -
  • returns : the filter for processing all (sub-)trees -

see also : processBottomUp -

processTopDown :: TFilter node -> TFilter nodeSource

top down transformation -

  • 1.parameter f : the simple transforming filter -
  • returns : the filter that applies f first to the tree and then recursively to all subtrees of the result -

see also : processBottomUp -

processTopDownUntil :: TFilter node -> TFilter nodeSource

top down transformation until a node to be transformed is found -

  • 1.parameter f : the simple transforming filter -
  • returns : the filter that applies f first to the tree and, if the filter does not succeed, - recursively to all children of the input tree. -

Example: -

processTopDownUntil none

is the identity filter (maybe a bit more inefficient). -

Example: -

processTopDownUntil (add1Attr "border" "2" `containing` isTag "table")

is a filter for adding an attribute border="2" in all top level table tags. - The content of table tags will remain unchanged. -

see also : processTopDown, processBottomUp -

insertChildrenAt :: Int -> TFilter node -> TFilter nodeSource

insertion of trees into the list of children at a given position -

useful for inserting something into the list of children at a given position - the list of children is split with the splitAt function - the nodes are inserted between these two sublists. -

examples: insertChildrenAt 0 ins t inserts all elements computed with ins t in front - of the childen of t, insertChildrenAt 1 ins t behind the first child -

see also: insertChildrenAfter -

insertChildrenAfter :: TFilter node -> TFilter node -> TFilter nodeSource

insertion of trees into the list of children after specific elements -

useful for inserting something into the list of children of a node - the list of children is split with the span function and the filter p as predicate - the nodes are inserted between these two sublists -

examples: insertChildrenAfter none ins t inserts all elements computed with ins t in front - of the childen of t, insertChildrenAfter this ins t appends the elements to the children -

see also: insertChildrenAt -

Monadic Filter -
thisM :: Monad m => a -> m [a]Source

the monadic version of the identity filter this. -

see also : this -

noneM :: Monad m => a -> m [b]Source

the monadic version of the null filter none. -

see also : none -

(.>>) :: Monad m => (a -> m [b]) -> (b -> m [c]) -> a -> m [c]Source

sequential composition of monadic filters, monadic version of ".>". -

  • 1.parameter f1 : the 1. monadic filter -
  • 2.parameter f2 : the 2. monadic filter -
  • returns : the monadic fiter applying first f1 to n and then f2 to the result (like function composition) -

see also : '(.>)' -

seqM :: Monad m => [a -> m [a]] -> a -> m [a]Source
generalized sequential composition of monadic filters -
(+++>>) :: Monad m => (a -> m [b]) -> (a -> m [b]) -> a -> m [b]Source

binary parallel composition, the logical OR for predicate filter -

  • 1.parameter f1 : the 1. filter -
  • 2.parameter f2 : the 2. filter -
  • returns : the filter for applying f1 and f2 both to an argument tree and concatenating the results - see also: cat, +++, catM -
catM :: Monad m => [a -> m [b]] -> a -> m [b]Source

apply a list of monadic filters -

  • 1.parameter fs : the list of filters -
  • returns : the composing filter - see also: cat, +++, +++>> -
ifM :: Monad m => (a -> [b]) -> (a -> m [c]) -> (a -> m [c]) -> a -> m [c]Source

monadic if-then-else. -

  • 1.parameter p : the predicate -
  • 2.parameter thenP : the then part: the monadic filter, that is applied if p holds for the input tree -
  • 3.parameter elseP : the else part -
  • returns : the monadic filter for the conditional -
choiceM :: Monad m => [IfThen (a -> [c]) (a -> m [b])] -> a -> m [b]Source

monadic version of multiway branch. The list of cases f :-> g is processed sequentially, - in the first case for that f holds g is applied, if no case matches, noneM is - applied. - This filter can be used like a case expression: choiceM [ p1 :-> f1, p2 :-> f2, ... , thisM :-> defaultFilter] -

see also : choice, ifM -

whenM :: Monad m => (a -> m [a]) -> (a -> [b]) -> a -> m [a]Source

when the predicate p holds, the monadic filter f is applied, else the identity filter. -

  • 1.parameter f : the conditinally applied monadic filter -
  • 2.parameter p : the simple predicate -
  • returns : the conditional filter -

see also : ifM, when, guardsM, whenNotM -

whenNotM :: Monad m => (a -> m [a]) -> (a -> [b]) -> a -> m [a]Source

the complementary filter of whenM. -

see also : ifM, whenM, whenNot -

guardsM :: Monad m => (a -> [b]) -> (a -> m [c]) -> a -> m [c]Source

when the predicate p holds, the monadic filter f is applied, else the null filter. -

  • 1.parameter p : the simple predicate filter -
  • 2.parameter f : the conditionally applied monadic filter -
  • returns : the conditional filter -

see also : ifM, guards, whenM -

containingM :: Monad m => (a -> m [b]) -> (b -> [c]) -> a -> m [b]Source

pruning: monadic version of containing, usually written in infix notation as f containingM g -

  • 1.parameter f : the monadic processing filter -
  • 2.parameter g : the predicate filter -
  • 3.parameter t : the tree -
  • returns : all trees r from f t, for which g r holds (is not the empty list) -

see also : notContaining -

processChildrenM :: Monad m => (NTree node -> m [NTree node]) -> NTree node -> m [NTree node]Source

Filter for editing the children of a tree with a monadic filter -

  • 1.parameter cf : the monadic filter applied to the children -
  • returns : the monadic editing filter -

see also : processChildren -

processTopDownM :: Monad m => (NTree node -> m [NTree node]) -> NTree node -> m [NTree node]Source
monadic variant of processTopDown -
processBottomUpM :: Monad m => (NTree node -> m [NTree node]) -> NTree node -> m [NTree node]Source
monadic variant of processBottomUp -
liftMf :: Monad m => (a -> [b]) -> a -> m [b]Source

lift a filter to a monadic filter -

  • 1.parameter f : the simple filter -
  • returns : the lifted monadic version -
($$) :: (a -> [b]) -> [a] -> [b]Source

infix operator for applying a filter to a list of trees -

  • 1.parameter f : the filter -
  • 2.parameter ts : the list of trees -
  • returns : the concatenated list of results -
($$<) :: Monad m => (a -> m [b]) -> [a] -> m [b]Source

infix operator for applying a monadic filter to a list of trees, - typically used in do-notation for processing of intermediate results. -

  • 1.parameter f : the monadic filter -
  • 2.parameter ts : the list of trees -
  • returns : the concatenated list of results -

see also : '($$)' -

performAction :: Monad m => (a -> m b) -> a -> m [a]Source

run an arbitray command on a tree t and return the tree, - used for inserting arbitray commands in a filter pipeline -

  • 1.parameter cmd : the command -
  • 2.parameter t : the argument tree -
  • returns : the unchanged tree as a single element list -
Produced by Haddock version 2.3.0
diff --git a/doc/hdoc/Data-Tree-NTree-TypeDefs.html b/doc/hdoc/Data-Tree-NTree-TypeDefs.html --- a/doc/hdoc/Data-Tree-NTree-TypeDefs.html +++ b/doc/hdoc/Data-Tree-NTree-TypeDefs.html @@ -19,7 +19,7 @@ > hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source codeText.XML.HXT.Arrow.DocumentOutput
Portabilityportable
Stabilityexperimental
MaintainerUwe Schmidt (uwe@fh-wedel.de)

state arrows for document output -

version: $Id: DocumentOutput.hs,v 1.7 20061102 09:34:08 hxml Exp $ -

State arrows for document output + hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source codepreventEmptyElements :: ArrowList a => Bool -> a XmlTree XmlTreeremoveComment ::

preventEmptyElements :: ArrowList a => Bool -> a XmlTree XmlTreeSource
hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code

Version : $Id: Namespace.hs,v 1.13 20061112 14:52:59 hxml Exp $ -

namespace specific arrows -

attachNsEnv :: ArrowXml a => a => NsEnv -> a XmlTreeprocessWithNsEnv :: ArrowXml a => ( a => (NsEnv -> a XmlTree XmlTree) -> ) -> NsEnv -> a XmlTreeprocessWithNsEnvWithoutAttrl :: ArrowXml a => ( a => (NsEnv -> a XmlTree XmlTree) -> ) -> NsEnv -> a XmlTreeattachNsEnv :: ArrowXml a => a => NsEnv -> a XmlTreeprocessWithNsEnv :: ArrowXml a => ( a => (NsEnv -> a XmlTree XmlTree) -> ) -> NsEnv -> a XmlTreeprocessWithNsEnvWithoutAttrl :: ArrowXml a => ( a => (NsEnv -> a XmlTree XmlTree) -> ) -> NsEnv -> a XmlTree

Result is the list of errors concerning namespaces. Predicates isWellformedQName, isWellformedQualifiedName, isDeclaredNamespaces +>, isDeclaredNamespace and isWellformedNSDecl are applied to the appropriate elements and attributes. diff --git a/doc/hdoc/Text-XML-HXT-Arrow-ParserInterface.html b/doc/hdoc/Text-XML-HXT-Arrow-ParserInterface.html --- a/doc/hdoc/Text-XML-HXT-Arrow-ParserInterface.html +++ b/doc/hdoc/Text-XML-HXT-Arrow-ParserInterface.html @@ -19,7 +19,7 @@ > hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code

Version : $Id$ -

Pickler functions for converting between user defined data types -and XmlTree data. Usefull for persistent storage and retreival -of arbitray data as XML documents + and XmlTree data. Usefull for persistent storage and retreival + of arbitray data as XML documents

This module is an adaptation of the pickler combinators -developed by Andrew Kennedy -( http://research.microsoft.com/~akenn/fun/picklercombinators.pdf ) + developed by Andrew Kennedy + ( http://research.microsoft.com/~akenn/fun/picklercombinators.pdf )

The difference to Kennedys approach is that the target is not -a list of Chars but a list of XmlTrees. The basic picklers will -convert data into XML text nodes. New are the picklers for -creating elements and attributes. + a list of Chars but a list of XmlTrees. The basic picklers will + convert data into XML text nodes. New are the picklers for + creating elements and attributes.

One extension was neccessary: The unpickling may fail. -Therefore the unpickler has a Maybe result type. -Failure is used to unpickle optional elements -(Maybe data) and lists of arbitray length + Therefore the unpickler has a Maybe result type. + Failure is used to unpickle optional elements + (Maybe data) and lists of arbitray length

There is an example program demonstrating the use -of the picklers for a none trivial data structure. -(see "examples/arrows/pickle" directory) + of the picklers for a none trivial data structure. + (see "examples/arrows/pickle" directory)

getAtt :: String :: QName -> St -> xpElemQN :: QName -> PU a -> PU axpElem :: xpAttrQN :: QName -> PU a -> PU axpAttr :: getAtt :: String :: QName -> St -> Pickler for wrapping/unwrapping data into an XML element

Extra parameter is the element name. THE pickler for constructing +>Extra parameter is the element name given as a QName. THE pickler for constructing nested structures

Example: 

 xpElem "number" $ xpickle
+> xpElemQN (mkName "number") $ xpickle

will map an (42::Int) onto @@ -2565,6 +2594,44 @@ >

xpElem :: StringxpElemQN :: QName -> PU a -> PU aSource
xpElem :: String -> PU a -> PU aSource

convenient Pickler for xpElemQN +

 xpElem n = xpElemQN (mkName n)
+
hxt-8.3.0: A collection of tools for processing XML with Haskell.
pickler

hxt-8.3.0: A collection of tools for processing XML with Haskell. hxt-8.3.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell. s b b
xpAttr :: StringxpAttrQN :: QName -> PU a -> PU aSource
xpAttr :: String -> PU a -> PU aSource

convenient Pickler for xpAttrQN +

 xpAttr n = xpAttrQN (mkName n)
+
hxt-8.2.0: A collection of tools for processing XML with Haskell.Source code

Pickler for storing/retreiving data into/from an attribute value -

The attribute is inserted in the surrounding element constructed by the xpElem pickler +>convenient Pickler for xpAttrQN 

 xpAttr n = xpAttrQN (mkName n)
+

Pickler for wrapping/unwrapping data into an XML element -

Extra parameter is the element name. THE pickler for constructing - nested structures -

Example: -

 xpElem "number" $ xpickle
-

will map an (42::Int) onto +>convenient Pickler for xpElemQN 

 <number>42</number>
+> xpElem n = xpElemQN (mkName n)
hxt-8.2.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.Source code
  • a_strict_input : file input is done strictly using the Data.ByteString input functions. This ensures correct closing of files, especially when working with + the tagsoup parser and not processing the whole input data. Default is off. The ByteString input usually is not faster than the buildin hGetContents + for strings. +
  • a_options_curl : deprecated but for compatibility reasons still supported. More options passed to the curl binding. @@ -432,12 +443,13 @@ >reads a HTML document from standard input, no validation is done when parsing HTML, default encoding is isoLatin1, -parsing is done with tagsoup parser +parsing is done with tagsoup parser, but input is read strictly 

     readDocument [ (a_encoding, isoLatin1)
               , (a_mime_type,    "/etc/mime.types")
-              , (a_tagsoup,    "1")
+              , (a_tagsoup,      "1")
+              , (a_strict_input, "1")
               ] "test.svg"

    		• hxt-8.2.0: A collection of tools for processing XML with Haskell.Source code

    Version : $Id: WriteDocument.hs,v 1.8 20061109 20:27:42 hxml Exp $ -

    Compound arrow for writing XML documents -

    a_output_html : issue XHTML: quote alle XML chars, use HTML entity refs or char refs for none ASCII chars +
  • a_no_empty_elements : do not write the short form <name .../> for empty elements. When a_output_html is set, + the always empty HTML elements are still written in short form, but not the others, as e.g. the script element. + Empty script elements, like <script href="..."/>, are always a problem for firefox and others. + When XML output is generated with this option, all empty elements are written in the long form.
    		• hxt-8.2.0: A collection of tools for processing XML with Haskell.Source codegetXPathTreesInDocWithNsEnv :: ArrowXml a => NsEnv a => Attributes -> String -> a getXPathTreesWithNsEnv :: ArrowXml a => NsEnv a => Attributes -> String -> a XmlTree XmlTree -> NsEnv -> Attributes -> String -> a getXPathTreesInDocWithNsEnv :: ArrowXml a => NsEnv a => Attributes -> String -> a getXPathTreesWithNsEnv :: ArrowXml a => NsEnv a => Attributes -> String -> a XmlTree XmlTree -> NsEnv -> Attributes -> String -> a hxt-8.2.0: A collection of tools for processing XML with Haskell.Source codegetXPathTreesInDocWithNsEnv :: ArrowXml a => NsEnv a => Attributes -> String -> a getXPathTreesWithNsEnv :: ArrowXml a => NsEnv a => Attributes -> String -> a tryGetXPath :: ArrowXml a => NsEnv a => Attributes -> String -> a getXPathTreesWithNsEnvSimple :: ArrowXml a => NsEnv a => Attributes -> String -> a getXP :: :: NsEnv -> StringgetXPathTreesInDocWithNsEnv :: ArrowXml a => NsEnv a => Attributes -> String -> a getXPathTreesWithNsEnv :: ArrowXml a => NsEnv a => Attributes -> String -> a tryGetXPath :: ArrowXml a => NsEnv a => Attributes -> String -> a getXPathTreesWithNsEnvSimple :: ArrowXml a => NsEnv a => Attributes -> String -> a getXP :: :: NsEnv -> String hxt-8.2.0: A collection of tools for processing XML with Haskell.Source code

    Version : $Id: XmlArrow.hs,v 1.34 20061102 16:43:39 hxml Exp $ -

    Basic arrows for processing XML documents

    convenient arrow for element construction with strings instead of qualified names as tagnames, see also convenient arrow for element construction with strings instead of qualified names as element names, see also mkElement hxt-8.2.0: A collection of tools for processing XML with Haskell.Source code
    traceValue :: Int -> (b -> String) -> IOStateArrow s b b
    traceString :: Int -> (String -> -> (b -> String) -> IOStateArrow s String String
    issue a string message as trace +>issue a string message as trace
    traceValue :: Int -> (b -> String) -> IOStateArrow s b bSource

    trace the current value transfered in a sequence of arrows. +

    The value is formated by a string conversion function. This is a substitute for + the old and less general traceString function +

    s b b hxt-8.3.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell. hxt-8.3.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.
    traceString :: Int -> (String -> -> (b -> String) -> IOStateArrow s String StringSource
    issue the string input of an arrow +>an old alias for traceValue
    hxt-8.2.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.Source codemodule Text.XML.HXT.DOM.TypeDefs
    module Text.XML.HXT.DOM.NamespacePredicates
    hxt-8.2.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.Source code - -Text.XML.HXT.DOM.NamespacePredicates
    hxt-8.2.0: A collection of tools for processing XML with Haskell.Source codeContentsIndex
    Text.XML.HXT.DOM.NamespacePredicates
    Description

    basic Namespace and QName predicates and functions -

    $Id: NamespacePredicates.hs,v 1.3 20061112 14:53:00 hxml Exp $ -

    Synopsis
    setNamespace :: NsEnv -> QName -> QName
    xmlnsQN :: QName
    isNCName :: String -> Bool
    isWellformedQualifiedName :: String -> Bool
    isWellformedQName :: QName -> Bool
    isWellformedNSDecl :: QName -> Bool
    isDeclaredNamespace :: QName -> Bool
    Documentation
    setNamespace :: NsEnv -> QName -> QNameSource

    Compute the name prefix and the namespace uri for a qualified name. -

    This function does not test whether the name is a wellformed qualified name. - see Namespaces in XML Rule [6] to [8]. Error checking is done with separate functions, - see isWellformedQName and isWellformedQualifiedName for error checking. -

    xmlnsQN :: QNameSource
    isNCName :: String -> BoolSource
    test for wellformed NCName, rule [4] XML Namespaces -
    isWellformedQualifiedName :: String -> BoolSource
    test for wellformed QName, rule [6] XML Namespaces - predicate is used in filter valdateNamespaces. -
    isWellformedQName :: QName -> BoolSource
    test for wellformed QName values. - A QName is wellformed, if the local part is a NCName, the namePrefix, if not empty, is also a NCName. - predicate is used in filter valdateNamespaces. -
    isWellformedNSDecl :: QName -> BoolSource
    test for a wellformed namespace declaration - all namespace prefixes starting with "xml" are reserved for XML related definitions. - predicate is used in filter valdateNamespaces. -
    isDeclaredNamespace :: QName -> BoolSource
    predicate is used in filter valdateNamespaces. -
    Produced by Haddock version 2.3.0
    diff --git a/doc/hdoc/Text-XML-HXT-DOM-QualifiedName.html b/doc/hdoc/Text-XML-HXT-DOM-QualifiedName.html --- a/doc/hdoc/Text-XML-HXT-DOM-QualifiedName.html +++ b/doc/hdoc/Text-XML-HXT-DOM-QualifiedName.html @@ -19,1142 +19,2220 @@ >     		hxt-8.2.0: A collection of tools for processing XML with Haskell.Source codeContentsIndex
    Text.XML.HXT.DOM.QualifiedName
    Portabilityportable
    Stabilitystable
    MaintainerUwe Schmidt (uwe@fh-wedel.de)
    Description
    The core data types of the HXT DOM. -
    Synopsis
    data QName = QN {
    namePrefix :: String
    localPart :: String
    namespaceUri :: String
    }
    qualifiedName :: QName -> String
    universalName :: QName -> String
    universalUri :: QName -> String
    buildUniversalName :: (String -> String -> String) -> QName -> String
    mkQName :: String -> String -> String -> QName
    mkName :: String -> QName
    mkPrefixLocalPart :: String -> String -> QName
    mkNsName :: String -> String -> QName
    mkSNsName :: String -> QName
    nullQName :: QName
    equalQName :: QName -> QName -> Bool
    equivQName :: QName -> QName -> Bool
    equivUri :: String -> String -> Bool
    equalQNameBy :: (String -> String -> Bool) -> QName -> QName -> Bool
    normalizeNsUri :: String -> String
    Documentation
    data QName Source

    Namespace support for element and attribute names. -

    A qualified name consists of a name prefix, a local name - and a namespace uri. - All modules, which are not namespace aware, use only the localPart component. - When dealing with namespaces, the document tree must be processed by propagateNamespaces - to split names of structure "prefix:localPart" and label the name with the apropriate namespace uri -

    Constructors
    QN
    namePrefix :: Stringthe name prefix part of a qualified name "namePrefix:localPart" -
    localPart :: Stringthe local part of a qualified name "namePrefix:localPart" -
    namespaceUri :: Stringthe associated namespace uri -
    show/hide Instances
    qualifiedName :: QName -> StringSource
    builds the full name "prefix:localPart", if prefix is not null, else the local part is the result -
    universalName :: QName -> StringSource
    builds the "universal" name, that is the namespace uri surrounded with "{" and "}" followed by the local part - (specialisation of buildUniversalName) -
    universalUri :: QName -> StringSource
    builds an "universal" uri, that is the namespace uri followed by the local part. This is usefull for RDF applications, - where the subject, predicate and object often are concatenated from namespace uri and local part - (specialisation of buildUniversalName) -
    buildUniversalName :: (String -> String -> String) -> QName -> StringSource
    builds a string from the namespace uri and the local part. If the namespace uri is empty, the local part is returned, else - namespace uri and local part are combined with the combining function given by the first parameter -
    mkQName :: String -> String -> String -> QNameSource
    constructs a complete qualified name with namePrefix, localPart and namespaceUri. -
    mkName :: String -> QNameSource
    constructs a simple, namespace unaware name, namePrefix and namespaceUri are set to the empty string. -
    mkPrefixLocalPart :: String -> String -> QNameSource

    constructs a simple name, with prefix and localPart but without a namespace uri. -

    see also mkName, mkNsName, mkSNsName -

    mkNsName :: String -> String -> QNameSource

    constructs a simple, namespace aware name, with prefix:localPart as first parameter, namspace uri as second. -

    see also mkName, mkPrefixLocalPart -

    mkSNsName :: String -> QNameSource

    constructs a simple name, with prefix:localPart as 1 parameter, with empty namspace uri, same as 'mkPrefixLocalPart, but with a single parameter -

    see also mkNsName, mkPrefixLocalPart -

    nullQName :: QNameSource
    Empty QName -
    equalQName :: QName -> QName -> BoolSource
    Equality of QNames: Two QNames are equal, if the local parts are equal - and the namespace URIs are equal. - The comparison works with and without namespace propagation. - If namespaces have been propagated, the name is split into prefix and local part - and the namespace uri is set. In this case the prefix is not significant for equality test. - If namespaces have not been propagated, the local part contains the full name, prefix - and namespace URI are empty. The full name (prefix and local part) is used for comparison. -
    equivQName :: QName -> QName -> BoolSource
    Equivalent QNames are defined as follows: The URIs are normalized before comparison. - Comparison is done with equalQNameBy and equivUri -
    equivUri :: String -> String -> BoolSource
    Comparison of normalized namespace URIs using normalizeNsUri -
    equalQNameBy :: (String -> String -> Bool) -> QName -> QName -> BoolSource
    Sometimes a weaker equality relation than equalQName is appropriate, e.g no case significance in names, ... - a name normalization function can be applied to the strings before comparing. Called by equalQName and - equivQName -
    normalizeNsUri :: String -> StringSource
    Normalization of URIs: Normalization is done by conversion into lowercase letters. A trailing "/" is ignored -Source codeContentsIndex
    Text.XML.HXT.DOM.QualifiedName
    Portabilityportable
    Stabilitystable
    MaintainerUwe Schmidt (uwe@fh-wedel.de)
    DescriptionThe core data types of the HXT DOM. +Synopsis
    data QName
    type XName = Atom
    type NsEnv = AssocList XName XName
    mkQName :: String -> String -> String -> QName
    mkName :: String -> QName
    mkNsName :: String -> String -> QName
    mkSNsName :: String -> QName
    mkPrefixLocalPart :: String -> String -> QName
    equivQName :: QName -> QName -> Bool
    equivUri :: String -> String -> Bool
    equalQNameBy :: (String -> String -> Bool) -> QName -> QName -> Bool
    namePrefix :: QName -> String
    localPart :: QName -> String
    namespaceUri :: QName -> String
    newXName :: String -> XName
    nullXName :: XName
    isNullXName :: XName -> Bool
    mkQName' :: XName -> XName -> XName -> QName
    namePrefix' :: QName -> XName
    localPart' :: QName -> XName
    namespaceUri' :: QName -> XName
    setNamePrefix' :: XName -> QName -> QName
    setLocalPart' :: XName -> QName -> QName
    setNamespaceUri' :: XName -> QName -> QName
    qualifiedName :: QName -> String
    universalName :: QName -> String
    universalUri :: QName -> String
    buildUniversalName :: (String -> String -> String) -> QName -> String
    normalizeNsUri :: String -> String
    setNamespace :: NsEnv -> QName -> QName
    isNCName :: String -> Bool
    isWellformedQualifiedName :: String -> Bool
    isWellformedQName :: QName -> Bool
    isWellformedNSDecl :: QName -> Bool
    isWellformedNameSpaceName :: QName -> Bool
    isNameSpaceName :: QName -> Bool
    isDeclaredNamespace :: QName -> Bool
    xmlNamespaceXName :: XName
    xmlXName :: XName
    xmlnsNamespaceXName :: XName
    xmlnsXName :: XName
    xmlnsQN :: QName
    toNsEnv :: AssocList String String -> NsEnv
    Documentation
    data QName Source

    Namespace support for element and attribute names. +

    A qualified name consists of a name prefix, a local name + and a namespace uri. + All modules, which are not namespace aware, use only the localPart component. + When dealing with namespaces, the document tree must be processed by propagateNamespaces + to split names of structure "prefix:localPart" and label the name with the apropriate namespace uri +

    show/hide Instances
    type XName = AtomSource
    XML names are represented by Strings, but these strings do not mix up with normal strings. + Names are always reduced to normal form, and they are stored internally in a name cache + for sharing equal names by the same data structure +
    type NsEnv = AssocList XName XNameSource
    Type for the namespace association list, used when propagating namespaces by + modifying the     QName values in a tree +
    mkQName :: String -> String -> String -> QNameSource
    constructs a complete qualified name with namePrefix, localPart and namespaceUri. + This function can be used to build not wellformed prefix:localpart names. + The XPath module uses wildcard names like xxx:*. These must be build with mkQName + and not with mkName. +
    mkName :: String -> QNameSource
    constructs a simple, namespace unaware name. + If the name is in prefix:localpart form and the prefix is not empty + the name is split internally into + a prefix and a local part. +
    mkNsName :: String -> String -> QNameSource

    constructs a simple, namespace aware name, with prefix:localPart as first parameter, + namspace uri as second. +

    see also mkName, mkPrefixLocalPart +

    mkSNsName :: String -> QNameSource
    old name for mkName +
    mkPrefixLocalPart :: String -> String -> QNameSource

    constructs a simple name, with prefix and localPart but without a namespace uri. +

    see also mkQName, mkName +

    equivQName :: QName -> QName -> BoolSource
    Equivalent QNames are defined as follows: The URIs are normalized before comparison. + Comparison is done with equalQNameBy and equivUri +
    equivUri :: String -> String -> BoolSource
    Comparison of normalized namespace URIs using normalizeNsUri +
    equalQNameBy :: (String -> String -> Bool) -> QName -> QName -> BoolSource
    Sometimes a weaker equality relation than equalQName is appropriate, e.g no case significance in names, ... + a name normalization function can be applied to the strings before comparing. Called by equalQName and + equivQName +
    namePrefix :: QName -> StringSource
    localPart :: QName -> StringSource
    namespaceUri :: QName -> StringSource
    newXName :: String -> XNameSource
    nullXName :: XNameSource
    isNullXName :: XName -> BoolSource
    mkQName' :: XName -> XName -> XName -> QNameSource
    namePrefix' :: QName -> XNameSource
    access name prefix +
    localPart' :: QName -> XNameSource
    access local part +
    namespaceUri' :: QName -> XNameSource
    access namespace uri +
    setNamePrefix' :: XName -> QName -> QNameSource
    set name prefix +
    setLocalPart' :: XName -> QName -> QNameSource
    set local part +
    setNamespaceUri' :: XName -> QName -> QNameSource
    set name prefix +
    qualifiedName :: QName -> StringSource
    builds the full name "prefix:localPart", if prefix is not null, else the local part is the result +
    universalName :: QName -> StringSource
    builds the "universal" name, that is the namespace uri surrounded with "{" and "}" followed by the local part + (specialisation of buildUniversalName) +
    universalUri :: QName -> StringSource
    builds an "universal" uri, that is the namespace uri followed by the local part. This is usefull for RDF applications, + where the subject, predicate and object often are concatenated from namespace uri and local part + (specialisation of buildUniversalName) +
    buildUniversalName :: (String -> String -> String) -> QName -> StringSource
    builds a string from the namespace uri and the local part. If the namespace uri is empty, the local part is returned, else + namespace uri and local part are combined with the combining function given by the first parameter +
    normalizeNsUri :: String -> StringSource
    Normalization of URIs: Normalization is done by conversion into lowercase letters. A trailing "/" is ignored +
    setNamespace :: NsEnv -> QName -> QNameSource

    Compute the name prefix and the namespace uri for a qualified name. +

    This function does not test whether the name is a wellformed qualified name. + see Namespaces in XML Rule [6] to [8]. Error checking is done with separate functions, + see isWellformedQName and isWellformedQualifiedName for error checking. +

    isNCName :: String -> BoolSource
    test for wellformed NCName, rule [4] XML Namespaces +
    isWellformedQualifiedName :: String -> BoolSource
    test for wellformed QName, rule [6] XML Namespaces + predicate is used in filter valdateNamespaces. +
    isWellformedQName :: QName -> BoolSource
    test for wellformed QName values. + A QName is wellformed, if the local part is a NCName, the namePrefix, if not empty, is also a NCName. + predicate is used in filter valdateNamespaces. +
    isWellformedNSDecl :: QName -> BoolSource
    test whether an attribute name is a namesapce declaration name. + If this is not the case True is the result, else + the name must be a well formed namespace name: + All namespace prefixes starting with "xml" are reserved for XML related definitions. + predicate is used in filter valdateNamespaces. +
    isWellformedNameSpaceName :: QName -> BoolSource
    test for a namespace name to be well formed +
    isNameSpaceName :: QName -> BoolSource
    test whether a name is a namespace declaration attribute name +
    isDeclaredNamespace :: QName -> BoolSource
    predicate is used in filter valdateNamespaces. +
    xmlNamespaceXName :: XNameSource
    xmlXName :: XNameSource
    xmlnsNamespaceXName :: XNameSource
    xmlnsXName :: XNameSource
    xmlnsQN :: QNameSource
    toNsEnv :: AssocList String String -> NsEnvSource
    hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source codetype NsEnv = AssocList String Stringc_ok :: used for storing option lists and features of DTD parts

    type NsEnv = AssocList String StringSource
    Type for the namespace association list, used when propagating namespaces by - modifying the     QName values in a tree - hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code

    Version : $Id$ -

    Unicode and UTF-8 Conversion Functions -

    hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code - -Text.XML.HXT.DOM.XmlTreeTypes
    hxt-8.2.0: A collection of tools for processing XML with Haskell.Source codeContentsIndex
    Text.XML.HXT.DOM.XmlTreeTypes
    Description

    exports the core data types - and some additional types and functions - for compatibility with none arrow modules -

    Version : $Id: XmlTreeTypes.hs,v 1.6 20060509 15:30:43 hxml Exp $ -

    Synopsis
    module Data.Tree.NTree.Filter
    module Text.XML.HXT.DOM.TypeDefs
    mkNode :: node -> NTrees node -> NTree node
    formatNTree :: (node -> String) -> NTree node -> String
    foldNTree :: (a -> [b] -> b) -> NTree a -> b
    mapNTree :: (a -> b) -> NTree a -> NTree b
    nTreeToList :: NTree a -> [a]
    depthNTree :: NTree a -> Int
    cardNTree :: NTree a -> Int
    type XmlFilter = TFilter XNode
    type XmlSFilter = TSFilter XNode
    type TagName = QName
    type AttrName = QName
    tName :: QName -> String
    aName :: QName -> String
    Documentation
    module Data.Tree.NTree.Filter
    module Text.XML.HXT.DOM.TypeDefs
    mkNode :: node -> NTrees node -> NTree nodeSource
    formatNTree :: (node -> String) -> NTree node -> StringSource
    foldNTree :: (a -> [b] -> b) -> NTree a -> bSource
    mapNTree :: (a -> b) -> NTree a -> NTree bSource
    nTreeToList :: NTree a -> [a]Source
    depthNTree :: NTree a -> IntSource
    cardNTree :: NTree a -> IntSource
    type XmlFilter = TFilter XNodeSource
    A functions that takes a node and returns a list of nodes -
    type XmlSFilter = TSFilter XNodeSource
    A function that takes a list of nodes and returns a list of nodes -
    type TagName = QNameSource
    Tag name -
    type AttrName = QNameSource
    Attribute name -
    tName :: QName -> StringSource
    shortcut for qualifiedName -
    aName :: QName -> StringSource
    shortcut for qualifiedName -
    Produced by Haddock version 2.3.0
    diff --git a/doc/hdoc/Text-XML-HXT-DTDValidation-AttributeValueValidation.html b/doc/hdoc/Text-XML-HXT-DTDValidation-AttributeValueValidation.html --- a/doc/hdoc/Text-XML-HXT-DTDValidation-AttributeValueValidation.html +++ b/doc/hdoc/Text-XML-HXT-DTDValidation-AttributeValueValidation.html @@ -19,7 +19,7 @@ > hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source codeText.XML.HXT.IO.GetFILE
    Portabilityportable
    Stabilitystable
    MaintainerUwe Schmidt (uwe@fh-wedel.de)
    DescriptionThe GET method for file protocol +getStdinCont :: :: Bool -> IO (EithergetCont :: :: Bool -> String -> IO hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.Source codeString(<&&>) :: (Char -> Bool) -> (Char -> Bool) -> Char -> Bool(<||>) :: (Char -> Bool) -> (Char -> Bool) -> Char -> BoolSource
    (<&&>) :: (Char -> Bool) -> (Char -> Bool) -> Char -> BoolSource
    hxt-8.3.0: A collection of tools for processing XML with Haskell. hxt-8.3.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.
    (<||>) :: (Char -> Bool) -> (Char -> Bool) -> Char -> BoolSource
    hxt-8.2.0: A collection of tools for processing XML with Haskell.Source code
     splitRE "a*b" "abc" = Just ("ab","c")
- splitRE "a*"  "bc"  = Just ("", "bc)
+ splitRE "a*"  "bc"  = Just ("", "bc")
+ splitRE "a+"  "bc"  = Nothing
  splitRE "["   "abc" = Nothing
    		hxt-8.2.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.Source codegetXPathWithNsEnv :: NsEnv :: Attributes -> String -> getXPathSubTreesWithNsEnv :: NsEnv :: Attributes -> String -> getXPathNodeSetWithNsEnv :: NsEnv :: Attributes -> String -> getXPathWithNsEnv :: NsEnv :: Attributes -> String -> getXPathSubTreesWithNsEnv :: NsEnv :: Attributes -> String -> getXPathNodeSetWithNsEnv :: NsEnv :: Attributes -> String -> hxt-8.2.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.Source code

    Version : $Id: XPathParser.hs,v 1.6 20061012 11:51:29 hxml Exp $ -

    the XPath Parser -

    hxt-8.2.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.Source code

    Version : $Id: Common.hs,v 1.5 20070502 06:41:05 hxml Exp $ -

    Common imports and functions for HXSLT -

    hxt-8.2.0: A collection of tools for processing XML with Haskell.Source code

    Version : $Id: Compilation.hs,v 1.7 20070502 06:41:05 hxml Exp $ -

    The compilation functions for XSLT stylesheets -

    hxt-8.2.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.Source code hxt-8.2.0: A collection of tools for processing XML with Haskell.Source codehxt-8.2.0: A collection of tools for processing XML with Haskell. (Index)
    hxt-8.2.0: A collection of tools for processing XML with Haskell.ContentsIndex
    Search:
    hxt-8.3.0: A collection of tools for processing XML with Haskell. (Index)
    $$
    1 (Function)Data.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    2 (Function)Text.XML.HXT.DTDValidation.TypeDefs
    $$<Data.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    $<Control.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    $<$Control.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    $<<Control.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    $<<<Control.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    $<<<<Control.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    &&&Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    &&&&Text.XML.HXT.Arrow.XPathSimple
    ***Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    +++
    1 (Function)Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    2 (Function)Data.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    +++>>Data.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    +=Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    ..>Data.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    .>Data.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    .>>Data.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    />
    1 (Function)Data.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    2 (Function)Control.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    :->
    1 (Data Constructor)Data.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    2 (Data Constructor)Control.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    <+>Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    <+>>Text.XML.HXT.Arrow.XPathSimple
    </
    1 (Function)Data.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    2 (Function)Control.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    <<<Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    <<^Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    >.Control.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    >>.Control.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    >>>Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    >>>>Text.XML.HXT.Arrow.XPathSimple
    >>^Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    AbsText.XML.HXT.XPath.XPathDataTypes
    accessStateControl.Arrow.ArrowState, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    addAliasText.XML.HXT.XSLT.CompiledStylesheet
    addAttText.XML.HXT.Arrow.Pickle.Xml
    addAttr
    1 (Function)Text.XML.HXT.DOM.XmlNode
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    addAttrlText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    addContText.XML.HXT.Arrow.Pickle.Xml
    addDoctypeDeclText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    addEntriesData.AssocList, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    addEntryData.AssocList, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    addHeadlineToXmlDocText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    addXHtmlDoctypeFramesetText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    addXHtmlDoctypeStrictText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    addXHtmlDoctypeTransitionalText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    addXmlPiText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    addXmlPiEncodingText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    aelemText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    AfterText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    afterText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    aliasUriMappingText.XML.HXT.XSLT.CompiledStylesheet
    allButText.XML.HXT.Parser.XmlTokenParser
    allBut1Text.XML.HXT.Parser.XmlTokenParser
    AllowedDatatypesText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    AllowedParamsText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    AltText.XML.HXT.Arrow.Pickle.Schema
    aNameText.XML.HXT.DOM.XmlTreeTypes
    AncestorText.XML.HXT.XPath.XPathDataTypes
    ancestorAxisText.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    AncestorOrSelfText.XML.HXT.XPath.XPathDataTypes
    ancestorOrSelfAxisText.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    AndText.XML.HXT.XPath.XPathDataTypes
    AnyText.XML.HXT.Arrow.Pickle.Schema
    AnyNameText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    AnyNameExceptText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    appText.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    application_xhtmlText.XML.HXT.DOM.MimeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    application_xmlText.XML.HXT.DOM.MimeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    application_xml_dtdText.XML.HXT.DOM.MimeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    application_xml_external_parsed_entityText.XML.HXT.DOM.MimeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    applyAControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    applyStylesheetText.XML.HXT.XSLT.Application
    applyStylesheetWParamsText.XML.HXT.XSLT.Application
    appPickleText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    appUnPickleText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    arrText.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    arr2Control.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    arr2AControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    arr2LControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    arr3Control.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    arr4Control.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    arrIOControl.Arrow.ArrowIO, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    arrIO0Control.Arrow.ArrowIO, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    arrIO2Control.Arrow.ArrowIO, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    arrIO3Control.Arrow.ArrowIO, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    arrIO4Control.Arrow.ArrowIO, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    arrLControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    ArrowText.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    ArrowApplyText.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    ArrowChoiceText.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    ArrowDTDText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    ArrowIfControl.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    ArrowIOControl.Arrow.ArrowIO, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    ArrowIOIfControl.Arrow.ArrowIO, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    ArrowListControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    ArrowLoopText.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    ArrowMonad
    1 (Data Constructor)Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    2 (Type/Class)Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    ArrowNFControl.Arrow.ArrowNF, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    ArrowPlusText.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    ArrowStateControl.Arrow.ArrowState, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    ArrowTreeControl.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    ArrowXmlText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    ArrowZeroText.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    asciiLetterText.XML.HXT.Parser.XmlTokenParser
    assembleStylesheetText.XML.HXT.XSLT.Compilation
    assertText.XML.HXT.RelaxNG.DataTypeLibUtils
    assertMaybeText.XML.HXT.RelaxNG.DataTypeLibUtils
    AssocListData.AssocList, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    AtomData.Atom
    attachNsEnvText.XML.HXT.Arrow.Namespace, Text.XML.HXT.Arrow
    ATTLISTText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    attlistDeclText.XML.HXT.Parser.XmlDTDParser
    attrText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    attrDecText.XML.HXT.Arrow.Pickle.DTD
    attrEscapeXmlText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    AttribSetText.XML.HXT.XSLT.CompiledStylesheet
    Attribute
    1 (Data Constructor)Text.XML.HXT.XPath.XPathDataTypes
    2 (Data Constructor)Text.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    3 (Data Constructor)Text.XML.HXT.Arrow.Pickle.Schema
    attributeAxisText.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    AttributesText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    attributesText.XML.HXT.Arrow.Pickle.Xml
    AttributeSetText.XML.HXT.XSLT.CompiledStylesheet
    AttrNameText.XML.HXT.DOM.XmlTreeTypes
    attrNodesText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    attrValue
    1 (Function)Text.XML.HXT.Parser.XmlTokenParser
    2 (Function)Text.XML.HXT.Parser.XmlDTDTokenParser
    attrValueTText.XML.HXT.Parser.XmlTokenParser
    attrValueT'Text.XML.HXT.Parser.XmlTokenParser
    AxisSpecText.XML.HXT.XPath.XPathDataTypes
    a_addDTDText.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    a_ancestorText.XML.HXT.XPath.XPathKeywords
    a_ancestor_or_selfText.XML.HXT.XPath.XPathKeywords
    a_attributeText.XML.HXT.XPath.XPathKeywords
    a_canonicalizeText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_check_namespacesText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_check_restrictionsText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_childText.XML.HXT.XPath.XPathKeywords
    a_collect_errorsText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_columnText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_contentLengthText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_defaultText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_default_baseuriText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_descendantText.XML.HXT.XPath.XPathKeywords
    a_descendant_or_selfText.XML.HXT.XPath.XPathKeywords
    a_do_not_canonicalizeText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_do_not_check_namespacesText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_do_not_check_restrictionsText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_do_not_collect_errorsText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_do_not_issue_errorsText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_do_not_issue_warningsText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_do_not_preserve_commentText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_do_not_remove_whitespaceText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_do_not_use_curlText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_do_not_validateText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_do_not_validate_externalRefText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_do_not_validate_includeText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_encodingText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_errorText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_error_logText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_followingText.XML.HXT.XPath.XPathKeywords
    a_following_siblingText.XML.HXT.XPath.XPathKeywords
    a_helpText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_ignore_encoding_errorsText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_ignore_none_xml_contentsText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_indentText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_issue_errorsText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_issue_warningsText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_kindText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_lineText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_mime_typesText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_modifierText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_moduleText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_nameText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_namespaceText.XML.HXT.XPath.XPathKeywords
    a_no_xml_piText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_numberOfErrorsText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    a_options_curlText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_output_changesText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_output_encodingText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_output_fileText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_output_htmlText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_output_xmlText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_parentText.XML.HXT.XPath.XPathKeywords
    a_parse_by_mimetypeText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_parse_htmlText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_parse_xmlText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_perefText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_precedingText.XML.HXT.XPath.XPathKeywords
    a_preceding_siblingText.XML.HXT.XPath.XPathKeywords
    a_preserve_commentText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_propagate_errorsText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_proxyText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_relaxSimplificationChangesText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    a_relax_schemaText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_remove_whitespaceText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_selfText.XML.HXT.XPath.XPathKeywords
    a_show_haskellText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_show_treeText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_sourceText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_standaloneText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_statusText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_tagsoupText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_traceText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_typeText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_urlText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_use_curlText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_validateText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_validate_externalRefText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_validate_includeText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_valueText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_verboseText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_versionText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_xmlText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_xmlnsText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    barText.XML.HXT.Parser.XmlTokenParser
    buildUniversalNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    canonicalizeAllNodesText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    canonicalizeContentsText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    canonicalizeForXPathText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    cardNTreeText.XML.HXT.DOM.XmlTreeTypes
    cardTreeData.Tree.Class, Data.Tree.NTree.TypeDefs, Data.Tree.NTree.Filter, Data.NavTree, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    catData.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    catAControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    catMData.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    cDSectText.XML.HXT.Parser.XmlParsec
    changeAttrl
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    changeAttrName
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    changeAttrValueText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    changeBaseURIText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    changeChildren
    1 (Function)Data.Tree.Class, Data.Tree.NTree.TypeDefs, Data.Tree.NTree.Filter, Data.NavTree, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    2 (Function)Control.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    changeCmt
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    changeDTDAttrlText.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    changeElemName
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    changeNameText.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    changeNode
    1 (Function)Data.Tree.Class, Data.Tree.NTree.TypeDefs, Data.Tree.NTree.Filter, Data.NavTree, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    2 (Function)Control.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    changePiName
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    changeQNameText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    changeStateControl.Arrow.ArrowState, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    changeSysParamText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    changeText
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    changeUserStateText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    CharDataText.XML.HXT.Arrow.Pickle.Schema
    charDataText.XML.HXT.Parser.XmlParsec
    charData'Text.XML.HXT.Parser.XmlParsec
    charRef
    1 (Function)Text.XML.HXT.Parser.XmlTokenParser
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    charRefTText.XML.HXT.Parser.XmlTokenParser
    charRngsText.XML.HXT.RelaxNG.XmlSchema.Regex
    charsText.XML.HXT.RelaxNG.XmlSchema.Regex
    charToHexStringText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    CheckAText.XML.HXT.RelaxNG.DataTypeLibUtils
    checkAMText.XML.HXT.Arrow.Pickle.DTD
    checkAMCText.XML.HXT.Arrow.Pickle.DTD
    checkAttributeValueText.XML.HXT.DTDValidation.AttributeValueValidation
    checkAttrModellText.XML.HXT.Arrow.Pickle.DTD
    checkContentModellText.XML.HXT.Arrow.Pickle.DTD
    checkErrText.XML.HXT.Arrow.Pickle.DTD
    CheckIntegerText.XML.HXT.RelaxNG.DataTypeLibUtils
    checkPicklerText.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    checkREText.XML.HXT.DTDValidation.RE, Text.XML.HXT.DTDValidation.XmlRE
    checkRngNameText.XML.HXT.RelaxNG.BasicArrows
    CheckStringText.XML.HXT.RelaxNG.DataTypeLibUtils
    checkWithText.XML.HXT.RelaxNG.DataTypeLibUtils
    ChildText.XML.HXT.XPath.XPathDataTypes
    childAxisText.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    ChildNodesText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    childNodesText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    ChoiceText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    choice
    1 (Function)Data.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    2 (Function)Text.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    choiceAControl.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    choiceMData.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    cleanupNamespacesText.XML.HXT.Arrow.Namespace, Text.XML.HXT.Arrow
    clearErrStatusText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    closesHtmlTagText.XML.HXT.Parser.HtmlParsec
    cmtText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    codeBlocksText.XML.HXT.RelaxNG.Unicode.Blocks
    collapseAllXTextText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    collapseXTextText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    collectNamespaceDeclText.XML.HXT.Arrow.Namespace, Text.XML.HXT.Arrow
    collectPrefixUriPairsText.XML.HXT.Arrow.Namespace, Text.XML.HXT.Arrow
    collectTextnodesText.XML.HXT.XSLT.Common
    commaText.XML.HXT.Parser.XmlTokenParser
    commentText.XML.HXT.Parser.XmlParsec
    compareURIText.XML.HXT.RelaxNG.Utils, Text.XML.HXT.RelaxNG.DataTypeLibUtils
    compBoolText.XML.HXT.Arrow.XPathSimple
    compBoolExprText.XML.HXT.Arrow.XPathSimple
    compFPText.XML.HXT.Arrow.XPathSimple
    compGenExprText.XML.HXT.Arrow.XPathSimple
    CompiledStylesheetText.XML.HXT.XSLT.CompiledStylesheet, Text.XML.HXT.XSLT.XsltArrows, Text.XML.HXT.Arrow
    compIntExprText.XML.HXT.Arrow.XPathSimple
    compLPText.XML.HXT.Arrow.XPathSimple
    compNameTText.XML.HXT.Arrow.XPathSimple
    compNTText.XML.HXT.Arrow.XPathSimple
    compNTAText.XML.HXT.Arrow.XPathSimple
    compNTEText.XML.HXT.Arrow.XPathSimple
    compNumberText.XML.HXT.Arrow.XPathSimple
    compNumberExprText.XML.HXT.Arrow.XPathSimple
    compPathText.XML.HXT.Arrow.XPathSimple
    compPredText.XML.HXT.Arrow.XPathSimple
    compPred1Text.XML.HXT.Arrow.XPathSimple
    CompQNameText.XML.HXT.XSLT.CompiledStylesheet
    compRelPathExprText.XML.HXT.Arrow.XPathSimple
    compStringText.XML.HXT.Arrow.XPathSimple
    compStringExprText.XML.HXT.Arrow.XPathSimple
    CompStylesheetText.XML.HXT.XSLT.CompiledStylesheet
    ComputedQNameText.XML.HXT.XSLT.CompiledStylesheet
    computeNTestPriorityText.XML.HXT.XSLT.Common
    computePriorityText.XML.HXT.XSLT.Common
    compXPText.XML.HXT.Arrow.XPathSimple
    compXPathText.XML.HXT.Arrow.XPathSimple
    compXSText.XML.HXT.Arrow.XPathSimple
    concatExprText.XML.HXT.XSLT.Common
    concResText.XML.HXT.Parser.XmlTokenParser
    CONDSECTText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    ConLenText.XML.HXT.XPath.XPathDataTypes
    ConNodeText.XML.HXT.XPath.XPathDataTypes
    ConPosText.XML.HXT.XPath.XPathDataTypes
    constAControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    constLControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    containing
    1 (Function)Data.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    2 (Function)Control.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    containingMData.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    containsText.XML.HXT.RelaxNG.Validation, Text.XML.HXT.RelaxNG.Validator, Text.XML.HXT.RelaxNG
    CONTENTText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    contentText.XML.HXT.Parser.XmlParsec
    contentsText.XML.HXT.Arrow.Pickle.Xml
    ContentTypeText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    contentWithTextDeclText.XML.HXT.Parser.XmlParsec
    Context
    1 (Type/Class)Text.XML.HXT.XPath.XPathDataTypes
    2 (Type/Class)Text.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    contextAttributesText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    contextBaseAttrText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    createDocumentOrderText.XML.HXT.XPath.XPathFct
    createDocumentOrderReverseText.XML.HXT.XPath.XPathFct
    createNameClassText.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    createPatternFromXmlTreeText.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    createSimpleFormText.XML.HXT.RelaxNG.Simplification, Text.XML.HXT.RelaxNG.Validator, Text.XML.HXT.RelaxNG
    CTComplexText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    CTEmptyText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    CTNoneText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    CTSimpleText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    c_errText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    c_fatalText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    c_okText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    c_warnText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    DataText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    DataExceptText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    dataNTData.NavTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    DatatypeText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    DatatypeAllowsText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    datatypeAllowsText.XML.HXT.RelaxNG.DataTypeLibraries
    DatatypeCheckText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    DataTypeDescrText.XML.HXT.Arrow.Pickle.Schema, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    DatatypeEqualText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    datatypeEqualText.XML.HXT.RelaxNG.DataTypeLibraries
    DatatypeLibrariesText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    datatypeLibrariesText.XML.HXT.RelaxNG.DataTypeLibraries
    DatatypeLibraryText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    DatatypeNameText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    deadEndStreetText.XML.HXT.Arrow.XPathSimple
    decimalStringToIntText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    decodeData.Char.UTF8
    decodeDocumentText.XML.HXT.Arrow.DocumentInput, Text.XML.HXT.Arrow
    decodeEmbedErrorsData.Char.UTF8
    decodeOneData.Char.UTF8
    decodeUtf8Text.XML.HXT.DOM.UTF8Decoding
    decodeUtf8EmbedErrorsText.XML.HXT.DOM.UTF8Decoding
    decodeUtf8IgnoreErrorsText.XML.HXT.DOM.UTF8Decoding
    DecodingFctText.XML.HXT.DOM.Unicode
    DecodingFctEmbedErrorsText.XML.HXT.DOM.Unicode
    deep
    1 (Function)Data.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    2 (Function)Control.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    deep'Text.XML.HXT.Arrow.XPathSimple
    deepest
    1 (Function)Data.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    2 (Function)Control.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    defaultMimeTypeTableText.XML.HXT.DOM.MimeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    defineOrigNameText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    delEntriesData.AssocList, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    delEntryData.AssocList, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    delta
    1 (Function)Text.XML.HXT.RelaxNG.XmlSchema.Regex
    2 (Function)Text.XML.HXT.Arrow.XmlRegex
    depthNTreeText.XML.HXT.DOM.XmlTreeTypes
    depthTreeData.Tree.Class, Data.Tree.NTree.TypeDefs, Data.Tree.NTree.Filter, Data.NavTree, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    DescendantText.XML.HXT.XPath.XPathDataTypes
    descendantAxisText.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    DescendantOrSelfText.XML.HXT.XPath.XPathDataTypes
    descendantOrSelfAxisText.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    DivText.XML.HXT.XPath.XPathDataTypes
    DOCTYPEText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    doctypedeclText.XML.HXT.Parser.XmlParsec
    documentText.XML.HXT.Parser.XmlParsec
    document'Text.XML.HXT.Parser.XmlParsec
    documentStatusOkText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    doublesText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    downNTData.NavTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    dqText.XML.HXT.Parser.XmlTokenParser
    dropContText.XML.HXT.Arrow.Pickle.Xml
    dtAllowedTypesText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    dtAllowsFctText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    DTCText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    dtdCharsText.XML.HXT.Parser.XmlDTDTokenParser
    dtdDeclEndText.XML.HXT.Parser.XmlDTDTokenParser
    dtdDeclStartText.XML.HXT.Parser.XmlDTDTokenParser
    dtdDeclTokenizerText.XML.HXT.Parser.XmlDTDTokenParser
    DTDdescr
    1 (Type/Class)Text.XML.HXT.Arrow.Pickle.DTD
    2 (Data Constructor)Text.XML.HXT.Arrow.Pickle.DTD
    dtdDescrText.XML.HXT.Arrow.Pickle.DTD
    dtdDescrToXmlText.XML.HXT.Arrow.Pickle.DTD
    DTDElemText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    DTDescrText.XML.HXT.Arrow.Pickle.Schema
    dtdTokenText.XML.HXT.Parser.XmlDTDTokenParser
    dtd_defaultText.XML.HXT.DTDValidation.TypeDefs
    dtd_kindText.XML.HXT.DTDValidation.TypeDefs
    dtd_modifierText.XML.HXT.DTDValidation.TypeDefs
    dtd_nameText.XML.HXT.DTDValidation.TypeDefs
    dtd_typeText.XML.HXT.DTDValidation.TypeDefs
    dtd_valueText.XML.HXT.DTDValidation.TypeDefs
    dtEqualFctText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    dtLibText.XML.HXT.Arrow.Pickle.Schema
    dtNameText.XML.HXT.Arrow.Pickle.Schema
    dtParamsText.XML.HXT.Arrow.Pickle.Schema
    eelemText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    ELEMENTText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    Element
    1 (Data Constructor)Text.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    2 (Data Constructor)Text.XML.HXT.Arrow.Pickle.Schema
    elementText.XML.HXT.Parser.XmlParsec
    elementDeclText.XML.HXT.Parser.XmlDTDParser
    elementDeclarationsText.XML.HXT.Arrow.Pickle.DTD
    elementDecsText.XML.HXT.Arrow.Pickle.DTD
    elemNameText.XML.HXT.Arrow.Pickle.DTD
    elemNamesText.XML.HXT.Arrow.Pickle.DTD
    ElemRefText.XML.HXT.Arrow.Pickle.Schema
    elemRefsText.XML.HXT.Arrow.Pickle.DTD
    EmptyText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    emptyHtmlTagsText.XML.HXT.Parser.HtmlParsec
    emptyNodeSetText.XML.HXT.XPath.XPathToNodeSet
    emptyStText.XML.HXT.Arrow.Pickle.Xml
    encNameText.XML.HXT.Parser.XmlTokenParser
    encodeData.Char.UTF8
    encodeDocumentText.XML.HXT.Arrow.DocumentOutput, Text.XML.HXT.Arrow
    encodeOneData.Char.UTF8
    encodingDeclText.XML.HXT.Parser.XmlParsec
    ENTITYText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    entityCharTText.XML.HXT.Parser.XmlTokenParser
    entityDeclText.XML.HXT.Parser.XmlDTDParser
    entityRef
    1 (Function)Text.XML.HXT.Parser.XmlTokenParser
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    entityRefTText.XML.HXT.Parser.XmlTokenParser
    entityTokensTText.XML.HXT.Parser.XmlTokenParser
    entityValueText.XML.HXT.Parser.XmlTokenParser
    entityValueTText.XML.HXT.Parser.XmlTokenParser
    Env
    1 (Type/Class)Text.XML.HXT.XPath.XPathDataTypes
    2 (Type/Class)Text.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    EqText.XML.HXT.XPath.XPathDataTypes
    eqText.XML.HXT.Parser.XmlTokenParser
    equalNodeSetText.XML.HXT.Arrow.XPathSimple
    equalQNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    equalQNameByText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    equivQNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    equivUriText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    errText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    ErrLevelText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    ErrMessageText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    ErrMsgText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    ErrorData.Char.UTF8
    errorMsgCollectText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    errorMsgDataLibQNameText.XML.HXT.RelaxNG.DataTypeLibUtils
    errorMsgDataTypeNotAllowedText.XML.HXT.RelaxNG.DataTypeLibUtils
    errorMsgDataTypeNotAllowed0Text.XML.HXT.RelaxNG.DataTypeLibUtils
    errorMsgDataTypeNotAllowed2Text.XML.HXT.RelaxNG.DataTypeLibUtils
    errorMsgEqualText.XML.HXT.RelaxNG.DataTypeLibUtils
    errorMsgIgnoreText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    errorMsgParamText.XML.HXT.RelaxNG.DataTypeLibUtils
    errorMsgStderrText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    errorMsgStderrAndCollectText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    escapeHtmlDocText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    escapeURIText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    escapeXmlDocText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    evalExprText.XML.HXT.XPath.XPathEval, Text.XML.HXT.XPath, Text.XML.HXT.XSLT.Common
    evalFctText.XML.HXT.XPath.XPathFct
    exLocalText.XML.HXT.XSLT.Common
    ExName
    1 (Type/Class)Text.XML.HXT.XSLT.Common
    2 (Data Constructor)Text.XML.HXT.XSLT.Common
    expandNSDeclsText.XML.HXT.XSLT.Common
    expandURIText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    expandURIStringText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    ExprText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    expr2XPathTreeText.XML.HXT.XPath.XPathToString, Text.XML.HXT.XPath
    extensionToMimeTypeText.XML.HXT.DOM.MimeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    exUriText.XML.HXT.XSLT.Common
    failureText.XML.HXT.RelaxNG.DataTypeLibUtils
    fatalText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    FctArgumentsText.XML.HXT.XPath.XPathDataTypes
    FctExprText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    FctNameText.XML.HXT.XPath.XPathDataTypes
    fctTableListText.XML.HXT.RelaxNG.DataTypeLibUtils
    fctTableStringText.XML.HXT.RelaxNG.DataTypeLibUtils
    feedPreservesText.XML.HXT.XSLT.CompiledStylesheet
    feedSpacesText.XML.HXT.XSLT.CompiledStylesheet
    feedStripsText.XML.HXT.XSLT.CompiledStylesheet
    fetchAttributeText.XML.HXT.XSLT.Common
    fetchAttributeWDefaultText.XML.HXT.XSLT.Common
    filterAControl.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    filterErrorMsgText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    FilterExprText.XML.HXT.XPath.XPathDataTypes
    filterTreeText.XML.HXT.XSLT.Common
    filterTreeCtxText.XML.HXT.XSLT.Common
    firstText.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    firstChildText.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    FloatText.XML.HXT.XPath.XPathDataTypes
    foldNTreeText.XML.HXT.DOM.XmlTreeTypes
    foldTreeData.Tree.Class, Data.Tree.NTree.TypeDefs, Data.Tree.NTree.Filter, Data.NavTree, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    FollowingText.XML.HXT.XPath.XPathDataTypes
    followingAxisText.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    FollowingSiblingText.XML.HXT.XPath.XPathDataTypes
    followingSiblingAxisText.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    formatNTreeText.XML.HXT.DOM.XmlTreeTypes
    formatNTreeFData.Tree.NTree.TypeDefs, Data.Tree.NTree.Filter, Data.NavTree, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    formatStringListText.XML.HXT.RelaxNG.Utils, Text.XML.HXT.RelaxNG.DataTypeLibUtils
    formatStringListArrText.XML.HXT.RelaxNG.Utils, Text.XML.HXT.RelaxNG.DataTypeLibUtils
    formatStringListIdText.XML.HXT.RelaxNG.Utils, Text.XML.HXT.RelaxNG.DataTypeLibUtils
    formatStringListPairsText.XML.HXT.RelaxNG.Utils, Text.XML.HXT.RelaxNG.DataTypeLibUtils
    formatStringListPattText.XML.HXT.RelaxNG.Utils, Text.XML.HXT.RelaxNG.DataTypeLibUtils
    formatStringListQuotText.XML.HXT.RelaxNG.Utils, Text.XML.HXT.RelaxNG.DataTypeLibUtils
    formatTreeData.Tree.Class, Data.Tree.NTree.TypeDefs, Data.Tree.NTree.Filter, Data.NavTree, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    formatXmlContentsText.XML.HXT.DOM.FormatXmlTree
    formatXmlTreeText.XML.HXT.DOM.FormatXmlTree, Text.XML.HXT.XSLT.Common
    foundErrText.XML.HXT.Arrow.Pickle.DTD
    fromJustErrText.XML.HXT.XSLT.Common
    fromLAControl.Arrow.ListArrow, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    fromSLAControl.Arrow.StateListArrow, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    FunctionTableText.XML.HXT.RelaxNG.DataTypeLibUtils
    generalOptionsText.XML.HXT.DOM.XmlOptions, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    GenExprText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    getAliasesText.XML.HXT.XSLT.CompiledStylesheet
    getAllParamsText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getAllParamsStringText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getAttText.XML.HXT.Arrow.Pickle.Xml
    getAttributeSetsText.XML.HXT.XSLT.CompiledStylesheet
    getAttrl
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getAttrl'Text.XML.HXT.Arrow.XPathSimple
    getAttrName
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getAttrValueText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getAttrValue0Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getBaseURIText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getCdata
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getCharRef
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getChildren
    1 (Function)Data.Tree.Class, Data.Tree.NTree.TypeDefs, Data.Tree.NTree.Filter, Data.NavTree, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    2 (Function)Control.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    getChildren'Text.XML.HXT.Arrow.XPathSimple
    getChildrenNTData.NavTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    getChildrenPatternText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    getCmt
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getCont
    1 (Function)Text.XML.HXT.IO.GetFILE
    2 (Function)Text.XML.HXT.IO.GetHTTPLibCurl
    3 (Function)Text.XML.HXT.Arrow.Pickle.Xml
    getConvFctText.XML.HXT.XPath.XPathFct
    getDecodingFctText.XML.HXT.DOM.Unicode
    getDecodingFctEmbedErrorsText.XML.HXT.DOM.Unicode
    getDefaultBaseURIText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getDocumentContentsText.XML.HXT.Arrow.ProcessDocument, Text.XML.HXT.Arrow
    getDTDAttributesText.XML.HXT.DTDValidation.TypeDefs
    getDTDAttrl
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getDTDAttrValueText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getDTDPart
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getDTDSubsetText.XML.HXT.DTDValidation.Validation
    getElemAndAttrNodeSetText.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow
    getElemName
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getElemNodeSetText.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow
    getEncodingText.XML.HXT.Arrow.DocumentInput, Text.XML.HXT.Arrow
    getEntityRef
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getErrorLevel
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getErrorMessagesText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getErrorMsg
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getErrorsText.XML.HXT.RelaxNG.Simplification, Text.XML.HXT.RelaxNG.Validator, Text.XML.HXT.RelaxNG
    getErrStatusText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getFragmentFromURIText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getFromNodeSetText.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow
    getKeyTabText.XML.HXT.XPath.XPathFct
    getLocalPart
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getMatchRulesText.XML.HXT.XSLT.CompiledStylesheet
    getName
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getNameClassFromPatternText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    getNamedRulesText.XML.HXT.XSLT.CompiledStylesheet
    getNamePrefix
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getNamespaceDeclText.XML.HXT.Arrow.Namespace, Text.XML.HXT.Arrow
    getNamespaceUri
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getNode
    1 (Function)Data.Tree.Class, Data.Tree.NTree.TypeDefs, Data.Tree.NTree.Filter, Data.NavTree, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    2 (Function)Control.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    getOutputEncodingText.XML.HXT.Arrow.DocumentOutput, Text.XML.HXT.Arrow
    getOutputEncodingFctText.XML.HXT.DOM.Unicode
    getParamText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getParamIntText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getParamStringText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getPathFromURIText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getPatternNameText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    getPiContent
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getPiName
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getPortFromURIText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getQAttrValueText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getQAttrValue0Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getQNameText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getQualifiedNameText.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    getQueryFromURIText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getRegNameFromURIText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getRngAttrAttributeText.XML.HXT.RelaxNG.BasicArrows
    getRngAttrCombineText.XML.HXT.RelaxNG.BasicArrows
    getRngAttrDatatypeLibraryText.XML.HXT.RelaxNG.BasicArrows
    getRngAttrDescrText.XML.HXT.RelaxNG.BasicArrows
    getRngAttrHrefText.XML.HXT.RelaxNG.BasicArrows
    getRngAttrNameText.XML.HXT.RelaxNG.BasicArrows
    getRngAttrNsText.XML.HXT.RelaxNG.BasicArrows
    getRngAttrTypeText.XML.HXT.RelaxNG.BasicArrows
    getRuleImportsText.XML.HXT.XSLT.CompiledStylesheet
    getRuleModeText.XML.HXT.XSLT.CompiledStylesheet
    getRuleNameText.XML.HXT.XSLT.CompiledStylesheet
    getRulePrioText.XML.HXT.XSLT.CompiledStylesheet
    getSchemeFromURIText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getStateControl.Arrow.ArrowState, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    getStdinContText.XML.HXT.IO.GetFILE
    getStripsText.XML.HXT.XSLT.CompiledStylesheet
    getSysParamText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getText
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getTraceLevelText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getUniversalName
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getUniversalUri
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getURIContentsText.XML.HXT.Arrow.DocumentInput, Text.XML.HXT.Arrow
    getUriMapText.XML.HXT.XSLT.Common
    getUserInfoFromURIText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getUserStateText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getVariablesText.XML.HXT.XSLT.CompiledStylesheet
    getVarNameText.XML.HXT.XSLT.CompiledStylesheet
    getVarTabText.XML.HXT.XPath.XPathFct
    getXmlContentsText.XML.HXT.Arrow.DocumentInput, Text.XML.HXT.Arrow
    getXmlEntityContentsText.XML.HXT.Arrow.DocumentInput, Text.XML.HXT.Arrow
    getXPText.XML.HXT.Arrow.XPathSimple
    getXPathText.XML.HXT.XPath.XPathEval, Text.XML.HXT.XPath
    getXPathNodeSet
    1 (Function)Text.XML.HXT.XPath.XPathEval, Text.XML.HXT.XPath
    2 (Function)Text.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow
    getXPathNodeSetWithNsEnvText.XML.HXT.XPath.XPathEval, Text.XML.HXT.XPath
    getXPathSubTreesText.XML.HXT.XPath.XPathEval, Text.XML.HXT.XPath
    getXPathSubTreesWithNsEnvText.XML.HXT.XPath.XPathEval, Text.XML.HXT.XPath
    getXPathTrees
    1 (Function)Text.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow
    2 (Function)Text.XML.HXT.Arrow.XPathSimple
    getXPathTreesInDoc
    1 (Function)Text.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow
    2 (Function)Text.XML.HXT.Arrow.XPathSimple
    getXPathTreesInDocWithNsEnv
    1 (Function)Text.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow
    2 (Function)Text.XML.HXT.Arrow.XPathSimple
    getXPathTreesWithNsEnv
    1 (Function)Text.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow
    2 (Function)Text.XML.HXT.Arrow.XPathSimple
    getXPathTreesWithNsEnvSimpleText.XML.HXT.Arrow.XPathSimple
    getXPathWithNsEnvText.XML.HXT.XPath.XPathEval, Text.XML.HXT.XPath
    GreaterText.XML.HXT.XPath.XPathDataTypes
    GreaterEqText.XML.HXT.XPath.XPathDataTypes
    GroupText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    groupText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    gtText.XML.HXT.Parser.XmlTokenParser
    guards
    1 (Function)Data.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    2 (Function)Control.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    guards'Text.XML.HXT.Arrow.XPathSimple
    guardsMData.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    guardsPControl.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    guessEncodingText.XML.HXT.DOM.Unicode
    hasAttrText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    hasAttributeText.XML.HXT.XSLT.Common
    hasAttrValueText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    hasDTDAttrText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    hasDTDAttrValueText.XML.HXT.DTDValidation.TypeDefs
    hasEntryData.AssocList, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    haskellRepOfXmlDocText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    hasLocalPartText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    hasNameText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    hasNamePrefixText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    hasNamespaceUriText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    hasNameWithText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    hasQAttrText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    hasQAttrValueText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    hasQNameText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    hasRngAttrAttributeText.XML.HXT.RelaxNG.BasicArrows
    hasRngAttrCombineText.XML.HXT.RelaxNG.BasicArrows
    hasRngAttrDatatypeLibraryText.XML.HXT.RelaxNG.BasicArrows
    hasRngAttrHrefText.XML.HXT.RelaxNG.BasicArrows
    hasRngAttrNameText.XML.HXT.RelaxNG.BasicArrows
    hasRngAttrNsText.XML.HXT.RelaxNG.BasicArrows
    hasRngAttrTypeText.XML.HXT.RelaxNG.BasicArrows
    hasRngNameText.XML.HXT.RelaxNG.BasicArrows
    hasTextText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    hasXmlPiText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    hexStringToIntText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    hreadText.XML.HXT.Arrow.ReadDocument, Text.XML.HXT.Arrow
    httpPrefixText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    hxt_versionText.XML.HXT.Version, Text.XML.HXT.Arrow
    ifAControl.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    iffData.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    ifMData.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    ifPControl.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    IfThen
    1 (Type/Class)Data.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    2 (Type/Class)Control.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    indentDocText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    initialStateText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    initialSysStateText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    inputOptionsText.XML.HXT.DOM.XmlOptions, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    insertChildrenAfter
    1 (Function)Data.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    2 (Function)Control.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    insertChildrenAt
    1 (Function)Data.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    2 (Function)Control.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    insertTreeTemplateControl.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    InterleaveText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    interleaveText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    intToCharRefText.XML.HXT.DOM.Unicode
    intToCharRefHexText.XML.HXT.DOM.Unicode
    intToHexStringText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    IOLA
    1 (Type/Class)Control.Arrow.IOListArrow, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    2 (Data Constructor)Control.Arrow.IOListArrow, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    IOSArrowText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    IOSLA
    1 (Type/Class)Control.Arrow.IOStateListArrow, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    2 (Data Constructor)Control.Arrow.IOStateListArrow, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    IOStateArrowText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    isAControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    isAttlistOfElementText.XML.HXT.DTDValidation.TypeDefs
    isAttr
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isAttributeListGroupInterleaveOneOrMoreText.XML.HXT.RelaxNG.BasicArrows
    isAttributeRefText.XML.HXT.RelaxNG.BasicArrows
    isAttributeRefTextListGroupInterleaveOneOrMoreEmptyText.XML.HXT.RelaxNG.BasicArrows
    isAttributeRefTextListInterleaveText.XML.HXT.RelaxNG.BasicArrows
    isAttrTypeText.XML.HXT.XSLT.Common
    isCdata
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isCharRef
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isChoiceGroupInterleaveText.XML.HXT.RelaxNG.BasicArrows
    isChoiceGroupInterleaveOneOrMoreText.XML.HXT.RelaxNG.BasicArrows
    isCmt
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isDeclaredNamespaceText.XML.HXT.DOM.NamespacePredicates, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isDefaultAttrKindText.XML.HXT.DTDValidation.TypeDefs
    isDefineOneOrMoreZeroOrMoreOptionalListMixedText.XML.HXT.RelaxNG.BasicArrows
    isDTD
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isDTDAttlistText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isDTDAttlistNodeText.XML.HXT.DTDValidation.TypeDefs
    isDTDCondSectText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isDTDContentText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isDTDContentNodeText.XML.HXT.DTDValidation.TypeDefs
    isDTDDoctypeText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isDTDDoctypeNodeText.XML.HXT.DTDValidation.TypeDefs
    isDTDElementText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isDTDElementNodeText.XML.HXT.DTDValidation.TypeDefs
    isDTDEntityText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isDTDNameText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isDTDNameNodeText.XML.HXT.DTDValidation.TypeDefs
    isDTDNotationText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isDTDPEntityText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isDTDPERefText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isElem
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isElemNodeText.XML.HXT.DTDValidation.TypeDefs
    isElemTypeText.XML.HXT.XSLT.Common
    isEmptyElementText.XML.HXT.DTDValidation.TypeDefs
    isEmptyHtmlTagText.XML.HXT.Parser.HtmlParsec
    isEntityRef
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isEnumAttrTypeText.XML.HXT.DTDValidation.TypeDefs
    isError
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isExternalRefIncludeText.XML.HXT.RelaxNG.BasicArrows
    isFixedAttrKindText.XML.HXT.DTDValidation.TypeDefs
    isGroupInterleaveText.XML.HXT.RelaxNG.BasicArrows
    isHtmlMimeTypeText.XML.HXT.DOM.MimeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isIdAttrTypeText.XML.HXT.DTDValidation.TypeDefs
    isIdRefAttrTypeText.XML.HXT.DTDValidation.TypeDefs
    isInnerData.Tree.Class, Data.Tree.NTree.TypeDefs, Data.Tree.NTree.Filter, Data.NavTree, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    isInnerHtmlTagOfText.XML.HXT.Parser.HtmlParsec
    isIOAControl.Arrow.ArrowIO, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    isLeafData.Tree.Class, Data.Tree.NTree.TypeDefs, Data.Tree.NTree.Filter, Data.NavTree, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    isMatchExprText.XML.HXT.XSLT.Common
    isMixedContentElementText.XML.HXT.DTDValidation.TypeDefs
    isNameText.XML.HXT.RelaxNG.Utils, Text.XML.HXT.RelaxNG.DataTypeLibUtils
    isNameAnyNameNsNameText.XML.HXT.RelaxNG.BasicArrows
    isNameNsNameText.XML.HXT.RelaxNG.BasicArrows
    isNameNsNameValueText.XML.HXT.RelaxNG.BasicArrows
    isNamespaceDeclAttrText.XML.HXT.Arrow.Namespace, Text.XML.HXT.Arrow
    isNCNameText.XML.HXT.DOM.NamespacePredicates, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isNmtokenText.XML.HXT.RelaxNG.Utils, Text.XML.HXT.RelaxNG.DataTypeLibUtils
    isNotationAttrTypeText.XML.HXT.DTDValidation.TypeDefs
    isNotInNodeListText.XML.HXT.XPath.XPathFct, Text.XML.HXT.XSLT.Common
    isNsAttrText.XML.HXT.XSLT.Common
    isNumberText.XML.HXT.RelaxNG.Utils, Text.XML.HXT.RelaxNG.DataTypeLibUtils
    iso8859_1Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    iso8859_10Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    iso8859_11Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    iso8859_13Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    iso8859_14Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    iso8859_15Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    iso8859_16Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    iso8859_2Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    iso8859_3Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    iso8859_4Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    iso8859_5Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    iso8859_6Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    iso8859_7Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    iso8859_8Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    iso8859_9Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    isOfData.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    isOfNodeData.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    isoLatin1Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    iso_8859_10Text.XML.HXT.DOM.IsoLatinTables
    iso_8859_11Text.XML.HXT.DOM.IsoLatinTables
    iso_8859_13Text.XML.HXT.DOM.IsoLatinTables
    iso_8859_14Text.XML.HXT.DOM.IsoLatinTables
    iso_8859_15Text.XML.HXT.DOM.IsoLatinTables
    iso_8859_16Text.XML.HXT.DOM.IsoLatinTables
    iso_8859_2Text.XML.HXT.DOM.IsoLatinTables
    iso_8859_3Text.XML.HXT.DOM.IsoLatinTables
    iso_8859_4Text.XML.HXT.DOM.IsoLatinTables
    iso_8859_5Text.XML.HXT.DOM.IsoLatinTables
    iso_8859_6Text.XML.HXT.DOM.IsoLatinTables
    iso_8859_7Text.XML.HXT.DOM.IsoLatinTables
    iso_8859_8Text.XML.HXT.DOM.IsoLatinTables
    iso_8859_9Text.XML.HXT.DOM.IsoLatinTables
    isParamText.XML.HXT.XSLT.CompiledStylesheet
    isPi
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isRelaxAfterText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    isRelaxAnyURIText.XML.HXT.RelaxNG.Utils, Text.XML.HXT.RelaxNG.DataTypeLibUtils
    isRelaxAttributeText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    isRelaxChoiceText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    isRelaxDataText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    isRelaxDataExceptText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    isRelaxElementText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    isRelaxEmptyText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    isRelaxGroupText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    isRelaxInterleaveText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    isRelaxListText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    isRelaxNotAllowedText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    isRelaxOneOrMoreText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    isRelaxTextText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    isRelaxValueText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    isRequiredAttrKindText.XML.HXT.DTDValidation.TypeDefs
    isRngAnyNameText.XML.HXT.RelaxNG.BasicArrows
    isRngAttrAttributeText.XML.HXT.RelaxNG.BasicArrows
    isRngAttrCombineText.XML.HXT.RelaxNG.BasicArrows
    isRngAttrDatatypeLibraryText.XML.HXT.RelaxNG.BasicArrows
    isRngAttrHrefText.XML.HXT.RelaxNG.BasicArrows
    isRngAttributeText.XML.HXT.RelaxNG.BasicArrows
    isRngAttrNameText.XML.HXT.RelaxNG.BasicArrows
    isRngAttrNsText.XML.HXT.RelaxNG.BasicArrows
    isRngAttrTypeText.XML.HXT.RelaxNG.BasicArrows
    isRngChoiceText.XML.HXT.RelaxNG.BasicArrows
    isRngCombineText.XML.HXT.RelaxNG.BasicArrows
    isRngDataText.XML.HXT.RelaxNG.BasicArrows
    isRngDefineText.XML.HXT.RelaxNG.BasicArrows
    isRngDivText.XML.HXT.RelaxNG.BasicArrows
    isRngElementText.XML.HXT.RelaxNG.BasicArrows
    isRngEmptyText.XML.HXT.RelaxNG.BasicArrows
    isRngExceptText.XML.HXT.RelaxNG.BasicArrows
    isRngExternalRefText.XML.HXT.RelaxNG.BasicArrows
    isRngGrammarText.XML.HXT.RelaxNG.BasicArrows
    isRngGroupText.XML.HXT.RelaxNG.BasicArrows
    isRngIncludeText.XML.HXT.RelaxNG.BasicArrows
    isRngInterleaveText.XML.HXT.RelaxNG.BasicArrows
    isRngListText.XML.HXT.RelaxNG.BasicArrows
    isRngMixedText.XML.HXT.RelaxNG.BasicArrows
    isRngNameText.XML.HXT.RelaxNG.BasicArrows
    isRngNotAllowedText.XML.HXT.RelaxNG.BasicArrows
    isRngNsNameText.XML.HXT.RelaxNG.BasicArrows
    isRngOneOrMoreText.XML.HXT.RelaxNG.BasicArrows
    isRngOptionalText.XML.HXT.RelaxNG.BasicArrows
    isRngParamText.XML.HXT.RelaxNG.BasicArrows
    isRngParentRefText.XML.HXT.RelaxNG.BasicArrows
    isRngRefText.XML.HXT.RelaxNG.BasicArrows
    isRngRelaxErrorText.XML.HXT.RelaxNG.BasicArrows
    isRngStartText.XML.HXT.RelaxNG.BasicArrows
    isRngTextText.XML.HXT.RelaxNG.BasicArrows
    isRngTypeText.XML.HXT.RelaxNG.BasicArrows
    isRngValueText.XML.HXT.RelaxNG.BasicArrows
    isRngZeroOrMoreText.XML.HXT.RelaxNG.BasicArrows
    isRoot
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isScAttrText.XML.HXT.Arrow.Pickle.Schema
    isScCharDataText.XML.HXT.Arrow.Pickle.Schema
    isScElemText.XML.HXT.Arrow.Pickle.Schema
    isScElemRefText.XML.HXT.Arrow.Pickle.Schema
    isScEnumText.XML.HXT.Arrow.Pickle.Schema
    isScFixedText.XML.HXT.Arrow.Pickle.Schema
    isScListText.XML.HXT.Arrow.Pickle.Schema
    isScOptText.XML.HXT.Arrow.Pickle.Schema
    isScSAREText.XML.HXT.Arrow.Pickle.Schema
    isScXsdText.XML.HXT.Arrow.Pickle.Schema
    issueErrText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    issueFatalText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    issueWarnText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    isText
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isTrueValueText.XML.HXT.DOM.XmlOptions, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isUnicodeCText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeCcText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeCfText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeCoText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeCsText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeLText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeLlText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeLmText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeLoText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeLtText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeLuText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeMText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeMcText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeMeText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeMnText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeNText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeNdText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeNlText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeNoText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodePText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodePcText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodePdText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodePeText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodePfText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodePiText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodePoText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodePsText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeSText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeScText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeSkText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeSmText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeSoText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeZText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeZlText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeZpText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeZsText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnparsedEntityText.XML.HXT.DTDValidation.TypeDefs
    isWellformedNSDeclText.XML.HXT.DOM.NamespacePredicates, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isWellformedQNameText.XML.HXT.DOM.NamespacePredicates, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isWellformedQualifiedNameText.XML.HXT.DOM.NamespacePredicates, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isWhiteSpaceText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isWhitespaceNodeText.XML.HXT.XSLT.Common
    isXml11SpaceCharText.XML.HXT.DOM.Unicode
    isXmlBaseCharText.XML.HXT.DOM.Unicode
    isXmlCharText.XML.HXT.DOM.Unicode
    isXmlCombiningCharText.XML.HXT.DOM.Unicode
    isXmlControlOrPermanentlyUndefinedText.XML.HXT.DOM.Unicode
    isXmlDigitText.XML.HXT.DOM.Unicode
    isXmlExtenderText.XML.HXT.DOM.Unicode
    isXmlIdeographicCharText.XML.HXT.DOM.Unicode
    isXmlLatin1CharText.XML.HXT.DOM.Unicode
    isXmlLetterText.XML.HXT.DOM.Unicode
    isXmlMimeTypeText.XML.HXT.DOM.MimeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isXmlNameCharText.XML.HXT.DOM.Unicode
    isXmlNameStartCharText.XML.HXT.DOM.Unicode
    isXmlNCNameCharText.XML.HXT.DOM.Unicode
    isXmlNCNameStartCharText.XML.HXT.DOM.Unicode
    isXmlPiText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isXmlPubidCharText.XML.HXT.DOM.Unicode
    isXmlSpaceCharText.XML.HXT.DOM.Unicode
    isZeroText.XML.HXT.RelaxNG.XmlSchema.Regex
    KeyTabText.XML.HXT.XPath.XPathDataTypes
    keywordText.XML.HXT.Parser.XmlTokenParser
    keywordsText.XML.HXT.Parser.XmlTokenParser
    Kleisli
    1 (Data Constructor)Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    2 (Type/Class)Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_anyText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_cdataText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_defaultText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_emptyText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_entitiesText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_entityText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_enumerationText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_fixedText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_idText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_idrefText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_idrefsText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_ignoreText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_impliedText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_includeText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_ndataText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_nmtokenText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_nmtokensText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_notationText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_pcdataText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_perefText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_publicText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_requiredText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_systemText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    LA
    1 (Type/Class)Control.Arrow.ListArrow, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    2 (Data Constructor)Control.Arrow.ListArrow, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    lastChildText.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    latin1ToUnicodeText.XML.HXT.DOM.Unicode
    leftText.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    leftAppText.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    leftNTData.NavTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    LessText.XML.HXT.XPath.XPathDataTypes
    LessEqText.XML.HXT.XPath.XPathDataTypes
    liftMfData.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    liftStControl.Arrow.IOStateListArrow, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    ListText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    listAControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    LiteralText.XML.HXT.XPath.XPathDataTypes
    LiteralExprText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    LiteralQNameText.XML.HXT.XSLT.CompiledStylesheet
    LocalName
    1 (Type/Class)Text.XML.HXT.XPath.XPathDataTypes
    2 (Type/Class)Text.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    localPartText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    LocationPathText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    LocPathText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    lookup1Data.AssocList, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    lookupAliasText.XML.HXT.XSLT.CompiledStylesheet
    lookupDefData.AssocList, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    lookupPrefixText.XML.HXT.XSLT.Common
    lookupStripText.XML.HXT.XSLT.CompiledStylesheet
    lookupStrip1Text.XML.HXT.XSLT.CompiledStylesheet
    loopText.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    lparText.XML.HXT.Parser.XmlTokenParser
    ltText.XML.HXT.Parser.XmlTokenParser
    mapNTreeText.XML.HXT.DOM.XmlTreeTypes
    mapTreeCtxText.XML.HXT.XSLT.Common
    markupdeclText.XML.HXT.Parser.XmlParsec
    matchText.XML.HXT.RelaxNG.XmlSchema.RegexMatch, Text.XML.HXT.RelaxNG
    matches
    1 (Function)Text.XML.HXT.DTDValidation.RE
    2 (Function)Text.XML.HXT.DTDValidation.XmlRE
    MatchExpr
    1 (Type/Class)Text.XML.HXT.XSLT.CompiledStylesheet
    2 (Data Constructor)Text.XML.HXT.XSLT.CompiledStylesheet
    matchREText.XML.HXT.RelaxNG.XmlSchema.RegexMatch, Text.XML.HXT.RelaxNG
    matchRegexAText.XML.HXT.Arrow.XmlRegex
    MatchRuleText.XML.HXT.XSLT.CompiledStylesheet
    matchWithREText.XML.HXT.RelaxNG.XmlSchema.Regex
    matchXmlRegexText.XML.HXT.Arrow.XmlRegex
    MatRuleText.XML.HXT.XSLT.CompiledStylesheet
    maybePlusData.NavTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    maybeStarData.NavTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    mergeAControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    mergeAttrlText.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    mergeNotAllowedText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    mimeTypeDefaultsText.XML.HXT.DOM.MimeTypeDefaults
    MimeTypeTableText.XML.HXT.DOM.MimeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    MinusText.XML.HXT.XPath.XPathDataTypes
    miscText.XML.HXT.Parser.XmlParsec
    mkText.XML.HXT.Arrow.XPathSimple
    mkAbsURIText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    mkAlt
    1 (Function)Text.XML.HXT.RelaxNG.XmlSchema.Regex
    2 (Function)Text.XML.HXT.Arrow.XmlRegex
    mkAttr
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkAttrNodeText.XML.HXT.DOM.XmlNode
    mkBoolExprText.XML.HXT.XSLT.Common
    mkCdata
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkCharRef
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkCmt
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkComplText.XML.HXT.RelaxNG.XmlSchema.Regex
    mkDifText.XML.HXT.RelaxNG.XmlSchema.Regex
    mkDot
    1 (Function)Text.XML.HXT.RelaxNG.XmlSchema.Regex
    2 (Function)Text.XML.HXT.Arrow.XmlRegex
    mkDTDDoctypeText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkDTDElem
    1 (Function)Text.XML.HXT.DOM.XmlNode
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkDTDElementText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkDTDEntityText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkDTDNodeText.XML.HXT.DOM.XmlNode
    mkDTDPEntityText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkelemText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkElement
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkElementNodeText.XML.HXT.DOM.XmlNode
    mkEntityRef
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkError
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkExNameText.XML.HXT.XSLT.Common
    mkLeaf
    1 (Function)Data.Tree.Class, Data.Tree.NTree.TypeDefs, Data.Tree.NTree.Filter, Data.NavTree, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    2 (Function)Control.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    mkListText.XML.HXT.Parser.XmlTokenParser
    mkLiteralExprText.XML.HXT.XSLT.Common
    mkNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    mkNodeText.XML.HXT.DOM.XmlTreeTypes
    mkNsNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkNTreeData.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    mkOpt
    1 (Function)Text.XML.HXT.RelaxNG.XmlSchema.Regex
    2 (Function)Text.XML.HXT.Arrow.XmlRegex
    mkPi
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkPrefixLocalPartText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkPrimText.XML.HXT.Arrow.XmlRegex
    mkPrimAText.XML.HXT.Arrow.XmlRegex
    mkqelemText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkQNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    mkRep
    1 (Function)Text.XML.HXT.RelaxNG.XmlSchema.Regex
    2 (Function)Text.XML.HXT.Arrow.XmlRegex
    mkRng
    1 (Function)Text.XML.HXT.RelaxNG.XmlSchema.Regex
    2 (Function)Text.XML.HXT.Arrow.XmlRegex
    mkRngChoiceText.XML.HXT.RelaxNG.BasicArrows
    mkRngDefineText.XML.HXT.RelaxNG.BasicArrows
    mkRngElementText.XML.HXT.RelaxNG.BasicArrows
    mkRngEmptyText.XML.HXT.RelaxNG.BasicArrows
    mkRngGrammarText.XML.HXT.RelaxNG.BasicArrows
    mkRngGroupText.XML.HXT.RelaxNG.BasicArrows
    mkRngInterleaveText.XML.HXT.RelaxNG.BasicArrows
    mkRngNameText.XML.HXT.RelaxNG.BasicArrows
    mkRngNotAllowedText.XML.HXT.RelaxNG.BasicArrows
    mkRngOneOrMoreText.XML.HXT.RelaxNG.BasicArrows
    mkRngRefText.XML.HXT.RelaxNG.BasicArrows
    mkRngRelaxErrorText.XML.HXT.RelaxNG.BasicArrows
    mkRngStartText.XML.HXT.RelaxNG.BasicArrows
    mkRngTextText.XML.HXT.RelaxNG.BasicArrows
    mkRootText.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    mkSeq
    1 (Function)Text.XML.HXT.RelaxNG.XmlSchema.Regex
    2 (Function)Text.XML.HXT.Arrow.XmlRegex
    mkSNsNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkStar
    1 (Function)Text.XML.HXT.RelaxNG.XmlSchema.Regex
    2 (Function)Text.XML.HXT.Arrow.XmlRegex
    mkStringExprText.XML.HXT.XSLT.Common
    mkSymText.XML.HXT.RelaxNG.XmlSchema.Regex
    mkSym1Text.XML.HXT.RelaxNG.XmlSchema.Regex
    mkSymRngText.XML.HXT.RelaxNG.XmlSchema.Regex
    mkText
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkTree
    1 (Function)Data.Tree.Class, Data.Tree.NTree.TypeDefs, Data.Tree.NTree.Filter, Data.NavTree, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    2 (Function)Control.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    mkTrueExprText.XML.HXT.XSLT.Common
    mkUnit
    1 (Function)Text.XML.HXT.RelaxNG.XmlSchema.Regex
    2 (Function)Text.XML.HXT.Arrow.XmlRegex
    MkVarText.XML.HXT.XSLT.CompiledStylesheet
    mkXsltAttribNameText.XML.HXT.XSLT.Names
    mkXsltNameText.XML.HXT.XSLT.Names
    mkZero
    1 (Function)Text.XML.HXT.RelaxNG.XmlSchema.Regex
    2 (Function)Text.XML.HXT.Arrow.XmlRegex
    ModText.XML.HXT.XPath.XPathDataTypes
    modifyChildrenData.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    modifyNodeData.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    modifyNode0Data.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    msgToErrText.XML.HXT.DTDValidation.TypeDefs
    MultText.XML.HXT.XPath.XPathDataTypes
    multi
    1 (Function)Data.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    2 (Function)Control.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    multi'Text.XML.HXT.Arrow.XPathSimple
    mysqlDatatypeLibText.XML.HXT.RelaxNG.DataTypeLibMysql
    mysqlNSText.XML.HXT.RelaxNG.DataTypeLibMysql
    NAMEText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    Name
    1 (Type/Class)Text.XML.HXT.XPath.XPathDataTypes
    2 (Data Constructor)Text.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    3 (Type/Class)Text.XML.HXT.Arrow.Pickle.Schema
    nameText.XML.HXT.Parser.XmlTokenParser
    NameClassText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    NameClassChoiceText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    nameClassToStringText.XML.HXT.RelaxNG.PatternToString, Text.XML.HXT.RelaxNG
    NamedRuleText.XML.HXT.XSLT.CompiledStylesheet
    nameOfAttrText.XML.HXT.DTDValidation.TypeDefs
    nameOfElemText.XML.HXT.DTDValidation.TypeDefs
    NamePairText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    NamePrefixText.XML.HXT.XPath.XPathDataTypes
    namePrefixText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    namesText.XML.HXT.Parser.XmlTokenParser
    NamespaceText.XML.HXT.XPath.XPathDataTypes
    namespaceUriText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    nameTText.XML.HXT.Parser.XmlTokenParser
    NameTestText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    NamRuleText.XML.HXT.XSLT.CompiledStylesheet
    NaNText.XML.HXT.XPath.XPathDataTypes
    NavTreeData.NavTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    NavXmlTreeText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    NavXmlTreesText.XML.HXT.XPath.XPathDataTypes
    NCErrorText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    ncNameText.XML.HXT.Parser.XmlTokenParser
    neg
    1 (Function)Data.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    2 (Function)Control.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    Neg0Text.XML.HXT.XPath.XPathDataTypes
    NegInfText.XML.HXT.XPath.XPathDataTypes
    NEqText.XML.HXT.XPath.XPathDataTypes
    newAtomData.Atom
    NewNameText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    nextStateControl.Arrow.ArrowState, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    nmtokenText.XML.HXT.Parser.XmlTokenParser
    nmtokensText.XML.HXT.Parser.XmlTokenParser
    nmtokenTText.XML.HXT.Parser.XmlTokenParser
    NodeSetText.XML.HXT.XPath.XPathDataTypes
    nodesTreeData.Tree.Class, Data.Tree.NTree.TypeDefs, Data.Tree.NTree.Filter, Data.NavTree, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    NodeTestText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    noDoublesText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    none
    1 (Function)Data.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    2 (Function)Control.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    noneMData.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    noOfChildrenText.XML.HXT.RelaxNG.BasicArrows
    normalizeAttributeValueText.XML.HXT.DTDValidation.AttributeValueValidation
    normalizeBlanksText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    normalizeForRelaxValidationText.XML.HXT.RelaxNG.Validation, Text.XML.HXT.RelaxNG.Validator, Text.XML.HXT.RelaxNG
    normalizeNLText.XML.HXT.DOM.Unicode
    normalizeNsUriText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    normalizeNumberText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    normalizeURIText.XML.HXT.RelaxNG.Utils, Text.XML.HXT.RelaxNG.DataTypeLibUtils
    normalizeWhitespaceText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    NotAllowedText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    notAllowedText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    notAllowed1Text.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    notAllowed2Text.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    notAllowedNText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    NOTATIONText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    notationDeclText.XML.HXT.Parser.XmlDTDParser
    notContaining
    1 (Function)Data.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    2 (Function)Control.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    NSAliasingText.XML.HXT.XSLT.CompiledStylesheet
    NsEnvText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    NsNameText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    NsNameExceptText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    NTData.NavTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    nt2XPathTreeText.XML.HXT.XPath.XPathToString, Text.XML.HXT.XPath
    NTestText.XML.HXT.XSLT.CompiledStylesheet
    NTree
    1 (Type/Class)Data.Tree.NTree.TypeDefs, Data.Tree.NTree.Filter, Data.NavTree, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    2 (Data Constructor)Data.Tree.NTree.TypeDefs, Data.Tree.NTree.Filter, Data.NavTree, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    ntreeData.NavTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    NTreesData.Tree.NTree.TypeDefs, Data.Tree.NTree.Filter, Data.NavTree, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    nTreeToListText.XML.HXT.DOM.XmlTreeTypes
    nullable
    1 (Function)Text.XML.HXT.RelaxNG.XmlSchema.Regex
    2 (Function)Text.XML.HXT.DTDValidation.RE
    3 (Function)Text.XML.HXT.Arrow.XmlRegex
    nullQNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    NumberExprText.XML.HXT.XPath.XPathDataTypes
    numberLinesInXmlDocText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    numberValidText.XML.HXT.RelaxNG.DataTypeLibUtils
    numParamValidText.XML.HXT.RelaxNG.DataTypeLibUtils
    n_commentText.XML.HXT.XPath.XPathKeywords
    n_nodeText.XML.HXT.XPath.XPathKeywords
    n_processing_instructionText.XML.HXT.XPath.XPathKeywords
    n_textText.XML.HXT.XPath.XPathKeywords
    oData.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    o'Data.NavTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    okText.XML.HXT.RelaxNG.DataTypeLibUtils
    OldNameText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    OneOrMoreText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    oneOrMoreText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    OpText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    optionIsSetText.XML.HXT.DOM.XmlOptions, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    OrText.XML.HXT.XPath.XPathDataTypes
    orElse
    1 (Function)Data.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    2 (Function)Control.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    outputOptionsText.XML.HXT.DOM.XmlOptions, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    ParamListText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    ParamNameText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    ParentText.XML.HXT.XPath.XPathDataTypes
    parentAxisText.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    parseContentTypeText.XML.HXT.Parser.ProtocolHandlerUtil
    parseExNameText.XML.HXT.XSLT.Common
    parseHtmlContent
    1 (Function)Text.XML.HXT.Parser.HtmlParsec
    2 (Function)Text.XML.HXT.Arrow.ParserInterface
    parseHtmlDocText.XML.HXT.Arrow.ParserInterface
    parseHtmlDocument
    1 (Function)Text.XML.HXT.Parser.HtmlParsec
    2 (Function)Text.XML.HXT.Arrow.ProcessDocument, Text.XML.HXT.Arrow
    parseHtmlTagSoup
    1 (Function)Text.XML.HXT.Parser.TagSoup
    2 (Function)Text.XML.HXT.Arrow.ParserInterface
    parseHtmlTextText.XML.HXT.Parser.HtmlParsec
    parseMimeTypeTableText.XML.HXT.DOM.MimeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    parseNameText.XML.HXT.Parser.XmlParsec
    parseNMTokenText.XML.HXT.Parser.XmlParsec
    parseNTestText.XML.HXT.XSLT.CompiledStylesheet
    parseNumberText.XML.HXT.XPath.XPathParser, Text.XML.HXT.XPath
    parseRegexText.XML.HXT.RelaxNG.XmlSchema.RegexParser
    parseXmlAttrValue
    1 (Function)Text.XML.HXT.Parser.XmlParsec
    2 (Function)Text.XML.HXT.Arrow.ParserInterface
    parseXmlContent
    1 (Function)Text.XML.HXT.Parser.XmlParsec
    2 (Function)Text.XML.HXT.Arrow.ParserInterface
    parseXmlDocText.XML.HXT.Arrow.ParserInterface
    parseXmlDocEncodingSpec
    1 (Function)Text.XML.HXT.Parser.XmlParsec
    2 (Function)Text.XML.HXT.Arrow.ParserInterface
    parseXmlDocument
    1 (Function)Text.XML.HXT.Parser.XmlParsec
    2 (Function)Text.XML.HXT.Arrow.ProcessDocument, Text.XML.HXT.Arrow
    parseXmlDTDdecl
    1 (Function)Text.XML.HXT.Parser.XmlDTDParser
    2 (Function)Text.XML.HXT.Arrow.ParserInterface
    parseXmlDTDdeclPart
    1 (Function)Text.XML.HXT.Parser.XmlDTDParser
    2 (Function)Text.XML.HXT.Arrow.ParserInterface
    parseXmlDTDEntityValue
    1 (Function)Text.XML.HXT.Parser.XmlDTDParser
    2 (Function)Text.XML.HXT.Arrow.ParserInterface
    parseXmlDTDPart
    1 (Function)Text.XML.HXT.Parser.XmlParsec
    2 (Function)Text.XML.HXT.Arrow.ParserInterface
    parseXmlEncodingSpecText.XML.HXT.Parser.XmlParsec
    parseXmlEntityEncodingSpec
    1 (Function)Text.XML.HXT.Parser.XmlParsec
    2 (Function)Text.XML.HXT.Arrow.ParserInterface
    parseXmlGeneralEntityValue
    1 (Function)Text.XML.HXT.Parser.XmlParsec
    2 (Function)Text.XML.HXT.Arrow.ParserInterface
    parseXmlPartText.XML.HXT.Parser.XmlParsec
    parseXmlTextText.XML.HXT.Parser.XmlParsec
    parseXPathText.XML.HXT.XPath.XPathParser, Text.XML.HXT.XPath, Text.XML.HXT.XSLT.Common
    partitionAControl.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    partitionEitherText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    PathText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    PathExprText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    PatternText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    patternToFormatedStringText.XML.HXT.RelaxNG.PatternToString, Text.XML.HXT.RelaxNG
    patternToStringTreeText.XML.HXT.RelaxNG.PatternToString, Text.XML.HXT.RelaxNG
    PENTITYText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    percentText.XML.HXT.Parser.XmlDTDTokenParser
    PEREFText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    peReference
    1 (Function)Text.XML.HXT.Parser.XmlTokenParser
    2 (Function)Text.XML.HXT.Parser.XmlDTDTokenParser
    peReferenceTText.XML.HXT.Parser.XmlTokenParser
    performControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    performActionData.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    performCheckText.XML.HXT.RelaxNG.DataTypeLibUtils
    PIText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    pIText.XML.HXT.Parser.XmlParsec
    pickleDocText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    PlusText.XML.HXT.XPath.XPathDataTypes
    Pos0Text.XML.HXT.XPath.XPathDataTypes
    PosInfText.XML.HXT.XPath.XPathDataTypes
    PrecedingText.XML.HXT.XPath.XPathDataTypes
    precedingAxisText.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    PrecedingSiblingText.XML.HXT.XPath.XPathDataTypes
    precedingSiblingAxisText.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    pred2XPathTreeText.XML.HXT.XPath.XPathToString, Text.XML.HXT.XPath
    PrefixText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    preorderNTData.NavTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    prepareContentsText.XML.HXT.Arrow.WriteDocument, Text.XML.HXT.Arrow
    prepareXSLTDocumentText.XML.HXT.XSLT.Compilation
    printREText.XML.HXT.DTDValidation.RE, Text.XML.HXT.DTDValidation.XmlRE
    processAttrlText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    processBottomUp
    1 (Function)Data.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    2 (Function)Control.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    processBottomUpIfNotData.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    processBottomUpMData.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    processBottomUpWhenNotControl.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    processChildren
    1 (Function)Data.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    2 (Function)Control.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    processChildrenMData.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    processDTDText.XML.HXT.Arrow.DTDProcessing
    processFromNodeSetText.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow
    processGeneralEntitiesText.XML.HXT.Arrow.GeneralEntitySubstitution, Text.XML.HXT.Arrow
    processTopDown
    1 (Function)Data.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    2 (Function)Control.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    processTopDownMData.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    processTopDownUntil
    1 (Function)Data.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    2 (Function)Control.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    processTopDownWithAttrlText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    processWithNsEnvText.XML.HXT.Arrow.Namespace, Text.XML.HXT.Arrow
    processWithNsEnvWithoutAttrlText.XML.HXT.Arrow.Namespace, Text.XML.HXT.Arrow
    processXPathTreesText.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow
    processXPathTreesWithNsEnvText.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow
    prologText.XML.HXT.Parser.XmlParsec
    propagateAndValidateNamespacesText.XML.HXT.Arrow.ProcessDocument, Text.XML.HXT.Arrow
    propagateNamespacesText.XML.HXT.Arrow.Namespace, Text.XML.HXT.Arrow
    PU
    1 (Type/Class)Text.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    2 (Data Constructor)Text.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    pubidLiteralText.XML.HXT.Parser.XmlTokenParser
    putXmlDocumentText.XML.HXT.Arrow.DocumentOutput, Text.XML.HXT.Arrow
    putXmlSourceText.XML.HXT.Arrow.DocumentOutput, Text.XML.HXT.Arrow
    putXmlTreeText.XML.HXT.Arrow.DocumentOutput, Text.XML.HXT.Arrow
    qattrText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    QNText.XML.HXT.DOM.QualifiedName
    QNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    qNameText.XML.HXT.Parser.XmlTokenParser
    qualifiedNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    quotedText.XML.HXT.Parser.XmlTokenParser
    REText.XML.HXT.DTDValidation.RE, Text.XML.HXT.DTDValidation.XmlRE
    readDocumentText.XML.HXT.Arrow.ReadDocument, Text.XML.HXT.Arrow
    readForRelaxText.XML.HXT.RelaxNG.Validation, Text.XML.HXT.RelaxNG.Validator, Text.XML.HXT.RelaxNG
    readFromDocumentText.XML.HXT.Arrow.ReadDocument, Text.XML.HXT.Arrow
    readFromStringText.XML.HXT.Arrow.ReadDocument, Text.XML.HXT.Arrow
    readMimeTypeTableText.XML.HXT.DOM.MimeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    readStringText.XML.HXT.Arrow.ReadDocument, Text.XML.HXT.Arrow
    readWDefaultText.XML.HXT.XSLT.Common
    referenceText.XML.HXT.Parser.XmlTokenParser
    referenceTText.XML.HXT.Parser.XmlTokenParser
    RefListText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    RegexText.XML.HXT.RelaxNG.XmlSchema.Regex
    RelText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    relaxNamespaceText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    relaxOptionsText.XML.HXT.DOM.XmlOptions, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    relaxSchemaArrow
    1 (Function)Text.XML.HXT.RelaxNG.Schema
    2 (Function)Text.XML.HXT.RelaxNG.SchemaGrammar
    relaxSchemaFileText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    relaxSchemaGrammarFileText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    relaxSchemaTree
    1 (Function)Text.XML.HXT.RelaxNG.Schema
    2 (Function)Text.XML.HXT.RelaxNG.SchemaGrammar
    remAttrDecText.XML.HXT.Arrow.Pickle.DTD
    remDupsText.XML.HXT.XPath.XPathFct
    removeAllCommentText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    removeAllWhiteSpaceText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    removeAttrText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    removeCommentText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    removeDocWhiteSpaceText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    removeDoublicateDefs
    1 (Function)Text.XML.HXT.DTDValidation.DTDValidation
    2 (Function)Text.XML.HXT.DTDValidation.Validation
    removeEncodingSpec
    1 (Function)Text.XML.HXT.Parser.XmlParsec
    2 (Function)Text.XML.HXT.Arrow.ParserInterface
    removeOptionsText.XML.HXT.DOM.XmlOptions, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    removeQAttrText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    removeWhiteSpaceText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    RepText.XML.HXT.Arrow.Pickle.Schema
    replaceChildren
    1 (Function)Data.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    2 (Function)Control.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    replaceNodeData.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    returnAText.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    revPreorderNTData.NavTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    RE_ALTText.XML.HXT.DTDValidation.RE
    re_altText.XML.HXT.DTDValidation.RE, Text.XML.HXT.DTDValidation.XmlRE
    RE_DOTText.XML.HXT.DTDValidation.RE
    re_dotText.XML.HXT.DTDValidation.RE, Text.XML.HXT.DTDValidation.XmlRE
    RE_OPTText.XML.HXT.DTDValidation.RE
    re_optText.XML.HXT.DTDValidation.RE, Text.XML.HXT.DTDValidation.XmlRE
    RE_PLUSText.XML.HXT.DTDValidation.RE
    re_plusText.XML.HXT.DTDValidation.RE, Text.XML.HXT.DTDValidation.XmlRE
    RE_REPText.XML.HXT.DTDValidation.RE
    re_repText.XML.HXT.DTDValidation.RE, Text.XML.HXT.DTDValidation.XmlRE
    RE_SEQText.XML.HXT.DTDValidation.RE
    re_seqText.XML.HXT.DTDValidation.RE, Text.XML.HXT.DTDValidation.XmlRE
    RE_SYMText.XML.HXT.DTDValidation.RE
    re_symText.XML.HXT.DTDValidation.RE, Text.XML.HXT.DTDValidation.XmlRE
    RE_UNITText.XML.HXT.DTDValidation.RE
    re_unitText.XML.HXT.DTDValidation.RE, Text.XML.HXT.DTDValidation.XmlRE
    RE_ZEROText.XML.HXT.DTDValidation.RE
    re_zeroText.XML.HXT.DTDValidation.RE, Text.XML.HXT.DTDValidation.XmlRE
    rightText.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    rightNTData.NavTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    rnfAControl.Arrow.ArrowNF, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    rng_lengthText.XML.HXT.RelaxNG.DataTypeLibUtils
    rng_maxExclusiveText.XML.HXT.RelaxNG.DataTypeLibUtils
    rng_maxInclusiveText.XML.HXT.RelaxNG.DataTypeLibUtils
    rng_maxLengthText.XML.HXT.RelaxNG.DataTypeLibUtils
    rng_minExclusiveText.XML.HXT.RelaxNG.DataTypeLibUtils
    rng_minInclusiveText.XML.HXT.RelaxNG.DataTypeLibUtils
    rng_minLengthText.XML.HXT.RelaxNG.DataTypeLibUtils
    rootText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    rparText.XML.HXT.Parser.XmlTokenParser
    runInLocalURIContextText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    runIOLAControl.Arrow.IOListArrow, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    runIOSLAControl.Arrow.IOStateListArrow, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    runKleisliText.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    runLAControl.Arrow.ListArrow, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    runSLAControl.Arrow.StateListArrow, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    runStControl.Arrow.IOStateListArrow, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    runXText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    satisfiesData.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    sattrText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    scAltText.XML.HXT.Arrow.Pickle.Schema
    scAltsText.XML.HXT.Arrow.Pickle.Schema
    scanRegexAText.XML.HXT.Arrow.XmlRegex
    scanXmlRegexText.XML.HXT.Arrow.XmlRegex
    scAttrText.XML.HXT.Arrow.Pickle.Schema
    scAttrToXmlText.XML.HXT.Arrow.Pickle.DTD
    scContText.XML.HXT.Arrow.Pickle.DTD
    scContsText.XML.HXT.Arrow.Pickle.DTD
    scContToXmlText.XML.HXT.Arrow.Pickle.DTD
    scDTText.XML.HXT.Arrow.Pickle.Schema
    scDTxsdText.XML.HXT.Arrow.Pickle.Schema
    scElemText.XML.HXT.Arrow.Pickle.Schema
    scEmptyText.XML.HXT.Arrow.Pickle.Schema
    scEnumText.XML.HXT.Arrow.Pickle.Schema
    scFixedText.XML.HXT.Arrow.Pickle.Schema
    SchemaText.XML.HXT.Arrow.Pickle.Schema, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    SchemasText.XML.HXT.Arrow.Pickle.Schema, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    scListText.XML.HXT.Arrow.Pickle.Schema
    scList1Text.XML.HXT.Arrow.Pickle.Schema
    scNmtokenText.XML.HXT.Arrow.Pickle.Schema
    scNmtokensText.XML.HXT.Arrow.Pickle.Schema
    scNullText.XML.HXT.Arrow.Pickle.Schema
    scOptText.XML.HXT.Arrow.Pickle.Schema
    scOptionText.XML.HXT.Arrow.Pickle.Schema
    scRepText.XML.HXT.Arrow.Pickle.Schema
    scSeqText.XML.HXT.Arrow.Pickle.Schema
    scSeqsText.XML.HXT.Arrow.Pickle.Schema
    scStringText.XML.HXT.Arrow.Pickle.Schema
    scString1Text.XML.HXT.Arrow.Pickle.Schema
    scWrapText.XML.HXT.Arrow.Pickle.DTD
    sc_1Text.XML.HXT.Arrow.Pickle.Schema
    sc_dtText.XML.HXT.Arrow.Pickle.Schema
    sc_lText.XML.HXT.Arrow.Pickle.Schema
    sc_lbText.XML.HXT.Arrow.Pickle.Schema
    sc_nText.XML.HXT.Arrow.Pickle.Schema
    sc_ubText.XML.HXT.Arrow.Pickle.Schema
    sDDeclText.XML.HXT.Parser.XmlParsec
    secondText.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    sedText.XML.HXT.RelaxNG.XmlSchema.RegexMatch, Text.XML.HXT.RelaxNG
    sedREText.XML.HXT.RelaxNG.XmlSchema.RegexMatch, Text.XML.HXT.RelaxNG
    SelectExpr
    1 (Type/Class)Text.XML.HXT.XSLT.CompiledStylesheet
    2 (Data Constructor)Text.XML.HXT.XSLT.CompiledStylesheet
    selectOptionsText.XML.HXT.DOM.XmlOptions, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    selemText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    SelfText.XML.HXT.XPath.XPathDataTypes
    selfAxisText.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    semiText.XML.HXT.Parser.XmlTokenParser
    separatorText.XML.HXT.Parser.XmlTokenParser
    SeqText.XML.HXT.Arrow.Pickle.Schema
    seqAControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    seqFData.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    seqMData.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    setAttributeText.XML.HXT.XSLT.Common
    setAttrlText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    setAttrName
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    setBaseURIText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    setChildren
    1 (Function)Data.Tree.Class, Data.Tree.NTree.TypeDefs, Data.Tree.NTree.Filter, Data.NavTree, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    2 (Function)Control.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    setCmtText.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    setDefaultBaseURIText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    setDocumentStatusText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    setDocumentStatusFromSystemStateText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    setDTDAttrlText.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    setDTDAttrValueText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    setElemAttrlText.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    setElemName
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    setErrMsgStatusText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    setErrorMsgHandlerText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    setErrStatusText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    setMimeTypeTableText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    setMimeTypeTableFromFileText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    setNameText.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    setNamespaceText.XML.HXT.DOM.NamespacePredicates, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    setNode
    1 (Function)Data.Tree.Class, Data.Tree.NTree.TypeDefs, Data.Tree.NTree.Filter, Data.NavTree, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    2 (Function)Control.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    setParamText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    setParamIntText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    setParamListText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    setParamStringText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    setPiName
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    setQNameText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    setRngNameText.XML.HXT.RelaxNG.BasicArrows
    setRngNameDivText.XML.HXT.RelaxNG.BasicArrows
    setRngNameRefText.XML.HXT.RelaxNG.BasicArrows
    setStateControl.Arrow.ArrowState, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    setTextText.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    setTraceLevelText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    setUriMapText.XML.HXT.XSLT.Common
    setUserStateText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    shareData.Atom
    showDatatypeText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    showElemTypeText.XML.HXT.DOM.ShowXml
    showOptionsText.XML.HXT.DOM.XmlOptions, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    showTreesText.XML.HXT.XSLT.Common
    singleControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    singleCharText.XML.HXT.Parser.XmlTokenParser
    singleCharsText.XML.HXT.Parser.XmlTokenParser
    singleCharsTText.XML.HXT.Parser.XmlTokenParser
    singlesText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    skipSText.XML.HXT.Parser.XmlTokenParser
    skipS0Text.XML.HXT.Parser.XmlTokenParser
    SLA
    1 (Type/Class)Control.Arrow.StateListArrow, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    2 (Data Constructor)Control.Arrow.StateListArrow, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    SortKText.XML.HXT.XSLT.CompiledStylesheet
    SortKeyText.XML.HXT.XSLT.CompiledStylesheet
    sPaceText.XML.HXT.Parser.XmlTokenParser
    sPace0Text.XML.HXT.Parser.XmlTokenParser
    spanAControl.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    spiText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    splitText.XML.HXT.RelaxNG.XmlSchema.RegexMatch, Text.XML.HXT.RelaxNG
    splitExprText.XML.HXT.XSLT.Common
    splitMatchByPrioText.XML.HXT.XSLT.Common
    splitREText.XML.HXT.RelaxNG.XmlSchema.RegexMatch, Text.XML.HXT.RelaxNG
    splitRegexAText.XML.HXT.Arrow.XmlRegex
    splitXmlRegexText.XML.HXT.Arrow.XmlRegex
    sqText.XML.HXT.Parser.XmlTokenParser
    sqattrText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    St
    1 (Type/Class)Text.XML.HXT.Arrow.Pickle.Xml
    2 (Data Constructor)Text.XML.HXT.Arrow.Pickle.Xml
    StepText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    strictAControl.Arrow.ArrowNF, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    stringEscapeXmlText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    StringExpr
    1 (Type/Class)Text.XML.HXT.XSLT.CompiledStylesheet
    2 (Data Constructor)Text.XML.HXT.XSLT.CompiledStylesheet
    stringProtocolText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    stringToHexStringText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    stringToIntText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    stringToUpperText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    stringTrimText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    stringValidText.XML.HXT.RelaxNG.DataTypeLibUtils
    stringValidFTText.XML.HXT.RelaxNG.DataTypeLibUtils
    stringValueText.XML.HXT.XPath.XPathFct
    stripDocumentText.XML.HXT.XSLT.CompiledStylesheet
    StripsText.XML.HXT.XSLT.CompiledStylesheet
    stripSpacesText.XML.HXT.XSLT.CompiledStylesheet
    stripStylesheetText.XML.HXT.XSLT.CompiledStylesheet
    substChildrenData.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    substEntityRefsText.XML.HXT.Arrow.ParserInterface
    substHtmlEntityRefsText.XML.HXT.Arrow.ParserInterface
    substXmlEntityRefsText.XML.HXT.Arrow.ParserInterface
    subtreeNTData.NavTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    swapText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    systemLiteralText.XML.HXT.Parser.XmlTokenParser
    tagAControl.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    TagNameText.XML.HXT.DOM.XmlTreeTypes
    TemplApplyText.XML.HXT.XSLT.CompiledStylesheet
    TemplApplyImportsText.XML.HXT.XSLT.CompiledStylesheet
    TemplateText.XML.HXT.XSLT.CompiledStylesheet
    TemplAttributeText.XML.HXT.XSLT.CompiledStylesheet
    TemplCallText.XML.HXT.XSLT.CompiledStylesheet
    TemplChooseText.XML.HXT.XSLT.CompiledStylesheet
    TemplCommentText.XML.HXT.XSLT.CompiledStylesheet
    TemplCompositeText.XML.HXT.XSLT.CompiledStylesheet
    TemplCopyText.XML.HXT.XSLT.CompiledStylesheet
    TemplCopyOfText.XML.HXT.XSLT.CompiledStylesheet
    TemplElementText.XML.HXT.XSLT.CompiledStylesheet
    TemplForEachText.XML.HXT.XSLT.CompiledStylesheet
    TemplMessageText.XML.HXT.XSLT.CompiledStylesheet
    TemplProcInstrText.XML.HXT.XSLT.CompiledStylesheet
    TemplTextText.XML.HXT.XSLT.CompiledStylesheet
    TemplValueOfText.XML.HXT.XSLT.CompiledStylesheet
    TemplVariableText.XML.HXT.XSLT.CompiledStylesheet
    TestExpr
    1 (Type/Class)Text.XML.HXT.XSLT.CompiledStylesheet
    2 (Data Constructor)Text.XML.HXT.XSLT.CompiledStylesheet
    TextText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    textDeclText.XML.HXT.Parser.XmlParsec
    textEscapeXmlText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    text_htmlText.XML.HXT.DOM.MimeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    text_xmlText.XML.HXT.DOM.MimeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    text_xml_external_parsed_entityText.XML.HXT.DOM.MimeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    TFilterData.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    thePicklerDTDText.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    theSchemaText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    this
    1 (Function)Data.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    2 (Function)Control.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    this'Text.XML.HXT.Arrow.XPathSimple
    this''Text.XML.HXT.Arrow.XPathSimple
    thisMData.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    thisNodeText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    tNameText.XML.HXT.DOM.XmlTreeTypes
    tokenizeText.XML.HXT.RelaxNG.XmlSchema.RegexMatch, Text.XML.HXT.RelaxNG
    tokenize'Text.XML.HXT.RelaxNG.XmlSchema.RegexMatch, Text.XML.HXT.RelaxNG
    tokenizeREText.XML.HXT.RelaxNG.XmlSchema.RegexMatch, Text.XML.HXT.RelaxNG
    tokenizeRE'Text.XML.HXT.RelaxNG.XmlSchema.RegexMatch, Text.XML.HXT.RelaxNG
    toMaybeText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    toNumberText.XML.HXT.Arrow.XPathSimple
    toThisText.XML.HXT.Arrow.XPathSimple
    toXPathTreeText.XML.HXT.XPath.XPathToString, Text.XML.HXT.XPath
    toXValueText.XML.HXT.XPath.XPathFct
    traceText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    traceDocText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    traceMsgText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    traceSourceText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    traceStateText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    traceStringText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    traceTreeText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    transfAllCdataText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    transfAllCharRefText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    transfCdataText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    transfCharRefText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    transferDefaultURIText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    transferEncodingText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    transferMessageText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    transferMimeTypeText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    transferPrefixText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    transferProtocolText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    transferStatusText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    transferURIText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    transferVersionText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    transform
    1 (Function)Text.XML.HXT.DTDValidation.DocTransformation
    2 (Function)Text.XML.HXT.DTDValidation.Validation
    transformDocText.XML.HXT.Arrow.ParserInterface
    TreeData.Tree.Class, Data.Tree.NTree.TypeDefs, Data.Tree.NTree.Filter, Data.NavTree, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Control.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    treeRepOfXmlDocText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    tryFetchAttributeText.XML.HXT.XSLT.Common
    tryGetXPathText.XML.HXT.Arrow.XPathSimple
    TSFilterData.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    txtText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    TypeTestText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    t_rootText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    t_xmlText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    ucs2Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    ucs2BigEndianToUnicodeText.XML.HXT.DOM.Unicode
    ucs2LittleEndianToUnicodeText.XML.HXT.DOM.Unicode
    ucs2ToUnicodeText.XML.HXT.DOM.Unicode
    UnaryText.XML.HXT.XPath.XPathDataTypes
    uncurry3Text.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    uncurry4Text.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    UnicodeText.XML.HXT.DOM.Unicode
    unicodeCharToUtf8Text.XML.HXT.DOM.Unicode
    unicodeRemoveNoneAsciiText.XML.HXT.DOM.Unicode
    unicodeRemoveNoneLatin1Text.XML.HXT.DOM.Unicode
    unicodeStringText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    unicodeToLatin1Text.XML.HXT.DOM.Unicode
    unicodeToUtf8Text.XML.HXT.DOM.Unicode
    unicodeToXmlEntityText.XML.HXT.DOM.Unicode
    UnionText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    unionExprText.XML.HXT.XSLT.Common
    uniqueNamespacesText.XML.HXT.Arrow.Namespace, Text.XML.HXT.Arrow
    uniqueNamespacesFromDeclAndQNamesText.XML.HXT.Arrow.Namespace, Text.XML.HXT.Arrow
    universalNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    universalUriText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    unlistAControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    unpickleDocText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    unsetParamText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    unwrapText.XML.HXT.Arrow.XPathSimple
    unzipTreeText.XML.HXT.XSLT.Common
    upNTData.NavTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    UriText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    uriMap2AttrsText.XML.HXT.XSLT.Common
    UriMappingText.XML.HXT.XSLT.Common
    usAsciiText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    UsedAttribSets
    1 (Type/Class)Text.XML.HXT.XSLT.CompiledStylesheet
    2 (Data Constructor)Text.XML.HXT.XSLT.CompiledStylesheet
    UStringText.XML.HXT.DOM.Unicode
    UStringWithErrorsText.XML.HXT.DOM.Unicode
    utf16Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    utf16beText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    utf16beToUnicodeText.XML.HXT.DOM.Unicode
    utf16leText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    utf16leToUnicodeText.XML.HXT.DOM.Unicode
    utf8Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    UTF8CharText.XML.HXT.DOM.Unicode
    UTF8StringText.XML.HXT.DOM.Unicode
    utf8ToUnicodeText.XML.HXT.DOM.Unicode
    utf8ToUnicodeEmbedErrorsText.XML.HXT.DOM.Unicode
    validate
    1 (Function)Text.XML.HXT.DTDValidation.Validation
    2 (Function)Text.XML.HXT.RelaxNG.Validator, Text.XML.HXT.RelaxNG
    validateDoc
    1 (Function)Text.XML.HXT.DTDValidation.DocValidation
    2 (Function)Text.XML.HXT.DTDValidation.Validation
    3 (Function)Text.XML.HXT.Arrow.ParserInterface
    validateDocumentText.XML.HXT.Arrow.ProcessDocument, Text.XML.HXT.Arrow
    validateDocumentWithRelaxText.XML.HXT.RelaxNG.Validator, Text.XML.HXT.RelaxNG
    validateDocumentWithRelaxSchemaText.XML.HXT.RelaxNG.Validator, Text.XML.HXT.RelaxNG
    validateDocWithRelaxText.XML.HXT.RelaxNG.Validation, Text.XML.HXT.RelaxNG.Validator, Text.XML.HXT.RelaxNG
    validateDTD
    1 (Function)Text.XML.HXT.DTDValidation.DTDValidation
    2 (Function)Text.XML.HXT.DTDValidation.Validation
    validateIdsText.XML.HXT.DTDValidation.IdValidation
    validateNamespacesText.XML.HXT.Arrow.Namespace, Text.XML.HXT.Arrow
    validateRelaxText.XML.HXT.RelaxNG.Validation, Text.XML.HXT.RelaxNG.Validator, Text.XML.HXT.RelaxNG
    validateSchemaText.XML.HXT.RelaxNG.Validator, Text.XML.HXT.RelaxNG
    validateSchemaWithSpezificationText.XML.HXT.RelaxNG.Validator, Text.XML.HXT.RelaxNG
    validateWithoutSpezificationText.XML.HXT.RelaxNG.Validator, Text.XML.HXT.RelaxNG
    validateWithRelaxAndHandleErrorsText.XML.HXT.RelaxNG.Validation, Text.XML.HXT.RelaxNG.Validator, Text.XML.HXT.RelaxNG
    validateWithSpezificationText.XML.HXT.RelaxNG.Validator, Text.XML.HXT.RelaxNG
    validateXMLDocText.XML.HXT.RelaxNG.Validation, Text.XML.HXT.RelaxNG.Validator, Text.XML.HXT.RelaxNG
    ValueText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    valueOfText.XML.HXT.DTDValidation.TypeDefs
    valueOfDTDText.XML.HXT.DTDValidation.TypeDefs
    varEnvText.XML.HXT.XPath.XPathDataTypes
    VarExprText.XML.HXT.XPath.XPathDataTypes
    VariableText.XML.HXT.XSLT.CompiledStylesheet
    VarNameText.XML.HXT.XPath.XPathDataTypes
    VarTabText.XML.HXT.XPath.XPathDataTypes
    versionInfoText.XML.HXT.Parser.XmlParsec
    versionNumText.XML.HXT.Parser.XmlTokenParser
    versionOptionsText.XML.HXT.DOM.XmlOptions, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    v_0Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    v_1Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    v_anyText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    v_childrenText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    v_choiceText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    v_emptyText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    v_mixedText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    v_noText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    v_nullText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    v_optionText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    v_pcdataText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    v_plusText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    v_seqText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    v_starText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    v_yesText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    w3cDatatypeLibText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    w3cNSText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    warnText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    WhenText.XML.HXT.XSLT.CompiledStylesheet
    when
    1 (Function)Data.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    2 (Function)Control.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    whenMData.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    whenNot
    1 (Function)Data.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    2 (Function)Control.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    whenNotMData.Tree.NTree.Filter, Text.XML.HXT.DOM.XmlTreeTypes
    whenNotPControl.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    whenPControl.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    WhenPartText.XML.HXT.XSLT.CompiledStylesheet
    withDefaultControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    withExtendedUserStateText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    withOtherUserStateText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    withTraceLevelText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    writeDocumentText.XML.HXT.Arrow.WriteDocument, Text.XML.HXT.Arrow
    writeDocumentToStringText.XML.HXT.Arrow.WriteDocument, Text.XML.HXT.Arrow
    XAttrText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    xbooleanText.XML.HXT.XPath.XPathFct
    XCdataText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    XCharRefText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    XCmtText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    XDTDText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    XEntityRefText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    XErrorText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    XFctText.XML.HXT.XPath.XPathFct
    xhtmlEntitiesText.XML.HXT.Parser.XhtmlEntities
    xIndexText.XML.HXT.Arrow.XPathSimple
    XIOState
    1 (Type/Class)Text.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    2 (Data Constructor)Text.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    XIOSysText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    XIOSysStateText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    xio_attrListText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    xio_baseURIText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    xio_defaultBaseURIText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    xio_errorModuleText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    xio_errorMsgCollectText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    xio_errorMsgHandlerText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    xio_errorMsgListText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    xio_errorStatusText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    xio_mimeTypesText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    xio_sysStateText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    xio_traceText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    xio_userStateText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    XmlArrowText.XML.HXT.DTDValidation.TypeDefs
    XmlArrowSText.XML.HXT.DTDValidation.TypeDefs
    xmlCharText.XML.HXT.Parser.XmlCharParser
    xMLDeclText.XML.HXT.Parser.XmlParsec
    xMLDecl'Text.XML.HXT.Parser.XmlParsec
    xmlEntitiesText.XML.HXT.Parser.XmlEntities
    XmlFilterText.XML.HXT.DOM.XmlTreeTypes
    xmlLetterText.XML.HXT.Parser.XmlCharParser
    xmlNameCharText.XML.HXT.Parser.XmlCharParser
    xmlNamespaceText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    xmlNameStartCharText.XML.HXT.Parser.XmlCharParser
    xmlNCNameCharText.XML.HXT.Parser.XmlCharParser
    xmlNCNameStartCharText.XML.HXT.Parser.XmlCharParser
    XmlNodeText.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    XmlNodeSetText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    xmlnsNamespaceText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    xmlnsQNText.XML.HXT.DOM.NamespacePredicates, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    XmlPicklerText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    XmlRegexText.XML.HXT.Arrow.XmlRegex
    XmlSFilterText.XML.HXT.DOM.XmlTreeTypes
    xmlSpaceText.XML.HXT.XSLT.Names
    xmlSpaceCharText.XML.HXT.Parser.XmlCharParser
    XmlTreeText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    XmlTreesText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    xmlTreeToPatternFormatedStringText.XML.HXT.RelaxNG.PatternToString, Text.XML.HXT.RelaxNG
    xmlTreeToPatternStringText.XML.HXT.RelaxNG.PatternToString, Text.XML.HXT.RelaxNG
    xmlTreeToPatternStringTreeText.XML.HXT.RelaxNG.PatternToString, Text.XML.HXT.RelaxNG
    XNodeText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    XNSText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    xnumberText.XML.HXT.XPath.XPathFct
    xNumber'Text.XML.HXT.Arrow.XPathSimple
    xp4TupleText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xp5TupleText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xp6TupleText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpAddFixedAttrText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpAltText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    XPArrowText.XML.HXT.Arrow.XPathSimple
    xPathAddText.XML.HXT.XPath.XPathArithmetic
    xPathDivText.XML.HXT.XPath.XPathArithmetic
    XPathFilterText.XML.HXT.XPath.XPathDataTypes
    xPathModText.XML.HXT.XPath.XPathArithmetic
    xPathMultiText.XML.HXT.XPath.XPathArithmetic
    XPathNodeText.XML.HXT.XPath.XPathDataTypes
    XPathParamsText.XML.HXT.XSLT.Application
    xPathUnaryText.XML.HXT.XPath.XPathArithmetic
    XPathValueText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    xpAttrText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpAttrFixedText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpAttrImpliedText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpChoiceText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    XPCommentNodeText.XML.HXT.XPath.XPathDataTypes
    xpCondSeqText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpDefaultText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpElemText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpElemWithAttrValueText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    XPiText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    xpickleText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpickleDocumentText.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpickleDTDText.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpickleValText.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpickleWriteDTDText.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpLiftText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpLiftMaybeText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpListText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpList1Text.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpMapText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    XPNodeText.XML.HXT.XPath.XPathDataTypes
    XPNumberText.XML.HXT.XPath.XPathDataTypes
    xpOptionText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpPairText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    XPPINodeText.XML.HXT.XPath.XPathDataTypes
    xpPrimText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpSeqText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpTextText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpText0Text.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpText0DTText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpTextDTText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    XPTextNodeText.XML.HXT.XPath.XPathDataTypes
    xpTreeText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpTreesText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpTripleText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpUnitText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xPValue2NodeSetText.XML.HXT.XPath.XPathToNodeSet
    xPValue2StringText.XML.HXT.XPath.XPathToString, Text.XML.HXT.XPath
    xPValue2XmlTreesText.XML.HXT.XPath.XPathToString, Text.XML.HXT.XPath, Text.XML.HXT.XSLT.Common
    XPVBoolText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    XPVErrorText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    XPVNodeText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    XPVNumberText.XML.HXT.XPath.XPathDataTypes
    XPVStringText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    xpWrapText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpWrapMaybeText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpXmlTextText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpZeroText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xread
    1 (Function)Text.XML.HXT.Parser.XmlParsec
    2 (Function)Text.XML.HXT.Arrow.ReadDocument, Text.XML.HXT.Arrow
    xsdParamText.XML.HXT.Arrow.Pickle.Schema
    xsd_anyURIText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_base64BinaryText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_decimalText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_ENTITIESText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_ENTITYText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_enumerationText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_fractionDigitsText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_hexBinaryText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_IDText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_IDREFText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_IDREFSText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_languageText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_lengthText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_maxExclusiveText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_maxInclusiveText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_maxLengthText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_minExclusiveText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_minInclusiveText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_minLengthText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_NameText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_NCNameText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_NMTOKENText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_NMTOKENSText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_normalizedStringText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_NOTATIONText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_patternText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_QNameText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_stringText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_tokenText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_totalDigitsText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xshow
    1 (Function)Text.XML.HXT.DOM.ShowXml
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    xshowEscapeXmlText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    xsltApplyImportsText.XML.HXT.XSLT.Names
    xsltApplyStylesheetText.XML.HXT.XSLT.XsltArrows, Text.XML.HXT.Arrow
    xsltApplyStylesheetFromURIText.XML.HXT.XSLT.XsltArrows, Text.XML.HXT.Arrow
    xsltApplyTemplatesText.XML.HXT.XSLT.Names
    xsltAttributeText.XML.HXT.XSLT.Names
    xsltAttributeSetText.XML.HXT.XSLT.Names
    xsltCallTemplateText.XML.HXT.XSLT.Names
    xsltChooseText.XML.HXT.XSLT.Names
    xsltCommentText.XML.HXT.XSLT.Names
    xsltCompileStylesheetText.XML.HXT.XSLT.XsltArrows, Text.XML.HXT.Arrow
    xsltCompileStylesheetFromURIText.XML.HXT.XSLT.XsltArrows, Text.XML.HXT.Arrow
    xsltCopyText.XML.HXT.XSLT.Names
    xsltCopyOfText.XML.HXT.XSLT.Names
    xsltDataTypeText.XML.HXT.XSLT.Names
    xsltElementText.XML.HXT.XSLT.Names
    xsltElementsText.XML.HXT.XSLT.Names
    xsltExlcudeResultPrefixesText.XML.HXT.XSLT.Names
    xsltExlcudeResultPrefixesLREText.XML.HXT.XSLT.Names
    xsltExtensionElementPrefixesText.XML.HXT.XSLT.Names
    xsltExtensionElementPrefixesLREText.XML.HXT.XSLT.Names
    xsltForEachText.XML.HXT.XSLT.Names
    xsltHRefText.XML.HXT.XSLT.Names
    xsltIfText.XML.HXT.XSLT.Names
    xsltImportText.XML.HXT.XSLT.Names
    xsltIncludeText.XML.HXT.XSLT.Names
    xsltMatchText.XML.HXT.XSLT.Names
    xsltMessageText.XML.HXT.XSLT.Names
    xsltModeText.XML.HXT.XSLT.Names
    xsltNameText.XML.HXT.XSLT.Names
    xsltNamespaceText.XML.HXT.XSLT.Names
    xsltNamespaceAliasText.XML.HXT.XSLT.Names
    xsltOrderText.XML.HXT.XSLT.Names
    xsltOtherwiseText.XML.HXT.XSLT.Names
    xsltParamText.XML.HXT.XSLT.Names
    xsltPrefixText.XML.HXT.XSLT.Names
    xsltPreserveSpaceText.XML.HXT.XSLT.Names
    xsltPriorityText.XML.HXT.XSLT.Names
    xsltProcInstrText.XML.HXT.XSLT.Names
    xsltResultPrefixText.XML.HXT.XSLT.Names
    xsltSelectText.XML.HXT.XSLT.Names
    xsltSortText.XML.HXT.XSLT.Names
    xsltStripSpaceText.XML.HXT.XSLT.Names
    xsltStylesheetText.XML.HXT.XSLT.Names
    xsltStylesheetPrefixText.XML.HXT.XSLT.Names
    xsltTemplateText.XML.HXT.XSLT.Names
    xsltTerminateText.XML.HXT.XSLT.Names
    xsltTestText.XML.HXT.XSLT.Names
    xsltTextText.XML.HXT.XSLT.Names
    xsltTransformText.XML.HXT.XSLT.Names
    xsltUriText.XML.HXT.XSLT.Names
    xsltUseAttributeSetsText.XML.HXT.XSLT.Names
    xsltUseAttributeSetsLREText.XML.HXT.XSLT.Names
    xsltValueOfText.XML.HXT.XSLT.Names
    xsltVariableText.XML.HXT.XSLT.Names
    xsltVersionText.XML.HXT.XSLT.Names
    xsltVersionLREText.XML.HXT.XSLT.Names
    xsltWhenText.XML.HXT.XSLT.Names
    xsltWithParamText.XML.HXT.XSLT.Names
    XStepText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    xStringText.XML.HXT.Arrow.XPathSimple
    xstringText.XML.HXT.XPath.XPathFct
    XTagText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    XTextText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    hxt-8.3.0: A collection of tools for processing XML with Haskell.ContentsIndex
    Search:
    hxt-8.3.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell.
    $$Text.XML.HXT.DTDValidation.TypeDefs
    $<Control.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    $<$Control.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    $<<Control.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    $<<<Control.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    $<<<<Control.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    &&&Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    &&&&Text.XML.HXT.Arrow.XPathSimple
    ***Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    +++Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    +=Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    />Control.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    :->Control.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    <&&>Text.XML.HXT.RelaxNG.XmlSchema.Regex
    <+>Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    <+>>Text.XML.HXT.Arrow.XPathSimple
    </Control.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    <<<Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    <<^Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    <||>Text.XML.HXT.RelaxNG.XmlSchema.Regex
    >.Control.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    >>.Control.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    >>>Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    >>>>Text.XML.HXT.Arrow.XPathSimple
    >>^Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    AbsText.XML.HXT.XPath.XPathDataTypes
    accessStateControl.Arrow.ArrowState, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    addAliasText.XML.HXT.XSLT.CompiledStylesheet
    addAttText.XML.HXT.Arrow.Pickle.Xml
    addAttr
    1 (Function)Text.XML.HXT.DOM.XmlNode
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    addAttrlText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    addContText.XML.HXT.Arrow.Pickle.Xml
    addDoctypeDeclText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    addEntriesData.AssocList, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    addEntryData.AssocList, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    addHeadlineToXmlDocText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    addXHtmlDoctypeFramesetText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    addXHtmlDoctypeStrictText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    addXHtmlDoctypeTransitionalText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    addXmlPiText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    addXmlPiEncodingText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    aelemText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    AfterText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    afterText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    aliasUriMappingText.XML.HXT.XSLT.CompiledStylesheet
    allButText.XML.HXT.Parser.XmlTokenParser
    allBut1Text.XML.HXT.Parser.XmlTokenParser
    AllowedDatatypesText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    AllowedParamsText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    AltText.XML.HXT.Arrow.Pickle.Schema
    AncestorText.XML.HXT.XPath.XPathDataTypes
    ancestorAxisText.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    AncestorOrSelfText.XML.HXT.XPath.XPathDataTypes
    ancestorOrSelfAxisText.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    AndText.XML.HXT.XPath.XPathDataTypes
    AnyText.XML.HXT.Arrow.Pickle.Schema
    AnyNameText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    AnyNameExceptText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    appText.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    application_xhtmlText.XML.HXT.DOM.MimeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    application_xmlText.XML.HXT.DOM.MimeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    application_xml_dtdText.XML.HXT.DOM.MimeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    application_xml_external_parsed_entityText.XML.HXT.DOM.MimeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    applyAControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    applyStylesheetText.XML.HXT.XSLT.Application
    applyStylesheetWParamsText.XML.HXT.XSLT.Application
    appPickleText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    appUnPickleText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    arrText.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    arr2Control.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    arr2AControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    arr2LControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    arr3Control.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    arr4Control.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    arrIOControl.Arrow.ArrowIO, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    arrIO0Control.Arrow.ArrowIO, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    arrIO2Control.Arrow.ArrowIO, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    arrIO3Control.Arrow.ArrowIO, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    arrIO4Control.Arrow.ArrowIO, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    arrLControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    ArrowText.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    ArrowApplyText.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    ArrowChoiceText.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    ArrowDTDText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    ArrowIfControl.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    ArrowIOControl.Arrow.ArrowIO, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    ArrowIOIfControl.Arrow.ArrowIO, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    ArrowListControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    ArrowLoopText.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    ArrowMonad
    1 (Data Constructor)Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    2 (Type/Class)Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    ArrowNFControl.Arrow.ArrowNF, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    ArrowPlusText.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    ArrowStateControl.Arrow.ArrowState, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    ArrowTreeControl.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    ArrowXmlText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    ArrowZeroText.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    asciiLetterText.XML.HXT.Parser.XmlTokenParser
    assembleStylesheetText.XML.HXT.XSLT.Compilation
    assertText.XML.HXT.RelaxNG.DataTypeLibUtils
    assertMaybeText.XML.HXT.RelaxNG.DataTypeLibUtils
    AssocListData.AssocList, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    AtomData.Atom
    attachNsEnvText.XML.HXT.Arrow.Namespace, Text.XML.HXT.Arrow
    ATTLISTText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    attlistDeclText.XML.HXT.Parser.XmlDTDParser
    attrText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    attrDecText.XML.HXT.Arrow.Pickle.DTD
    attrEscapeXmlText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    AttribSetText.XML.HXT.XSLT.CompiledStylesheet
    Attribute
    1 (Data Constructor)Text.XML.HXT.XPath.XPathDataTypes
    2 (Data Constructor)Text.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    3 (Data Constructor)Text.XML.HXT.Arrow.Pickle.Schema
    attributeAxisText.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    AttributesText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    attributesText.XML.HXT.Arrow.Pickle.Xml
    AttributeSetText.XML.HXT.XSLT.CompiledStylesheet
    attrNodesText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    attrValue
    1 (Function)Text.XML.HXT.Parser.XmlTokenParser
    2 (Function)Text.XML.HXT.Parser.XmlDTDTokenParser
    attrValueTText.XML.HXT.Parser.XmlTokenParser
    attrValueT'Text.XML.HXT.Parser.XmlTokenParser
    AxisSpecText.XML.HXT.XPath.XPathDataTypes
    a_addDTDText.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    a_ancestorText.XML.HXT.XPath.XPathKeywords
    a_ancestor_or_selfText.XML.HXT.XPath.XPathKeywords
    a_attributeText.XML.HXT.XPath.XPathKeywords
    a_canonicalizeText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_check_namespacesText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_check_restrictionsText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_childText.XML.HXT.XPath.XPathKeywords
    a_collect_errorsText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_columnText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_contentLengthText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_defaultText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_default_baseuriText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_descendantText.XML.HXT.XPath.XPathKeywords
    a_descendant_or_selfText.XML.HXT.XPath.XPathKeywords
    a_do_not_canonicalizeText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_do_not_check_namespacesText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_do_not_check_restrictionsText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_do_not_collect_errorsText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_do_not_issue_errorsText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_do_not_issue_warningsText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_do_not_preserve_commentText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_do_not_remove_whitespaceText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_do_not_use_curlText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_do_not_validateText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_do_not_validate_externalRefText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_do_not_validate_includeText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_encodingText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_errorText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_error_logText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_followingText.XML.HXT.XPath.XPathKeywords
    a_following_siblingText.XML.HXT.XPath.XPathKeywords
    a_helpText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_ignore_encoding_errorsText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_ignore_none_xml_contentsText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_indentText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_issue_errorsText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_issue_warningsText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_kindText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_lineText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_mime_typesText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_modifierText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_moduleText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_nameText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_namespaceText.XML.HXT.XPath.XPathKeywords
    a_no_empty_elementsText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_no_xml_piText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_numberOfErrorsText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    a_options_curlText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_output_changesText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_output_encodingText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_output_fileText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_output_htmlText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_output_xmlText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_parentText.XML.HXT.XPath.XPathKeywords
    a_parse_by_mimetypeText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_parse_htmlText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_parse_xmlText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_perefText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_precedingText.XML.HXT.XPath.XPathKeywords
    a_preceding_siblingText.XML.HXT.XPath.XPathKeywords
    a_preserve_commentText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_propagate_errorsText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_proxyText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_relaxSimplificationChangesText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    a_relax_schemaText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_remove_whitespaceText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_selfText.XML.HXT.XPath.XPathKeywords
    a_show_haskellText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_show_treeText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_sourceText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_standaloneText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_statusText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_strict_inputText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_tagsoupText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_traceText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_typeText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_urlText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_use_curlText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_validateText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_validate_externalRefText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_validate_includeText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_valueText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_verboseText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_versionText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_xmlText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    a_xmlnsText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    barText.XML.HXT.Parser.XmlTokenParser
    buildUniversalNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    canonicalizeAllNodesText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    canonicalizeContentsText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    canonicalizeForXPathText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    cardTreeData.Tree.Class, Data.Tree.NTree.TypeDefs, Data.NavTree, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    catAControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    cDSectText.XML.HXT.Parser.XmlParsec
    changeAttrl
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    changeAttrName
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    changeAttrValueText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    changeBaseURIText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    changeChildren
    1 (Function)Data.Tree.Class, Data.Tree.NTree.TypeDefs, Data.NavTree, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    2 (Function)Control.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    changeCmt
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    changeDTDAttrlText.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    changeElemName
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    changeNameText.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    changeNode
    1 (Function)Data.Tree.Class, Data.Tree.NTree.TypeDefs, Data.NavTree, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    2 (Function)Control.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    changePiName
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    changeQNameText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    changeStateControl.Arrow.ArrowState, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    changeSysParamText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    changeText
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    changeUserStateText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    CharDataText.XML.HXT.Arrow.Pickle.Schema
    charDataText.XML.HXT.Parser.XmlParsec
    charData'Text.XML.HXT.Parser.XmlParsec
    charRef
    1 (Function)Text.XML.HXT.Parser.XmlTokenParser
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    charRefTText.XML.HXT.Parser.XmlTokenParser
    charRngsText.XML.HXT.RelaxNG.XmlSchema.Regex
    charsText.XML.HXT.RelaxNG.XmlSchema.Regex
    charToHexStringText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    CheckAText.XML.HXT.RelaxNG.DataTypeLibUtils
    checkAMText.XML.HXT.Arrow.Pickle.DTD
    checkAMCText.XML.HXT.Arrow.Pickle.DTD
    checkAttributeValueText.XML.HXT.DTDValidation.AttributeValueValidation
    checkAttrModellText.XML.HXT.Arrow.Pickle.DTD
    checkContentModellText.XML.HXT.Arrow.Pickle.DTD
    checkErrText.XML.HXT.Arrow.Pickle.DTD
    CheckIntegerText.XML.HXT.RelaxNG.DataTypeLibUtils
    checkPicklerText.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    checkREText.XML.HXT.DTDValidation.RE, Text.XML.HXT.DTDValidation.XmlRE
    checkRngNameText.XML.HXT.RelaxNG.BasicArrows
    CheckStringText.XML.HXT.RelaxNG.DataTypeLibUtils
    checkWithText.XML.HXT.RelaxNG.DataTypeLibUtils
    ChildText.XML.HXT.XPath.XPathDataTypes
    childAxisText.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    ChildNodesText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    childNodesText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    ChoiceText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    choiceText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    choiceAControl.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    cleanupNamespacesText.XML.HXT.Arrow.Namespace, Text.XML.HXT.Arrow
    clearErrStatusText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    closesHtmlTagText.XML.HXT.Parser.HtmlParsec
    cmtText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    codeBlocksText.XML.HXT.RelaxNG.Unicode.Blocks
    collapseAllXTextText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    collapseXTextText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    collectNamespaceDeclText.XML.HXT.Arrow.Namespace, Text.XML.HXT.Arrow
    collectPrefixUriPairsText.XML.HXT.Arrow.Namespace, Text.XML.HXT.Arrow
    collectTextnodesText.XML.HXT.XSLT.Common
    commaText.XML.HXT.Parser.XmlTokenParser
    commentText.XML.HXT.Parser.XmlParsec
    compareURIText.XML.HXT.RelaxNG.Utils, Text.XML.HXT.RelaxNG.DataTypeLibUtils
    compBoolText.XML.HXT.Arrow.XPathSimple
    compBoolExprText.XML.HXT.Arrow.XPathSimple
    compFPText.XML.HXT.Arrow.XPathSimple
    compGenExprText.XML.HXT.Arrow.XPathSimple
    CompiledStylesheetText.XML.HXT.XSLT.CompiledStylesheet, Text.XML.HXT.XSLT.XsltArrows, Text.XML.HXT.Arrow
    compIntExprText.XML.HXT.Arrow.XPathSimple
    compLPText.XML.HXT.Arrow.XPathSimple
    compNameTText.XML.HXT.Arrow.XPathSimple
    compNTText.XML.HXT.Arrow.XPathSimple
    compNTAText.XML.HXT.Arrow.XPathSimple
    compNTEText.XML.HXT.Arrow.XPathSimple
    compNumberText.XML.HXT.Arrow.XPathSimple
    compNumberExprText.XML.HXT.Arrow.XPathSimple
    compPathText.XML.HXT.Arrow.XPathSimple
    compPredText.XML.HXT.Arrow.XPathSimple
    compPred1Text.XML.HXT.Arrow.XPathSimple
    CompQNameText.XML.HXT.XSLT.CompiledStylesheet
    compRelPathExprText.XML.HXT.Arrow.XPathSimple
    compStringText.XML.HXT.Arrow.XPathSimple
    compStringExprText.XML.HXT.Arrow.XPathSimple
    CompStylesheetText.XML.HXT.XSLT.CompiledStylesheet
    ComputedQNameText.XML.HXT.XSLT.CompiledStylesheet
    computeNTestPriorityText.XML.HXT.XSLT.Common
    computePriorityText.XML.HXT.XSLT.Common
    compXPText.XML.HXT.Arrow.XPathSimple
    compXPathText.XML.HXT.Arrow.XPathSimple
    compXSText.XML.HXT.Arrow.XPathSimple
    concatExprText.XML.HXT.XSLT.Common
    concResText.XML.HXT.Parser.XmlTokenParser
    CONDSECTText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    ConLenText.XML.HXT.XPath.XPathDataTypes
    ConNodeText.XML.HXT.XPath.XPathDataTypes
    ConPosText.XML.HXT.XPath.XPathDataTypes
    constAControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    constLControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    containingControl.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    containsText.XML.HXT.RelaxNG.Validation, Text.XML.HXT.RelaxNG.Validator, Text.XML.HXT.RelaxNG
    CONTENTText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    contentText.XML.HXT.Parser.XmlParsec
    contentsText.XML.HXT.Arrow.Pickle.Xml
    ContentTypeText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    contentWithTextDeclText.XML.HXT.Parser.XmlParsec
    Context
    1 (Type/Class)Text.XML.HXT.XPath.XPathDataTypes
    2 (Type/Class)Text.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    contextAttributesText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    contextBaseAttrText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    createDocumentOrderText.XML.HXT.XPath.XPathFct
    createDocumentOrderReverseText.XML.HXT.XPath.XPathFct
    createNameClassText.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    createPatternFromXmlTreeText.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    createSimpleFormText.XML.HXT.RelaxNG.Simplification, Text.XML.HXT.RelaxNG.Validator, Text.XML.HXT.RelaxNG
    CTComplexText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    CTEmptyText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    CTNoneText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    CTSimpleText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    c_errText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    c_fatalText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    c_okText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    c_warnText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    DataText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    DataExceptText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    dataNTData.NavTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    DatatypeText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    DatatypeAllowsText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    datatypeAllowsText.XML.HXT.RelaxNG.DataTypeLibraries
    DatatypeCheckText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    DataTypeDescrText.XML.HXT.Arrow.Pickle.Schema, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    DatatypeEqualText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    datatypeEqualText.XML.HXT.RelaxNG.DataTypeLibraries
    DatatypeLibrariesText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    datatypeLibrariesText.XML.HXT.RelaxNG.DataTypeLibraries
    DatatypeLibraryText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    DatatypeNameText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    deadEndStreetText.XML.HXT.Arrow.XPathSimple
    decimalStringToIntText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    decodeData.Char.UTF8
    decodeDocumentText.XML.HXT.Arrow.DocumentInput, Text.XML.HXT.Arrow
    decodeEmbedErrorsData.Char.UTF8
    decodeOneData.Char.UTF8
    decodeUtf8Text.XML.HXT.DOM.UTF8Decoding
    decodeUtf8EmbedErrorsText.XML.HXT.DOM.UTF8Decoding
    decodeUtf8IgnoreErrorsText.XML.HXT.DOM.UTF8Decoding
    DecodingFctText.XML.HXT.DOM.Unicode
    DecodingFctEmbedErrorsText.XML.HXT.DOM.Unicode
    deepControl.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    deep'Text.XML.HXT.Arrow.XPathSimple
    deepestControl.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    defaultMimeTypeTableText.XML.HXT.DOM.MimeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    defineOrigNameText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    delEntriesData.AssocList, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    delEntryData.AssocList, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    delta
    1 (Function)Text.XML.HXT.RelaxNG.XmlSchema.Regex
    2 (Function)Text.XML.HXT.Arrow.XmlRegex
    depthTreeData.Tree.Class, Data.Tree.NTree.TypeDefs, Data.NavTree, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    DescendantText.XML.HXT.XPath.XPathDataTypes
    descendantAxisText.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    DescendantOrSelfText.XML.HXT.XPath.XPathDataTypes
    descendantOrSelfAxisText.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    DivText.XML.HXT.XPath.XPathDataTypes
    DOCTYPEText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    doctypedeclText.XML.HXT.Parser.XmlParsec
    documentText.XML.HXT.Parser.XmlParsec
    document'Text.XML.HXT.Parser.XmlParsec
    documentStatusOkText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    doublesText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    downNTData.NavTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    dqText.XML.HXT.Parser.XmlTokenParser
    dropContText.XML.HXT.Arrow.Pickle.Xml
    dtAllowedTypesText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    dtAllowsFctText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    DTCText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    dtdCharsText.XML.HXT.Parser.XmlDTDTokenParser
    dtdDeclEndText.XML.HXT.Parser.XmlDTDTokenParser
    dtdDeclStartText.XML.HXT.Parser.XmlDTDTokenParser
    dtdDeclTokenizerText.XML.HXT.Parser.XmlDTDTokenParser
    DTDdescr
    1 (Type/Class)Text.XML.HXT.Arrow.Pickle.DTD
    2 (Data Constructor)Text.XML.HXT.Arrow.Pickle.DTD
    dtdDescrText.XML.HXT.Arrow.Pickle.DTD
    dtdDescrToXmlText.XML.HXT.Arrow.Pickle.DTD
    DTDElemText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    DTDescrText.XML.HXT.Arrow.Pickle.Schema
    dtdTokenText.XML.HXT.Parser.XmlDTDTokenParser
    dtd_defaultText.XML.HXT.DTDValidation.TypeDefs
    dtd_kindText.XML.HXT.DTDValidation.TypeDefs
    dtd_modifierText.XML.HXT.DTDValidation.TypeDefs
    dtd_nameText.XML.HXT.DTDValidation.TypeDefs
    dtd_typeText.XML.HXT.DTDValidation.TypeDefs
    dtd_valueText.XML.HXT.DTDValidation.TypeDefs
    dtEqualFctText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    dtLibText.XML.HXT.Arrow.Pickle.Schema
    dtNameText.XML.HXT.Arrow.Pickle.Schema
    dtParamsText.XML.HXT.Arrow.Pickle.Schema
    eelemText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    ELEMENTText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    Element
    1 (Data Constructor)Text.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    2 (Data Constructor)Text.XML.HXT.Arrow.Pickle.Schema
    elementText.XML.HXT.Parser.XmlParsec
    elementDeclText.XML.HXT.Parser.XmlDTDParser
    elementDeclarationsText.XML.HXT.Arrow.Pickle.DTD
    elementDecsText.XML.HXT.Arrow.Pickle.DTD
    elemNameText.XML.HXT.Arrow.Pickle.DTD
    elemNamesText.XML.HXT.Arrow.Pickle.DTD
    ElemRefText.XML.HXT.Arrow.Pickle.Schema
    elemRefsText.XML.HXT.Arrow.Pickle.DTD
    EmptyText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    emptyHtmlTagsText.XML.HXT.Parser.HtmlParsec
    emptyNodeSetText.XML.HXT.XPath.XPathToNodeSet
    emptyStText.XML.HXT.Arrow.Pickle.Xml
    encNameText.XML.HXT.Parser.XmlTokenParser
    encodeData.Char.UTF8
    encodeDocumentText.XML.HXT.Arrow.DocumentOutput, Text.XML.HXT.Arrow
    encodeOneData.Char.UTF8
    encodingDeclText.XML.HXT.Parser.XmlParsec
    ENTITYText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    entityCharTText.XML.HXT.Parser.XmlTokenParser
    entityDeclText.XML.HXT.Parser.XmlDTDParser
    entityRef
    1 (Function)Text.XML.HXT.Parser.XmlTokenParser
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    entityRefTText.XML.HXT.Parser.XmlTokenParser
    entityTokensTText.XML.HXT.Parser.XmlTokenParser
    entityValueText.XML.HXT.Parser.XmlTokenParser
    entityValueTText.XML.HXT.Parser.XmlTokenParser
    Env
    1 (Type/Class)Text.XML.HXT.XPath.XPathDataTypes
    2 (Type/Class)Text.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    EqText.XML.HXT.XPath.XPathDataTypes
    eqText.XML.HXT.Parser.XmlTokenParser
    equalNodeSetText.XML.HXT.Arrow.XPathSimple
    equalQNameByText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    equivQNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    equivUriText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    errText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    ErrLevelText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    ErrMessageText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    ErrMsgText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    ErrorData.Char.UTF8
    errorMsgCollectText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    errorMsgDataLibQNameText.XML.HXT.RelaxNG.DataTypeLibUtils
    errorMsgDataTypeNotAllowedText.XML.HXT.RelaxNG.DataTypeLibUtils
    errorMsgDataTypeNotAllowed0Text.XML.HXT.RelaxNG.DataTypeLibUtils
    errorMsgDataTypeNotAllowed2Text.XML.HXT.RelaxNG.DataTypeLibUtils
    errorMsgEqualText.XML.HXT.RelaxNG.DataTypeLibUtils
    errorMsgIgnoreText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    errorMsgParamText.XML.HXT.RelaxNG.DataTypeLibUtils
    errorMsgStderrText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    errorMsgStderrAndCollectText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    escapeHtmlDocText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    escapeURIText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    escapeXmlDocText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    evalExprText.XML.HXT.XPath.XPathEval, Text.XML.HXT.XPath, Text.XML.HXT.XSLT.Common
    evalFctText.XML.HXT.XPath.XPathFct
    exLocalText.XML.HXT.XSLT.Common
    ExName
    1 (Type/Class)Text.XML.HXT.XSLT.Common
    2 (Data Constructor)Text.XML.HXT.XSLT.Common
    expandNSDeclsText.XML.HXT.XSLT.Common
    expandURIText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    expandURIStringText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    ExprText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    expr2XPathTreeText.XML.HXT.XPath.XPathToString, Text.XML.HXT.XPath
    extensionToMimeTypeText.XML.HXT.DOM.MimeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    exUriText.XML.HXT.XSLT.Common
    failureText.XML.HXT.RelaxNG.DataTypeLibUtils
    fatalText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    FctArgumentsText.XML.HXT.XPath.XPathDataTypes
    FctExprText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    FctNameText.XML.HXT.XPath.XPathDataTypes
    fctTableListText.XML.HXT.RelaxNG.DataTypeLibUtils
    fctTableStringText.XML.HXT.RelaxNG.DataTypeLibUtils
    feedPreservesText.XML.HXT.XSLT.CompiledStylesheet
    feedSpacesText.XML.HXT.XSLT.CompiledStylesheet
    feedStripsText.XML.HXT.XSLT.CompiledStylesheet
    fetchAttributeText.XML.HXT.XSLT.Common
    fetchAttributeWDefaultText.XML.HXT.XSLT.Common
    filterAControl.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    filterErrorMsgText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    FilterExprText.XML.HXT.XPath.XPathDataTypes
    filterTreeText.XML.HXT.XSLT.Common
    filterTreeCtxText.XML.HXT.XSLT.Common
    firstText.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    firstChildText.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    FloatText.XML.HXT.XPath.XPathDataTypes
    foldTreeData.Tree.Class, Data.Tree.NTree.TypeDefs, Data.NavTree, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    FollowingText.XML.HXT.XPath.XPathDataTypes
    followingAxisText.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    FollowingSiblingText.XML.HXT.XPath.XPathDataTypes
    followingSiblingAxisText.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    formatNTreeFData.Tree.NTree.TypeDefs, Data.NavTree, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    formatStringListText.XML.HXT.RelaxNG.Utils, Text.XML.HXT.RelaxNG.DataTypeLibUtils
    formatStringListArrText.XML.HXT.RelaxNG.Utils, Text.XML.HXT.RelaxNG.DataTypeLibUtils
    formatStringListIdText.XML.HXT.RelaxNG.Utils, Text.XML.HXT.RelaxNG.DataTypeLibUtils
    formatStringListPairsText.XML.HXT.RelaxNG.Utils, Text.XML.HXT.RelaxNG.DataTypeLibUtils
    formatStringListPattText.XML.HXT.RelaxNG.Utils, Text.XML.HXT.RelaxNG.DataTypeLibUtils
    formatStringListQuotText.XML.HXT.RelaxNG.Utils, Text.XML.HXT.RelaxNG.DataTypeLibUtils
    formatTreeData.Tree.Class, Data.Tree.NTree.TypeDefs, Data.NavTree, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    formatXmlContentsText.XML.HXT.DOM.FormatXmlTree
    formatXmlTreeText.XML.HXT.DOM.FormatXmlTree, Text.XML.HXT.XSLT.Common
    foundErrText.XML.HXT.Arrow.Pickle.DTD
    fromJustErrText.XML.HXT.XSLT.Common
    fromLAControl.Arrow.ListArrow, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    fromSLAControl.Arrow.StateListArrow, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    FunctionTableText.XML.HXT.RelaxNG.DataTypeLibUtils
    generalOptionsText.XML.HXT.DOM.XmlOptions, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    GenExprText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    getAliasesText.XML.HXT.XSLT.CompiledStylesheet
    getAllParamsText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getAllParamsStringText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getAttText.XML.HXT.Arrow.Pickle.Xml
    getAttributeSetsText.XML.HXT.XSLT.CompiledStylesheet
    getAttrl
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getAttrl'Text.XML.HXT.Arrow.XPathSimple
    getAttrName
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getAttrValueText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getAttrValue0Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getBaseURIText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getCdata
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getCharRef
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getChildren
    1 (Function)Data.Tree.Class, Data.Tree.NTree.TypeDefs, Data.NavTree, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    2 (Function)Control.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    getChildren'Text.XML.HXT.Arrow.XPathSimple
    getChildrenNTData.NavTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    getChildrenPatternText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    getCmt
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getCont
    1 (Function)Text.XML.HXT.IO.GetFILE
    2 (Function)Text.XML.HXT.IO.GetHTTPLibCurl
    3 (Function)Text.XML.HXT.Arrow.Pickle.Xml
    getConvFctText.XML.HXT.XPath.XPathFct
    getDecodingFctText.XML.HXT.DOM.Unicode
    getDecodingFctEmbedErrorsText.XML.HXT.DOM.Unicode
    getDefaultBaseURIText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getDocumentContentsText.XML.HXT.Arrow.ProcessDocument, Text.XML.HXT.Arrow
    getDTDAttributesText.XML.HXT.DTDValidation.TypeDefs
    getDTDAttrl
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getDTDAttrValueText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getDTDPart
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getDTDSubsetText.XML.HXT.DTDValidation.Validation
    getElemAndAttrNodeSetText.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow
    getElemName
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getElemNodeSetText.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow
    getEncodingText.XML.HXT.Arrow.DocumentInput, Text.XML.HXT.Arrow
    getEntityRef
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getErrorLevel
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getErrorMessagesText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getErrorMsg
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getErrorsText.XML.HXT.RelaxNG.Simplification, Text.XML.HXT.RelaxNG.Validator, Text.XML.HXT.RelaxNG
    getErrStatusText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getFragmentFromURIText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getFromNodeSetText.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow
    getKeyTabText.XML.HXT.XPath.XPathFct
    getLocalPart
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getMatchRulesText.XML.HXT.XSLT.CompiledStylesheet
    getName
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getNameClassFromPatternText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    getNamedRulesText.XML.HXT.XSLT.CompiledStylesheet
    getNamePrefix
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getNamespaceDeclText.XML.HXT.Arrow.Namespace, Text.XML.HXT.Arrow
    getNamespaceUri
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getNode
    1 (Function)Data.Tree.Class, Data.Tree.NTree.TypeDefs, Data.NavTree, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    2 (Function)Control.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    getOutputEncodingText.XML.HXT.Arrow.DocumentOutput, Text.XML.HXT.Arrow
    getOutputEncodingFctText.XML.HXT.DOM.Unicode
    getParamText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getParamIntText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getParamStringText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getPathFromURIText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getPatternNameText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    getPiContent
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getPiName
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getPortFromURIText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getQAttrValueText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getQAttrValue0Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getQNameText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getQualifiedNameText.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    getQueryFromURIText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getRegNameFromURIText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getRngAttrAttributeText.XML.HXT.RelaxNG.BasicArrows
    getRngAttrCombineText.XML.HXT.RelaxNG.BasicArrows
    getRngAttrDatatypeLibraryText.XML.HXT.RelaxNG.BasicArrows
    getRngAttrDescrText.XML.HXT.RelaxNG.BasicArrows
    getRngAttrHrefText.XML.HXT.RelaxNG.BasicArrows
    getRngAttrNameText.XML.HXT.RelaxNG.BasicArrows
    getRngAttrNsText.XML.HXT.RelaxNG.BasicArrows
    getRngAttrTypeText.XML.HXT.RelaxNG.BasicArrows
    getRuleImportsText.XML.HXT.XSLT.CompiledStylesheet
    getRuleModeText.XML.HXT.XSLT.CompiledStylesheet
    getRuleNameText.XML.HXT.XSLT.CompiledStylesheet
    getRulePrioText.XML.HXT.XSLT.CompiledStylesheet
    getSchemeFromURIText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getStateControl.Arrow.ArrowState, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    getStdinContText.XML.HXT.IO.GetFILE
    getStripsText.XML.HXT.XSLT.CompiledStylesheet
    getSysParamText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getText
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getTraceLevelText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getUniversalName
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getUniversalUri
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    getURIContentsText.XML.HXT.Arrow.DocumentInput, Text.XML.HXT.Arrow
    getUriMapText.XML.HXT.XSLT.Common
    getUserInfoFromURIText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getUserStateText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    getVariablesText.XML.HXT.XSLT.CompiledStylesheet
    getVarNameText.XML.HXT.XSLT.CompiledStylesheet
    getVarTabText.XML.HXT.XPath.XPathFct
    getXmlContentsText.XML.HXT.Arrow.DocumentInput, Text.XML.HXT.Arrow
    getXmlEntityContentsText.XML.HXT.Arrow.DocumentInput, Text.XML.HXT.Arrow
    getXPText.XML.HXT.Arrow.XPathSimple
    getXPathText.XML.HXT.XPath.XPathEval, Text.XML.HXT.XPath
    getXPathNodeSet
    1 (Function)Text.XML.HXT.XPath.XPathEval, Text.XML.HXT.XPath
    2 (Function)Text.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow
    getXPathNodeSetWithNsEnvText.XML.HXT.XPath.XPathEval, Text.XML.HXT.XPath
    getXPathSubTreesText.XML.HXT.XPath.XPathEval, Text.XML.HXT.XPath
    getXPathSubTreesWithNsEnvText.XML.HXT.XPath.XPathEval, Text.XML.HXT.XPath
    getXPathTrees
    1 (Function)Text.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow
    2 (Function)Text.XML.HXT.Arrow.XPathSimple
    getXPathTreesInDoc
    1 (Function)Text.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow
    2 (Function)Text.XML.HXT.Arrow.XPathSimple
    getXPathTreesInDocWithNsEnv
    1 (Function)Text.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow
    2 (Function)Text.XML.HXT.Arrow.XPathSimple
    getXPathTreesWithNsEnv
    1 (Function)Text.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow
    2 (Function)Text.XML.HXT.Arrow.XPathSimple
    getXPathTreesWithNsEnvSimpleText.XML.HXT.Arrow.XPathSimple
    getXPathWithNsEnvText.XML.HXT.XPath.XPathEval, Text.XML.HXT.XPath
    GreaterText.XML.HXT.XPath.XPathDataTypes
    GreaterEqText.XML.HXT.XPath.XPathDataTypes
    GroupText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    groupText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    gtText.XML.HXT.Parser.XmlTokenParser
    guardsControl.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    guards'Text.XML.HXT.Arrow.XPathSimple
    guardsPControl.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    guessEncodingText.XML.HXT.DOM.Unicode
    hasAttrText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    hasAttributeText.XML.HXT.XSLT.Common
    hasAttrValueText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    hasDTDAttrText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    hasDTDAttrValueText.XML.HXT.DTDValidation.TypeDefs
    hasEntryData.AssocList, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    haskellRepOfXmlDocText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    hasLocalPartText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    hasNameText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    hasNamePrefixText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    hasNamespaceUriText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    hasNameWithText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    hasQAttrText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    hasQAttrValueText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    hasQNameText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    hasRngAttrAttributeText.XML.HXT.RelaxNG.BasicArrows
    hasRngAttrCombineText.XML.HXT.RelaxNG.BasicArrows
    hasRngAttrDatatypeLibraryText.XML.HXT.RelaxNG.BasicArrows
    hasRngAttrHrefText.XML.HXT.RelaxNG.BasicArrows
    hasRngAttrNameText.XML.HXT.RelaxNG.BasicArrows
    hasRngAttrNsText.XML.HXT.RelaxNG.BasicArrows
    hasRngAttrTypeText.XML.HXT.RelaxNG.BasicArrows
    hasRngNameText.XML.HXT.RelaxNG.BasicArrows
    hasTextText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    hasXmlPiText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    hexStringToIntText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    hreadText.XML.HXT.Arrow.ReadDocument, Text.XML.HXT.Arrow
    httpPrefixText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    hxt_versionText.XML.HXT.Version, Text.XML.HXT.Arrow
    ifAControl.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    ifPControl.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    IfThenControl.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    indentDocText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    initialStateText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    initialSysStateText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    inputOptionsText.XML.HXT.DOM.XmlOptions, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    insertChildrenAfterControl.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    insertChildrenAtControl.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    insertTreeTemplateControl.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    InterleaveText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    interleaveText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    intToCharRefText.XML.HXT.DOM.Unicode
    intToCharRefHexText.XML.HXT.DOM.Unicode
    intToHexStringText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    IOLA
    1 (Type/Class)Control.Arrow.IOListArrow, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    2 (Data Constructor)Control.Arrow.IOListArrow, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    IOSArrowText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    IOSLA
    1 (Type/Class)Control.Arrow.IOStateListArrow, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    2 (Data Constructor)Control.Arrow.IOStateListArrow, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    IOStateArrowText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    isAControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    isAttlistOfElementText.XML.HXT.DTDValidation.TypeDefs
    isAttr
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isAttributeListGroupInterleaveOneOrMoreText.XML.HXT.RelaxNG.BasicArrows
    isAttributeRefText.XML.HXT.RelaxNG.BasicArrows
    isAttributeRefTextListGroupInterleaveOneOrMoreEmptyText.XML.HXT.RelaxNG.BasicArrows
    isAttributeRefTextListInterleaveText.XML.HXT.RelaxNG.BasicArrows
    isAttrTypeText.XML.HXT.XSLT.Common
    isCdata
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isCharRef
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isChoiceGroupInterleaveText.XML.HXT.RelaxNG.BasicArrows
    isChoiceGroupInterleaveOneOrMoreText.XML.HXT.RelaxNG.BasicArrows
    isCmt
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isDeclaredNamespaceText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isDefaultAttrKindText.XML.HXT.DTDValidation.TypeDefs
    isDefineOneOrMoreZeroOrMoreOptionalListMixedText.XML.HXT.RelaxNG.BasicArrows
    isDTD
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isDTDAttlistText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isDTDAttlistNodeText.XML.HXT.DTDValidation.TypeDefs
    isDTDCondSectText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isDTDContentText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isDTDContentNodeText.XML.HXT.DTDValidation.TypeDefs
    isDTDDoctypeText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isDTDDoctypeNodeText.XML.HXT.DTDValidation.TypeDefs
    isDTDElementText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isDTDElementNodeText.XML.HXT.DTDValidation.TypeDefs
    isDTDEntityText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isDTDNameText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isDTDNameNodeText.XML.HXT.DTDValidation.TypeDefs
    isDTDNotationText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isDTDPEntityText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isDTDPERefText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isElem
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isElemNodeText.XML.HXT.DTDValidation.TypeDefs
    isElemTypeText.XML.HXT.XSLT.Common
    isEmptyElementText.XML.HXT.DTDValidation.TypeDefs
    isEmptyHtmlTagText.XML.HXT.Parser.HtmlParsec
    isEntityRef
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isEnumAttrTypeText.XML.HXT.DTDValidation.TypeDefs
    isError
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isExternalRefIncludeText.XML.HXT.RelaxNG.BasicArrows
    isFixedAttrKindText.XML.HXT.DTDValidation.TypeDefs
    isGroupInterleaveText.XML.HXT.RelaxNG.BasicArrows
    isHtmlMimeTypeText.XML.HXT.DOM.MimeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isIdAttrTypeText.XML.HXT.DTDValidation.TypeDefs
    isIdRefAttrTypeText.XML.HXT.DTDValidation.TypeDefs
    isInnerData.Tree.Class, Data.Tree.NTree.TypeDefs, Data.NavTree, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    isInnerHtmlTagOfText.XML.HXT.Parser.HtmlParsec
    isIOAControl.Arrow.ArrowIO, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    isLeafData.Tree.Class, Data.Tree.NTree.TypeDefs, Data.NavTree, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    isMatchExprText.XML.HXT.XSLT.Common
    isMixedContentElementText.XML.HXT.DTDValidation.TypeDefs
    isNameText.XML.HXT.RelaxNG.Utils, Text.XML.HXT.RelaxNG.DataTypeLibUtils
    isNameAnyNameNsNameText.XML.HXT.RelaxNG.BasicArrows
    isNameNsNameText.XML.HXT.RelaxNG.BasicArrows
    isNameNsNameValueText.XML.HXT.RelaxNG.BasicArrows
    isNamespaceDeclAttrText.XML.HXT.Arrow.Namespace, Text.XML.HXT.Arrow
    isNameSpaceNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isNCNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isNmtokenText.XML.HXT.RelaxNG.Utils, Text.XML.HXT.RelaxNG.DataTypeLibUtils
    isNotationAttrTypeText.XML.HXT.DTDValidation.TypeDefs
    isNotInNodeListText.XML.HXT.XPath.XPathFct, Text.XML.HXT.XSLT.Common
    isNsAttrText.XML.HXT.XSLT.Common
    isNullXNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isNumberText.XML.HXT.RelaxNG.Utils, Text.XML.HXT.RelaxNG.DataTypeLibUtils
    iso8859_1Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    iso8859_10Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    iso8859_11Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    iso8859_13Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    iso8859_14Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    iso8859_15Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    iso8859_16Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    iso8859_2Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    iso8859_3Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    iso8859_4Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    iso8859_5Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    iso8859_6Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    iso8859_7Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    iso8859_8Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    iso8859_9Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    isoLatin1Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    iso_8859_10Text.XML.HXT.DOM.IsoLatinTables
    iso_8859_11Text.XML.HXT.DOM.IsoLatinTables
    iso_8859_13Text.XML.HXT.DOM.IsoLatinTables
    iso_8859_14Text.XML.HXT.DOM.IsoLatinTables
    iso_8859_15Text.XML.HXT.DOM.IsoLatinTables
    iso_8859_16Text.XML.HXT.DOM.IsoLatinTables
    iso_8859_2Text.XML.HXT.DOM.IsoLatinTables
    iso_8859_3Text.XML.HXT.DOM.IsoLatinTables
    iso_8859_4Text.XML.HXT.DOM.IsoLatinTables
    iso_8859_5Text.XML.HXT.DOM.IsoLatinTables
    iso_8859_6Text.XML.HXT.DOM.IsoLatinTables
    iso_8859_7Text.XML.HXT.DOM.IsoLatinTables
    iso_8859_8Text.XML.HXT.DOM.IsoLatinTables
    iso_8859_9Text.XML.HXT.DOM.IsoLatinTables
    isParamText.XML.HXT.XSLT.CompiledStylesheet
    isPi
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isRelaxAfterText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    isRelaxAnyURIText.XML.HXT.RelaxNG.Utils, Text.XML.HXT.RelaxNG.DataTypeLibUtils
    isRelaxAttributeText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    isRelaxChoiceText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    isRelaxDataText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    isRelaxDataExceptText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    isRelaxElementText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    isRelaxEmptyText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    isRelaxGroupText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    isRelaxInterleaveText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    isRelaxListText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    isRelaxNotAllowedText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    isRelaxOneOrMoreText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    isRelaxTextText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    isRelaxValueText.XML.HXT.RelaxNG.PatternFunctions, Text.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    isRequiredAttrKindText.XML.HXT.DTDValidation.TypeDefs
    isRngAnyNameText.XML.HXT.RelaxNG.BasicArrows
    isRngAttrAttributeText.XML.HXT.RelaxNG.BasicArrows
    isRngAttrCombineText.XML.HXT.RelaxNG.BasicArrows
    isRngAttrDatatypeLibraryText.XML.HXT.RelaxNG.BasicArrows
    isRngAttrHrefText.XML.HXT.RelaxNG.BasicArrows
    isRngAttributeText.XML.HXT.RelaxNG.BasicArrows
    isRngAttrNameText.XML.HXT.RelaxNG.BasicArrows
    isRngAttrNsText.XML.HXT.RelaxNG.BasicArrows
    isRngAttrTypeText.XML.HXT.RelaxNG.BasicArrows
    isRngChoiceText.XML.HXT.RelaxNG.BasicArrows
    isRngCombineText.XML.HXT.RelaxNG.BasicArrows
    isRngDataText.XML.HXT.RelaxNG.BasicArrows
    isRngDefineText.XML.HXT.RelaxNG.BasicArrows
    isRngDivText.XML.HXT.RelaxNG.BasicArrows
    isRngElementText.XML.HXT.RelaxNG.BasicArrows
    isRngEmptyText.XML.HXT.RelaxNG.BasicArrows
    isRngExceptText.XML.HXT.RelaxNG.BasicArrows
    isRngExternalRefText.XML.HXT.RelaxNG.BasicArrows
    isRngGrammarText.XML.HXT.RelaxNG.BasicArrows
    isRngGroupText.XML.HXT.RelaxNG.BasicArrows
    isRngIncludeText.XML.HXT.RelaxNG.BasicArrows
    isRngInterleaveText.XML.HXT.RelaxNG.BasicArrows
    isRngListText.XML.HXT.RelaxNG.BasicArrows
    isRngMixedText.XML.HXT.RelaxNG.BasicArrows
    isRngNameText.XML.HXT.RelaxNG.BasicArrows
    isRngNotAllowedText.XML.HXT.RelaxNG.BasicArrows
    isRngNsNameText.XML.HXT.RelaxNG.BasicArrows
    isRngOneOrMoreText.XML.HXT.RelaxNG.BasicArrows
    isRngOptionalText.XML.HXT.RelaxNG.BasicArrows
    isRngParamText.XML.HXT.RelaxNG.BasicArrows
    isRngParentRefText.XML.HXT.RelaxNG.BasicArrows
    isRngRefText.XML.HXT.RelaxNG.BasicArrows
    isRngRelaxErrorText.XML.HXT.RelaxNG.BasicArrows
    isRngStartText.XML.HXT.RelaxNG.BasicArrows
    isRngTextText.XML.HXT.RelaxNG.BasicArrows
    isRngTypeText.XML.HXT.RelaxNG.BasicArrows
    isRngValueText.XML.HXT.RelaxNG.BasicArrows
    isRngZeroOrMoreText.XML.HXT.RelaxNG.BasicArrows
    isRoot
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isScAttrText.XML.HXT.Arrow.Pickle.Schema
    isScCharDataText.XML.HXT.Arrow.Pickle.Schema
    isScElemText.XML.HXT.Arrow.Pickle.Schema
    isScElemRefText.XML.HXT.Arrow.Pickle.Schema
    isScEnumText.XML.HXT.Arrow.Pickle.Schema
    isScFixedText.XML.HXT.Arrow.Pickle.Schema
    isScListText.XML.HXT.Arrow.Pickle.Schema
    isScOptText.XML.HXT.Arrow.Pickle.Schema
    isScSAREText.XML.HXT.Arrow.Pickle.Schema
    isScXsdText.XML.HXT.Arrow.Pickle.Schema
    issueErrText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    issueFatalText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    issueWarnText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    isText
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isTrueValueText.XML.HXT.DOM.XmlOptions, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isUnicodeCText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeCcText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeCfText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeCoText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeCsText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeLText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeLlText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeLmText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeLoText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeLtText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeLuText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeMText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeMcText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeMeText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeMnText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeNText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeNdText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeNlText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeNoText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodePText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodePcText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodePdText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodePeText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodePfText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodePiText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodePoText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodePsText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeSText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeScText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeSkText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeSmText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeSoText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeZText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeZlText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeZpText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnicodeZsText.XML.HXT.RelaxNG.Unicode.CharProps
    isUnparsedEntityText.XML.HXT.DTDValidation.TypeDefs
    isWellformedNameSpaceNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isWellformedNSDeclText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isWellformedQNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isWellformedQualifiedNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isWhiteSpaceText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isWhitespaceNodeText.XML.HXT.XSLT.Common
    isXml11SpaceCharText.XML.HXT.DOM.Unicode
    isXmlBaseCharText.XML.HXT.DOM.Unicode
    isXmlCharText.XML.HXT.DOM.Unicode
    isXmlCombiningCharText.XML.HXT.DOM.Unicode
    isXmlControlOrPermanentlyUndefinedText.XML.HXT.DOM.Unicode
    isXmlDigitText.XML.HXT.DOM.Unicode
    isXmlExtenderText.XML.HXT.DOM.Unicode
    isXmlIdeographicCharText.XML.HXT.DOM.Unicode
    isXmlLatin1CharText.XML.HXT.DOM.Unicode
    isXmlLetterText.XML.HXT.DOM.Unicode
    isXmlMimeTypeText.XML.HXT.DOM.MimeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isXmlNameCharText.XML.HXT.DOM.Unicode
    isXmlNameStartCharText.XML.HXT.DOM.Unicode
    isXmlNCNameCharText.XML.HXT.DOM.Unicode
    isXmlNCNameStartCharText.XML.HXT.DOM.Unicode
    isXmlPiText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    isXmlPubidCharText.XML.HXT.DOM.Unicode
    isXmlSpaceCharText.XML.HXT.DOM.Unicode
    isZeroText.XML.HXT.RelaxNG.XmlSchema.Regex
    KeyTabText.XML.HXT.XPath.XPathDataTypes
    keywordText.XML.HXT.Parser.XmlTokenParser
    keywordsText.XML.HXT.Parser.XmlTokenParser
    Kleisli
    1 (Data Constructor)Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    2 (Type/Class)Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_anyText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_cdataText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_defaultText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_emptyText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_entitiesText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_entityText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_enumerationText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_fixedText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_idText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_idrefText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_idrefsText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_ignoreText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_impliedText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_includeText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_ndataText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_nmtokenText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_nmtokensText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_notationText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_pcdataText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_perefText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_publicText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_requiredText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    k_systemText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    LA
    1 (Type/Class)Control.Arrow.ListArrow, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    2 (Data Constructor)Control.Arrow.ListArrow, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    lastChildText.XML.HXT.RelaxNG.CreatePattern, Text.XML.HXT.RelaxNG
    latin1ToUnicodeText.XML.HXT.DOM.Unicode
    leftText.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    leftAppText.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    leftNTData.NavTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    LessText.XML.HXT.XPath.XPathDataTypes
    LessEqText.XML.HXT.XPath.XPathDataTypes
    liftStControl.Arrow.IOStateListArrow, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    ListText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    listAControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    LiteralText.XML.HXT.XPath.XPathDataTypes
    LiteralExprText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    LiteralQNameText.XML.HXT.XSLT.CompiledStylesheet
    LocalName
    1 (Type/Class)Text.XML.HXT.XPath.XPathDataTypes
    2 (Type/Class)Text.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    localPartText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    localPart'Text.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    LocationPathText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    LocPathText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    lookup1Data.AssocList, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    lookupAliasText.XML.HXT.XSLT.CompiledStylesheet
    lookupDefData.AssocList, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    lookupPrefixText.XML.HXT.XSLT.Common
    lookupStripText.XML.HXT.XSLT.CompiledStylesheet
    lookupStrip1Text.XML.HXT.XSLT.CompiledStylesheet
    loopText.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    lparText.XML.HXT.Parser.XmlTokenParser
    ltText.XML.HXT.Parser.XmlTokenParser
    mapTreeCtxText.XML.HXT.XSLT.Common
    markupdeclText.XML.HXT.Parser.XmlParsec
    matchText.XML.HXT.RelaxNG.XmlSchema.RegexMatch, Text.XML.HXT.RelaxNG
    matches
    1 (Function)Text.XML.HXT.DTDValidation.RE
    2 (Function)Text.XML.HXT.DTDValidation.XmlRE
    MatchExpr
    1 (Type/Class)Text.XML.HXT.XSLT.CompiledStylesheet
    2 (Data Constructor)Text.XML.HXT.XSLT.CompiledStylesheet
    matchREText.XML.HXT.RelaxNG.XmlSchema.RegexMatch, Text.XML.HXT.RelaxNG
    matchRegexAText.XML.HXT.Arrow.XmlRegex
    MatchRuleText.XML.HXT.XSLT.CompiledStylesheet
    matchWithREText.XML.HXT.RelaxNG.XmlSchema.Regex
    matchXmlRegexText.XML.HXT.Arrow.XmlRegex
    MatRuleText.XML.HXT.XSLT.CompiledStylesheet
    maybePlusData.NavTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    maybeStarData.NavTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    mergeAControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    mergeAttrlText.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    mergeNotAllowedText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    mimeTypeDefaultsText.XML.HXT.DOM.MimeTypeDefaults
    MimeTypeTableText.XML.HXT.DOM.MimeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    MinusText.XML.HXT.XPath.XPathDataTypes
    miscText.XML.HXT.Parser.XmlParsec
    mkText.XML.HXT.Arrow.XPathSimple
    mkAbsURIText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    mkAlt
    1 (Function)Text.XML.HXT.RelaxNG.XmlSchema.Regex
    2 (Function)Text.XML.HXT.Arrow.XmlRegex
    mkAttr
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkAttrNodeText.XML.HXT.DOM.XmlNode
    mkBoolExprText.XML.HXT.XSLT.Common
    mkCdata
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkCharRef
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkCmt
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkComplText.XML.HXT.RelaxNG.XmlSchema.Regex
    mkDifText.XML.HXT.RelaxNG.XmlSchema.Regex
    mkDot
    1 (Function)Text.XML.HXT.RelaxNG.XmlSchema.Regex
    2 (Function)Text.XML.HXT.Arrow.XmlRegex
    mkDTDDoctypeText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkDTDElem
    1 (Function)Text.XML.HXT.DOM.XmlNode
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkDTDElementText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkDTDEntityText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkDTDNodeText.XML.HXT.DOM.XmlNode
    mkDTDPEntityText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkelemText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkElement
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkElementNodeText.XML.HXT.DOM.XmlNode
    mkEntityRef
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkError
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkExNameText.XML.HXT.XSLT.Common
    mkLeaf
    1 (Function)Data.Tree.Class, Data.Tree.NTree.TypeDefs, Data.NavTree, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    2 (Function)Control.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    mkListText.XML.HXT.Parser.XmlTokenParser
    mkLiteralExprText.XML.HXT.XSLT.Common
    mkNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    mkNsNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkOpt
    1 (Function)Text.XML.HXT.RelaxNG.XmlSchema.Regex
    2 (Function)Text.XML.HXT.Arrow.XmlRegex
    mkPi
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkPrefixLocalPartText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkPrimText.XML.HXT.Arrow.XmlRegex
    mkPrimAText.XML.HXT.Arrow.XmlRegex
    mkqelemText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkQNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    mkQName'Text.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkRep
    1 (Function)Text.XML.HXT.RelaxNG.XmlSchema.Regex
    2 (Function)Text.XML.HXT.Arrow.XmlRegex
    mkRng
    1 (Function)Text.XML.HXT.RelaxNG.XmlSchema.Regex
    2 (Function)Text.XML.HXT.Arrow.XmlRegex
    mkRngChoiceText.XML.HXT.RelaxNG.BasicArrows
    mkRngDefineText.XML.HXT.RelaxNG.BasicArrows
    mkRngElementText.XML.HXT.RelaxNG.BasicArrows
    mkRngEmptyText.XML.HXT.RelaxNG.BasicArrows
    mkRngGrammarText.XML.HXT.RelaxNG.BasicArrows
    mkRngGroupText.XML.HXT.RelaxNG.BasicArrows
    mkRngInterleaveText.XML.HXT.RelaxNG.BasicArrows
    mkRngNameText.XML.HXT.RelaxNG.BasicArrows
    mkRngNotAllowedText.XML.HXT.RelaxNG.BasicArrows
    mkRngOneOrMoreText.XML.HXT.RelaxNG.BasicArrows
    mkRngRefText.XML.HXT.RelaxNG.BasicArrows
    mkRngRelaxErrorText.XML.HXT.RelaxNG.BasicArrows
    mkRngStartText.XML.HXT.RelaxNG.BasicArrows
    mkRngTextText.XML.HXT.RelaxNG.BasicArrows
    mkRootText.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    mkSeq
    1 (Function)Text.XML.HXT.RelaxNG.XmlSchema.Regex
    2 (Function)Text.XML.HXT.Arrow.XmlRegex
    mkSNsNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkStar
    1 (Function)Text.XML.HXT.RelaxNG.XmlSchema.Regex
    2 (Function)Text.XML.HXT.Arrow.XmlRegex
    mkStringExprText.XML.HXT.XSLT.Common
    mkSymText.XML.HXT.RelaxNG.XmlSchema.Regex
    mkSym1Text.XML.HXT.RelaxNG.XmlSchema.Regex
    mkSymRngText.XML.HXT.RelaxNG.XmlSchema.Regex
    mkText
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    mkTree
    1 (Function)Data.Tree.Class, Data.Tree.NTree.TypeDefs, Data.NavTree, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    2 (Function)Control.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    mkTrueExprText.XML.HXT.XSLT.Common
    mkUnit
    1 (Function)Text.XML.HXT.RelaxNG.XmlSchema.Regex
    2 (Function)Text.XML.HXT.Arrow.XmlRegex
    MkVarText.XML.HXT.XSLT.CompiledStylesheet
    mkXsltAttribNameText.XML.HXT.XSLT.Names
    mkXsltNameText.XML.HXT.XSLT.Names
    mkZero
    1 (Function)Text.XML.HXT.RelaxNG.XmlSchema.Regex
    2 (Function)Text.XML.HXT.Arrow.XmlRegex
    ModText.XML.HXT.XPath.XPathDataTypes
    msgToErrText.XML.HXT.DTDValidation.TypeDefs
    MultText.XML.HXT.XPath.XPathDataTypes
    multiControl.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    multi'Text.XML.HXT.Arrow.XPathSimple
    mysqlDatatypeLibText.XML.HXT.RelaxNG.DataTypeLibMysql
    mysqlNSText.XML.HXT.RelaxNG.DataTypeLibMysql
    NAMEText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    Name
    1 (Type/Class)Text.XML.HXT.XPath.XPathDataTypes
    2 (Data Constructor)Text.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    3 (Type/Class)Text.XML.HXT.Arrow.Pickle.Schema
    nameText.XML.HXT.Parser.XmlTokenParser
    NameClassText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    NameClassChoiceText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    nameClassToStringText.XML.HXT.RelaxNG.PatternToString, Text.XML.HXT.RelaxNG
    NamedRuleText.XML.HXT.XSLT.CompiledStylesheet
    nameOfAttrText.XML.HXT.DTDValidation.TypeDefs
    nameOfElemText.XML.HXT.DTDValidation.TypeDefs
    NamePairText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    NamePrefixText.XML.HXT.XPath.XPathDataTypes
    namePrefixText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    namePrefix'Text.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    namesText.XML.HXT.Parser.XmlTokenParser
    NamespaceText.XML.HXT.XPath.XPathDataTypes
    namespaceUriText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    namespaceUri'Text.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    nameTText.XML.HXT.Parser.XmlTokenParser
    NameTestText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    NamRuleText.XML.HXT.XSLT.CompiledStylesheet
    NaNText.XML.HXT.XPath.XPathDataTypes
    NavTreeData.NavTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    NavXmlTreeText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    NavXmlTreesText.XML.HXT.XPath.XPathDataTypes
    NCErrorText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    ncNameText.XML.HXT.Parser.XmlTokenParser
    negControl.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    Neg0Text.XML.HXT.XPath.XPathDataTypes
    NegInfText.XML.HXT.XPath.XPathDataTypes
    NEqText.XML.HXT.XPath.XPathDataTypes
    newAtomData.Atom
    NewNameText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    newXNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    nextStateControl.Arrow.ArrowState, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    nmtokenText.XML.HXT.Parser.XmlTokenParser
    nmtokensText.XML.HXT.Parser.XmlTokenParser
    nmtokenTText.XML.HXT.Parser.XmlTokenParser
    NodeSetText.XML.HXT.XPath.XPathDataTypes
    nodesTreeData.Tree.Class, Data.Tree.NTree.TypeDefs, Data.NavTree, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    NodeTestText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    noDoublesText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    noneControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    noOfChildrenText.XML.HXT.RelaxNG.BasicArrows
    normalizeAttributeValueText.XML.HXT.DTDValidation.AttributeValueValidation
    normalizeBlanksText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    normalizeForRelaxValidationText.XML.HXT.RelaxNG.Validation, Text.XML.HXT.RelaxNG.Validator, Text.XML.HXT.RelaxNG
    normalizeNLText.XML.HXT.DOM.Unicode
    normalizeNsUriText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    normalizeNumberText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    normalizeURIText.XML.HXT.RelaxNG.Utils, Text.XML.HXT.RelaxNG.DataTypeLibUtils
    normalizeWhitespaceText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    NotAllowedText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    notAllowedText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    notAllowed1Text.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    notAllowed2Text.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    notAllowedNText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    NOTATIONText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    notationDeclText.XML.HXT.Parser.XmlDTDParser
    notContainingControl.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    NSAliasingText.XML.HXT.XSLT.CompiledStylesheet
    NsEnvText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    NsNameText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    NsNameExceptText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    NTData.NavTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    nt2XPathTreeText.XML.HXT.XPath.XPathToString, Text.XML.HXT.XPath
    NTestText.XML.HXT.XSLT.CompiledStylesheet
    NTree
    1 (Type/Class)Data.Tree.NTree.TypeDefs, Data.NavTree, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    2 (Data Constructor)Data.Tree.NTree.TypeDefs, Data.NavTree, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    ntreeData.NavTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    NTreesData.Tree.NTree.TypeDefs, Data.NavTree, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    nullable
    1 (Function)Text.XML.HXT.RelaxNG.XmlSchema.Regex
    2 (Function)Text.XML.HXT.DTDValidation.RE
    3 (Function)Text.XML.HXT.Arrow.XmlRegex
    nullXNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    NumberExprText.XML.HXT.XPath.XPathDataTypes
    numberLinesInXmlDocText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    numberValidText.XML.HXT.RelaxNG.DataTypeLibUtils
    numParamValidText.XML.HXT.RelaxNG.DataTypeLibUtils
    n_commentText.XML.HXT.XPath.XPathKeywords
    n_nodeText.XML.HXT.XPath.XPathKeywords
    n_processing_instructionText.XML.HXT.XPath.XPathKeywords
    n_textText.XML.HXT.XPath.XPathKeywords
    o'Data.NavTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    okText.XML.HXT.RelaxNG.DataTypeLibUtils
    OldNameText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    OneOrMoreText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    oneOrMoreText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    OpText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    optionIsSetText.XML.HXT.DOM.XmlOptions, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    OrText.XML.HXT.XPath.XPathDataTypes
    orElseControl.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    outputOptionsText.XML.HXT.DOM.XmlOptions, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    ParamListText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    ParamNameText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    ParentText.XML.HXT.XPath.XPathDataTypes
    parentAxisText.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    parseContentTypeText.XML.HXT.Parser.ProtocolHandlerUtil
    parseExNameText.XML.HXT.XSLT.Common
    parseHtmlContent
    1 (Function)Text.XML.HXT.Parser.HtmlParsec
    2 (Function)Text.XML.HXT.Arrow.ParserInterface
    parseHtmlDocText.XML.HXT.Arrow.ParserInterface
    parseHtmlDocument
    1 (Function)Text.XML.HXT.Parser.HtmlParsec
    2 (Function)Text.XML.HXT.Arrow.ProcessDocument, Text.XML.HXT.Arrow
    parseHtmlTagSoup
    1 (Function)Text.XML.HXT.Parser.TagSoup
    2 (Function)Text.XML.HXT.Arrow.ParserInterface
    parseHtmlTextText.XML.HXT.Parser.HtmlParsec
    parseMimeTypeTableText.XML.HXT.DOM.MimeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    parseNameText.XML.HXT.Parser.XmlParsec
    parseNMTokenText.XML.HXT.Parser.XmlParsec
    parseNTestText.XML.HXT.XSLT.CompiledStylesheet
    parseNumberText.XML.HXT.XPath.XPathParser, Text.XML.HXT.XPath
    parseRegexText.XML.HXT.RelaxNG.XmlSchema.RegexParser
    parseXmlAttrValue
    1 (Function)Text.XML.HXT.Parser.XmlParsec
    2 (Function)Text.XML.HXT.Arrow.ParserInterface
    parseXmlContent
    1 (Function)Text.XML.HXT.Parser.XmlParsec
    2 (Function)Text.XML.HXT.Arrow.ParserInterface
    parseXmlDocText.XML.HXT.Arrow.ParserInterface
    parseXmlDocEncodingSpec
    1 (Function)Text.XML.HXT.Parser.XmlParsec
    2 (Function)Text.XML.HXT.Arrow.ParserInterface
    parseXmlDocument
    1 (Function)Text.XML.HXT.Parser.XmlParsec
    2 (Function)Text.XML.HXT.Arrow.ProcessDocument, Text.XML.HXT.Arrow
    parseXmlDTDdecl
    1 (Function)Text.XML.HXT.Parser.XmlDTDParser
    2 (Function)Text.XML.HXT.Arrow.ParserInterface
    parseXmlDTDdeclPart
    1 (Function)Text.XML.HXT.Parser.XmlDTDParser
    2 (Function)Text.XML.HXT.Arrow.ParserInterface
    parseXmlDTDEntityValue
    1 (Function)Text.XML.HXT.Parser.XmlDTDParser
    2 (Function)Text.XML.HXT.Arrow.ParserInterface
    parseXmlDTDPart
    1 (Function)Text.XML.HXT.Parser.XmlParsec
    2 (Function)Text.XML.HXT.Arrow.ParserInterface
    parseXmlEncodingSpecText.XML.HXT.Parser.XmlParsec
    parseXmlEntityEncodingSpec
    1 (Function)Text.XML.HXT.Parser.XmlParsec
    2 (Function)Text.XML.HXT.Arrow.ParserInterface
    parseXmlGeneralEntityValue
    1 (Function)Text.XML.HXT.Parser.XmlParsec
    2 (Function)Text.XML.HXT.Arrow.ParserInterface
    parseXmlPartText.XML.HXT.Parser.XmlParsec
    parseXmlTextText.XML.HXT.Parser.XmlParsec
    parseXPathText.XML.HXT.XPath.XPathParser, Text.XML.HXT.XPath, Text.XML.HXT.XSLT.Common
    partitionAControl.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    partitionEitherText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    PathText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    PathExprText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    PatternText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    patternToFormatedStringText.XML.HXT.RelaxNG.PatternToString, Text.XML.HXT.RelaxNG
    patternToStringTreeText.XML.HXT.RelaxNG.PatternToString, Text.XML.HXT.RelaxNG
    PENTITYText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    percentText.XML.HXT.Parser.XmlDTDTokenParser
    PEREFText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    peReference
    1 (Function)Text.XML.HXT.Parser.XmlTokenParser
    2 (Function)Text.XML.HXT.Parser.XmlDTDTokenParser
    peReferenceTText.XML.HXT.Parser.XmlTokenParser
    performControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    performCheckText.XML.HXT.RelaxNG.DataTypeLibUtils
    PIText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    pIText.XML.HXT.Parser.XmlParsec
    pickleDocText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    PlusText.XML.HXT.XPath.XPathDataTypes
    Pos0Text.XML.HXT.XPath.XPathDataTypes
    PosInfText.XML.HXT.XPath.XPathDataTypes
    PrecedingText.XML.HXT.XPath.XPathDataTypes
    precedingAxisText.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    PrecedingSiblingText.XML.HXT.XPath.XPathDataTypes
    precedingSiblingAxisText.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    pred2XPathTreeText.XML.HXT.XPath.XPathToString, Text.XML.HXT.XPath
    PrefixText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    preorderNTData.NavTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    prepareContentsText.XML.HXT.Arrow.WriteDocument, Text.XML.HXT.Arrow
    prepareXSLTDocumentText.XML.HXT.XSLT.Compilation
    preventEmptyElementsText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    printREText.XML.HXT.DTDValidation.RE, Text.XML.HXT.DTDValidation.XmlRE
    processAttrlText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    processBottomUpControl.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    processBottomUpWhenNotControl.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    processChildrenControl.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    processDTDText.XML.HXT.Arrow.DTDProcessing
    processFromNodeSetText.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow
    processGeneralEntitiesText.XML.HXT.Arrow.GeneralEntitySubstitution, Text.XML.HXT.Arrow
    processTopDownControl.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    processTopDownUntilControl.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    processTopDownWithAttrlText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    processWithNsEnvText.XML.HXT.Arrow.Namespace, Text.XML.HXT.Arrow
    processWithNsEnvWithoutAttrlText.XML.HXT.Arrow.Namespace, Text.XML.HXT.Arrow
    processXPathTreesText.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow
    processXPathTreesWithNsEnvText.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow
    prologText.XML.HXT.Parser.XmlParsec
    propagateAndValidateNamespacesText.XML.HXT.Arrow.ProcessDocument, Text.XML.HXT.Arrow
    propagateNamespacesText.XML.HXT.Arrow.Namespace, Text.XML.HXT.Arrow
    PU
    1 (Type/Class)Text.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    2 (Data Constructor)Text.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    pubidLiteralText.XML.HXT.Parser.XmlTokenParser
    putXmlDocumentText.XML.HXT.Arrow.DocumentOutput, Text.XML.HXT.Arrow
    putXmlSourceText.XML.HXT.Arrow.DocumentOutput, Text.XML.HXT.Arrow
    putXmlTreeText.XML.HXT.Arrow.DocumentOutput, Text.XML.HXT.Arrow
    qattrText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    QNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    qNameText.XML.HXT.Parser.XmlTokenParser
    qualifiedNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    quotedText.XML.HXT.Parser.XmlTokenParser
    REText.XML.HXT.DTDValidation.RE, Text.XML.HXT.DTDValidation.XmlRE
    readDocumentText.XML.HXT.Arrow.ReadDocument, Text.XML.HXT.Arrow
    readForRelaxText.XML.HXT.RelaxNG.Validation, Text.XML.HXT.RelaxNG.Validator, Text.XML.HXT.RelaxNG
    readFromDocumentText.XML.HXT.Arrow.ReadDocument, Text.XML.HXT.Arrow
    readFromStringText.XML.HXT.Arrow.ReadDocument, Text.XML.HXT.Arrow
    readMimeTypeTableText.XML.HXT.DOM.MimeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    readStringText.XML.HXT.Arrow.ReadDocument, Text.XML.HXT.Arrow
    readWDefaultText.XML.HXT.XSLT.Common
    referenceText.XML.HXT.Parser.XmlTokenParser
    referenceTText.XML.HXT.Parser.XmlTokenParser
    RefListText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    RegexText.XML.HXT.RelaxNG.XmlSchema.Regex
    RelText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    relaxNamespaceText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    relaxOptionsText.XML.HXT.DOM.XmlOptions, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    relaxSchemaArrow
    1 (Function)Text.XML.HXT.RelaxNG.Schema
    2 (Function)Text.XML.HXT.RelaxNG.SchemaGrammar
    relaxSchemaFileText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    relaxSchemaGrammarFileText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    relaxSchemaTree
    1 (Function)Text.XML.HXT.RelaxNG.Schema
    2 (Function)Text.XML.HXT.RelaxNG.SchemaGrammar
    remAttrDecText.XML.HXT.Arrow.Pickle.DTD
    remDupsText.XML.HXT.XPath.XPathFct
    removeAllCommentText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    removeAllWhiteSpaceText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    removeAttrText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    removeCommentText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    removeDocWhiteSpaceText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    removeDoublicateDefs
    1 (Function)Text.XML.HXT.DTDValidation.DTDValidation
    2 (Function)Text.XML.HXT.DTDValidation.Validation
    removeEncodingSpec
    1 (Function)Text.XML.HXT.Parser.XmlParsec
    2 (Function)Text.XML.HXT.Arrow.ParserInterface
    removeOptionsText.XML.HXT.DOM.XmlOptions, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    removeQAttrText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    removeWhiteSpaceText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    RepText.XML.HXT.Arrow.Pickle.Schema
    replaceChildrenControl.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    returnAText.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    revPreorderNTData.NavTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    RE_ALTText.XML.HXT.DTDValidation.RE
    re_altText.XML.HXT.DTDValidation.RE, Text.XML.HXT.DTDValidation.XmlRE
    RE_DOTText.XML.HXT.DTDValidation.RE
    re_dotText.XML.HXT.DTDValidation.RE, Text.XML.HXT.DTDValidation.XmlRE
    RE_OPTText.XML.HXT.DTDValidation.RE
    re_optText.XML.HXT.DTDValidation.RE, Text.XML.HXT.DTDValidation.XmlRE
    RE_PLUSText.XML.HXT.DTDValidation.RE
    re_plusText.XML.HXT.DTDValidation.RE, Text.XML.HXT.DTDValidation.XmlRE
    RE_REPText.XML.HXT.DTDValidation.RE
    re_repText.XML.HXT.DTDValidation.RE, Text.XML.HXT.DTDValidation.XmlRE
    RE_SEQText.XML.HXT.DTDValidation.RE
    re_seqText.XML.HXT.DTDValidation.RE, Text.XML.HXT.DTDValidation.XmlRE
    RE_SYMText.XML.HXT.DTDValidation.RE
    re_symText.XML.HXT.DTDValidation.RE, Text.XML.HXT.DTDValidation.XmlRE
    RE_UNITText.XML.HXT.DTDValidation.RE
    re_unitText.XML.HXT.DTDValidation.RE, Text.XML.HXT.DTDValidation.XmlRE
    RE_ZEROText.XML.HXT.DTDValidation.RE
    re_zeroText.XML.HXT.DTDValidation.RE, Text.XML.HXT.DTDValidation.XmlRE
    rightText.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    rightNTData.NavTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    rnfAControl.Arrow.ArrowNF, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    rng_lengthText.XML.HXT.RelaxNG.DataTypeLibUtils
    rng_maxExclusiveText.XML.HXT.RelaxNG.DataTypeLibUtils
    rng_maxInclusiveText.XML.HXT.RelaxNG.DataTypeLibUtils
    rng_maxLengthText.XML.HXT.RelaxNG.DataTypeLibUtils
    rng_minExclusiveText.XML.HXT.RelaxNG.DataTypeLibUtils
    rng_minInclusiveText.XML.HXT.RelaxNG.DataTypeLibUtils
    rng_minLengthText.XML.HXT.RelaxNG.DataTypeLibUtils
    rootText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    rparText.XML.HXT.Parser.XmlTokenParser
    runInLocalURIContextText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    runIOLAControl.Arrow.IOListArrow, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    runIOSLAControl.Arrow.IOStateListArrow, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    runKleisliText.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    runLAControl.Arrow.ListArrow, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    runSLAControl.Arrow.StateListArrow, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    runStControl.Arrow.IOStateListArrow, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    runXText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    sattrText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    scAltText.XML.HXT.Arrow.Pickle.Schema
    scAltsText.XML.HXT.Arrow.Pickle.Schema
    scanRegexAText.XML.HXT.Arrow.XmlRegex
    scanXmlRegexText.XML.HXT.Arrow.XmlRegex
    scAttrText.XML.HXT.Arrow.Pickle.Schema
    scAttrToXmlText.XML.HXT.Arrow.Pickle.DTD
    scContText.XML.HXT.Arrow.Pickle.DTD
    scContsText.XML.HXT.Arrow.Pickle.DTD
    scContToXmlText.XML.HXT.Arrow.Pickle.DTD
    scDTText.XML.HXT.Arrow.Pickle.Schema
    scDTxsdText.XML.HXT.Arrow.Pickle.Schema
    scElemText.XML.HXT.Arrow.Pickle.Schema
    scEmptyText.XML.HXT.Arrow.Pickle.Schema
    scEnumText.XML.HXT.Arrow.Pickle.Schema
    scFixedText.XML.HXT.Arrow.Pickle.Schema
    SchemaText.XML.HXT.Arrow.Pickle.Schema, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    SchemasText.XML.HXT.Arrow.Pickle.Schema, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    scListText.XML.HXT.Arrow.Pickle.Schema
    scList1Text.XML.HXT.Arrow.Pickle.Schema
    scNmtokenText.XML.HXT.Arrow.Pickle.Schema
    scNmtokensText.XML.HXT.Arrow.Pickle.Schema
    scNullText.XML.HXT.Arrow.Pickle.Schema
    scOptText.XML.HXT.Arrow.Pickle.Schema
    scOptionText.XML.HXT.Arrow.Pickle.Schema
    scRepText.XML.HXT.Arrow.Pickle.Schema
    scSeqText.XML.HXT.Arrow.Pickle.Schema
    scSeqsText.XML.HXT.Arrow.Pickle.Schema
    scStringText.XML.HXT.Arrow.Pickle.Schema
    scString1Text.XML.HXT.Arrow.Pickle.Schema
    scWrapText.XML.HXT.Arrow.Pickle.DTD
    sc_1Text.XML.HXT.Arrow.Pickle.Schema
    sc_dtText.XML.HXT.Arrow.Pickle.Schema
    sc_lText.XML.HXT.Arrow.Pickle.Schema
    sc_lbText.XML.HXT.Arrow.Pickle.Schema
    sc_nText.XML.HXT.Arrow.Pickle.Schema
    sc_ubText.XML.HXT.Arrow.Pickle.Schema
    sDDeclText.XML.HXT.Parser.XmlParsec
    secondText.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    sedText.XML.HXT.RelaxNG.XmlSchema.RegexMatch, Text.XML.HXT.RelaxNG
    sedREText.XML.HXT.RelaxNG.XmlSchema.RegexMatch, Text.XML.HXT.RelaxNG
    SelectExpr
    1 (Type/Class)Text.XML.HXT.XSLT.CompiledStylesheet
    2 (Data Constructor)Text.XML.HXT.XSLT.CompiledStylesheet
    selectOptionsText.XML.HXT.DOM.XmlOptions, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    selemText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    SelfText.XML.HXT.XPath.XPathDataTypes
    selfAxisText.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes
    semiText.XML.HXT.Parser.XmlTokenParser
    separatorText.XML.HXT.Parser.XmlTokenParser
    SeqText.XML.HXT.Arrow.Pickle.Schema
    seqAControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    setAttributeText.XML.HXT.XSLT.Common
    setAttrlText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    setAttrName
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    setBaseURIText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    setChildren
    1 (Function)Data.Tree.Class, Data.Tree.NTree.TypeDefs, Data.NavTree, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    2 (Function)Control.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    setCmtText.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    setDefaultBaseURIText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    setDocumentStatusText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    setDocumentStatusFromSystemStateText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    setDTDAttrlText.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    setDTDAttrValueText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    setElemAttrlText.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    setElemName
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    setErrMsgStatusText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    setErrorMsgHandlerText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    setErrStatusText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    setLocalPart'Text.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    setMimeTypeTableText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    setMimeTypeTableFromFileText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    setNameText.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    setNamePrefix'Text.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    setNamespaceText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    setNamespaceUri'Text.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    setNode
    1 (Function)Data.Tree.Class, Data.Tree.NTree.TypeDefs, Data.NavTree, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    2 (Function)Control.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    setParamText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    setParamIntText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    setParamListText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    setParamStringText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    setPiName
    1 (Function)Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    setQNameText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    setRngNameText.XML.HXT.RelaxNG.BasicArrows
    setRngNameDivText.XML.HXT.RelaxNG.BasicArrows
    setRngNameRefText.XML.HXT.RelaxNG.BasicArrows
    setStateControl.Arrow.ArrowState, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    setTextText.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    setTraceLevelText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    setUriMapText.XML.HXT.XSLT.Common
    setUserStateText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    shareData.Atom
    showDatatypeText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    showElemTypeText.XML.HXT.DOM.ShowXml
    showOptionsText.XML.HXT.DOM.XmlOptions, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    showTreesText.XML.HXT.XSLT.Common
    singleControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    singleCharText.XML.HXT.Parser.XmlTokenParser
    singleCharsText.XML.HXT.Parser.XmlTokenParser
    singleCharsTText.XML.HXT.Parser.XmlTokenParser
    singlesText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    skipSText.XML.HXT.Parser.XmlTokenParser
    skipS0Text.XML.HXT.Parser.XmlTokenParser
    SLA
    1 (Type/Class)Control.Arrow.StateListArrow, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    2 (Data Constructor)Control.Arrow.StateListArrow, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    SortKText.XML.HXT.XSLT.CompiledStylesheet
    SortKeyText.XML.HXT.XSLT.CompiledStylesheet
    sPaceText.XML.HXT.Parser.XmlTokenParser
    sPace0Text.XML.HXT.Parser.XmlTokenParser
    spanAControl.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    spiText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    splitText.XML.HXT.RelaxNG.XmlSchema.RegexMatch, Text.XML.HXT.RelaxNG
    splitExprText.XML.HXT.XSLT.Common
    splitMatchByPrioText.XML.HXT.XSLT.Common
    splitREText.XML.HXT.RelaxNG.XmlSchema.RegexMatch, Text.XML.HXT.RelaxNG
    splitRegexAText.XML.HXT.Arrow.XmlRegex
    splitXmlRegexText.XML.HXT.Arrow.XmlRegex
    sqText.XML.HXT.Parser.XmlTokenParser
    sqattrText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    St
    1 (Type/Class)Text.XML.HXT.Arrow.Pickle.Xml
    2 (Data Constructor)Text.XML.HXT.Arrow.Pickle.Xml
    StepText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    strictAControl.Arrow.ArrowNF, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    stringEscapeXmlText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    StringExpr
    1 (Type/Class)Text.XML.HXT.XSLT.CompiledStylesheet
    2 (Data Constructor)Text.XML.HXT.XSLT.CompiledStylesheet
    stringProtocolText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    stringToHexStringText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    stringToIntText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    stringToUpperText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    stringTrimText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    stringValidText.XML.HXT.RelaxNG.DataTypeLibUtils
    stringValidFTText.XML.HXT.RelaxNG.DataTypeLibUtils
    stringValueText.XML.HXT.XPath.XPathFct
    stripDocumentText.XML.HXT.XSLT.CompiledStylesheet
    StripsText.XML.HXT.XSLT.CompiledStylesheet
    stripSpacesText.XML.HXT.XSLT.CompiledStylesheet
    stripStylesheetText.XML.HXT.XSLT.CompiledStylesheet
    substEntityRefsText.XML.HXT.Arrow.ParserInterface
    substHtmlEntityRefsText.XML.HXT.Arrow.ParserInterface
    substXmlEntityRefsText.XML.HXT.Arrow.ParserInterface
    subtreeNTData.NavTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    swapText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    systemLiteralText.XML.HXT.Parser.XmlTokenParser
    tagAControl.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    TemplApplyText.XML.HXT.XSLT.CompiledStylesheet
    TemplApplyImportsText.XML.HXT.XSLT.CompiledStylesheet
    TemplateText.XML.HXT.XSLT.CompiledStylesheet
    TemplAttributeText.XML.HXT.XSLT.CompiledStylesheet
    TemplCallText.XML.HXT.XSLT.CompiledStylesheet
    TemplChooseText.XML.HXT.XSLT.CompiledStylesheet
    TemplCommentText.XML.HXT.XSLT.CompiledStylesheet
    TemplCompositeText.XML.HXT.XSLT.CompiledStylesheet
    TemplCopyText.XML.HXT.XSLT.CompiledStylesheet
    TemplCopyOfText.XML.HXT.XSLT.CompiledStylesheet
    TemplElementText.XML.HXT.XSLT.CompiledStylesheet
    TemplForEachText.XML.HXT.XSLT.CompiledStylesheet
    TemplMessageText.XML.HXT.XSLT.CompiledStylesheet
    TemplProcInstrText.XML.HXT.XSLT.CompiledStylesheet
    TemplTextText.XML.HXT.XSLT.CompiledStylesheet
    TemplValueOfText.XML.HXT.XSLT.CompiledStylesheet
    TemplVariableText.XML.HXT.XSLT.CompiledStylesheet
    TestExpr
    1 (Type/Class)Text.XML.HXT.XSLT.CompiledStylesheet
    2 (Data Constructor)Text.XML.HXT.XSLT.CompiledStylesheet
    TextText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    textDeclText.XML.HXT.Parser.XmlParsec
    textEscapeXmlText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    text_htmlText.XML.HXT.DOM.MimeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    text_xmlText.XML.HXT.DOM.MimeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    text_xml_external_parsed_entityText.XML.HXT.DOM.MimeTypes, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    thePicklerDTDText.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    theSchemaText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    thisControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    this'Text.XML.HXT.Arrow.XPathSimple
    this''Text.XML.HXT.Arrow.XPathSimple
    thisNodeText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    tokenizeText.XML.HXT.RelaxNG.XmlSchema.RegexMatch, Text.XML.HXT.RelaxNG
    tokenize'Text.XML.HXT.RelaxNG.XmlSchema.RegexMatch, Text.XML.HXT.RelaxNG
    tokenizeREText.XML.HXT.RelaxNG.XmlSchema.RegexMatch, Text.XML.HXT.RelaxNG
    tokenizeRE'Text.XML.HXT.RelaxNG.XmlSchema.RegexMatch, Text.XML.HXT.RelaxNG
    toMaybeText.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    toNsEnvText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    toNumberText.XML.HXT.Arrow.XPathSimple
    toThisText.XML.HXT.Arrow.XPathSimple
    toXPathTreeText.XML.HXT.XPath.XPathToString, Text.XML.HXT.XPath
    toXValueText.XML.HXT.XPath.XPathFct
    traceText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    traceDocText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    traceMsgText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    traceSourceText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    traceStateText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    traceStringText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    traceTreeText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    traceValueText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    transfAllCdataText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    transfAllCharRefText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    transfCdataText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    transfCharRefText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    transferDefaultURIText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    transferEncodingText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    transferMessageText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    transferMimeTypeText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    transferPrefixText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    transferProtocolText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    transferStatusText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    transferURIText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    transferVersionText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    transform
    1 (Function)Text.XML.HXT.DTDValidation.DocTransformation
    2 (Function)Text.XML.HXT.DTDValidation.Validation
    transformDocText.XML.HXT.Arrow.ParserInterface
    TreeData.Tree.Class, Data.Tree.NTree.TypeDefs, Data.NavTree, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Control.Arrow.ArrowTree, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    treeRepOfXmlDocText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    tryFetchAttributeText.XML.HXT.XSLT.Common
    tryGetXPathText.XML.HXT.Arrow.XPathSimple
    txtText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    TypeTestText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    t_rootText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    t_xmlText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    ucs2Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    ucs2BigEndianToUnicodeText.XML.HXT.DOM.Unicode
    ucs2LittleEndianToUnicodeText.XML.HXT.DOM.Unicode
    ucs2ToUnicodeText.XML.HXT.DOM.Unicode
    UnaryText.XML.HXT.XPath.XPathDataTypes
    uncurry3Text.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    uncurry4Text.XML.HXT.DOM.Util, Text.XML.HXT.DOM.Interface, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    UnicodeText.XML.HXT.DOM.Unicode
    unicodeCharToUtf8Text.XML.HXT.DOM.Unicode
    unicodeRemoveNoneAsciiText.XML.HXT.DOM.Unicode
    unicodeRemoveNoneLatin1Text.XML.HXT.DOM.Unicode
    unicodeStringText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    unicodeToLatin1Text.XML.HXT.DOM.Unicode
    unicodeToUtf8Text.XML.HXT.DOM.Unicode
    unicodeToXmlEntityText.XML.HXT.DOM.Unicode
    UnionText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    unionExprText.XML.HXT.XSLT.Common
    uniqueNamespacesText.XML.HXT.Arrow.Namespace, Text.XML.HXT.Arrow
    uniqueNamespacesFromDeclAndQNamesText.XML.HXT.Arrow.Namespace, Text.XML.HXT.Arrow
    universalNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    universalUriText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    unlistAControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    unpickleDocText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    unsetParamText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    unwrapText.XML.HXT.Arrow.XPathSimple
    unzipTreeText.XML.HXT.XSLT.Common
    upNTData.NavTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    UriText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    uriMap2AttrsText.XML.HXT.XSLT.Common
    UriMappingText.XML.HXT.XSLT.Common
    usAsciiText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    UsedAttribSets
    1 (Type/Class)Text.XML.HXT.XSLT.CompiledStylesheet
    2 (Data Constructor)Text.XML.HXT.XSLT.CompiledStylesheet
    UStringText.XML.HXT.DOM.Unicode
    UStringWithErrorsText.XML.HXT.DOM.Unicode
    utf16Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    utf16beText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    utf16beToUnicodeText.XML.HXT.DOM.Unicode
    utf16leText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    utf16leToUnicodeText.XML.HXT.DOM.Unicode
    utf8Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    UTF8CharText.XML.HXT.DOM.Unicode
    UTF8StringText.XML.HXT.DOM.Unicode
    utf8ToUnicodeText.XML.HXT.DOM.Unicode
    utf8ToUnicodeEmbedErrorsText.XML.HXT.DOM.Unicode
    validate
    1 (Function)Text.XML.HXT.DTDValidation.Validation
    2 (Function)Text.XML.HXT.RelaxNG.Validator, Text.XML.HXT.RelaxNG
    validateDoc
    1 (Function)Text.XML.HXT.DTDValidation.DocValidation
    2 (Function)Text.XML.HXT.DTDValidation.Validation
    3 (Function)Text.XML.HXT.Arrow.ParserInterface
    validateDocumentText.XML.HXT.Arrow.ProcessDocument, Text.XML.HXT.Arrow
    validateDocumentWithRelaxText.XML.HXT.RelaxNG.Validator, Text.XML.HXT.RelaxNG
    validateDocumentWithRelaxSchemaText.XML.HXT.RelaxNG.Validator, Text.XML.HXT.RelaxNG
    validateDocWithRelaxText.XML.HXT.RelaxNG.Validation, Text.XML.HXT.RelaxNG.Validator, Text.XML.HXT.RelaxNG
    validateDTD
    1 (Function)Text.XML.HXT.DTDValidation.DTDValidation
    2 (Function)Text.XML.HXT.DTDValidation.Validation
    validateIdsText.XML.HXT.DTDValidation.IdValidation
    validateNamespacesText.XML.HXT.Arrow.Namespace, Text.XML.HXT.Arrow
    validateRelaxText.XML.HXT.RelaxNG.Validation, Text.XML.HXT.RelaxNG.Validator, Text.XML.HXT.RelaxNG
    validateSchemaText.XML.HXT.RelaxNG.Validator, Text.XML.HXT.RelaxNG
    validateSchemaWithSpezificationText.XML.HXT.RelaxNG.Validator, Text.XML.HXT.RelaxNG
    validateWithoutSpezificationText.XML.HXT.RelaxNG.Validator, Text.XML.HXT.RelaxNG
    validateWithRelaxAndHandleErrorsText.XML.HXT.RelaxNG.Validation, Text.XML.HXT.RelaxNG.Validator, Text.XML.HXT.RelaxNG
    validateWithSpezificationText.XML.HXT.RelaxNG.Validator, Text.XML.HXT.RelaxNG
    validateXMLDocText.XML.HXT.RelaxNG.Validation, Text.XML.HXT.RelaxNG.Validator, Text.XML.HXT.RelaxNG
    ValueText.XML.HXT.RelaxNG.DataTypes, Text.XML.HXT.RelaxNG.DataTypeLibUtils, Text.XML.HXT.RelaxNG
    valueOfText.XML.HXT.DTDValidation.TypeDefs
    valueOfDTDText.XML.HXT.DTDValidation.TypeDefs
    varEnvText.XML.HXT.XPath.XPathDataTypes
    VarExprText.XML.HXT.XPath.XPathDataTypes
    VariableText.XML.HXT.XSLT.CompiledStylesheet
    VarNameText.XML.HXT.XPath.XPathDataTypes
    VarTabText.XML.HXT.XPath.XPathDataTypes
    versionInfoText.XML.HXT.Parser.XmlParsec
    versionNumText.XML.HXT.Parser.XmlTokenParser
    versionOptionsText.XML.HXT.DOM.XmlOptions, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    v_0Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    v_1Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    v_anyText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    v_childrenText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    v_choiceText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    v_emptyText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    v_mixedText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    v_noText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    v_nullText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    v_optionText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    v_pcdataText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    v_plusText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    v_seqText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    v_starText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    v_yesText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    w3cDatatypeLibText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    w3cNSText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    warnText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    WhenText.XML.HXT.XSLT.CompiledStylesheet
    whenControl.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    whenNotControl.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    whenNotPControl.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    whenPControl.Arrow.ArrowIf, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    WhenPartText.XML.HXT.XSLT.CompiledStylesheet
    withDefaultControl.Arrow.ArrowList, Text.XML.HXT.DTDValidation.TypeDefs, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    withExtendedUserStateText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    withOtherUserStateText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    withTraceLevelText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    writeDocumentText.XML.HXT.Arrow.WriteDocument, Text.XML.HXT.Arrow
    writeDocumentToStringText.XML.HXT.Arrow.WriteDocument, Text.XML.HXT.Arrow
    XAttrText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    xbooleanText.XML.HXT.XPath.XPathFct
    XCdataText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    XCharRefText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    XCmtText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    XDTDText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    XEntityRefText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    XErrorText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    XFctText.XML.HXT.XPath.XPathFct
    xhtmlEntitiesText.XML.HXT.Parser.XhtmlEntities
    xIndexText.XML.HXT.Arrow.XPathSimple
    XIOState
    1 (Type/Class)Text.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    2 (Data Constructor)Text.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    XIOSysText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    XIOSysStateText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    xio_attrListText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    xio_baseURIText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    xio_defaultBaseURIText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    xio_errorModuleText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    xio_errorMsgCollectText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    xio_errorMsgHandlerText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    xio_errorMsgListText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    xio_errorStatusText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    xio_mimeTypesText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    xio_sysStateText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    xio_traceText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    xio_userStateText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow
    XmlArrowText.XML.HXT.DTDValidation.TypeDefs
    XmlArrowSText.XML.HXT.DTDValidation.TypeDefs
    xmlCharText.XML.HXT.Parser.XmlCharParser
    xMLDeclText.XML.HXT.Parser.XmlParsec
    xMLDecl'Text.XML.HXT.Parser.XmlParsec
    xmlEntitiesText.XML.HXT.Parser.XmlEntities
    xmlLetterText.XML.HXT.Parser.XmlCharParser
    xmlNameCharText.XML.HXT.Parser.XmlCharParser
    xmlNamespaceText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    xmlNamespaceXNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    xmlNameStartCharText.XML.HXT.Parser.XmlCharParser
    xmlNCNameCharText.XML.HXT.Parser.XmlCharParser
    xmlNCNameStartCharText.XML.HXT.Parser.XmlCharParser
    XmlNodeText.XML.HXT.DOM.XmlNode, Text.XML.HXT.XSLT.Common
    XmlNodeSetText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    xmlnsNamespaceText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    xmlnsNamespaceXNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    xmlnsQNText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    xmlnsXNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    XmlPicklerText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    XmlRegexText.XML.HXT.Arrow.XmlRegex
    xmlSpaceText.XML.HXT.XSLT.Names
    xmlSpaceCharText.XML.HXT.Parser.XmlCharParser
    XmlTreeText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    XmlTreesText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    xmlTreeToPatternFormatedStringText.XML.HXT.RelaxNG.PatternToString, Text.XML.HXT.RelaxNG
    xmlTreeToPatternStringText.XML.HXT.RelaxNG.PatternToString, Text.XML.HXT.RelaxNG
    xmlTreeToPatternStringTreeText.XML.HXT.RelaxNG.PatternToString, Text.XML.HXT.RelaxNG
    xmlXNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    XNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    XNodeText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    XNSText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    xnumberText.XML.HXT.XPath.XPathFct
    xNumber'Text.XML.HXT.Arrow.XPathSimple
    xp4TupleText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xp5TupleText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xp6TupleText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpAddFixedAttrText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpAltText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    XPArrowText.XML.HXT.Arrow.XPathSimple
    xPathAddText.XML.HXT.XPath.XPathArithmetic
    xPathDivText.XML.HXT.XPath.XPathArithmetic
    XPathFilterText.XML.HXT.XPath.XPathDataTypes
    xPathModText.XML.HXT.XPath.XPathArithmetic
    xPathMultiText.XML.HXT.XPath.XPathArithmetic
    XPathNodeText.XML.HXT.XPath.XPathDataTypes
    XPathParamsText.XML.HXT.XSLT.Application
    xPathUnaryText.XML.HXT.XPath.XPathArithmetic
    XPathValueText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    xpAttrText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpAttrFixedText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpAttrImpliedText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpAttrQNText.XML.HXT.Arrow.Pickle.Xml
    xpChoiceText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    XPCommentNodeText.XML.HXT.XPath.XPathDataTypes
    xpCondSeqText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpDefaultText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpElemText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpElemQNText.XML.HXT.Arrow.Pickle.Xml
    xpElemWithAttrValueText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    XPiText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    xpickleText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpickleDocumentText.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpickleDTDText.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpickleValText.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpickleWriteDTDText.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpLiftText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpLiftMaybeText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpListText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpList1Text.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpMapText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    XPNodeText.XML.HXT.XPath.XPathDataTypes
    XPNumberText.XML.HXT.XPath.XPathDataTypes
    xpOptionText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpPairText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    XPPINodeText.XML.HXT.XPath.XPathDataTypes
    xpPrimText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpSeqText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpTextText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpText0Text.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpText0DTText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpTextDTText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    XPTextNodeText.XML.HXT.XPath.XPathDataTypes
    xpTreeText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpTreesText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpTripleText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpUnitText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xPValue2NodeSetText.XML.HXT.XPath.XPathToNodeSet
    xPValue2StringText.XML.HXT.XPath.XPathToString, Text.XML.HXT.XPath
    xPValue2XmlTreesText.XML.HXT.XPath.XPathToString, Text.XML.HXT.XPath, Text.XML.HXT.XSLT.Common
    XPVBoolText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    XPVErrorText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    XPVNodeText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    XPVNumberText.XML.HXT.XPath.XPathDataTypes
    XPVStringText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    xpWrapText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpWrapMaybeText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpXmlTextText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xpZeroText.XML.HXT.Arrow.Pickle.Xml, Text.XML.HXT.Arrow.Pickle, Text.XML.HXT.Arrow
    xread
    1 (Function)Text.XML.HXT.Parser.XmlParsec
    2 (Function)Text.XML.HXT.Arrow.ReadDocument, Text.XML.HXT.Arrow
    xsdParamText.XML.HXT.Arrow.Pickle.Schema
    xsd_anyURIText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_base64BinaryText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_decimalText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_ENTITIESText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_ENTITYText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_enumerationText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_fractionDigitsText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_hexBinaryText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_IDText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_IDREFText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_IDREFSText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_languageText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_lengthText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_maxExclusiveText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_maxInclusiveText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_maxLengthText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_minExclusiveText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_minInclusiveText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_minLengthText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_NameText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_NCNameText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_NMTOKENText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_NMTOKENSText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_normalizedStringText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_NOTATIONText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_patternText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_QNameText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_stringText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_tokenText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xsd_totalDigitsText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
    xshow
    1 (Function)Text.XML.HXT.DOM.ShowXml
    2 (Function)Text.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    xshowEscapeXmlText.XML.HXT.Arrow.Edit, Text.XML.HXT.Arrow
    xsltApplyImportsText.XML.HXT.XSLT.Names
    xsltApplyStylesheetText.XML.HXT.XSLT.XsltArrows, Text.XML.HXT.Arrow
    xsltApplyStylesheetFromURIText.XML.HXT.XSLT.XsltArrows, Text.XML.HXT.Arrow
    xsltApplyTemplatesText.XML.HXT.XSLT.Names
    xsltAttributeText.XML.HXT.XSLT.Names
    xsltAttributeSetText.XML.HXT.XSLT.Names
    xsltCallTemplateText.XML.HXT.XSLT.Names
    xsltChooseText.XML.HXT.XSLT.Names
    xsltCommentText.XML.HXT.XSLT.Names
    xsltCompileStylesheetText.XML.HXT.XSLT.XsltArrows, Text.XML.HXT.Arrow
    xsltCompileStylesheetFromURIText.XML.HXT.XSLT.XsltArrows, Text.XML.HXT.Arrow
    xsltCopyText.XML.HXT.XSLT.Names
    xsltCopyOfText.XML.HXT.XSLT.Names
    xsltDataTypeText.XML.HXT.XSLT.Names
    xsltElementText.XML.HXT.XSLT.Names
    xsltElementsText.XML.HXT.XSLT.Names
    xsltExlcudeResultPrefixesText.XML.HXT.XSLT.Names
    xsltExlcudeResultPrefixesLREText.XML.HXT.XSLT.Names
    xsltExtensionElementPrefixesText.XML.HXT.XSLT.Names
    xsltExtensionElementPrefixesLREText.XML.HXT.XSLT.Names
    xsltForEachText.XML.HXT.XSLT.Names
    xsltHRefText.XML.HXT.XSLT.Names
    xsltIfText.XML.HXT.XSLT.Names
    xsltImportText.XML.HXT.XSLT.Names
    xsltIncludeText.XML.HXT.XSLT.Names
    xsltMatchText.XML.HXT.XSLT.Names
    xsltMessageText.XML.HXT.XSLT.Names
    xsltModeText.XML.HXT.XSLT.Names
    xsltNameText.XML.HXT.XSLT.Names
    xsltNamespaceText.XML.HXT.XSLT.Names
    xsltNamespaceAliasText.XML.HXT.XSLT.Names
    xsltOrderText.XML.HXT.XSLT.Names
    xsltOtherwiseText.XML.HXT.XSLT.Names
    xsltParamText.XML.HXT.XSLT.Names
    xsltPrefixText.XML.HXT.XSLT.Names
    xsltPreserveSpaceText.XML.HXT.XSLT.Names
    xsltPriorityText.XML.HXT.XSLT.Names
    xsltProcInstrText.XML.HXT.XSLT.Names
    xsltResultPrefixText.XML.HXT.XSLT.Names
    xsltSelectText.XML.HXT.XSLT.Names
    xsltSortText.XML.HXT.XSLT.Names
    xsltStripSpaceText.XML.HXT.XSLT.Names
    xsltStylesheetText.XML.HXT.XSLT.Names
    xsltStylesheetPrefixText.XML.HXT.XSLT.Names
    xsltTemplateText.XML.HXT.XSLT.Names
    xsltTerminateText.XML.HXT.XSLT.Names
    xsltTestText.XML.HXT.XSLT.Names
    xsltTextText.XML.HXT.XSLT.Names
    xsltTransformText.XML.HXT.XSLT.Names
    xsltUriText.XML.HXT.XSLT.Names
    xsltUseAttributeSetsText.XML.HXT.XSLT.Names
    xsltUseAttributeSetsLREText.XML.HXT.XSLT.Names
    xsltValueOfText.XML.HXT.XSLT.Names
    xsltVariableText.XML.HXT.XSLT.Names
    xsltVersionText.XML.HXT.XSLT.Names
    xsltVersionLREText.XML.HXT.XSLT.Names
    xsltWhenText.XML.HXT.XSLT.Names
    xsltWithParamText.XML.HXT.XSLT.Names
    XStepText.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.XSLT.Common
    xStringText.XML.HXT.Arrow.XPathSimple
    xstringText.XML.HXT.XPath.XPathFct
    XTagText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow
    XTextText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.Interface, Text.XML.HXT.DTDValidation.TypeDefs, Text.XML.HXT.Arrow
    hxt-8.2.0: A collection of tools for processing XML with Haskell.hxt-8.3.0: A collection of tools for processing XML with Haskell. hxt-8.2.0: A collection of tools for processing XML with Haskell.Contents
    hxt-8.2.0: A collection of tools for processing XML with Haskell.
    class(Arrowa)=>ArrowNFawherernfA::(NFDatac)=>abc->abcrnfAf=f>>>strictA + +-- ------------------------------------------------------------ diff --git a/doc/hdoc/src/Data-Tree-NTree-Filter.html b/doc/hdoc/src/Data-Tree-NTree-Filter.html deleted file mode 100644 --- a/doc/hdoc/src/Data-Tree-NTree-Filter.html +++ /dev/null @@ -1,923 +0,0 @@ - - - - -Haskell Code by HsColour - - - -
    -- ------------------------------------------------------------
-
-{- |
-   Module     : Data.Tree.NTree.Filter
-   Copyright  : Copyright (C) 2005 Uwe Schmidt
-   License    : MIT
-
-   Maintainer : Uwe Schmidt (uwe\@fh-wedel.de)
-   Stability  : experimental
-   Portability: portable
-   Version    : $Id: Filter.hs,v 1.6 2006/11/12 14:52:59 hxml Exp $
-
-Filter for n-ary tree structure with filter combinators
-copied and modified from HxXml (<http://www.cs.york.ac.uk/fp/HaXml/>)
-
-Similar but more flexible functions for tree processing are defined in the
-arrow classes "Control.Arrow.ArrowList", "Control.Arrow.ArrowIf", "Control.Arrow.ArrowTree" and "Control.Arrow.ArrowState".
-For new applications, especially for XML processing, it's recommended to use the arrow interface
-"Text.XML.HXT.Arrow" instead of this filter approach as part of the api "Text.XML.HXT.Parser"
-
--}
-
--- ------------------------------------------------------------
-
-module Data.Tree.NTree.Filter
-    ( module Data.Tree.NTree.TypeDefs
-    , TFilter
-    , TSFilter
-    , satisfies
-
-    -- * Filter
-    , none		-- simple filter
-    , this
-
-    , isOf
-    , isOfNode		-- predicate filter
-
-    , mkNTree		-- contructor filter
-
-    , replaceNode	-- simple editing
-    , replaceChildren
-
-    , modifyNode
-    , modifyNode0
-    , modifyChildren
-    , substChildren
-    , processChildren	-- filter combinators
-
-    , o
-    , (.>)
-    , seqF
-    , (..>)
-    , (+++)
-    , cat
-
-    , orElse		-- choices
-    , iff		-- if then else filter
-    , choice
-    , IfThen(..)
-    , when
-    , whenNot
-    , guards
-    , neg		-- negation
-    , containing	-- previous: with, but with is keyword in haskell extensions
-    , notContaining	-- previous: without
-
-    , (/>)		-- selectors
-    , (</)
-    , deep		-- recursive search
-    , deepest
-    , multi
-    , processBottomUp	-- recursive editing
-    , processBottomUpIfNot
-    , processTopDown
-    , processTopDownUntil
-    , insertChildrenAt
-    , insertChildrenAfter
-
-      -- * Monadic Filter
-    , thisM		-- monadic filter
-    , noneM
-    , (.>>)		-- monadic composition
-    , seqM		-- generalisation of .>>
-    , (+++>>)		-- monadic parallel combination, monadic +++
-    , catM		-- monadic form of cat
-    , ifM		-- monadic if then else
-    , choiceM		-- monadic choice
-    , whenM		-- special monadic ifs
-    , whenNotM
-    , guardsM
-    , containingM
-    , processChildrenM	-- monadic versions of recursive editing
-    , processTopDownM
-    , processBottomUpM
-    , liftMf		-- lift a normal filter to a monadic filter
-    , ($$)		-- apply a filter to a list
-    , ($$<)		-- apply a monad filter to a list
-    , performAction	-- run a command within a filter
-    )
-
-where
-
-
-import Data.Tree.NTree.TypeDefs
-
-infixl 6 `containing`, `notContaining`, `containingM`
-infixr 5 `o`, +++, +++>>
-infixl 5 />, </, `orElse`, .>, ..>, .>>
-infixr 4 `when`, `whenNot`, `guards`, `whenM`, `whenNotM`, `guardsM`
-infixr 3 :->
-infixr 0 $$, $$<
-
--- |
--- tree filter type: a function mapping a tree onto a list of trees
---
--- filter can be used in various ways, as predicates, selectors, transformers, ...
-
-type TFilter  node	= NTree  node -> NTrees node
-
--- |
--- a filter for sequences
-
-type TSFilter node	= NTrees node -> NTrees node
-
--- ------------------------------------------------------------
-
--- |
--- satisfies converts a result of a predicate filter into a boolean
---
--- is a shortcut for not . null
---
--- typical use in guards or ifs: @if (satisfies f) t then ... else ... @
---
---    * 1.parameter f :  the predicate filter
---
---    - 2.parameter t :  the tree to be tested
---
---    - returns : @b = not (null (f t))@
-
-satisfies	:: (a -> [b]) -> a -> Bool
-satisfies f	= not . null . f
-
--- ------------------------------------------------------------
---
--- simple filter
-
--- |
--- the null filter, returns the empty list
-
-none		:: a -> [b]
-none _		= []
-
--- |
--- the unit filter, returns the single element list containing the argument
-
-this		:: a -> [a]
-this n		= [n]
-
--- ------------------------------------------------------------
---
--- selecting filter
-
--- |
--- conversion from predicate function to filter
---
---    * 1.parameter p :  the predicate for testing the tree
---
---    - returns : 'this' or 'none' depending on the predicate
-
-isOf		:: (a -> Bool) -> (a -> [a])
-isOf p t
-    = if p t then [t] else []
-
--- |
--- select filter, selects trees with node values with a specific property
---
---    * 1.parameter p :  the predicate for testing the node value
---
---    - returns : @[]@ or @[t]@ depending on @p t@
---
--- a special case of 'isOf' filter
-
-isOfNode	:: (node -> Bool) -> TFilter node
-isOfNode p	= isOf (p . getNode)
-
--- ------------------------------------------------------------
---
--- simple editing filters
-
--- |
--- filter for substituting an arbitray tree by a constant
---
---    * 1.parameter t :  the result tree, the input tree is ignored
---
---    - returns : the filter
-
-mkNTree		:: NTree node -> TFilter node
-mkNTree t	= const [t]
-
--- |
--- filter for replacing the node
---
---    * 1.parameter n :  the new node
---
---    - returns : the editing filter
-
-replaceNode	:: node -> TFilter node
-replaceNode n (NTree _ cs)
-    = [NTree n cs]
-
--- |
--- filter for replacing the children
---
---    * 1.parameter cs :  cs the list of children
---
---    - returns : the filter
-
-replaceChildren	:: NTrees node -> TFilter node
-replaceChildren cs (NTree n _)
-    = [NTree n cs]
-
-modifyNode	:: (node -> Maybe node) -> TFilter node
-modifyNode tf (NTree n cs)
-    = maybe [] (\ n' -> [NTree n' cs]) (tf n)
-
--- |
--- filter for editing the node
---
---    * 1.parameter nf :  the XNode editing funtion
---
---    - returns : the filter
-
-modifyNode0	:: (node -> node) -> TFilter node
-modifyNode0 tf	= modifyNode (Just . tf)
-
--- |
--- filter for editing the children
---
--- all children are processed with a filter mapping lists to lists,
--- this enables not only elementwise editing by lifting a normal
--- filter to a list filter with @(f $$)@ (see '($$)') but also manipulation
--- of the order of the elements, e.g. "reverse" is an appropriate childen
--- editing function.
---
---    * 1.parameter csf :  the children editing function
---
---    - returns : the filter
---
--- see also : 'processChildren'
-
-modifyChildren	:: TSFilter node -> TFilter node
-modifyChildren f -- (NTree n cs)
-    -- = [NTree n (f cs)]
-    = substChildren (f . getChildren)
-
--- |
--- filter for substituting the children of a tree by
--- a new list of childen computed by applying a filter to the input tree.
--- 'modifyChildren' can be expressed by 'substChildren':
--- @modifyChildren f t@ is equal to @substChildren (f . getChildren)@
-
-substChildren	:: TFilter node -> TFilter node
-substChildren f t@(NTree n _cs)
-    = [NTree n (f t)]
-
--- ------------------------------------------------------------
---
--- combinators (copied from HaXml)
---
-
--- |
--- sequential composition of filters, usually written in infix notation f2 `o` f1.
---
--- for predicate filter the logical AND
---
---    * 1.parameter f2 :  the 2. filter
---
---    - 2.parameter f1 :  the 1. filter
---
---    - returns : the fiter applying first f1 to n and then f2 to the result (like function composition)
-
-o		:: (a -> [b]) -> (c -> [a]) -> (c -> [b])
-f `o` g		= concatMap f . g
-
--- |
--- pronounced \"followed by\", defined as: @f .> g = g \`o\` f@.
---
--- allows filter composition in a more readable way from left to right
---
---    * 1.parameter f1 :  the 1. filter
---
---    - 2.parameter f2 :  the 2. filter
---
---    - returns : the composition of f1 and f2
---
--- see also : 'o', '(..>)'
-
-(.>)		:: (a -> [b]) -> (b -> [c]) -> (a -> [c])
-f .> g		= g `o` f
-
--- |
--- apply a list of filters sequentially with '(.>)', for predicate filters the generalized AND
---
--- see also : '(.>)'
-
-seqF		:: [a -> [a]] -> (a -> [a])
-seqF		= foldl (.>) this
-
--- |
--- binary parallel composition, the logical OR for predicate filter
---
---    * 1.parameter f1 :  the 1. filter
---
---    - 2.parameter f2 :  the 2. filter
---
---    - returns : the filter for applying f1 and f2 both to an argument tree and concatenating the results
-
-(+++)		:: (a -> [b]) -> (a -> [b]) -> (a -> [b])
-f +++ g		= \ t -> f t ++ g t
-
--- |
--- special sequential composition.
---
--- filter f is applied to an argument t.
--- then filter g is applied to all elements of the result list,
--- but the argument t is also passed as extra parameter to g.
---
--- This allows for step by step transformations of a tree
--- with access to the original tree in every
--- transformation step.
---
--- see also : '(.>)', 'o'
-
-(..>)		:: (a -> [b]) -> (a -> b -> [d]) -> (a -> [d])
-f ..> g		= \ t -> (g t `o` f) t
-
--- |
--- apply a list of filters, a \"union\" for lists, for predicate filters the generalized OR
---
---    * 1.parameter fs :  the list of filters
---
---    - returns : the composing filter
-
-cat		:: [a -> [b]] -> (a -> [b])
-cat fs  t
-    = concat [ f t | f <- fs ]
-
--- |
--- Filter for editing the children of a tree element wise
---
---    * 1.parameter cf :  the filter applied to the children
---
---    - returns : the editing filter
---
--- see also : 'modifyChildren'
-
-processChildren	:: TFilter node -> TFilter node
-processChildren ft (NTree n cs)
-    = [NTree n (ft $$ cs)]
-
--- |
--- infix operator for applying a filter to a list of trees
---
---    * 1.parameter f :  the filter
---
---    - 2.parameter ts :  the list of trees
---
---    - returns : the concatenated list of results
-
-($$)		:: (a -> [b]) -> [a] -> [b]
-f $$ l
-    = concatMap f l
-
--- ------------------------------------------------------------
---
--- choices
---
-
--- |
--- directional choice, usually written in infix notation as f `orElse` g
---
---    * 1.parameter f :  the 1. filter
---
---    - 2.parameter g :  the 2. filter
---
---    - 3.parameter t :  the tree
---
---    - returns : the filter, that applies f to t, if the result is not the empty list, the result is found, else g t is the result
-
-orElse		:: (a -> [b]) -> (a -> [b]) -> (a -> [b])
-f `orElse` g
-    = \ t-> let
-	    res = f t
-	    in
-	    if null res
-	    then g t
-	    else res
-
--- |
--- if then else lifted to filters
---
---    * 1.parameter p :  the predicate filter
---
---    - 2.parameter t :  the \"then\" filter
---
---    - 3.parameter e :  the \"else\" filter
---
---    - returns : the resulting conditional filter
-
-iff		:: (a -> [c]) -> (a -> [b]) -> (a -> [b]) -> (a -> [b])
-iff p f g	= \ c -> if (satisfies p) c then f c else g c
-
--- |
--- when the predicate p holds, f is applied, else the identity filter this
---
---    * 1.parameter f :  the conditinally applied filter
---
---    - 2.parameter p :  the predicate
---
---    - returns : the conditional filter
---
--- see also : 'iff', 'whenNot', 'guards', 'whenM'
-
-when		:: (a -> [a]) -> (a -> [a]) -> (a -> [a])
-f `when` g	= iff g f this
-
--- |
--- the complementary filter of when
---
--- shortcut for f `when` neg g
---
--- see also : 'iff', 'when', 'whenNotM', 'neg'
-
-whenNot		:: (a -> [a]) -> (a -> [a]) -> (a -> [a])
-f `whenNot` g	= iff g this f
-
--- |
--- when the predicate p holds, f is applied, else the null filter none
---
---    * 1.parameter p :  the predicate filter
---
---    - 2.parameter f :  the conditionally applied filter
---
---    - returns : the conditional filter
---
--- see also : 'iff', 'when', 'guardsM'
-
-guards		:: (a -> [b]) -> (a -> [b]) -> (a -> [b])
-g `guards` f	= iff g f none
-
-
--- |
--- negation lifted to filters
---
---    * 1.parameter f :  the predicate filter
---
---    - returns : the filter, that succeeds, when f failed
-
-neg		:: (a -> [c]) -> a -> [a]
-neg f		= iff f none this
-
--- |
--- auxiliary datatype for cases within choice filter
-
-data IfThen a b = a :-> b
-
--- |
--- multiway branch. The list of cases @f :-> g@ is processed sequentially,
--- in the first case for that f holds g is applied, if no case matches, 'none' is
--- applied.
--- This filter can be used like a case expression: @choice [ p1 :-> f1, p2 :-> f2, ... , this :-> defaultFilter]@
---
--- see also : 'iff', 'choiceM'
-
-choice	:: [IfThen (a -> [c]) (a -> [b])] -> (a -> [b])
-choice []
-    = none
-
-choice ((g :-> f) : cs)
-    = iff g f (choice cs)
-
--- |
--- pruning: keep only those results from f for which g holds, usually written in infix notation as f `containing` g
---
---    * 1.parameter f :  the processing filter
---
---    - 2.parameter g :  the predicate filter
---
---    - 3.parameter t :  the tree
---
---    - returns : all trees r from f t, for which g r holds (is not the empty list)
---
--- see also : 'notContaining'
-
-containing		:: (a -> [b]) -> (b -> [c]) -> a -> [b]
-f `containing` g
-    = filter (satisfies g) . f
-
--- |
--- pruning: keep only those results from f for which g does not hold
---
--- see also : 'containing'
-
-notContaining		:: (a -> [b]) -> (b -> [c]) -> a -> [b]
-f `notContaining` g
-    = filter (null . g) . f
-
--- |
--- pruning: monadic version of containing, usually written in infix notation as f `containingM` g
---
---    * 1.parameter f :  the monadic processing filter
---
---    - 2.parameter g :  the predicate filter
---
---    - 3.parameter t :  the tree
---
---    - returns : all trees r from f t, for which g r holds (is not the empty list)
---
--- see also : 'notContaining'
-
-containingM		:: Monad m => (a -> m [b]) -> (b -> [c]) -> a -> m [b]
-f `containingM` g
-    = \ t -> do
-             res <- f t
-             return $ filter (satisfies g) res
-
--- |
--- pronounced \"slash\", meaning g inside f
-
-(/>)		:: TFilter node -> TFilter node -> TFilter node
-f /> g
-    = g `o` getChildren `o` f
-
--- |
--- pronounced \"outside\" meaning f containing g
-
-(</)		:: TFilter node -> TFilter node -> TFilter node
-f </ g
-    = f `containing` (g `o` getChildren)
-
--- ------------------------------------------------------------
---
--- recursive search filters
-
--- |
--- top down search.
---
--- search terminates, when filter f succeeds
--- can e.g. be used for finding all outermost tag node of a specific kind
-
-deep		:: TFilter node -> TFilter node
-deep f
-    = f `orElse` (deep f `o` getChildren)
-
--- |
--- bottom up search.
---
--- first the children are processed,
--- if this does not succeed, the node itself is processed
--- can e.g. be used for finding all innermost tag nodes of a specific kind
-
-deepest		:: TFilter node -> TFilter node
-deepest f
-    = (getChildren .> deepest f) `orElse` f
-
--- |
--- process all nodes of the whole tree.
---
--- can e.g. be used for finding all nodes of a specific kind
-
-multi		:: TFilter node -> TFilter node
-multi f
-    = f +++ (getChildren .> multi f)
-
--- ------------------------------------------------------------
---
--- recursive transformation filters
---
-
--- |
--- bottom up transformation
---
---    * 1.parameter f :  the /simple/ transforming filter
---
---    - returns : the filter that applies f to all subtrees and the tree itself in a deepth first left to right manner
---
--- see also : 'processTopDown', 'processBottomUpIfNot'
-
-processBottomUp	:: TFilter node -> TFilter node
-processBottomUp f
-    = processChildren (processBottomUp f) .> f
-
--- |
--- top down transformation
---
---    * 1.parameter f :  the /simple/ transforming filter
---
---    - returns : the filter that applies f first to the tree and then recursively to all subtrees of the result
---
--- see also : 'processBottomUp'
-
-processTopDown	:: TFilter node -> TFilter node
-processTopDown f
-    = f .> processChildren (processTopDown f)
-
--- |
--- guarded bottom up transformation, stops at subtrees for which a predicate p holds
---
---    * 1.parameter f :  the transforming filter
---
---    - 2.parameter p :  the predicate filter for the guard
---
---    - returns : the filter for processing all (sub-)trees
---
--- see also : 'processBottomUp'
-
-processBottomUpIfNot	:: TFilter node -> TFilter node -> TFilter node
-processBottomUpIfNot f p
-    = (processChildren (processBottomUpIfNot f p) .> f) `whenNot` p
-
--- |
--- top down transformation until a node to be transformed is found
---
---    * 1.parameter f :  the /simple/ transforming filter
---
---    - returns : the filter that applies f first to the tree and, if the filter does not succeed,
---		  recursively to all children of the input tree.
---
--- Example:
---
--- @processTopDownUntil none@
---
--- is the identity filter (maybe a bit more inefficient).
---
--- Example:
---
--- @processTopDownUntil (add1Attr \"border\" \"2\" \`containing\` isTag \"table\")@
---
--- is a filter for adding an attribute border=\"2\" in all top level table tags.
---		  The content of table tags will remain unchanged.
---
--- see also : 'processTopDown', 'processBottomUp'
-
-processTopDownUntil	:: TFilter node -> TFilter node
-processTopDownUntil f t
-    | null res
-	= processChildren (processTopDownUntil f) t
-    | otherwise
-	= res
-    where
-    res = f t
-
--- ------------------------------------------------------------
---
-
--- |
--- insertion of trees into the list of children at a given position
---
--- useful for inserting something into the list of children at a given position
--- the list of children is split with the @splitAt@ function
--- the nodes are inserted between these two sublists.
---
--- examples: @insertChildrenAt 0 ins t@ inserts all elements computed with @ins t@ in front
--- of the childen of @t@, @insertChildrenAt 1 ins t@ behind the first child
---
--- see also: 'insertChildrenAfter'
-
-
-insertChildrenAt	:: Int -> TFilter node -> TFilter node
-insertChildrenAt i ins t
-    = replaceChildren (cl1 ++ ins t ++ cl2) t
-    where
-    (cl1, cl2) = splitAt i $ getChildren t
-
--- |
--- insertion of trees into the list of children after specific elements
---
--- useful for inserting something into the list of children of a node
--- the list of children is split with the @span@ function and the filter p as predicate
--- the nodes are inserted between these two sublists
---
--- examples: @insertChildrenAfter none ins t@ inserts all elements computed with @ins t@ in front
--- of the childen of @t@, @insertChildrenAfter this ins t@ appends the elements to the children
---
--- see also: 'insertChildrenAt'
-
-insertChildrenAfter	:: TFilter node -> TFilter node -> TFilter node
-insertChildrenAfter p ins t
-    = replaceChildren (cl1 ++ ins t ++ cl2) t
-    where
-    (cl1, cl2) = span (not . null . p) $ getChildren t
-
--- ------------------------------------------------------------
---
--- monadic filter
-
--- |
--- the monadic version of the identity filter this.
---
--- see also : 'this'
-
-thisM		:: Monad m => (a -> m [a])
-thisM		= liftMf this
-
--- |
--- the monadic version of the null filter none.
---
--- see also : 'none'
-
-noneM		:: Monad m => (a -> m [b])
-noneM		= liftMf none
-
--- |
--- sequential composition of monadic filters, monadic version of \".>\".
---
---    * 1.parameter f1 :  the 1. monadic filter
---
---    - 2.parameter f2 :  the 2. monadic filter
---
---    - returns : the monadic fiter applying first f1 to n and then f2 to the result (like function composition)
---
--- see also : '(.>)'
-
-(.>>)	:: Monad m => (a -> m[b]) -> (b -> m [c]) -> (a -> m[c])
-cmd1 .>> cmd2
-    = \ t ->
-      do
-      r1 <- cmd1 t
-      r2 <- mapM cmd2 r1
-      return (concat r2)
-
--- |
--- generalized sequential composition of monadic filters
-
-seqM	:: Monad m => [a -> m[a]] -> (a -> m[a])
-seqM
-    = foldr (.>>) thisM
-
--- |
--- binary parallel composition, the logical OR for predicate filter
---
---    * 1.parameter f1 :  the 1. filter
---
---    - 2.parameter f2 :  the 2. filter
---
---    - returns : the filter for applying f1 and f2 both to an argument tree and concatenating the results
--- see also: 'cat', '+++', 'catM'
-
-(+++>>)		:: Monad m => (a -> m [b]) -> (a -> m [b]) -> (a -> m [b])
-f +++>> g	= \ t -> do
-			 r1 <- f t
-			 r2 <- g t
-			 return (r1 ++ r2)
-
--- |
--- apply a list of monadic filters
---
---    * 1.parameter fs :  the list of filters
---
---    - returns : the composing filter
--- see also: 'cat', '+++', '+++>>'
-
-catM	:: Monad m => [a -> m [b]] -> (a -> m [b])
-catM fs  t
-    = do
-      res <- sequence (map ($ t) fs)
-      return $ concat res
-
--- |
--- monadic if-then-else.
---
---    * 1.parameter p :  the predicate
---
---    - 2.parameter thenP :  the then part: the monadic filter, that is applied if p holds for the input tree
---
---    - 3.parameter elseP :  the else part
---
---    - returns : the monadic filter for the conditional
-
-ifM		:: Monad m => (a -> [b]) -> (a -> m [c]) -> (a -> m [c]) -> (a -> m [c])
-ifM p thenPart elsePart
-    = \ t ->
-      if (satisfies p) t
-      then thenPart t
-      else elsePart t
-
--- |
--- monadic version of multiway branch. The list of cases @f :-> g@ is processed sequentially,
--- in the first case for that f holds g is applied, if no case matches, 'noneM' is
--- applied.
--- This filter can be used like a case expression: @choiceM [ p1 :-> f1, p2 :-> f2, ... , thisM :-> defaultFilter]@
---
--- see also : 'choice', 'ifM'
-
-choiceM		:: Monad m => [IfThen (a -> [c]) (a -> m [b])] -> (a -> m [b])
-choiceM []
-    = noneM
-
-choiceM ((g :-> f) : cs)
-    = ifM g f (choiceM cs)
-
-
--- |
--- when the predicate p holds, the monadic filter f is applied, else the identity filter.
---
---    * 1.parameter f :  the conditinally applied monadic filter
---
---    - 2.parameter p :  the simple predicate
---
---    - returns : the conditional filter
---
--- see also : 'ifM', 'when', 'guardsM', 'whenNotM'
-
-whenM		:: Monad m => (a -> m [a]) -> (a -> [b]) -> (a -> m [a])
-f `whenM` g	= ifM g f thisM
-
--- |
--- the complementary filter of whenM.
---
--- see also : 'ifM', 'whenM', 'whenNot'
-
-whenNotM	:: Monad m => (a -> m [a]) -> (a -> [b]) -> (a -> m [a])
-f `whenNotM` g	= ifM g thisM f
-
--- |
--- when the predicate p holds, the monadic filter f is applied, else the null filter.
---
---    * 1.parameter p :  the simple predicate filter
---
---    - 2.parameter f :  the conditionally applied monadic filter
---
---    - returns : the conditional filter
---
--- see also : 'ifM', 'guards', 'whenM'
-
-guardsM		:: Monad m => (a -> [b]) -> (a -> m [c]) -> (a -> m [c])
-g `guardsM` f	= ifM g f noneM
-
--- |
--- Filter for editing the children of a tree with a monadic filter
---
---    * 1.parameter cf :  the monadic filter applied to the children
---
---    - returns : the monadic editing filter
---
--- see also : 'processChildren'
-
-processChildrenM	:: Monad m => (NTree node -> m [NTree node]) -> (NTree node -> m [NTree node])
-processChildrenM ft (NTree n cs)
-    = do
-      res <- ft $$< cs
-      return [NTree n res]
-
--- |
--- monadic variant of 'processTopDown'
-
-processTopDownM		:: Monad m => (NTree node -> m [NTree node]) -> (NTree node -> m [NTree node])
-processTopDownM f
-    = f .>> processChildrenM (processTopDownM f)
-
--- |
--- monadic variant of 'processBottomUp'
-
-processBottomUpM	:: Monad m => (NTree node -> m [NTree node]) -> (NTree node -> m [NTree node])
-processBottomUpM f
-    = processChildrenM (processBottomUpM f) .>> f
-
--- |
--- infix operator for applying a monadic filter to a list of trees,
--- typically used in do-notation for processing of intermediate results.
---
---    * 1.parameter f :  the monadic filter
---
---    - 2.parameter ts :  the list of trees
---
---    - returns : the concatenated list of results
---
--- see also : '($$)'
-
-($$<)	:: Monad m => (a -> m [b]) -> [a] -> m [b]
-cmd $$< l
-    = do
-      r <- mapM cmd l
-      return (concat r)
-
--- |
--- lift a filter to a monadic filter
---
---    * 1.parameter f :  the /simple/ filter
---
---    - returns : the lifted monadic version
-
-liftMf	:: Monad m => (a -> [b]) -> a -> m [b]
-liftMf f t
-    = return (f t)
-
--- |
--- run an arbitray command on a tree t and return the tree,
--- used for inserting arbitray commands in a filter pipeline
---
---    * 1.parameter cmd :  the command
---
---    - 2.parameter t :  the argument tree
---
---    - returns : the unchanged tree as a single element list
-
-performAction	:: Monad m => (a -> m b) -> a -> m [a]
-performAction cmd t
-    = do
-      cmd t
-      return [t]
-
--- eof ------------------------------------------------------------
-
    - diff --git a/doc/hdoc/src/Data-Tree-NTree-TypeDefs.html b/doc/hdoc/src/Data-Tree-NTree-TypeDefs.html --- a/doc/hdoc/src/Data-Tree-NTree-TypeDefs.html +++ b/doc/hdoc/src/Data-Tree-NTree-TypeDefs.html @@ -10,7 +10,7 @@ {- | Module : Data.Tree.NTree.TypeDefs - Copyright : Copyright (C) 2005 Uwe Schmidt + Copyright : Copyright (C) 2005-2008 Uwe Schmidt License : MIT Maintainer : Uwe Schmidt (uwe\@fh-wedel.de) diff --git a/doc/hdoc/src/Text-XML-HXT-Arrow-DocumentInput.html b/doc/hdoc/src/Text-XML-HXT-Arrow-DocumentInput.html --- a/doc/hdoc/src/Text-XML-HXT-Arrow-DocumentInput.html +++ b/doc/hdoc/src/Text-XML-HXT-Arrow-DocumentInput.html @@ -121,309 +121,322 @@ getFileContents :: IOStateArrow s XmlTree XmlTree getFileContents - = applyA ( getAttrValue transferURI - >>> - getPathFromURI - >>> - arrIO FILE.getCont - >>> - ( arr addError -- io error occured - ||| - arr addTxtContent -- content read + = applyA ( ( ( getAttrValue a_strict_input + >>> + arr isTrueValue + ) + &&& + ( getAttrValue transferURI + >>> + getPathFromURI + ) ) - ) - >>> - addMimeType - -getStdinContents :: IOStateArrow s XmlTree XmlTree -getStdinContents - = applyA ( arrIO (\ _ -> FILE.getStdinCont) - >>> - ( arr addError -- io error occured - ||| - arr addTxtContent -- content read - ) - ) - -addError :: String -> IOStateArrow s XmlTree XmlTree -addError e - = issueFatal e - >>> - setDocumentStatusFromSystemState "accessing documents" - -addMimeType :: IOStateArrow s XmlTree XmlTree -addMimeType - = addMime $< ( getAttrValue transferURI - >>> - ( uriToMime $< getSysParam xio_mimeTypes ) - ) - where - addMime mt - = addAttr transferMimeType mt - uriToMime mtt - = arr $ ( \ uri -> extensionToMimeType (drop 1 . takeExtension $ uri) mtt ) - -addTxtContent :: String -> IOStateArrow s XmlTree XmlTree -addTxtContent c - = replaceChildren (txt c) - >>> - addAttr transferMessage "OK" - >>> - addAttr transferStatus "200" - -getHttpContents :: IOStateArrow s XmlTree XmlTree -getHttpContents - = getCont $<< ( getAttrValue transferURI - &&& - ( ( getAttrlAsAssoc -- get all attributes of root node - &&& - getAllParamsString -- get all system params - ) - >>^ uncurry addEntries -- merge them, attributes overwrite system params - ) - ) - where - getAttrlAsAssoc -- get the attributes as assoc list - = listA ( getAttrl - >>> ( getName - &&& - xshow getChildren - ) - ) - - getCont uri options - = applyA ( ( traceMsg 2 ( "get HTTP via libcurl, uri=" ++ show uri ++ " options=" ++ show options ) - >>> - arrIO0 ( LibCURL.getCont options uri ) - ) - >>> - ( arr addError - ||| - arr addContent - ) - ) - -{- old stuff - = applyA ( ( if curl == v_1 - then ( traceMsg 2 ( "get HTTP via " - ++ show ( "curl " - ++ (if null proxy then "" else "--proxy " ++ proxy) - ++ (if null curlOpt then "" else " " ++ curlOpt) - ++ " " ++ uri - ) - ) - >>> - arrIO0 ( CURL.getCont curlOpt uri proxy ) - ) - else arrIO0 ( HTTP.getCont uri proxy ) - ) - >>> - ( arr addError - ||| - arr addContent - ) - ) - where - proxy = lookup1 a_proxy options - curl = lookup1 a_use_curl options - curlOpt = lookup1 a_options_curl options --} - - addContent :: (AssocList String String, String) -> IOStateArrow s XmlTree XmlTree - addContent (al, c) - = replaceChildren (txt c) - >>> - seqA (map (uncurry addAttr) al) - -getURIContents :: IOStateArrow s XmlTree XmlTree -getURIContents - = getContentsFromString - `orElse` - getContentsFromDoc - where - getContentsFromString - = ( getAttrValue a_source - >>> - isA (isPrefixOf stringProtocol) - ) - `guards` - getStringContents - - getContentsFromDoc - = ( ( addTransferURI $< getBaseURI - >>> - getCont - ) - `when` - ( setAbsURI $< ( getAttrValue a_source - >>^ - ( \ src-> (if null src then "stdin:" else src) ) -- empty document name -> read from stdin - ) - ) - ) - >>> - setDocumentStatusFromSystemState "getURIContents" - - setAbsURI src - = ifA ( constA src >>> changeBaseURI ) - this - ( issueFatal ("illegal URI : " ++ show src) ) - - addTransferURI uri - = addAttr transferURI uri - - getCont - = applyA ( getBaseURI -- compute the handler and call it - >>> - traceString 2 (("getURIContents: reading " ++) . show) - >>> - getSchemeFromURI - >>> - getProtocolHandler - ) - `orElse` - this -- don't change tree, when no handler can be found - -setBaseURIFromDoc :: IOStateArrow s XmlTree XmlTree -setBaseURIFromDoc - = perform ( getAttrValue transferURI - >>> - isA (isPrefixOf stringProtocol) -- do not change base URI when reading from a string - >>> - setBaseURI - ) - -{- | - Read the content of a document. - - This routine is usually called from 'Text.XML.HXT.Arrow.ProcessDocument.getDocumentContents'. - - The input must be a root node (constructed with 'Text.XML.HXT.Arrow.XmlArrow.root'), usually without children. - The attribute list contains all input parameters, e.g. URI or source file name, encoding preferences, ... - If the source name is empty, the input is read from standard input. - - The source is transformed into an absolute URI. If the source is a relative URI, or a file name, - it is expanded into an absolut URI with respect to the current base URI. - The default base URI is of protocol \"file\" and points to the current working directory. + >>> + traceValue 2 (\ (b, f) -> "read file " ++ show f ++ " (strict input = " ++ show b ++ ")") + >>> + arrIO (uncurry FILE.getCont) + >>> + ( arr addError -- io error occured + ||| + arr addTxtContent -- content read + ) + ) + >>> + addMimeType + +getStdinContents :: IOStateArrow s XmlTree XmlTree +getStdinContents + = applyA ( getAttrValue a_strict_input + >>> + arr isTrueValue + >>> + arrIO FILE.getStdinCont + >>> + ( arr addError -- io error occured + ||| + arr addTxtContent -- content read + ) + ) + +addError :: String -> IOStateArrow s XmlTree XmlTree +addError e + = issueFatal e + >>> + setDocumentStatusFromSystemState "accessing documents" + +addMimeType :: IOStateArrow s XmlTree XmlTree +addMimeType + = addMime $< ( getAttrValue transferURI + >>> + ( uriToMime $< getSysParam xio_mimeTypes ) + ) + where + addMime mt + = addAttr transferMimeType mt + uriToMime mtt + = arr $ ( \ uri -> extensionToMimeType (drop 1 . takeExtension $ uri) mtt ) + +addTxtContent :: String -> IOStateArrow s XmlTree XmlTree +addTxtContent c + = replaceChildren (txt c) + >>> + addAttr transferMessage "OK" + >>> + addAttr transferStatus "200" + +getHttpContents :: IOStateArrow s XmlTree XmlTree +getHttpContents + = getCont $<< ( getAttrValue transferURI + &&& + ( ( getAttrlAsAssoc -- get all attributes of root node + &&& + getAllParamsString -- get all system params + ) + >>^ uncurry addEntries -- merge them, attributes overwrite system params + ) + ) + where + getAttrlAsAssoc -- get the attributes as assoc list + = listA ( getAttrl + >>> ( getName + &&& + xshow getChildren + ) + ) + + getCont uri options + = applyA ( ( traceMsg 2 ( "get HTTP via libcurl, uri=" ++ show uri ++ " options=" ++ show options ) + >>> + arrIO0 ( LibCURL.getCont options uri ) + ) + >>> + ( arr addError + ||| + arr addContent + ) + ) + +{- old stuff + = applyA ( ( if curl == v_1 + then ( traceMsg 2 ( "get HTTP via " + ++ show ( "curl " + ++ (if null proxy then "" else "--proxy " ++ proxy) + ++ (if null curlOpt then "" else " " ++ curlOpt) + ++ " " ++ uri + ) + ) + >>> + arrIO0 ( CURL.getCont curlOpt uri proxy ) + ) + else arrIO0 ( HTTP.getCont uri proxy ) + ) + >>> + ( arr addError + ||| + arr addContent + ) + ) + where + proxy = lookup1 a_proxy options + curl = lookup1 a_use_curl options + curlOpt = lookup1 a_options_curl options +-} + + addContent :: (AssocList String String, String) -> IOStateArrow s XmlTree XmlTree + addContent (al, c) + = replaceChildren (txt c) + >>> + seqA (map (uncurry addAttr) al) + +getURIContents :: IOStateArrow s XmlTree XmlTree +getURIContents + = getContentsFromString + `orElse` + getContentsFromDoc + where + getContentsFromString + = ( getAttrValue a_source + >>> + isA (isPrefixOf stringProtocol) + ) + `guards` + getStringContents + + getContentsFromDoc + = ( ( addTransferURI $< getBaseURI + >>> + getCont + ) + `when` + ( setAbsURI $< ( getAttrValue a_source + >>^ + ( \ src-> (if null src then "stdin:" else src) ) -- empty document name -> read from stdin + ) + ) + ) + >>> + setDocumentStatusFromSystemState "getURIContents" + + setAbsURI src + = ifA ( constA src >>> changeBaseURI ) + this + ( issueFatal ("illegal URI : " ++ show src) ) + + addTransferURI uri + = addAttr transferURI uri + + getCont + = applyA ( getBaseURI -- compute the handler and call it + >>> + traceValue 2 (("getURIContents: reading " ++) . show) + >>> + getSchemeFromURI + >>> + getProtocolHandler + ) + `orElse` + this -- don't change tree, when no handler can be found + +setBaseURIFromDoc :: IOStateArrow s XmlTree XmlTree +setBaseURIFromDoc + = perform ( getAttrValue transferURI + >>> + isA (isPrefixOf stringProtocol) -- do not change base URI when reading from a string + >>> + setBaseURI + ) - The currently supported protocols are \"http\", \"file\", \"stdin\" and \"string\". - - The latter two are internal protocols. An uri of the form \"stdin:\" stands for the content of - the standard input stream. +{- | + Read the content of a document. + + This routine is usually called from 'Text.XML.HXT.Arrow.ProcessDocument.getDocumentContents'. - \"string:some text\" means, that \"some text\" is taken as input. - This internal protocol is used for reading from normal 'String' values. - --} - -getXmlContents :: IOStateArrow s XmlTree XmlTree -getXmlContents - = getXmlContents' parseXmlDocEncodingSpec - >>> - setBaseURIFromDoc - -getXmlEntityContents :: IOStateArrow s XmlTree XmlTree -getXmlEntityContents - = getXmlContents' parseXmlEntityEncodingSpec - >>> - processChildren removeEncodingSpec - >>> - setBaseURIFromDoc - -getXmlContents' :: IOStateArrow s XmlTree XmlTree -> IOStateArrow s XmlTree XmlTree -getXmlContents' parseEncodingSpec - = ( getURIContents - >>> - ( ( parseEncodingSpec - >>> - filterErrorMsg - >>> - decodeDocument - ) - `when` - isXmlHtml - ) - >>> - perform ( getAttrValue transferURI - >>> - traceString 1 (("getXmlContents: content read and decoded for " ++) . show) - ) - >>> - traceTree - >>> - traceSource - ) - `when` - isRoot - where - isXmlHtml - = getAttrValue transferMimeType - >>> - arr (\ mt -> isHtmlMimeType mt || isXmlMimeType mt) - --- ------------------------------------------------------------ - -getEncoding :: IOStateArrow s XmlTree String -getEncoding - = catA [ xshow getChildren -- 1. guess: guess encoding by looking at the first few bytes - >>> - arr guessEncoding - , getAttrValue transferEncoding -- 2. guess: take the transfer encoding - , getAttrValue a_encoding -- 4. guess: take encoding parameter in root node - , getParamString a_encoding -- 5. guess: take encoding parameter in global state - , constA utf8 -- default : utf8 - ] - >. (head . filter (not . null)) -- make the filter deterministic: take 1. entry from list of guesses - + The input must be a root node (constructed with 'Text.XML.HXT.Arrow.XmlArrow.root'), usually without children. + The attribute list contains all input parameters, e.g. URI or source file name, encoding preferences, ... + If the source name is empty, the input is read from standard input. + + The source is transformed into an absolute URI. If the source is a relative URI, or a file name, + it is expanded into an absolut URI with respect to the current base URI. + The default base URI is of protocol \"file\" and points to the current working directory. + + The currently supported protocols are \"http\", \"file\", \"stdin\" and \"string\". + + The latter two are internal protocols. An uri of the form \"stdin:\" stands for the content of + the standard input stream. + + \"string:some text\" means, that \"some text\" is taken as input. + This internal protocol is used for reading from normal 'String' values. + +-} + +getXmlContents :: IOStateArrow s XmlTree XmlTree +getXmlContents + = getXmlContents' parseXmlDocEncodingSpec + >>> + setBaseURIFromDoc + +getXmlEntityContents :: IOStateArrow s XmlTree XmlTree +getXmlEntityContents + = getXmlContents' parseXmlEntityEncodingSpec + >>> + processChildren removeEncodingSpec + >>> + setBaseURIFromDoc + +getXmlContents' :: IOStateArrow s XmlTree XmlTree -> IOStateArrow s XmlTree XmlTree +getXmlContents' parseEncodingSpec + = ( getURIContents + >>> + ( ( parseEncodingSpec + >>> + filterErrorMsg + >>> + decodeDocument + ) + `when` + isXmlHtml + ) + >>> + perform ( getAttrValue transferURI + >>> + traceValue 1 (("getXmlContents: content read and decoded for " ++) . show) + ) + >>> + traceTree + >>> + traceSource + ) + `when` + isRoot + where + isXmlHtml + = getAttrValue transferMimeType + >>> + arr (\ mt -> isHtmlMimeType mt || isXmlMimeType mt) + +-- ------------------------------------------------------------ -decodeDocument :: IOStateArrow s XmlTree XmlTree -decodeDocument - = ( decodeArr $< getEncoding ) - `when` - ( isRoot >>> isXmlOrHtmlDoc ) - where - isXmlOrHtmlDoc - = ( getAttrValue transferMimeType >>^ map toLower ) - >>> - isA (\ t -> null t || isXmlMimeType t || isHtmlMimeType t) - - decodeArr :: String -> IOStateArrow s XmlTree XmlTree - decodeArr enc - = maybe notFound found . getDecodingFct $ enc - where - found df - = traceMsg 2 ("decodeDocument: encoding is " ++ show enc) - >>> - ( decodeText df $< getAttrValue a_ignore_encoding_errors ) - >>> - addAttr transferEncoding enc - - notFound - = issueFatal ("encoding scheme not supported: " ++ show enc) - >>> - setDocumentStatusFromSystemState "decoding document" - - decodeText df ignoreErrs - = processChildren - ( getText -- get the document content - >>> arr df -- decode the text, result is (string, [errMsg]) - >>> ( ( (normalizeNL . fst) ^>> mkText ) -- take decoded string, normalize newline and build text node - <+> - ( if isTrueValue ignoreErrs - then none -- encoding errors are ignored - else - ( arrL snd -- take the error messages - >>> - arr ((enc ++) . (" encoding error" ++)) -- prefix with enc error - >>> - applyA (arr issueErr) -- build issueErr arrow and apply - >>> - none -- neccessary for type match with <+> - ) - ) - ) - ) - --- ------------------------------------------------------------ +getEncoding :: IOStateArrow s XmlTree String +getEncoding + = catA [ xshow getChildren -- 1. guess: guess encoding by looking at the first few bytes + >>> + arr guessEncoding + , getAttrValue transferEncoding -- 2. guess: take the transfer encoding + , getAttrValue a_encoding -- 4. guess: take encoding parameter in root node + , getParamString a_encoding -- 5. guess: take encoding parameter in global state + , constA utf8 -- default : utf8 + ] + >. (head . filter (not . null)) -- make the filter deterministic: take 1. entry from list of guesses + + +decodeDocument :: IOStateArrow s XmlTree XmlTree +decodeDocument + = ( decodeArr $< getEncoding ) + `when` + ( isRoot >>> isXmlOrHtmlDoc ) + where + isXmlOrHtmlDoc + = ( getAttrValue transferMimeType >>^ map toLower ) + >>> + isA (\ t -> null t || isXmlMimeType t || isHtmlMimeType t) + + decodeArr :: String -> IOStateArrow s XmlTree XmlTree + decodeArr enc + = maybe notFound found . getDecodingFct $ enc + where + found df + = traceMsg 2 ("decodeDocument: encoding is " ++ show enc) + >>> + ( decodeText df $< getAttrValue a_ignore_encoding_errors ) + >>> + addAttr transferEncoding enc + + notFound + = issueFatal ("encoding scheme not supported: " ++ show enc) + >>> + setDocumentStatusFromSystemState "decoding document" + + decodeText df ignoreErrs + = processChildren + ( getText -- get the document content + >>> arr df -- decode the text, result is (string, [errMsg]) + >>> ( ( (normalizeNL . fst) ^>> mkText ) -- take decoded string, normalize newline and build text node + <+> + ( if isTrueValue ignoreErrs + then none -- encoding errors are ignored + else + ( arrL snd -- take the error messages + >>> + arr ((enc ++) . (" encoding error" ++)) -- prefix with enc error + >>> + applyA (arr issueErr) -- build issueErr arrow and apply + >>> + none -- neccessary for type match with <+> + ) + ) + ) + ) + +-- ------------------------------------------------------------ diff --git a/doc/hdoc/src/Text-XML-HXT-Arrow-DocumentOutput.html b/doc/hdoc/src/Text-XML-HXT-Arrow-DocumentOutput.html --- a/doc/hdoc/src/Text-XML-HXT-Arrow-DocumentOutput.html +++ b/doc/hdoc/src/Text-XML-HXT-Arrow-DocumentOutput.html @@ -6,172 +6,184 @@ -
    -- |
--- state arrows for document output
---
--- version: $Id: DocumentOutput.hs,v 1.7 2006/11/02 09:34:08 hxml Exp $
-
-module Text.XML.HXT.Arrow.DocumentOutput
-    ( module Text.XML.HXT.Arrow.DocumentOutput )
-where
-
-import Control.Arrow				-- arrow classes
-import Control.Arrow.ArrowList
-import Control.Arrow.ArrowIf
-import Control.Arrow.ArrowTree
-import Control.Arrow.ArrowIO
+
    -- ------------------------------------------------------------
+
+{- |
+   Module     : Text.XML.HXT.Arrow.DocumentOutput
+   Copyright  : Copyright (C) 2005-9 Uwe Schmidt
+   License    : MIT
+
+   Maintainer : Uwe Schmidt (uwe@fh-wedel.de)
+   Stability  : experimental
+   Portability: portable
+
+   State arrows for document output
+
+-}
 
-import Text.XML.HXT.DOM.Unicode
-    ( getOutputEncodingFct )
-
-import Text.XML.HXT.DOM.Interface
-import Text.XML.HXT.Arrow.XmlArrow
-import Text.XML.HXT.Arrow.XmlIOStateArrow
-
-import Text.XML.HXT.Arrow.Edit
-    ( addHeadlineToXmlDoc
-    , addXmlPi
-    , addXmlPiEncoding
-    , indentDoc
-    , numberLinesInXmlDoc
-    , treeRepOfXmlDoc
-    )
-
-import Data.Maybe
-
-import System.IO
-    ( Handle
-    , IOMode(..)
-    , openFile
-    , hPutStrLn
-    , hClose
-    , stdout
-    )
-
-import System.IO.Error
-    ( try )
+-- ------------------------------------------------------------
+
+module Text.XML.HXT.Arrow.DocumentOutput
+    ( module Text.XML.HXT.Arrow.DocumentOutput )
+where
+
+import Control.Arrow				-- arrow classes
+import Control.Arrow.ArrowList
+import Control.Arrow.ArrowIf
+import Control.Arrow.ArrowTree
+import Control.Arrow.ArrowIO
+
+import Text.XML.HXT.DOM.Unicode
+    ( getOutputEncodingFct )
+
+import Text.XML.HXT.DOM.Interface
+import Text.XML.HXT.Arrow.XmlArrow
+import Text.XML.HXT.Arrow.XmlIOStateArrow
+
+import Text.XML.HXT.Arrow.Edit
+    ( addHeadlineToXmlDoc
+    , addXmlPi
+    , addXmlPiEncoding
+    , indentDoc
+    , numberLinesInXmlDoc
+    , treeRepOfXmlDoc
+    )
+
+import Data.Maybe
 
--- ------------------------------------------------------------
---
--- output arrows
-
-putXmlDocument	:: String -> IOStateArrow s XmlTree XmlTree
-putXmlDocument dst
-    = perform ( xshow getChildren
-		>>>
-		arrIO (\ s -> try ( hPutDocument (\h -> hPutStrLn h s)))
-		>>>
-		( ( traceMsg 1 ("io error, document not written to " ++ outFile)
-		    >>>
-		    arr show >>> mkError c_fatal
-		    >>>
-		    filterErrorMsg
-		  )
-		  |||
-		  ( traceMsg 2 ("document written to " ++ outFile)
-		    >>>
-		    none
-		  )
-		)
-	      )
-      where
-      isStdout	= null dst || dst == "-"
-
-      outFile	= if isStdout
-		  then "stdout"
-		       else show dst
-
-      hPutDocument	:: (Handle -> IO()) -> IO()
-      hPutDocument action
-	  | isStdout
-	      = action stdout
-	  | otherwise
-	      = do
-		handle <- openFile dst WriteMode
-		action handle
-		hClose handle
-
--- |
--- write the tree representation of a document to a file
-
-putXmlTree	:: String -> IOStateArrow s XmlTree XmlTree
-putXmlTree dst
-    = perform ( treeRepOfXmlDoc
-		>>>
-		addHeadlineToXmlDoc
-	        >>>
-		putXmlDocument dst
-	      )
+import System.IO
+    ( Handle
+    , IOMode(..)
+    , openFile
+    , hPutStrLn
+    , hClose
+    , stdout
+    )
+
+import System.IO.Error
+    ( try )
+
+-- ------------------------------------------------------------
+--
+-- output arrows
+
+putXmlDocument	:: String -> IOStateArrow s XmlTree XmlTree
+putXmlDocument dst
+    = perform ( xshow getChildren
+		>>>
+		arrIO (\ s -> try ( hPutDocument (\h -> hPutStrLn h s)))
+		>>>
+		( ( traceMsg 1 ("io error, document not written to " ++ outFile)
+		    >>>
+		    arr show >>> mkError c_fatal
+		    >>>
+		    filterErrorMsg
+		  )
+		  |||
+		  ( traceMsg 2 ("document written to " ++ outFile)
+		    >>>
+		    none
+		  )
+		)
+	      )
+      where
+      isStdout	= null dst || dst == "-"
+
+      outFile	= if isStdout
+		  then "stdout"
+		       else show dst
+
+      hPutDocument	:: (Handle -> IO()) -> IO()
+      hPutDocument action
+	  | isStdout
+	      = action stdout
+	  | otherwise
+	      = do
+		handle <- openFile dst WriteMode
+		action handle
+		hClose handle
 
 -- |
--- write a document with indentaion and line numers
+-- write the tree representation of a document to a file
 
-putXmlSource	:: String -> IOStateArrow s XmlTree XmlTree
-putXmlSource dst
-    = perform ( (this ) `whenNot` isRoot
+putXmlTree	:: String -> IOStateArrow s XmlTree XmlTree
+putXmlTree dst
+    = perform ( treeRepOfXmlDoc
 		>>>
-		indentDoc
-		>>>
-		numberLinesInXmlDoc
-		>>>
-		addHeadlineToXmlDoc
-	        >>>
-		putXmlDocument dst
-	      )
-
--- ------------------------------------------------------------
-
-getOutputEncoding	:: String -> IOStateArrow s XmlTree String
-getOutputEncoding defaultEnc
-    =  catA [ getChildren			-- 1. guess: evaluate <?xml ... encoding="..."?>
-	      >>>
-	      ( ( isPi >>> hasName t_xml )
-		`guards`
-		getAttrValue a_encoding
-	      )
-	    , constA defaultEnc			-- 2. guess: explicit parameter, may be ""
-	    , getAttrValue a_output_encoding	-- 3. guess: take output encoding parameter in root node
-	    , getParamString a_output_encoding	-- 4. guess: take output encoding parameter in global state
-	    , getParamString a_encoding		-- 5. guess: take encoding parameter in global state
-	    , constA utf8			-- default : utf8
-	    ]
-      >. (head . filter (not . null))		-- make the filter deterministic: take 1. entry from list of guesses
-
-encodeDocument	:: Bool -> String -> IOStateArrow s XmlTree XmlTree
-encodeDocument supressXmlPi defaultEnc
-    = applyA ( getOutputEncoding defaultEnc
-	       >>>
-	       arr encArr
-	     )
-      `when`
-      isRoot
-    where
-    encArr	:: String -> IOStateArrow s XmlTree XmlTree
-    encArr enc	= maybe notFound found . getOutputEncodingFct $ enc
-	where
-	found ef = traceMsg 2 ("encodeDocument: encoding is " ++ show enc)
-		   >>>
-		   ( if supressXmlPi
-		     then processChildren (none `when` isXmlPi)
-		     else ( addXmlPi
-			    >>>
-			    addXmlPiEncoding enc
-			  )
-		   )
-		   >>>
-		   replaceChildren ( xshow getChildren
-				     >>>
-				     arr ef
-				     >>>
-				     mkText
-				   )
-		   >>>
-		   addAttr a_output_encoding enc
-
-	notFound = issueFatal ("encoding scheme not supported: " ++ show enc)
-		   >>>
-		   setDocumentStatusFromSystemState "encoding document"
-
--- ------------------------------------------------------------
+		addHeadlineToXmlDoc
+	        >>>
+		putXmlDocument dst
+	      )
+
+-- |
+-- write a document with indentaion and line numers
+
+putXmlSource	:: String -> IOStateArrow s XmlTree XmlTree
+putXmlSource dst
+    = perform ( (this ) `whenNot` isRoot
+		>>>
+		indentDoc
+		>>>
+		numberLinesInXmlDoc
+		>>>
+		addHeadlineToXmlDoc
+	        >>>
+		putXmlDocument dst
+	      )
+
+-- ------------------------------------------------------------
+
+getOutputEncoding	:: String -> IOStateArrow s XmlTree String
+getOutputEncoding defaultEnc
+    =  catA [ getChildren			-- 1. guess: evaluate <?xml ... encoding="..."?>
+	      >>>
+	      ( ( isPi >>> hasName t_xml )
+		`guards`
+		getAttrValue a_encoding
+	      )
+	    , constA defaultEnc			-- 2. guess: explicit parameter, may be ""
+	    , getAttrValue a_output_encoding	-- 3. guess: take output encoding parameter in root node
+	    , getParamString a_output_encoding	-- 4. guess: take output encoding parameter in global state
+	    , getParamString a_encoding		-- 5. guess: take encoding parameter in global state
+	    , constA utf8			-- default : utf8
+	    ]
+      >. (head . filter (not . null))		-- make the filter deterministic: take 1. entry from list of guesses
+
+encodeDocument	:: Bool -> String -> IOStateArrow s XmlTree XmlTree
+encodeDocument supressXmlPi defaultEnc
+    = applyA ( getOutputEncoding defaultEnc
+	       >>>
+	       arr encArr
+	     )
+      `when`
+      isRoot
+    where
+    encArr	:: String -> IOStateArrow s XmlTree XmlTree
+    encArr enc	= maybe notFound found . getOutputEncodingFct $ enc
+	where
+	found ef = traceMsg 2 ("encodeDocument: encoding is " ++ show enc)
+		   >>>
+		   ( if supressXmlPi
+		     then processChildren (none `when` isXmlPi)
+		     else ( addXmlPi
+			    >>>
+			    addXmlPiEncoding enc
+			  )
+		   )
+		   >>>
+		   replaceChildren ( xshow getChildren
+				     >>>
+				     arr ef
+				     >>>
+				     mkText
+				   )
+		   >>>
+		   addAttr a_output_encoding enc
+
+	notFound = issueFatal ("encoding scheme not supported: " ++ show enc)
+		   >>>
+		   setDocumentStatusFromSystemState "encoding document"
+
+-- ------------------------------------------------------------
 
    
 
diff --git a/doc/hdoc/src/Text-XML-HXT-Arrow-Edit.html b/doc/hdoc/src/Text-XML-HXT-Arrow-Edit.html
--- a/doc/hdoc/src/Text-XML-HXT-Arrow-Edit.html
+++ b/doc/hdoc/src/Text-XML-HXT-Arrow-Edit.html
@@ -10,771 +10,788 @@
 
 {- |
    Module     : Text.XML.HXT.Arrow.Edit
-   Copyright  : Copyright (C) 2006 Uwe Schmidt
-   License    : MIT
-
-   Maintainer : Uwe Schmidt (uwe@fh-wedel.de)
-   Stability  : stable
-   Portability: portable
-
-   common edit arrows
-
--}
-
--- ------------------------------------------------------------
-
-module Text.XML.HXT.Arrow.Edit
-    ( canonicalizeAllNodes
-    , canonicalizeForXPath
-    , canonicalizeContents
-    , collapseAllXText
-    , collapseXText
-
-    , xshowEscapeXml
-
-    , escapeXmlDoc
-    , escapeHtmlDoc
-
-    , haskellRepOfXmlDoc
-    , treeRepOfXmlDoc
-    , addHeadlineToXmlDoc
-
-    , indentDoc
-    , numberLinesInXmlDoc
- 
-    , removeComment
-    , removeAllComment
-    , removeWhiteSpace
-    , removeAllWhiteSpace
-    , removeDocWhiteSpace
-
-    , transfCdata
-    , transfAllCdata
-    , transfCharRef
-    , transfAllCharRef
-
-    , hasXmlPi
-    , addXmlPi
-    , addXmlPiEncoding
-
-    , addDoctypeDecl
-    , addXHtmlDoctypeStrict
-    , addXHtmlDoctypeTransitional
-    , addXHtmlDoctypeFrameset
-    )
-where
-
-import Control.Arrow
-import Control.Arrow.ArrowList
-import Control.Arrow.ArrowIf
-import Control.Arrow.ArrowTree
-
-import Control.Arrow.ListArrow
-
-import Text.XML.HXT.Arrow.XmlArrow
-
-import Text.XML.HXT.DOM.Interface
-
-import qualified
-       Text.XML.HXT.DOM.XmlNode as XN
-
-import Text.XML.HXT.DOM.Unicode
-    ( isXmlSpaceChar )
-
-import Text.XML.HXT.DOM.FormatXmlTree
-    ( formatXmlTree )
-
-import Text.XML.HXT.Parser.XmlEntities
-    ( xmlEntities )
-
-import Text.XML.HXT.Parser.XhtmlEntities
-    ( xhtmlEntities )
-
-import Data.Maybe
-
-import qualified Data.Map as M
-
--- ------------------------------------------------------------
-
--- |
--- Applies some "Canonical XML" rules to a document tree.
---
--- The rule differ slightly for canonical XML and XPath in handling of comments
---
--- Note: This is not the whole canonicalization as it is specified by the W3C
--- Recommendation. Adding attribute defaults or sorting attributes in lexicographic
--- order is done by the @transform@ function of module @Text.XML.HXT.Validator.Validation@.
--- Replacing entities or line feed normalization is done by the parser.
---
---
--- Not implemented yet:
---
---  - Whitespace within start and end tags is normalized
---
---  - Special characters in attribute values and character content are replaced by character references
---
--- see 'canonicalizeAllNodes' and 'canonicalizeForXPath'
-
-canonicalizeTree'	:: LA XmlTree XmlTree -> LA XmlTree XmlTree
-canonicalizeTree' toBeRemoved
-    = processChildren (none `when` isText)
-      >>>
-      processBottomUp canonicalize1Node
-      where
-      canonicalize1Node	:: LA XmlTree XmlTree
-      canonicalize1Node
-	  = (deep isPi `when` isDTD)		-- remove DTD parts, except PIs
-	    >>>
-	    (none `when` toBeRemoved)		-- remove unintersting nodes
-	    >>>
-	    ( processAttrl ( processChildren transfCharRef
-			     >>>
-			     collapseXText
-			   )
-	      `when` isElem
-	    )
-	    >>>
-	    transfCdata				-- CDATA -> text
-	    >>>
-	    transfCharRef			-- Char refs -> text
-	    >>>
-	    collapseXText			-- combine text
-
-
--- |
--- Applies some "Canonical XML" rules to a document tree.
---
--- The rule differ slightly for canonical XML and XPath in handling of comments
---
--- Note: This is not the whole canonicalization as it is specified by the W3C
--- Recommendation. Adding attribute defaults or sorting attributes in lexicographic
--- order is done by the @transform@ function of module @Text.XML.HXT.Validator.Validation@.
--- Replacing entities or line feed normalization is done by the parser.
---
--- Rules: remove DTD parts, processing instructions, comments and substitute char refs in attribute
--- values and text
---
--- Not implemented yet:
---
---  - Whitespace within start and end tags is normalized
---
---  - Special characters in attribute values and character content are replaced by character references
-
-canonicalizeAllNodes	:: ArrowList a => a XmlTree XmlTree
-canonicalizeAllNodes
-    = fromLA $
-      canonicalizeTree' ( isCmt		-- remove comment
-			  <+>
-			  isXmlPi	-- remove xml declaration
-			)
-
--- |
--- Canonicalize a tree for XPath
--- Like 'canonicalizeAllNodes' but comment nodes are not removed
---
--- see 'canonicalizeAllNodes'
-
-canonicalizeForXPath	:: ArrowList a => a XmlTree XmlTree
-canonicalizeForXPath
-    = fromLA $
-      canonicalizeTree' isXmlPi
-
--- |
--- Canonicalize the contents of a document
---
--- substitutes all char refs in text and attribute values,
--- removes CDATA section and combines all sequences of resulting text
--- nodes into a single text node
---
--- see 'canonicalizeAllNodes'
-
-canonicalizeContents	:: ArrowList a => a XmlTree XmlTree
-canonicalizeContents
-    = fromLA $
-      processBottomUp canonicalize1Node
-      where
-      canonicalize1Node	:: LA XmlTree XmlTree
-      canonicalize1Node
-	  = ( processAttrl ( processChildren transfCharRef
-			     >>>
-			     collapseXText
-			   )
-	      `when` isElem
-	    )
-	    >>>
-	    transfCdata				-- CDATA -> text
-	    >>>
-	    transfCharRef			-- Char refs -> text
-	    >>>
-	    collapseXText			-- combine text
-
--- ------------------------------------------------------------
-
-collapseXText'		:: LA XmlTree XmlTree
-collapseXText'
-    = replaceChildren ( listA getChildren >>> arrL (foldr mergeText' []) )
-    where
-    mergeText'	:: XmlTree -> XmlTrees -> XmlTrees
-    mergeText' t1 (t2 : ts2)
-	| XN.isText t1 && XN.isText t2
-	    = let
-	      s1 = fromJust . XN.getText $ t1
-	      s2 = fromJust . XN.getText $ t2
-	      t  = XN.mkText (s1 ++ s2)
-	      in
-	      t : ts2
-    mergeText' t1 ts
-	= t1 : ts
-
--- |
--- Collects sequences of text nodes in the list of children of a node into one single text node.
--- This is useful, e.g. after char and entity reference substitution
-
-collapseXText		:: ArrowList a => a XmlTree XmlTree
-collapseXText
-    = fromLA $
-      collapseXText'
-
--- |
--- Applies collapseXText recursively.
---
---
--- see also : 'collapseXText'
-
-collapseAllXText	:: ArrowList a => a XmlTree XmlTree
-collapseAllXText
-    = fromLA $
-      processBottomUp collapseXText'
-
--- ------------------------------------------------------------
-
--- | apply an arrow to the input and convert the resulting XML trees into an XML escaped string
---
--- This is a save variant for converting a tree into an XML string representation that is parsable with 'Text.XML.HXT.Arrow.ReadDocument'.
--- It is implemented with 'Text.XML.HXT.Arrow.XmlArrow.xshow', but xshow does no XML escaping. The XML escaping is done with
--- 'Text.XML.HXT.Arrow.Edit.escapeXmlDoc' before xshow is applied.
---
--- So the following law holds
---
--- > xshowEscape f >>> xread == f
-
-xshowEscapeXml		:: ArrowXml a => a n XmlTree -> a n String
-xshowEscapeXml f	= xshow (f >>> escapeXmlDoc)
-
--- ------------------------------------------------------------
-
--- |
--- escape XmlText,
--- transform all special XML chars into char- or entity- refs
-
-type EntityRefTable	= M.Map Int String
-
-xmlEntityRefTable
- , xhtmlEntityRefTable	:: EntityRefTable
-
-xmlEntityRefTable   = buildEntityRefTable $ xmlEntities
-xhtmlEntityRefTable = buildEntityRefTable $ xhtmlEntities
-
-buildEntityRefTable	:: [(String, Int)] -> EntityRefTable
-buildEntityRefTable	= M.fromList . map (\ (x,y) -> (y,x) )
-
-escapeText''	:: (Char -> XmlTree) -> (Char -> Bool) -> XmlTree -> XmlTrees
-escapeText'' escChar isEsc t
-    = maybe [t] escape' . XN.getText $ t
-    where
-    escape' "" = [t]		-- empty text nodes remain empty text nodes
-    escape' s  = escape s	-- they do not disapear
-
-    escape ""
-	= []
-    escape (c:s1)
-	| isEsc c
-	    = escChar c : escape s1
-    escape s
-	= XN.mkText s1 : escape s2
-	where
-	(s1, s2) = break isEsc s
-
-{-
-escapeCharRef	:: Char -> XmlTree
-escapeCharRef	= XN.mkCharRef . fromEnum
--}
-
-escapeEntityRef	:: EntityRefTable -> Char -> XmlTree
-escapeEntityRef entityTable c
-    = maybe (XN.mkCharRef c') XN.mkEntityRef . M.lookup c' $ entityTable
-    where
-    c' = fromEnum c
-
-escapeXmlEntityRef	:: Char -> XmlTree
-escapeXmlEntityRef	= escapeEntityRef xmlEntityRefTable
-
-escapeHtmlEntityRef	:: Char -> XmlTree
-escapeHtmlEntityRef	= escapeEntityRef xhtmlEntityRefTable
-
--- |
--- escape all special XML chars into XML entity references or char references
---
--- convert the special XML chars \< and & in text nodes into prefefiened XML entity references,
--- in attribute values also \', \", \>, \\n, \\r and \\t are converted into entity or char references,
--- in comments nothing is converted (see XML standard 2.4, useful e.g. for JavaScript).
-
-escapeXmlDoc		:: ArrowList a => a XmlTree XmlTree
-escapeXmlDoc
-    = fromLA $ escapeDoc escXmlText escXmlAttrValue
-    where
-    escXmlText
-	= arrL $ escapeText'' escapeXmlEntityRef (`elem` "<&")		-- no escape for ", ' and > required: XML standard 2.4
-    escXmlAttrValue
-        = arrL $ escapeText'' escapeXmlEntityRef (`elem` "<>\"\'&\n\r\t")
-
-
--- |
--- escape all special HTML chars into XHTML entity references or char references
---
--- convert the special XML chars \< and & and all none ASCII chars in text nodes into prefefiened XML or XHTML entity references,
--- in attribute values also \', \", \>, \\n, \\r and \\t are converted into entity or char references,
--- in comments nothing is converted
-
-escapeHtmlDoc		:: ArrowList a => a XmlTree XmlTree
-escapeHtmlDoc
-    = fromLA $ escapeDoc escHtmlText escHtmlAttrValue
-    where
-    escHtmlText
-	= arrL $ escapeText'' escapeHtmlEntityRef isHtmlTextEsc
-    escHtmlAttrValue
-        = arrL $ escapeText'' escapeHtmlEntityRef isHtmlAttrEsc
-
-    isHtmlTextEsc c
-	= c >= toEnum(128) || ( c `elem` "<&" )
-    isHtmlAttrEsc c
-	= c >= toEnum(128) || ( c `elem` "<>\"\'&\n\r\t" )
-
-escapeDoc		:: LA XmlTree XmlTree -> LA XmlTree XmlTree -> LA XmlTree XmlTree
-escapeDoc escText escAttr
-    = escape
-    where
-    escape
-	= choiceA
-	  [ isElem  :-> ( processChildren escape
-			  >>>
-			  processAttrl escVal
-			)
-	  , isText  :-> escText
-	  -- , isCmt   :-> escCmt
-	  , isDTD   :-> processTopDown escDTD
-	  , this    :-> this
-	  ]
-    escVal   = processChildren escAttr
-    escDTD   = escVal `when` ( isDTDEntity <+> isDTDPEntity )
-
--- ------------------------------------------------------------
-
--- |
--- convert a document into a Haskell representation (with show).
---
--- Useful for debugging and trace output.
--- see also : 'treeRepOfXmlDoc', 'numberLinesInXmlDoc'
-
-haskellRepOfXmlDoc	:: ArrowList a => a XmlTree XmlTree
-haskellRepOfXmlDoc
-    = fromLA $
-      root [getAttrl] [show ^>> mkText]
-
--- |
--- convert a document into a text and add line numbers to the text representation.
--- 
--- Result is a root node with a single text node as child.
--- Useful for debugging and trace output.
--- see also : 'haskellRepOfXmlDoc', 'treeRepOfXmlDoc'
-
-numberLinesInXmlDoc	:: ArrowList a => a XmlTree XmlTree
-numberLinesInXmlDoc
-    = fromLA $
-      processChildren (changeText numberLines)
-    where
-    numberLines	:: String -> String
-    numberLines str
-	= concat $
-	  zipWith (\ n l -> lineNr n ++ l ++ "\n") [1..] (lines str)
-	where
-	lineNr	 :: Int -> String
-	lineNr n = (reverse (take 6 (reverse (show n) ++ replicate 6 ' '))) ++ "  "
-
--- |
--- convert a document into a text representation in tree form.
---
--- Useful for debugging and trace output.
--- see also : 'haskellRepOfXmlDoc', 'numberLinesInXmlDoc'
-
-treeRepOfXmlDoc	:: ArrowList a => a XmlTree XmlTree
-treeRepOfXmlDoc
-    = fromLA $
-      root [getAttrl] [formatXmlTree ^>> mkText]
-
-addHeadlineToXmlDoc	:: ArrowXml a => a XmlTree XmlTree
-addHeadlineToXmlDoc
-    = fromLA $ ( addTitle $< (getAttrValue a_source >>^ formatTitle) )
-    where
-    addTitle str
-	= replaceChildren ( txt str <+> getChildren <+> txt "\n" )
-    formatTitle str
-	= "\n" ++ headline ++ "\n" ++ underline ++ "\n\n"
-	where
-	headline  = "content of: " ++ str
-        underline = map (const '=') headline
-
--- ------------------------------------------------------------
-
-removeComment'		:: LA XmlTree XmlTree
-removeComment'		= none `when` isCmt
-
--- |
--- remove Comments: @none `when` isCmt@
-
-removeComment		:: ArrowXml a => a XmlTree XmlTree
-removeComment		= fromLA $ removeComment'
-
--- |
--- remove all comments recursively
-
-removeAllComment	:: ArrowXml a => a XmlTree XmlTree
-removeAllComment	= fromLA $ processBottomUp removeComment'
-
--- ----------
-
-removeWhiteSpace'	:: LA XmlTree XmlTree
-removeWhiteSpace'	= none `when` isWhiteSpace
-
--- |
--- simple filter for removing whitespace.
---
--- no check on sigificant whitespace, e.g. in HTML \<pre\>-elements, is done.
---
---
--- see also : 'removeAllWhiteSpace', 'removeDocWhiteSpace'
-
-removeWhiteSpace	:: ArrowXml a => a XmlTree XmlTree
-removeWhiteSpace	= fromLA $ removeWhiteSpace'
-
--- |
--- simple recursive filter for removing all whitespace.
---
--- removes all text nodes in a tree that consist only of whitespace.
---
---
--- see also : 'removeWhiteSpace', 'removeDocWhiteSpace'
-
-removeAllWhiteSpace	:: ArrowXml a => a XmlTree XmlTree
-removeAllWhiteSpace	= fromLA $ processBottomUp removeWhiteSpace'
-
--- |
--- filter for removing all not significant whitespace.
---
--- the tree traversed for removing whitespace between elements,
--- that was inserted for indentation and readability.
--- whitespace is only removed at places, where it's not significat
--- preserving whitespace may be controlled in a document tree
--- by a tag attribute @xml:space@
---
--- allowed values for this attribute are @default | preserve@
---
--- input is root node of the document to be cleaned up,
--- output the semantically equivalent simplified tree
---
---
--- see also : 'indentDoc', 'removeAllWhiteSpace'
-
-removeDocWhiteSpace	:: ArrowXml a => a XmlTree XmlTree
-removeDocWhiteSpace	= fromLA $ removeRootWhiteSpace
-
-
-removeRootWhiteSpace	:: LA XmlTree XmlTree
-removeRootWhiteSpace
-    =  processChildren processRootElement
-       `when`
-       isRoot
-    where
-    processRootElement	:: LA XmlTree XmlTree
-    processRootElement
-	= removeWhiteSpace >>> processChild
-	where
-	processChild
-	    = choiceA [ isDTD
-			:-> removeAllWhiteSpace			-- whitespace in DTD is redundant
-		      , this
-			:-> replaceChildren ( getChildren
-					      >>. indentTrees insertNothing False 1
-					    )
-		      ]
-
--- ------------------------------------------------------------
-
--- |
--- filter for indenting a document tree for pretty printing.
---
--- the tree is traversed for inserting whitespace for tag indentation.
---
--- whitespace is only inserted or changed at places, where it isn't significant,
--- is's not inserted between tags and text containing non whitespace chars.
---
--- whitespace is only inserted or changed at places, where it's not significant.
--- preserving whitespace may be controlled in a document tree
--- by a tag attribute @xml:space@
---
--- allowed values for this attribute are @default | preserve@.
---
--- input is a complete document tree or a document fragment
--- result is the semantically equivalent formatted tree.
---
---
--- see also : 'removeDocWhiteSpace'
-
-indentDoc		:: ArrowXml a => a XmlTree XmlTree
-indentDoc		= fromLA $
-			  ( ( isRoot `guards` indentRoot )
-			    `orElse`
-			    (root [] [this] >>> indentRoot >>> getChildren)
-			  )
-
--- ------------------------------------------------------------
-
-indentRoot		:: LA XmlTree XmlTree
-indentRoot		= processChildren indentRootChildren
-    where
-    indentRootChildren
-	= removeText >>> indentChild >>> insertNL
-	where
-	removeText	= none `when` isText
-	insertNL	= this <+> txt "\n"
-	indentChild	= ( replaceChildren
-			    ( getChildren
-			      >>.
-			      indentTrees (insertIndentation 2) False 1
-			    )
-			    `whenNot` isDTD
-			  )
-
--- ------------------------------------------------------------
---
--- copied from EditFilter and rewritten for arrows
--- to remove dependency to the filter module
-
-indentTrees	:: (Int -> LA XmlTree XmlTree) -> Bool -> Int -> XmlTrees -> XmlTrees
-indentTrees _ _ _ []
-    = []
-indentTrees indentFilter preserveSpace level ts
-    = runLAs lsf ls
-      ++
-      indentRest rs
-      where
-      runLAs f l
-	  = runLA (constL l >>> f) undefined
-
-      (ls, rs)
-	  = break XN.isElem ts
-
-      isSignificant	:: Bool
-      isSignificant
-	  = preserveSpace
-	    ||
-	    (not . null . runLAs isSignificantPart) ls
-
-      isSignificantPart	:: LA XmlTree XmlTree
-      isSignificantPart
-	  = catA
-	    [ isText `guards` neg isWhiteSpace
-	    , isCdata
-	    , isCharRef
-	    , isEntityRef
-	    ]
-
-      lsf	:: LA XmlTree XmlTree
-      lsf
-	  | isSignificant
-	      = this
-	  | otherwise
-	      = (none `when` isWhiteSpace)
-                >>>
-                (indentFilter level <+> this)
-
-      indentRest	:: XmlTrees -> XmlTrees
-      indentRest []
-	  | isSignificant
-	      = []
-	  | otherwise
-	      = runLA (indentFilter (level - 1)) undefined
-
-      indentRest (t':ts')
-	  = runLA ( ( indentElem
-		      >>>
-		      lsf
-		    )
-		    `when` isElem
-		  ) t'
-            ++
-	    ( if null ts'
-	      then indentRest
-	      else indentTrees indentFilter preserveSpace level
-	    ) ts'
-	  where
-	  indentElem
-	      = replaceChildren	( getChildren
-				  >>.
-				  indentChildren
-				)
-
-	  xmlSpaceAttrValue	:: String
-	  xmlSpaceAttrValue
-	      = concat . runLA (getAttrValue "xml:space") $ t'
-
-	  preserveSpace'	:: Bool
-	  preserveSpace'
-	      = ( fromMaybe preserveSpace
-		  .
-		  lookup xmlSpaceAttrValue
-	        ) [ ("preserve", True)
-		  , ("default",  False)
-		  ]
-
-	  indentChildren	:: XmlTrees -> XmlTrees
-	  indentChildren cs'
-	      | all (maybe False (all isXmlSpaceChar) . XN.getText) cs'
-		  = []
-	      | otherwise
-		  = indentTrees indentFilter preserveSpace' (level + 1) cs'
-
-	
--- filter for indenting elements
-
-insertIndentation	:: Int -> Int -> LA a XmlTree
-insertIndentation indentWidth level
-    = txt ('\n' : replicate (level * indentWidth) ' ')
-
--- filter for removing all whitespace
-
-insertNothing		:: Int -> LA a XmlTree
-insertNothing _		= none
-
--- ------------------------------------------------------------
-
-transfCdata'		:: LA XmlTree XmlTree
-transfCdata'		= (getCdata >>> mkText) `when` isCdata
-
--- |
--- converts a CDATA section node into a normal text node
-
-transfCdata		:: ArrowXml a => a XmlTree XmlTree
-transfCdata		= fromLA $
-			  transfCdata'
-
--- |
--- converts CDATA sections in whole document tree into normal text nodes
-
-transfAllCdata		:: ArrowXml a => a XmlTree XmlTree
-transfAllCdata		= fromLA $
-			  processBottomUp transfCdata'
-			  
---
-
-transfCharRef'		:: LA XmlTree XmlTree
-transfCharRef'		= ( getCharRef >>> arr (\ i -> [toEnum i]) >>> mkText )
-		          `when`
-			  isCharRef
-
--- |
--- converts character references to normal text
-
-transfCharRef		:: ArrowXml a => a XmlTree XmlTree
-transfCharRef		= fromLA $
-			  transfCharRef'
-
--- |
--- recursively converts all character references to normal text
-
-transfAllCharRef	:: ArrowXml a => a XmlTree XmlTree
-transfAllCharRef	= fromLA $
-			  processBottomUp transfCharRef'
-
--- ------------------------------------------------------------
-
-hasXmlPi		:: ArrowXml a => a XmlTree XmlTree
-hasXmlPi
-    = fromLA
-      ( getChildren
-	>>>
-	isPi
-	>>>
-	hasName t_xml
-      )
-
--- | add an \<?xml version=\"1.0\"?\> processing instruction
--- if it's not already there
-
-addXmlPi		:: ArrowXml a => a XmlTree XmlTree
-addXmlPi
-    = fromLA
-      ( insertChildrenAt 0 ( ( mkPi (mkSNsName t_xml) none
-			       >>>
-			       addAttr a_version "1.0"
-			     )
-			     <+>
-			     txt "\n"
-			   )
-	`whenNot`
-	hasXmlPi
-      )
-
--- | add an encoding spec to the \<?xml version=\"1.0\"?\> processing instruction
-
-addXmlPiEncoding	:: ArrowXml a => String -> a XmlTree XmlTree
-addXmlPiEncoding enc
-    = fromLA $
-      processChildren ( addAttr a_encoding enc
-		        `when`
-			( isPi >>> hasName t_xml )
-		      )
-
--- | add an XHTML strict doctype declaration to a document
-
-addXHtmlDoctypeStrict
-  , addXHtmlDoctypeTransitional
-  , addXHtmlDoctypeFrameset	:: ArrowXml a => a XmlTree XmlTree
-
--- | add an XHTML strict doctype declaration to a document
-
-addXHtmlDoctypeStrict
-    = addDoctypeDecl "html" "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"
-
--- | add an XHTML transitional doctype declaration to a document
-
-addXHtmlDoctypeTransitional
-    = addDoctypeDecl "html" "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"
-
--- | add an XHTML frameset doctype declaration to a document
-
-addXHtmlDoctypeFrameset
-    = addDoctypeDecl "html" "-//W3C//DTD XHTML 1.0 Frameset//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd"
-
--- | add a doctype declaration to a document
---
--- The arguments are the root element name, the PUBLIC id and the SYSTEM id
-
-addDoctypeDecl	:: ArrowXml a => String -> String -> String -> a XmlTree XmlTree
-addDoctypeDecl rootElem public system
-    = fromLA $
-      replaceChildren
-      ( mkDTDDoctype ( ( if null public then id else ( (k_public, public) : ) )
-		       .
-		       ( if null system then id else ( (k_system, system) : ) )
-		       $  [ (a_name, rootElem) ]
-		     ) none
-	<+>
-	txt "\n"
-	<+>
-	getChildren
-      )
-
--- ------------------------------------------------------------
+   Copyright  : Copyright (C) 2006-9 Uwe Schmidt
+   License    : MIT
+
+   Maintainer : Uwe Schmidt (uwe@fh-wedel.de)
+   Stability  : stable
+   Portability: portable
+
+   common edit arrows
+
+-}
+
+-- ------------------------------------------------------------
+
+module Text.XML.HXT.Arrow.Edit
+    ( canonicalizeAllNodes
+    , canonicalizeForXPath
+    , canonicalizeContents
+    , collapseAllXText
+    , collapseXText
+
+    , xshowEscapeXml
+
+    , escapeXmlDoc
+    , escapeHtmlDoc
+
+    , haskellRepOfXmlDoc
+    , treeRepOfXmlDoc
+    , addHeadlineToXmlDoc
+
+    , indentDoc
+    , numberLinesInXmlDoc
+    , preventEmptyElements
+ 
+    , removeComment
+    , removeAllComment
+    , removeWhiteSpace
+    , removeAllWhiteSpace
+    , removeDocWhiteSpace
+
+    , transfCdata
+    , transfAllCdata
+    , transfCharRef
+    , transfAllCharRef
+
+    , hasXmlPi
+    , addXmlPi
+    , addXmlPiEncoding
+
+    , addDoctypeDecl
+    , addXHtmlDoctypeStrict
+    , addXHtmlDoctypeTransitional
+    , addXHtmlDoctypeFrameset
+    )
+where
+
+import           Control.Arrow
+import           Control.Arrow.ArrowList
+import           Control.Arrow.ArrowIf
+import           Control.Arrow.ArrowTree
+import 		 Control.Arrow.ListArrow
+
+import           Text.XML.HXT.Arrow.XmlArrow
+import           Text.XML.HXT.DOM.Interface
+import qualified Text.XML.HXT.DOM.XmlNode 	as XN
+import           Text.XML.HXT.DOM.Unicode		( isXmlSpaceChar )
+import           Text.XML.HXT.DOM.FormatXmlTree 	( formatXmlTree )
+import           Text.XML.HXT.Parser.HtmlParsec         ( emptyHtmlTags )
+import           Text.XML.HXT.Parser.XmlEntities	( xmlEntities )
+import           Text.XML.HXT.Parser.XhtmlEntities	( xhtmlEntities )
+
+import qualified Data.Map 			as M
+import           Data.Maybe
+
+-- ------------------------------------------------------------
+
+-- |
+-- Applies some "Canonical XML" rules to a document tree.
+--
+-- The rule differ slightly for canonical XML and XPath in handling of comments
+--
+-- Note: This is not the whole canonicalization as it is specified by the W3C
+-- Recommendation. Adding attribute defaults or sorting attributes in lexicographic
+-- order is done by the @transform@ function of module @Text.XML.HXT.Validator.Validation@.
+-- Replacing entities or line feed normalization is done by the parser.
+--
+--
+-- Not implemented yet:
+--
+--  - Whitespace within start and end tags is normalized
+--
+--  - Special characters in attribute values and character content are replaced by character references
+--
+-- see 'canonicalizeAllNodes' and 'canonicalizeForXPath'
+
+canonicalizeTree'	:: LA XmlTree XmlTree -> LA XmlTree XmlTree
+canonicalizeTree' toBeRemoved
+    = processChildren (none `when` isText)
+      >>>
+      processBottomUp canonicalize1Node
+      where
+      canonicalize1Node	:: LA XmlTree XmlTree
+      canonicalize1Node
+	  = (deep isPi `when` isDTD)		-- remove DTD parts, except PIs
+	    >>>
+	    (none `when` toBeRemoved)		-- remove unintersting nodes
+	    >>>
+	    ( processAttrl ( processChildren transfCharRef
+			     >>>
+			     collapseXText
+			   )
+	      `when` isElem
+	    )
+	    >>>
+	    transfCdata				-- CDATA -> text
+	    >>>
+	    transfCharRef			-- Char refs -> text
+	    >>>
+	    collapseXText			-- combine text
+
+
+-- |
+-- Applies some "Canonical XML" rules to a document tree.
+--
+-- The rule differ slightly for canonical XML and XPath in handling of comments
+--
+-- Note: This is not the whole canonicalization as it is specified by the W3C
+-- Recommendation. Adding attribute defaults or sorting attributes in lexicographic
+-- order is done by the @transform@ function of module @Text.XML.HXT.Validator.Validation@.
+-- Replacing entities or line feed normalization is done by the parser.
+--
+-- Rules: remove DTD parts, processing instructions, comments and substitute char refs in attribute
+-- values and text
+--
+-- Not implemented yet:
+--
+--  - Whitespace within start and end tags is normalized
+--
+--  - Special characters in attribute values and character content are replaced by character references
+
+canonicalizeAllNodes	:: ArrowList a => a XmlTree XmlTree
+canonicalizeAllNodes
+    = fromLA $
+      canonicalizeTree' ( isCmt		-- remove comment
+			  <+>
+			  isXmlPi	-- remove xml declaration
+			)
+
+-- |
+-- Canonicalize a tree for XPath
+-- Like 'canonicalizeAllNodes' but comment nodes are not removed
+--
+-- see 'canonicalizeAllNodes'
+
+canonicalizeForXPath	:: ArrowList a => a XmlTree XmlTree
+canonicalizeForXPath
+    = fromLA $
+      canonicalizeTree' isXmlPi
+
+-- |
+-- Canonicalize the contents of a document
+--
+-- substitutes all char refs in text and attribute values,
+-- removes CDATA section and combines all sequences of resulting text
+-- nodes into a single text node
+--
+-- see 'canonicalizeAllNodes'
+
+canonicalizeContents	:: ArrowList a => a XmlTree XmlTree
+canonicalizeContents
+    = fromLA $
+      processBottomUp canonicalize1Node
+      where
+      canonicalize1Node	:: LA XmlTree XmlTree
+      canonicalize1Node
+	  = ( processAttrl ( processChildren transfCharRef
+			     >>>
+			     collapseXText
+			   )
+	      `when` isElem
+	    )
+	    >>>
+	    transfCdata				-- CDATA -> text
+	    >>>
+	    transfCharRef			-- Char refs -> text
+	    >>>
+	    collapseXText			-- combine text
+
+-- ------------------------------------------------------------
+
+collapseXText'		:: LA XmlTree XmlTree
+collapseXText'
+    = replaceChildren ( listA getChildren >>> arrL (foldr mergeText' []) )
+    where
+    mergeText'	:: XmlTree -> XmlTrees -> XmlTrees
+    mergeText' t1 (t2 : ts2)
+	| XN.isText t1 && XN.isText t2
+	    = let
+	      s1 = fromJust . XN.getText $ t1
+	      s2 = fromJust . XN.getText $ t2
+	      t  = XN.mkText (s1 ++ s2)
+	      in
+	      t : ts2
+    mergeText' t1 ts
+	= t1 : ts
+
+-- |
+-- Collects sequences of text nodes in the list of children of a node into one single text node.
+-- This is useful, e.g. after char and entity reference substitution
+
+collapseXText		:: ArrowList a => a XmlTree XmlTree
+collapseXText
+    = fromLA $
+      collapseXText'
+
+-- |
+-- Applies collapseXText recursively.
+--
+--
+-- see also : 'collapseXText'
+
+collapseAllXText	:: ArrowList a => a XmlTree XmlTree
+collapseAllXText
+    = fromLA $
+      processBottomUp collapseXText'
+
+-- ------------------------------------------------------------
+
+-- | apply an arrow to the input and convert the resulting XML trees into an XML escaped string
+--
+-- This is a save variant for converting a tree into an XML string representation that is parsable with 'Text.XML.HXT.Arrow.ReadDocument'.
+-- It is implemented with 'Text.XML.HXT.Arrow.XmlArrow.xshow', but xshow does no XML escaping. The XML escaping is done with
+-- 'Text.XML.HXT.Arrow.Edit.escapeXmlDoc' before xshow is applied.
+--
+-- So the following law holds
+--
+-- > xshowEscape f >>> xread == f
+
+xshowEscapeXml		:: ArrowXml a => a n XmlTree -> a n String
+xshowEscapeXml f	= xshow (f >>> escapeXmlDoc)
+
+-- ------------------------------------------------------------
+
+-- |
+-- escape XmlText,
+-- transform all special XML chars into char- or entity- refs
+
+type EntityRefTable	= M.Map Int String
+
+xmlEntityRefTable
+ , xhtmlEntityRefTable	:: EntityRefTable
+
+xmlEntityRefTable   = buildEntityRefTable $ xmlEntities
+xhtmlEntityRefTable = buildEntityRefTable $ xhtmlEntities
+
+buildEntityRefTable	:: [(String, Int)] -> EntityRefTable
+buildEntityRefTable	= M.fromList . map (\ (x,y) -> (y,x) )
+
+escapeText''	:: (Char -> XmlTree) -> (Char -> Bool) -> XmlTree -> XmlTrees
+escapeText'' escChar isEsc t
+    = maybe [t] escape' . XN.getText $ t
+    where
+    escape' "" = [t]		-- empty text nodes remain empty text nodes
+    escape' s  = escape s	-- they do not disapear
+
+    escape ""
+	= []
+    escape (c:s1)
+	| isEsc c
+	    = escChar c : escape s1
+    escape s
+	= XN.mkText s1 : escape s2
+	where
+	(s1, s2) = break isEsc s
+
+{-
+escapeCharRef	:: Char -> XmlTree
+escapeCharRef	= XN.mkCharRef . fromEnum
+-}
+
+escapeEntityRef	:: EntityRefTable -> Char -> XmlTree
+escapeEntityRef entityTable c
+    = maybe (XN.mkCharRef c') XN.mkEntityRef . M.lookup c' $ entityTable
+    where
+    c' = fromEnum c
+
+escapeXmlEntityRef	:: Char -> XmlTree
+escapeXmlEntityRef	= escapeEntityRef xmlEntityRefTable
+
+escapeHtmlEntityRef	:: Char -> XmlTree
+escapeHtmlEntityRef	= escapeEntityRef xhtmlEntityRefTable
+
+-- ------------------------------------------------------------
+
+-- |
+-- escape all special XML chars into XML entity references or char references
+--
+-- convert the special XML chars \< and & in text nodes into prefefiened XML entity references,
+-- in attribute values also \', \", \>, \\n, \\r and \\t are converted into entity or char references,
+-- in comments nothing is converted (see XML standard 2.4, useful e.g. for JavaScript).
+
+escapeXmlDoc		:: ArrowList a => a XmlTree XmlTree
+escapeXmlDoc
+    = fromLA $ escapeDoc escXmlText escXmlAttrValue
+    where
+    escXmlText
+	= arrL $ escapeText'' escapeXmlEntityRef (`elem` "<&")		-- no escape for ", ' and > required: XML standard 2.4
+    escXmlAttrValue
+        = arrL $ escapeText'' escapeXmlEntityRef (`elem` "<>\"\'&\n\r\t")
+
+
+-- |
+-- escape all special HTML chars into XHTML entity references or char references
+--
+-- convert the special XML chars \< and & and all none ASCII chars in text nodes into prefefiened XML or XHTML entity references,
+-- in attribute values also \', \", \>, \\n, \\r and \\t are converted into entity or char references,
+-- in comments nothing is converted
+
+-- ------------------------------------------------------------
+
+escapeHtmlDoc		:: ArrowList a => a XmlTree XmlTree
+escapeHtmlDoc
+    = fromLA $ escapeDoc escHtmlText escHtmlAttrValue
+    where
+    escHtmlText
+	= arrL $ escapeText'' escapeHtmlEntityRef isHtmlTextEsc
+    escHtmlAttrValue
+        = arrL $ escapeText'' escapeHtmlEntityRef isHtmlAttrEsc
+
+    isHtmlTextEsc c
+	= c >= toEnum(128) || ( c `elem` "<&" )
+    isHtmlAttrEsc c
+	= c >= toEnum(128) || ( c `elem` "<>\"\'&\n\r\t" )
+
+-- ------------------------------------------------------------
+
+escapeDoc		:: LA XmlTree XmlTree -> LA XmlTree XmlTree -> LA XmlTree XmlTree
+escapeDoc escText escAttr
+    = escape
+    where
+    escape
+	= choiceA
+	  [ isElem  :-> ( processChildren escape
+			  >>>
+			  processAttrl escVal
+			)
+	  , isText  :-> escText
+	  -- , isCmt   :-> escCmt
+	  , isDTD   :-> processTopDown escDTD
+	  , this    :-> this
+	  ]
+    escVal   = processChildren escAttr
+    escDTD   = escVal `when` ( isDTDEntity <+> isDTDPEntity )
+
+-- ------------------------------------------------------------
+
+preventEmptyElements	:: ArrowList a => Bool -> a XmlTree XmlTree
+preventEmptyElements isHtml
+    = fromLA $ insertDummyElem
+    where
+    isNoneEmpty
+	| isHtml	= hasNameWith (localPart >>> (`notElem` emptyHtmlTags))
+	| otherwise	= this
+
+    insertDummyElem
+	= processBottomUp
+	  ( replaceChildren (txt "")
+	    `when`
+	    ( isElem
+	      >>>
+	      isNoneEmpty
+	      >>>
+	      neg getChildren
+	    )
+	  )
+
+-- ------------------------------------------------------------
+
+-- |
+-- convert a document into a Haskell representation (with show).
+--
+-- Useful for debugging and trace output.
+-- see also : 'treeRepOfXmlDoc', 'numberLinesInXmlDoc'
+
+haskellRepOfXmlDoc	:: ArrowList a => a XmlTree XmlTree
+haskellRepOfXmlDoc
+    = fromLA $
+      root [getAttrl] [show ^>> mkText]
+
+-- |
+-- convert a document into a text and add line numbers to the text representation.
+-- 
+-- Result is a root node with a single text node as child.
+-- Useful for debugging and trace output.
+-- see also : 'haskellRepOfXmlDoc', 'treeRepOfXmlDoc'
+
+numberLinesInXmlDoc	:: ArrowList a => a XmlTree XmlTree
+numberLinesInXmlDoc
+    = fromLA $
+      processChildren (changeText numberLines)
+    where
+    numberLines	:: String -> String
+    numberLines str
+	= concat $
+	  zipWith (\ n l -> lineNr n ++ l ++ "\n") [1..] (lines str)
+	where
+	lineNr	 :: Int -> String
+	lineNr n = (reverse (take 6 (reverse (show n) ++ replicate 6 ' '))) ++ "  "
+
+-- |
+-- convert a document into a text representation in tree form.
+--
+-- Useful for debugging and trace output.
+-- see also : 'haskellRepOfXmlDoc', 'numberLinesInXmlDoc'
+
+treeRepOfXmlDoc	:: ArrowList a => a XmlTree XmlTree
+treeRepOfXmlDoc
+    = fromLA $
+      root [getAttrl] [formatXmlTree ^>> mkText]
+
+addHeadlineToXmlDoc	:: ArrowXml a => a XmlTree XmlTree
+addHeadlineToXmlDoc
+    = fromLA $ ( addTitle $< (getAttrValue a_source >>^ formatTitle) )
+    where
+    addTitle str
+	= replaceChildren ( txt str <+> getChildren <+> txt "\n" )
+    formatTitle str
+	= "\n" ++ headline ++ "\n" ++ underline ++ "\n\n"
+	where
+	headline  = "content of: " ++ str
+        underline = map (const '=') headline
+
+-- ------------------------------------------------------------
+
+removeComment'		:: LA XmlTree XmlTree
+removeComment'		= none `when` isCmt
+
+-- |
+-- remove Comments: @none `when` isCmt@
+
+removeComment		:: ArrowXml a => a XmlTree XmlTree
+removeComment		= fromLA $ removeComment'
+
+-- |
+-- remove all comments recursively
+
+removeAllComment	:: ArrowXml a => a XmlTree XmlTree
+removeAllComment	= fromLA $ processBottomUp removeComment'
+
+-- ----------
+
+removeWhiteSpace'	:: LA XmlTree XmlTree
+removeWhiteSpace'	= none `when` isWhiteSpace
+
+-- |
+-- simple filter for removing whitespace.
+--
+-- no check on sigificant whitespace, e.g. in HTML \<pre\>-elements, is done.
+--
+--
+-- see also : 'removeAllWhiteSpace', 'removeDocWhiteSpace'
+
+removeWhiteSpace	:: ArrowXml a => a XmlTree XmlTree
+removeWhiteSpace	= fromLA $ removeWhiteSpace'
+
+-- |
+-- simple recursive filter for removing all whitespace.
+--
+-- removes all text nodes in a tree that consist only of whitespace.
+--
+--
+-- see also : 'removeWhiteSpace', 'removeDocWhiteSpace'
+
+removeAllWhiteSpace	:: ArrowXml a => a XmlTree XmlTree
+removeAllWhiteSpace	= fromLA $ processBottomUp removeWhiteSpace'
+
+-- |
+-- filter for removing all not significant whitespace.
+--
+-- the tree traversed for removing whitespace between elements,
+-- that was inserted for indentation and readability.
+-- whitespace is only removed at places, where it's not significat
+-- preserving whitespace may be controlled in a document tree
+-- by a tag attribute @xml:space@
+--
+-- allowed values for this attribute are @default | preserve@
+--
+-- input is root node of the document to be cleaned up,
+-- output the semantically equivalent simplified tree
+--
+--
+-- see also : 'indentDoc', 'removeAllWhiteSpace'
+
+removeDocWhiteSpace	:: ArrowXml a => a XmlTree XmlTree
+removeDocWhiteSpace	= fromLA $ removeRootWhiteSpace
+
+
+removeRootWhiteSpace	:: LA XmlTree XmlTree
+removeRootWhiteSpace
+    =  processChildren processRootElement
+       `when`
+       isRoot
+    where
+    processRootElement	:: LA XmlTree XmlTree
+    processRootElement
+	= removeWhiteSpace >>> processChild
+	where
+	processChild
+	    = choiceA [ isDTD
+			:-> removeAllWhiteSpace			-- whitespace in DTD is redundant
+		      , this
+			:-> replaceChildren ( getChildren
+					      >>. indentTrees insertNothing False 1
+					    )
+		      ]
+
+-- ------------------------------------------------------------
+
+-- |
+-- filter for indenting a document tree for pretty printing.
+--
+-- the tree is traversed for inserting whitespace for tag indentation.
+--
+-- whitespace is only inserted or changed at places, where it isn't significant,
+-- is's not inserted between tags and text containing non whitespace chars.
+--
+-- whitespace is only inserted or changed at places, where it's not significant.
+-- preserving whitespace may be controlled in a document tree
+-- by a tag attribute @xml:space@
+--
+-- allowed values for this attribute are @default | preserve@.
+--
+-- input is a complete document tree or a document fragment
+-- result is the semantically equivalent formatted tree.
+--
+--
+-- see also : 'removeDocWhiteSpace'
+
+indentDoc		:: ArrowXml a => a XmlTree XmlTree
+indentDoc		= fromLA $
+			  ( ( isRoot `guards` indentRoot )
+			    `orElse`
+			    (root [] [this] >>> indentRoot >>> getChildren)
+			  )
+
+-- ------------------------------------------------------------
+
+indentRoot		:: LA XmlTree XmlTree
+indentRoot		= processChildren indentRootChildren
+    where
+    indentRootChildren
+	= removeText >>> indentChild >>> insertNL
+	where
+	removeText	= none `when` isText
+	insertNL	= this <+> txt "\n"
+	indentChild	= ( replaceChildren
+			    ( getChildren
+			      >>.
+			      indentTrees (insertIndentation 2) False 1
+			    )
+			    `whenNot` isDTD
+			  )
+
+-- ------------------------------------------------------------
+--
+-- copied from EditFilter and rewritten for arrows
+-- to remove dependency to the filter module
+
+indentTrees	:: (Int -> LA XmlTree XmlTree) -> Bool -> Int -> XmlTrees -> XmlTrees
+indentTrees _ _ _ []
+    = []
+indentTrees indentFilter preserveSpace level ts
+    = runLAs lsf ls
+      ++
+      indentRest rs
+      where
+      runLAs f l
+	  = runLA (constL l >>> f) undefined
+
+      (ls, rs)
+	  = break XN.isElem ts
+
+      isSignificant	:: Bool
+      isSignificant
+	  = preserveSpace
+	    ||
+	    (not . null . runLAs isSignificantPart) ls
+
+      isSignificantPart	:: LA XmlTree XmlTree
+      isSignificantPart
+	  = catA
+	    [ isText `guards` neg isWhiteSpace
+	    , isCdata
+	    , isCharRef
+	    , isEntityRef
+	    ]
+
+      lsf	:: LA XmlTree XmlTree
+      lsf
+	  | isSignificant
+	      = this
+	  | otherwise
+	      = (none `when` isWhiteSpace)
+                >>>
+                (indentFilter level <+> this)
+
+      indentRest	:: XmlTrees -> XmlTrees
+      indentRest []
+	  | isSignificant
+	      = []
+	  | otherwise
+	      = runLA (indentFilter (level - 1)) undefined
+
+      indentRest (t':ts')
+	  = runLA ( ( indentElem
+		      >>>
+		      lsf
+		    )
+		    `when` isElem
+		  ) t'
+            ++
+	    ( if null ts'
+	      then indentRest
+	      else indentTrees indentFilter preserveSpace level
+	    ) ts'
+	  where
+	  indentElem
+	      = replaceChildren	( getChildren
+				  >>.
+				  indentChildren
+				)
+
+	  xmlSpaceAttrValue	:: String
+	  xmlSpaceAttrValue
+	      = concat . runLA (getAttrValue "xml:space") $ t'
+
+	  preserveSpace'	:: Bool
+	  preserveSpace'
+	      = ( fromMaybe preserveSpace
+		  .
+		  lookup xmlSpaceAttrValue
+	        ) [ ("preserve", True)
+		  , ("default",  False)
+		  ]
+
+	  indentChildren	:: XmlTrees -> XmlTrees
+	  indentChildren cs'
+	      | all (maybe False (all isXmlSpaceChar) . XN.getText) cs'
+		  = []
+	      | otherwise
+		  = indentTrees indentFilter preserveSpace' (level + 1) cs'
+
+	
+-- filter for indenting elements
+
+insertIndentation	:: Int -> Int -> LA a XmlTree
+insertIndentation indentWidth level
+    = txt ('\n' : replicate (level * indentWidth) ' ')
+
+-- filter for removing all whitespace
+
+insertNothing		:: Int -> LA a XmlTree
+insertNothing _		= none
+
+-- ------------------------------------------------------------
+
+transfCdata'		:: LA XmlTree XmlTree
+transfCdata'		= (getCdata >>> mkText) `when` isCdata
+
+-- |
+-- converts a CDATA section node into a normal text node
+
+transfCdata		:: ArrowXml a => a XmlTree XmlTree
+transfCdata		= fromLA $
+			  transfCdata'
+
+-- |
+-- converts CDATA sections in whole document tree into normal text nodes
+
+transfAllCdata		:: ArrowXml a => a XmlTree XmlTree
+transfAllCdata		= fromLA $
+			  processBottomUp transfCdata'
+			  
+--
+
+transfCharRef'		:: LA XmlTree XmlTree
+transfCharRef'		= ( getCharRef >>> arr (\ i -> [toEnum i]) >>> mkText )
+		          `when`
+			  isCharRef
+
+-- |
+-- converts character references to normal text
+
+transfCharRef		:: ArrowXml a => a XmlTree XmlTree
+transfCharRef		= fromLA $
+			  transfCharRef'
+
+-- |
+-- recursively converts all character references to normal text
+
+transfAllCharRef	:: ArrowXml a => a XmlTree XmlTree
+transfAllCharRef	= fromLA $
+			  processBottomUp transfCharRef'
+
+-- ------------------------------------------------------------
+
+hasXmlPi		:: ArrowXml a => a XmlTree XmlTree
+hasXmlPi
+    = fromLA
+      ( getChildren
+	>>>
+	isPi
+	>>>
+	hasName t_xml
+      )
+
+-- | add an \<?xml version=\"1.0\"?\> processing instruction
+-- if it's not already there
+
+addXmlPi		:: ArrowXml a => a XmlTree XmlTree
+addXmlPi
+    = fromLA
+      ( insertChildrenAt 0 ( ( mkPi (mkSNsName t_xml) none
+			       >>>
+			       addAttr a_version "1.0"
+			     )
+			     <+>
+			     txt "\n"
+			   )
+	`whenNot`
+	hasXmlPi
+      )
+
+-- | add an encoding spec to the \<?xml version=\"1.0\"?\> processing instruction
+
+addXmlPiEncoding	:: ArrowXml a => String -> a XmlTree XmlTree
+addXmlPiEncoding enc
+    = fromLA $
+      processChildren ( addAttr a_encoding enc
+		        `when`
+			( isPi >>> hasName t_xml )
+		      )
+
+-- | add an XHTML strict doctype declaration to a document
+
+addXHtmlDoctypeStrict
+  , addXHtmlDoctypeTransitional
+  , addXHtmlDoctypeFrameset	:: ArrowXml a => a XmlTree XmlTree
+
+-- | add an XHTML strict doctype declaration to a document
+
+addXHtmlDoctypeStrict
+    = addDoctypeDecl "html" "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"
+
+-- | add an XHTML transitional doctype declaration to a document
+
+addXHtmlDoctypeTransitional
+    = addDoctypeDecl "html" "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"
+
+-- | add an XHTML frameset doctype declaration to a document
+
+addXHtmlDoctypeFrameset
+    = addDoctypeDecl "html" "-//W3C//DTD XHTML 1.0 Frameset//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd"
+
+-- | add a doctype declaration to a document
+--
+-- The arguments are the root element name, the PUBLIC id and the SYSTEM id
+
+addDoctypeDecl	:: ArrowXml a => String -> String -> String -> a XmlTree XmlTree
+addDoctypeDecl rootElem public system
+    = fromLA $
+      replaceChildren
+      ( mkDTDDoctype ( ( if null public then id else ( (k_public, public) : ) )
+		       .
+		       ( if null system then id else ( (k_system, system) : ) )
+		       $  [ (a_name, rootElem) ]
+		     ) none
+	<+>
+	txt "\n"
+	<+>
+	getChildren
+      )
+
+-- ------------------------------------------------------------
    diff --git a/doc/hdoc/src/Text-XML-HXT-Arrow-GeneralEntitySubstitution.html b/doc/hdoc/src/Text-XML-HXT-Arrow-GeneralEntitySubstitution.html --- a/doc/hdoc/src/Text-XML-HXT-Arrow-GeneralEntitySubstitution.html +++ b/doc/hdoc/src/Text-XML-HXT-Arrow-GeneralEntitySubstitution.html @@ -140,7 +140,7 @@ addInternalEntity = ( ( getDTDAttrValue a_name >>> - traceString 2 (("processGeneralEntity: general entity definition for " ++) . show) + traceValue 2 (("processGeneralEntity: general entity definition for " ++) . show) ) &&& xshow (getChildren >>> isText) @@ -168,7 +168,7 @@ addExternalEntity = ( ( getDTDAttrValue a_name >>> - traceString 2 (("processGeneralEntity: external entity definition for " ++) . show) + traceValue 2 (("processGeneralEntity: external entity definition for " ++) . show) ) &&& getDTDAttrValue a_url -- the absolute URL, not the relative in attr: k_system @@ -182,7 +182,7 @@ addUnparsedEntity = getDTDAttrValue a_name >>> - traceString 2 (("processGeneralEntity: unparsed entity definition for " ++) . show) + traceValue 2 (("processGeneralEntity: unparsed entity definition for " ++) . show) >>> applyA (arr (insertEntity substUnparsed)) >>> @@ -244,7 +244,7 @@ substEntityRef = applyA ( ( ( getEntityRef -- get the entity name and the env >>> -- and compute the arrow to be applied - traceString 2 (("processGeneralEntity: entity reference for entity " ++) . show) + traceValue 2 (("processGeneralEntity: entity reference for entity " ++) . show) >>> traceMsg 3 ("recursion list = " ++ show recl) ) diff --git a/doc/hdoc/src/Text-XML-HXT-Arrow-Namespace.html b/doc/hdoc/src/Text-XML-HXT-Arrow-Namespace.html --- a/doc/hdoc/src/Text-XML-HXT-Arrow-Namespace.html +++ b/doc/hdoc/src/Text-XML-HXT-Arrow-Namespace.html @@ -10,433 +10,416 @@ {- | Module : Text.XML.HXT.Arrow.Namespace - Copyright : Copyright (C) 2005 Uwe Schmidt + Copyright : Copyright (C) 2005-2008 Uwe Schmidt License : MIT Maintainer : Uwe Schmidt (uwe@fh-wedel.de) Stability : experimental Portability: portable - Version : $Id: Namespace.hs,v 1.13 2006/11/12 14:52:59 hxml Exp $ - - namespace specific arrows - --} - --- ------------------------------------------------------------ - -module Text.XML.HXT.Arrow.Namespace - ( attachNsEnv - , cleanupNamespaces - , collectNamespaceDecl - , collectPrefixUriPairs - , isNamespaceDeclAttr - , getNamespaceDecl - , processWithNsEnv - , processWithNsEnvWithoutAttrl - , propagateNamespaces - , uniqueNamespaces - , uniqueNamespacesFromDeclAndQNames - , validateNamespaces - ) -where - -import Control.Arrow -- arrow classes -import Control.Arrow.ArrowList -import Control.Arrow.ArrowIf -import Control.Arrow.ArrowTree -import Control.Arrow.ListArrow - -import Text.XML.HXT.DOM.Interface -import Text.XML.HXT.Arrow.XmlArrow - -import Data.Maybe - ( isNothing - , fromJust - ) - -import Data.List - ( nub ) + + namespace specific arrows + +-}     + +-- ------------------------------------------------------------ + +moduleText.XML.HXT.Arrow.Namespace +(attachNsEnv +,cleanupNamespaces +,collectNamespaceDecl +,collectPrefixUriPairs +,isNamespaceDeclAttr +,getNamespaceDecl +,processWithNsEnv +,processWithNsEnvWithoutAttrl +,propagateNamespaces +,uniqueNamespaces +,uniqueNamespacesFromDeclAndQNames +,validateNamespaces +) +where + +importControl.Arrow-- arrow classes +importControl.Arrow.ArrowList +importControl.Arrow.ArrowIf +importControl.Arrow.ArrowTree +importControl.Arrow.ListArrow + +importText.XML.HXT.DOM.Interface +importText.XML.HXT.Arrow.XmlArrow + +importData.Maybe(isNothing +,fromJust +) +importData.List(nub) + +-- ------------------------------------------------------------ + +-- | test whether an attribute node contains an XML Namespace declaration --- ------------------------------------------------------------ - --- | test whether an attribute node contains an XML Namespace declaration - -isNamespaceDeclAttr::ArrowXmla=>aXmlTreeXmlTree -isNamespaceDeclAttr -=fromLA$ -(getAttrName>>>isAisNsQName)`guards`this -where -isNsQNamen -=px==a_xmlns -&& -(nulllp||(not.null.tail$lp)) -where -(px,lp)=span(/=':').qualifiedName$n - --- | get the namespace prefix and the namespace URI out of --- an attribute tree with a namespace declaration (see 'isNamespaceDeclAttr') --- for all other nodes this arrow fails - -getNamespaceDecl::ArrowXmla=>aXmlTree(String,String) -getNamespaceDecl -=fromLA$ -isNamespaceDeclAttr ->>> -((getAttrName ->>> -arrgetNsPrefix -) -&&&xshowgetChildren -) -where -getNsPrefix=drop6.qualifiedName-- drop "xmlns:" - --- ------------------------------------------------------------ - --- | collect all namespace declarations contained in a document --- --- apply 'getNamespaceDecl' to a whole XmlTree - -collectNamespaceDecl::LAXmlTree(String,String) -collectNamespaceDecl=multigetAttrl>>>getNamespaceDecl - --- | collect all (namePrefix, namespaceUri) pairs from a tree --- --- all qualified names are inspected, whether a namespace uri is defined, --- for these uris the prefix and uri is returned. This arrow is useful for --- namespace cleanup, e.g. for documents generated with XSLT. It can be used --- together with 'collectNamespaceDecl' to 'cleanupNamespaces' - -collectPrefixUriPairs::LAXmlTree(String,String) -collectPrefixUriPairs -=multi(isElem<+>getAttrl<+>isPi) ->>> -getQName ->>> -arrLgetPrefixUri -where -getPrefixUri::QName->[(String,String)] -getPrefixUrin -|nulluri=[] -|px==a_xmlns -|| -px==a_xml=[]-- these ones are reserved an predefined -|otherwise=[(namePrefixn,uri)] -where -uri=namespaceUrin -px=namePrefixn +isNamespaceDeclAttr::ArrowXmla=>aXmlTreeXmlTree +isNamespaceDeclAttr +=fromLA$ +(getAttrName>>>isAisNameSpaceName)`guards`this + +-- | get the namespace prefix and the namespace URI out of +-- an attribute tree with a namespace declaration (see 'isNamespaceDeclAttr') +-- for all other nodes this arrow fails + +getNamespaceDecl::ArrowXmla=>aXmlTree(String,String) +getNamespaceDecl +=fromLA$ +isNamespaceDeclAttr +>>> +((getAttrName +>>> +arrgetNsPrefix +) +&&&xshowgetChildren +) +where +getNsPrefix=drop6.qualifiedName-- drop "xmlns:" + +-- ------------------------------------------------------------ + +-- | collect all namespace declarations contained in a document +-- +-- apply 'getNamespaceDecl' to a whole XmlTree + +collectNamespaceDecl::LAXmlTree(String,String) +collectNamespaceDecl=multigetAttrl>>>getNamespaceDecl + +-- | collect all (namePrefix, namespaceUri) pairs from a tree +-- +-- all qualified names are inspected, whether a namespace uri is defined, +-- for these uris the prefix and uri is returned. This arrow is useful for +-- namespace cleanup, e.g. for documents generated with XSLT. It can be used +-- together with 'collectNamespaceDecl' to 'cleanupNamespaces' + +collectPrefixUriPairs::LAXmlTree(String,String) +collectPrefixUriPairs +=multi(isElem<+>getAttrl<+>isPi) +>>> +getQName +>>> +arrLgetPrefixUri +where +getPrefixUri::QName->[(String,String)] +getPrefixUrin +|nulluri=[] +|px==a_xmlns +|| +px==a_xml=[]-- these ones are reserved an predefined +|otherwise=[(namePrefixn,uri)] +where +uri=namespaceUrin +px=namePrefixn + +-- ------------------------------------------------------------ + +-- | generate unique namespaces and add all namespace declarations to the root element +-- +-- Calls 'cleanupNamespaces' with 'collectNamespaceDecl' + +uniqueNamespaces::ArrowXmla=>aXmlTreeXmlTree +uniqueNamespaces +=fromLA$ +cleanupNamespacescollectNamespaceDecl --- ------------------------------------------------------------ - --- | generate unique namespaces and add all namespace declarations to the root element --- --- Calls 'cleanupNamespaces' with 'collectNamespaceDecl' - -uniqueNamespaces::ArrowXmla=>aXmlTreeXmlTree -uniqueNamespaces -=fromLA$ -cleanupNamespacescollectNamespaceDecl - --- | generate unique namespaces and add all namespace declarations for all prefix-uri pairs in all qualified names --- --- useful for cleanup of namespaces in generated documents. --- Calls 'cleanupNamespaces' with @ collectNamespaceDecl <+> collectPrefixUriPairs @ - -uniqueNamespacesFromDeclAndQNames::ArrowXmla=>aXmlTreeXmlTree -uniqueNamespacesFromDeclAndQNames -=fromLA$ -cleanupNamespaces(collectNamespaceDecl<+>collectPrefixUriPairs) - --- | does the real work for namespace cleanup. --- --- The parameter is used for collecting namespace uris and prefixes from the input tree - -cleanupNamespaces::LAXmlTree(String,String)->LAXmlTreeXmlTree -cleanupNamespacescollectNamespaces -=renameNamespaces$<(listAcollectNamespaces>>^nub) -where -renameNamespaces::NsEnv->LAXmlTreeXmlTree -renameNamespacesenv -=processBottomUp -(processAttrl -((none`when`isNamespaceDeclAttr)-- remove all namespace declarations ->>> -changeQNamerenamePrefix-- update namespace prefix of attribute names, if namespace uri is set -) ->>> -changeQNamerenamePrefix-- update namespace prefix of element names -) ->>> -attachEnvenv1-- all all namespaces as attributes to the root node attribute list -where -renamePrefix::QName->QName -renamePrefixn -|nulluri=n -|isNothingnewPx=n -|otherwise=n{namePrefix=fromJustnewPx} -where -uri=namespaceUrin -newPx=lookupurirevEnv1 - -revEnv1=map(\(x,y)->(y,x))env1 - -env1::NsEnv -env1=newEnv[]uris - -uris::[String] -uris=nub.mapsnd$env - -genPrefixes::[String] -genPrefixes=map(("ns"++).show)[(0::Int)..] - -newEnv::NsEnv->[String]->NsEnv -newEnvenv'[] -=env' +-- | generate unique namespaces and add all namespace declarations for all prefix-uri pairs in all qualified names +-- +-- useful for cleanup of namespaces in generated documents. +-- Calls 'cleanupNamespaces' with @ collectNamespaceDecl <+> collectPrefixUriPairs @ + +uniqueNamespacesFromDeclAndQNames::ArrowXmla=>aXmlTreeXmlTree +uniqueNamespacesFromDeclAndQNames +=fromLA$ +cleanupNamespaces(collectNamespaceDecl<+>collectPrefixUriPairs) + +-- | does the real work for namespace cleanup. +-- +-- The parameter is used for collecting namespace uris and prefixes from the input tree + +cleanupNamespaces::LAXmlTree(String,String)->LAXmlTreeXmlTree +cleanupNamespacescollectNamespaces +=renameNamespaces$<(listAcollectNamespaces>>^(toNsEnv>>>nub)) +where +renameNamespaces::NsEnv->LAXmlTreeXmlTree +renameNamespacesenv +=processBottomUp +(processAttrl +((none`when`isNamespaceDeclAttr)-- remove all namespace declarations +>>> +changeQNamerenamePrefix-- update namespace prefix of attribute names, if namespace uri is set +) +>>> +changeQNamerenamePrefix-- update namespace prefix of element names +) +>>> +attachEnvenv1-- all all namespaces as attributes to the root node attribute list +where +renamePrefix::QName->QName +renamePrefixn +|isNullXNameuri=n +|isNothingnewPx=n +|otherwise=setNamePrefix'(fromJustnewPx)n +where +uri=namespaceUri'n +newPx=lookupurirevEnv1 + +revEnv1=map(\(x,y)->(y,x))env1 + +env1::NsEnv +env1=newEnv[]uris + +uris::[XName] +uris=nub.mapsnd$env + +genPrefixes::[XName] +genPrefixes=map(newXName.("ns"++).show)[(0::Int)..] + +newEnv::NsEnv->[XName]->NsEnv +newEnvenv'[] +=env' + +newEnvenv'(uri:rest) +=newEnvenv''rest +where +env''=(prefix,uri):env' +prefix +=head(filternotAlreadyUsed$preferedPrefixes++genPrefixes) +preferedPrefixes +=mapfst.filter((==uri).snd)$env +notAlreadyUseds +=isNothing.lookups$env' -newEnvenv'(uri:rest) -=newEnvenv''rest -where -env''=(prefix,uri):env' -prefix -=head(filternotAlreadyUsed$preferedPrefixes++genPrefixes) -preferedPrefixes -=mapfst.filter((==uri).snd)$env -notAlreadyUseds -=isNothing.lookups$env' - --- ------------------------------------------------------------ - --- | auxiliary arrow for processing with a namespace environment --- --- process a document tree with an arrow, containing always the --- valid namespace environment as extra parameter. --- The namespace environment is implemented as a 'Data.AssocList.AssocList'. --- Processing of attributes can be controlled by a boolean parameter - -processWithNsEnv1::ArrowXmla=>Bool->(NsEnv->aXmlTreeXmlTree)->NsEnv->aXmlTreeXmlTree -processWithNsEnv1withAttrfenv -=ifAisElem-- the test is just an optimization -(processWithExtendedEnv$<arr(extendEnvenv))-- only element nodes contain namespace declarations -(processWithExtendedEnvenv) -where -processWithExtendedEnvenv' -=fenv'-- apply the env filter ->>> -((ifwithAttr -thenprocessAttrl(fenv')-- apply the env to all attributes -elsethis -) ->>> -processChildren(processWithNsEnvfenv')-- apply the env recursively to all children -) -`when`isElem-- attrl and children only need processing for elem nodes - -extendEnv::NsEnv->XmlTree->NsEnv -extendEnvenv't' -=addEntriesnewDeclsenv' -where -newDecls=runLA(getAttrl>>>getNamespaceDecl)t' - --- ------------------------------------------------------------ - --- | process a document tree with an arrow, containing always the --- valid namespace environment as extra parameter. --- --- The namespace environment is implemented as a 'Data.AssocList.AssocList' +-- ------------------------------------------------------------ + +-- | auxiliary arrow for processing with a namespace environment +-- +-- process a document tree with an arrow, containing always the +-- valid namespace environment as extra parameter. +-- The namespace environment is implemented as a 'Data.AssocList.AssocList'. +-- Processing of attributes can be controlled by a boolean parameter + +processWithNsEnv1::ArrowXmla=>Bool->(NsEnv->aXmlTreeXmlTree)->NsEnv->aXmlTreeXmlTree +processWithNsEnv1withAttrfenv +=ifAisElem-- the test is just an optimization +(processWithExtendedEnv$<arr(extendEnvenv))-- only element nodes contain namespace declarations +(processWithExtendedEnvenv) +where +processWithExtendedEnvenv' +=fenv'-- apply the env filter +>>> +((ifwithAttr +thenprocessAttrl(fenv')-- apply the env to all attributes +elsethis +) +>>> +processChildren(processWithNsEnvfenv')-- apply the env recursively to all children +) +`when`isElem-- attrl and children only need processing for elem nodes + +extendEnv::NsEnv->XmlTree->NsEnv +extendEnvenv't' +=addEntries(toNsEnvnewDecls)env' +where +newDecls=runLA(getAttrl>>>getNamespaceDecl)t' + +-- ------------------------------------------------------------ + +-- | process a document tree with an arrow, containing always the +-- valid namespace environment as extra parameter. +-- +-- The namespace environment is implemented as a 'Data.AssocList.AssocList' + +processWithNsEnv::ArrowXmla=>(NsEnv->aXmlTreeXmlTree)->NsEnv->aXmlTreeXmlTree +processWithNsEnv=processWithNsEnv1True + +-- | process all element nodes of a document tree with an arrow, containing always the +-- valid namespace environment as extra parameter. Attribute lists are not processed. +-- +-- See also: 'processWithNsEnv' + +processWithNsEnvWithoutAttrl::ArrowXmla=>(NsEnv->aXmlTreeXmlTree)->NsEnv->aXmlTreeXmlTree +processWithNsEnvWithoutAttrl=processWithNsEnv1False -processWithNsEnv::ArrowXmla=>(NsEnv->aXmlTreeXmlTree)->NsEnv->aXmlTreeXmlTree -processWithNsEnv=processWithNsEnv1True - --- | process all element nodes of a document tree with an arrow, containing always the --- valid namespace environment as extra parameter. Attribute lists are not processed. --- --- See also: 'processWithNsEnv' - -processWithNsEnvWithoutAttrl::ArrowXmla=>(NsEnv->aXmlTreeXmlTree)->NsEnv->aXmlTreeXmlTree -processWithNsEnvWithoutAttrl=processWithNsEnv1False - --- ----------------------------------------------------------------------------- - --- | attach all valid namespace declarations to the attribute list of element nodes. --- --- This arrow is useful for document processing, that requires access to all namespace --- declarations at any element node, but which cannot be done with a simple 'processWithNsEnv'. - -attachNsEnv::ArrowXmla=>NsEnv->aXmlTreeXmlTree -attachNsEnvinitialEnv -=fromLA$processWithNsEnvWithoutAttrlattachEnvinitialEnv -where +-- ----------------------------------------------------------------------------- + +-- | attach all valid namespace declarations to the attribute list of element nodes. +-- +-- This arrow is useful for document processing, that requires access to all namespace +-- declarations at any element node, but which cannot be done with a simple 'processWithNsEnv'. + +attachNsEnv::ArrowXmla=>NsEnv->aXmlTreeXmlTree +attachNsEnvinitialEnv +=fromLA$processWithNsEnvWithoutAttrlattachEnvinitialEnv +where + +attachEnv::NsEnv->LAXmlTreeXmlTree +attachEnvenv +=(processAttrl(none`when`isNamespaceDeclAttr) +>>> +addAttrl(catAnsAttrl) +) +`when`isElem +where +nsAttrl::[LAXmlTreeXmlTree] +nsAttrl=mapnsDeclToAttrenv -attachEnv::NsEnv->LAXmlTreeXmlTree -attachEnvenv -=(processAttrl(none`when`isNamespaceDeclAttr) ->>> -addAttrl(catAnsAttrl) -) -`when`isElem -where -nsAttrl::[LAXmlTreeXmlTree] -nsAttrl=mapnsDeclToAttrenv - -nsDeclToAttr::(String,String)->LAXmlTreeXmlTree -nsDeclToAttr(n,uri) -=mkAttrqn(txturi) -where -qn::QName -qn=mkNsName(a_xmlns++(ifnullnthen""else':':n))xmlnsNamespace +nsDeclToAttr::(XName,XName)->LAXmlTreeXmlTree +nsDeclToAttr(n,uri) +=mkAttrqn(txt(showuri)) +where +qn::QName +qn|isNullXNamen=mkQName'nullXNamexmlnsXNamexmlnsNamespaceXName +|otherwise=mkQName'xmlnsXNamenxmlnsNamespaceXName + +-- ----------------------------------------------------------------------------- + +-- | +-- propagate all namespace declarations \"xmlns:ns=...\" to all element and attribute nodes of a document. +-- +-- This arrow does not check for illegal use of namespaces. +-- The real work is done by 'propagateNamespaceEnv'. +-- +-- The arrow may be applied repeatedly if neccessary. --- ----------------------------------------------------------------------------- - --- | --- propagate all namespace declarations \"xmlns:ns=...\" to all element and attribute nodes of a document. --- --- This arrow does not check for illegal use of namespaces. --- The real work is done by 'propagateNamespaceEnv'. --- --- The arrow may be applied repeatedly if neccessary. +propagateNamespaces::ArrowXmla=>aXmlTreeXmlTree +propagateNamespaces=fromLA$ +propagateNamespaceEnv[(xmlXName,xmlNamespaceXName) +,(xmlnsXName,xmlnsNamespaceXName) +] + +-- | +-- attaches the namespace info given by the namespace table +-- to a tag node and its attributes and children. -propagateNamespaces::ArrowXmla=>aXmlTreeXmlTree -propagateNamespaces=fromLA$propagateNamespaceEnv[(a_xml,xmlNamespace),(a_xmlns,xmlnsNamespace)] - --- | --- attaches the namespace info given by the namespace table --- to a tag node and its attributes and children. - -propagateNamespaceEnv::NsEnv->LAXmlTreeXmlTree -propagateNamespaceEnv -=processWithNsEnvaddNamespaceUri -where -addNamespaceUri::NsEnv->LAXmlTreeXmlTree -addNamespaceUrienv' -=choiceA[isElem:->changeElemName(setNamespaceenv') -,isAttr:->attachNamespaceUriToAttrenv' -,isPi:->changePiName(setNamespaceenv') -,this:->this -] - -attachNamespaceUriToAttr::NsEnv->LAXmlTreeXmlTree -attachNamespaceUriToAttrattrEnv -=((getName>>>isAhasPrefixLocalPart) -`guards` -changeAttrName(setNamespaceattrEnv) -) -`orElse` -(changeAttrName(constxmlnsQN) -`when` -hasNamea_xmlns -) -where -hasPrefixLocalPart::String->Bool -hasPrefixLocalParts -=(':'`elem`s)-- small optimization: only do some string handling when is ':' found -&& -(let-- check none empty prefix and local part -(px,lp)=span(/=':')s -in -not(nullpx)&&not(null(drop1lp)) -) - --- ----------------------------------------------------------------------------- - --- | --- validate the namespace constraints in a whole tree. --- --- Result is the list of errors concerning namespaces. --- Predicates 'isWellformedQName', 'isWellformedQualifiedName', 'isDeclaredNamespaces' --- and 'isWellformedNSDecl' are applied to the appropriate elements and attributes. - -validateNamespaces::ArrowXmla=>aXmlTreeXmlTree -validateNamespaces=fromLAvalidateNamespaces1 - -validateNamespaces1::LAXmlTreeXmlTree -validateNamespaces1 -=choiceA[isRoot:->(getChildren>>>validateNamespaces1)-- root is correct by definition -,this:->multivalidate1Namespaces -] - --- | --- a single node for namespace constrains. - -validate1Namespaces::LAXmlTreeXmlTree -validate1Namespaces -=choiceA -[isElem:->catA[(getQName>>>isA(not.isWellformedQName) +propagateNamespaceEnv::NsEnv->LAXmlTreeXmlTree +propagateNamespaceEnv +=processWithNsEnvaddNamespaceUri +where +addNamespaceUri::NsEnv->LAXmlTreeXmlTree +addNamespaceUrienv' +=choiceA[isElem:->changeElemName(setNamespaceenv') +,isAttr:->attachNamespaceUriToAttrenv' +,isPi:->changePiName(setNamespaceenv') +,this:->this +] + +attachNamespaceUriToAttr::NsEnv->LAXmlTreeXmlTree +attachNamespaceUriToAttrattrEnv +=((getQName>>>isA(not.null.namePrefix)) +`guards` +changeAttrName(setNamespaceattrEnv) +) +`orElse` +(changeAttrName(constxmlnsQN) +`when` +hasNamea_xmlns +) + +-- ----------------------------------------------------------------------------- + +-- | +-- validate the namespace constraints in a whole tree. +-- +-- Result is the list of errors concerning namespaces. +-- Predicates 'isWellformedQName', 'isWellformedQualifiedName', 'isDeclaredNamespace' +-- and 'isWellformedNSDecl' are applied to the appropriate elements and attributes. + +validateNamespaces::ArrowXmla=>aXmlTreeXmlTree +validateNamespaces=fromLAvalidateNamespaces1 + +validateNamespaces1::LAXmlTreeXmlTree +validateNamespaces1 +=choiceA[isRoot:->(getChildren>>>validateNamespaces1)-- root is correct by definition +,this:->multivalidate1Namespaces +] + +-- | +-- a single node for namespace constrains. + +validate1Namespaces::LAXmlTreeXmlTree +validate1Namespaces +=choiceA +[isElem:->catA[(getQName>>>isA(not.isWellformedQName) +) +`guards`nsError(\n->"element name "++shown++" is not a wellformed qualified name") + +,(getQName>>>isA(not.isDeclaredNamespace) +) +`guards`nsError(\n->"namespace for prefix in element name "++shown++" is undefined") + +,doubleOcc$<((getAttrl>>>getUniversalName)>>.doubles) + +,getAttrl>>>validate1Namespaces +] + +,isAttr:->catA[(getQName>>>isA(not.isWellformedQName) +) +`guards`nsError(\n->"attribute name "++shown++" is not a wellformed qualified name") + +,(getQName>>>isA(not.isDeclaredNamespace)) -`guards`nsError(\n->"element name "++shown++" is not a wellformed qualified name") +`guards`nsError(\n->"namespace for prefix in attribute name "++shown++" is undefined") -,(getQName>>>isA(not.isDeclaredNamespace) +,(hasNamePrefixa_xmlns>>>xshowgetChildren>>>isAnull) -`guards`nsError(\n->"namespace for prefix in element name "++shown++" is undefined") +`guards`nsError(\n->"namespace value of namespace declaration for "++shown++" has no value") -,doubleOcc$<((getAttrl>>>getUniversalName)>>.doubles) - -,getAttrl>>>validate1Namespaces -] +,(getQName>>>isA(not.isWellformedNSDecl) +) +`guards`nsError(\n->"illegal namespace declaration for name "++n++" starting with reserved prefix "++show"xml") +] -,isAttr:->catA[(getQName>>>isA(not.isWellformedQName) -) -`guards`nsError(\n->"attribute name "++shown++" is not a wellformed qualified name") - -,(getQName>>>isA(not.isDeclaredNamespace) -) -`guards`nsError(\n->"namespace for prefix in attribute name "++shown++" is undefined") - -,(hasNamePrefixa_xmlns>>>xshowgetChildren>>>isAnull -) -`guards`nsError(\n->"namespace value of namespace declaration for "++shown++" has no value") - -,(getQName>>>isA(not.isWellformedNSDecl) -) -`guards`nsError(\n->"illegal namespace declaration for name "++n++" starting with reserved prefix "++show"xml") -] - -,isDTD:->catA[isDTDDoctype<+>isDTDAttlist<+>isDTDElement<+>isDTDName ->>> -getDTDAttrValuea_name ->>> -(isA(not.isWellformedQualifiedName) -`guards` -nsErr(\n->"a DTD part contains a not wellformed qualified Name: "++shown) -) - -,isDTDAttlist ->>> -getDTDAttrValuea_value ->>> -(isA(not.isWellformedQualifiedName) -`guards` -nsErr(\n->"an ATTLIST declaration contains as attribute name a not wellformed qualified Name: "++shown) -) - -,isDTDEntity<+>isDTDPEntity<+>isDTDNotation ->>> -getDTDAttrValuea_name ->>> -(isA(not.isNCName) -`guards` -nsErr(\n->"an entity or notation declaration contains a not wellformed NCName: "++shown) -) -] -,isPi:->catA[getName ->>> -(isA(not.isNCName) -`guards` -nsErr(\n->"a PI contains a not wellformed NCName: "++shown) -) -] -] -where -nsError::(String->String)->LAXmlTreeXmlTree -nsErrormsg -=getName>>>nsErrmsg - -nsErr::(String->String)->LAStringXmlTree -nsErrmsg=arrmsg>>>mkErrorc_err - -doubleOcc::String->LAXmlTreeXmlTree -doubleOccan -=nsError(\n->"multiple occurences of universal name for attributes of tag "++shown++" : "++showan) - --- ------------------------------------------------------------ +,isDTD:->catA[isDTDDoctype<+>isDTDAttlist<+>isDTDElement<+>isDTDName +>>> +getDTDAttrValuea_name +>>> +(isA(not.isWellformedQualifiedName) +`guards` +nsErr(\n->"a DTD part contains a not wellformed qualified Name: "++shown) +) + +,isDTDAttlist +>>> +getDTDAttrValuea_value +>>> +(isA(not.isWellformedQualifiedName) +`guards` +nsErr(\n->"an ATTLIST declaration contains as attribute name a not wellformed qualified Name: "++shown) +) + +,isDTDEntity<+>isDTDPEntity<+>isDTDNotation +>>> +getDTDAttrValuea_name +>>> +(isA(not.isNCName) +`guards` +nsErr(\n->"an entity or notation declaration contains a not wellformed NCName: "++shown) +) +] +,isPi:->catA[getName +>>> +(isA(not.isNCName) +`guards` +nsErr(\n->"a PI contains a not wellformed NCName: "++shown) +) +] +] +where +nsError::(String->String)->LAXmlTreeXmlTree +nsErrormsg +=(getQName>>>arrshow)>>>nsErrmsg + +nsErr::(String->String)->LAStringXmlTree +nsErrmsg=arrmsg>>>mkErrorc_err + +doubleOcc::String->LAXmlTreeXmlTree +doubleOccan +=nsError(\n->"multiple occurences of universal name for attributes of tag "++shown++" : "++showan) + +-- ------------------------------------------------------------ diff --git a/doc/hdoc/src/Text-XML-HXT-Arrow-Pickle-Xml.html b/doc/hdoc/src/Text-XML-HXT-Arrow-Pickle-Xml.html --- a/doc/hdoc/src/Text-XML-HXT-Arrow-Pickle-Xml.html +++ b/doc/hdoc/src/Text-XML-HXT-Arrow-Pickle-Xml.html @@ -10,682 +10,695 @@ {- | Module : Text.XML.HXT.Arrow.Pickle.Xml - Copyright : Copyright (C) 2005 Uwe Schmidt - License : MIT - - Maintainer : Uwe Schmidt (uwe@fh-wedel.de) - Stability : experimental - Portability: portable - Version : $Id$ - -Pickler functions for converting between user defined data types -and XmlTree data. Usefull for persistent storage and retreival -of arbitray data as XML documents - -This module is an adaptation of the pickler combinators -developed by Andrew Kennedy -( http:\/\/research.microsoft.com\/~akenn\/fun\/picklercombinators.pdf ) - -The difference to Kennedys approach is that the target is not -a list of Chars but a list of XmlTrees. The basic picklers will -convert data into XML text nodes. New are the picklers for -creating elements and attributes. - -One extension was neccessary: The unpickling may fail. -Therefore the unpickler has a Maybe result type. -Failure is used to unpickle optional elements -(Maybe data) and lists of arbitray length - -There is an example program demonstrating the use -of the picklers for a none trivial data structure. -(see \"examples\/arrows\/pickle\" directory) - --} - --- ------------------------------------------------------------ - -moduleText.XML.HXT.Arrow.Pickle.Xml -where - -importData.Maybe -importData.Map(Map) -importqualifiedData.MapasM - -importText.XML.HXT.DOM.Interface -importqualifiedText.XML.HXT.DOM.XmlNodeasXN - -importControl.Arrow.ListArrows -importText.XML.HXT.Arrow.XmlArrow -importText.XML.HXT.Arrow.Pickle.Schema -importText.XML.HXT.Arrow.ReadDocument(xread) -importText.XML.HXT.Arrow.Edit(xshowEscapeXml) - --- ------------------------------------------------------------ - -dataSt=St{attributes::[XmlTree] -,contents::[XmlTree] -} - -dataPUa=PU{appPickle::(a,St)->St -,appUnPickle::St->(Maybea,St) -,theSchema::Schema -} - -emptySt::St -emptySt=St{attributes=[] -,contents=[] -} - -addAtt::XmlTree->St->St -addAttxs=s{attributes=x:attributess} - -addCont::XmlTree->St->St -addContxs=s{contents=x:contentss} - -dropCont::St->St -dropConts=s{contents=drop1(contentss)} - -getAtt::String->St->MaybeXmlTree -getAttnames -=listToMaybe$ -runLA(arrLattributes ->>> -isAttr>>>hasNamename -)s - -getCont::St->MaybeXmlTree -getConts=listToMaybe.contents$s - --- ------------------------------------------------------------ - --- | conversion of an arbitrary value into an XML document tree. --- --- The pickler, first parameter, controls the conversion process. --- Result is a complete document tree including a root node - -pickleDoc::PUa->a->XmlTree -pickleDocpv -=XN.mkRoot(attributesst)(contentsst) -where -st=appPicklep(v,emptySt) - --- | Conversion of an XML document tree into an arbitrary data type --- --- The inverse of 'pickleDoc'. --- This law should hold for all picklers: @ unpickle px . pickle px $ v == Just v @. --- Not every possible combination of picklers make sense. --- For reconverting a value from an XML tree, is becomes neccessary, --- to introduce \"enough\" markup for unpickling the value - -unpickleDoc::PUa->XmlTree->Maybea -unpickleDocpt -|XN.isRoott -=fst.appUnPicklep$St{attributes=fromJust.XN.getAttrl$t -,contents=XN.getChildrent -} -|otherwise -=unpickleDocp(XN.mkRoot[][t]) - --- ------------------------------------------------------------ - --- | The zero pickler --- --- Encodes nothing, fails always during unpickling - -xpZero::PUa -xpZero=PU{appPickle=snd -,appUnPickle=\s->(Nothing,s) -,theSchema=scNull -} - --- unit pickler - -xpUnit::PU() -xpUnit=xpLift() - --- | Lift a value to a pickler --- --- When pickling, nothing is encoded, when unpickling, the given value is inserted. --- This pickler always succeeds. - -xpLift::a->PUa -xpLiftx=PU{appPickle=snd -,appUnPickle=\s->(Justx,s) -,theSchema=scEmpty -} - --- | Lift a Maybe value to a pickler. --- --- @Nothing@ is mapped to the zero pickler, @Just x@ is pickled with @xpLift x@. - -xpLiftMaybe::Maybea->PUa -xpLiftMaybev=(xpLiftMaybe'v){theSchema=scOptionscEmpty} -where -xpLiftMaybe'Nothing=xpZero -xpLiftMaybe'(Justx)=xpLiftx - - --- | pickle\/unpickle combinator for sequence and choice. --- --- When the first unpickler fails, --- the second one is taken, else the third one configured with the result from the first --- is taken. This pickler is a generalisation for 'xpSeq' and 'xpChoice' . --- --- The schema must be attached later, e.g. in xpPair or other higher level combinators - -xpCondSeq::PUb->(b->a)->PUa->(a->PUb)->PUb -xpCondSeqpdfpak -=PU{appPickle=(\(b,s)-> -let -a=fb -pb=ka -in -appPicklepa(a,(appPicklepb(b,s))) -) -,appUnPickle=(\s-> -let -(a,s')=appUnPicklepas -in -caseaof -Nothing->appUnPicklepds -Justa'->appUnPickle(ka')s' -) -,theSchema=undefined -} - - --- | Combine two picklers sequentially. --- --- If the first fails during --- unpickling, the whole unpickler fails - -xpSeq::(b->a)->PUa->(a->PUb)->PUb -xpSeq=xpCondSeqxpZero - - --- | combine tow picklers with a choice --- --- Run two picklers in sequence like with xpSeq. --- When during unpickling the first one fails, --- an alternative pickler (first argument) is applied. --- This pickler is only used as combinator for unpickling. - -xpChoice::PUb->PUa->(a->PUb)->PUb -xpChoicepb=xpCondSeqpbundefined - - --- | map value into another domain and apply pickler there --- --- One of the most often used picklers. - -xpWrap::(a->b,b->a)->PUa->PUb -xpWrap(i,j)pa=(xpSeqjpa(xpLift.i)){theSchema=theSchemapa} - --- | like 'xpWrap', but if the inverse mapping is undefined, the unpickler fails --- --- Map a value into another domain. If the inverse mapping is --- undefined (Nothing), the unpickler fails - -xpWrapMaybe::(a->Maybeb,b->a)->PUa->PUb -xpWrapMaybe(i,j)pa=(xpSeqjpa(xpLiftMaybe.i)){theSchema=theSchemapa} - --- | pickle a pair of values sequentially --- --- Used for pairs or together with wrap for pickling --- algebraic data types with two components - -xpPair::PUa->PUb->PU(a,b) -xpPairpapb -=(xpSeqfstpa(\a-> -xpSeqsndpb(\b-> -xpLift(a,b))) -){theSchema=scSeq(theSchemapa)(theSchemapb)} - --- | Like 'xpPair' but for triples - -xpTriple::PUa->PUb->PUc->PU(a,b,c) -xpTriplepapbpc -=xpWrap(toTriple,fromTriple)(xpPairpa(xpPairpbpc)) -where -toTriple~(a,~(b,c))=(a,b,c) -fromTriple~(a,b,c)=(a,(b,c)) - --- | Like 'xpPair' and 'xpTriple' but for 4-tuples - -xp4Tuple::PUa->PUb->PUc->PUd->PU(a,b,c,d) -xp4Tuplepapbpcpd -=xpWrap(toQuad,fromQuad)(xpPairpa(xpPairpb(xpPairpcpd))) -where -toQuad~(a,~(b,~(c,d)))=(a,b,c,d) -fromQuad~(a,b,c,d)=(a,(b,(c,d))) - --- | Like 'xpPair' and 'xpTriple' but for 5-tuples - -xp5Tuple::PUa->PUb->PUc->PUd->PUe->PU(a,b,c,d,e) -xp5Tuplepapbpcpdpe -=xpWrap(toQuint,fromQuint)(xpPairpa(xpPairpb(xpPairpc(xpPairpdpe)))) -where -toQuint~(a,~(b,~(c,~(d,e))))=(a,b,c,d,e) -fromQuint~(a,b,c,d,e)=(a,(b,(c,(d,e)))) - --- | Like 'xpPair' and 'xpTriple' but for 6-tuples - -xp6Tuple::PUa->PUb->PUc->PUd->PUe->PUf->PU(a,b,c,d,e,f) -xp6Tuplepapbpcpdpepf -=xpWrap(toSix,fromSix)(xpPairpa(xpPairpb(xpPairpc(xpPairpd(xpPairpepf))))) -where -toSix~(a,~(b,~(c,~(d,~(e,f)))))=(a,b,c,d,e,f) -fromSix~(a,b,c,d,e,f)=(a,(b,(c,(d,(e,f))))) - --- | Pickle a string into an XML text node --- --- One of the most often used primitive picklers. Attention: --- For pickling empty strings use 'xpText0'. If the text has a more --- specific datatype than xsd:string, use 'xpTextDT' - -xpText::PUString -xpText=xpTextDTscString1 - --- | Pickle a string into an XML text node --- --- Text pickler with a description of the structure of the text --- by a schema. A schema for a data type can be defined by 'Text.XML.HXT.Arrow.Pickle.Schema.scDT'. --- In 'Text.XML.HXT.Arrow.Pickle.Schema' there are some more functions for creating --- simple datatype descriptions. - -xpTextDT::Schema->PUString -xpTextDTsc -=PU{appPickle=\(s,st)->addCont(XN.mkTexts)st -,appUnPickle=\st->fromMaybe(Nothing,st)(unpickleStringst) -,theSchema=sc -} -where -unpickleStringst -=do -t<-getContst -s<-XN.getTextt -return(Justs,dropContst) - --- | Pickle a possibly empty string into an XML node. --- --- Must be used in all places, where empty strings are legal values. --- If the content of an element can be an empty string, this string disapears --- during storing the DOM into a document and reparse the document. --- So the empty text node becomes nothing, and the pickler must deliver an empty string, --- if there is no text node in the document. - -xpText0::PUString -xpText0=xpText0DTscString1 - --- | Pickle a possibly empty string with a datatype description into an XML node. --- --- Like 'xpText0' but with extra Parameter for datatype description as in 'xpTextDT'. - -xpText0DT::Schema->PUString -xpText0DTsc -=xpWrap(fromMaybe"",emptyToNothing)$xpOption$xpTextDTsc -where -emptyToNothing""=Nothing -emptyToNothingx=Justx - --- | Pickle an arbitrary value by applyling show during pickling --- and read during unpickling. --- --- Real pickling is then done with 'xpText'. --- One of the most often used pimitive picklers. Applicable for all --- types which are instances of @Read@ and @Show@ - -xpPrim::(Reada,Showa)=>PUa -xpPrim -=xpWrapMaybe(readMaybe,show)xpText -where -readMaybe::Reada=>String->Maybea -readMaybestr -=val(readsstr) -where -val[(x,"")]=Justx -val_=Nothing - --- ------------------------------------------------------------ - --- | Pickle an XmlTree by just adding it --- --- Usefull for components of type XmlTree in other data structures - -xpTree::PUXmlTree -xpTree=PU{appPickle=\(s,st)->addContsst -,appUnPickle=\st->fromMaybe(Nothing,st)(unpickleTreest) -,theSchema=Any -} -where -unpickleTreest -=do -t<-getContst -return(Justt,dropContst) - --- | Pickle a whole list of XmlTrees by just adding the list, unpickle is done by taking all element contens. --- --- This pickler should always combined with 'xpElem' for taking the whole contents of an element. - -xpTrees::PU[XmlTree] -xpTrees=(xpListxpTree){theSchema=Any} - --- | Pickle a string representing XML contents by inserting the tree representation into the XML document. --- --- Unpickling is done by converting the contents with --- 'Text.XML.HXT.Arrow.Edit.xshowEscapeXml' into a string, --- this function will escape all XML special chars, such that pickling the value back becomes save. --- Pickling is done with 'Text.XML.HXT.Arrow.ReadDocument.xread' - -xpXmlText::PUString -xpXmlText -=xpWrap(showXML,readXML)$xpTrees -where -showXML=concat.runLA(xshowEscapeXmlunlistA) -readXML=runLAxread - --- ------------------------------------------------------------ - --- | Encoding of optional data by ignoring the Nothing case during pickling --- and relying on failure during unpickling to recompute the Nothing case --- --- The default pickler for Maybe types - -xpOption::PUa->PU(Maybea) -xpOptionpa -=PU{appPickle=(\(a,st)-> -caseaof -Nothing->st -Justx->appPicklepa(x,st) -) - -,appUnPickle=appUnPickle$ -xpChoice(xpLiftNothing)pa(xpLift.Just) - -,theSchema=scOption(theSchemapa) -} - --- | Optional conversion with default value --- --- The default value is not encoded in the XML document, --- during unpickling the default value is inserted if the pickler fails - -xpDefault::(Eqa)=>a->PUa->PUa -xpDefaultdf -=xpWrap(fromMaybedf -,\x->ifx==dfthenNothingelseJustx -). -xpOption - --- ------------------------------------------------------------ - --- | Encoding of list values by pickling all list elements sequentially. --- --- Unpickler relies on failure for detecting the end of the list. --- The standard pickler for lists. Can also be used in combination with 'xpWrap' --- for constructing set and map picklers - -xpList::PUa->PU[a] -xpListpa -=PU{appPickle=(\(a,st)-> -caseaof -[]->st -_:_->appPicklepc(a,st) -) -,appUnPickle=appUnPickle$ -xpChoice(xpLift[])pa -(\x->xpSeqid(xpListpa)(\xs->xpLift(x:xs))) - -,theSchema=scList(theSchemapa) -} -where -pc=xpSeqheadpa(\x-> -xpSeqtail(xpListpa)(\xs-> -xpLift(x:xs))) - --- | Encoding of a none empty list of values --- --- Attention: when calling this pickler with an empty list, --- an internal error \"head of empty list is raised\". - -xpList1::PUa->PU[a] -xpList1pa -=(xpWrap(\(x,xs)->x:xs -,\(x:xs)->(x,xs) -)$ -xpPairpa(xpListpa) -){theSchema=scList1(theSchemapa)} - --- ------------------------------------------------------------ - --- | Standard pickler for maps --- --- This pickler converts a map into a list of pairs. --- All key value pairs are mapped to an element with name (1.arg), --- the key is encoded as an attribute named by the 2. argument, --- the 3. arg is the pickler for the keys, the last one for the values - -xpMap::Ordk=>String->String->PUk->PUv->PU(Mapkv) -xpMapenanxpkxpv -=xpWrap(M.fromList -,M.toList -)$ -xpList$ -xpElemen$ -xpPair(xpAttran$xpk)xpv - - --- ------------------------------------------------------------ - --- | Pickler for sum data types. --- --- Every constructor is mapped to an index into the list of picklers. --- The index is used only during pickling, not during unpickling, there the 1. match is taken - -xpAlt::(a->Int)->[PUa]->PUa -xpAlttagps -=PU{appPickle=(\(a,st)-> -let -pa=ps!!(taga) -in -appPicklepa(a,st) -) -,appUnPickle=appUnPickle$ -(casepsof -[]->xpZero -pa:ps1->xpChoice(xpAlttagps1)paxpLift -) -,theSchema=scAlts(maptheSchemaps) -} - --- ------------------------------------------------------------ - --- | Pickler for wrapping\/unwrapping data into an XML element --- --- Extra parameter is the element name. THE pickler for constructing --- nested structures --- --- Example: --- --- > xpElem "number" $ xpickle --- --- will map an (42::Int) onto --- --- > <number>42</number> - -xpElem::String->PUa->PUa -xpElemnamepa -=PU{appPickle=(\(a,st)-> -let -st'=appPicklepa(a,emptySt) -in -addCont(XN.mkElement(mkNamename)(attributesst')(contentsst'))st -) -,appUnPickle=\st->fromMaybe(Nothing,st)(unpickleElementst) -,theSchema=scElemname(theSchemapa) -} -where -unpickleElementst -=do -t<-getContst -n<-XN.getElemNamet -ifqualifiedNamen/=name -thenfail"element name does not match" -elsedo -letcs=XN.getChildrent -al<-XN.getAttrlt -res<-fst.appUnPicklepa$St{attributes=al,contents=cs} -return(Justres,dropContst) - --- ------------------------------------------------------------ - --- | Pickler for wrapping\/unwrapping data into an XML element with an attribute with given value --- --- To make XML structures flexible but limit the number of different elements, it's sometimes --- useful to use a kind of generic element with a key value structure --- --- Example: --- --- > <attr name="key1">value1</attr> --- > <attr name="key2">value2</attr> --- > <attr name="key3">value3</attr> --- --- the Haskell datatype may look like this --- --- > type T = T { key1 :: Int ; key2 :: String ; key3 :: Double } --- --- Then the picker for that type looks like this --- --- > xpT :: PU T --- > xpT = xpWrap ( uncurry3 T, \ t -> (key1 t, key2 t, key3 t) ) $ --- > xpTriple (xpElemWithAttrValue "attr" "name" "key1" $ xpickle) --- > (xpElemWithAttrValue "attr" "name" "key2" $ xpText0) --- > (xpElemWithAttrValue "attr" "name" "key3" $ xpickle) - -xpElemWithAttrValue::String->String->String->PUa->PUa -xpElemWithAttrValuenameanavpa -=PU{appPickle=(\(a,st)-> -let -st'=appPicklepa'(a,emptySt) -in -addCont(XN.mkElement(mkNamename)(attributesst')(contentsst'))st -) -,appUnPickle=\st->fromMaybe(Nothing,st)(unpickleElementst) -,theSchema=scElemname(theSchemapa') -} -where -pa'=xpAddFixedAttranav$pa -noMatch=null.runLA(isElem ->>> -hasNamename ->>> -hasAttrValuean(==av) -) -unpickleElementst -=do -t<-getContst -ifnoMatcht -thenfail"element name or attr value does not match" -elsedo -letcs=XN.getChildrent -al<-XN.getAttrlt -res<-fst.appUnPicklepa$St{attributes=al,contents=cs} -return(Justres,dropContst) - --- ------------------------------------------------------------ - --- | Pickler for storing\/retreiving data into\/from an attribute value --- --- The attribute is inserted in the surrounding element constructed by the 'xpElem' pickler - -xpAttr::String->PUa->PUa -xpAttrnamepa -=PU{appPickle=(\(a,st)-> -let -st'=appPicklepa(a,emptySt) -in -addAtt(XN.mkAttr(mkNamename)(contentsst'))st -) -,appUnPickle=\st->fromMaybe(Nothing,st)(unpickleAttrst) -,theSchema=scAttrname(theSchemapa) -} -where -unpickleAttrst -=do -a<-getAttnamest -letav=XN.getChildrena -res<-fst.appUnPicklepa$St{attributes=[],contents=av} -return(Justres,st)-- attribute is not removed from attribute list, --- attributes are selected by name - --- | Add an optional attribute for an optional value (Maybe a). - -xpAttrImplied::String->PUa->PU(Maybea) -xpAttrImpliednamepa -=xpOption$xpAttrnamepa - -xpAttrFixed::String->String->PU() -xpAttrFixednameval -=(xpWrapMaybe(\v->ifv==valthenJust()elseNothing -,constval -)$ -xpAttrnamexpText -){theSchema=scAttrname(scFixedval)} - --- | Add an attribute with a fixed value. --- --- Useful e.g. to declare namespaces. Is implemented by 'xpAttrFixed' - -xpAddFixedAttr::String->String->PUa->PUa -xpAddFixedAttrnamevalpa -=xpWrap(snd -,(,)() -)$ -xpPair(xpAttrFixednameval)pa - --- ------------------------------------------------------------ - --- | The class for overloading 'xpickle', the default pickler - -classXmlPicklerawhere -xpickle::PUa - -instanceXmlPicklerIntwhere -xpickle=xpPrim - -instanceXmlPicklerIntegerwhere -xpickle=xpPrim - -{- - no instance of XmlPickler Char - because then every text would be encoded - char by char, because of the instance for lists - -instance XmlPickler Char where - xpickle = xpPrim --} - -instanceXmlPickler()where -xpickle=xpUnit - -instance(XmlPicklera,XmlPicklerb)=>XmlPickler(a,b)where -xpickle=xpPairxpicklexpickle - -instance(XmlPicklera,XmlPicklerb,XmlPicklerc)=>XmlPickler(a,b,c)where -xpickle=xpTriplexpicklexpicklexpickle - -instance(XmlPicklera,XmlPicklerb,XmlPicklerc,XmlPicklerd)=>XmlPickler(a,b,c,d)where -xpickle=xp4Tuplexpicklexpicklexpicklexpickle - -instance(XmlPicklera,XmlPicklerb,XmlPicklerc,XmlPicklerd,XmlPicklere)=>XmlPickler(a,b,c,d,e)where -xpickle=xp5Tuplexpicklexpicklexpicklexpicklexpickle - -instanceXmlPicklera=>XmlPickler[a]where -xpickle=xpListxpickle - -instanceXmlPicklera=>XmlPickler(Maybea)where -xpickle=xpOptionxpickle - --- ------------------------------------------------------------ + Copyright : Copyright (C) 2005-2008 Uwe Schmidt + License : MIT + + Maintainer : Uwe Schmidt (uwe@fh-wedel.de) + Stability : experimental + Portability: portable + + Pickler functions for converting between user defined data types + and XmlTree data. Usefull for persistent storage and retreival + of arbitray data as XML documents + + This module is an adaptation of the pickler combinators + developed by Andrew Kennedy + ( http:\/\/research.microsoft.com\/~akenn\/fun\/picklercombinators.pdf ) + + The difference to Kennedys approach is that the target is not + a list of Chars but a list of XmlTrees. The basic picklers will + convert data into XML text nodes. New are the picklers for + creating elements and attributes. + + One extension was neccessary: The unpickling may fail. + Therefore the unpickler has a Maybe result type. + Failure is used to unpickle optional elements + (Maybe data) and lists of arbitray length + + There is an example program demonstrating the use + of the picklers for a none trivial data structure. + (see \"examples\/arrows\/pickle\" directory) + +-} + +-- ------------------------------------------------------------ + +moduleText.XML.HXT.Arrow.Pickle.Xml +where + +importData.Maybe +importData.Map(Map) +importqualifiedData.MapasM + +importText.XML.HXT.DOM.Interface +importqualifiedText.XML.HXT.DOM.XmlNodeasXN + +importControl.Arrow.ListArrows +importText.XML.HXT.Arrow.XmlArrow +importText.XML.HXT.Arrow.Pickle.Schema +importText.XML.HXT.Arrow.ReadDocument(xread) +importText.XML.HXT.Arrow.Edit(xshowEscapeXml) + +-- ------------------------------------------------------------ + +dataSt=St{attributes::[XmlTree] +,contents::[XmlTree] +} + +dataPUa=PU{appPickle::(a,St)->St +,appUnPickle::St->(Maybea,St) +,theSchema::Schema +} + +emptySt::St +emptySt=St{attributes=[] +,contents=[] +} + +addAtt::XmlTree->St->St +addAttxs=s{attributes=x:attributess} + +addCont::XmlTree->St->St +addContxs=s{contents=x:contentss} + +dropCont::St->St +dropConts=s{contents=drop1(contentss)} + +getAtt::QName->St->MaybeXmlTree +getAttqns +=listToMaybe$ +runLA(arrLattributes +>>> +isAttr>>>hasQNameqn +)s + +getCont::St->MaybeXmlTree +getConts=listToMaybe.contents$s + +-- ------------------------------------------------------------ + +-- | conversion of an arbitrary value into an XML document tree. +-- +-- The pickler, first parameter, controls the conversion process. +-- Result is a complete document tree including a root node + +pickleDoc::PUa->a->XmlTree +pickleDocpv +=XN.mkRoot(attributesst)(contentsst) +where +st=appPicklep(v,emptySt) + +-- | Conversion of an XML document tree into an arbitrary data type +-- +-- The inverse of 'pickleDoc'. +-- This law should hold for all picklers: @ unpickle px . pickle px $ v == Just v @. +-- Not every possible combination of picklers make sense. +-- For reconverting a value from an XML tree, is becomes neccessary, +-- to introduce \"enough\" markup for unpickling the value + +unpickleDoc::PUa->XmlTree->Maybea +unpickleDocpt +|XN.isRoott +=fst.appUnPicklep$St{attributes=fromJust.XN.getAttrl$t +,contents=XN.getChildrent +} +|otherwise +=unpickleDocp(XN.mkRoot[][t]) + +-- ------------------------------------------------------------ + +-- | The zero pickler +-- +-- Encodes nothing, fails always during unpickling + +xpZero::PUa +xpZero=PU{appPickle=snd +,appUnPickle=\s->(Nothing,s) +,theSchema=scNull +} + +-- unit pickler + +xpUnit::PU() +xpUnit=xpLift() + +-- | Lift a value to a pickler +-- +-- When pickling, nothing is encoded, when unpickling, the given value is inserted. +-- This pickler always succeeds. + +xpLift::a->PUa +xpLiftx=PU{appPickle=snd +,appUnPickle=\s->(Justx,s) +,theSchema=scEmpty +} + +-- | Lift a Maybe value to a pickler. +-- +-- @Nothing@ is mapped to the zero pickler, @Just x@ is pickled with @xpLift x@. + +xpLiftMaybe::Maybea->PUa +xpLiftMaybev=(xpLiftMaybe'v){theSchema=scOptionscEmpty} +where +xpLiftMaybe'Nothing=xpZero +xpLiftMaybe'(Justx)=xpLiftx + + +-- | pickle\/unpickle combinator for sequence and choice. +-- +-- When the first unpickler fails, +-- the second one is taken, else the third one configured with the result from the first +-- is taken. This pickler is a generalisation for 'xpSeq' and 'xpChoice' . +-- +-- The schema must be attached later, e.g. in xpPair or other higher level combinators + +xpCondSeq::PUb->(b->a)->PUa->(a->PUb)->PUb +xpCondSeqpdfpak +=PU{appPickle=(\(b,s)-> +let +a=fb +pb=ka +in +appPicklepa(a,(appPicklepb(b,s))) +) +,appUnPickle=(\s-> +let +(a,s')=appUnPicklepas +in +caseaof +Nothing->appUnPicklepds +Justa'->appUnPickle(ka')s' +) +,theSchema=undefined +} + + +-- | Combine two picklers sequentially. +-- +-- If the first fails during +-- unpickling, the whole unpickler fails + +xpSeq::(b->a)->PUa->(a->PUb)->PUb +xpSeq=xpCondSeqxpZero + + +-- | combine tow picklers with a choice +-- +-- Run two picklers in sequence like with xpSeq. +-- When during unpickling the first one fails, +-- an alternative pickler (first argument) is applied. +-- This pickler is only used as combinator for unpickling. + +xpChoice::PUb->PUa->(a->PUb)->PUb +xpChoicepb=xpCondSeqpbundefined + + +-- | map value into another domain and apply pickler there +-- +-- One of the most often used picklers. + +xpWrap::(a->b,b->a)->PUa->PUb +xpWrap(i,j)pa=(xpSeqjpa(xpLift.i)){theSchema=theSchemapa} + +-- | like 'xpWrap', but if the inverse mapping is undefined, the unpickler fails +-- +-- Map a value into another domain. If the inverse mapping is +-- undefined (Nothing), the unpickler fails + +xpWrapMaybe::(a->Maybeb,b->a)->PUa->PUb +xpWrapMaybe(i,j)pa=(xpSeqjpa(xpLiftMaybe.i)){theSchema=theSchemapa} + +-- | pickle a pair of values sequentially +-- +-- Used for pairs or together with wrap for pickling +-- algebraic data types with two components + +xpPair::PUa->PUb->PU(a,b) +xpPairpapb +=(xpSeqfstpa(\a-> +xpSeqsndpb(\b-> +xpLift(a,b))) +){theSchema=scSeq(theSchemapa)(theSchemapb)} + +-- | Like 'xpPair' but for triples + +xpTriple::PUa->PUb->PUc->PU(a,b,c) +xpTriplepapbpc +=xpWrap(toTriple,fromTriple)(xpPairpa(xpPairpbpc)) +where +toTriple~(a,~(b,c))=(a,b,c) +fromTriple~(a,b,c)=(a,(b,c)) + +-- | Like 'xpPair' and 'xpTriple' but for 4-tuples + +xp4Tuple::PUa->PUb->PUc->PUd->PU(a,b,c,d) +xp4Tuplepapbpcpd +=xpWrap(toQuad,fromQuad)(xpPairpa(xpPairpb(xpPairpcpd))) +where +toQuad~(a,~(b,~(c,d)))=(a,b,c,d) +fromQuad~(a,b,c,d)=(a,(b,(c,d))) + +-- | Like 'xpPair' and 'xpTriple' but for 5-tuples + +xp5Tuple::PUa->PUb->PUc->PUd->PUe->PU(a,b,c,d,e) +xp5Tuplepapbpcpdpe +=xpWrap(toQuint,fromQuint)(xpPairpa(xpPairpb(xpPairpc(xpPairpdpe)))) +where +toQuint~(a,~(b,~(c,~(d,e))))=(a,b,c,d,e) +fromQuint~(a,b,c,d,e)=(a,(b,(c,(d,e)))) + +-- | Like 'xpPair' and 'xpTriple' but for 6-tuples + +xp6Tuple::PUa->PUb->PUc->PUd->PUe->PUf->PU(a,b,c,d,e,f) +xp6Tuplepapbpcpdpepf +=xpWrap(toSix,fromSix)(xpPairpa(xpPairpb(xpPairpc(xpPairpd(xpPairpepf))))) +where +toSix~(a,~(b,~(c,~(d,~(e,f)))))=(a,b,c,d,e,f) +fromSix~(a,b,c,d,e,f)=(a,(b,(c,(d,(e,f))))) + +-- | Pickle a string into an XML text node +-- +-- One of the most often used primitive picklers. Attention: +-- For pickling empty strings use 'xpText0'. If the text has a more +-- specific datatype than xsd:string, use 'xpTextDT' + +xpText::PUString +xpText=xpTextDTscString1 + +-- | Pickle a string into an XML text node +-- +-- Text pickler with a description of the structure of the text +-- by a schema. A schema for a data type can be defined by 'Text.XML.HXT.Arrow.Pickle.Schema.scDT'. +-- In 'Text.XML.HXT.Arrow.Pickle.Schema' there are some more functions for creating +-- simple datatype descriptions. + +xpTextDT::Schema->PUString +xpTextDTsc +=PU{appPickle=\(s,st)->addCont(XN.mkTexts)st +,appUnPickle=\st->fromMaybe(Nothing,st)(unpickleStringst) +,theSchema=sc +} +where +unpickleStringst +=do +t<-getContst +s<-XN.getTextt +return(Justs,dropContst) + +-- | Pickle a possibly empty string into an XML node. +-- +-- Must be used in all places, where empty strings are legal values. +-- If the content of an element can be an empty string, this string disapears +-- during storing the DOM into a document and reparse the document. +-- So the empty text node becomes nothing, and the pickler must deliver an empty string, +-- if there is no text node in the document. + +xpText0::PUString +xpText0=xpText0DTscString1 + +-- | Pickle a possibly empty string with a datatype description into an XML node. +-- +-- Like 'xpText0' but with extra Parameter for datatype description as in 'xpTextDT'. + +xpText0DT::Schema->PUString +xpText0DTsc +=xpWrap(fromMaybe"",emptyToNothing)$xpOption$xpTextDTsc +where +emptyToNothing""=Nothing +emptyToNothingx=Justx + +-- | Pickle an arbitrary value by applyling show during pickling +-- and read during unpickling. +-- +-- Real pickling is then done with 'xpText'. +-- One of the most often used pimitive picklers. Applicable for all +-- types which are instances of @Read@ and @Show@ + +xpPrim::(Reada,Showa)=>PUa +xpPrim +=xpWrapMaybe(readMaybe,show)xpText +where +readMaybe::Reada=>String->Maybea +readMaybestr +=val(readsstr) +where +val[(x,"")]=Justx +val_=Nothing + +-- ------------------------------------------------------------ + +-- | Pickle an XmlTree by just adding it +-- +-- Usefull for components of type XmlTree in other data structures + +xpTree::PUXmlTree +xpTree=PU{appPickle=\(s,st)->addContsst +,appUnPickle=\st->fromMaybe(Nothing,st)(unpickleTreest) +,theSchema=Any +} +where +unpickleTreest +=do +t<-getContst +return(Justt,dropContst) + +-- | Pickle a whole list of XmlTrees by just adding the list, unpickle is done by taking all element contens. +-- +-- This pickler should always combined with 'xpElem' for taking the whole contents of an element. + +xpTrees::PU[XmlTree] +xpTrees=(xpListxpTree){theSchema=Any} + +-- | Pickle a string representing XML contents by inserting the tree representation into the XML document. +-- +-- Unpickling is done by converting the contents with +-- 'Text.XML.HXT.Arrow.Edit.xshowEscapeXml' into a string, +-- this function will escape all XML special chars, such that pickling the value back becomes save. +-- Pickling is done with 'Text.XML.HXT.Arrow.ReadDocument.xread' + +xpXmlText::PUString +xpXmlText +=xpWrap(showXML,readXML)$xpTrees +where +showXML=concat.runLA(xshowEscapeXmlunlistA) +readXML=runLAxread + +-- ------------------------------------------------------------ + +-- | Encoding of optional data by ignoring the Nothing case during pickling +-- and relying on failure during unpickling to recompute the Nothing case +-- +-- The default pickler for Maybe types + +xpOption::PUa->PU(Maybea) +xpOptionpa +=PU{appPickle=(\(a,st)-> +caseaof +Nothing->st +Justx->appPicklepa(x,st) +) + +,appUnPickle=appUnPickle$ +xpChoice(xpLiftNothing)pa(xpLift.Just) + +,theSchema=scOption(theSchemapa) +} + +-- | Optional conversion with default value +-- +-- The default value is not encoded in the XML document, +-- during unpickling the default value is inserted if the pickler fails + +xpDefault::(Eqa)=>a->PUa->PUa +xpDefaultdf +=xpWrap(fromMaybedf +,\x->ifx==dfthenNothingelseJustx +). +xpOption + +-- ------------------------------------------------------------ + +-- | Encoding of list values by pickling all list elements sequentially. +-- +-- Unpickler relies on failure for detecting the end of the list. +-- The standard pickler for lists. Can also be used in combination with 'xpWrap' +-- for constructing set and map picklers + +xpList::PUa->PU[a] +xpListpa +=PU{appPickle=(\(a,st)-> +caseaof +[]->st +_:_->appPicklepc(a,st) +) +,appUnPickle=appUnPickle$ +xpChoice(xpLift[])pa +(\x->xpSeqid(xpListpa)(\xs->xpLift(x:xs))) + +,theSchema=scList(theSchemapa) +} +where +pc=xpSeqheadpa(\x-> +xpSeqtail(xpListpa)(\xs-> +xpLift(x:xs))) + +-- | Encoding of a none empty list of values +-- +-- Attention: when calling this pickler with an empty list, +-- an internal error \"head of empty list is raised\". + +xpList1::PUa->PU[a] +xpList1pa +=(xpWrap(\(x,xs)->x:xs +,\(x:xs)->(x,xs) +)$ +xpPairpa(xpListpa) +){theSchema=scList1(theSchemapa)} + +-- ------------------------------------------------------------ + +-- | Standard pickler for maps +-- +-- This pickler converts a map into a list of pairs. +-- All key value pairs are mapped to an element with name (1.arg), +-- the key is encoded as an attribute named by the 2. argument, +-- the 3. arg is the pickler for the keys, the last one for the values + +xpMap::Ordk=>String->String->PUk->PUv->PU(Mapkv) +xpMapenanxpkxpv +=xpWrap(M.fromList +,M.toList +)$ +xpList$ +xpElemen$ +xpPair(xpAttran$xpk)xpv + + +-- ------------------------------------------------------------ + +-- | Pickler for sum data types. +-- +-- Every constructor is mapped to an index into the list of picklers. +-- The index is used only during pickling, not during unpickling, there the 1. match is taken + +xpAlt::(a->Int)->[PUa]->PUa +xpAlttagps +=PU{appPickle=(\(a,st)-> +let +pa=ps!!(taga) +in +appPicklepa(a,st) +) +,appUnPickle=appUnPickle$ +(casepsof +[]->xpZero +pa:ps1->xpChoice(xpAlttagps1)paxpLift +) +,theSchema=scAlts(maptheSchemaps) +} + +-- ------------------------------------------------------------ + +-- | Pickler for wrapping\/unwrapping data into an XML element +-- +-- Extra parameter is the element name given as a QName. THE pickler for constructing +-- nested structures +-- +-- Example: +-- +-- > xpElemQN (mkName "number") $ xpickle +-- +-- will map an (42::Int) onto +-- +-- > <number>42</number> + +xpElemQN::QName->PUa->PUa +xpElemQNqnpa +=PU{appPickle=(\(a,st)-> +let +st'=appPicklepa(a,emptySt) +in +addCont(XN.mkElementqn(attributesst')(contentsst'))st +) +,appUnPickle=\st->fromMaybe(Nothing,st)(unpickleElementst) +,theSchema=scElem(qualifiedNameqn)(theSchemapa) +} +where +unpickleElementst +=do +t<-getContst +n<-XN.getElemNamet +ifn/=qn +thenfail("element name "++shown++" does not match"++showqn) +elsedo +letcs=XN.getChildrent +al<-XN.getAttrlt +res<-fst.appUnPicklepa$St{attributes=al,contents=cs} +return(Justres,dropContst) + +-- | convenient Pickler for xpElemQN +-- +-- > xpElem n = xpElemQN (mkName n) + +xpElem::String->PUa->PUa +xpElem=xpElemQN.mkName + +-- ------------------------------------------------------------ + +-- | Pickler for wrapping\/unwrapping data into an XML element with an attribute with given value +-- +-- To make XML structures flexible but limit the number of different elements, it's sometimes +-- useful to use a kind of generic element with a key value structure +-- +-- Example: +-- +-- > <attr name="key1">value1</attr> +-- > <attr name="key2">value2</attr> +-- > <attr name="key3">value3</attr> +-- +-- the Haskell datatype may look like this +-- +-- > type T = T { key1 :: Int ; key2 :: String ; key3 :: Double } +-- +-- Then the picker for that type looks like this +-- +-- > xpT :: PU T +-- > xpT = xpWrap ( uncurry3 T, \ t -> (key1 t, key2 t, key3 t) ) $ +-- > xpTriple (xpElemWithAttrValue "attr" "name" "key1" $ xpickle) +-- > (xpElemWithAttrValue "attr" "name" "key2" $ xpText0) +-- > (xpElemWithAttrValue "attr" "name" "key3" $ xpickle) + +xpElemWithAttrValue::String->String->String->PUa->PUa +xpElemWithAttrValuenameanavpa +=PU{appPickle=(\(a,st)-> +let +st'=appPicklepa'(a,emptySt) +in +addCont(XN.mkElement(mkNamename)(attributesst')(contentsst'))st +) +,appUnPickle=\st->fromMaybe(Nothing,st)(unpickleElementst) +,theSchema=scElemname(theSchemapa') +} +where +pa'=xpAddFixedAttranav$pa +noMatch=null.runLA(isElem +>>> +hasNamename +>>> +hasAttrValuean(==av) +) +unpickleElementst +=do +t<-getContst +ifnoMatcht +thenfail"element name or attr value does not match" +elsedo +letcs=XN.getChildrent +al<-XN.getAttrlt +res<-fst.appUnPicklepa$St{attributes=al,contents=cs} +return(Justres,dropContst) + +-- ------------------------------------------------------------ + +-- | Pickler for storing\/retreiving data into\/from an attribute value +-- +-- The attribute is inserted in the surrounding element constructed by the 'xpElem' pickler + +xpAttrQN::QName->PUa->PUa +xpAttrQNqnpa +=PU{appPickle=(\(a,st)-> +let +st'=appPicklepa(a,emptySt) +in +addAtt(XN.mkAttrqn(contentsst'))st +) +,appUnPickle=\st->fromMaybe(Nothing,st)(unpickleAttrst) +,theSchema=scAttr(qualifiedNameqn)(theSchemapa) +} +where +unpickleAttrst +=do +a<-getAttqnst +letav=XN.getChildrena +res<-fst.appUnPicklepa$St{attributes=[],contents=av} +return(Justres,st)-- attribute is not removed from attribute list, +-- attributes are selected by name + +-- | convenient Pickler for xpAttrQN +-- +-- > xpAttr n = xpAttrQN (mkName n) + +xpAttr::String->PUa->PUa +xpAttr=xpAttrQN.mkName + +-- | Add an optional attribute for an optional value (Maybe a). + +xpAttrImplied::String->PUa->PU(Maybea) +xpAttrImpliednamepa +=xpOption$xpAttrnamepa + +xpAttrFixed::String->String->PU() +xpAttrFixednameval +=(xpWrapMaybe(\v->ifv==valthenJust()elseNothing +,constval +)$ +xpAttrnamexpText +){theSchema=scAttrname(scFixedval)} + +-- | Add an attribute with a fixed value. +-- +-- Useful e.g. to declare namespaces. Is implemented by 'xpAttrFixed' + +xpAddFixedAttr::String->String->PUa->PUa +xpAddFixedAttrnamevalpa +=xpWrap(snd +,(,)() +)$ +xpPair(xpAttrFixednameval)pa + +-- ------------------------------------------------------------ + +-- | The class for overloading 'xpickle', the default pickler + +classXmlPicklerawhere +xpickle::PUa + +instanceXmlPicklerIntwhere +xpickle=xpPrim + +instanceXmlPicklerIntegerwhere +xpickle=xpPrim + +{- + no instance of XmlPickler Char + because then every text would be encoded + char by char, because of the instance for lists + +instance XmlPickler Char where + xpickle = xpPrim +-} + +instanceXmlPickler()where +xpickle=xpUnit + +instance(XmlPicklera,XmlPicklerb)=>XmlPickler(a,b)where +xpickle=xpPairxpicklexpickle + +instance(XmlPicklera,XmlPicklerb,XmlPicklerc)=>XmlPickler(a,b,c)where +xpickle=xpTriplexpicklexpicklexpickle + +instance(XmlPicklera,XmlPicklerb,XmlPicklerc,XmlPicklerd)=>XmlPickler(a,b,c,d)where +xpickle=xp4Tuplexpicklexpicklexpicklexpickle + +instance(XmlPicklera,XmlPicklerb,XmlPicklerc,XmlPicklerd,XmlPicklere)=>XmlPickler(a,b,c,d,e)where +xpickle=xp5Tuplexpicklexpicklexpicklexpicklexpickle + +instanceXmlPicklera=>XmlPickler[a]where +xpickle=xpListxpickle + +instanceXmlPicklera=>XmlPickler(Maybea)where +xpickle=xpOptionxpickle + +-- ------------------------------------------------------------ diff --git a/doc/hdoc/src/Text-XML-HXT-Arrow-ProcessDocument.html b/doc/hdoc/src/Text-XML-HXT-Arrow-ProcessDocument.html --- a/doc/hdoc/src/Text-XML-HXT-Arrow-ProcessDocument.html +++ b/doc/hdoc/src/Text-XML-HXT-Arrow-ProcessDocument.html @@ -18,9 +18,9 @@ Portability: portable Version : $Id: ProcessDocument.hs,v 1.3 2006/08/30 16:20:52 hxml Exp $ -Compound arrows for reading, parsing, validating and writing XML documents + Compound arrows for reading, parsing, validating and writing XML documents -All arrows use IO and a global state for options, errorhandling, ... + All arrows use IO and a global state for options, errorhandling, ... -}-- ------------------------------------------------------------ @@ -139,7 +139,7 @@ parseHtmlDocument::Bool->Bool->Bool->Bool->Bool->Bool->IOStateArrowsXmlTreeXmlTreeparseHtmlDocumentwithTagSoupwithNamespaceswarningspreserveCmtremoveWhitespaceasHtml -=(perform(getAttrValuea_source>>>traceString1(("parseHtmlDoc: parse HTML document "++).show)) +=(perform(getAttrValuea_source>>>traceValue1(("parseHtmlDoc: parse HTML document "++).show))>>>replaceChildren((getAttrValuea_source-- get source name&&& @@ -159,7 +159,7 @@ >>>perform(getAttrValuea_source>>> -traceString1(\src->"parse HTML document "++showsrc++" finished") +traceValue1(\src->"parse HTML document "++showsrc++" finished")))`when`documentStatusOk diff --git a/doc/hdoc/src/Text-XML-HXT-Arrow-ReadDocument.html b/doc/hdoc/src/Text-XML-HXT-Arrow-ReadDocument.html --- a/doc/hdoc/src/Text-XML-HXT-Arrow-ReadDocument.html +++ b/doc/hdoc/src/Text-XML-HXT-Arrow-ReadDocument.html @@ -117,264 +117,270 @@ - 'a_use_curl' : obsolete and ignored, HTTP acccess is always done with curl bindings for libcurl -- 'a_options_curl' : deprecated but for compatibility reasons still supported. - More options passed to the curl binding. - Instead of using this option to set a whole bunch of options at once for curl - it is recomended to use the @curl-.*@ options syntax described below. - -- 'a_encoding' : default document encoding ('utf8', 'isoLatin1', 'usAscii', 'iso8859_2', ... , 'iso8859_16', ...). - Only XML and HTML documents are decoded, documents with none XML\/HTML mime types are not decoded. The whole content is returned in a single text node - -- 'a_mime_types' : set the mime type table for file input with given file. The format of this config file must be in the syntax of a debian linux \"mime.types\" config file - -- curl options : the HTTP interface with libcurl can be configured with a lot of options. To support these options in an easy way, there is a naming convetion: - Every option, which has the prefix @curl@ and the rest of the name forms an option as described in the curl man page, is passed to the curl binding lib. - See 'Text.XML.HXT.IO.GetHTTPLibCurl.getCont' for examples. Currently most of the options concerning HTTP requests are implemented. +- 'a_strict_input' : file input is done strictly using the 'Data.ByteString' input functions. This ensures correct closing of files, especially when working with + the tagsoup parser and not processing the whole input data. Default is off. The @ByteString@ input usually is not faster than the buildin @hGetContents@ + for strings. + +- 'a_options_curl' : deprecated but for compatibility reasons still supported. + More options passed to the curl binding. + Instead of using this option to set a whole bunch of options at once for curl + it is recomended to use the @curl-.*@ options syntax described below. + +- 'a_encoding' : default document encoding ('utf8', 'isoLatin1', 'usAscii', 'iso8859_2', ... , 'iso8859_16', ...). + Only XML and HTML documents are decoded, documents with none XML\/HTML mime types are not decoded. The whole content is returned in a single text node + +- 'a_mime_types' : set the mime type table for file input with given file. The format of this config file must be in the syntax of a debian linux \"mime.types\" config file -All attributes not evaluated by readDocument are stored in the created document root node for easy access of the various -options in e.g. the input\/output modules - -If the document name is the empty string or an uri of the form \"stdin:\", the document is read from standard input. - -examples: +- curl options : the HTTP interface with libcurl can be configured with a lot of options. To support these options in an easy way, there is a naming convetion: + Every option, which has the prefix @curl@ and the rest of the name forms an option as described in the curl man page, is passed to the curl binding lib. + See 'Text.XML.HXT.IO.GetHTTPLibCurl.getCont' for examples. Currently most of the options concerning HTTP requests are implemented. + +All attributes not evaluated by readDocument are stored in the created document root node for easy access of the various +options in e.g. the input\/output modules -> readDocument [ ] "test.xml" +If the document name is the empty string or an uri of the form \"stdin:\", the document is read from standard input. -reads and validates a document \"test.xml\", no namespace propagation, only canonicalization is performed +examples: -> readDocument [ (a_validate, "0") -> , (a_encoding, isoLatin1) -> , (a_parse_by_mimetype, "1") -> ] "http://localhost/test.php" - -reads document \"test.php\", parses it as HTML or XML depending on the mimetype given from the server, but without validation, default encoding 'isoLatin1'. - - -> readDocument [ (a_parse_html, "1") -> , (a_encoding, isoLatin1) -> ] "" +> readDocument [ ] "test.xml" + +reads and validates a document \"test.xml\", no namespace propagation, only canonicalization is performed + +> readDocument [ (a_validate, "0") +> , (a_encoding, isoLatin1) +> , (a_parse_by_mimetype, "1") +> ] "http://localhost/test.php" + +reads document \"test.php\", parses it as HTML or XML depending on the mimetype given from the server, but without validation, default encoding 'isoLatin1'. + -reads a HTML document from standard input, no validation is done when parsing HTML, default encoding is 'isoLatin1', -parsing is done with tagsoup parser - -> readDocument [ (a_encoding, isoLatin1) -> , (a_mime_type, "/etc/mime.types") -> , (a_tagsoup, "1") -> ] "test.svg" - -reads an SVG document from standard input, sets the mime type by looking in the system mimetype config file, default encoding is 'isoLatin1', -parsing is done with the lightweight tagsoup parser, which implies no validation. - -> readDocument [ (a_parse_html, "1") -> , (a_proxy, "www-cache:3128") -> , (a_curl, "1") -> , (a_issue_warnings, "0") -> ] "http://www.haskell.org/" - -reads Haskell homepage with HTML parser ignoring any warnings, with http access via external program curl and proxy \"www-cache\" at port 3128 - -> readDocument [ (a_validate, "1") -> , (a_check_namespace, "1") -> , (a_remove_whitespace, "1") -> , (a_trace, "2") -> ] "http://www.w3c.org/" - -read w3c home page (xhtml), validate and check namespaces, remove whitespace between tags, trace activities with level 2 - -for minimal complete examples see 'Text.XML.HXT.Arrow.WriteDocument.writeDocument' and 'runX', the main starting point for running an XML arrow. --} +> readDocument [ (a_parse_html, "1") +> , (a_encoding, isoLatin1) +> ] "" + +reads a HTML document from standard input, no validation is done when parsing HTML, default encoding is 'isoLatin1', +parsing is done with tagsoup parser, but input is read strictly + +> readDocument [ (a_encoding, isoLatin1) +> , (a_mime_type, "/etc/mime.types") +> , (a_tagsoup, "1") +> , (a_strict_input, "1") +> ] "test.svg" + +reads an SVG document from standard input, sets the mime type by looking in the system mimetype config file, default encoding is 'isoLatin1', +parsing is done with the lightweight tagsoup parser, which implies no validation. + +> readDocument [ (a_parse_html, "1") +> , (a_proxy, "www-cache:3128") +> , (a_curl, "1") +> , (a_issue_warnings, "0") +> ] "http://www.haskell.org/" + +reads Haskell homepage with HTML parser ignoring any warnings, with http access via external program curl and proxy \"www-cache\" at port 3128 + +> readDocument [ (a_validate, "1") +> , (a_check_namespace, "1") +> , (a_remove_whitespace, "1") +> , (a_trace, "2") +> ] "http://www.w3c.org/" -readDocument::Attributes->String->IOStateArrowsbXmlTree -readDocumentuserOptionssrc -=traceLevel ->>> -addInputOptionsToSystemState ->>> -getDocumentContentsoptionssrc ->>> -(processDoc$<getMimeType) ->>> -traceMsg1("readDocument: "++showsrc++" processed") ->>> -traceSource ->>> -traceTree -where -options -=addEntriesuserOptionsdefaultOptions - -defaultOptions -=[(a_parse_html,v_0) -,(a_tagsoup,v_0) -,(a_validate,v_1) -,(a_issue_warnings,v_1) -,(a_check_namespaces,v_0) -,(a_canonicalize,v_1) -,(a_preserve_comment,v_0) -,(a_remove_whitespace,v_0) -,(a_parse_by_mimetype,v_0) -,(a_ignore_encoding_errors,v_0) -,(a_ignore_none_xml_contents,v_0) -] - -traceLevel -=maybethis(setTraceLevel.read).lookupa_trace$options - -addInputOptionsToSystemState -=addSysOptionsoptions ->>> -loadMineTypes(lookup1a_mime_typesuserOptions) -where -addSysOptions -=seqA.map(uncurrysetParamString) -loadMineTypes""=this -loadMineTypesf=setMimeTypeTableFromFilef - -getMimeType -=getAttrValuetransferMimeType>>^maptoLower - -processDocmimeType -=traceMsg1("readDocument: "++showsrc++" (mime type: "++showmimeType++") will be processed") ->>> -parse ->>> -(ifisXmlOrHtml -then(checknamespaces ->>> -canonicalize ->>> -whitespace ->>> -relax -) -elsethis -) -where -parse -|isHtml -|| -withTagSoup=parseHtmlDocument-- parse as HTML or with tagsoup XML -withTagSoup -withNamespaces -issueW -(not(hasOptiona_canonicalize)&&preserveCmt) -removeWS -isHtml -|validateWithRelax=parseXmlDocumentFalse-- for Relax NG use XML parser without validation -|isXml=parseXmlDocumentvalidate-- parse as XML -|removeNoneXml=replaceChildrennone-- don't parse, if mime type is not XML nore HTML -|otherwise=this-- but remove contents when option is set -checknamespaces -|(withNamespaces&&notwithTagSoup) -|| -validateWithRelax=propagateAndValidateNamespaces -|otherwise=this -canonicalize -|withTagSoup=this-- tagsoup already removes redundant struff -|validateWithRelax=canonicalizeAllNodes -|hasOptiona_canonicalize -&& -preserveCmt=canonicalizeForXPath -|hasOptiona_canonicalize=canonicalizeAllNodes -|otherwise=this -relax -|validateWithRelax=validateDocumentWithRelaxSchemaoptionsrelaxSchema -|otherwise=this -whitespace -|removeWS -&& -notwithTagSoup=removeDocWhiteSpace-- tagsoup already removes whitespace -|otherwise=this -validateWithRelax=hasEntrya_relax_schemaoptions -relaxSchema=lookup1a_relax_schemaoptions -parseHtml=hasOptiona_parse_html -isHtml=parseHtml-- force HTML -|| -(parseByMimeType&&isHtmlMimeTypemimeType) -isXml=(notparseByMimeType&&notparseHtml) -|| -(parseByMimeType -&& -(isXmlMimeTypemimeType -|| -nullmimeType -)-- mime type is XML or not known -) -isXmlOrHtml=isHtml||isXml -parseByMimeType=hasOptiona_parse_by_mimetype -validate=hasOptiona_validate -withNamespaces=hasOptiona_check_namespaces -withTagSoup=hasOptiona_tagsoup -issueW=hasOptiona_issue_warnings -removeWS=hasOptiona_remove_whitespace -preserveCmt=hasOptiona_preserve_comment -removeNoneXml=hasOptiona_ignore_none_xml_contents -hasOptionn=optionIsSetnoptions - --- ------------------------------------------------------------ - --- | --- the arrow version of 'readDocument', the arrow input is the source URI - -readFromDocument::Attributes->IOStateArrowsStringXmlTree -readFromDocumentuserOptions -=applyA(arr$\s->readDocumentuserOptionss) - --- ------------------------------------------------------------ +read w3c home page (xhtml), validate and check namespaces, remove whitespace between tags, trace activities with level 2 + +for minimal complete examples see 'Text.XML.HXT.Arrow.WriteDocument.writeDocument' and 'runX', the main starting point for running an XML arrow. +-} + +readDocument::Attributes->String->IOStateArrowsbXmlTree +readDocumentuserOptionssrc +=traceLevel +>>> +addInputOptionsToSystemState +>>> +getDocumentContentsoptionssrc +>>> +(processDoc$<getMimeType) +>>> +traceMsg1("readDocument: "++showsrc++" processed") +>>> +traceSource +>>> +traceTree +where +options +=addEntriesuserOptionsdefaultOptions + +defaultOptions +=[(a_parse_html,v_0) +,(a_tagsoup,v_0) +,(a_strict_input,v_0) +,(a_validate,v_1) +,(a_issue_warnings,v_1) +,(a_check_namespaces,v_0) +,(a_canonicalize,v_1) +,(a_preserve_comment,v_0) +,(a_remove_whitespace,v_0) +,(a_parse_by_mimetype,v_0) +,(a_ignore_encoding_errors,v_0) +,(a_ignore_none_xml_contents,v_0) +] + +traceLevel +=maybethis(setTraceLevel.read).lookupa_trace$options + +addInputOptionsToSystemState +=addSysOptionsoptions +>>> +loadMineTypes(lookup1a_mime_typesuserOptions) +where +addSysOptions +=seqA.map(uncurrysetParamString) +loadMineTypes""=this +loadMineTypesf=setMimeTypeTableFromFilef + +getMimeType +=getAttrValuetransferMimeType>>^maptoLower + +processDocmimeType +=traceMsg1("readDocument: "++showsrc++" (mime type: "++showmimeType++") will be processed") +>>> +parse +>>> +(ifisXmlOrHtml +then(checknamespaces +>>> +canonicalize +>>> +whitespace +>>> +relax +) +elsethis +) +where +parse +|isHtml +|| +withTagSoup=parseHtmlDocument-- parse as HTML or with tagsoup XML +withTagSoup +withNamespaces +issueW +(not(hasOptiona_canonicalize)&&preserveCmt) +removeWS +isHtml +|validateWithRelax=parseXmlDocumentFalse-- for Relax NG use XML parser without validation +|isXml=parseXmlDocumentvalidate-- parse as XML +|removeNoneXml=replaceChildrennone-- don't parse, if mime type is not XML nore HTML +|otherwise=this-- but remove contents when option is set +checknamespaces +|(withNamespaces&&notwithTagSoup) +|| +validateWithRelax=propagateAndValidateNamespaces +|otherwise=this +canonicalize +|withTagSoup=this-- tagsoup already removes redundant struff +|validateWithRelax=canonicalizeAllNodes +|hasOptiona_canonicalize +&& +preserveCmt=canonicalizeForXPath +|hasOptiona_canonicalize=canonicalizeAllNodes +|otherwise=this +relax +|validateWithRelax=validateDocumentWithRelaxSchemaoptionsrelaxSchema +|otherwise=this +whitespace +|removeWS +&& +notwithTagSoup=removeDocWhiteSpace-- tagsoup already removes whitespace +|otherwise=this +validateWithRelax=hasEntrya_relax_schemaoptions +relaxSchema=lookup1a_relax_schemaoptions +parseHtml=hasOptiona_parse_html +isHtml=parseHtml-- force HTML +|| +(parseByMimeType&&isHtmlMimeTypemimeType) +isXml=(notparseByMimeType&&notparseHtml) +|| +(parseByMimeType +&& +(isXmlMimeTypemimeType +|| +nullmimeType +)-- mime type is XML or not known +) +isXmlOrHtml=isHtml||isXml +parseByMimeType=hasOptiona_parse_by_mimetype +validate=hasOptiona_validate +withNamespaces=hasOptiona_check_namespaces +withTagSoup=hasOptiona_tagsoup +issueW=hasOptiona_issue_warnings +removeWS=hasOptiona_remove_whitespace +preserveCmt=hasOptiona_preserve_comment +removeNoneXml=hasOptiona_ignore_none_xml_contents +hasOptionn=optionIsSetnoptions + +-- ------------------------------------------------------------ + +-- | +-- the arrow version of 'readDocument', the arrow input is the source URI --- | --- read a document that is stored in a normal Haskell String --- --- the same function as readDocument, but the parameter forms the input. --- All options available for 'readDocument' are applicable for readString. --- --- Default encoding: No encoding is done, the String argument is taken as Unicode string - -readString::Attributes->String->IOStateArrowsbXmlTree -readStringuserOptionscontent -=readDocument((a_encoding,unicodeString):userOptions)(stringProtocol++content) - --- ------------------------------------------------------------ +readFromDocument::Attributes->IOStateArrowsStringXmlTree +readFromDocumentuserOptions +=applyA(arr$\s->readDocumentuserOptionss) + +-- ------------------------------------------------------------ + +-- | +-- read a document that is stored in a normal Haskell String +-- +-- the same function as readDocument, but the parameter forms the input. +-- All options available for 'readDocument' are applicable for readString. +-- +-- Default encoding: No encoding is done, the String argument is taken as Unicode string --- | --- the arrow version of 'readString', the arrow input is the source URI - -readFromString::Attributes->IOStateArrowsStringXmlTree -readFromStringuserOptions -=applyA(arr$\s->readStringuserOptionss) - --- ------------------------------------------------------------ +readString::Attributes->String->IOStateArrowsbXmlTree +readStringuserOptionscontent +=readDocument((a_encoding,unicodeString):userOptions)(stringProtocol++content) + +-- ------------------------------------------------------------ + +-- | +-- the arrow version of 'readString', the arrow input is the source URI --- | --- parse a string as HTML content, substitute all HTML entity refs and canonicalize tree --- (substitute char refs, ...). Errors are ignored. --- --- A simpler version of 'readFromString' but with less functionality. --- Does not run in the IO monad - -hread::ArrowXmla=>aStringXmlTree -hread -=parseHtmlContent ->>> -substHtmlEntityRefs ->>> -processTopDown(none`when`isError) ->>> -canonicalizeContents - --- | --- parse a string as XML content, substitute all predefined XML entity refs and canonicalize tree --- (substitute char refs, ...) - -xread::ArrowXmla=>aStringXmlTree -xread -=parseXmlContent ->>> -substXmlEntityRefs ->>> -canonicalizeContents - --- ------------------------------------------------------------ - +readFromString::Attributes->IOStateArrowsStringXmlTree +readFromStringuserOptions +=applyA(arr$\s->readStringuserOptionss) + +-- ------------------------------------------------------------ + +-- | +-- parse a string as HTML content, substitute all HTML entity refs and canonicalize tree +-- (substitute char refs, ...). Errors are ignored. +-- +-- A simpler version of 'readFromString' but with less functionality. +-- Does not run in the IO monad + +hread::ArrowXmla=>aStringXmlTree +hread +=parseHtmlContent +>>> +substHtmlEntityRefs +>>> +processTopDown(none`when`isError) +>>> +canonicalizeContents + +-- | +-- parse a string as XML content, substitute all predefined XML entity refs and canonicalize tree +-- (substitute char refs, ...) + +xread::ArrowXmla=>aStringXmlTree +xread +=parseXmlContent +>>> +substXmlEntityRefs +>>> +canonicalizeContents + +-- ------------------------------------------------------------ + diff --git a/doc/hdoc/src/Text-XML-HXT-Arrow-WriteDocument.html b/doc/hdoc/src/Text-XML-HXT-Arrow-WriteDocument.html --- a/doc/hdoc/src/Text-XML-HXT-Arrow-WriteDocument.html +++ b/doc/hdoc/src/Text-XML-HXT-Arrow-WriteDocument.html @@ -10,197 +10,208 @@ {- | Module : Text.XML.HXT.Arrow.WriteDocument - Copyright : Copyright (C) 2005 Uwe Schmidt + Copyright : Copyright (C) 2005-9 Uwe Schmidt License : MIT Maintainer : Uwe Schmidt (uwe@fh-wedel.de) Stability : experimental Portability: portable - Version : $Id: WriteDocument.hs,v 1.8 2006/11/09 20:27:42 hxml Exp $ - -Compound arrow for writing XML documents - --} - --- ------------------------------------------------------------ - -moduleText.XML.HXT.Arrow.WriteDocument -(writeDocument -,writeDocumentToString -,prepareContents -) -where - -importControl.Arrow-- arrow classes -importControl.Arrow.ArrowList -importControl.Arrow.ArrowIf -importControl.Arrow.ArrowTree - -importText.XML.HXT.DOM.Interface -importText.XML.HXT.Arrow.XmlArrow -importText.XML.HXT.Arrow.XmlIOStateArrow - -importText.XML.HXT.Arrow.Edit -(indentDoc -,removeDocWhiteSpace -,treeRepOfXmlDoc -,haskellRepOfXmlDoc -,escapeXmlDoc -,escapeHtmlDoc -) - -importText.XML.HXT.Arrow.DocumentOutput -(putXmlDocument -,encodeDocument -) + + Compound arrow for writing XML documents + +-} + +-- ------------------------------------------------------------ + +moduleText.XML.HXT.Arrow.WriteDocument +(writeDocument +,writeDocumentToString +,prepareContents +) +where + +importControl.Arrow-- arrow classes +importControl.Arrow.ArrowList +importControl.Arrow.ArrowIf +importControl.Arrow.ArrowTree + +importText.XML.HXT.DOM.Interface +importText.XML.HXT.Arrow.XmlArrow +importText.XML.HXT.Arrow.XmlIOStateArrow + +importText.XML.HXT.Arrow.Edit(escapeHtmlDoc +,escapeXmlDoc +,haskellRepOfXmlDoc +,indentDoc +,preventEmptyElements +,removeDocWhiteSpace +,treeRepOfXmlDoc +) + +importText.XML.HXT.Arrow.DocumentOutput(putXmlDocument +,encodeDocument +) + +-- ------------------------------------------------------------ --- ------------------------------------------------------------ - -{- | -the main filter for writing documents +{- | +the main filter for writing documents + +this filter can be configured by an option list like 'Text.XML.HXT.Arrow.ReadDocument.readDocument' -this filter can be configured by an option list like 'Text.XML.HXT.Arrow.ReadDocument.readDocument' +usage: @ writeDocument optionList destination @ -usage: @ writeDocument optionList destination @ +if @ destination @ is the empty string or \"-\", stdout is used as output device -if @ destination @ is the empty string or \"-\", stdout is used as output device +available options are -available options are +* 'a_indent' : indent document for readability, (default: no indentation) -* 'a_indent' : indent document for readability, (default: no indentation) +- 'a_remove_whitespace' : remove all redundant whitespace for shorten text (default: no removal) -- 'a_remove_whitespace' : remove all redundant whitespace for shorten text (default: no removal) +- 'a_output_encoding' : encoding of document, default is 'a_encoding' or 'utf8' -- 'a_output_encoding' : encoding of document, default is 'a_encoding' or 'utf8' - -- 'a_output_xml' : (default) issue XML: quote special XML chars \>,\<,\",\',& where neccessary - add XML processing instruction - and encode document with respect to 'a_output_encoding', - if explicitly switched of, the plain text is issued, this is useful - for non XML output, e.g. generated Haskell code, LaTex, Java, ... +- 'a_output_xml' : (default) issue XML: quote special XML chars \>,\<,\",\',& where neccessary + add XML processing instruction + and encode document with respect to 'a_output_encoding', + if explicitly switched of, the plain text is issued, this is useful + for non XML output, e.g. generated Haskell code, LaTex, Java, ... + +- 'a_output_html' : issue XHTML: quote alle XML chars, use HTML entity refs or char refs for none ASCII chars -- 'a_output_html' : issue XHTML: quote alle XML chars, use HTML entity refs or char refs for none ASCII chars - -- 'a_no_xml_pi' : suppress generation of \<?xml ... ?\> processing instruction - -- 'a_show_tree' : show tree representation of document (for debugging) - -- 'a_show_haskell' : show Haskell representaion of document (for debugging) - - a minimal main program for copying a document - has the following structure: +- 'a_no_empty_elements' : do not write the short form \<name .../\> for empty elements. When 'a_output_html' is set, + the always empty HTML elements are still written in short form, but not the others, as e.g. the script element. + Empty script elements, like \<script href=\"...\"/\>, are always a problem for firefox and others. + When XML output is generated with this option, all empty elements are written in the long form. + +- 'a_no_xml_pi' : suppress generation of \<?xml ... ?\> processing instruction + +- 'a_show_tree' : show tree representation of document (for debugging) + +- 'a_show_haskell' : show Haskell representaion of document (for debugging) -> module Main -> where -> -> import Text.XML.HXT.Arrow -> -> main :: IO () -> main -> = do -> runX ( readDocument [] "hello.xml" -> >>> -> writeDocument [] "bye.xml" -> ) -> return () - -an example for copying a document to standard output with tracing and evaluation of -error code is: + a minimal main program for copying a document + has the following structure: + +> module Main +> where +> +> import Text.XML.HXT.Arrow +> +> main :: IO () +> main +> = do +> runX ( readDocument [] "hello.xml" +> >>> +> writeDocument [] "bye.xml" +> ) +> return () -> module Main -> where -> -> import Text.XML.HXT.Arrow -> import System.Exit +an example for copying a document to standard output with tracing and evaluation of +error code is: + +> module Main +> where > -> main :: IO () -> main -> = do -> [rc] <- runX ( readDocument [ (a_trace, "1") -> ] "hello.xml" -> >>> -> writeDocument [ (a_output_encoding, isoLatin1) -> ] "-" -- output to stdout +> import Text.XML.HXT.Arrow +> import System.Exit +> +> main :: IO () +> main +> = do +> [rc] <- runX ( readDocument [ (a_trace, "1") +> ] "hello.xml" > >>> -> getErrStatus -> ) -> exitWith ( if rc >= c_err -> then ExitFailure 1 -> else ExitSuccess -> ) --} - -writeDocument :: Attributes -> String -> IOStateArrow s XmlTree XmlTree -writeDocument userOptions dst - = perform ( traceMsg 1 ("writeDocument: destination is " ++ show dst) - >>> - prepareContents userOptions - >>> - putXmlDocument dst - >>> - traceMsg 1 "writeDocument: finished" - ) - `when` - documentStatusOk - --- ------------------------------------------------------------ - --- | --- Convert a document into a string. Formating is done the same way --- and with the same options as in 'writeDocument'. - -writeDocumentToString :: Attributes -> IOStateArrow s XmlTree String -writeDocumentToString userOptions - = prepareContents userOptions - >>> - xshow getChildren - --- ------------------------------------------------------------ - --- | --- indent and format output +> writeDocument [ (a_output_encoding, isoLatin1) +> ] "-" -- output to stdout +> >>> +> getErrStatus +> ) +> exitWith ( if rc >= c_err +> then ExitFailure 1 +> else ExitSuccess +> ) +-} + +writeDocument::Attributes->String->IOStateArrowsXmlTreeXmlTree +writeDocumentuserOptionsdst +=perform(traceMsg1("writeDocument: destination is "++showdst) +>>> +prepareContentsuserOptions +>>> +putXmlDocumentdst +>>> +traceMsg1"writeDocument: finished" +) +`when` +documentStatusOk + +-- ------------------------------------------------------------ + +-- | +-- Convert a document into a string. Formating is done the same way +-- and with the same options as in 'writeDocument'. + +writeDocumentToString::Attributes->IOStateArrowsXmlTreeString +writeDocumentToStringuserOptions +=prepareContentsuserOptions +>>> +xshowgetChildren + +-- ------------------------------------------------------------ -prepareContents::Attributes->IOStateArrowsXmlTreeXmlTree -prepareContentsuserOptions -=indent ->>> -format -where -indent -|hasOptiona_indent=indentDoc-- document indentation -|hasOptiona_remove_whitespace=removeDocWhiteSpace-- remove all whitespace between tags -|otherwise=this - -format -|hasOptiona_show_tree=treeRepOfXmlDoc -|hasOptiona_show_haskell=haskellRepOfXmlDoc -|hasOptiona_output_html=escapeHtmlDoc-- escape al XML and HTML chars >= 128 ->>> -encodeDocument-- convert doc into text with respect to output encoding with ASCII as default -suppressXmlPi(lookupDefusAsciia_output_encodingoptions) -|hasOptiona_output_xml=escapeXmlDoc-- escape lt, gt, amp, quot, ->>> -encodeDocument-- convert doc into text with respect to output encoding -suppressXmlPi(lookupDef""a_output_encodingoptions) -|otherwise=this - -suppressXmlPi-- remove <?xml ... ?> when set -=hasOptiona_no_xml_pi - -hasOptionn -=optionIsSetnoptions - -options=addEntries -userOptions -[(a_indent,v_0) -,(a_remove_whitespace,v_0) -,(a_output_xml,v_1) -,(a_show_tree,v_0) -,(a_show_haskell,v_0) -,(a_output_html,v_0) -,(a_no_xml_pi,v_0) -] - --- ------------------------------------------------------------ +-- | +-- indent and format output + +prepareContents::Attributes->IOStateArrowsXmlTreeXmlTree +prepareContentsuserOptions +=indent +>>> +format +where +formatEmptyElems +|hasOptiona_no_empty_elements=preventEmptyElements +|otherwise=constthis +indent +|hasOptiona_indent=indentDoc-- document indentation +|hasOptiona_remove_whitespace=removeDocWhiteSpace-- remove all whitespace between tags +|otherwise=this + +format +|hasOptiona_show_tree=treeRepOfXmlDoc +|hasOptiona_show_haskell=haskellRepOfXmlDoc +|hasOptiona_output_html=formatEmptyElemsTrue +>>> +escapeHtmlDoc-- escape al XML and HTML chars >= 128 +>>> +encodeDocument-- convert doc into text with respect to output encoding with ASCII as default +suppressXmlPi(lookupDefusAsciia_output_encodingoptions) +|hasOptiona_output_xml=formatEmptyElemsFalse +>>> +escapeXmlDoc-- escape lt, gt, amp, quot, +>>> +encodeDocument-- convert doc into text with respect to output encoding +suppressXmlPi(lookupDef""a_output_encodingoptions) +|otherwise=this + +suppressXmlPi-- remove <?xml ... ?> when set +=hasOptiona_no_xml_pi + +hasOptionn +=optionIsSetnoptions + +options=addEntries +userOptions +[(a_indent,v_0) +,(a_remove_whitespace,v_0) +,(a_output_xml,v_1) +,(a_show_tree,v_0) +,(a_show_haskell,v_0) +,(a_output_html,v_0) +,(a_no_xml_pi,v_0) +,(a_no_empty_elements,v_0) +] + +-- ------------------------------------------------------------ diff --git a/doc/hdoc/src/Text-XML-HXT-Arrow-XPath.html b/doc/hdoc/src/Text-XML-HXT-Arrow-XPath.html --- a/doc/hdoc/src/Text-XML-HXT-Arrow-XPath.html +++ b/doc/hdoc/src/Text-XML-HXT-Arrow-XPath.html @@ -91,7 +91,7 @@ -- | Same as 'getXPathTreesInDoc' but with namespace environment for the XPath names -getXPathTreesInDocWithNsEnv::ArrowXmla=>NsEnv->String->aXmlTreeXmlTree +getXPathTreesInDocWithNsEnv::ArrowXmla=>Attributes->String->aXmlTreeXmlTreegetXPathTreesInDocWithNsEnvenvquery=canonicalizeForXPath>>>arrL(PT.getXPathSubTreesWithNsEnvenvquery) @@ -114,7 +114,7 @@ -- | Same as 'getXPathTrees' but with namespace environment for the XPath names -getXPathTreesWithNsEnv::ArrowXmla=>NsEnv->String->aXmlTreeXmlTree +getXPathTreesWithNsEnv::ArrowXmla=>Attributes->String->aXmlTreeXmlTreegetXPathTreesWithNsEnvenvquery=arrL(PT.getXPathSubTreesWithNsEnvenvquery)-- | Select a set of nodes via an XPath expression from an arbitray XML tree @@ -130,7 +130,7 @@ -- | Same as 'getXPathNodeSet' but with namespace environment for the XPath names -getXPathNodeSetWithNsEnv::ArrowXmla=>NsEnv->String->aXmlTreeXmlNodeSet +getXPathNodeSetWithNsEnv::ArrowXmla=>Attributes->String->aXmlTreeXmlNodeSetgetXPathNodeSetWithNsEnvnsEnvquery=arr(PT.getXPathNodeSetWithNsEnvnsEnvquery)-- ------------------------------------------------------------ @@ -234,7 +234,7 @@ -- | Same as 'processXPathTrees' but with namespace environment for the XPath names -processXPathTreesWithNsEnv::ArrowXmla=>aXmlTreeXmlTree->NsEnv->String->aXmlTreeXmlTree +processXPathTreesWithNsEnv::ArrowXmla=>aXmlTreeXmlTree->Attributes->String->aXmlTreeXmlTreeprocessXPathTreesWithNsEnvfnsEnvquery=choiceA[isRoot:->processChildrenpns diff --git a/doc/hdoc/src/Text-XML-HXT-Arrow-XPathSimple.html b/doc/hdoc/src/Text-XML-HXT-Arrow-XPathSimple.html --- a/doc/hdoc/src/Text-XML-HXT-Arrow-XPathSimple.html +++ b/doc/hdoc/src/Text-XML-HXT-Arrow-XPathSimple.html @@ -50,472 +50,468 @@ moduleText.XML.HXT.Arrow.XPathSimplewhere -importControl.Monad -importControl.Arrow.ListArrows - -importData.Maybe +-- import qualified Debug.Trace as T + +importControl.Monad +importControl.Arrow.ListArrows -importText.ParserCombinators.Parsec -(runParser) - -importText.XML.HXT.DOM.Interface -importText.XML.HXT.Arrow.XmlArrow - -importqualifiedText.XML.HXT.Arrow.XPathasXP -(getXPathTreesWithNsEnv -) - -importText.XML.HXT.Arrow.Edit -(canonicalizeForXPath -) - -importText.XML.HXT.XPath.XPathDataTypes -(XPNumber(..) -,Expr(..) -,Op(..) -,XPathNode(..) -,LocationPath(..) -,Path(..) -,XStep(..) -,AxisSpec(..) -,NodeTest(..) -,XPathValue(..) -) +importData.Maybe + +importText.ParserCombinators.Parsec(runParser) + +importText.XML.HXT.DOM.Interface +importText.XML.HXT.Arrow.XmlArrow + +importqualifiedText.XML.HXT.Arrow.XPathasXP(getXPathTreesWithNsEnv +) +importText.XML.HXT.Arrow.Edit(canonicalizeForXPath +) + +importText.XML.HXT.XPath.XPathDataTypes(XPNumber(..) +,Expr(..) +,Op(..) +,XPathNode(..) +,LocationPath(..) +,Path(..) +,XStep(..) +,AxisSpec(..) +,NodeTest(..) +,XPathValue(..) +) +importText.XML.HXT.XPath.XPathParser(parseXPath +,parseNumber +) -importText.XML.HXT.XPath.XPathParser -(parseXPath -,parseNumber -) +-- ---------------------------------------- + +-- | +-- Same Functionality as 'Text.XML.HXT.Arrow.XPath.getXPathTreesInDoc' --- ---------------------------------------- - --- | --- Same Functionality as 'Text.XML.HXT.Arrow.XPath.getXPathTreesInDoc' - -getXPathTreesInDoc::ArrowXmla=>String->aXmlTreeXmlTree -getXPathTreesInDoc=getXPathTreesInDocWithNsEnv[] - --- | --- Same Functionality as 'Text.XML.HXT.Arrow.XPath.getXPathTreesInDocWithNsEnv' - -getXPathTreesInDocWithNsEnv::ArrowXmla=>NsEnv->String->aXmlTreeXmlTree -getXPathTreesInDocWithNsEnvenvquery=canonicalizeForXPath ->>> -tryGetXPathenvquery --- | --- Same Functionality as 'Text.XML.HXT.Arrow.XPath.getXPathTrees' - -getXPathTrees::ArrowXmla=>String->aXmlTreeXmlTree -getXPathTrees=getXPathTreesWithNsEnv[] - --- | --- Same Functionality as 'Text.XML.HXT.Arrow.XPath.getXPathTreesWithNsEnv' - -getXPathTreesWithNsEnv::ArrowXmla=>NsEnv->String->aXmlTreeXmlTree -getXPathTreesWithNsEnv=tryGetXPath - - -tryGetXPath::ArrowXmla=>NsEnv->String->aXmlTreeXmlTree -tryGetXPathenvquery=(listA(getXPathTreesWithNsEnvSimpleenvquery) -&&& -listA(XP.getXPathTreesWithNsEnvenvquery) -) ->>> -ifA(arrfst>>>(unlistA>>.take1)>>>isError) -(arrsnd>>>unlistA) -(arrfst>>>unlistA) - --- | --- The xpath interpreter for simple xpath expressions. --- --- In case of a too complicated or illegal xpath expression an error --- node is returned, else the list of selected XML trees +getXPathTreesInDoc::ArrowXmla=>String->aXmlTreeXmlTree +getXPathTreesInDoc=getXPathTreesInDocWithNsEnv[] + +-- | +-- Same Functionality as 'Text.XML.HXT.Arrow.XPath.getXPathTreesInDocWithNsEnv' + +getXPathTreesInDocWithNsEnv::ArrowXmla=>Attributes->String->aXmlTreeXmlTree +getXPathTreesInDocWithNsEnvenvquery=canonicalizeForXPath +>>> +tryGetXPathenvquery +-- | +-- Same Functionality as 'Text.XML.HXT.Arrow.XPath.getXPathTrees' + +getXPathTrees::ArrowXmla=>String->aXmlTreeXmlTree +getXPathTrees=getXPathTreesWithNsEnv[] + +-- | +-- Same Functionality as 'Text.XML.HXT.Arrow.XPath.getXPathTreesWithNsEnv' + +getXPathTreesWithNsEnv::ArrowXmla=>Attributes->String->aXmlTreeXmlTree +getXPathTreesWithNsEnv=tryGetXPath + + +tryGetXPath::ArrowXmla=>Attributes->String->aXmlTreeXmlTree +tryGetXPathenvquery=(listA(getXPathTreesWithNsEnvSimpleenvquery) +&&& +listA(XP.getXPathTreesWithNsEnvenvquery) +) +>>> +ifA(arrfst>>>(unlistA>>.take1)>>>isError) +(arrsnd>>>unlistA) +(arrfst>>>unlistA) + +-- | +-- The xpath interpreter for simple xpath expressions. +-- +-- In case of a too complicated or illegal xpath expression an error +-- node is returned, else the list of selected XML trees + +getXPathTreesWithNsEnvSimple::ArrowXmla=>Attributes->String->aXmlTreeXmlTree +getXPathTreesWithNsEnvSimpleenvs=fromLA$getXP(toNsEnvenv)s + +-- ---------------------------------------- -getXPathTreesWithNsEnvSimple::ArrowXmla=>NsEnv->String->aXmlTreeXmlTree -getXPathTreesWithNsEnvSimpleenvs=fromLA$getXPenvs - --- ---------------------------------------- - -getXP::NsEnv->String->LAXmlTreeXmlTree -getXPenvs=either(err -. -(("Syntax error in XPath expression "++shows++": ")++) -. -show.show -)(fromMaybe(err("XPath expression "++shows++ -" too complicated for simple arrow evaluation" -) -).compXPath -) -. -runParserparseXPathenv"" -$s +getXP::NsEnv->String->LAXmlTreeXmlTree +getXPenvs=either(err +. +(("Syntax error in XPath expression "++shows++": ")++) +. +show.show +)(fromMaybe(err("XPath expression "++shows++ +" too complicated for simple arrow evaluation" +) +).compXPath +) +-- . ( \ e -> T.trace (("getXP: xp = "++) . show $ e) e) +. +runParserparseXPathenv"" +$s + +-- ---------------------------------------- + +typeXPArrowbc=Maybe(LAbc) --- ---------------------------------------- - -typeXPArrowbc=Maybe(LAbc) - -mk::LAbc->XPArrowbc -mk=Just - -unwrap::XPArrowbb->LAbb -unwrap=fromJust.toThis - -(>>>>)::XPArrowbb->XPArrowbb->XPArrowbb -Nothing>>>>a2=a2 -a1>>>>Nothing=a1 -(Justf1)>>>>(Justf2)=return$f1>>>f2 - -(&&&&)::XPArrowbb->XPArrowbb->XPArrowb(b,b) -Nothing&&&&a2=this''&&&&a2 -a1&&&&Nothing=a1&&&&this'' -(Justf1)&&&&(Justf2)=return$f1&&&f2 - -(<+>>)::XPArrowbb->XPArrowbb->XPArrowbb -Nothing<+>>_a2=Nothing -_a1<+>>Nothing=Nothing -(Justf1)<+>>(Justf2)=return$f1<+>f2 - -guards'::XPArrowbb->XPArrowbb->XPArrowbb -Nothing`guards'`a2=a2 -a1`guards'`Nothing=a1`guards'`this'' -(Justf1)`guards'`(Justf2)=return$f1`guards`f2 - -this'::XPArrowbb -this'=Nothing - -this''::XPArrowbb -this''=mkthis +mk::LAbc->XPArrowbc +mk=Just + +unwrap::XPArrowbb->LAbb +unwrap=fromJust.toThis + +(>>>>)::XPArrowbb->XPArrowbb->XPArrowbb +Nothing>>>>a2=a2 +a1>>>>Nothing=a1 +(Justf1)>>>>(Justf2)=return$f1>>>f2 + +(&&&&)::XPArrowbb->XPArrowbb->XPArrowb(b,b) +Nothing&&&&a2=this''&&&&a2 +a1&&&&Nothing=a1&&&&this'' +(Justf1)&&&&(Justf2)=return$f1&&&f2 + +(<+>>)::XPArrowbb->XPArrowbb->XPArrowbb +Nothing<+>>_a2=Nothing +_a1<+>>Nothing=Nothing +(Justf1)<+>>(Justf2)=return$f1<+>f2 + +guards'::XPArrowbb->XPArrowbb->XPArrowbb +Nothing`guards'`a2=a2 +a1`guards'`Nothing=a1`guards'`this'' +(Justf1)`guards'`(Justf2)=return$f1`guards`f2 + +this'::XPArrowbb +this'=Nothing + +this''::XPArrowbb +this''=mkthis + +toThis::XPArrowbb->XPArrowbb +toThisNothing=this'' +toThisa=a -toThis::XPArrowbb->XPArrowbb -toThisNothing=this'' -toThisa=a - -getChildren'::XPArrowXmlTreeXmlTree->XPArrowXmlTreeXmlTree -getChildren'a=mkgetChildren>>>>a - -getAttrl'::XPArrowXmlTreeXmlTree->XPArrowXmlTreeXmlTree -getAttrl'a=mkgetAttrl>>>>a - -multi'::XPArrowXmlTreeXmlTree->XPArrowXmlTreeXmlTree -multi'a=mk$multi(unwrapa) - -deep'::XPArrowXmlTreeXmlTree->XPArrowXmlTreeXmlTree -deep'a=mk$deep(unwrapa) - -xIndex::Int->LA[b]b -xIndexi -|i<=0=none -|otherwise=arrL(take1.drop(i-1)) - -xString::XPArrowXmlTreeXmlTree->LAXmlTreeString -xStringa=unwrapa>>>xshow(deepisText) - -xNumber'::XPArrowXmlTreeXmlTree->LAXmlTreeXPNumber -xNumber'a=xStringa>>>arrtoNumber - --- ------------------------------ - -deadEndStreet::Monadm=>ma -deadEndStreet=fail"XPath expression too complicated for XmlArrows" - -compXPath::MonadPlusm=>Expr->m(LAXmlTreeXmlTree) -compXPathe=do -r<-compXPe -return$unwrapr - -compXP::MonadPlusm=>Expr->m(XPArrowXmlTreeXmlTree) -compXP(PathExprNothing(Just(LocPathAbslp))) -=compLPlpthis' -compXP(FilterExpr(e1:el))=do -r<-compXPe1 -compFPelr -compXP_=deadEndStreet - -compFP::MonadPlusm=>[Expr]->XPArrowXmlTreeXmlTree->m(XPArrowXmlTreeXmlTree) -compFP[]r=returnr -compFP(e1:es)r=do -r1<-compPred[e1]r -compFPesr1 - -compLP::MonadPlusm=>[XStep]->XPArrowXmlTreeXmlTree->m(XPArrowXmlTreeXmlTree) -compLP[]r=returnr -compLP(x:xs)r=do -a1<-compXSxr -as<-compLPxsa1 -returnas - -compXS::MonadPlusm=>XStep->XPArrowXmlTreeXmlTree->m(XPArrowXmlTreeXmlTree) -compXS(StepChildntps)s=do -an<-compNTEnt -compPredps(s>>>>mkgetChildren>>>>an) - -compXS(StepDescendantOrSelfntps)s -=do -an<-compNTEnt -compPredps(s>>>>multi'an) - -compXS(StepDescendantntps)s -=do -an<-compNTEnt -compPredps(s>>>>mkgetChildren>>>>multi'an) - -compXS(StepSelfntps)s +getChildren'::XPArrowXmlTreeXmlTree->XPArrowXmlTreeXmlTree +getChildren'a=mkgetChildren>>>>a + +getAttrl'::XPArrowXmlTreeXmlTree->XPArrowXmlTreeXmlTree +getAttrl'a=mkgetAttrl>>>>a + +multi'::XPArrowXmlTreeXmlTree->XPArrowXmlTreeXmlTree +multi'a=mk$multi(unwrapa) + +deep'::XPArrowXmlTreeXmlTree->XPArrowXmlTreeXmlTree +deep'a=mk$deep(unwrapa) + +xIndex::Int->LA[b]b +xIndexi +|i<=0=none +|otherwise=arrL(take1.drop(i-1)) + +xString::XPArrowXmlTreeXmlTree->LAXmlTreeString +xStringa=unwrapa>>>xshow(deepisText) + +xNumber'::XPArrowXmlTreeXmlTree->LAXmlTreeXPNumber +xNumber'a=xStringa>>>arrtoNumber + +-- ------------------------------ + +deadEndStreet::Monadm=>ma +deadEndStreet=fail"XPath expression too complicated for XmlArrows" + +compXPath::MonadPlusm=>Expr->m(LAXmlTreeXmlTree) +compXPathe=do +r<-compXPe +return$unwrapr + +compXP::MonadPlusm=>Expr->m(XPArrowXmlTreeXmlTree) +compXP(PathExprNothing(Just(LocPathAbslp))) +=compLPlpthis' +compXP(FilterExpr(e1:el))=do +r<-compXPe1 +compFPelr +compXP_=deadEndStreet + +compFP::MonadPlusm=>[Expr]->XPArrowXmlTreeXmlTree->m(XPArrowXmlTreeXmlTree) +compFP[]r=returnr +compFP(e1:es)r=do +r1<-compPred[e1]r +compFPesr1 + +compLP::MonadPlusm=>[XStep]->XPArrowXmlTreeXmlTree->m(XPArrowXmlTreeXmlTree) +compLP[]r=returnr +compLP(x:xs)r=do +a1<-compXSxr +as<-compLPxsa1 +returnas + +compXS::MonadPlusm=>XStep->XPArrowXmlTreeXmlTree->m(XPArrowXmlTreeXmlTree) +compXS(StepChildntps)s=do +an<-compNTEnt +compPredps(s>>>>mkgetChildren>>>>an) + +compXS(StepDescendantOrSelfntps)s +=do +an<-compNTEnt +compPredps(s>>>>multi'an) + +compXS(StepDescendantntps)s +=do +an<-compNTEnt +compPredps(s>>>>mkgetChildren>>>>multi'an) + +compXS(StepSelfntps)s +=do +an<-compNTEnt +compPredps(s>>>>an) +compXS(StepAttributentps)s=do -an<-compNTEnt -compPredps(s>>>>an) -compXS(StepAttributentps)s -=do -an<-compNTAnt -compPredps(s>>>>getAttrl'an) - -compXS__=deadEndStreet +an<-compNTAnt +compPredps(s>>>>getAttrl'an) + +compXS__=deadEndStreet + +compNTE::(Monadm)=>NodeTest->m(XPArrowXmlTreeXmlTree) +compNTE(NameTestqn)=compNameTisElemqn +compNTEnt=compNTnt -compNTE::(Monadm)=>NodeTest->m(XPArrowXmlTreeXmlTree) -compNTE(NameTestqn)=compNameTisElemqn -compNTEnt=compNTnt +compNTA::(Monadm)=>NodeTest->m(XPArrowXmlTreeXmlTree) +compNTA(NameTestqn)=compNameTisAttrqn +compNTAnt=compNTnt -compNTA::(Monadm)=>NodeTest->m(XPArrowXmlTreeXmlTree) -compNTA(NameTestqn)=compNameTisAttrqn -compNTAnt=compNTnt - -compNameT::Monadm=>LAXmlTreeXmlTree->QName->m(XPArrowXmlTreeXmlTree) -compNameTistqn -|null(namespaceUriqn)=return$mk -(ifqualifiedNameqn=="*" -thenist -elseist>>>hasName(qualifiedNameqn) -) -|otherwise=return$mk -(iflocalPartqn=="*" -thenist>>>hasNamespaceUri(namespaceUriqn) -elseist>>>hasQNameqn - -) - -compNT::Monadm=>NodeTest->m(XPArrowXmlTreeXmlTree) -compNT(TypeTestXPNode)=returnthis' -compNT(TypeTestXPCommentNode)=return$mkisCmt -compNT(TypeTestXPPINode)=return$mkisPi -compNT(TypeTestXPTextNode)=return$mkisText - -compNT_=deadEndStreet - -compPred::MonadPlusm=>[Expr]->XPArrowXmlTreeXmlTree->m(XPArrowXmlTreeXmlTree) -compPred[]r=returnr -compPred(e:es)r=do -r1<-compPred1er -compPredesr1 - -compPred1::MonadPlusm=>Expr->XPArrowXmlTreeXmlTree->m(XPArrowXmlTreeXmlTree) -compPred1er=(do -ix<-compIntExpre -return.mk$listA(unwrapr)>>>xIndexix -) -`mplus` -(do -a1<-compRelPathExpre -return$r>>>>(a1`guards'`this') -) -`mplus` -(do -a1<-compGenExpre -return$r>>>>(a1`guards'`this') -) -`mplus` -(do -b1<-compBoolExpre -return$ifb1thenrelsemknone -) - -compRelPathExpr::MonadPlusm=>Expr->m(XPArrowXmlTreeXmlTree) -compRelPathExpr(PathExprNothing(Just(LocPathRellp))) -=compLPlpthis' -compRelPathExpr_=deadEndStreet +compNameT::Monadm=>LAXmlTreeXmlTree->QName->m(XPArrowXmlTreeXmlTree) +compNameTistqn +|null(namespaceUriqn)=return$mk +(ifqualifiedNameqn=="*" +thenist +elseist>>>hasName(qualifiedNameqn) +) +|otherwise=return$mk +(iflocalPartqn=="*" +thenist>>>hasNamespaceUri(namespaceUriqn) +elseist>>>hasQNameqn + +) + +compNT::Monadm=>NodeTest->m(XPArrowXmlTreeXmlTree) +compNT(TypeTestXPNode)=returnthis' +compNT(TypeTestXPCommentNode)=return$mkisCmt +compNT(TypeTestXPPINode)=return$mkisPi +compNT(TypeTestXPTextNode)=return$mkisText + +compNT_=deadEndStreet + +compPred::MonadPlusm=>[Expr]->XPArrowXmlTreeXmlTree->m(XPArrowXmlTreeXmlTree) +compPred[]r=returnr +compPred(e:es)r=do +r1<-compPred1er +compPredesr1 + +compPred1::MonadPlusm=>Expr->XPArrowXmlTreeXmlTree->m(XPArrowXmlTreeXmlTree) +compPred1er=(do +ix<-compIntExpre +return.mk$listA(unwrapr)>>>xIndexix +) +`mplus` +(do +a1<-compRelPathExpre +return$r>>>>(a1`guards'`this') +) +`mplus` +(do +a1<-compGenExpre +return$r>>>>(a1`guards'`this') +) +`mplus` +(do +b1<-compBoolExpre +return$ifb1thenrelsemknone +) + +compRelPathExpr::MonadPlusm=>Expr->m(XPArrowXmlTreeXmlTree) +compRelPathExpr(PathExprNothing(Just(LocPathRellp))) +=compLPlpthis' +compRelPathExpr_=deadEndStreet + +compStringExpr::MonadPlusm=>Expr->mString +compStringExpr(LiteralExprs)=returns +compStringExpr_=deadEndStreet -compStringExpr::MonadPlusm=>Expr->mString -compStringExpr(LiteralExprs)=returns -compStringExpr_=deadEndStreet - -compNumberExpr::MonadPlusm=>Expr->mXPNumber -compNumberExpr(NumberExprn)=returnn -compNumberExpr(FctExpr"number"[f1]) -=(do -b<-compBoolExprf1 -return$ifbthen(Float1)elsePos0 -) -`mplus` -(do -s<-compStringExprf1 -return$toNumbers -) -compNumberExpr_=deadEndStreet - -compIntExpr::MonadPlusm=>Expr->mInt -compIntExpre=(do -(Floatf)<-compNumberExpre -return(roundf) -) -`mplus` -deadEndStreet - - -compBoolExpr::MonadPlusm=>Expr->mBool -compBoolExpr(FctExprf[]) -|f`elem`["true","false"] -=return$f=="true" -compBoolExpr(FctExpr"not"[f1]) -=do -v1<-compBoolExprf1 -return$notv1 -compBoolExpr(LiteralExprs)=return$not(nulls) -compBoolExpr(NumberExprn)=return$nzn -where -nz(Floatf)=f/=0 -nzNegInf=True -nzPosInf=True -nz_=False -compBoolExpr_=deadEndStreet - -compGenExpr::MonadPlusm=>Expr->m(XPArrowXmlTreeXmlTree) -compGenExpr(GenExprop[e1,e2]) -=compStringope1e2-- on arg is a string expr +compNumberExpr::MonadPlusm=>Expr->mXPNumber +compNumberExpr(NumberExprn)=returnn +compNumberExpr(FctExpr"number"[f1]) +=(do +b<-compBoolExprf1 +return$ifbthen(Float1)elsePos0 +) +`mplus` +(do +s<-compStringExprf1 +return$toNumbers +) +compNumberExpr_=deadEndStreet + +compIntExpr::MonadPlusm=>Expr->mInt +compIntExpre=(do +(Floatf)<-compNumberExpre +return(roundf) +) +`mplus` +deadEndStreet + + +compBoolExpr::MonadPlusm=>Expr->mBool +compBoolExpr(FctExprf[]) +|f`elem`["true","false"] +=return$f=="true" +compBoolExpr(FctExpr"not"[f1]) +=do +v1<-compBoolExprf1 +return$notv1 +compBoolExpr(LiteralExprs)=return$not(nulls) +compBoolExpr(NumberExprn)=return$nzn +where +nz(Floatf)=f/=0 +nzNegInf=True +nzPosInf=True +nz_=False +compBoolExpr_=deadEndStreet + +compGenExpr::MonadPlusm=>Expr->m(XPArrowXmlTreeXmlTree) +compGenExpr(GenExprop[e1,e2]) +=compStringope1e2-- on arg is a string expr +`mplus` +compNumberope1e2-- one arg is a number expr +`mplus` +compBoolope1e2-- and/or`mplus` -compNumberope1e2-- one arg is a number expr -`mplus` -compBoolope1e2-- and/or -`mplus` -compPathope1e2-- nodeset equality - -compGenExpr(GenExprop(e1:el)) -|op`elem`[And,Or]=compGenExpr(GenExprop[e1,GenExpropel]) - -compGenExpr_=deadEndStreet - -compString::MonadPlusm=>Op->Expr->Expr->m(XPArrowXmlTreeXmlTree) -compStringope1e2 -|op`elem`[Eq,NEq]=(do -s<-compStringExpre2 -a<-compRelPathExpre1 -return$mkEq'as -) -`mplus` -(do -s<-compStringExpre1 -a<-compRelPathExpre2 -return$mkEq'as -) -where -mkEq'a's'=mk((xStringa' ->>> -isA(ifop==Eq -then(==s') -else(/=s') -) -) -`guards`this-- just for type match -) -compString___=deadEndStreet - -compNumber::MonadPlusm=>Op->Expr->Expr->m(XPArrowXmlTreeXmlTree) -compNumberope1e2 -|op`elem`[Eq,NEq,Less,Greater,LessEq,GreaterEq] -=(do -n<-compNumberExpre2 -a<-compRelPathExpre1 -return$mkEq'an -) -`mplus` -(do -n<-compNumberExpre1 -a<-compRelPathExpre2 -return$mkEq'an -) -where -mkEq'a'n'=mk((xNumber'a' ->>> -isA(flip(caseopof -Eq->(==) -NEq->(/=) -Less->(<) -Greater->(>) -LessEq->(<=) -GreaterEq->(>=) -_->error"compNumber: wrong arg" -)n' -) -) -`guards`this -) -compNumber___=deadEndStreet - -compBool::MonadPlusm=>Op->Expr->Expr->m(XPArrowXmlTreeXmlTree) -compBoolAnde1e2=(do -b<-compBoolExpre1 -ifb -thencompGenExpre2 -elsereturn$mknone -) -`mplus` -(do -b<-compBoolExpre2 -ifb -thencompGenExpre1 -elsereturn$mknone -) -`mplus` -(do -a1<-compGenExpre1 -a2<-compGenExpre2 -return$a1`guards'`a2 -) -compBoolOre1e2=(do -b<-compBoolExpre1 -ifb -thenreturnthis' -elsecompGenExpre2 -) -`mplus` -(do -b<-compBoolExpre2 -ifb -thenreturnthis' -elsecompGenExpre1 -) -`mplus` -(do -a1<-compGenExpre1 -a2<-compGenExpre2 -return$a1<+>>a2 -) -compBool___=deadEndStreet - -compPath::MonadPlusm=>Op->Expr->Expr->m(XPArrowXmlTreeXmlTree) -compPathope1e2 -|op`elem`[Eq,NEq]=(do -a1<-compRelPathExpre2 -a2<-compRelPathExpre1 -return$mk.cmpop$((listA(xStringa1)&&&listA(xStringa2)) ->>> -eqs -) -) -where -eqs=arr2LequalNodeSet -cmpEqa=a`guards`this -cmpNEqa=ifAanonethis -cmp__=error"compPath: wrong agruments" +compPathope1e2-- nodeset equality + +compGenExpr(GenExprop(e1:el)) +|op`elem`[And,Or]=compGenExpr(GenExprop[e1,GenExpropel]) + +compGenExpr_=deadEndStreet + +compString::MonadPlusm=>Op->Expr->Expr->m(XPArrowXmlTreeXmlTree) +compStringope1e2 +|op`elem`[Eq,NEq]=(do +s<-compStringExpre2 +a<-compRelPathExpre1 +return$mkEq'as +) +`mplus` +(do +s<-compStringExpre1 +a<-compRelPathExpre2 +return$mkEq'as +) +where +mkEq'a's'=mk((xStringa' +>>> +isA(ifop==Eq +then(==s') +else(/=s') +) +) +`guards`this-- just for type match +) +compString___=deadEndStreet + +compNumber::MonadPlusm=>Op->Expr->Expr->m(XPArrowXmlTreeXmlTree) +compNumberope1e2 +|op`elem`[Eq,NEq,Less,Greater,LessEq,GreaterEq] +=(do +n<-compNumberExpre2 +a<-compRelPathExpre1 +return$mkEq'an +) +`mplus` +(do +n<-compNumberExpre1 +a<-compRelPathExpre2 +return$mkEq'an +) +where +mkEq'a'n'=mk((xNumber'a' +>>> +isA(flip(caseopof +Eq->(==) +NEq->(/=) +Less->(<) +Greater->(>) +LessEq->(<=) +GreaterEq->(>=) +_->error"compNumber: wrong arg" +)n' +) +) +`guards`this +) +compNumber___=deadEndStreet + +compBool::MonadPlusm=>Op->Expr->Expr->m(XPArrowXmlTreeXmlTree) +compBoolAnde1e2=(do +b<-compBoolExpre1 +ifb +thencompGenExpre2 +elsereturn$mknone +) +`mplus` +(do +b<-compBoolExpre2 +ifb +thencompGenExpre1 +elsereturn$mknone +) +`mplus` +(do +a1<-compGenExpre1 +a2<-compGenExpre2 +return$a1`guards'`a2 +) +compBoolOre1e2=(do +b<-compBoolExpre1 +ifb +thenreturnthis' +elsecompGenExpre2 +) +`mplus` +(do +b<-compBoolExpre2 +ifb +thenreturnthis' +elsecompGenExpre1 +) +`mplus` +(do +a1<-compGenExpre1 +a2<-compGenExpre2 +return$a1<+>>a2 +) +compBool___=deadEndStreet + +compPath::MonadPlusm=>Op->Expr->Expr->m(XPArrowXmlTreeXmlTree) +compPathope1e2 +|op`elem`[Eq,NEq]=(do +a1<-compRelPathExpre2 +a2<-compRelPathExpre1 +return$mk.cmpop$((listA(xStringa1)&&&listA(xStringa2)) +>>> +eqs +) +) +where +eqs=arr2LequalNodeSet +cmpEqa=a`guards`this +cmpNEqa=ifAanonethis +cmp__=error"compPath: wrong agruments" + +compPath___=deadEndStreet + +-- ---------------------------------------- -compPath___=deadEndStreet - --- ---------------------------------------- - -toNumber::String->XPNumber -toNumbers=let(XPVNumberv)=parseNumbersinv - -equalNodeSet::Eqa=>[a]->[a]->[a] -equalNodeSets1s2=[x|x<-s1,y<-s2,x==y] - --- ---------------------------------------- +toNumber::String->XPNumber +toNumbers=let(XPVNumberv)=parseNumbersinv + +equalNodeSet::Eqa=>[a]->[a]->[a] +equalNodeSets1s2=[x|x<-s1,y<-s2,x==y] + +-- ---------------------------------------- diff --git a/doc/hdoc/src/Text-XML-HXT-Arrow-XmlArrow.html b/doc/hdoc/src/Text-XML-HXT-Arrow-XmlArrow.html --- a/doc/hdoc/src/Text-XML-HXT-Arrow-XmlArrow.html +++ b/doc/hdoc/src/Text-XML-HXT-Arrow-XmlArrow.html @@ -10,44 +10,44 @@ {- | Module : Text.XML.HXT.Arrow.XmlArrow - Copyright : Copyright (C) 2005 Uwe Schmidt + Copyright : Copyright (C) 2005-9 Uwe Schmidt License : MIT Maintainer : Uwe Schmidt (uwe@fh-wedel.de) Stability : experimental Portability: portable - Version : $Id: XmlArrow.hs,v 1.34 2006/11/02 16:43:39 hxml Exp $ - - Basic arrows for processing XML documents - - All arrows use IO and a global state for options, errorhandling, ... - --} - --- ------------------------------------------------------------ - -moduleText.XML.HXT.Arrow.XmlArrow -(moduleText.XML.HXT.Arrow.XmlArrow) -where - -importData.Maybe - -importControl.Arrow-- classes -importControl.Arrow.ArrowList -importControl.Arrow.ArrowIf -importControl.Arrow.ArrowTree - -importControl.Arrow.ListArrow-- arrow types -importControl.Arrow.StateListArrow -importControl.Arrow.IOListArrow -importControl.Arrow.IOStateListArrow - -importText.XML.HXT.DOM.Interface -importText.XML.HXT.DOM.Unicode -(isXmlSpaceChar -) -importqualifiedText.XML.HXT.DOM.XmlNodeasXN -importqualifiedText.XML.HXT.DOM.ShowXmlasXS + + Basic arrows for processing XML documents + + All arrows use IO and a global state for options, errorhandling, ... + +-} + +-- ------------------------------------------------------------ + +moduleText.XML.HXT.Arrow.XmlArrow +(moduleText.XML.HXT.Arrow.XmlArrow) +where + +importControl.Arrow-- classes +importControl.Arrow.ArrowList +importControl.Arrow.ArrowIf +importControl.Arrow.ArrowTree + +importControl.Arrow.ListArrow-- arrow types +importControl.Arrow.StateListArrow +importControl.Arrow.IOListArrow +importControl.Arrow.IOStateListArrow + +importData.Maybe + +importText.XML.HXT.DOM.Interface +importText.XML.HXT.DOM.Unicode(isXmlSpaceChar +) +importqualifiedText.XML.HXT.DOM.XmlNodeasXN +importqualifiedText.XML.HXT.DOM.ShowXmlasXS + +-- ------------------------------------------------------------{- | Arrows for processing 'Text.XML.HXT.DOM.TypeDefs.XmlTree's @@ -245,21 +245,21 @@ mkqelem :: QName -> [a n XmlTree] -> [a n XmlTree] -> a n XmlTree mkqelem n afs cfs = mkElement n (catA afs) (catA cfs) - -- | convenient arrow for element construction with strings instead of qualified names as tagnames, see also 'mkElement' and 'mkelem' + -- | convenient arrow for element construction with strings instead of qualified names as element names, see also 'mkElement' and 'mkelem' mkelem :: String -> [a n XmlTree] -> [a n XmlTree] -> a n XmlTree - mkelem n afs cfs = mkElement (mkSNsName n) (catA afs) (catA cfs) + mkelem n afs cfs = mkElement (mkName n) (catA afs) (catA cfs) -- | convenient arrow for element constrution with attributes but without content, simple variant of 'mkelem' and 'mkElement' aelem :: String -> [a n XmlTree] -> a n XmlTree - aelem n afs = catA afs >. \ al -> XN.mkElement (mkSNsName n) al [] + aelem n afs = catA afs >. \ al -> XN.mkElement (mkName n) al [] -- | convenient arrow for simple element constrution without attributes, simple variant of 'mkelem' and 'mkElement' selem :: String -> [a n XmlTree] -> a n XmlTree - selem n cfs = catA cfs >. XN.mkElement (mkSNsName n) [] + selem n cfs = catA cfs >. XN.mkElement (mkName n) [] -- | convenient arrow for constrution of empty elements without attributes, simple variant of 'mkelem' and 'mkElement' eelem :: String -> a n XmlTree - eelem n = constA (XN.mkElement (mkSNsName n) [] []) + eelem n = constA (XN.mkElement (mkName n) [] []) -- | construction of an element node with name \"\/\" for document roots root :: [a n XmlTree] -> [a n XmlTree] -> a n XmlTree @@ -271,7 +271,7 @@ -- | convenient arrow for attribute constrution, simple variant of 'mkAttr' attr :: String -> a n XmlTree -> a n XmlTree - attr = mkAttr . mkSNsName + attr = mkAttr . mkName -- constant arrows (ignoring the input) for tree construction ------------------------------ @@ -305,7 +305,7 @@ -- | constant arrow for simple processing instructions, see 'mkPi' spi :: String -> String -> a n XmlTree - spi piName piCont = constA (XN.mkPi (mkSNsName piName) [XN.mkText piCont]) + spi piName piCont = constA (XN.mkPi (mkName piName) [XN.mkText piCont]) -- | constant arrow for attribute nodes, attribute name is a qualified name and value is a text, -- | see also 'mkAttr', 'qattr', 'attr' @@ -315,7 +315,7 @@ -- | constant arrow for attribute nodes, attribute name and value are -- | given by parameters, see 'mkAttr' sattr :: String -> String -> a n XmlTree - sattr an av = constA (XN.mkAttr (mkSNsName an) [XN.mkText av]) + sattr an av = constA (XN.mkAttr (mkName an) [XN.mkText av]) -- selector arrows -------------------------------------------------- diff --git a/doc/hdoc/src/Text-XML-HXT-Arrow-XmlIOStateArrow.html b/doc/hdoc/src/Text-XML-HXT-Arrow-XmlIOStateArrow.html --- a/doc/hdoc/src/Text-XML-HXT-Arrow-XmlIOStateArrow.html +++ b/doc/hdoc/src/Text-XML-HXT-Arrow-XmlIOStateArrow.html @@ -109,846 +109,855 @@ withTraceLevel, trace, traceMsg, - traceString, - traceSource, - traceTree, - traceDoc, - traceState, - - -- * URI Manipulation - expandURIString, - expandURI, - mkAbsURI, - - getFragmentFromURI, - getPathFromURI, - getPortFromURI, - getQueryFromURI, - getRegNameFromURI, - getSchemeFromURI, - getUserInfoFromURI, - - -- * Mime Type Handling - setMimeTypeTable, - setMimeTypeTableFromFile - ) -where - -import Control.Arrow -- arrow classes -import Control.Arrow.ArrowList -import Control.Arrow.ArrowIf -import Control.Arrow.ArrowTree -import Control.Arrow.ArrowIO -import Control.Arrow.IOStateListArrow - -import Control.Parallel.Strategies - -import Text.XML.HXT.DOM.Interface -import Text.XML.HXT.Arrow.XmlArrow - -import Text.XML.HXT.Arrow.Edit - ( addHeadlineToXmlDoc - , treeRepOfXmlDoc - , indentDoc - ) - -import Data.Maybe - -import Network.URI - ( URI - , escapeURIChar - , isUnescapedInURI - , nonStrictRelativeTo - , parseURIReference - , uriAuthority - , uriFragment - , uriPath - , uriPort - , uriQuery - , uriRegName - , uriScheme - , uriUserInfo - ) - -import System.IO - ( hPutStrLn - , hFlush - , stderr - ) - -import System.Directory - ( getCurrentDirectory - ) - --- ------------------------------------------------------------ -{- $datatypes -} - - --- | --- predefined system state data type with all components for the --- system functions, like trace, error handling, ... - -data XIOSysState = XIOSys { xio_trace :: ! Int - , xio_errorStatus :: ! Int - , xio_errorModule :: ! String - , xio_errorMsgHandler :: String -> IO () - , xio_errorMsgCollect :: ! Bool - , xio_errorMsgList :: ! XmlTrees - , xio_baseURI :: ! String - , xio_defaultBaseURI :: ! String - , xio_attrList :: ! (AssocList String XmlTrees) - , xio_mimeTypes :: MimeTypeTable - } - -instance NFData XIOSysState where - rnf (XIOSys tr es em _emh emc eml bu du al _mt) - = rnf tr `seq` rnf es `seq` rnf em `seq` rnf emc `seq` rnf eml `seq` rnf bu `seq` rnf du `seq` rnf al - --- | --- state datatype consists of a system state and a user state --- the user state is not fixed - -data XIOState us = XIOState { xio_sysState :: ! XIOSysState - , xio_userState :: ! us - } - -instance (NFData us) => NFData (XIOState us) where - rnf (XIOState sys usr) = rnf sys `seq` rnf usr - --- | --- The arrow type for stateful arrows - -type IOStateArrow s b c = IOSLA (XIOState s) b c - --- | --- The arrow for stateful arrows with no user defined state - -type IOSArrow b c = IOStateArrow () b c - --- ------------------------------------------------------------ - - --- | the default global state, used as initial state when running an 'IOSArrow' with 'runIOSLA' or --- 'runX' - -initialState :: us -> XIOState us -initialState s = XIOState { xio_sysState = initialSysState - , xio_userState = s - } - -initialSysState :: XIOSysState -initialSysState = XIOSys { xio_trace = 0 - , xio_errorStatus = c_ok - , xio_errorModule = "" - , xio_errorMsgHandler = hPutStrLn stderr - , xio_errorMsgCollect = False - , xio_errorMsgList = [] - , xio_baseURI = "" - , xio_defaultBaseURI = "" - , xio_attrList = [] - , xio_mimeTypes = defaultMimeTypeTable - } - --- ------------------------------------------------------------ - --- | --- apply an 'IOSArrow' to an empty root node with 'initialState' () as initial state --- --- the main entry point for running a state arrow with IO --- --- when running @ runX f@ an empty XML root node is applied to @f@. --- usually @f@ will start with a constant arrow (ignoring the input), e.g. a 'Text.XML.HXT.Arrow.ReadDocument.readDocument' arrow. --- --- for usage see examples with 'Text.XML.HXT.Arrow.WriteDocument.writeDocument' --- --- if input has to be feed into the arrow use 'Control.Arrow.IOStateListArrow.runIOSLA' like in @ runIOSLA f emptyX inputDoc @ - -runX :: IOSArrow XmlTree c -> IO [c] -runX = runXIOState (initialState ()) - -runXIOState :: XIOState s -> IOStateArrow s XmlTree c -> IO [c] -runXIOState s0 f - = do - (_finalState, res) <- runIOSLA (emptyRoot >>> f) s0 undefined - return res - where - emptyRoot = root [] [] - --- ------------------------------------------------------------ - -{- user state -} - --- | read the user defined part of the state - -getUserState :: IOStateArrow s b s -getUserState - = IOSLA $ \ s _ -> - return (s, [xio_userState s]) - --- | change the user defined part of the state - -changeUserState :: (b -> s -> s) -> IOStateArrow s b b -changeUserState cf - = IOSLA $ \ s v -> - let s' = s { xio_userState = cf v (xio_userState s) } - in return (s', [v]) - --- | set the user defined part of the state - -setUserState :: IOStateArrow s s s -setUserState - = changeUserState const - --- | extend user state --- --- Run an arrow with an extended user state component, The old component --- is stored together with a new one in a pair, the arrow is executed with this --- extended state, and the augmented state component is removed form the state --- when the arrow has finished its execution - -withExtendedUserState :: s1 -> IOStateArrow (s1, s0) b c -> IOStateArrow s0 b c -withExtendedUserState initS1 f - = IOSLA $ \ s0 x -> - do - ~(finalS, res) <- runIOSLA f ( XIOState { xio_sysState = xio_sysState s0 - , xio_userState = (initS1, xio_userState s0) - } - ) x - return ( XIOState { xio_sysState = xio_sysState finalS - , xio_userState = snd (xio_userState finalS) - } - , res - ) - --- | change the type of user state --- --- This conversion is useful, when running a state arrow with another --- structure of the user state, e.g. with () when executing some IO arrows - -withOtherUserState :: s1 -> IOStateArrow s1 b c -> IOStateArrow s0 b c -withOtherUserState s1 f - = IOSLA $ \ s x -> - do - (s', res) <- runIOSLA f ( XIOState { xio_sysState = xio_sysState s - , xio_userState = s1 - } - ) x - return ( XIOState { xio_sysState = xio_sysState s' - , xio_userState = xio_userState s - } - , res - ) - --- ------------------------------------------------------------ - -{- $system state params -} - -getSysParam :: (XIOSysState -> c) -> IOStateArrow s b c -getSysParam f - = IOSLA $ \ s _x -> - return (s, (:[]) . f . xio_sysState $ s) - -changeSysParam :: (b -> XIOSysState -> XIOSysState) -> IOStateArrow s b b -changeSysParam cf - = ( IOSLA $ \ s v -> - let s' = changeSysState (cf v) s - in return (s', [v]) - ) - where - changeSysState css s = s { xio_sysState = css (xio_sysState s) } - --- | store a single XML tree in global state under a given attribute name - -setParam :: String -> IOStateArrow s XmlTree XmlTree -setParam n - = (:[]) ^>> setParamList n - --- | store a list of XML trees in global system state under a given attribute name - -setParamList :: String -> IOStateArrow s XmlTrees XmlTree -setParamList n - = changeSysParam addE - >>> - arrL id - where - addE x s = s { xio_attrList = addEntry n x (xio_attrList s) } - --- | remove an entry in global state, arrow input remains unchanged - -unsetParam :: String -> IOStateArrow s b b -unsetParam n - = changeSysParam delE - where - delE _ s = s { xio_attrList = delEntry n (xio_attrList s) } - --- | read an attribute value from global state - -getParam :: String -> IOStateArrow s b XmlTree -getParam n - = getAllParams - >>> - arrL (lookup1 n) - --- | read all attributes from global state - -getAllParams :: IOStateArrow s b (AssocList String XmlTrees) -getAllParams - = getSysParam xio_attrList - --- | read all attributes from global state --- and convert the values to strings - -getAllParamsString :: IOStateArrow s b (AssocList String String) -getAllParamsString - = getAllParams - >>> - listA ( unlistA - >>> - second (xshow unlistA) - ) - -setParamString :: String -> String -> IOStateArrow s b b -setParamString n v - = perform ( txt v - >>> - setParam n - ) - --- | read a string value from global state, --- if parameter not set \"\" is returned - -getParamString :: String -> IOStateArrow s b String -getParamString n - = xshow (getParam n) - --- | store an int value in global state - -setParamInt :: String -> Int -> IOStateArrow s b b -setParamInt n v - = setParamString n (show v) - --- | read an int value from global state --- --- > getParamInt 0 myIntAttr - -getParamInt :: Int -> String -> IOStateArrow s b Int -getParamInt def n - = getParamString n - >>^ - (\ x -> if null x then def else read x) - --- ------------------------------------------------------------ - --- | reset global error variable - -changeErrorStatus :: (Int -> Int -> Int) -> IOStateArrow s Int Int -changeErrorStatus f - = changeSysParam (\ l s -> s { xio_errorStatus = f l (xio_errorStatus s) }) - -clearErrStatus :: IOStateArrow s b b -clearErrStatus - = perform (constA 0 >>> changeErrorStatus min) - --- | set global error variable - -setErrStatus :: IOStateArrow s Int Int -setErrStatus - = changeErrorStatus max - --- | read current global error status - -getErrStatus :: IOStateArrow s XmlTree Int -getErrStatus - = getSysParam xio_errorStatus - --- | raise the global error status level to that of the input tree - -setErrMsgStatus :: IOStateArrow s XmlTree XmlTree -setErrMsgStatus - = perform ( getErrorLevel - >>> - setErrStatus - ) - --- | set the error message handler and the flag for collecting the errors - -setErrorMsgHandler :: Bool -> (String -> IO ()) -> IOStateArrow s b b -setErrorMsgHandler c f - = changeSysParam cf - where - cf _ s = s { xio_errorMsgHandler = f - , xio_errorMsgCollect = c } - --- | error message handler for output to stderr - -sysErrorMsg :: IOStateArrow s XmlTree XmlTree -sysErrorMsg - = perform ( getErrorLevel &&& getErrorMsg - >>> - arr formatErrorMsg - >>> - ( IOSLA $ \ s e -> - do - (xio_errorMsgHandler . xio_sysState $ s) e - return (s, undefined) - ) - ) - where - formatErrorMsg (level, msg) = "\n" ++ errClass level ++ ": " ++ msg - errClass l - = fromMaybe "fatal error" . lookup l $ msgList - where - msgList = [ (c_ok, "no error") - , (c_warn, "warning") - , (c_err, "error") - , (c_fatal, "fatal error") - ] - - --- | the default error message handler: error output to stderr - -errorMsgStderr :: IOStateArrow s b b -errorMsgStderr = setErrorMsgHandler False (hPutStrLn stderr) - --- | error message handler for collecting errors - -errorMsgCollect :: IOStateArrow s b b -errorMsgCollect = setErrorMsgHandler True (const $ return ()) - --- | error message handler for output to stderr and collecting - -errorMsgStderrAndCollect :: IOStateArrow s b b -errorMsgStderrAndCollect = setErrorMsgHandler True (hPutStrLn stderr) - --- | error message handler for ignoring errors - -errorMsgIgnore :: IOStateArrow s b b -errorMsgIgnore = setErrorMsgHandler False (const $ return ()) - --- | --- if error messages are collected by the error handler for --- processing these messages by the calling application, --- this arrow reads the stored messages and clears the error message store - -getErrorMessages :: IOStateArrow s b XmlTree -getErrorMessages - = getSysParam (reverse . xio_errorMsgList) -- reverse the list of errors - >>> - clearErrorMsgList -- clear the error list in the system state - >>> - arrL id - -clearErrorMsgList :: IOStateArrow s b b -clearErrorMsgList - = changeSysParam (\ _ s -> s { xio_errorMsgList = [] } ) - -addToErrorMsgList :: IOStateArrow s XmlTree XmlTree -addToErrorMsgList - = changeSysParam cf - where - cf t s = if xio_errorMsgCollect s - then s { xio_errorMsgList = t : xio_errorMsgList s } - else s - --- ------------------------------------------------------------ - --- | --- filter error messages from input trees and issue errors - -filterErrorMsg :: IOStateArrow s XmlTree XmlTree -filterErrorMsg - = ( setErrMsgStatus - >>> - sysErrorMsg - >>> - addToErrorMsgList - >>> - none - ) - `when` - isError - --- | generate a warnig message - -issueWarn :: String -> IOStateArrow s b b -issueWarn msg = perform (warn msg >>> filterErrorMsg) - --- | generate an error message -issueErr :: String -> IOStateArrow s b b -issueErr msg = perform (err msg >>> filterErrorMsg) - --- | generate a fatal error message, e.g. document not found - -issueFatal :: String -> IOStateArrow s b b -issueFatal msg = perform (fatal msg >>> filterErrorMsg) - --- | --- add the error level and the module where the error occured --- to the attributes of a document root node and remove the children when level is greater or equal to 'c_err'. --- called by 'setDocumentStatusFromSystemState' when the system state indicates an error - -setDocumentStatus :: Int -> String -> IOStateArrow s XmlTree XmlTree -setDocumentStatus level msg - = ( addAttrl ( sattr a_status (show level) - <+> - sattr a_module msg - ) - >>> - ( if level >= c_err - then setChildren [] - else this - ) - ) - `when` - isRoot - --- | --- check whether the error level attribute in the system state --- is set to error, in this case the children of the document root are --- removed and the module name where the error occured and the error level are added as attributes with 'setDocumentStatus' --- else nothing is changed - -setDocumentStatusFromSystemState :: String -> IOStateArrow s XmlTree XmlTree -setDocumentStatusFromSystemState msg - = setStatus $< getErrStatus - where - setStatus level - | level <= c_warn = this - | otherwise = setDocumentStatus level msg - - --- | --- check whether tree is a document root and the status attribute has a value less than 'c_err' - -documentStatusOk :: ArrowXml a => a XmlTree XmlTree -documentStatusOk - = isRoot - >>> - ( (getAttrValue a_status - >>> - isA (\ v -> null v || ((read v)::Int) <= c_warn) - ) - `guards` - this - ) - --- ------------------------------------------------------------ - --- | set the base URI of a document, used e.g. for reading includes, e.g. external entities, --- the input must be an absolute URI - -setBaseURI :: IOStateArrow s String String -setBaseURI - = changeSysParam (\ b s -> s { xio_baseURI = b } ) - >>> - traceString 2 (("setBaseURI: new base URI is " ++) . show) - --- | read the base URI from the globale state - -getBaseURI :: IOStateArrow s b String -getBaseURI - = getSysParam xio_baseURI - >>> - ( ( getDefaultBaseURI - >>> - setBaseURI - >>> - getBaseURI - ) - `when` - isA null -- set and get it, if not yet done - ) - --- | change the base URI with a possibly relative URI, can be used for --- evaluating the xml:base attribute. Returns the new absolute base URI. --- Fails, if input is not parsable with parseURIReference --- --- see also: 'setBaseURI', 'mkAbsURI' - -changeBaseURI :: IOStateArrow s String String -changeBaseURI - = mkAbsURI - >>> - setBaseURI - --- | set the default base URI, if parameter is null, the system base (@ file:\/\/\/\<cwd\>\/ @) is used, --- else the parameter, must be called before any document is read - -setDefaultBaseURI :: String -> IOStateArrow s b String -setDefaultBaseURI base - = ( if null base - then arrIO getDir - else constA base - ) - >>> - changeSysParam (\ b s -> s { xio_defaultBaseURI = b } ) - >>> - traceString 2 (("setDefaultBaseURI: new default base URI is " ++) . show) - where - getDir _ = do - cwd <- getCurrentDirectory - return ("file://" ++ normalize cwd ++ "/") - - -- under Windows getCurrentDirectory returns something like: "c:\path\to\file" - -- backslaches are not allowed in URIs and paths must start with a / - -- so this is transformed into "/c:/path/to/file" - - normalize wd'@(d : ':' : _) - | d `elem` ['A'..'Z'] || d `elem` ['a'..'z'] - = '/' : concatMap win32ToUriChar wd' - normalize wd' - = concatMap escapeNonUriChar wd' - - win32ToUriChar '\\' = "/" - win32ToUriChar c = escapeNonUriChar c - - escapeNonUriChar c = escapeURIChar isUnescapedInURI c -- from Network.URI - - --- | get the default base URI - -getDefaultBaseURI :: IOStateArrow s b String -getDefaultBaseURI - = getSysParam xio_defaultBaseURI -- read default uri in system state - >>> - ( setDefaultBaseURI "" -- set the default uri in system state - >>> - getDefaultBaseURI ) `when` isA null -- when uri not yet set - --- ------------------------------------------------------------ - --- | remember base uri, run an arrow and restore the base URI, used with external entity substitution - -runInLocalURIContext :: IOStateArrow s b c -> IOStateArrow s b c -runInLocalURIContext f - = ( getBaseURI &&& this ) - >>> - ( this *** listA f ) - >>> - ( setBaseURI *** this ) - >>> - arrL snd - --- ------------------------------------------------------------ - --- | set the global trace level - -setTraceLevel :: Int -> IOStateArrow s b b -setTraceLevel l - = changeSysParam (\ _ s -> s { xio_trace = l } ) - --- | read the global trace level - -getTraceLevel :: IOStateArrow s b Int -getTraceLevel - = getSysParam xio_trace - --- | run an arrow with a given trace level, the old trace level is restored after the arrow execution - -withTraceLevel :: Int -> IOStateArrow s b c -> IOStateArrow s b c -withTraceLevel level f - = ( getTraceLevel &&& this ) - >>> - ( setTraceLevel level *** listA f ) - >>> - ( restoreTraceLevel *** this ) - >>> - arrL snd - where - restoreTraceLevel :: IOStateArrow s Int Int - restoreTraceLevel - = setTraceLevel $< this - --- | apply a trace arrow and issue message to stderr - -trace :: Int -> IOStateArrow s b String -> IOStateArrow s b b -trace level trc - = perform ( trc - >>> - arrIO (\ s -> ( do - hPutStrLn stderr s - hFlush stderr - ) - ) - ) - `when` ( getTraceLevel - >>> - isA (>= level) - ) - --- | issue a string message as trace -traceMsg :: Int -> String -> IOStateArrow s b b -traceMsg level msg - = perform ( trace level $ - constA ('-' : "- (" ++ show level ++ ") " ++ msg) - ) - --- | issue the string input of an arrow -traceString :: Int -> (String -> String) -> IOStateArrow s String String -traceString level f - = perform (applyA (arr f >>> arr (traceMsg level))) - --- | issue the source representation of a document if trace level >= 3 --- --- for better readability the source is formated with indentDoc - -traceSource :: IOStateArrow s XmlTree XmlTree -traceSource - = trace 3 $ - xshow - ( choiceA [ isRoot :-> ( indentDoc - >>> - getChildren - ) - , isElem :-> ( root [] [this] - >>> indentDoc - >>> getChildren - >>> isElem - ) - , this :-> this - ] - ) - --- | issue the tree representation of a document if trace level >= 4 -traceTree :: IOStateArrow s XmlTree XmlTree -traceTree - = trace 4 $ - xshow ( treeRepOfXmlDoc - >>> - addHeadlineToXmlDoc - >>> - getChildren - ) - --- | trace a main computation step --- issue a message when trace level >= 1, issue document source if level >= 3, issue tree when level is >= 4 - -traceDoc :: String -> IOStateArrow s XmlTree XmlTree -traceDoc msg - = traceMsg 1 msg - >>> - traceSource - >>> - traceTree - --- | trace the global state - -traceState :: IOStateArrow s b b -traceState - = perform ( xshow ( (getAllParams >>. concat) - >>> - applyA (arr formatParam) - ) - >>> - traceString 2 ("global state:\n" ++) - ) - where - -- formatParam :: (String, XmlTrees) -> IOStateArrow s b1 XmlTree - formatParam (n, v) - = mkelem "param" [sattr "name" n] [arrL (const v)] <+> txt "\n" - --- ---------------------------------------------------------- - --- | compute the absolut URI for a given URI and a base URI - -expandURIString :: String -> String -> Maybe String -expandURIString uri base - = do - base' <- parseURIReference base - uri' <- parseURIReference uri - abs' <- nonStrictRelativeTo uri' base' - return $ show abs' - --- | arrow variant of 'expandURIString', fails if 'expandURIString' returns Nothing - -expandURI :: ArrowXml a => a (String, String) String -expandURI - = arrL (maybeToList . uncurry expandURIString) - --- | arrow for expanding an input URI into an absolute URI using global base URI, fails if input is not a legal URI - -mkAbsURI :: IOStateArrow s String String -mkAbsURI - = ( this &&& getBaseURI ) >>> expandURI - --- | arrow for selecting the scheme (protocol) of the URI, fails if input is not a legal URI. --- --- See Network.URI for URI components - -getSchemeFromURI :: ArrowList a => a String String -getSchemeFromURI = getPartFromURI scheme - where - scheme = init . uriScheme - --- | arrow for selecting the registered name (host) of the URI, fails if input is not a legal URI - -getRegNameFromURI :: ArrowList a => a String String -getRegNameFromURI = getPartFromURI host - where - host = maybe "" uriRegName . uriAuthority - --- | arrow for selecting the port number of the URI without leading \':\', fails if input is not a legal URI - -getPortFromURI :: ArrowList a => a String String -getPortFromURI = getPartFromURI port - where - port = dropWhile (==':') . maybe "" uriPort . uriAuthority - --- | arrow for selecting the user info of the URI without trailing \'\@\', fails if input is not a legal URI - -getUserInfoFromURI :: ArrowList a => a String String -getUserInfoFromURI = getPartFromURI ui - where - ui = reverse . dropWhile (=='@') . reverse . maybe "" uriUserInfo . uriAuthority - --- | arrow for computing the path component of an URI, fails if input is not a legal URI - -getPathFromURI :: ArrowList a => a String String -getPathFromURI = getPartFromURI uriPath - --- | arrow for computing the query component of an URI, fails if input is not a legal URI - -getQueryFromURI :: ArrowList a => a String String -getQueryFromURI = getPartFromURI uriQuery - --- | arrow for computing the fragment component of an URI, fails if input is not a legal URI - -getFragmentFromURI :: ArrowList a => a String String -getFragmentFromURI = getPartFromURI uriFragment - --- | arrow for computing the path component of an URI, fails if input is not a legal URI - -getPartFromURI :: ArrowList a => (URI -> String) -> a String String -getPartFromURI sel - = arrL (maybeToList . getPart) - where - getPart s = do - uri <- parseURIReference s - return (sel uri) - --- ------------------------------------------------------------ - --- | set the table mapping of file extensions to mime types in the system state --- --- Default table is defined in 'Text.XML.HXT.DOM.MimeTypeDefaults'. --- This table is used when reading loacl files, (file: protocol) to determine the mime type - -setMimeTypeTable :: MimeTypeTable -> IOStateArrow s b b -setMimeTypeTable mtt - = changeSysParam (\ _ s -> s {xio_mimeTypes = mtt}) - --- | set the table mapping of file extensions to mime types by an external config file --- --- The config file must follow the conventions of /etc/mime.types on a debian linux system, --- that means all empty lines and all lines starting with a # are ignored. The other lines --- must consist of a mime type followed by a possible empty list of extensions. --- The list of extenstions and mime types overwrites the default list in the system state --- of the IOStateArrow - -setMimeTypeTableFromFile :: FilePath -> IOStateArrow s b b -setMimeTypeTableFromFile file - = setMimeTypeTable $< arrIO0 ( readMimeTypeTable file) - --- ------------------------------------------------------------ + traceValue, + traceString, + traceSource, + traceTree, + traceDoc, + traceState, + + -- * URI Manipulation + expandURIString, + expandURI, + mkAbsURI, + + getFragmentFromURI, + getPathFromURI, + getPortFromURI, + getQueryFromURI, + getRegNameFromURI, + getSchemeFromURI, + getUserInfoFromURI, + + -- * Mime Type Handling + setMimeTypeTable, + setMimeTypeTableFromFile + ) +where + +import Control.Arrow -- arrow classes +import Control.Arrow.ArrowList +import Control.Arrow.ArrowIf +import Control.Arrow.ArrowTree +import Control.Arrow.ArrowIO +import Control.Arrow.IOStateListArrow + +import Control.Parallel.Strategies + +import Text.XML.HXT.DOM.Interface +import Text.XML.HXT.Arrow.XmlArrow + +import Text.XML.HXT.Arrow.Edit + ( addHeadlineToXmlDoc + , treeRepOfXmlDoc + , indentDoc + ) + +import Data.Maybe + +import Network.URI + ( URI + , escapeURIChar + , isUnescapedInURI + , nonStrictRelativeTo + , parseURIReference + , uriAuthority + , uriFragment + , uriPath + , uriPort + , uriQuery + , uriRegName + , uriScheme + , uriUserInfo + ) + +import System.IO + ( hPutStrLn + , hFlush + , stderr + ) + +import System.Directory + ( getCurrentDirectory + ) + +-- ------------------------------------------------------------ +{- $datatypes -} + + +-- | +-- predefined system state data type with all components for the +-- system functions, like trace, error handling, ... + +data XIOSysState = XIOSys { xio_trace :: ! Int + , xio_errorStatus :: ! Int + , xio_errorModule :: ! String + , xio_errorMsgHandler :: String -> IO () + , xio_errorMsgCollect :: ! Bool + , xio_errorMsgList :: ! XmlTrees + , xio_baseURI :: ! String + , xio_defaultBaseURI :: ! String + , xio_attrList :: ! (AssocList String XmlTrees) + , xio_mimeTypes :: MimeTypeTable + } + +instance NFData XIOSysState where + rnf (XIOSys tr es em _emh emc eml bu du al _mt) + = rnf tr `seq` rnf es `seq` rnf em `seq` rnf emc `seq` rnf eml `seq` rnf bu `seq` rnf du `seq` rnf al + +-- | +-- state datatype consists of a system state and a user state +-- the user state is not fixed + +data XIOState us = XIOState { xio_sysState :: ! XIOSysState + , xio_userState :: ! us + } + +instance (NFData us) => NFData (XIOState us) where + rnf (XIOState sys usr) = rnf sys `seq` rnf usr + +-- | +-- The arrow type for stateful arrows + +type IOStateArrow s b c = IOSLA (XIOState s) b c + +-- | +-- The arrow for stateful arrows with no user defined state + +type IOSArrow b c = IOStateArrow () b c + +-- ------------------------------------------------------------ + + +-- | the default global state, used as initial state when running an 'IOSArrow' with 'runIOSLA' or +-- 'runX' + +initialState :: us -> XIOState us +initialState s = XIOState { xio_sysState = initialSysState + , xio_userState = s + } + +initialSysState :: XIOSysState +initialSysState = XIOSys { xio_trace = 0 + , xio_errorStatus = c_ok + , xio_errorModule = "" + , xio_errorMsgHandler = hPutStrLn stderr + , xio_errorMsgCollect = False + , xio_errorMsgList = [] + , xio_baseURI = "" + , xio_defaultBaseURI = "" + , xio_attrList = [] + , xio_mimeTypes = defaultMimeTypeTable + } + +-- ------------------------------------------------------------ + +-- | +-- apply an 'IOSArrow' to an empty root node with 'initialState' () as initial state +-- +-- the main entry point for running a state arrow with IO +-- +-- when running @ runX f@ an empty XML root node is applied to @f@. +-- usually @f@ will start with a constant arrow (ignoring the input), e.g. a 'Text.XML.HXT.Arrow.ReadDocument.readDocument' arrow. +-- +-- for usage see examples with 'Text.XML.HXT.Arrow.WriteDocument.writeDocument' +-- +-- if input has to be feed into the arrow use 'Control.Arrow.IOStateListArrow.runIOSLA' like in @ runIOSLA f emptyX inputDoc @ + +runX :: IOSArrow XmlTree c -> IO [c] +runX = runXIOState (initialState ()) + +runXIOState :: XIOState s -> IOStateArrow s XmlTree c -> IO [c] +runXIOState s0 f + = do + (_finalState, res) <- runIOSLA (emptyRoot >>> f) s0 undefined + return res + where + emptyRoot = root [] [] + +-- ------------------------------------------------------------ + +{- user state -} + +-- | read the user defined part of the state + +getUserState :: IOStateArrow s b s +getUserState + = IOSLA $ \ s _ -> + return (s, [xio_userState s]) + +-- | change the user defined part of the state + +changeUserState :: (b -> s -> s) -> IOStateArrow s b b +changeUserState cf + = IOSLA $ \ s v -> + let s' = s { xio_userState = cf v (xio_userState s) } + in return (s', [v]) + +-- | set the user defined part of the state + +setUserState :: IOStateArrow s s s +setUserState + = changeUserState const + +-- | extend user state +-- +-- Run an arrow with an extended user state component, The old component +-- is stored together with a new one in a pair, the arrow is executed with this +-- extended state, and the augmented state component is removed form the state +-- when the arrow has finished its execution + +withExtendedUserState :: s1 -> IOStateArrow (s1, s0) b c -> IOStateArrow s0 b c +withExtendedUserState initS1 f + = IOSLA $ \ s0 x -> + do + ~(finalS, res) <- runIOSLA f ( XIOState { xio_sysState = xio_sysState s0 + , xio_userState = (initS1, xio_userState s0) + } + ) x + return ( XIOState { xio_sysState = xio_sysState finalS + , xio_userState = snd (xio_userState finalS) + } + , res + ) + +-- | change the type of user state +-- +-- This conversion is useful, when running a state arrow with another +-- structure of the user state, e.g. with () when executing some IO arrows + +withOtherUserState :: s1 -> IOStateArrow s1 b c -> IOStateArrow s0 b c +withOtherUserState s1 f + = IOSLA $ \ s x -> + do + (s', res) <- runIOSLA f ( XIOState { xio_sysState = xio_sysState s + , xio_userState = s1 + } + ) x + return ( XIOState { xio_sysState = xio_sysState s' + , xio_userState = xio_userState s + } + , res + ) + +-- ------------------------------------------------------------ + +{- $system state params -} + +getSysParam :: (XIOSysState -> c) -> IOStateArrow s b c +getSysParam f + = IOSLA $ \ s _x -> + return (s, (:[]) . f . xio_sysState $ s) + +changeSysParam :: (b -> XIOSysState -> XIOSysState) -> IOStateArrow s b b +changeSysParam cf + = ( IOSLA $ \ s v -> + let s' = changeSysState (cf v) s + in return (s', [v]) + ) + where + changeSysState css s = s { xio_sysState = css (xio_sysState s) } + +-- | store a single XML tree in global state under a given attribute name + +setParam :: String -> IOStateArrow s XmlTree XmlTree +setParam n + = (:[]) ^>> setParamList n + +-- | store a list of XML trees in global system state under a given attribute name + +setParamList :: String -> IOStateArrow s XmlTrees XmlTree +setParamList n + = changeSysParam addE + >>> + arrL id + where + addE x s = s { xio_attrList = addEntry n x (xio_attrList s) } + +-- | remove an entry in global state, arrow input remains unchanged + +unsetParam :: String -> IOStateArrow s b b +unsetParam n + = changeSysParam delE + where + delE _ s = s { xio_attrList = delEntry n (xio_attrList s) } + +-- | read an attribute value from global state + +getParam :: String -> IOStateArrow s b XmlTree +getParam n + = getAllParams + >>> + arrL (lookup1 n) + +-- | read all attributes from global state + +getAllParams :: IOStateArrow s b (AssocList String XmlTrees) +getAllParams + = getSysParam xio_attrList + +-- | read all attributes from global state +-- and convert the values to strings + +getAllParamsString :: IOStateArrow s b (AssocList String String) +getAllParamsString + = getAllParams + >>> + listA ( unlistA + >>> + second (xshow unlistA) + ) + +setParamString :: String -> String -> IOStateArrow s b b +setParamString n v + = perform ( txt v + >>> + setParam n + ) + +-- | read a string value from global state, +-- if parameter not set \"\" is returned + +getParamString :: String -> IOStateArrow s b String +getParamString n + = xshow (getParam n) + +-- | store an int value in global state + +setParamInt :: String -> Int -> IOStateArrow s b b +setParamInt n v + = setParamString n (show v) + +-- | read an int value from global state +-- +-- > getParamInt 0 myIntAttr + +getParamInt :: Int -> String -> IOStateArrow s b Int +getParamInt def n + = getParamString n + >>^ + (\ x -> if null x then def else read x) + +-- ------------------------------------------------------------ + +-- | reset global error variable + +changeErrorStatus :: (Int -> Int -> Int) -> IOStateArrow s Int Int +changeErrorStatus f + = changeSysParam (\ l s -> s { xio_errorStatus = f l (xio_errorStatus s) }) + +clearErrStatus :: IOStateArrow s b b +clearErrStatus + = perform (constA 0 >>> changeErrorStatus min) + +-- | set global error variable + +setErrStatus :: IOStateArrow s Int Int +setErrStatus + = changeErrorStatus max + +-- | read current global error status + +getErrStatus :: IOStateArrow s XmlTree Int +getErrStatus + = getSysParam xio_errorStatus + +-- | raise the global error status level to that of the input tree + +setErrMsgStatus :: IOStateArrow s XmlTree XmlTree +setErrMsgStatus + = perform ( getErrorLevel + >>> + setErrStatus + ) + +-- | set the error message handler and the flag for collecting the errors + +setErrorMsgHandler :: Bool -> (String -> IO ()) -> IOStateArrow s b b +setErrorMsgHandler c f + = changeSysParam cf + where + cf _ s = s { xio_errorMsgHandler = f + , xio_errorMsgCollect = c } + +-- | error message handler for output to stderr + +sysErrorMsg :: IOStateArrow s XmlTree XmlTree +sysErrorMsg + = perform ( getErrorLevel &&& getErrorMsg + >>> + arr formatErrorMsg + >>> + ( IOSLA $ \ s e -> + do + (xio_errorMsgHandler . xio_sysState $ s) e + return (s, undefined) + ) + ) + where + formatErrorMsg (level, msg) = "\n" ++ errClass level ++ ": " ++ msg + errClass l + = fromMaybe "fatal error" . lookup l $ msgList + where + msgList = [ (c_ok, "no error") + , (c_warn, "warning") + , (c_err, "error") + , (c_fatal, "fatal error") + ] + + +-- | the default error message handler: error output to stderr + +errorMsgStderr :: IOStateArrow s b b +errorMsgStderr = setErrorMsgHandler False (hPutStrLn stderr) + +-- | error message handler for collecting errors + +errorMsgCollect :: IOStateArrow s b b +errorMsgCollect = setErrorMsgHandler True (const $ return ()) + +-- | error message handler for output to stderr and collecting + +errorMsgStderrAndCollect :: IOStateArrow s b b +errorMsgStderrAndCollect = setErrorMsgHandler True (hPutStrLn stderr) + +-- | error message handler for ignoring errors + +errorMsgIgnore :: IOStateArrow s b b +errorMsgIgnore = setErrorMsgHandler False (const $ return ()) + +-- | +-- if error messages are collected by the error handler for +-- processing these messages by the calling application, +-- this arrow reads the stored messages and clears the error message store + +getErrorMessages :: IOStateArrow s b XmlTree +getErrorMessages + = getSysParam (reverse . xio_errorMsgList) -- reverse the list of errors + >>> + clearErrorMsgList -- clear the error list in the system state + >>> + arrL id + +clearErrorMsgList :: IOStateArrow s b b +clearErrorMsgList + = changeSysParam (\ _ s -> s { xio_errorMsgList = [] } ) + +addToErrorMsgList :: IOStateArrow s XmlTree XmlTree +addToErrorMsgList + = changeSysParam cf + where + cf t s = if xio_errorMsgCollect s + then s { xio_errorMsgList = t : xio_errorMsgList s } + else s + +-- ------------------------------------------------------------ + +-- | +-- filter error messages from input trees and issue errors + +filterErrorMsg :: IOStateArrow s XmlTree XmlTree +filterErrorMsg + = ( setErrMsgStatus + >>> + sysErrorMsg + >>> + addToErrorMsgList + >>> + none + ) + `when` + isError + +-- | generate a warnig message + +issueWarn :: String -> IOStateArrow s b b +issueWarn msg = perform (warn msg >>> filterErrorMsg) + +-- | generate an error message +issueErr :: String -> IOStateArrow s b b +issueErr msg = perform (err msg >>> filterErrorMsg) + +-- | generate a fatal error message, e.g. document not found + +issueFatal :: String -> IOStateArrow s b b +issueFatal msg = perform (fatal msg >>> filterErrorMsg) + +-- | +-- add the error level and the module where the error occured +-- to the attributes of a document root node and remove the children when level is greater or equal to 'c_err'. +-- called by 'setDocumentStatusFromSystemState' when the system state indicates an error + +setDocumentStatus :: Int -> String -> IOStateArrow s XmlTree XmlTree +setDocumentStatus level msg + = ( addAttrl ( sattr a_status (show level) + <+> + sattr a_module msg + ) + >>> + ( if level >= c_err + then setChildren [] + else this + ) + ) + `when` + isRoot + +-- | +-- check whether the error level attribute in the system state +-- is set to error, in this case the children of the document root are +-- removed and the module name where the error occured and the error level are added as attributes with 'setDocumentStatus' +-- else nothing is changed + +setDocumentStatusFromSystemState :: String -> IOStateArrow s XmlTree XmlTree +setDocumentStatusFromSystemState msg + = setStatus $< getErrStatus + where + setStatus level + | level <= c_warn = this + | otherwise = setDocumentStatus level msg + + +-- | +-- check whether tree is a document root and the status attribute has a value less than 'c_err' + +documentStatusOk :: ArrowXml a => a XmlTree XmlTree +documentStatusOk + = isRoot + >>> + ( (getAttrValue a_status + >>> + isA (\ v -> null v || ((read v)::Int) <= c_warn) + ) + `guards` + this + ) + +-- ------------------------------------------------------------ + +-- | set the base URI of a document, used e.g. for reading includes, e.g. external entities, +-- the input must be an absolute URI + +setBaseURI :: IOStateArrow s String String +setBaseURI + = changeSysParam (\ b s -> s { xio_baseURI = b } ) + >>> + traceValue 2 (("setBaseURI: new base URI is " ++) . show) + +-- | read the base URI from the globale state + +getBaseURI :: IOStateArrow s b String +getBaseURI + = getSysParam xio_baseURI + >>> + ( ( getDefaultBaseURI + >>> + setBaseURI + >>> + getBaseURI + ) + `when` + isA null -- set and get it, if not yet done + ) + +-- | change the base URI with a possibly relative URI, can be used for +-- evaluating the xml:base attribute. Returns the new absolute base URI. +-- Fails, if input is not parsable with parseURIReference +-- +-- see also: 'setBaseURI', 'mkAbsURI' + +changeBaseURI :: IOStateArrow s String String +changeBaseURI + = mkAbsURI + >>> + setBaseURI + +-- | set the default base URI, if parameter is null, the system base (@ file:\/\/\/\<cwd\>\/ @) is used, +-- else the parameter, must be called before any document is read + +setDefaultBaseURI :: String -> IOStateArrow s b String +setDefaultBaseURI base + = ( if null base + then arrIO getDir + else constA base + ) + >>> + changeSysParam (\ b s -> s { xio_defaultBaseURI = b } ) + >>> + traceValue 2 (("setDefaultBaseURI: new default base URI is " ++) . show) + where + getDir _ = do + cwd <- getCurrentDirectory + return ("file://" ++ normalize cwd ++ "/") + + -- under Windows getCurrentDirectory returns something like: "c:\path\to\file" + -- backslaches are not allowed in URIs and paths must start with a / + -- so this is transformed into "/c:/path/to/file" + + normalize wd'@(d : ':' : _) + | d `elem` ['A'..'Z'] || d `elem` ['a'..'z'] + = '/' : concatMap win32ToUriChar wd' + normalize wd' + = concatMap escapeNonUriChar wd' + + win32ToUriChar '\\' = "/" + win32ToUriChar c = escapeNonUriChar c + + escapeNonUriChar c = escapeURIChar isUnescapedInURI c -- from Network.URI + + +-- | get the default base URI + +getDefaultBaseURI :: IOStateArrow s b String +getDefaultBaseURI + = getSysParam xio_defaultBaseURI -- read default uri in system state + >>> + ( setDefaultBaseURI "" -- set the default uri in system state + >>> + getDefaultBaseURI ) `when` isA null -- when uri not yet set + +-- ------------------------------------------------------------ + +-- | remember base uri, run an arrow and restore the base URI, used with external entity substitution + +runInLocalURIContext :: IOStateArrow s b c -> IOStateArrow s b c +runInLocalURIContext f + = ( getBaseURI &&& this ) + >>> + ( this *** listA f ) + >>> + ( setBaseURI *** this ) + >>> + arrL snd + +-- ------------------------------------------------------------ + +-- | set the global trace level + +setTraceLevel :: Int -> IOStateArrow s b b +setTraceLevel l + = changeSysParam (\ _ s -> s { xio_trace = l } ) + +-- | read the global trace level + +getTraceLevel :: IOStateArrow s b Int +getTraceLevel + = getSysParam xio_trace + +-- | run an arrow with a given trace level, the old trace level is restored after the arrow execution + +withTraceLevel :: Int -> IOStateArrow s b c -> IOStateArrow s b c +withTraceLevel level f + = ( getTraceLevel &&& this ) + >>> + ( setTraceLevel level *** listA f ) + >>> + ( restoreTraceLevel *** this ) + >>> + arrL snd + where + restoreTraceLevel :: IOStateArrow s Int Int + restoreTraceLevel + = setTraceLevel $< this + +-- | apply a trace arrow and issue message to stderr + +trace :: Int -> IOStateArrow s b String -> IOStateArrow s b b +trace level trc + = perform ( trc + >>> + arrIO (\ s -> ( do + hPutStrLn stderr s + hFlush stderr + ) + ) + ) + `when` ( getTraceLevel + >>> + isA (>= level) + ) + +-- | trace the current value transfered in a sequence of arrows. +-- +-- The value is formated by a string conversion function. This is a substitute for +-- the old and less general traceString function + +traceValue :: Int -> (b -> String) -> IOStateArrow s b b +traceValue level trc + = trace level (arr $ (('-' : "- (" ++ show level ++ ") ") ++) . trc) + +-- | an old alias for 'traceValue' + +traceString :: Int -> (b -> String) -> IOStateArrow s b b +traceString = traceValue + +-- | issue a string message as trace + +traceMsg :: Int -> String -> IOStateArrow s b b +traceMsg level msg + = traceValue level (const msg) + +-- | issue the source representation of a document if trace level >= 3 +-- +-- for better readability the source is formated with indentDoc + +traceSource :: IOStateArrow s XmlTree XmlTree +traceSource + = trace 3 $ + xshow + ( choiceA [ isRoot :-> ( indentDoc + >>> + getChildren + ) + , isElem :-> ( root [] [this] + >>> indentDoc + >>> getChildren + >>> isElem + ) + , this :-> this + ] + ) + +-- | issue the tree representation of a document if trace level >= 4 +traceTree :: IOStateArrow s XmlTree XmlTree +traceTree + = trace 4 $ + xshow ( treeRepOfXmlDoc + >>> + addHeadlineToXmlDoc + >>> + getChildren + ) + +-- | trace a main computation step +-- issue a message when trace level >= 1, issue document source if level >= 3, issue tree when level is >= 4 + +traceDoc :: String -> IOStateArrow s XmlTree XmlTree +traceDoc msg + = traceMsg 1 msg + >>> + traceSource + >>> + traceTree + +-- | trace the global state + +traceState :: IOStateArrow s b b +traceState + = perform ( xshow ( (getAllParams >>. concat) + >>> + applyA (arr formatParam) + ) + >>> + traceValue 2 ("global state:\n" ++) + ) + where + -- formatParam :: (String, XmlTrees) -> IOStateArrow s b1 XmlTree + formatParam (n, v) + = mkelem "param" [sattr "name" n] [arrL (const v)] <+> txt "\n" + +-- ---------------------------------------------------------- + +-- | compute the absolut URI for a given URI and a base URI + +expandURIString :: String -> String -> Maybe String +expandURIString uri base + = do + base' <- parseURIReference base + uri' <- parseURIReference uri + abs' <- nonStrictRelativeTo uri' base' + return $ show abs' + +-- | arrow variant of 'expandURIString', fails if 'expandURIString' returns Nothing + +expandURI :: ArrowXml a => a (String, String) String +expandURI + = arrL (maybeToList . uncurry expandURIString) + +-- | arrow for expanding an input URI into an absolute URI using global base URI, fails if input is not a legal URI + +mkAbsURI :: IOStateArrow s String String +mkAbsURI + = ( this &&& getBaseURI ) >>> expandURI + +-- | arrow for selecting the scheme (protocol) of the URI, fails if input is not a legal URI. +-- +-- See Network.URI for URI components + +getSchemeFromURI :: ArrowList a => a String String +getSchemeFromURI = getPartFromURI scheme + where + scheme = init . uriScheme + +-- | arrow for selecting the registered name (host) of the URI, fails if input is not a legal URI + +getRegNameFromURI :: ArrowList a => a String String +getRegNameFromURI = getPartFromURI host + where + host = maybe "" uriRegName . uriAuthority + +-- | arrow for selecting the port number of the URI without leading \':\', fails if input is not a legal URI + +getPortFromURI :: ArrowList a => a String String +getPortFromURI = getPartFromURI port + where + port = dropWhile (==':') . maybe "" uriPort . uriAuthority + +-- | arrow for selecting the user info of the URI without trailing \'\@\', fails if input is not a legal URI + +getUserInfoFromURI :: ArrowList a => a String String +getUserInfoFromURI = getPartFromURI ui + where + ui = reverse . dropWhile (=='@') . reverse . maybe "" uriUserInfo . uriAuthority + +-- | arrow for computing the path component of an URI, fails if input is not a legal URI + +getPathFromURI :: ArrowList a => a String String +getPathFromURI = getPartFromURI uriPath + +-- | arrow for computing the query component of an URI, fails if input is not a legal URI + +getQueryFromURI :: ArrowList a => a String String +getQueryFromURI = getPartFromURI uriQuery + +-- | arrow for computing the fragment component of an URI, fails if input is not a legal URI + +getFragmentFromURI :: ArrowList a => a String String +getFragmentFromURI = getPartFromURI uriFragment + +-- | arrow for computing the path component of an URI, fails if input is not a legal URI + +getPartFromURI :: ArrowList a => (URI -> String) -> a String String +getPartFromURI sel + = arrL (maybeToList . getPart) + where + getPart s = do + uri <- parseURIReference s + return (sel uri) + +-- ------------------------------------------------------------ + +-- | set the table mapping of file extensions to mime types in the system state +-- +-- Default table is defined in 'Text.XML.HXT.DOM.MimeTypeDefaults'. +-- This table is used when reading loacl files, (file: protocol) to determine the mime type + +setMimeTypeTable :: MimeTypeTable -> IOStateArrow s b b +setMimeTypeTable mtt + = changeSysParam (\ _ s -> s {xio_mimeTypes = mtt}) + +-- | set the table mapping of file extensions to mime types by an external config file +-- +-- The config file must follow the conventions of /etc/mime.types on a debian linux system, +-- that means all empty lines and all lines starting with a # are ignored. The other lines +-- must consist of a mime type followed by a possible empty list of extensions. +-- The list of extenstions and mime types overwrites the default list in the system state +-- of the IOStateArrow + +setMimeTypeTableFromFile :: FilePath -> IOStateArrow s b b +setMimeTypeTableFromFile file + = setMimeTypeTable $< arrIO0 ( readMimeTypeTable file) + +-- ------------------------------------------------------------ diff --git a/doc/hdoc/src/Text-XML-HXT-DOM-Interface.html b/doc/hdoc/src/Text-XML-HXT-DOM-Interface.html --- a/doc/hdoc/src/Text-XML-HXT-DOM-Interface.html +++ b/doc/hdoc/src/Text-XML-HXT-DOM-Interface.html @@ -28,21 +28,19 @@ module Text.XML.HXT.DOM.Interface ( module Text.XML.HXT.DOM.XmlKeywords , module Text.XML.HXT.DOM.TypeDefs - , module Text.XML.HXT.DOM.NamespacePredicates - , module Text.XML.HXT.DOM.Util - , module Text.XML.HXT.DOM.XmlOptions - , module Text.XML.HXT.DOM.MimeTypes - ) -where - -import Text.XML.HXT.DOM.XmlKeywords -- constants -import Text.XML.HXT.DOM.TypeDefs -- XML Tree types -import Text.XML.HXT.DOM.NamespacePredicates -import Text.XML.HXT.DOM.Util -import Text.XML.HXT.DOM.XmlOptions -- predefined options -import Text.XML.HXT.DOM.MimeTypes -- mime types related stuff - - --- ------------------------------------------------------------ + , module Text.XML.HXT.DOM.Util + , module Text.XML.HXT.DOM.XmlOptions + , module Text.XML.HXT.DOM.MimeTypes + ) +where + +import Text.XML.HXT.DOM.XmlKeywords -- constants +import Text.XML.HXT.DOM.TypeDefs -- XML Tree types +import Text.XML.HXT.DOM.Util +import Text.XML.HXT.DOM.XmlOptions -- predefined options +import Text.XML.HXT.DOM.MimeTypes -- mime types related stuff + + +-- ------------------------------------------------------------ diff --git a/doc/hdoc/src/Text-XML-HXT-DOM-MimeTypes.html b/doc/hdoc/src/Text-XML-HXT-DOM-MimeTypes.html --- a/doc/hdoc/src/Text-XML-HXT-DOM-MimeTypes.html +++ b/doc/hdoc/src/Text-XML-HXT-DOM-MimeTypes.html @@ -26,98 +26,100 @@ module Text.XML.HXT.DOM.MimeTypes where -import Control.Monad (mplus) +import Control.Monad ( mplus ) -import Data.Char -import Data.List -import qualified Data.Map as M -import Data.Maybe - -import System.IO - -import Text.XML.HXT.DOM.MimeTypeDefaults - --- ------------------------------------------------------------ - -type MimeTypeTable = M.Map String String - --- ------------------------------------------------------------ - --- mime types --- --- see RFC \"http:\/\/www.rfc-editor.org\/rfc\/rfc3023.txt\" - -application_xhtml, - application_xml, - application_xml_external_parsed_entity, - application_xml_dtd, - text_html, - text_xml, - text_xml_external_parsed_entity :: String - -application_xhtml = "application/xhtml+xml" -application_xml = "application/xml" -application_xml_external_parsed_entity = "application/xml-external-parsed-entity" -application_xml_dtd = "application/xml-dtd" - -text_html = "text/html" -text_xml = "text/xml" -text_xml_external_parsed_entity = "text/xml-external-parsed-entity" - -isHtmlMimeType :: String -> Bool -isHtmlMimeType t - = t == text_html - -isXmlMimeType :: String -> Bool -isXmlMimeType t - = ( t `elem` [ application_xhtml - , application_xml - , application_xml_external_parsed_entity - , application_xml_dtd - , text_xml - , text_xml_external_parsed_entity - ] - || - "+xml" `isSuffixOf` t -- application/mathml+xml - ) -- or image/svg+xml - -defaultMimeTypeTable :: MimeTypeTable -defaultMimeTypeTable - = M.fromList mimeTypeDefaults - -extensionToMimeType :: String -> MimeTypeTable -> String -extensionToMimeType e - = fromMaybe "" . lookupMime - where - lookupMime t - = M.lookup e t -- try exact match - `mplus` - M.lookup (map toLower e) t -- else try lowercase match - `mplus` - M.lookup (map toUpper e) t -- else try uppercase match - --- ------------------------------------------------------------ - -readMimeTypeTable :: FilePath -> IO MimeTypeTable -readMimeTypeTable inp - = do - h <- openFile inp ReadMode - c <- hGetContents h - return . M.fromList . parseMimeTypeTable $ c - -parseMimeTypeTable :: String -> [(String, String)] -parseMimeTypeTable - = concat - . map buildPairs - . map words - . filter (not . ("#" `isPrefixOf`)) - . filter (not . all (isSpace)) - . lines - where - buildPairs :: [String] -> [(String, String)] - buildPairs [] = [] - buildPairs (mt:exts) = map (\ x -> (x, mt)) $ exts - --- ------------------------------------------------------------ +import qualified Data.ByteString as B +import qualified Data.ByteString.Char8 as C + +import Data.Char +import Data.List +import qualified Data.Map as M +import Data.Maybe + +import System.IO + +import Text.XML.HXT.DOM.MimeTypeDefaults + +-- ------------------------------------------------------------ + +type MimeTypeTable = M.Map String String + +-- ------------------------------------------------------------ + +-- mime types +-- +-- see RFC \"http:\/\/www.rfc-editor.org\/rfc\/rfc3023.txt\" + +application_xhtml, + application_xml, + application_xml_external_parsed_entity, + application_xml_dtd, + text_html, + text_xml, + text_xml_external_parsed_entity :: String + +application_xhtml = "application/xhtml+xml" +application_xml = "application/xml" +application_xml_external_parsed_entity = "application/xml-external-parsed-entity" +application_xml_dtd = "application/xml-dtd" + +text_html = "text/html" +text_xml = "text/xml" +text_xml_external_parsed_entity = "text/xml-external-parsed-entity" + +isHtmlMimeType :: String -> Bool +isHtmlMimeType t + = t == text_html + +isXmlMimeType :: String -> Bool +isXmlMimeType t + = ( t `elem` [ application_xhtml + , application_xml + , application_xml_external_parsed_entity + , application_xml_dtd + , text_xml + , text_xml_external_parsed_entity + ] + || + "+xml" `isSuffixOf` t -- application/mathml+xml + ) -- or image/svg+xml + +defaultMimeTypeTable :: MimeTypeTable +defaultMimeTypeTable + = M.fromList mimeTypeDefaults + +extensionToMimeType :: String -> MimeTypeTable -> String +extensionToMimeType e + = fromMaybe "" . lookupMime + where + lookupMime t + = M.lookup e t -- try exact match + `mplus` + M.lookup (map toLower e) t -- else try lowercase match + `mplus` + M.lookup (map toUpper e) t -- else try uppercase match + +-- ------------------------------------------------------------ + +readMimeTypeTable :: FilePath -> IO MimeTypeTable +readMimeTypeTable inp + = do + cb <- B.readFile inp + return . M.fromList . parseMimeTypeTable . C.unpack $ cb + +parseMimeTypeTable :: String -> [(String, String)] +parseMimeTypeTable + = concat + . map buildPairs + . map words + . filter (not . ("#" `isPrefixOf`)) + . filter (not . all (isSpace)) + . lines + where + buildPairs :: [String] -> [(String, String)] + buildPairs [] = [] + buildPairs (mt:exts) = map (\ x -> (x, mt)) $ exts + +-- ------------------------------------------------------------ diff --git a/doc/hdoc/src/Text-XML-HXT-DOM-NamespacePredicates.html b/doc/hdoc/src/Text-XML-HXT-DOM-NamespacePredicates.html deleted file mode 100644 --- a/doc/hdoc/src/Text-XML-HXT-DOM-NamespacePredicates.html +++ /dev/null @@ -1,138 +0,0 @@ - - - - -Haskell Code by HsColour - - - -
    -- |
--- basic Namespace and QName predicates and functions
---
--- $Id: NamespacePredicates.hs,v 1.3 2006/11/12 14:53:00 hxml Exp $
---
-
-module Text.XML.HXT.DOM.NamespacePredicates
-    ( module Text.XML.HXT.DOM.NamespacePredicates
-    )
-where
-
-import Text.XML.HXT.DOM.XmlTreeTypes		-- NTree and XNode types
-import Text.XML.HXT.DOM.XmlKeywords		-- keywords for DTD
-
-import Text.XML.HXT.DOM.Unicode
-    ( isXmlNCNameStartChar
-    , isXmlNCNameChar
-    )
-
--- -----------------------------------------------------------------------------
---
-
--- |
--- Compute the name prefix and the namespace uri for a qualified name.
---
--- This function does not test whether the name is a wellformed qualified name.
--- see Namespaces in XML Rule [6] to [8]. Error checking is done with separate functions,
--- see 'isWellformedQName' and 'isWellformedQualifiedName' for error checking.
-
-setNamespace	:: NsEnv -> QName -> QName
-setNamespace nst n
-    = uncurry ns . span (/= ':') $ qn
-    where
-    qn = qualifiedName n	-- using qualifiedName instead of localPart enables recomputing of setNamespace
-
-    ns :: String -> String -> QName
-    ns lp ""					-- no ":" found in name, use default namespace uri
-	= mkQName "" lp (lookup1 "" nst)
-
-    ns px@(_:_) (':' : lp@(_:_))		-- non empty prefix and non empty local part found
-	= mkQName px lp (lookup1 px nst)
-
-    ns _ _					-- not a legal qualified name, don't change name
-	= n
-
-xmlnsQN	:: QName
-xmlnsQN	= mkQName "" a_xmlns xmlnsNamespace
-
--- -----------------------------------------------------------------------------
---
-
--- |
--- test for wellformed NCName, rule [4] XML Namespaces
-
-isNCName	:: String -> Bool
-isNCName []
-    = False
-isNCName n
-    = and ( zipWith ($)
-	    (isXmlNCNameStartChar : repeat isXmlNCNameChar)
-	    n
-	  )
-
--- |
--- test for wellformed QName, rule [6] XML Namespaces
--- predicate is used in filter 'valdateNamespaces'.
-
-isWellformedQualifiedName	:: String -> Bool
-isWellformedQualifiedName s
-    | null lp
-	= isNCName px
-    | otherwise
-	= isNCName px && isNCName (tail lp)
-    where
-    (px, lp) = span (/= ':') s
-
--- |
--- test for wellformed QName values.
--- A QName is wellformed, if the local part is a NCName, the namePrefix, if not empty, is also a NCName.
--- predicate is used in filter 'valdateNamespaces'.
-
-isWellformedQName	:: QName -> Bool
-isWellformedQName n
-    = isNCName lp				-- rule [8] XML Namespaces
-      &&
-      ( null px					-- rule [6] XML Namespaces
-	||
-	isNCName px				-- rule [7] XML Namespaces
-      )
-    where
-    px = namePrefix n
-    lp = localPart n
-
--- |
--- test for a wellformed namespace declaration
--- all namespace prefixes starting with \"xml\" are reserved for XML related definitions.
--- predicate is used in filter 'valdateNamespaces'.
-
-isWellformedNSDecl	:: QName -> Bool
-isWellformedNSDecl n
-    = null px
-      ||
-      px /= a_xmlns
-      ||
-      (take 3 lp) /= a_xml
-    where
-    lp = localPart  n
-    px = namePrefix n
-
--- |
--- 
--- predicate is used in filter 'valdateNamespaces'.
-
-isDeclaredNamespace	:: QName -> Bool
-isDeclaredNamespace n
-    | null px					-- no namespace used
-	= True
-    | px == a_xmlns				-- "xmlns" has a predefined namespace uri
-	= ns == xmlnsNamespace
-    | px == a_xml				-- "xml" has a predefiend namespace"
-	= ns == xmlNamespace
-    | otherwise					-- namespace values are not empty
-	= (not . null) ns
-    where
-    px = namePrefix   n
-    ns = namespaceUri n
-
--- -----------------------------------------------------------------------------
-
    - diff --git a/doc/hdoc/src/Text-XML-HXT-DOM-QualifiedName.html b/doc/hdoc/src/Text-XML-HXT-DOM-QualifiedName.html --- a/doc/hdoc/src/Text-XML-HXT-DOM-QualifiedName.html +++ b/doc/hdoc/src/Text-XML-HXT-DOM-QualifiedName.html @@ -24,201 +24,524 @@ -- ------------------------------------------------------------ module Text.XML.HXT.DOM.QualifiedName - ( module Text.XML.HXT.DOM.QualifiedName - ) - -where -import Control.Parallel.Strategies - -import Data.Char (toLower) -import Data.Typeable - --- ----------------------------------------------------------------------------- --- --- | --- Namespace support for element and attribute names. --- --- A qualified name consists of a name prefix, a local name --- and a namespace uri. --- All modules, which are not namespace aware, use only the 'localPart' component. --- When dealing with namespaces, the document tree must be processed by "propagateNamespaces" --- to split names of structure \"prefix:localPart\" and label the name with the apropriate namespace uri - -data QName = QN { namePrefix :: String -- ^ the name prefix part of a qualified name \"namePrefix:localPart\" - , localPart :: String -- ^ the local part of a qualified name \"namePrefix:localPart\" - , namespaceUri :: String -- ^ the associated namespace uri - } - deriving (Ord, Show, Read, Typeable) - --- | Two QNames are equal if (1. case) namespaces are both empty and the qualified names --- (prefix:localpart) are the same or (2. case) namespaces are set and namespaces and --- local parts both are equal - -instance Eq QName where - q1 == q2 - | null ns1 && null ns2 - = qualifiedName q1 == qualifiedName q2 - | otherwise - = localPart q1 == localPart q2 - && - ns1 == ns2 - where - ns1 = namespaceUri q1 - ns2 = namespaceUri q2 - -instance NFData QName where - rnf (QN np lp ns) = rnf np `seq` rnf lp `seq` rnf ns - - --- just for adding the module to the lib --- | --- builds the full name \"prefix:localPart\", if prefix is not null, else the local part is the result - -qualifiedName :: QName -> String -qualifiedName n - | null px - = lp - | otherwise - = px ++ (':' : lp) - where - px = namePrefix n - lp = localPart n - --- | --- builds the \"universal\" name, that is the namespace uri surrounded with \"{\" and \"}\" followed by the local part --- (specialisation of 'buildUniversalName') + ( QName + , XName + , NsEnv + + , mkQName + , mkName + , mkNsName + , mkSNsName + , mkPrefixLocalPart + + , equivQName + , equivUri + , equalQNameBy + + , namePrefix + , localPart + , namespaceUri + + , newXName + , nullXName + , isNullXName + + , mkQName' + , namePrefix' + , localPart' + , namespaceUri' + + , setNamePrefix' + , setLocalPart' + , setNamespaceUri' + + , qualifiedName + , universalName + , universalUri + , buildUniversalName + + , normalizeNsUri + + , setNamespace -- namespace related functions + , isNCName + , isWellformedQualifiedName + , isWellformedQName + , isWellformedNSDecl + , isWellformedNameSpaceName + , isNameSpaceName + , isDeclaredNamespace + + , xmlNamespaceXName + , xmlXName + , xmlnsNamespaceXName + , xmlnsXName + , xmlnsQN + + , toNsEnv + ) + +where + +{- +import Debug.Trace + -} + +import Control.Arrow ( (***) ) -universalName :: QName -> String -universalName = buildUniversalName (\ ns lp -> '{' : ns ++ '}' : lp) +import Control.Concurrent.MVar +import Control.Parallel.Strategies --- | --- builds an \"universal\" uri, that is the namespace uri followed by the local part. This is usefull for RDF applications, --- where the subject, predicate and object often are concatenated from namespace uri and local part --- (specialisation of 'buildUniversalName') - -universalUri :: QName -> String -universalUri = buildUniversalName (++) - --- | --- builds a string from the namespace uri and the local part. If the namespace uri is empty, the local part is returned, else --- namespace uri and local part are combined with the combining function given by the first parameter - -buildUniversalName :: (String -> String -> String) -> QName -> String -buildUniversalName bf n - | null ns - = lp - | otherwise - = bf ns lp - where - ns = namespaceUri n - lp = localPart n - --- | --- constructs a complete qualified name with 'namePrefix', 'localPart' and 'namespaceUri'. +import Data.AssocList +import Data.Char ( toLower ) +import Data.List ( isPrefixOf ) +import qualified Data.Map as M +import Data.Maybe +import Data.Typeable + +import System.IO.Unsafe ( unsafePerformIO ) + +import Text.XML.HXT.DOM.XmlKeywords ( a_xml + , a_xmlns + , xmlNamespace + , xmlnsNamespace + ) + +import Text.XML.HXT.DOM.Unicode ( isXmlNCNameStartChar + , isXmlNCNameChar + ) + +-- ----------------------------------------------------------------------------- + +-- | XML names are represented by Strings, but these strings do not mix up with normal strings. +-- Names are always reduced to normal form, and they are stored internally in a name cache +-- for sharing equal names by the same data structure -mkQName :: String -> String -> String -> QName -mkQName p l n - = QN { namePrefix = p - , localPart = l - , namespaceUri = n - } - --- | --- constructs a simple, namespace unaware name, 'namePrefix' and 'namespaceUri' are set to the empty string. - -mkName :: String -> QName -mkName s - = QN { namePrefix = "" - , localPart = s - , namespaceUri = "" - } - --- | --- constructs a simple name, with prefix and localPart but without a namespace uri. --- --- see also 'mkName', 'mkNsName', 'mkSNsName' +type XName = Atom + +-- | +-- Namespace support for element and attribute names. +-- +-- A qualified name consists of a name prefix, a local name +-- and a namespace uri. +-- All modules, which are not namespace aware, use only the 'localPart' component. +-- When dealing with namespaces, the document tree must be processed by "propagateNamespaces" +-- to split names of structure \"prefix:localPart\" and label the name with the apropriate namespace uri + +data QName = LP ! XName + | PX ! XName ! QName + | NS ! XName ! QName + deriving (Ord, Show, Read, Typeable) + +-- | +-- Type for the namespace association list, used when propagating namespaces by +-- modifying the 'QName' values in a tree + +type NsEnv = AssocList XName XName -mkPrefixLocalPart :: String -> String -> QName -mkPrefixLocalPart p l - = QN { namePrefix = p - , localPart = l - , namespaceUri = "" - } - --- | --- constructs a simple, namespace aware name, with prefix:localPart as first parameter, namspace uri as second. --- --- see also 'mkName', 'mkPrefixLocalPart' - -mkNsName :: String -> String -> QName -mkNsName n ns - = QN { namePrefix = p - , localPart = l - , namespaceUri = ns - } - where - (x1, x2) = span (/= ':') n - (p, l) - | null x2 = ("", x1) - | otherwise = (x1, tail x2) - +-- ----------------------------------------------------------------------------- + +-- | Two QNames are equal if (1. case) namespaces are both empty and the qualified names +-- (prefix:localpart) are the same or (2. case) namespaces are set and namespaces and +-- local parts both are equal + +instance Eq QName where + (LP lp1) == (LP lp2) = lp1 == lp2 + (PX px1 qn1) == (PX px2 qn2) = px1 == px2 && qn1== qn2 + (NS ns1 qn1) == (NS ns2 qn2) = ns1 == ns2 && localPart' qn1 == localPart' qn2 + n1@(PX _ _) == n2@(LP _) = qualifiedName n1 == qualifiedName n2 + n1@(LP _) == n2@(PX _ _) = qualifiedName n1 == qualifiedName n2 + _ == _ = False + +-- the 4. and 5. rule are only neccessary when someone +-- uses XML names not in a systematical way +-- and does things like "mkName("x:y") == mkPrefixLocalPart("x","y") + +instance NFData QName where + +-- ----------------------------------------------------------------------------- + +newXName :: String -> XName +newXName = newAtom --- | --- constructs a simple name, with prefix:localPart as 1 parameter, with empty namspace uri, same as 'mkPrefixLocalPart, but with a single parameter --- --- see also 'mkNsName', 'mkPrefixLocalPart' - -mkSNsName :: String -> QName -mkSNsName n = mkNsName n "" +isNullXName :: XName -> Bool +isNullXName = (== nullXName) + +nullXName :: XName +nullXName = newXName "" + +-- | access name prefix --- | Empty QName - -nullQName :: QName -nullQName = QN "" "" "" +namePrefix' :: QName -> XName +namePrefix' (LP _) = nullXName +namePrefix' (PX px _) = px +namePrefix' (NS _ n) = namePrefix' n --- | Equality of QNames: Two QNames are equal, if the local parts are equal --- and the namespace URIs are equal. --- The comparison works with and without namespace propagation. --- If namespaces have been propagated, the name is split into prefix and local part --- and the namespace uri is set. In this case the prefix is not significant for equality test. --- If namespaces have not been propagated, the local part contains the full name, prefix --- and namespace URI are empty. The full name (prefix and local part) is used for comparison. - -equalQName :: QName -> QName -> Bool -equalQName = equalQNameBy (==) - --- | Equivalent QNames are defined as follows: The URIs are normalized before comparison. --- Comparison is done with 'equalQNameBy' and 'equivUri' - -equivQName :: QName -> QName -> Bool -equivQName = equalQNameBy equivUri - --- | Comparison of normalized namespace URIs using 'normalizeNsUri' +-- | access local part + +localPart' :: QName -> XName +localPart' (LP lp) = lp +localPart' (PX _ n) = localPart' n +localPart' (NS _ n) = localPart' n + +-- | access namespace uri + +namespaceUri' :: QName -> XName +namespaceUri' (NS ns _) = ns +namespaceUri' _ = nullXName + +namePrefix :: QName -> String +namePrefix = show . namePrefix' + +localPart :: QName -> String +localPart = show . localPart' -equivUri :: String -> String -> Bool -equivUri x y = normalizeNsUri x == normalizeNsUri y +namespaceUri :: QName -> String +namespaceUri = show . namespaceUri' --- | Sometimes a weaker equality relation than 'equalQName' is appropriate, e.g no case significance in names, ... --- a name normalization function can be applied to the strings before comparing. Called by 'equalQName' and --- 'equivQName' +-- ------------------------------------------------------------ + +-- | set name prefix -equalQNameBy :: (String -> String -> Bool) -> QName -> QName -> Bool -equalQNameBy equiv q1 q2 - = localPart q1 == localPart q2 - && - (namespaceUri q1 `equiv` namespaceUri q2) - --- | Normalization of URIs: Normalization is done by conversion into lowercase letters. A trailing \"\/\" is ignored +setNamespaceUri' :: XName -> QName -> QName +setNamespaceUri' ns (NS _ n) = if isNullXName ns + then n + else NS ns n +setNamespaceUri' ns n = if isNullXName ns + then n + else NS ns n -normalizeNsUri :: String -> String -normalizeNsUri - = map toLower . stripSlash - where - stripSlash "" = "" - stripSlash s - | last s == '/' = init s - | otherwise = s +-- | set local part + +setLocalPart' :: XName -> QName -> QName +setLocalPart' lp (LP _) = LP lp +setLocalPart' lp (PX px n) = PX px (setLocalPart' lp n) +setLocalPart' lp (NS ns n) = NS ns (setLocalPart' lp n) + +-- | set name prefix --- ----------------------------------------------------------------------------- +setNamePrefix' :: XName -> QName -> QName +setNamePrefix' px (PX _ n) = if px == nullXName + then n + else PX px n +setNamePrefix' px n@(LP _) = if px == nullXName + then n + else PX px n +setNamePrefix' px (NS ns n) = NS ns (setNamePrefix' px n) + + +-- ------------------------------------------------------------ + +-- | +-- builds the full name \"prefix:localPart\", if prefix is not null, else the local part is the result + +qualifiedName :: QName -> String +qualifiedName (LP lp) = show lp +qualifiedName (PX px n) = show px ++ (':' : qualifiedName n) +qualifiedName (NS _ n) = qualifiedName n + +-- | +-- builds the \"universal\" name, that is the namespace uri surrounded with \"{\" and \"}\" followed by the local part +-- (specialisation of 'buildUniversalName') + +universalName :: QName -> String +universalName = buildUniversalName (\ ns lp -> '{' : ns ++ '}' : lp) + +-- | +-- builds an \"universal\" uri, that is the namespace uri followed by the local part. This is usefull for RDF applications, +-- where the subject, predicate and object often are concatenated from namespace uri and local part +-- (specialisation of 'buildUniversalName') + +universalUri :: QName -> String +universalUri = buildUniversalName (++) + +-- | +-- builds a string from the namespace uri and the local part. If the namespace uri is empty, the local part is returned, else +-- namespace uri and local part are combined with the combining function given by the first parameter + +buildUniversalName :: (String -> String -> String) -> QName -> String +buildUniversalName bf (NS ns n) = show ns `bf` localPart n +buildUniversalName _ n = localPart n + +-- ------------------------------------------------------------ +-- +-- internal XName functions + +mkQName' :: XName -> XName -> XName -> QName +mkQName' px lp ns + | isNullXName ns = px_lp + | otherwise = NS ns px_lp + where + px_lp + | isNullXName px = LP lp + | otherwise = PX px (LP lp) + +-- ------------------------------------------------------------ + +-- | +-- constructs a simple name, with prefix and localPart but without a namespace uri. +-- +-- see also 'mkQName', 'mkName' + +mkPrefixLocalPart :: String -> String -> QName +mkPrefixLocalPart px lp + | null px = n1 + | otherwise = PX (newXName px) n1 + where + n1 = LP (newXName lp) + +-- | +-- constructs a simple, namespace unaware name. +-- If the name is in @prefix:localpart@ form and the prefix is not empty +-- the name is split internally into +-- a prefix and a local part. + +mkName :: String -> QName +mkName n + | (':' `elem` n) + && + not (null px) -- more restrictive: isWellformedQualifiedName n + = mkPrefixLocalPart px lp + | otherwise = mkPrefixLocalPart "" n + where + (px, (_:lp)) = span (/= ':') n + +-- | +-- constructs a complete qualified name with 'namePrefix', 'localPart' and 'namespaceUri'. +-- This function can be used to build not wellformed prefix:localpart names. +-- The XPath module uses wildcard names like @xxx:*@. These must be build with 'mkQName' +-- and not with mkName. + +mkQName :: String -> String -> String -> QName +mkQName px lp ns + | null ns = n1 + | otherwise = NS (newXName ns) n1 + where + n1 = mkPrefixLocalPart px lp + +-- ------------------------------------------------------------ + +-- | +-- old name for 'mkName' + +mkSNsName :: String -> QName +mkSNsName = mkName + +-- | +-- constructs a simple, namespace aware name, with prefix:localPart as first parameter, +-- namspace uri as second. +-- +-- see also 'mkName', 'mkPrefixLocalPart' + +mkNsName :: String -> String -> QName +mkNsName n ns + | null ns = mkName n + | otherwise = NS (newXName ns) (mkName n) + +-- ------------------------------------------------------------ + +-- | Equivalent QNames are defined as follows: The URIs are normalized before comparison. +-- Comparison is done with 'equalQNameBy' and 'equivUri' + +equivQName :: QName -> QName -> Bool +equivQName = equalQNameBy equivUri + +-- | Comparison of normalized namespace URIs using 'normalizeNsUri' + +equivUri :: String -> String -> Bool +equivUri x y = normalizeNsUri x == normalizeNsUri y + +-- | Sometimes a weaker equality relation than 'equalQName' is appropriate, e.g no case significance in names, ... +-- a name normalization function can be applied to the strings before comparing. Called by 'equalQName' and +-- 'equivQName' + +equalQNameBy :: (String -> String -> Bool) -> QName -> QName -> Bool +equalQNameBy equiv q1 q2 = localPart q1 == localPart q2 + && + (namespaceUri q1 `equiv` namespaceUri q2) + +-- | Normalization of URIs: Normalization is done by conversion into lowercase letters. A trailing \"\/\" is ignored + +normalizeNsUri :: String -> String +normalizeNsUri = map toLower . stripSlash + where + stripSlash "" = "" + stripSlash s + | last s == '/' = init s + | otherwise = s + +-- ----------------------------------------------------------------------------- + +-- Namespace predicates + +-- | +-- Compute the name prefix and the namespace uri for a qualified name. +-- +-- This function does not test whether the name is a wellformed qualified name. +-- see Namespaces in XML Rule [6] to [8]. Error checking is done with separate functions, +-- see 'isWellformedQName' and 'isWellformedQualifiedName' for error checking. + +setNamespace :: NsEnv -> QName -> QName +setNamespace env n@(PX px _) = attachNS env px n -- none empty prefix found +setNamespace env n@(LP _) = attachNS env nullXName n -- use default namespace uri +setNamespace env (NS _ n) = setNamespace env n + +attachNS :: NsEnv -> XName -> QName -> QName +attachNS env px n1 = maybe n1 (\ ns -> NS ns n1) . lookup px $ env + +xmlnsNamespaceXName :: XName +xmlnsNamespaceXName = newXName xmlnsNamespace + +xmlnsXName :: XName +xmlnsXName = newXName a_xmlns + +xmlnsQN :: QName +xmlnsQN = NS xmlnsNamespaceXName (LP xmlnsXName) + +xmlNamespaceXName :: XName +xmlNamespaceXName = newXName xmlNamespace + +xmlXName :: XName +xmlXName = newXName a_xml + +-- ----------------------------------------------------------------------------- +-- + +-- | +-- test for wellformed NCName, rule [4] XML Namespaces + +isNCName :: String -> Bool +isNCName [] = False +isNCName n = and ( zipWith ($) + (isXmlNCNameStartChar : repeat isXmlNCNameChar) + n + ) + +-- | +-- test for wellformed QName, rule [6] XML Namespaces +-- predicate is used in filter 'valdateNamespaces'. + +isWellformedQualifiedName :: String -> Bool +isWellformedQualifiedName s + | null lp = isNCName px + | otherwise = isNCName px && isNCName (tail lp) + where + (px, lp) = span (/= ':') s + +-- | +-- test for wellformed QName values. +-- A QName is wellformed, if the local part is a NCName, the namePrefix, if not empty, is also a NCName. +-- predicate is used in filter 'valdateNamespaces'. + +isWellformedQName :: QName -> Bool +isWellformedQName (LP lp) = isNCName . show $ lp -- rule [8] XML Namespaces +isWellformedQName (PX px n) = (isNCName . show) px -- rule [7] XML Namespaces + && + isWellformedQName n +isWellformedQName (NS _ n) = isWellformedQName n + +-- | +-- test whether an attribute name is a namesapce declaration name. +-- If this is not the case True is the result, else +-- the name must be a well formed namespace name: +-- All namespace prefixes starting with \"xml\" are reserved for XML related definitions. +-- predicate is used in filter 'valdateNamespaces'. + +isWellformedNSDecl :: QName -> Bool +isWellformedNSDecl n = not (isNameSpaceName n) + || + isWellformedNameSpaceName n + +-- | +-- test for a namespace name to be well formed + +isWellformedNameSpaceName :: QName -> Bool +isWellformedNameSpaceName (LP lp) = lp == xmlnsXName +isWellformedNameSpaceName (PX px n) = px == xmlnsXName + && + not (null lp') + && + not (a_xml `isPrefixOf` lp') + where + lp' = localPart n +isWellformedNameSpaceName (NS _ n) = isWellformedNSDecl n + +-- | +-- test whether a name is a namespace declaration attribute name + +isNameSpaceName :: QName -> Bool +isNameSpaceName (LP lp) = lp == xmlnsXName +isNameSpaceName (PX px _) = px == xmlnsXName +isNameSpaceName (NS _ n) = isNameSpaceName n + +-- | +-- +-- predicate is used in filter 'valdateNamespaces'. + +isDeclaredNamespace :: QName -> Bool +isDeclaredNamespace (NS ns n) = isNS ns n +isDeclaredNamespace n = isNS nullXName n + +isNS :: XName -> QName -> Bool +isNS _ (LP _) = True -- no namespace used +isNS ns (PX px _) + | px == xmlnsXName = ns == xmlnsNamespaceXName -- "xmlns" has a predefined namespace uri + | px == xmlXName = ns == xmlNamespaceXName -- "xml" has a predefiend namespace" + | otherwise = ns /= nullXName -- namespace values are not empty +isNS ns (NS _ n) = isNS ns n -- this does not occur, but warning is prevented + +-- ----------------------------------------------------------------------------- + +toNsEnv :: AssocList String String -> NsEnv +toNsEnv = map (newXName *** newXName) + +-- ----------------------------------------------------------------------------- + +-- the name cache, same implementation strategy as in Data.Atom, +-- but conversion to and from ByteString prevented + +type Atoms = M.Map String String + +newtype Atom = A String + deriving (Eq, Ord, Typeable) + +-- ------------------------------------------------------------ + +-- | the internal cache for the strings + +theAtoms :: MVar Atoms +theAtoms = unsafePerformIO (newMVar M.empty) +{-# NOINLINE theAtoms #-} + +-- | insert a bytestring into the atom cache + +insertAtom :: String -> Atoms -> (Atoms, Atom) +insertAtom s m = maybe (M.insert {- (trace (show s) s) -} s s m, A s `demanding` rnf s) + (\ s' -> (m, A s')) + . + M.lookup s $ m + +-- | creation of an @Atom@ from a @String@ + +newAtom :: String -> Atom +newAtom = unsafePerformIO . newAtom' +{-# NOINLINE newAtom #-} + +-- | The internal operation running in the IO monad +newAtom' :: String -> IO Atom +newAtom' s = do + m <- takeMVar theAtoms + let (m', a) = insertAtom s m + putMVar theAtoms m' + return a + +instance Read Atom where + readsPrec p str = [ (newAtom x, y) | (x, y) <- readsPrec p str ] + +instance Show Atom where + show (A s) = s + +instance NFData Atom where + +----------------------------------------------------------------------------- diff --git a/doc/hdoc/src/Text-XML-HXT-DOM-ShowXml.html b/doc/hdoc/src/Text-XML-HXT-DOM-ShowXml.html --- a/doc/hdoc/src/Text-XML-HXT-DOM-ShowXml.html +++ b/doc/hdoc/src/Text-XML-HXT-DOM-ShowXml.html @@ -10,7 +10,7 @@ {- | Module : Text.XML.HXT.DOM.ShowXml - Copyright : Copyright (C) 2008 Uwe Schmidt + Copyright : Copyright (C) 2008-9 Uwe Schmidt License : MIT Maintainer : Uwe Schmidt (uwe@fh-wedel.de) @@ -29,388 +29,387 @@ ) where -import Data.Tree.NTree.TypeDefs - -import Text.XML.HXT.DOM.TypeDefs -- XML Tree types -import Text.XML.HXT.DOM.XmlKeywords -import Text.XML.HXT.DOM.XmlNode - ( mkDTDElem - , getDTDAttrl - ) -import Data.Maybe - --- ----------------------------------------------------------------------------- --- --- the toString conversion functions - --- | --- convert the result of a filter into a string --- --- see also : 'xmlTreesToText' for filter version, 'Text.XML.HXT.Parser.XmlParsec.xread' for the inverse operation - -xshow :: XmlTrees -> String -xshow [(NTree (XText s) _)] = s -- special case optimisation -xshow ts = showXmlTrees ts "" - --- ------------------------------------------------------------ - -showXmlTree :: XmlTree -> String -> String - -showXmlTree (NTree (XText s) _) - = showString s - -showXmlTree (NTree (XCharRef i) _) - = showString "&#" . showString (show i) . showChar ';' - -showXmlTree (NTree (XEntityRef r) _) - = showString "&" . showString r . showChar ';' - -showXmlTree (NTree (XCmt c) _) - = showString "<!--" . showString c . showString "-->" - -showXmlTree (NTree (XCdata d) _) - = showString "<![CDATA[" . showString d . showString "]]>" - -showXmlTree (NTree (XPi n al) _) - = showString "<?" - . - showQName n - . - (foldr (.) id . map showPiAttr) al - . - showString "?>" - where - showPiAttr :: XmlTree -> String -> String - showPiAttr a@(NTree (XAttr an) cs) - | qualifiedName an == a_value - = showBlank . showXmlTrees cs - | otherwise - = showXmlTree a - showPiAttr _ - = id - -showXmlTree (NTree (XTag t al) []) - = showLt . showQName t . showXmlTrees al . showSlash . showGt - -showXmlTree (NTree (XTag t al) cs) - = showLt . showQName t . showXmlTrees al . showGt - . showXmlTrees cs - . showLt . showSlash . showQName t . showGt - -showXmlTree (NTree (XDTD de al) cs) - = showXmlDTD de al cs - -showXmlTree (NTree (XAttr an) cs) - = showBlank . showQName an . showEq . showQuoteString (xshow cs) - -showXmlTree (NTree (XError l e) _) - = showString "<!-- ERROR (" . shows l . showString "):\n" . showString e . showString "\n-->" - --- ------------------------------------------------------------ - -showXmlTrees :: XmlTrees -> String -> String -showXmlTrees = foldr (.) id . map showXmlTree - -showXmlTrees' :: XmlTrees -> String -> String -showXmlTrees' = foldr (\ x y -> x . showNL . y) id . map showXmlTree - --- ------------------------------------------------------------ - -showQName :: QName -> String -> String -showQName - = showString . qualifiedName - --- ------------------------------------------------------------ - -showQuoteString :: String -> String -> String -showQuoteString s - | '\"' `elem` s - = showApos . showString s . showApos - | otherwise - = showQuot . showString s . showQuot +import Data.Maybe +import Data.Tree.NTree.TypeDefs + +import Text.XML.HXT.DOM.TypeDefs -- XML Tree types +import Text.XML.HXT.DOM.XmlKeywords +import Text.XML.HXT.DOM.XmlNode ( mkDTDElem + , getDTDAttrl + ) + +-- ----------------------------------------------------------------------------- +-- +-- the toString conversion functions + +-- | +-- convert the result of a filter into a string +-- +-- see also : 'xmlTreesToText' for filter version, 'Text.XML.HXT.Parser.XmlParsec.xread' for the inverse operation + +xshow :: XmlTrees -> String +xshow [(NTree (XText s) _)] = s -- special case optimisation +xshow ts = showXmlTrees ts "" + +-- ------------------------------------------------------------ + +showXmlTree :: XmlTree -> String -> String + +showXmlTree (NTree (XText s) _) + = showString s + +showXmlTree (NTree (XCharRef i) _) + = showString "&#" . showString (show i) . showChar ';' + +showXmlTree (NTree (XEntityRef r) _) + = showString "&" . showString r . showChar ';' + +showXmlTree (NTree (XCmt c) _) + = showString "<!--" . showString c . showString "-->" + +showXmlTree (NTree (XCdata d) _) + = showString "<![CDATA[" . showString d . showString "]]>" + +showXmlTree (NTree (XPi n al) _) + = showString "<?" + . + showQName n + . + (foldr (.) id . map showPiAttr) al + . + showString "?>" + where + showPiAttr :: XmlTree -> String -> String + showPiAttr a@(NTree (XAttr an) cs) + | qualifiedName an == a_value + = showBlank . showXmlTrees cs + | otherwise + = showXmlTree a + showPiAttr _ + = id + +showXmlTree (NTree (XTag t al) []) + = showLt . showQName t . showXmlTrees al . showSlash . showGt + +showXmlTree (NTree (XTag t al) cs) + = showLt . showQName t . showXmlTrees al . showGt + . showXmlTrees cs + . showLt . showSlash . showQName t . showGt + +showXmlTree (NTree (XDTD de al) cs) + = showXmlDTD de al cs + +showXmlTree (NTree (XAttr an) cs) + = showBlank . showQName an . showEq . showQuoteString (xshow cs) + +showXmlTree (NTree (XError l e) _) + = showString "<!-- ERROR (" . shows l . showString "):\n" . showString e . showString "\n-->" + +-- ------------------------------------------------------------ + +showXmlTrees :: XmlTrees -> String -> String +showXmlTrees = foldr (.) id . map showXmlTree + +showXmlTrees' :: XmlTrees -> String -> String +showXmlTrees' = foldr (\ x y -> x . showNL . y) id . map showXmlTree + +-- ------------------------------------------------------------ + +showQName :: QName -> String -> String +showQName + = showString . qualifiedName + +-- ------------------------------------------------------------ + +showQuoteString :: String -> String -> String +showQuoteString s + | '\"' `elem` s + = showApos . showString s . showApos + | otherwise + = showQuot . showString s . showQuot + - --- ------------------------------------------------------------ - -showAttr :: String -> Attributes -> String -> String -showAttr k al - = showString (fromMaybe "" . lookup k $ al) - --- ------------------------------------------------------------ - -showPEAttr :: Attributes -> String -> String -showPEAttr al - = showPE (lookup a_peref al) - where - showPE (Just pe) = showChar '%' . showString pe . showChar ';' - showPE Nothing = id - --- ------------------------------------------------------------ - -showExternalId :: Attributes -> String -> String -showExternalId al - = id2Str (lookup k_system al) (lookup k_public al) - where - id2Str Nothing Nothing = id - id2Str (Just s) Nothing = showBlank . showString k_system . showBlank . showQuoteString s - id2Str Nothing (Just p) = showBlank . showString k_public . showBlank . showQuoteString p - id2Str (Just s) (Just p) = showBlank . showString k_public . showBlank . showQuoteString p . showBlank . showQuoteString s - --- ------------------------------------------------------------ - -showNData :: Attributes -> String -> String -showNData al - = nd2Str (lookup k_ndata al) - where - nd2Str Nothing = id - nd2Str (Just v) = showBlank . showString k_ndata . showBlank . showString v - --- ------------------------------------------------------------ - -showXmlDTD :: DTDElem -> Attributes -> XmlTrees -> String -> String - -showXmlDTD DOCTYPE al cs - = showString "<!DOCTYPE " - . - showAttr a_name al - . - showExternalId al - . - showInternalDTD cs - . - showString ">" - where - showInternalDTD [] = id - showInternalDTD ds = showString " [\n" . showXmlTrees' ds . showChar ']' - -showXmlDTD ELEMENT al cs - = showString "<!ELEMENT " - . - showAttr a_name al - . - showBlank - . - showElemType (lookup1 a_type al) cs - . - showString " >" - -showXmlDTD ATTLIST al cs - = showString "<!ATTLIST " - . - ( if isNothing . lookup a_name $ al - then - showXmlTrees cs - else - showAttr a_name al - . - showBlank - . - ( case lookup a_value al of - Nothing -> ( showPEAttr - . fromMaybe [] . getDTDAttrl - . head - ) cs - Just a -> ( showString a - . - showAttrType (lookup1 a_type al) - . - showAttrKind (lookup1 a_kind al) - ) - ) - ) - . - showString " >" - where - showAttrType t - | t == k_peref - = showBlank . showPEAttr al - | t == k_enumeration - = showAttrEnum - | t == k_notation - = showBlank . showString k_notation . showAttrEnum - | otherwise - = showBlank . showString t - - showAttrEnum - = showString " (" - . - foldr1 (\ s1 s2 -> s1 . showString " | " . s2) (map (getEnum . fromMaybe [] . getDTDAttrl) cs) - . - showString ")" - where - getEnum :: Attributes -> String -> String - getEnum l = showAttr a_name l . showPEAttr l - - showAttrKind k - | k == k_default - = showBlank . showQuoteString (lookup1 a_default al) - | k == k_fixed - = showBlank . showString k_fixed - . - showBlank . showQuoteString (lookup1 a_default al) - | k == "" - = id - | otherwise - = showBlank . showString k - -showXmlDTD NOTATION al _cs - = showString "<!NOTATION " - . - showAttr a_name al - . - showExternalId al - . - showString " >" - -showXmlDTD PENTITY al cs - = showEntity "% " al cs - -showXmlDTD ENTITY al cs - = showEntity "" al cs - -showXmlDTD PEREF al _cs - = showPEAttr al - -showXmlDTD CONDSECT _ (c1 : cs) - = showString "<![ " - . - showXmlTree c1 - . - showString " [\n" - . - showXmlTrees cs - . - showString "]]>" - -showXmlDTD CONTENT al cs - = showContent (mkDTDElem CONTENT al cs) - -showXmlDTD NAME al _cs - = showAttr a_name al - -showXmlDTD de al _cs - = showString "NOT YET IMPLEMETED: " . showString (show de) . showBlank . showString (show al) . showString " [...]\n" - --- ------------------------------------------------------------ - -showElemType :: String -> XmlTrees -> String -> String -showElemType t cs - | t == v_pcdata - = showLpar . showString v_pcdata . showRpar - - | t == v_mixed && (not . null) cs - = showLpar - . - showString v_pcdata - . - ( foldr (.) id . map (mixedContent . selAttrl . getNode) ) cs1 - . - showRpar - . - showAttr a_modifier al1 - | t == v_mixed -- incorrect tree, e.g. after erronius pe substitution - = showLpar - . - showRpar - | t == v_children && (not . null) cs - = showContent (head cs) - | t == v_children - = showLpar - . showRpar - | t == k_peref - = foldr (.) id . map showContent $ cs - | otherwise - = showString t - where - [(NTree (XDTD CONTENT al1) cs1)] = cs - - mixedContent :: Attributes -> String -> String - mixedContent l - = showString " | " . showAttr a_name l . showPEAttr l - - selAttrl (XDTD _ as) = as - selAttrl (XText tex) = [(a_name, tex)] - selAttrl _ = [] - --- ------------------------------------------------------------ - -showContent :: XmlTree -> String -> String -showContent (NTree (XDTD de al) cs) - = cont2String de - where - cont2String :: DTDElem -> String -> String - cont2String NAME - = showAttr a_name al - cont2String PEREF - = showPEAttr al - cont2String CONTENT - = showLpar - . - foldr1 (combine (lookup1 a_kind al)) (map showContent cs) - . - showRpar - . - showAttr a_modifier al - cont2String n - = error ("cont2string " ++ show n ++ " is undefined") - combine k s1 s2 - = s1 - . - showString ( if k == v_seq - then ", " - else " | " - ) - . - s2 - -showContent n - = showXmlTree n - --- ------------------------------------------------------------ - -showEntity :: String -> Attributes -> XmlTrees -> String -> String - -showEntity kind al cs - = showString "<!ENTITY " - . - showString kind - . - showAttr a_name al - . - showExternalId al - . - showNData al - . - showEntityValue cs - . - showString " >" - --- ------------------------------------------------------------ - -showEntityValue :: XmlTrees -> String -> String - -showEntityValue [] - = id - -showEntityValue cs - = showBlank . showQuoteString (xshow cs) - --- ------------------------------------------------------------ - -showBlank, - showEq, showLt, showGt, showSlash, showApos, showQuot, showLpar, showRpar, showNL :: String -> String - -showBlank = showChar ' ' -showEq = showChar '=' -showLt = showChar '<' -showGt = showChar '>' -showSlash = showChar '/' -showApos = showChar '\'' -showQuot = showChar '\"' -showLpar = showChar '(' -showRpar = showChar ')' -showNL = showChar '\n' - --- ----------------------------------------------------------------------------- +-- ------------------------------------------------------------ + +showAttr :: String -> Attributes -> String -> String +showAttr k al + = showString (fromMaybe "" . lookup k $ al) + +-- ------------------------------------------------------------ + +showPEAttr :: Attributes -> String -> String +showPEAttr al + = showPE (lookup a_peref al) + where + showPE (Just pe) = showChar '%' . showString pe . showChar ';' + showPE Nothing = id + +-- ------------------------------------------------------------ + +showExternalId :: Attributes -> String -> String +showExternalId al + = id2Str (lookup k_system al) (lookup k_public al) + where + id2Str Nothing Nothing = id + id2Str (Just s) Nothing = showBlank . showString k_system . showBlank . showQuoteString s + id2Str Nothing (Just p) = showBlank . showString k_public . showBlank . showQuoteString p + id2Str (Just s) (Just p) = showBlank . showString k_public . showBlank . showQuoteString p . showBlank . showQuoteString s + +-- ------------------------------------------------------------ + +showNData :: Attributes -> String -> String +showNData al + = nd2Str (lookup k_ndata al) + where + nd2Str Nothing = id + nd2Str (Just v) = showBlank . showString k_ndata . showBlank . showString v + +-- ------------------------------------------------------------ + +showXmlDTD :: DTDElem -> Attributes -> XmlTrees -> String -> String + +showXmlDTD DOCTYPE al cs + = showString "<!DOCTYPE " + . + showAttr a_name al + . + showExternalId al + . + showInternalDTD cs + . + showString ">" + where + showInternalDTD [] = id + showInternalDTD ds = showString " [\n" . showXmlTrees' ds . showChar ']' + +showXmlDTD ELEMENT al cs + = showString "<!ELEMENT " + . + showAttr a_name al + . + showBlank + . + showElemType (lookup1 a_type al) cs + . + showString " >" + +showXmlDTD ATTLIST al cs + = showString "<!ATTLIST " + . + ( if isNothing . lookup a_name $ al + then + showXmlTrees cs + else + showAttr a_name al + . + showBlank + . + ( case lookup a_value al of + Nothing -> ( showPEAttr + . fromMaybe [] . getDTDAttrl + . head + ) cs + Just a -> ( showString a + . + showAttrType (lookup1 a_type al) + . + showAttrKind (lookup1 a_kind al) + ) + ) + ) + . + showString " >" + where + showAttrType t + | t == k_peref + = showBlank . showPEAttr al + | t == k_enumeration + = showAttrEnum + | t == k_notation + = showBlank . showString k_notation . showAttrEnum + | otherwise + = showBlank . showString t + + showAttrEnum + = showString " (" + . + foldr1 (\ s1 s2 -> s1 . showString " | " . s2) (map (getEnum . fromMaybe [] . getDTDAttrl) cs) + . + showString ")" + where + getEnum :: Attributes -> String -> String + getEnum l = showAttr a_name l . showPEAttr l + + showAttrKind k + | k == k_default + = showBlank . showQuoteString (lookup1 a_default al) + | k == k_fixed + = showBlank . showString k_fixed + . + showBlank . showQuoteString (lookup1 a_default al) + | k == "" + = id + | otherwise + = showBlank . showString k + +showXmlDTD NOTATION al _cs + = showString "<!NOTATION " + . + showAttr a_name al + . + showExternalId al + . + showString " >" + +showXmlDTD PENTITY al cs + = showEntity "% " al cs + +showXmlDTD ENTITY al cs + = showEntity "" al cs + +showXmlDTD PEREF al _cs + = showPEAttr al + +showXmlDTD CONDSECT _ (c1 : cs) + = showString "<![ " + . + showXmlTree c1 + . + showString " [\n" + . + showXmlTrees cs + . + showString "]]>" + +showXmlDTD CONTENT al cs + = showContent (mkDTDElem CONTENT al cs) + +showXmlDTD NAME al _cs + = showAttr a_name al + +showXmlDTD de al _cs + = showString "NOT YET IMPLEMETED: " . showString (show de) . showBlank . showString (show al) . showString " [...]\n" + +-- ------------------------------------------------------------ + +showElemType :: String -> XmlTrees -> String -> String +showElemType t cs + | t == v_pcdata + = showLpar . showString v_pcdata . showRpar + + | t == v_mixed && (not . null) cs + = showLpar + . + showString v_pcdata + . + ( foldr (.) id . map (mixedContent . selAttrl . getNode) ) cs1 + . + showRpar + . + showAttr a_modifier al1 + | t == v_mixed -- incorrect tree, e.g. after erronius pe substitution + = showLpar + . + showRpar + | t == v_children && (not . null) cs + = showContent (head cs) + | t == v_children + = showLpar + . showRpar + | t == k_peref + = foldr (.) id . map showContent $ cs + | otherwise + = showString t + where + [(NTree (XDTD CONTENT al1) cs1)] = cs + + mixedContent :: Attributes -> String -> String + mixedContent l + = showString " | " . showAttr a_name l . showPEAttr l + + selAttrl (XDTD _ as) = as + selAttrl (XText tex) = [(a_name, tex)] + selAttrl _ = [] + +-- ------------------------------------------------------------ + +showContent :: XmlTree -> String -> String +showContent (NTree (XDTD de al) cs) + = cont2String de + where + cont2String :: DTDElem -> String -> String + cont2String NAME + = showAttr a_name al + cont2String PEREF + = showPEAttr al + cont2String CONTENT + = showLpar + . + foldr1 (combine (lookup1 a_kind al)) (map showContent cs) + . + showRpar + . + showAttr a_modifier al + cont2String n + = error ("cont2string " ++ show n ++ " is undefined") + combine k s1 s2 + = s1 + . + showString ( if k == v_seq + then ", " + else " | " + ) + . + s2 + +showContent n + = showXmlTree n + +-- ------------------------------------------------------------ + +showEntity :: String -> Attributes -> XmlTrees -> String -> String + +showEntity kind al cs + = showString "<!ENTITY " + . + showString kind + . + showAttr a_name al + . + showExternalId al + . + showNData al + . + showEntityValue cs + . + showString " >" + +-- ------------------------------------------------------------ + +showEntityValue :: XmlTrees -> String -> String + +showEntityValue [] + = id + +showEntityValue cs + = showBlank . showQuoteString (xshow cs) + +-- ------------------------------------------------------------ + +showBlank, + showEq, showLt, showGt, showSlash, showApos, showQuot, showLpar, showRpar, showNL :: String -> String + +showBlank = showChar ' ' +showEq = showChar '=' +showLt = showChar '<' +showGt = showChar '>' +showSlash = showChar '/' +showApos = showChar '\'' +showQuot = showChar '\"' +showLpar = showChar '(' +showRpar = showChar ')' +showNL = showChar '\n' + +-- ----------------------------------------------------------------------------- diff --git a/doc/hdoc/src/Text-XML-HXT-DOM-TypeDefs.html b/doc/hdoc/src/Text-XML-HXT-DOM-TypeDefs.html --- a/doc/hdoc/src/Text-XML-HXT-DOM-TypeDefs.html +++ b/doc/hdoc/src/Text-XML-HXT-DOM-TypeDefs.html @@ -37,7 +37,7 @@ import Data.Tree.NTree.TypeDefs import Data.Typeable -import Text.XML.HXT.DOM.QualifiedName hiding ( QN ) +import Text.XML.HXT.DOM.QualifiedName -- ----------------------------------------------------------------------------- -- @@ -137,49 +137,40 @@ -- ----------------------------------------------------------------------------- -- - --- | --- Type for the namespace association list, used when propagating namespaces by --- modifying the 'QName' values in a tree - -type NsEnv = AssocList String String - --- ----------------------------------------------------------------------------- --- --- Constants for error levels - --- | no error, everything is ok -c_ok :: Int -c_ok = 0 - --- | Error level for XError, type warning -c_warn :: Int -c_warn = c_ok + 1 - --- | Error level for XError, type error -c_err :: Int -c_err = c_warn + 1 - --- | Error level for XError, type fatal error -c_fatal :: Int -c_fatal = c_err + 1 - --- ----------------------------------------------------------------------------- - --- | data type for representing a set of nodes as a tree structure --- --- this structure is e.g. used to repesent the result of an XPath query --- such that the selected nodes can be processed or selected later in --- processing a document tree - -data XmlNodeSet = XNS { thisNode :: Bool -- ^ is this node part of the set ? - , attrNodes :: [QName] -- ^ the set of attribute nodes - , childNodes :: ChildNodes -- ^ the set of child nodes, a list of pairs of index and node set - } - deriving (Eq, Show, Typeable) - -type ChildNodes = [(Int, XmlNodeSet)] - --- ----------------------------------------------------------------------------- +-- Constants for error levels + +-- | no error, everything is ok +c_ok :: Int +c_ok = 0 + +-- | Error level for XError, type warning +c_warn :: Int +c_warn = c_ok + 1 + +-- | Error level for XError, type error +c_err :: Int +c_err = c_warn + 1 + +-- | Error level for XError, type fatal error +c_fatal :: Int +c_fatal = c_err + 1 + +-- ----------------------------------------------------------------------------- + +-- | data type for representing a set of nodes as a tree structure +-- +-- this structure is e.g. used to repesent the result of an XPath query +-- such that the selected nodes can be processed or selected later in +-- processing a document tree + +data XmlNodeSet = XNS { thisNode :: Bool -- ^ is this node part of the set ? + , attrNodes :: [QName] -- ^ the set of attribute nodes + , childNodes :: ChildNodes -- ^ the set of child nodes, a list of pairs of index and node set + } + deriving (Eq, Show, Typeable) + +type ChildNodes = [(Int, XmlNodeSet)] + +-- ----------------------------------------------------------------------------- diff --git a/doc/hdoc/src/Text-XML-HXT-DOM-Unicode.html b/doc/hdoc/src/Text-XML-HXT-DOM-Unicode.html --- a/doc/hdoc/src/Text-XML-HXT-DOM-Unicode.html +++ b/doc/hdoc/src/Text-XML-HXT-DOM-Unicode.html @@ -10,1106 +10,1105 @@ {- | Module : Text.XML.HXT.DOM.Unicode - Copyright : Copyright (C) 2005 Uwe Schmidt - License : MIT - - Maintainer : Uwe Schmidt (uwe@fh-wedel.de) - Stability : experimental - Portability: portable - Version : $Id$ - - Unicode and UTF-8 Conversion Functions - --} - --- ------------------------------------------------------------ - -module Text.XML.HXT.DOM.Unicode - ( - -- * Unicode Type declarations - Unicode, - UString, - UTF8Char, - UTF8String, - UStringWithErrors, - DecodingFct, - DecodingFctEmbedErrors, - - -- * XML char predicates - - isXmlChar - , isXmlLatin1Char - , isXmlSpaceChar - , isXml11SpaceChar - , isXmlNameChar - , isXmlNameStartChar - , isXmlNCNameChar - , isXmlNCNameStartChar - , isXmlPubidChar - , isXmlLetter - , isXmlBaseChar - , isXmlIdeographicChar - , isXmlCombiningChar - , isXmlDigit - , isXmlExtender - , isXmlControlOrPermanentlyUndefined - - -- * UTF-8 and Unicode conversion functions - , utf8ToUnicode - , utf8ToUnicodeEmbedErrors - , latin1ToUnicode - , ucs2ToUnicode - , ucs2BigEndianToUnicode - , ucs2LittleEndianToUnicode - , utf16beToUnicode - , utf16leToUnicode - - , unicodeCharToUtf8 - - , unicodeToUtf8 - , unicodeToXmlEntity - , unicodeToLatin1 - , unicodeRemoveNoneAscii - , unicodeRemoveNoneLatin1 - - , intToCharRef - , intToCharRefHex - - , getDecodingFct - , getDecodingFctEmbedErrors - , getOutputEncodingFct - - , normalizeNL - , guessEncoding - ) -where - -import Data.Char( toUpper ) - -import Text.XML.HXT.DOM.Util ( swap, partitionEither ) - -import Text.XML.HXT.DOM.IsoLatinTables -import Text.XML.HXT.DOM.UTF8Decoding ( decodeUtf8, decodeUtf8EmbedErrors ) -import Text.XML.HXT.DOM.Util ( intToHexString ) -import Text.XML.HXT.DOM.XmlKeywords - --- ------------------------------------------------------------ - --- | Unicode is represented as the Char type --- Precondition for this is the support of Unicode character range --- in the compiler (e.g. ghc but not hugs) - -type Unicode = Char - --- | the type for Unicode strings - -type UString = [Unicode] - --- | UTF-8 charachters are represented by the Char type - -type UTF8Char = Char - --- | UTF-8 strings are implemented as Haskell strings - -type UTF8String = String - --- | Decoding function with a pair containing the result string and a list of decoding errors as result - -type DecodingFct = String -> (UString, [String]) - -type UStringWithErrors = [Either String Char] - --- | Decoding function where decoding errors are interleaved with decoded characters - -type DecodingFctEmbedErrors = String -> UStringWithErrors - --- ------------------------------------------------------------ --- --- Unicode predicates - --- | --- test for a legal 1 byte XML char - -is1ByteXmlChar :: Unicode -> Bool -is1ByteXmlChar c - = c < '\x80' - && ( c >= ' ' - || - c == '\n' - || - c == '\t' - || - c == '\r' - ) - --- | --- test for a legal latin1 XML char - -isXmlLatin1Char :: Unicode -> Bool -isXmlLatin1Char i - = is1ByteXmlChar i - || - (i >= '\x80' && i <= '\xff') - --- ------------------------------------------------------------ - --- | --- conversion from Unicode strings (UString) to UTF8 encoded strings. - -unicodeToUtf8 :: UString -> UTF8String -unicodeToUtf8 = concatMap unicodeCharToUtf8 - --- | --- conversion from Unicode (Char) to a UTF8 encoded string. - -unicodeCharToUtf8 :: Unicode -> UTF8String -unicodeCharToUtf8 c - | i >= 0 && i <= 0x0000007F -- 1 byte UTF8 (7 bits) - = [ toEnum i ] - | i >= 0x00000080 && i <= 0x000007FF -- 2 byte UTF8 (5 + 6 bits) - = [ toEnum (0xC0 + i `div` 0x40) - , toEnum (0x80 + i `mod` 0x40) - ] - | i >= 0x00000800 && i <= 0x0000FFFF -- 3 byte UTF8 (4 + 6 + 6 bits) - = [ toEnum (0xE0 + i `div` 0x1000) - , toEnum (0x80 + (i `div` 0x40) `mod` 0x40) - , toEnum (0x80 + i `mod` 0x40) - ] - | i >= 0x00010000 && i <= 0x001FFFFF -- 4 byte UTF8 (3 + 6 + 6 + 6 bits) - = [ toEnum (0xF0 + i `div` 0x40000) - , toEnum (0x80 + (i `div` 0x1000) `mod` 0x40) - , toEnum (0x80 + (i `div` 0x40) `mod` 0x40) - , toEnum (0x80 + i `mod` 0x40) - ] - | i >= 0x00200000 && i <= 0x03FFFFFF -- 5 byte UTF8 (2 + 6 + 6 + 6 + 6 bits) - = [ toEnum (0xF8 + i `div` 0x1000000) - , toEnum (0x80 + (i `div` 0x40000) `mod` 0x40) - , toEnum (0x80 + (i `div` 0x1000) `mod` 0x40) - , toEnum (0x80 + (i `div` 0x40) `mod` 0x40) - , toEnum (0x80 + i `mod` 0x40) - ] - | i >= 0x04000000 && i <= 0x7FFFFFFF -- 6 byte UTF8 (1 + 6 + 6 + 6 + 6 + 6 bits) - = [ toEnum (0xFC + i `div` 0x40000000) - , toEnum (0x80 + (i `div` 0x1000000) `mod` 0x40) - , toEnum (0x80 + (i `div` 0x40000) `mod` 0x40) - , toEnum (0x80 + (i `div` 0x1000) `mod` 0x40) - , toEnum (0x80 + (i `div` 0x40) `mod` 0x40) - , toEnum (0x80 + i `mod` 0x40) - ] - | otherwise -- other values not supported - = error ("unicodeCharToUtf8: illegal integer argument " ++ show i) - where - i = fromEnum c - --- ------------------------------------------------------------ - --- | --- checking for valid XML characters - -isXmlChar :: Unicode -> Bool -isXmlChar c - = isInList c - [ ('\x0009', '\x000A') - , ('\x000D', '\x000D') - , ('\x0020', '\xD7FF') - , ('\xE000', '\xFFFD') - , ('\x10000', '\x10FFFF') - ] - --- | --- checking for XML space character: \\\n, \\\r, \\\t and \" \" - -isXmlSpaceChar :: Unicode -> Bool -isXmlSpaceChar c - = c `elem` ['\x20', '\x09', '\x0D', '\x0A'] - --- | --- checking for XML1.1 space character: additional space 0x85 and 0x2028 --- --- see also : 'isXmlSpaceChar' - -isXml11SpaceChar :: Unicode -> Bool -isXml11SpaceChar c - = c `elem` ['\x20', '\x09', '\x0D', '\x0A', '\x85', '\x2028'] - --- | --- checking for XML name character - -isXmlNameChar :: Unicode -> Bool -isXmlNameChar c - = isXmlLetter c - || - isXmlDigit c - || - (c == '\x2D' || c == '\x2E') -- '-' | '.' - || - (c == '\x3A' || c == '\x5F') -- Letter | ':' | '_' - || - isXmlCombiningChar c - || - isXmlExtender c - --- | --- checking for XML name start character --- --- see also : 'isXmlNameChar' - -isXmlNameStartChar :: Unicode -> Bool -isXmlNameStartChar c - = isXmlLetter c - || - (c == '\x3A' || c == '\x5F') -- Letter | ':' | '_' - --- | --- checking for XML NCName character: no \":\" allowed --- --- see also : 'isXmlNameChar' - -isXmlNCNameChar :: Unicode -> Bool -isXmlNCNameChar c - = c /= '\x3A' - && - isXmlNameChar c - --- | --- checking for XML NCName start character: no \":\" allowed --- --- see also : 'isXmlNameChar', 'isXmlNCNameChar' - -isXmlNCNameStartChar :: Unicode -> Bool -isXmlNCNameStartChar c - = c /= '\x3A' - && - isXmlNameStartChar c - --- | --- checking for XML public id character - -isXmlPubidChar :: Unicode -> Bool -isXmlPubidChar c - = isInList c [ ('A', 'Z') - , ('a', 'z') - , ('0', '9') - ] - || - ( c `elem` " \r\n-'()+,./:=?;!*#@$_%" ) - --- | --- checking for XML letter - -isXmlLetter :: Unicode -> Bool -isXmlLetter c - = isXmlBaseChar c - || - isXmlIdeographicChar c - --- | --- checking for XML base charater - -isXmlBaseChar :: Unicode -> Bool -isXmlBaseChar c - = isInList c - [ ('\x0041', '\x005A') - , ('\x0061', '\x007A') - , ('\x00C0', '\x00D6') - , ('\x00D8', '\x00F6') - , ('\x00F8', '\x0131') - , ('\x0134', '\x013E') - , ('\x0141', '\x0148') - , ('\x014A', '\x017E') - , ('\x0180', '\x01C3') - , ('\x01CD', '\x01F0') - , ('\x01F4', '\x01F5') - , ('\x01FA', '\x0217') - , ('\x0250', '\x02A8') - , ('\x02BB', '\x02C1') - , ('\x0386', '\x0386') - , ('\x0388', '\x038A') - , ('\x038C', '\x038C') - , ('\x038E', '\x03A1') - , ('\x03A3', '\x03CE') - , ('\x03D0', '\x03D6') - , ('\x03DA', '\x03DA') - , ('\x03DC', '\x03DC') - , ('\x03DE', '\x03DE') - , ('\x03E0', '\x03E0') - , ('\x03E2', '\x03F3') - , ('\x0401', '\x040C') - , ('\x040E', '\x044F') - , ('\x0451', '\x045C') - , ('\x045E', '\x0481') - , ('\x0490', '\x04C4') - , ('\x04C7', '\x04C8') - , ('\x04CB', '\x04CC') - , ('\x04D0', '\x04EB') - , ('\x04EE', '\x04F5') - , ('\x04F8', '\x04F9') - , ('\x0531', '\x0556') - , ('\x0559', '\x0559') - , ('\x0561', '\x0586') - , ('\x05D0', '\x05EA') - , ('\x05F0', '\x05F2') - , ('\x0621', '\x063A') - , ('\x0641', '\x064A') - , ('\x0671', '\x06B7') - , ('\x06BA', '\x06BE') - , ('\x06C0', '\x06CE') - , ('\x06D0', '\x06D3') - , ('\x06D5', '\x06D5') - , ('\x06E5', '\x06E6') - , ('\x0905', '\x0939') - , ('\x093D', '\x093D') - , ('\x0958', '\x0961') - , ('\x0985', '\x098C') - , ('\x098F', '\x0990') - , ('\x0993', '\x09A8') - , ('\x09AA', '\x09B0') - , ('\x09B2', '\x09B2') - , ('\x09B6', '\x09B9') - , ('\x09DC', '\x09DD') - , ('\x09DF', '\x09E1') - , ('\x09F0', '\x09F1') - , ('\x0A05', '\x0A0A') - , ('\x0A0F', '\x0A10') - , ('\x0A13', '\x0A28') - , ('\x0A2A', '\x0A30') - , ('\x0A32', '\x0A33') - , ('\x0A35', '\x0A36') - , ('\x0A38', '\x0A39') - , ('\x0A59', '\x0A5C') - , ('\x0A5E', '\x0A5E') - , ('\x0A72', '\x0A74') - , ('\x0A85', '\x0A8B') - , ('\x0A8D', '\x0A8D') - , ('\x0A8F', '\x0A91') - , ('\x0A93', '\x0AA8') - , ('\x0AAA', '\x0AB0') - , ('\x0AB2', '\x0AB3') - , ('\x0AB5', '\x0AB9') - , ('\x0ABD', '\x0ABD') - , ('\x0AE0', '\x0AE0') - , ('\x0B05', '\x0B0C') - , ('\x0B0F', '\x0B10') - , ('\x0B13', '\x0B28') - , ('\x0B2A', '\x0B30') - , ('\x0B32', '\x0B33') - , ('\x0B36', '\x0B39') - , ('\x0B3D', '\x0B3D') - , ('\x0B5C', '\x0B5D') - , ('\x0B5F', '\x0B61') - , ('\x0B85', '\x0B8A') - , ('\x0B8E', '\x0B90') - , ('\x0B92', '\x0B95') - , ('\x0B99', '\x0B9A') - , ('\x0B9C', '\x0B9C') - , ('\x0B9E', '\x0B9F') - , ('\x0BA3', '\x0BA4') - , ('\x0BA8', '\x0BAA') - , ('\x0BAE', '\x0BB5') - , ('\x0BB7', '\x0BB9') - , ('\x0C05', '\x0C0C') - , ('\x0C0E', '\x0C10') - , ('\x0C12', '\x0C28') - , ('\x0C2A', '\x0C33') - , ('\x0C35', '\x0C39') - , ('\x0C60', '\x0C61') - , ('\x0C85', '\x0C8C') - , ('\x0C8E', '\x0C90') - , ('\x0C92', '\x0CA8') - , ('\x0CAA', '\x0CB3') - , ('\x0CB5', '\x0CB9') - , ('\x0CDE', '\x0CDE') - , ('\x0CE0', '\x0CE1') - , ('\x0D05', '\x0D0C') - , ('\x0D0E', '\x0D10') - , ('\x0D12', '\x0D28') - , ('\x0D2A', '\x0D39') - , ('\x0D60', '\x0D61') - , ('\x0E01', '\x0E2E') - , ('\x0E30', '\x0E30') - , ('\x0E32', '\x0E33') - , ('\x0E40', '\x0E45') - , ('\x0E81', '\x0E82') - , ('\x0E84', '\x0E84') - , ('\x0E87', '\x0E88') - , ('\x0E8A', '\x0E8A') - , ('\x0E8D', '\x0E8D') - , ('\x0E94', '\x0E97') - , ('\x0E99', '\x0E9F') - , ('\x0EA1', '\x0EA3') - , ('\x0EA5', '\x0EA5') - , ('\x0EA7', '\x0EA7') - , ('\x0EAA', '\x0EAB') - , ('\x0EAD', '\x0EAE') - , ('\x0EB0', '\x0EB0') - , ('\x0EB2', '\x0EB3') - , ('\x0EBD', '\x0EBD') - , ('\x0EC0', '\x0EC4') - , ('\x0F40', '\x0F47') - , ('\x0F49', '\x0F69') - , ('\x10A0', '\x10C5') - , ('\x10D0', '\x10F6') - , ('\x1100', '\x1100') - , ('\x1102', '\x1103') - , ('\x1105', '\x1107') - , ('\x1109', '\x1109') - , ('\x110B', '\x110C') - , ('\x110E', '\x1112') - , ('\x113C', '\x113C') - , ('\x113E', '\x113E') - , ('\x1140', '\x1140') - , ('\x114C', '\x114C') - , ('\x114E', '\x114E') - , ('\x1150', '\x1150') - , ('\x1154', '\x1155') - , ('\x1159', '\x1159') - , ('\x115F', '\x1161') - , ('\x1163', '\x1163') - , ('\x1165', '\x1165') - , ('\x1167', '\x1167') - , ('\x1169', '\x1169') - , ('\x116D', '\x116E') - , ('\x1172', '\x1173') - , ('\x1175', '\x1175') - , ('\x119E', '\x119E') - , ('\x11A8', '\x11A8') - , ('\x11AB', '\x11AB') - , ('\x11AE', '\x11AF') - , ('\x11B7', '\x11B8') - , ('\x11BA', '\x11BA') - , ('\x11BC', '\x11C2') - , ('\x11EB', '\x11EB') - , ('\x11F0', '\x11F0') - , ('\x11F9', '\x11F9') - , ('\x1E00', '\x1E9B') - , ('\x1EA0', '\x1EF9') - , ('\x1F00', '\x1F15') - , ('\x1F18', '\x1F1D') - , ('\x1F20', '\x1F45') - , ('\x1F48', '\x1F4D') - , ('\x1F50', '\x1F57') - , ('\x1F59', '\x1F59') - , ('\x1F5B', '\x1F5B') - , ('\x1F5D', '\x1F5D') - , ('\x1F5F', '\x1F7D') - , ('\x1F80', '\x1FB4') - , ('\x1FB6', '\x1FBC') - , ('\x1FBE', '\x1FBE') - , ('\x1FC2', '\x1FC4') - , ('\x1FC6', '\x1FCC') - , ('\x1FD0', '\x1FD3') - , ('\x1FD6', '\x1FDB') - , ('\x1FE0', '\x1FEC') - , ('\x1FF2', '\x1FF4') - , ('\x1FF6', '\x1FFC') - , ('\x2126', '\x2126') - , ('\x212A', '\x212B') - , ('\x212E', '\x212E') - , ('\x2180', '\x2182') - , ('\x3041', '\x3094') - , ('\x30A1', '\x30FA') - , ('\x3105', '\x312C') - , ('\xAC00', '\xD7A3') - ] - --- | --- checking for XML ideographic charater - -isXmlIdeographicChar :: Unicode -> Bool -isXmlIdeographicChar c - = isInList c - [ ('\x3007', '\x3007') - , ('\x3021', '\x3029') - , ('\x4E00', '\x9FA5') - ] - --- | --- checking for XML combining charater - -isXmlCombiningChar :: Unicode -> Bool -isXmlCombiningChar c - = isInList c - [ ('\x0300', '\x0345') - , ('\x0360', '\x0361') - , ('\x0483', '\x0486') - , ('\x0591', '\x05A1') - , ('\x05A3', '\x05B9') - , ('\x05BB', '\x05BD') - , ('\x05BF', '\x05BF') - , ('\x05C1', '\x05C2') - , ('\x05C4', '\x05C4') - , ('\x064B', '\x0652') - , ('\x0670', '\x0670') - , ('\x06D6', '\x06DC') - , ('\x06DD', '\x06DF') - , ('\x06E0', '\x06E4') - , ('\x06E7', '\x06E8') - , ('\x06EA', '\x06ED') - , ('\x0901', '\x0903') - , ('\x093C', '\x093C') - , ('\x093E', '\x094C') - , ('\x094D', '\x094D') - , ('\x0951', '\x0954') - , ('\x0962', '\x0963') - , ('\x0981', '\x0983') - , ('\x09BC', '\x09BC') - , ('\x09BE', '\x09BE') - , ('\x09BF', '\x09BF') - , ('\x09C0', '\x09C4') - , ('\x09C7', '\x09C8') - , ('\x09CB', '\x09CD') - , ('\x09D7', '\x09D7') - , ('\x09E2', '\x09E3') - , ('\x0A02', '\x0A02') - , ('\x0A3C', '\x0A3C') - , ('\x0A3E', '\x0A3E') - , ('\x0A3F', '\x0A3F') - , ('\x0A40', '\x0A42') - , ('\x0A47', '\x0A48') - , ('\x0A4B', '\x0A4D') - , ('\x0A70', '\x0A71') - , ('\x0A81', '\x0A83') - , ('\x0ABC', '\x0ABC') - , ('\x0ABE', '\x0AC5') - , ('\x0AC7', '\x0AC9') - , ('\x0ACB', '\x0ACD') - , ('\x0B01', '\x0B03') - , ('\x0B3C', '\x0B3C') - , ('\x0B3E', '\x0B43') - , ('\x0B47', '\x0B48') - , ('\x0B4B', '\x0B4D') - , ('\x0B56', '\x0B57') - , ('\x0B82', '\x0B83') - , ('\x0BBE', '\x0BC2') - , ('\x0BC6', '\x0BC8') - , ('\x0BCA', '\x0BCD') - , ('\x0BD7', '\x0BD7') - , ('\x0C01', '\x0C03') - , ('\x0C3E', '\x0C44') - , ('\x0C46', '\x0C48') - , ('\x0C4A', '\x0C4D') - , ('\x0C55', '\x0C56') - , ('\x0C82', '\x0C83') - , ('\x0CBE', '\x0CC4') - , ('\x0CC6', '\x0CC8') - , ('\x0CCA', '\x0CCD') - , ('\x0CD5', '\x0CD6') - , ('\x0D02', '\x0D03') - , ('\x0D3E', '\x0D43') - , ('\x0D46', '\x0D48') - , ('\x0D4A', '\x0D4D') - , ('\x0D57', '\x0D57') - , ('\x0E31', '\x0E31') - , ('\x0E34', '\x0E3A') - , ('\x0E47', '\x0E4E') - , ('\x0EB1', '\x0EB1') - , ('\x0EB4', '\x0EB9') - , ('\x0EBB', '\x0EBC') - , ('\x0EC8', '\x0ECD') - , ('\x0F18', '\x0F19') - , ('\x0F35', '\x0F35') - , ('\x0F37', '\x0F37') - , ('\x0F39', '\x0F39') - , ('\x0F3E', '\x0F3E') - , ('\x0F3F', '\x0F3F') - , ('\x0F71', '\x0F84') - , ('\x0F86', '\x0F8B') - , ('\x0F90', '\x0F95') - , ('\x0F97', '\x0F97') - , ('\x0F99', '\x0FAD') - , ('\x0FB1', '\x0FB7') - , ('\x0FB9', '\x0FB9') - , ('\x20D0', '\x20DC') - , ('\x20E1', '\x20E1') - , ('\x302A', '\x302F') - , ('\x3099', '\x3099') - , ('\x309A', '\x309A') - ] - --- | --- checking for XML digit - -isXmlDigit :: Unicode -> Bool -isXmlDigit c - = isInList c - [ ('\x0030', '\x0039') - , ('\x0660', '\x0669') - , ('\x06F0', '\x06F9') - , ('\x0966', '\x096F') - , ('\x09E6', '\x09EF') - , ('\x0A66', '\x0A6F') - , ('\x0AE6', '\x0AEF') - , ('\x0B66', '\x0B6F') - , ('\x0BE7', '\x0BEF') - , ('\x0C66', '\x0C6F') - , ('\x0CE6', '\x0CEF') - , ('\x0D66', '\x0D6F') - , ('\x0E50', '\x0E59') - , ('\x0ED0', '\x0ED9') - , ('\x0F20', '\x0F29') - ] - --- | --- checking for XML extender - -isXmlExtender :: Unicode -> Bool -isXmlExtender c - = isInList c - [ ('\x00B7', '\x00B7') - , ('\x02D0', '\x02D0') - , ('\x02D1', '\x02D1') - , ('\x0387', '\x0387') - , ('\x0640', '\x0640') - , ('\x0E46', '\x0E46') - , ('\x0EC6', '\x0EC6') - , ('\x3005', '\x3005') - , ('\x3031', '\x3035') - , ('\x309D', '\x309E') - , ('\x30FC', '\x30FE') - ] - --- | --- checking for XML control or permanently discouraged char --- --- see Errata to XML1.0 (http:\/\/www.w3.org\/XML\/xml-V10-2e-errata) No 46 --- --- Document authors are encouraged to avoid "compatibility characters", --- as defined in section 6.8 of [Unicode] (see also D21 in section 3.6 of [Unicode3]). --- The characters defined in the following ranges are also discouraged. --- They are either control characters or permanently undefined Unicode characters: - - -isXmlControlOrPermanentlyUndefined :: Unicode -> Bool -isXmlControlOrPermanentlyUndefined c - = isInList c - [ ('\x7F', '\x84') - , ('\x86', '\x9F') - , ('\xFDD0', '\xFDDF') - , ('\x1FFFE', '\x1FFFF') - , ('\x2FFFE', '\x2FFFF') - , ('\x3FFFE', '\x3FFFF') - , ('\x4FFFE', '\x4FFFF') - , ('\x5FFFE', '\x5FFFF') - , ('\x6FFFE', '\x6FFFF') - , ('\x7FFFE', '\x7FFFF') - , ('\x8FFFE', '\x8FFFF') - , ('\x9FFFE', '\x9FFFF') - , ('\xAFFFE', '\xAFFFF') - , ('\xBFFFE', '\xBFFFF') - , ('\xCFFFE', '\xCFFFF') - , ('\xDFFFE', '\xDFFFF') - , ('\xEFFFE', '\xEFFFF') - , ('\xFFFFE', '\xFFFFF') - , ('\x10FFFE', '\x10FFFF') - ] - --- ------------------------------------------------------------ - -isInList :: Unicode -> [(Unicode, Unicode)] -> Bool -isInList i = - foldr (\(lb, ub) b -> i >= lb && (i <= ub || b)) False - {- The expression (i>=lb && i<=ub) || b would work more generally, - but in a sorted list, the above one aborts the computation as early as possible. -} - -{- -isInList' :: Unicode -> [(Unicode, Unicode)] -> Bool -isInList' i ((lb, ub) : l) - | i < lb = False - | i <= ub = True - | otherwise = isInList' i l - -isInList' _ [] - = False - -{- works, but is not so fast -} -isInList'' :: Unicode -> [(Unicode, Unicode)] -> Bool -isInList'' i = any (flip isInRange i) - --- move to an Utility module? -isInRange :: Ord a => (a,a) -> a -> Bool -isInRange (l,r) x = l<=x && x<=r - -propIsInList :: Bool -propIsInList = - all - (\c -> let dict = [ ('\x0041', '\x005A'), ('\x0061', '\x007A') ] - b0 = isInList c dict - b1 = isInList' c dict - b2 = isInList'' c dict - in b0 == b1 && b0 == b2) - ['\x00'..'\x100'] --} - --- ------------------------------------------------------------ - --- | --- code conversion from latin1 to Unicode - -latin1ToUnicode :: String -> UString -latin1ToUnicode = id - -latinToUnicode :: [(Char, Char)] -> String -> UString -latinToUnicode tt - = map charToUni - where - charToUni c = - foldr (\(src,dst) r -> - case compare c src of - EQ -> dst - LT -> c {- not found in table -} - GT -> r) c tt - --- | conversion from ASCII to unicode with check for legal ASCII char set --- --- Structure of decoding function copied from 'Data.Char.UTF8.decode'. - -decodeAscii :: DecodingFct -decodeAscii - = swap . partitionEither . decodeAsciiEmbedErrors - -decodeAsciiEmbedErrors :: String -> UStringWithErrors -decodeAsciiEmbedErrors str - = map (\(c,pos) -> if isValid c - then Right c - else Left (toErrStr c pos)) posStr - where - posStr = zip str [(0::Int)..] - toErrStr errChr pos - = " at input position " ++ show pos ++ ": none ASCII char " ++ show errChr - isValid x = x < '\x80' - --- | --- UCS-2 big endian to Unicode conversion - -ucs2BigEndianToUnicode :: String -> UString - -ucs2BigEndianToUnicode (b : l : r) - = toEnum (fromEnum b * 256 + fromEnum l) : ucs2BigEndianToUnicode r - -ucs2BigEndianToUnicode [] - = [] - -ucs2BigEndianToUnicode _ - = [] -- error "illegal UCS-2 byte input sequence with odd length" - -- is ignored (garbage in, garbage out) - --- ------------------------------------------------------------ - --- | --- UCS-2 little endian to Unicode conversion - -ucs2LittleEndianToUnicode :: String -> UString - -ucs2LittleEndianToUnicode (l : b : r) - = toEnum (fromEnum b * 256 + fromEnum l) : ucs2LittleEndianToUnicode r - -ucs2LittleEndianToUnicode [] - = [] - -ucs2LittleEndianToUnicode [_] - = [] -- error "illegal UCS-2 byte input sequence with odd length" - -- is ignored - --- ------------------------------------------------------------ - --- | --- UCS-2 to UTF-8 conversion with byte order mark analysis - -ucs2ToUnicode :: String -> UString - -ucs2ToUnicode ('\xFE':'\xFF':s) -- 2 byte mark for big endian encoding - = ucs2BigEndianToUnicode s - -ucs2ToUnicode ('\xFF':'\xFE':s) -- 2 byte mark for little endian encoding - = ucs2LittleEndianToUnicode s - -ucs2ToUnicode s - = ucs2BigEndianToUnicode s -- default: big endian - --- ------------------------------------------------------------ - --- | --- UTF-8 to Unicode conversion with deletion of leading byte order mark, as described in XML standard F.1 - -utf8ToUnicode :: DecodingFct - -utf8ToUnicode ('\xEF':'\xBB':'\xBF':s) -- remove byte order mark ( XML standard F.1 ) - = decodeUtf8 s - -utf8ToUnicode s - = decodeUtf8 s - -utf8ToUnicodeEmbedErrors :: DecodingFctEmbedErrors - -utf8ToUnicodeEmbedErrors ('\xEF':'\xBB':'\xBF':s) -- remove byte order mark ( XML standard F.1 ) - = decodeUtf8EmbedErrors s - -utf8ToUnicodeEmbedErrors s - = decodeUtf8EmbedErrors s - --- ------------------------------------------------------------ - --- | --- UTF-16 big endian to UTF-8 conversion with removal of byte order mark - -utf16beToUnicode :: String -> UString - -utf16beToUnicode ('\xFE':'\xFF':s) -- remove byte order mark - = ucs2BigEndianToUnicode s - -utf16beToUnicode s - = ucs2BigEndianToUnicode s - --- ------------------------------------------------------------ - --- | --- UTF-16 little endian to UTF-8 conversion with removal of byte order mark - -utf16leToUnicode :: String -> UString - -utf16leToUnicode ('\xFF':'\xFE':s) -- remove byte order mark - = ucs2LittleEndianToUnicode s - -utf16leToUnicode s - = ucs2LittleEndianToUnicode s - - --- ------------------------------------------------------------ - --- | --- substitute all Unicode characters, that are not legal 1-byte --- UTF-8 XML characters by a character reference. --- --- This function can be used to translate all text nodes and --- attribute values into pure ascii. --- --- see also : 'unicodeToLatin1' - -unicodeToXmlEntity :: UString -> String -unicodeToXmlEntity - = escape is1ByteXmlChar (intToCharRef . fromEnum) - --- | --- substitute all Unicode characters, that are not legal latin1 --- UTF-8 XML characters by a character reference. --- --- This function can be used to translate all text nodes and --- attribute values into ISO latin1. --- --- see also : 'unicodeToXmlEntity' - -unicodeToLatin1 :: UString -> String -unicodeToLatin1 - = escape isXmlLatin1Char (intToCharRef . fromEnum) - - --- | --- substitute selected characters --- The @check@ function returns 'True' whenever a character needs to substitution --- The function @esc@ computes a substitute. -escape :: (Unicode -> Bool) -> (Unicode -> String) -> UString -> String -escape check esc = - concatMap (\uc -> if check uc then [uc] else esc uc) - --- | --- removes all non ascii chars, may be used to transform --- a document into a pure ascii representation by removing --- all non ascii chars from tag and attibute names --- --- see also : 'unicodeRemoveNoneLatin1', 'unicodeToXmlEntity' - -unicodeRemoveNoneAscii :: UString -> String -unicodeRemoveNoneAscii - = filter is1ByteXmlChar - --- | --- removes all non latin1 chars, may be used to transform --- a document into a pure ascii representation by removing --- all non ascii chars from tag and attibute names --- --- see also : 'unicodeRemoveNoneAscii', 'unicodeToLatin1' - -unicodeRemoveNoneLatin1 :: UString -> String -unicodeRemoveNoneLatin1 - = filter isXmlLatin1Char - --- ------------------------------------------------------------ - --- | --- convert an Unicode into a XML character reference. --- --- see also : 'intToCharRefHex' - -intToCharRef :: Int -> String -intToCharRef i - = "&#" ++ show i ++ ";" - --- | --- convert an Unicode into a XML hexadecimal character reference. --- --- see also: 'intToCharRef' - -intToCharRefHex :: Int -> String -intToCharRefHex i - = "&#x" ++ h2 ++ ";" - where - h1 = intToHexString i - h2 = if length h1 `mod` 2 == 1 - then '0': h1 - else h1 - --- ------------------------------------------------------------ --- --- | White Space (XML Standard 2.3) and --- end of line handling (2.11) --- --- \#x0D and \#x0D\#x0A are mapped to \#x0A - -normalizeNL :: String -> String -normalizeNL ('\r' : '\n' : rest) = '\n' : normalizeNL rest -normalizeNL ('\r' : rest) = '\n' : normalizeNL rest -normalizeNL (c : rest) = c : normalizeNL rest -normalizeNL [] = [] - - --- ------------------------------------------------------------ - --- | --- the table of supported character encoding schemes and the associated --- conversion functions into Unicode:q - -{- -This table could be derived from decodingTableEither, -but this way it is certainly more efficient. --} - -decodingTable :: [(String, DecodingFct)] -decodingTable - = [ (utf8, utf8ToUnicode ) - , (isoLatin1, liftDecFct latin1ToUnicode ) - , (usAscii, decodeAscii ) - , (ucs2, liftDecFct ucs2ToUnicode ) - , (utf16, liftDecFct ucs2ToUnicode ) - , (utf16be, liftDecFct utf16beToUnicode ) - , (utf16le, liftDecFct utf16leToUnicode ) - , (iso8859_2, liftDecFct (latinToUnicode iso_8859_2) ) - , (iso8859_3, liftDecFct (latinToUnicode iso_8859_3) ) - , (iso8859_4, liftDecFct (latinToUnicode iso_8859_4) ) - , (iso8859_5, liftDecFct (latinToUnicode iso_8859_5) ) - , (iso8859_6, liftDecFct (latinToUnicode iso_8859_6) ) - , (iso8859_7, liftDecFct (latinToUnicode iso_8859_7) ) - , (iso8859_8, liftDecFct (latinToUnicode iso_8859_8) ) - , (iso8859_9, liftDecFct (latinToUnicode iso_8859_9) ) - , (iso8859_10, liftDecFct (latinToUnicode iso_8859_10) ) - , (iso8859_11, liftDecFct (latinToUnicode iso_8859_11) ) - , (iso8859_13, liftDecFct (latinToUnicode iso_8859_13) ) - , (iso8859_14, liftDecFct (latinToUnicode iso_8859_14) ) - , (iso8859_15, liftDecFct (latinToUnicode iso_8859_15) ) - , (iso8859_16, liftDecFct (latinToUnicode iso_8859_16) ) - , (unicodeString, liftDecFct id ) - , ("", liftDecFct id ) -- default - ] - where - liftDecFct df = \ s -> (df s, []) - --- | --- the lookup function for selecting the decoding function - -getDecodingFct :: String -> Maybe DecodingFct -getDecodingFct enc - = lookup (map toUpper enc) decodingTable - - --- | --- Similar to 'decodingTable' but it embeds errors --- in the string of decoded characters. - -decodingTableEmbedErrors :: [(String, DecodingFctEmbedErrors)] -decodingTableEmbedErrors - = [ (utf8, utf8ToUnicodeEmbedErrors ) - , (isoLatin1, liftDecFct latin1ToUnicode ) - , (usAscii, decodeAsciiEmbedErrors ) - , (ucs2, liftDecFct ucs2ToUnicode ) - , (utf16, liftDecFct ucs2ToUnicode ) - , (utf16be, liftDecFct utf16beToUnicode ) - , (utf16le, liftDecFct utf16leToUnicode ) - , (iso8859_2, liftDecFct (latinToUnicode iso_8859_2) ) - , (iso8859_3, liftDecFct (latinToUnicode iso_8859_3) ) - , (iso8859_4, liftDecFct (latinToUnicode iso_8859_4) ) - , (iso8859_5, liftDecFct (latinToUnicode iso_8859_5) ) - , (iso8859_6, liftDecFct (latinToUnicode iso_8859_6) ) - , (iso8859_7, liftDecFct (latinToUnicode iso_8859_7) ) - , (iso8859_8, liftDecFct (latinToUnicode iso_8859_8) ) - , (iso8859_9, liftDecFct (latinToUnicode iso_8859_9) ) - , (iso8859_10, liftDecFct (latinToUnicode iso_8859_10) ) - , (iso8859_11, liftDecFct (latinToUnicode iso_8859_11) ) - , (iso8859_13, liftDecFct (latinToUnicode iso_8859_13) ) - , (iso8859_14, liftDecFct (latinToUnicode iso_8859_14) ) - , (iso8859_15, liftDecFct (latinToUnicode iso_8859_15) ) - , (iso8859_16, liftDecFct (latinToUnicode iso_8859_16) ) - , (unicodeString, liftDecFct id ) - , ("", liftDecFct id ) -- default - ] - where - liftDecFct df = map Right . df - --- | --- the lookup function for selecting the decoding function - -getDecodingFctEmbedErrors :: String -> Maybe DecodingFctEmbedErrors -getDecodingFctEmbedErrors enc - = lookup (map toUpper enc) decodingTableEmbedErrors - - - --- | --- the table of supported output encoding schemes and the associated --- conversion functions from Unicode - -outputEncodingTable :: [(String, (UString -> String))] -outputEncodingTable - = [ (utf8, unicodeToUtf8 ) - , (isoLatin1, unicodeToLatin1 ) - , (usAscii, unicodeToXmlEntity ) - , (ucs2, ucs2ToUnicode ) - , ("", unicodeToUtf8 ) -- default - ] - --- | --- the lookup function for selecting the encoding function - -getOutputEncodingFct :: String -> Maybe (String -> UString) -getOutputEncodingFct enc - = lookup (map toUpper enc) outputEncodingTable - --- ------------------------------------------------------------ --- - -guessEncoding :: String -> String - -guessEncoding ('\xFF':'\xFE':'\x00':'\x00':_) = "UCS-4LE" -- with byte order mark -guessEncoding ('\xFF':'\xFE':_) = "UTF-16LE" -- with byte order mark - -guessEncoding ('\xFE':'\xFF':'\x00':'\x00':_) = "UCS-4-3421" -- with byte order mark -guessEncoding ('\xFE':'\xFF':_) = "UTF-16BE" -- with byte order mark - -guessEncoding ('\xEF':'\xBB':'\xBF':_) = utf8 -- with byte order mark - -guessEncoding ('\x00':'\x00':'\xFE':'\xFF':_) = "UCS-4BE" -- with byte order mark -guessEncoding ('\x00':'\x00':'\xFF':'\xFE':_) = "UCS-4-2143" -- with byte order mark - -guessEncoding ('\x00':'\x00':'\x00':'\x3C':_) = "UCS-4BE" -- "<" of "<?xml" -guessEncoding ('\x3C':'\x00':'\x00':'\x00':_) = "UCS-4LE" -- "<" of "<?xml" -guessEncoding ('\x00':'\x00':'\x3C':'\x00':_) = "UCS-4-2143" -- "<" of "<?xml" -guessEncoding ('\x00':'\x3C':'\x00':'\x00':_) = "UCS-4-3412" -- "<" of "<?xml" - -guessEncoding ('\x00':'\x3C':'\x00':'\x3F':_) = "UTF-16BE" -- "<?" of "<?xml" -guessEncoding ('\x3C':'\x00':'\x3F':'\x00':_) = "UTF-16LE" -- "<?" of "<?xml" - -guessEncoding ('\x4C':'\x6F':'\xA7':'\x94':_) = "EBCDIC" -- "<?xm" of "<?xml" - -guessEncoding _ = "" -- no guess - --- ------------------------------------------------------------ + Copyright : Copyright (C) 2005-2008 Uwe Schmidt + License : MIT + + Maintainer : Uwe Schmidt (uwe@fh-wedel.de) + Stability : experimental + Portability: portable + + Unicode and UTF-8 Conversion Functions + +-} + +-- ------------------------------------------------------------ + +module Text.XML.HXT.DOM.Unicode + ( + -- * Unicode Type declarations + Unicode, + UString, + UTF8Char, + UTF8String, + UStringWithErrors, + DecodingFct, + DecodingFctEmbedErrors, + + -- * XML char predicates + + isXmlChar + , isXmlLatin1Char + , isXmlSpaceChar + , isXml11SpaceChar + , isXmlNameChar + , isXmlNameStartChar + , isXmlNCNameChar + , isXmlNCNameStartChar + , isXmlPubidChar + , isXmlLetter + , isXmlBaseChar + , isXmlIdeographicChar + , isXmlCombiningChar + , isXmlDigit + , isXmlExtender + , isXmlControlOrPermanentlyUndefined + + -- * UTF-8 and Unicode conversion functions + , utf8ToUnicode + , utf8ToUnicodeEmbedErrors + , latin1ToUnicode + , ucs2ToUnicode + , ucs2BigEndianToUnicode + , ucs2LittleEndianToUnicode + , utf16beToUnicode + , utf16leToUnicode + + , unicodeCharToUtf8 + + , unicodeToUtf8 + , unicodeToXmlEntity + , unicodeToLatin1 + , unicodeRemoveNoneAscii + , unicodeRemoveNoneLatin1 + + , intToCharRef + , intToCharRefHex + + , getDecodingFct + , getDecodingFctEmbedErrors + , getOutputEncodingFct + + , normalizeNL + , guessEncoding + ) +where + +import Data.Char( toUpper ) + +import Text.XML.HXT.DOM.Util ( swap, partitionEither ) + +import Text.XML.HXT.DOM.IsoLatinTables +import Text.XML.HXT.DOM.UTF8Decoding ( decodeUtf8, decodeUtf8EmbedErrors ) +import Text.XML.HXT.DOM.Util ( intToHexString ) +import Text.XML.HXT.DOM.XmlKeywords + +-- ------------------------------------------------------------ + +-- | Unicode is represented as the Char type +-- Precondition for this is the support of Unicode character range +-- in the compiler (e.g. ghc but not hugs) + +type Unicode = Char + +-- | the type for Unicode strings + +type UString = [Unicode] + +-- | UTF-8 charachters are represented by the Char type + +type UTF8Char = Char + +-- | UTF-8 strings are implemented as Haskell strings + +type UTF8String = String + +-- | Decoding function with a pair containing the result string and a list of decoding errors as result + +type DecodingFct = String -> (UString, [String]) + +type UStringWithErrors = [Either String Char] + +-- | Decoding function where decoding errors are interleaved with decoded characters + +type DecodingFctEmbedErrors = String -> UStringWithErrors + +-- ------------------------------------------------------------ +-- +-- Unicode predicates + +-- | +-- test for a legal 1 byte XML char + +is1ByteXmlChar :: Unicode -> Bool +is1ByteXmlChar c + = c < '\x80' + && ( c >= ' ' + || + c == '\n' + || + c == '\t' + || + c == '\r' + ) + +-- | +-- test for a legal latin1 XML char + +isXmlLatin1Char :: Unicode -> Bool +isXmlLatin1Char i + = is1ByteXmlChar i + || + (i >= '\x80' && i <= '\xff') + +-- ------------------------------------------------------------ + +-- | +-- conversion from Unicode strings (UString) to UTF8 encoded strings. + +unicodeToUtf8 :: UString -> UTF8String +unicodeToUtf8 = concatMap unicodeCharToUtf8 + +-- | +-- conversion from Unicode (Char) to a UTF8 encoded string. + +unicodeCharToUtf8 :: Unicode -> UTF8String +unicodeCharToUtf8 c + | i >= 0 && i <= 0x0000007F -- 1 byte UTF8 (7 bits) + = [ toEnum i ] + | i >= 0x00000080 && i <= 0x000007FF -- 2 byte UTF8 (5 + 6 bits) + = [ toEnum (0xC0 + i `div` 0x40) + , toEnum (0x80 + i `mod` 0x40) + ] + | i >= 0x00000800 && i <= 0x0000FFFF -- 3 byte UTF8 (4 + 6 + 6 bits) + = [ toEnum (0xE0 + i `div` 0x1000) + , toEnum (0x80 + (i `div` 0x40) `mod` 0x40) + , toEnum (0x80 + i `mod` 0x40) + ] + | i >= 0x00010000 && i <= 0x001FFFFF -- 4 byte UTF8 (3 + 6 + 6 + 6 bits) + = [ toEnum (0xF0 + i `div` 0x40000) + , toEnum (0x80 + (i `div` 0x1000) `mod` 0x40) + , toEnum (0x80 + (i `div` 0x40) `mod` 0x40) + , toEnum (0x80 + i `mod` 0x40) + ] + | i >= 0x00200000 && i <= 0x03FFFFFF -- 5 byte UTF8 (2 + 6 + 6 + 6 + 6 bits) + = [ toEnum (0xF8 + i `div` 0x1000000) + , toEnum (0x80 + (i `div` 0x40000) `mod` 0x40) + , toEnum (0x80 + (i `div` 0x1000) `mod` 0x40) + , toEnum (0x80 + (i `div` 0x40) `mod` 0x40) + , toEnum (0x80 + i `mod` 0x40) + ] + | i >= 0x04000000 && i <= 0x7FFFFFFF -- 6 byte UTF8 (1 + 6 + 6 + 6 + 6 + 6 bits) + = [ toEnum (0xFC + i `div` 0x40000000) + , toEnum (0x80 + (i `div` 0x1000000) `mod` 0x40) + , toEnum (0x80 + (i `div` 0x40000) `mod` 0x40) + , toEnum (0x80 + (i `div` 0x1000) `mod` 0x40) + , toEnum (0x80 + (i `div` 0x40) `mod` 0x40) + , toEnum (0x80 + i `mod` 0x40) + ] + | otherwise -- other values not supported + = error ("unicodeCharToUtf8: illegal integer argument " ++ show i) + where + i = fromEnum c + +-- ------------------------------------------------------------ + +-- | +-- checking for valid XML characters + +isXmlChar :: Unicode -> Bool +isXmlChar c + = isInList c + [ ('\x0009', '\x000A') + , ('\x000D', '\x000D') + , ('\x0020', '\xD7FF') + , ('\xE000', '\xFFFD') + , ('\x10000', '\x10FFFF') + ] + +-- | +-- checking for XML space character: \\\n, \\\r, \\\t and \" \" + +isXmlSpaceChar :: Unicode -> Bool +isXmlSpaceChar c + = c `elem` ['\x20', '\x09', '\x0D', '\x0A'] + +-- | +-- checking for XML1.1 space character: additional space 0x85 and 0x2028 +-- +-- see also : 'isXmlSpaceChar' + +isXml11SpaceChar :: Unicode -> Bool +isXml11SpaceChar c + = c `elem` ['\x20', '\x09', '\x0D', '\x0A', '\x85', '\x2028'] + +-- | +-- checking for XML name character + +isXmlNameChar :: Unicode -> Bool +isXmlNameChar c + = isXmlLetter c + || + isXmlDigit c + || + (c == '\x2D' || c == '\x2E') -- '-' | '.' + || + (c == '\x3A' || c == '\x5F') -- Letter | ':' | '_' + || + isXmlCombiningChar c + || + isXmlExtender c + +-- | +-- checking for XML name start character +-- +-- see also : 'isXmlNameChar' + +isXmlNameStartChar :: Unicode -> Bool +isXmlNameStartChar c + = isXmlLetter c + || + (c == '\x3A' || c == '\x5F') -- Letter | ':' | '_' + +-- | +-- checking for XML NCName character: no \":\" allowed +-- +-- see also : 'isXmlNameChar' + +isXmlNCNameChar :: Unicode -> Bool +isXmlNCNameChar c + = c /= '\x3A' + && + isXmlNameChar c + +-- | +-- checking for XML NCName start character: no \":\" allowed +-- +-- see also : 'isXmlNameChar', 'isXmlNCNameChar' + +isXmlNCNameStartChar :: Unicode -> Bool +isXmlNCNameStartChar c + = c /= '\x3A' + && + isXmlNameStartChar c + +-- | +-- checking for XML public id character + +isXmlPubidChar :: Unicode -> Bool +isXmlPubidChar c + = isInList c [ ('0', '9') + , ('A', 'Z') + , ('a', 'z') + ] + || + ( c `elem` " \r\n-'()+,./:=?;!*#@$_%" ) + +-- | +-- checking for XML letter + +isXmlLetter :: Unicode -> Bool +isXmlLetter c + = isXmlBaseChar c + || + isXmlIdeographicChar c + +-- | +-- checking for XML base charater + +isXmlBaseChar :: Unicode -> Bool +isXmlBaseChar c + = isInList c + [ ('\x0041', '\x005A') + , ('\x0061', '\x007A') + , ('\x00C0', '\x00D6') + , ('\x00D8', '\x00F6') + , ('\x00F8', '\x0131') + , ('\x0134', '\x013E') + , ('\x0141', '\x0148') + , ('\x014A', '\x017E') + , ('\x0180', '\x01C3') + , ('\x01CD', '\x01F0') + , ('\x01F4', '\x01F5') + , ('\x01FA', '\x0217') + , ('\x0250', '\x02A8') + , ('\x02BB', '\x02C1') + , ('\x0386', '\x0386') + , ('\x0388', '\x038A') + , ('\x038C', '\x038C') + , ('\x038E', '\x03A1') + , ('\x03A3', '\x03CE') + , ('\x03D0', '\x03D6') + , ('\x03DA', '\x03DA') + , ('\x03DC', '\x03DC') + , ('\x03DE', '\x03DE') + , ('\x03E0', '\x03E0') + , ('\x03E2', '\x03F3') + , ('\x0401', '\x040C') + , ('\x040E', '\x044F') + , ('\x0451', '\x045C') + , ('\x045E', '\x0481') + , ('\x0490', '\x04C4') + , ('\x04C7', '\x04C8') + , ('\x04CB', '\x04CC') + , ('\x04D0', '\x04EB') + , ('\x04EE', '\x04F5') + , ('\x04F8', '\x04F9') + , ('\x0531', '\x0556') + , ('\x0559', '\x0559') + , ('\x0561', '\x0586') + , ('\x05D0', '\x05EA') + , ('\x05F0', '\x05F2') + , ('\x0621', '\x063A') + , ('\x0641', '\x064A') + , ('\x0671', '\x06B7') + , ('\x06BA', '\x06BE') + , ('\x06C0', '\x06CE') + , ('\x06D0', '\x06D3') + , ('\x06D5', '\x06D5') + , ('\x06E5', '\x06E6') + , ('\x0905', '\x0939') + , ('\x093D', '\x093D') + , ('\x0958', '\x0961') + , ('\x0985', '\x098C') + , ('\x098F', '\x0990') + , ('\x0993', '\x09A8') + , ('\x09AA', '\x09B0') + , ('\x09B2', '\x09B2') + , ('\x09B6', '\x09B9') + , ('\x09DC', '\x09DD') + , ('\x09DF', '\x09E1') + , ('\x09F0', '\x09F1') + , ('\x0A05', '\x0A0A') + , ('\x0A0F', '\x0A10') + , ('\x0A13', '\x0A28') + , ('\x0A2A', '\x0A30') + , ('\x0A32', '\x0A33') + , ('\x0A35', '\x0A36') + , ('\x0A38', '\x0A39') + , ('\x0A59', '\x0A5C') + , ('\x0A5E', '\x0A5E') + , ('\x0A72', '\x0A74') + , ('\x0A85', '\x0A8B') + , ('\x0A8D', '\x0A8D') + , ('\x0A8F', '\x0A91') + , ('\x0A93', '\x0AA8') + , ('\x0AAA', '\x0AB0') + , ('\x0AB2', '\x0AB3') + , ('\x0AB5', '\x0AB9') + , ('\x0ABD', '\x0ABD') + , ('\x0AE0', '\x0AE0') + , ('\x0B05', '\x0B0C') + , ('\x0B0F', '\x0B10') + , ('\x0B13', '\x0B28') + , ('\x0B2A', '\x0B30') + , ('\x0B32', '\x0B33') + , ('\x0B36', '\x0B39') + , ('\x0B3D', '\x0B3D') + , ('\x0B5C', '\x0B5D') + , ('\x0B5F', '\x0B61') + , ('\x0B85', '\x0B8A') + , ('\x0B8E', '\x0B90') + , ('\x0B92', '\x0B95') + , ('\x0B99', '\x0B9A') + , ('\x0B9C', '\x0B9C') + , ('\x0B9E', '\x0B9F') + , ('\x0BA3', '\x0BA4') + , ('\x0BA8', '\x0BAA') + , ('\x0BAE', '\x0BB5') + , ('\x0BB7', '\x0BB9') + , ('\x0C05', '\x0C0C') + , ('\x0C0E', '\x0C10') + , ('\x0C12', '\x0C28') + , ('\x0C2A', '\x0C33') + , ('\x0C35', '\x0C39') + , ('\x0C60', '\x0C61') + , ('\x0C85', '\x0C8C') + , ('\x0C8E', '\x0C90') + , ('\x0C92', '\x0CA8') + , ('\x0CAA', '\x0CB3') + , ('\x0CB5', '\x0CB9') + , ('\x0CDE', '\x0CDE') + , ('\x0CE0', '\x0CE1') + , ('\x0D05', '\x0D0C') + , ('\x0D0E', '\x0D10') + , ('\x0D12', '\x0D28') + , ('\x0D2A', '\x0D39') + , ('\x0D60', '\x0D61') + , ('\x0E01', '\x0E2E') + , ('\x0E30', '\x0E30') + , ('\x0E32', '\x0E33') + , ('\x0E40', '\x0E45') + , ('\x0E81', '\x0E82') + , ('\x0E84', '\x0E84') + , ('\x0E87', '\x0E88') + , ('\x0E8A', '\x0E8A') + , ('\x0E8D', '\x0E8D') + , ('\x0E94', '\x0E97') + , ('\x0E99', '\x0E9F') + , ('\x0EA1', '\x0EA3') + , ('\x0EA5', '\x0EA5') + , ('\x0EA7', '\x0EA7') + , ('\x0EAA', '\x0EAB') + , ('\x0EAD', '\x0EAE') + , ('\x0EB0', '\x0EB0') + , ('\x0EB2', '\x0EB3') + , ('\x0EBD', '\x0EBD') + , ('\x0EC0', '\x0EC4') + , ('\x0F40', '\x0F47') + , ('\x0F49', '\x0F69') + , ('\x10A0', '\x10C5') + , ('\x10D0', '\x10F6') + , ('\x1100', '\x1100') + , ('\x1102', '\x1103') + , ('\x1105', '\x1107') + , ('\x1109', '\x1109') + , ('\x110B', '\x110C') + , ('\x110E', '\x1112') + , ('\x113C', '\x113C') + , ('\x113E', '\x113E') + , ('\x1140', '\x1140') + , ('\x114C', '\x114C') + , ('\x114E', '\x114E') + , ('\x1150', '\x1150') + , ('\x1154', '\x1155') + , ('\x1159', '\x1159') + , ('\x115F', '\x1161') + , ('\x1163', '\x1163') + , ('\x1165', '\x1165') + , ('\x1167', '\x1167') + , ('\x1169', '\x1169') + , ('\x116D', '\x116E') + , ('\x1172', '\x1173') + , ('\x1175', '\x1175') + , ('\x119E', '\x119E') + , ('\x11A8', '\x11A8') + , ('\x11AB', '\x11AB') + , ('\x11AE', '\x11AF') + , ('\x11B7', '\x11B8') + , ('\x11BA', '\x11BA') + , ('\x11BC', '\x11C2') + , ('\x11EB', '\x11EB') + , ('\x11F0', '\x11F0') + , ('\x11F9', '\x11F9') + , ('\x1E00', '\x1E9B') + , ('\x1EA0', '\x1EF9') + , ('\x1F00', '\x1F15') + , ('\x1F18', '\x1F1D') + , ('\x1F20', '\x1F45') + , ('\x1F48', '\x1F4D') + , ('\x1F50', '\x1F57') + , ('\x1F59', '\x1F59') + , ('\x1F5B', '\x1F5B') + , ('\x1F5D', '\x1F5D') + , ('\x1F5F', '\x1F7D') + , ('\x1F80', '\x1FB4') + , ('\x1FB6', '\x1FBC') + , ('\x1FBE', '\x1FBE') + , ('\x1FC2', '\x1FC4') + , ('\x1FC6', '\x1FCC') + , ('\x1FD0', '\x1FD3') + , ('\x1FD6', '\x1FDB') + , ('\x1FE0', '\x1FEC') + , ('\x1FF2', '\x1FF4') + , ('\x1FF6', '\x1FFC') + , ('\x2126', '\x2126') + , ('\x212A', '\x212B') + , ('\x212E', '\x212E') + , ('\x2180', '\x2182') + , ('\x3041', '\x3094') + , ('\x30A1', '\x30FA') + , ('\x3105', '\x312C') + , ('\xAC00', '\xD7A3') + ] + +-- | +-- checking for XML ideographic charater + +isXmlIdeographicChar :: Unicode -> Bool +isXmlIdeographicChar c + = isInList c + [ ('\x3007', '\x3007') + , ('\x3021', '\x3029') + , ('\x4E00', '\x9FA5') + ] + +-- | +-- checking for XML combining charater + +isXmlCombiningChar :: Unicode -> Bool +isXmlCombiningChar c + = isInList c + [ ('\x0300', '\x0345') + , ('\x0360', '\x0361') + , ('\x0483', '\x0486') + , ('\x0591', '\x05A1') + , ('\x05A3', '\x05B9') + , ('\x05BB', '\x05BD') + , ('\x05BF', '\x05BF') + , ('\x05C1', '\x05C2') + , ('\x05C4', '\x05C4') + , ('\x064B', '\x0652') + , ('\x0670', '\x0670') + , ('\x06D6', '\x06DC') + , ('\x06DD', '\x06DF') + , ('\x06E0', '\x06E4') + , ('\x06E7', '\x06E8') + , ('\x06EA', '\x06ED') + , ('\x0901', '\x0903') + , ('\x093C', '\x093C') + , ('\x093E', '\x094C') + , ('\x094D', '\x094D') + , ('\x0951', '\x0954') + , ('\x0962', '\x0963') + , ('\x0981', '\x0983') + , ('\x09BC', '\x09BC') + , ('\x09BE', '\x09BE') + , ('\x09BF', '\x09BF') + , ('\x09C0', '\x09C4') + , ('\x09C7', '\x09C8') + , ('\x09CB', '\x09CD') + , ('\x09D7', '\x09D7') + , ('\x09E2', '\x09E3') + , ('\x0A02', '\x0A02') + , ('\x0A3C', '\x0A3C') + , ('\x0A3E', '\x0A3E') + , ('\x0A3F', '\x0A3F') + , ('\x0A40', '\x0A42') + , ('\x0A47', '\x0A48') + , ('\x0A4B', '\x0A4D') + , ('\x0A70', '\x0A71') + , ('\x0A81', '\x0A83') + , ('\x0ABC', '\x0ABC') + , ('\x0ABE', '\x0AC5') + , ('\x0AC7', '\x0AC9') + , ('\x0ACB', '\x0ACD') + , ('\x0B01', '\x0B03') + , ('\x0B3C', '\x0B3C') + , ('\x0B3E', '\x0B43') + , ('\x0B47', '\x0B48') + , ('\x0B4B', '\x0B4D') + , ('\x0B56', '\x0B57') + , ('\x0B82', '\x0B83') + , ('\x0BBE', '\x0BC2') + , ('\x0BC6', '\x0BC8') + , ('\x0BCA', '\x0BCD') + , ('\x0BD7', '\x0BD7') + , ('\x0C01', '\x0C03') + , ('\x0C3E', '\x0C44') + , ('\x0C46', '\x0C48') + , ('\x0C4A', '\x0C4D') + , ('\x0C55', '\x0C56') + , ('\x0C82', '\x0C83') + , ('\x0CBE', '\x0CC4') + , ('\x0CC6', '\x0CC8') + , ('\x0CCA', '\x0CCD') + , ('\x0CD5', '\x0CD6') + , ('\x0D02', '\x0D03') + , ('\x0D3E', '\x0D43') + , ('\x0D46', '\x0D48') + , ('\x0D4A', '\x0D4D') + , ('\x0D57', '\x0D57') + , ('\x0E31', '\x0E31') + , ('\x0E34', '\x0E3A') + , ('\x0E47', '\x0E4E') + , ('\x0EB1', '\x0EB1') + , ('\x0EB4', '\x0EB9') + , ('\x0EBB', '\x0EBC') + , ('\x0EC8', '\x0ECD') + , ('\x0F18', '\x0F19') + , ('\x0F35', '\x0F35') + , ('\x0F37', '\x0F37') + , ('\x0F39', '\x0F39') + , ('\x0F3E', '\x0F3E') + , ('\x0F3F', '\x0F3F') + , ('\x0F71', '\x0F84') + , ('\x0F86', '\x0F8B') + , ('\x0F90', '\x0F95') + , ('\x0F97', '\x0F97') + , ('\x0F99', '\x0FAD') + , ('\x0FB1', '\x0FB7') + , ('\x0FB9', '\x0FB9') + , ('\x20D0', '\x20DC') + , ('\x20E1', '\x20E1') + , ('\x302A', '\x302F') + , ('\x3099', '\x3099') + , ('\x309A', '\x309A') + ] + +-- | +-- checking for XML digit + +isXmlDigit :: Unicode -> Bool +isXmlDigit c + = isInList c + [ ('\x0030', '\x0039') + , ('\x0660', '\x0669') + , ('\x06F0', '\x06F9') + , ('\x0966', '\x096F') + , ('\x09E6', '\x09EF') + , ('\x0A66', '\x0A6F') + , ('\x0AE6', '\x0AEF') + , ('\x0B66', '\x0B6F') + , ('\x0BE7', '\x0BEF') + , ('\x0C66', '\x0C6F') + , ('\x0CE6', '\x0CEF') + , ('\x0D66', '\x0D6F') + , ('\x0E50', '\x0E59') + , ('\x0ED0', '\x0ED9') + , ('\x0F20', '\x0F29') + ] + +-- | +-- checking for XML extender + +isXmlExtender :: Unicode -> Bool +isXmlExtender c + = isInList c + [ ('\x00B7', '\x00B7') + , ('\x02D0', '\x02D0') + , ('\x02D1', '\x02D1') + , ('\x0387', '\x0387') + , ('\x0640', '\x0640') + , ('\x0E46', '\x0E46') + , ('\x0EC6', '\x0EC6') + , ('\x3005', '\x3005') + , ('\x3031', '\x3035') + , ('\x309D', '\x309E') + , ('\x30FC', '\x30FE') + ] + +-- | +-- checking for XML control or permanently discouraged char +-- +-- see Errata to XML1.0 (http:\/\/www.w3.org\/XML\/xml-V10-2e-errata) No 46 +-- +-- Document authors are encouraged to avoid "compatibility characters", +-- as defined in section 6.8 of [Unicode] (see also D21 in section 3.6 of [Unicode3]). +-- The characters defined in the following ranges are also discouraged. +-- They are either control characters or permanently undefined Unicode characters: + + +isXmlControlOrPermanentlyUndefined :: Unicode -> Bool +isXmlControlOrPermanentlyUndefined c + = isInList c + [ ('\x7F', '\x84') + , ('\x86', '\x9F') + , ('\xFDD0', '\xFDDF') + , ('\x1FFFE', '\x1FFFF') + , ('\x2FFFE', '\x2FFFF') + , ('\x3FFFE', '\x3FFFF') + , ('\x4FFFE', '\x4FFFF') + , ('\x5FFFE', '\x5FFFF') + , ('\x6FFFE', '\x6FFFF') + , ('\x7FFFE', '\x7FFFF') + , ('\x8FFFE', '\x8FFFF') + , ('\x9FFFE', '\x9FFFF') + , ('\xAFFFE', '\xAFFFF') + , ('\xBFFFE', '\xBFFFF') + , ('\xCFFFE', '\xCFFFF') + , ('\xDFFFE', '\xDFFFF') + , ('\xEFFFE', '\xEFFFF') + , ('\xFFFFE', '\xFFFFF') + , ('\x10FFFE', '\x10FFFF') + ] + +-- ------------------------------------------------------------ + +isInList :: Unicode -> [(Unicode, Unicode)] -> Bool +isInList i = + foldr (\(lb, ub) b -> i >= lb && (i <= ub || b)) False + {- The expression (i>=lb && i<=ub) || b would work more generally, + but in a sorted list, the above one aborts the computation as early as possible. -} + +{- +isInList' :: Unicode -> [(Unicode, Unicode)] -> Bool +isInList' i ((lb, ub) : l) + | i < lb = False + | i <= ub = True + | otherwise = isInList' i l + +isInList' _ [] + = False + +{- works, but is not so fast -} +isInList'' :: Unicode -> [(Unicode, Unicode)] -> Bool +isInList'' i = any (flip isInRange i) + +-- move to an Utility module? +isInRange :: Ord a => (a,a) -> a -> Bool +isInRange (l,r) x = l<=x && x<=r + +propIsInList :: Bool +propIsInList = + all + (\c -> let dict = [ ('\x0041', '\x005A'), ('\x0061', '\x007A') ] + b0 = isInList c dict + b1 = isInList' c dict + b2 = isInList'' c dict + in b0 == b1 && b0 == b2) + ['\x00'..'\x100'] +-} + +-- ------------------------------------------------------------ + +-- | +-- code conversion from latin1 to Unicode + +latin1ToUnicode :: String -> UString +latin1ToUnicode = id + +latinToUnicode :: [(Char, Char)] -> String -> UString +latinToUnicode tt + = map charToUni + where + charToUni c = + foldr (\(src,dst) r -> + case compare c src of + EQ -> dst + LT -> c {- not found in table -} + GT -> r) c tt + +-- | conversion from ASCII to unicode with check for legal ASCII char set +-- +-- Structure of decoding function copied from 'Data.Char.UTF8.decode'. + +decodeAscii :: DecodingFct +decodeAscii + = swap . partitionEither . decodeAsciiEmbedErrors + +decodeAsciiEmbedErrors :: String -> UStringWithErrors +decodeAsciiEmbedErrors str + = map (\(c,pos) -> if isValid c + then Right c + else Left (toErrStr c pos)) posStr + where + posStr = zip str [(0::Int)..] + toErrStr errChr pos + = " at input position " ++ show pos ++ ": none ASCII char " ++ show errChr + isValid x = x < '\x80' + +-- | +-- UCS-2 big endian to Unicode conversion + +ucs2BigEndianToUnicode :: String -> UString + +ucs2BigEndianToUnicode (b : l : r) + = toEnum (fromEnum b * 256 + fromEnum l) : ucs2BigEndianToUnicode r + +ucs2BigEndianToUnicode [] + = [] + +ucs2BigEndianToUnicode _ + = [] -- error "illegal UCS-2 byte input sequence with odd length" + -- is ignored (garbage in, garbage out) + +-- ------------------------------------------------------------ + +-- | +-- UCS-2 little endian to Unicode conversion + +ucs2LittleEndianToUnicode :: String -> UString + +ucs2LittleEndianToUnicode (l : b : r) + = toEnum (fromEnum b * 256 + fromEnum l) : ucs2LittleEndianToUnicode r + +ucs2LittleEndianToUnicode [] + = [] + +ucs2LittleEndianToUnicode [_] + = [] -- error "illegal UCS-2 byte input sequence with odd length" + -- is ignored + +-- ------------------------------------------------------------ + +-- | +-- UCS-2 to UTF-8 conversion with byte order mark analysis + +ucs2ToUnicode :: String -> UString + +ucs2ToUnicode ('\xFE':'\xFF':s) -- 2 byte mark for big endian encoding + = ucs2BigEndianToUnicode s + +ucs2ToUnicode ('\xFF':'\xFE':s) -- 2 byte mark for little endian encoding + = ucs2LittleEndianToUnicode s + +ucs2ToUnicode s + = ucs2BigEndianToUnicode s -- default: big endian + +-- ------------------------------------------------------------ + +-- | +-- UTF-8 to Unicode conversion with deletion of leading byte order mark, as described in XML standard F.1 + +utf8ToUnicode :: DecodingFct + +utf8ToUnicode ('\xEF':'\xBB':'\xBF':s) -- remove byte order mark ( XML standard F.1 ) + = decodeUtf8 s + +utf8ToUnicode s + = decodeUtf8 s + +utf8ToUnicodeEmbedErrors :: DecodingFctEmbedErrors + +utf8ToUnicodeEmbedErrors ('\xEF':'\xBB':'\xBF':s) -- remove byte order mark ( XML standard F.1 ) + = decodeUtf8EmbedErrors s + +utf8ToUnicodeEmbedErrors s + = decodeUtf8EmbedErrors s + +-- ------------------------------------------------------------ + +-- | +-- UTF-16 big endian to UTF-8 conversion with removal of byte order mark + +utf16beToUnicode :: String -> UString + +utf16beToUnicode ('\xFE':'\xFF':s) -- remove byte order mark + = ucs2BigEndianToUnicode s + +utf16beToUnicode s + = ucs2BigEndianToUnicode s + +-- ------------------------------------------------------------ + +-- | +-- UTF-16 little endian to UTF-8 conversion with removal of byte order mark + +utf16leToUnicode :: String -> UString + +utf16leToUnicode ('\xFF':'\xFE':s) -- remove byte order mark + = ucs2LittleEndianToUnicode s + +utf16leToUnicode s + = ucs2LittleEndianToUnicode s + + +-- ------------------------------------------------------------ + +-- | +-- substitute all Unicode characters, that are not legal 1-byte +-- UTF-8 XML characters by a character reference. +-- +-- This function can be used to translate all text nodes and +-- attribute values into pure ascii. +-- +-- see also : 'unicodeToLatin1' + +unicodeToXmlEntity :: UString -> String +unicodeToXmlEntity + = escape is1ByteXmlChar (intToCharRef . fromEnum) + +-- | +-- substitute all Unicode characters, that are not legal latin1 +-- UTF-8 XML characters by a character reference. +-- +-- This function can be used to translate all text nodes and +-- attribute values into ISO latin1. +-- +-- see also : 'unicodeToXmlEntity' + +unicodeToLatin1 :: UString -> String +unicodeToLatin1 + = escape isXmlLatin1Char (intToCharRef . fromEnum) + + +-- | +-- substitute selected characters +-- The @check@ function returns 'True' whenever a character needs to substitution +-- The function @esc@ computes a substitute. +escape :: (Unicode -> Bool) -> (Unicode -> String) -> UString -> String +escape check esc = + concatMap (\uc -> if check uc then [uc] else esc uc) + +-- | +-- removes all non ascii chars, may be used to transform +-- a document into a pure ascii representation by removing +-- all non ascii chars from tag and attibute names +-- +-- see also : 'unicodeRemoveNoneLatin1', 'unicodeToXmlEntity' + +unicodeRemoveNoneAscii :: UString -> String +unicodeRemoveNoneAscii + = filter is1ByteXmlChar + +-- | +-- removes all non latin1 chars, may be used to transform +-- a document into a pure ascii representation by removing +-- all non ascii chars from tag and attibute names +-- +-- see also : 'unicodeRemoveNoneAscii', 'unicodeToLatin1' + +unicodeRemoveNoneLatin1 :: UString -> String +unicodeRemoveNoneLatin1 + = filter isXmlLatin1Char + +-- ------------------------------------------------------------ + +-- | +-- convert an Unicode into a XML character reference. +-- +-- see also : 'intToCharRefHex' + +intToCharRef :: Int -> String +intToCharRef i + = "&#" ++ show i ++ ";" + +-- | +-- convert an Unicode into a XML hexadecimal character reference. +-- +-- see also: 'intToCharRef' + +intToCharRefHex :: Int -> String +intToCharRefHex i + = "&#x" ++ h2 ++ ";" + where + h1 = intToHexString i + h2 = if length h1 `mod` 2 == 1 + then '0': h1 + else h1 + +-- ------------------------------------------------------------ +-- +-- | White Space (XML Standard 2.3) and +-- end of line handling (2.11) +-- +-- \#x0D and \#x0D\#x0A are mapped to \#x0A + +normalizeNL :: String -> String +normalizeNL ('\r' : '\n' : rest) = '\n' : normalizeNL rest +normalizeNL ('\r' : rest) = '\n' : normalizeNL rest +normalizeNL (c : rest) = c : normalizeNL rest +normalizeNL [] = [] + + +-- ------------------------------------------------------------ + +-- | +-- the table of supported character encoding schemes and the associated +-- conversion functions into Unicode:q + +{- +This table could be derived from decodingTableEither, +but this way it is certainly more efficient. +-} + +decodingTable :: [(String, DecodingFct)] +decodingTable + = [ (utf8, utf8ToUnicode ) + , (isoLatin1, liftDecFct latin1ToUnicode ) + , (usAscii, decodeAscii ) + , (ucs2, liftDecFct ucs2ToUnicode ) + , (utf16, liftDecFct ucs2ToUnicode ) + , (utf16be, liftDecFct utf16beToUnicode ) + , (utf16le, liftDecFct utf16leToUnicode ) + , (iso8859_2, liftDecFct (latinToUnicode iso_8859_2) ) + , (iso8859_3, liftDecFct (latinToUnicode iso_8859_3) ) + , (iso8859_4, liftDecFct (latinToUnicode iso_8859_4) ) + , (iso8859_5, liftDecFct (latinToUnicode iso_8859_5) ) + , (iso8859_6, liftDecFct (latinToUnicode iso_8859_6) ) + , (iso8859_7, liftDecFct (latinToUnicode iso_8859_7) ) + , (iso8859_8, liftDecFct (latinToUnicode iso_8859_8) ) + , (iso8859_9, liftDecFct (latinToUnicode iso_8859_9) ) + , (iso8859_10, liftDecFct (latinToUnicode iso_8859_10) ) + , (iso8859_11, liftDecFct (latinToUnicode iso_8859_11) ) + , (iso8859_13, liftDecFct (latinToUnicode iso_8859_13) ) + , (iso8859_14, liftDecFct (latinToUnicode iso_8859_14) ) + , (iso8859_15, liftDecFct (latinToUnicode iso_8859_15) ) + , (iso8859_16, liftDecFct (latinToUnicode iso_8859_16) ) + , (unicodeString, liftDecFct id ) + , ("", liftDecFct id ) -- default + ] + where + liftDecFct df = \ s -> (df s, []) + +-- | +-- the lookup function for selecting the decoding function + +getDecodingFct :: String -> Maybe DecodingFct +getDecodingFct enc + = lookup (map toUpper enc) decodingTable + + +-- | +-- Similar to 'decodingTable' but it embeds errors +-- in the string of decoded characters. + +decodingTableEmbedErrors :: [(String, DecodingFctEmbedErrors)] +decodingTableEmbedErrors + = [ (utf8, utf8ToUnicodeEmbedErrors ) + , (isoLatin1, liftDecFct latin1ToUnicode ) + , (usAscii, decodeAsciiEmbedErrors ) + , (ucs2, liftDecFct ucs2ToUnicode ) + , (utf16, liftDecFct ucs2ToUnicode ) + , (utf16be, liftDecFct utf16beToUnicode ) + , (utf16le, liftDecFct utf16leToUnicode ) + , (iso8859_2, liftDecFct (latinToUnicode iso_8859_2) ) + , (iso8859_3, liftDecFct (latinToUnicode iso_8859_3) ) + , (iso8859_4, liftDecFct (latinToUnicode iso_8859_4) ) + , (iso8859_5, liftDecFct (latinToUnicode iso_8859_5) ) + , (iso8859_6, liftDecFct (latinToUnicode iso_8859_6) ) + , (iso8859_7, liftDecFct (latinToUnicode iso_8859_7) ) + , (iso8859_8, liftDecFct (latinToUnicode iso_8859_8) ) + , (iso8859_9, liftDecFct (latinToUnicode iso_8859_9) ) + , (iso8859_10, liftDecFct (latinToUnicode iso_8859_10) ) + , (iso8859_11, liftDecFct (latinToUnicode iso_8859_11) ) + , (iso8859_13, liftDecFct (latinToUnicode iso_8859_13) ) + , (iso8859_14, liftDecFct (latinToUnicode iso_8859_14) ) + , (iso8859_15, liftDecFct (latinToUnicode iso_8859_15) ) + , (iso8859_16, liftDecFct (latinToUnicode iso_8859_16) ) + , (unicodeString, liftDecFct id ) + , ("", liftDecFct id ) -- default + ] + where + liftDecFct df = map Right . df + +-- | +-- the lookup function for selecting the decoding function + +getDecodingFctEmbedErrors :: String -> Maybe DecodingFctEmbedErrors +getDecodingFctEmbedErrors enc + = lookup (map toUpper enc) decodingTableEmbedErrors + + + +-- | +-- the table of supported output encoding schemes and the associated +-- conversion functions from Unicode + +outputEncodingTable :: [(String, (UString -> String))] +outputEncodingTable + = [ (utf8, unicodeToUtf8 ) + , (isoLatin1, unicodeToLatin1 ) + , (usAscii, unicodeToXmlEntity ) + , (ucs2, ucs2ToUnicode ) + , ("", unicodeToUtf8 ) -- default + ] + +-- | +-- the lookup function for selecting the encoding function + +getOutputEncodingFct :: String -> Maybe (String -> UString) +getOutputEncodingFct enc + = lookup (map toUpper enc) outputEncodingTable + +-- ------------------------------------------------------------ +-- + +guessEncoding :: String -> String + +guessEncoding ('\xFF':'\xFE':'\x00':'\x00':_) = "UCS-4LE" -- with byte order mark +guessEncoding ('\xFF':'\xFE':_) = "UTF-16LE" -- with byte order mark + +guessEncoding ('\xFE':'\xFF':'\x00':'\x00':_) = "UCS-4-3421" -- with byte order mark +guessEncoding ('\xFE':'\xFF':_) = "UTF-16BE" -- with byte order mark + +guessEncoding ('\xEF':'\xBB':'\xBF':_) = utf8 -- with byte order mark + +guessEncoding ('\x00':'\x00':'\xFE':'\xFF':_) = "UCS-4BE" -- with byte order mark +guessEncoding ('\x00':'\x00':'\xFF':'\xFE':_) = "UCS-4-2143" -- with byte order mark + +guessEncoding ('\x00':'\x00':'\x00':'\x3C':_) = "UCS-4BE" -- "<" of "<?xml" +guessEncoding ('\x3C':'\x00':'\x00':'\x00':_) = "UCS-4LE" -- "<" of "<?xml" +guessEncoding ('\x00':'\x00':'\x3C':'\x00':_) = "UCS-4-2143" -- "<" of "<?xml" +guessEncoding ('\x00':'\x3C':'\x00':'\x00':_) = "UCS-4-3412" -- "<" of "<?xml" + +guessEncoding ('\x00':'\x3C':'\x00':'\x3F':_) = "UTF-16BE" -- "<?" of "<?xml" +guessEncoding ('\x3C':'\x00':'\x3F':'\x00':_) = "UTF-16LE" -- "<?" of "<?xml" + +guessEncoding ('\x4C':'\x6F':'\xA7':'\x94':_) = "EBCDIC" -- "<?xm" of "<?xml" + +guessEncoding _ = "" -- no guess + +-- ------------------------------------------------------------ diff --git a/doc/hdoc/src/Text-XML-HXT-DOM-XmlKeywords.html b/doc/hdoc/src/Text-XML-HXT-DOM-XmlKeywords.html --- a/doc/hdoc/src/Text-XML-HXT-DOM-XmlKeywords.html +++ b/doc/hdoc/src/Text-XML-HXT-DOM-XmlKeywords.html @@ -64,301 +64,305 @@ a_module, a_modifier, a_name, - a_no_xml_pi, - a_options_curl, - a_output_encoding, - a_output_file, - a_output_xml, - a_output_html, - a_parse_by_mimetype, - a_parse_html, - a_parse_xml, - a_peref, - a_preserve_comment, - a_propagate_errors, - a_proxy, - a_remove_whitespace, - a_show_haskell, - a_show_tree, - a_source, - a_status, - a_standalone, - a_tagsoup, - a_trace, - a_type, - a_use_curl, - a_url, - a_validate, - a_value, - a_verbose, - a_version, - a_xml, - a_xmlns :: String - -v_0, -- attribute values - v_1, - v_yes, - v_no, - v_any, - v_children, - v_choice, - v_empty, - v_mixed, - v_seq, - v_null, - v_option, - v_pcdata, - v_star, - v_plus :: String - -k_any, -- DTD keywords - k_cdata, - k_empty, - k_entity, - k_entities, - k_id, - k_idref, - k_idrefs, - k_include, - k_ignore, - k_nmtoken, - k_nmtokens, - k_peref, - k_public, - k_system, - k_enumeration, - k_fixed, - k_implied, - k_ndata, - k_notation, - k_pcdata, - k_required, - k_default :: String - --- ------------------------------------------------------------ + a_no_empty_elements, + a_no_xml_pi, + a_options_curl, + a_output_encoding, + a_output_file, + a_output_xml, + a_output_html, + a_parse_by_mimetype, + a_parse_html, + a_parse_xml, + a_peref, + a_preserve_comment, + a_propagate_errors, + a_proxy, + a_remove_whitespace, + a_show_haskell, + a_show_tree, + a_source, + a_status, + a_standalone, + a_strict_input, + a_tagsoup, + a_trace, + a_type, + a_use_curl, + a_url, + a_validate, + a_value, + a_verbose, + a_version, + a_xml, + a_xmlns :: String + +v_0, -- attribute values + v_1, + v_yes, + v_no, + v_any, + v_children, + v_choice, + v_empty, + v_mixed, + v_seq, + v_null, + v_option, + v_pcdata, + v_star, + v_plus :: String + +k_any, -- DTD keywords + k_cdata, + k_empty, + k_entity, + k_entities, + k_id, + k_idref, + k_idrefs, + k_include, + k_ignore, + k_nmtoken, + k_nmtokens, + k_peref, + k_public, + k_system, + k_enumeration, + k_fixed, + k_implied, + k_ndata, + k_notation, + k_pcdata, + k_required, + k_default :: String -t_xml = "xml" -t_root = "/" -- name of root node tag - -a_canonicalize = "canonicalize" -a_check_namespaces = "check-namespaces" -a_collect_errors = "collect-errors" -a_column = "column" -a_contentLength = "Content-Length" -a_default = "default" -a_default_baseuri = "default-base-URI" -a_do_not_canonicalize = "do-not-canonicalize" -a_do_not_check_namespaces = "do-not-check-namespaces" -a_do_not_issue_errors = "do-not-issue-errors" -a_do_not_issue_warnings = "do-not-issue-warnings" -a_do_not_preserve_comment = "do-not-preserve-comment" -a_do_not_remove_whitespace = "do-not-remove-whitespace" -a_do_not_use_curl = "do-not-use-curl" -a_do_not_validate = "do-not-validate" -a_encoding = "encoding" -a_error = "error" -a_error_log = "errorLog" -a_help = "help" -a_ignore_encoding_errors = "ignore-encoding-errors" -a_ignore_none_xml_contents = "ignore-none-xml-contents" -a_indent = "indent" -a_issue_warnings = "issue-warnings" -a_issue_errors = "issue-errors" -a_kind = "kind" -a_line = "line" -a_mime_types = "mimetypes" -a_module = "module" -a_modifier = "modifier" -a_name = "name" -a_no_xml_pi = "no-xml-pi" -a_options_curl = "options-curl" -a_output_file = "output-file" -a_output_encoding = "output-encoding" -a_output_html = "output-html" -a_output_xml = "output-xml" -a_parse_by_mimetype = "parse-by-mimetype" -a_parse_html = "parse-html" -a_parse_xml = "parse-xml" -a_peref = k_peref -a_preserve_comment = "preserve-comment" -a_propagate_errors = "propagate-errors" -a_proxy = "proxy" -a_remove_whitespace = "remove-whitespace" -a_show_haskell = "show-haskell" -a_show_tree = "show-tree" -a_source = "source" -a_standalone = "standalone" -a_status = "status" -a_tagsoup = "tagsoup" -a_trace = "trace" -a_type = "type" -a_url = "url" -a_use_curl = "use-curl" -a_validate = "validate" -a_value = "value" -a_verbose = "verbose" -a_version = "version" -a_xml = "xml" -a_xmlns = "xmlns" - -v_yes = "yes" -v_no = "no" -v_1 = "1" -v_0 = "0" - -v_any = k_any -v_children = "children" -v_choice = "choice" -v_empty = k_empty -v_pcdata = k_pcdata -v_mixed = "mixed" -v_seq = "seq" - -v_null = "" -v_option = "?" -v_star = "*" -v_plus = "+" - -k_any = "ANY" -k_cdata = "CDATA" -k_empty = "EMPTY" -k_entity = "ENTITY" -k_entities = "ENTITIES" -k_id = "ID" -k_idref = "IDREF" -k_idrefs = "IDREFS" -k_include = "INCLUDE" -k_ignore = "IGNORE" -k_nmtoken = "NMTOKEN" -k_nmtokens = "NMTOKENS" -k_peref = "PERef" -k_public = "PUBLIC" -k_system = "SYSTEM" - -k_enumeration = "#ENUMERATION" -k_fixed = "#FIXED" -k_implied = "#IMPLIED" -k_ndata = "NDATA" -k_notation = "NOTATION" -k_pcdata = "#PCDATA" -k_required = "#REQUIRED" -k_default = "#DEFAULT" - - --- ------------------------------------------------------------ --- +-- ------------------------------------------------------------ + +t_xml = "xml" +t_root = "/" -- name of root node tag + +a_canonicalize = "canonicalize" +a_check_namespaces = "check-namespaces" +a_collect_errors = "collect-errors" +a_column = "column" +a_contentLength = "Content-Length" +a_default = "default" +a_default_baseuri = "default-base-URI" +a_do_not_canonicalize = "do-not-canonicalize" +a_do_not_check_namespaces = "do-not-check-namespaces" +a_do_not_issue_errors = "do-not-issue-errors" +a_do_not_issue_warnings = "do-not-issue-warnings" +a_do_not_preserve_comment = "do-not-preserve-comment" +a_do_not_remove_whitespace = "do-not-remove-whitespace" +a_do_not_use_curl = "do-not-use-curl" +a_do_not_validate = "do-not-validate" +a_encoding = "encoding" +a_error = "error" +a_error_log = "errorLog" +a_help = "help" +a_ignore_encoding_errors = "ignore-encoding-errors" +a_ignore_none_xml_contents = "ignore-none-xml-contents" +a_indent = "indent" +a_issue_warnings = "issue-warnings" +a_issue_errors = "issue-errors" +a_kind = "kind" +a_line = "line" +a_mime_types = "mimetypes" +a_module = "module" +a_modifier = "modifier" +a_name = "name" +a_no_empty_elements = "no-empty-elements" +a_no_xml_pi = "no-xml-pi" +a_options_curl = "options-curl" +a_output_file = "output-file" +a_output_encoding = "output-encoding" +a_output_html = "output-html" +a_output_xml = "output-xml" +a_parse_by_mimetype = "parse-by-mimetype" +a_parse_html = "parse-html" +a_parse_xml = "parse-xml" +a_peref = k_peref +a_preserve_comment = "preserve-comment" +a_propagate_errors = "propagate-errors" +a_proxy = "proxy" +a_remove_whitespace = "remove-whitespace" +a_show_haskell = "show-haskell" +a_show_tree = "show-tree" +a_source = "source" +a_standalone = "standalone" +a_status = "status" +a_strict_input = "strict-input" +a_tagsoup = "tagsoup" +a_trace = "trace" +a_type = "type" +a_url = "url" +a_use_curl = "use-curl" +a_validate = "validate" +a_value = "value" +a_verbose = "verbose" +a_version = "version" +a_xml = "xml" +a_xmlns = "xmlns" + +v_yes = "yes" +v_no = "no" +v_1 = "1" +v_0 = "0" + +v_any = k_any +v_children = "children" +v_choice = "choice" +v_empty = k_empty +v_pcdata = k_pcdata +v_mixed = "mixed" +v_seq = "seq" + +v_null = "" +v_option = "?" +v_star = "*" +v_plus = "+" + +k_any = "ANY" +k_cdata = "CDATA" +k_empty = "EMPTY" +k_entity = "ENTITY" +k_entities = "ENTITIES" +k_id = "ID" +k_idref = "IDREF" +k_idrefs = "IDREFS" +k_include = "INCLUDE" +k_ignore = "IGNORE" +k_nmtoken = "NMTOKEN" +k_nmtokens = "NMTOKENS" +k_peref = "PERef" +k_public = "PUBLIC" +k_system = "SYSTEM" + +k_enumeration = "#ENUMERATION" +k_fixed = "#FIXED" +k_implied = "#IMPLIED" +k_ndata = "NDATA" +k_notation = "NOTATION" +k_pcdata = "#PCDATA" +k_required = "#REQUIRED" +k_default = "#DEFAULT" --- attribute names for transfer protocol attributes --- used in XmlInput for describing header information --- of http and other requests + +-- ------------------------------------------------------------ +-- -transferPrefix - , transferProtocol - , transferMimeType - , transferEncoding - , transferURI - , transferDefaultURI - , transferStatus - , transferMessage - , transferVersion :: String - -transferPrefix = "transfer-" - -transferProtocol = transferPrefix ++ "Protocol" -transferVersion = transferPrefix ++ "Version" -transferMimeType = transferPrefix ++ "MimeType" -transferEncoding = transferPrefix ++ "Encoding" -transferDefaultURI = transferPrefix ++ "DefaultURI" -transferStatus = transferPrefix ++ "Status" -transferMessage = transferPrefix ++ "Message" -transferURI = transferPrefix ++ "URI" - --- ------------------------------------------------------------ --- - -httpPrefix :: String -httpPrefix = "http-" - -stringProtocol :: String -stringProtocol = "string:" - --- ------------------------------------------------------------ --- --- encoding names +-- attribute names for transfer protocol attributes +-- used in XmlInput for describing header information +-- of http and other requests + +transferPrefix + , transferProtocol + , transferMimeType + , transferEncoding + , transferURI + , transferDefaultURI + , transferStatus + , transferMessage + , transferVersion :: String + +transferPrefix = "transfer-" + +transferProtocol = transferPrefix ++ "Protocol" +transferVersion = transferPrefix ++ "Version" +transferMimeType = transferPrefix ++ "MimeType" +transferEncoding = transferPrefix ++ "Encoding" +transferDefaultURI = transferPrefix ++ "DefaultURI" +transferStatus = transferPrefix ++ "Status" +transferMessage = transferPrefix ++ "Message" +transferURI = transferPrefix ++ "URI" + +-- ------------------------------------------------------------ +-- + +httpPrefix :: String +httpPrefix = "http-" + +stringProtocol :: String +stringProtocol = "string:" -isoLatin1 - , iso8859_1, iso8859_2, iso8859_3, iso8859_4, iso8859_5 - , iso8859_6, iso8859_7, iso8859_8, iso8859_9, iso8859_10 - , iso8859_11, iso8859_13, iso8859_14, iso8859_15, iso8859_16 - , usAscii, ucs2, utf8, utf16, utf16be, utf16le, unicodeString :: String - -isoLatin1 = iso8859_1 -iso8859_1 = "ISO-8859-1" -iso8859_2 = "ISO-8859-2" -iso8859_3 = "ISO-8859-3" -iso8859_4 = "ISO-8859-4" -iso8859_5 = "ISO-8859-5" -iso8859_6 = "ISO-8859-6" -iso8859_7 = "ISO-8859-7" -iso8859_8 = "ISO-8859-8" -iso8859_9 = "ISO-8859-9" -iso8859_10 = "ISO-8859-10" -iso8859_11 = "ISO-8859-11" -iso8859_13 = "ISO-8859-13" -iso8859_14 = "ISO-8859-14" -iso8859_15 = "ISO-8859-15" -iso8859_16 = "ISO-8859-16" -usAscii = "US-ASCII" -ucs2 = "ISO-10646-UCS-2" -utf8 = "UTF-8" -utf16 = "UTF-16" -utf16be = "UTF-16BE" -utf16le = "UTF-16LE" -unicodeString = "UNICODE" - --- ------------------------------------------------------------ --- --- known namespaces +-- ------------------------------------------------------------ +-- +-- encoding names + +isoLatin1 + , iso8859_1, iso8859_2, iso8859_3, iso8859_4, iso8859_5 + , iso8859_6, iso8859_7, iso8859_8, iso8859_9, iso8859_10 + , iso8859_11, iso8859_13, iso8859_14, iso8859_15, iso8859_16 + , usAscii, ucs2, utf8, utf16, utf16be, utf16le, unicodeString :: String + +isoLatin1 = iso8859_1 +iso8859_1 = "ISO-8859-1" +iso8859_2 = "ISO-8859-2" +iso8859_3 = "ISO-8859-3" +iso8859_4 = "ISO-8859-4" +iso8859_5 = "ISO-8859-5" +iso8859_6 = "ISO-8859-6" +iso8859_7 = "ISO-8859-7" +iso8859_8 = "ISO-8859-8" +iso8859_9 = "ISO-8859-9" +iso8859_10 = "ISO-8859-10" +iso8859_11 = "ISO-8859-11" +iso8859_13 = "ISO-8859-13" +iso8859_14 = "ISO-8859-14" +iso8859_15 = "ISO-8859-15" +iso8859_16 = "ISO-8859-16" +usAscii = "US-ASCII" +ucs2 = "ISO-10646-UCS-2" +utf8 = "UTF-8" +utf16 = "UTF-16" +utf16be = "UTF-16BE" +utf16le = "UTF-16LE" +unicodeString = "UNICODE" --- | --- the predefined namespace uri for xml: \"http:\/\/www.w3.org\/XML\/1998\/namespace\" - -xmlNamespace :: String -xmlNamespace = "http://www.w3.org/XML/1998/namespace" - --- | --- the predefined namespace uri for xmlns: \"http:\/\/www.w3.org\/2000\/xmlns\/\" - -xmlnsNamespace :: String -xmlnsNamespace = "http://www.w3.org/2000/xmlns/" - --- | Relax NG namespace -relaxNamespace :: String -relaxNamespace = "http://relaxng.org/ns/structure/1.0" +-- ------------------------------------------------------------ +-- +-- known namespaces + +-- | +-- the predefined namespace uri for xml: \"http:\/\/www.w3.org\/XML\/1998\/namespace\" + +xmlNamespace :: String +xmlNamespace = "http://www.w3.org/XML/1998/namespace" + +-- | +-- the predefined namespace uri for xmlns: \"http:\/\/www.w3.org\/2000\/xmlns\/\" + +xmlnsNamespace :: String +xmlnsNamespace = "http://www.w3.org/2000/xmlns/" --- ------------------------------------------------------------ --- option for Relax NG - -a_relax_schema, - a_do_not_check_restrictions, - a_check_restrictions, - a_do_not_validate_externalRef, - a_validate_externalRef, - a_do_not_validate_include, - a_validate_include, - a_output_changes, - a_do_not_collect_errors :: String - -a_relax_schema = "relax-schema" -a_do_not_check_restrictions = "do-not-check-restrictions" -a_check_restrictions = "check-restrictions" -a_do_not_validate_externalRef = "do-not-validate-externalRef" -a_validate_externalRef = "validate-externalRef" -a_do_not_validate_include = "do-not-validate-include" -a_validate_include = "validate-include" -a_output_changes = "output-pattern-transformations" -a_do_not_collect_errors = "do-not-collect-errors" - --- ------------------------------------------------------------ +-- | Relax NG namespace +relaxNamespace :: String +relaxNamespace = "http://relaxng.org/ns/structure/1.0" + +-- ------------------------------------------------------------ +-- option for Relax NG + +a_relax_schema, + a_do_not_check_restrictions, + a_check_restrictions, + a_do_not_validate_externalRef, + a_validate_externalRef, + a_do_not_validate_include, + a_validate_include, + a_output_changes, + a_do_not_collect_errors :: String + +a_relax_schema = "relax-schema" +a_do_not_check_restrictions = "do-not-check-restrictions" +a_check_restrictions = "check-restrictions" +a_do_not_validate_externalRef = "do-not-validate-externalRef" +a_validate_externalRef = "validate-externalRef" +a_do_not_validate_include = "do-not-validate-include" +a_validate_include = "validate-include" +a_output_changes = "output-pattern-transformations" +a_do_not_collect_errors = "do-not-collect-errors" + +-- ------------------------------------------------------------ diff --git a/doc/hdoc/src/Text-XML-HXT-DOM-XmlNode.html b/doc/hdoc/src/Text-XML-HXT-DOM-XmlNode.html --- a/doc/hdoc/src/Text-XML-HXT-DOM-XmlNode.html +++ b/doc/hdoc/src/Text-XML-HXT-DOM-XmlNode.html @@ -311,7 +311,7 @@ mkElement n al = mkTree (mkElementNode n al) mkRoot :: XmlTrees -> XmlTrees -> XmlTree -mkRoot al = mkTree (mkElementNode (mkSNsName t_root) al) +mkRoot al = mkTree (mkElementNode (mkName t_root) al) mkAttr :: QName -> XmlTrees -> XmlTree mkAttr n = mkTree (mkAttrNode n) diff --git a/doc/hdoc/src/Text-XML-HXT-DOM-XmlOptions.html b/doc/hdoc/src/Text-XML-HXT-DOM-XmlOptions.html --- a/doc/hdoc/src/Text-XML-HXT-DOM-XmlOptions.html +++ b/doc/hdoc/src/Text-XML-HXT-DOM-XmlOptions.html @@ -66,124 +66,126 @@ , Option "H" [a_parse_html] (NoArg (att a_parse_html v_1)) "parse input as HTML, try to interprete everything as HTML, no validation" , Option "M" [a_parse_by_mimetype] (NoArg (att a_parse_by_mimetype v_1)) "parse dependent on mime type: text/html as HTML, text/xml and text/xhtml and others as XML, else no parse" , Option "" [a_parse_xml] (NoArg (att a_parse_html v_0)) "parse input as XML, (default)" - , Option "T" [a_tagsoup] (NoArg (att a_tagsoup v_1)) "lasy tagsoup parser, for HTML and XML, no DTD, no validation, no PIs, only XHTML entityrefs" - , Option "" [a_issue_warnings] (NoArg (att a_issue_warnings v_1)) "issue warnings, when parsing HTML (default)" - , Option "Q" [a_do_not_issue_warnings] (NoArg (att a_issue_warnings v_0)) "ignore warnings, when parsing HTML" - , Option "" [a_validate] (NoArg (att a_validate v_1)) "document validation when parsing XML (default)" - , Option "w" [a_do_not_validate] (NoArg (att a_validate v_0)) "only wellformed check, no validation" - , Option "" [a_canonicalize] (NoArg (att a_canonicalize v_1)) "canonicalize document, remove DTD, comment, transform CDATA, CharRef's, ... (default)" - , Option "c" [a_do_not_canonicalize] (NoArg (att a_canonicalize v_0)) "do not canonicalize document, don't remove DTD, comment, don't transform CDATA, CharRef's, ..." - , Option "C" [a_preserve_comment] (NoArg (att a_preserve_comment v_1)) "don't remove comments during canonicalisation" - , Option "" [a_do_not_preserve_comment] (NoArg (att a_preserve_comment v_0)) "remove comments during canonicalisation (default)" - , Option "n" [a_check_namespaces] (NoArg (att a_check_namespaces v_1)) "tag tree with namespace information and check namespaces" - , Option "" [a_do_not_check_namespaces] (NoArg (att a_check_namespaces v_0)) "ignore namespaces (default)" - , Option "r" [a_remove_whitespace] (NoArg (att a_remove_whitespace v_1)) "remove redundant whitespace, simplifies tree and processing" - , Option "" [a_do_not_remove_whitespace] (NoArg (att a_remove_whitespace v_0)) "don't remove redundant whitespace (default)" - ] - where - att n v = (n, v) - trc = att a_trace . show . max 0 . min 9 . (read :: String -> Int) . ('0':) . filter (`elem` "0123456789") . fromMaybe v_1 - + , Option "" [a_strict_input] (NoArg (att a_strict_input v_1)) "read input files strictly, this ensures closing the files correctly even if not read completely" + , Option "T" [a_tagsoup] (NoArg (att a_tagsoup v_1)) "lasy tagsoup parser, for HTML and XML, no DTD, no validation, no PIs, only XHTML entityrefs" + , Option "" [a_issue_warnings] (NoArg (att a_issue_warnings v_1)) "issue warnings, when parsing HTML (default)" + , Option "Q" [a_do_not_issue_warnings] (NoArg (att a_issue_warnings v_0)) "ignore warnings, when parsing HTML" + , Option "" [a_validate] (NoArg (att a_validate v_1)) "document validation when parsing XML (default)" + , Option "w" [a_do_not_validate] (NoArg (att a_validate v_0)) "only wellformed check, no validation" + , Option "" [a_canonicalize] (NoArg (att a_canonicalize v_1)) "canonicalize document, remove DTD, comment, transform CDATA, CharRef's, ... (default)" + , Option "c" [a_do_not_canonicalize] (NoArg (att a_canonicalize v_0)) "do not canonicalize document, don't remove DTD, comment, don't transform CDATA, CharRef's, ..." + , Option "C" [a_preserve_comment] (NoArg (att a_preserve_comment v_1)) "don't remove comments during canonicalisation" + , Option "" [a_do_not_preserve_comment] (NoArg (att a_preserve_comment v_0)) "remove comments during canonicalisation (default)" + , Option "n" [a_check_namespaces] (NoArg (att a_check_namespaces v_1)) "tag tree with namespace information and check namespaces" + , Option "" [a_do_not_check_namespaces] (NoArg (att a_check_namespaces v_0)) "ignore namespaces (default)" + , Option "r" [a_remove_whitespace] (NoArg (att a_remove_whitespace v_1)) "remove redundant whitespace, simplifies tree and processing" + , Option "" [a_do_not_remove_whitespace] (NoArg (att a_remove_whitespace v_0)) "don't remove redundant whitespace (default)" + ] + where + att n v = (n, v) + trc = att a_trace . show . max 0 . min 9 . (read :: String -> Int) . ('0':) . filter (`elem` "0123456789") . fromMaybe v_1 --- | available Relax NG validation options --- --- defines options --- 'a_check_restrictions', 'a_validate_externalRef', 'a_validate_include', 'a_do_not_check_restrictions', --- 'a_do_not_validate_externalRef', 'a_do_not_validate_include' - -relaxOptions :: [OptDescr (String, String)] -relaxOptions - = [ Option "X" [a_relax_schema] (ReqArg (att a_relax_schema) "SCHEMA") "validation with Relax NG, SCHEMA is the URI for the Relax NG schema" - , Option "" [a_check_restrictions] (NoArg (a_check_restrictions, v_1)) "check Relax NG schema restrictions during schema simplification (default)" - , Option "" [a_do_not_check_restrictions] (NoArg (a_check_restrictions, v_0)) "do not check Relax NG schema restrictions" - , Option "" [a_validate_externalRef] (NoArg (a_validate_externalRef, v_1)) "validate a Relax NG schema referenced by a externalRef-Pattern (default)" - , Option "" [a_do_not_validate_externalRef] (NoArg (a_validate_externalRef, v_0)) "do not validate a Relax NG schema referenced by an externalRef-Pattern" - , Option "" [a_validate_include] (NoArg (a_validate_include, v_1)) "validate a Relax NG schema referenced by an include-Pattern (default)" - , Option "" [a_do_not_validate_include] (NoArg (a_validate_include, v_0)) "do not validate a Relax NG schema referenced by an include-Pattern" - {- - , Option "" [a_output_changes] (NoArg (a_output_changes, v_1)) "output Pattern transformations in case of an error" - , Option "" [a_do_not_collect_errors] (NoArg (a_do_not_collect_errors, v_1)) "stop Relax NG simplification after the first error has occurred" - -} - ] - where - att n v = (n, v) - --- | --- commonly useful options for XML output --- --- defines options: 'a_indent', 'a_output_encoding', 'a_output_file', 'a_output_html' - -outputOptions :: [OptDescr (String, String)] -outputOptions - = [ Option "i" [a_indent] (NoArg (att a_indent v_1)) "indent XML output for readability" - , Option "o" [a_output_encoding] (ReqArg (att a_output_encoding) "CHARSET") ( "encoding of output (" ++ utf8 ++ ", " ++ isoLatin1 ++ ", " ++ usAscii ++ ")" ) - , Option "f" [a_output_file] (ReqArg (att a_output_file) "FILE") "output file for resulting document (default: stdout)" - , Option "" [a_output_html] (NoArg (att a_output_html v_1)) "output of none ASCII chars as HTMl entity references" - , Option "" [a_no_xml_pi] (NoArg (att a_no_xml_pi v_1)) ("output without <?xml ...?> processing instruction, useful in combination with --" ++ show a_output_html) - ] - where - att n v = (n, v) - --- | --- commonly useful options --- --- defines options: 'a_verbose', 'a_help' - -generalOptions :: [OptDescr (String, String)] -generalOptions - = [ Option "v" [a_verbose] (NoArg (a_verbose, v_1)) "verbose output" - , Option "h?" [a_help] (NoArg (a_help, v_1)) "this message" - ] - --- | --- defines 'a_version' option - -versionOptions :: [OptDescr (String, String)] -versionOptions - = [ Option "V" [a_version] (NoArg (a_version, v_1)) "show program version" - ] - --- | --- debug output options - -showOptions :: [OptDescr (String, String)] -showOptions - = [ Option "" [a_show_tree] (NoArg (a_show_tree, v_1)) "output tree representation instead of document source" - , Option "" [a_show_haskell] (NoArg (a_show_haskell, v_1)) "output internal Haskell representation instead of document source" - ] - --- ------------------------------------------------------------ + +-- | available Relax NG validation options +-- +-- defines options +-- 'a_check_restrictions', 'a_validate_externalRef', 'a_validate_include', 'a_do_not_check_restrictions', +-- 'a_do_not_validate_externalRef', 'a_do_not_validate_include' + +relaxOptions :: [OptDescr (String, String)] +relaxOptions + = [ Option "X" [a_relax_schema] (ReqArg (att a_relax_schema) "SCHEMA") "validation with Relax NG, SCHEMA is the URI for the Relax NG schema" + , Option "" [a_check_restrictions] (NoArg (a_check_restrictions, v_1)) "check Relax NG schema restrictions during schema simplification (default)" + , Option "" [a_do_not_check_restrictions] (NoArg (a_check_restrictions, v_0)) "do not check Relax NG schema restrictions" + , Option "" [a_validate_externalRef] (NoArg (a_validate_externalRef, v_1)) "validate a Relax NG schema referenced by a externalRef-Pattern (default)" + , Option "" [a_do_not_validate_externalRef] (NoArg (a_validate_externalRef, v_0)) "do not validate a Relax NG schema referenced by an externalRef-Pattern" + , Option "" [a_validate_include] (NoArg (a_validate_include, v_1)) "validate a Relax NG schema referenced by an include-Pattern (default)" + , Option "" [a_do_not_validate_include] (NoArg (a_validate_include, v_0)) "do not validate a Relax NG schema referenced by an include-Pattern" + {- + , Option "" [a_output_changes] (NoArg (a_output_changes, v_1)) "output Pattern transformations in case of an error" + , Option "" [a_do_not_collect_errors] (NoArg (a_do_not_collect_errors, v_1)) "stop Relax NG simplification after the first error has occurred" + -} + ] + where + att n v = (n, v) + +-- | +-- commonly useful options for XML output +-- +-- defines options: 'a_indent', 'a_output_encoding', 'a_output_file', 'a_output_html' + +outputOptions :: [OptDescr (String, String)] +outputOptions + = [ Option "i" [a_indent] (NoArg (att a_indent v_1)) "indent XML output for readability" + , Option "o" [a_output_encoding] (ReqArg (att a_output_encoding) "CHARSET") ( "encoding of output (" ++ utf8 ++ ", " ++ isoLatin1 ++ ", " ++ usAscii ++ ")" ) + , Option "f" [a_output_file] (ReqArg (att a_output_file) "FILE") "output file for resulting document (default: stdout)" + , Option "" [a_output_html] (NoArg (att a_output_html v_1)) "output of none ASCII chars as HTMl entity references" + , Option "" [a_no_xml_pi] (NoArg (att a_no_xml_pi v_1)) ("output without <?xml ...?> processing instruction, useful in combination with --" ++ show a_output_html) + , Option "" [a_no_empty_elements] (NoArg (att a_no_empty_elements v_1)) "output of empty elements done in format <elem...></elem> instead of <elem/>" + ] + where + att n v = (n, v) + +-- | +-- commonly useful options +-- +-- defines options: 'a_verbose', 'a_help' + +generalOptions :: [OptDescr (String, String)] +generalOptions + = [ Option "v" [a_verbose] (NoArg (a_verbose, v_1)) "verbose output" + , Option "h?" [a_help] (NoArg (a_help, v_1)) "this message" + ] + +-- | +-- defines 'a_version' option + +versionOptions :: [OptDescr (String, String)] +versionOptions + = [ Option "V" [a_version] (NoArg (a_version, v_1)) "show program version" + ] + +-- | +-- debug output options + +showOptions :: [OptDescr (String, String)] +showOptions + = [ Option "" [a_show_tree] (NoArg (a_show_tree, v_1)) "output tree representation instead of document source" + , Option "" [a_show_haskell] (NoArg (a_show_haskell, v_1)) "output internal Haskell representation instead of document source" + ] --- | --- select options from a predefined list of option desciptions - -selectOptions :: [String] -> [OptDescr (String, String)] -> [OptDescr (String, String)] -selectOptions ol os - = concat . map (\ on -> filter (\ (Option _ ons _ _) -> on `elem` ons) os) $ ol - -removeOptions :: [String] -> [OptDescr (String, String)] -> [OptDescr (String, String)] -removeOptions ol os - = filter (\ (Option _ ons _ _) -> not . any (`elem` ol) $ ons ) os - --- | --- check whether an option is set --- --- reads the value of an attribute, usually applied to a document root node, --- and checks if the value represents True. The following strings are interpreted --- as true: \"1\", \"True\", \"true\", \"yes\", \"Yes\". - -optionIsSet :: String -> Attributes -> Bool -optionIsSet n = isTrueValue . lookupDef "" n - --- | check whether a string represents True --- --- definition: +-- ------------------------------------------------------------ + +-- | +-- select options from a predefined list of option desciptions + +selectOptions :: [String] -> [OptDescr (String, String)] -> [OptDescr (String, String)] +selectOptions ol os + = concat . map (\ on -> filter (\ (Option _ ons _ _) -> on `elem` ons) os) $ ol + +removeOptions :: [String] -> [OptDescr (String, String)] -> [OptDescr (String, String)] +removeOptions ol os + = filter (\ (Option _ ons _ _) -> not . any (`elem` ol) $ ons ) os + +-- | +-- check whether an option is set +-- +-- reads the value of an attribute, usually applied to a document root node, +-- and checks if the value represents True. The following strings are interpreted +-- as true: \"1\", \"True\", \"true\", \"yes\", \"Yes\". + +optionIsSet :: String -> Attributes -> Bool +optionIsSet n = isTrueValue . lookupDef "" n + +-- | check whether a string represents True -- --- > isTrueValue = (`elem` ["1", "True", "true", "Yes", "yes"]) - -isTrueValue :: String -> Bool -isTrueValue = (`elem` ["1", "True", "true", "Yes", "yes"]) - --- ------------------------------------------------------------ +-- definition: +-- +-- > isTrueValue = (`elem` ["1", "True", "true", "Yes", "yes"]) + +isTrueValue :: String -> Bool +isTrueValue = (`elem` ["1", "True", "true", "Yes", "yes"]) + +-- ------------------------------------------------------------ diff --git a/doc/hdoc/src/Text-XML-HXT-DOM-XmlTreeTypes.html b/doc/hdoc/src/Text-XML-HXT-DOM-XmlTreeTypes.html deleted file mode 100644 --- a/doc/hdoc/src/Text-XML-HXT-DOM-XmlTreeTypes.html +++ /dev/null @@ -1,87 +0,0 @@ - - - - -Haskell Code by HsColour - - - -
    -- |
--- exports the core data types
--- and some additional types and functions
--- for compatibility with none arrow modules
---
--- Version : $Id: XmlTreeTypes.hs,v 1.6 2006/05/09 15:30:43 hxml Exp $
-
-module Text.XML.HXT.DOM.XmlTreeTypes
-    ( module Data.Tree.NTree.Filter
-    , module Text.XML.HXT.DOM.TypeDefs
-    , module Text.XML.HXT.DOM.XmlTreeTypes
-    )
-
-where
-
-import Data.Tree.NTree.Filter
-import Text.XML.HXT.DOM.TypeDefs
-
--- aliases for compatiblility reasons
-
-mkNode		:: node -> NTrees node -> NTree node
-mkNode		= mkTree
-
-formatNTree	:: (node -> String) -> NTree node -> String
-formatNTree	= formatTree
-
-foldNTree	:: (a -> [b] -> b) -> NTree a -> b
-foldNTree 	= foldTree
-
-mapNTree	:: (a -> b) -> NTree a -> NTree b
-mapNTree 	= fmap
-
-nTreeToList	:: NTree a -> [a]
-nTreeToList	= nodesTree
-
-depthNTree	:: NTree a -> Int
-depthNTree	= depthTree
-
-cardNTree	:: NTree a -> Int
-cardNTree	= cardNTree
-
--- -----------------------------------------------------------------------------
---
--- Basic types for filters
-
--- | A functions that takes a node and returns a list of nodes
-
-type XmlFilter	= TFilter  XNode
-
--- | A function that takes a list of nodes and returns a list of nodes
-
-type XmlSFilter	= TSFilter XNode
-
-
--- -----------------------------------------------------------------------------
---
-
--- | Tag name
-type TagName	= QName
-
--- | Attribute name
-type AttrName	= QName
-
--- -----------------------------------------------------------------------------
-
--- | shortcut for 'qualifiedName'
-
-tName	:: QName -> String
-tName	= qualifiedName
-
--- | shortcut for 'qualifiedName'
-
-aName	:: QName -> String
-aName	= qualifiedName
-
--- -----------------------------------------------------------------------------
-
-
    - diff --git a/doc/hdoc/src/Text-XML-HXT-IO-GetFILE.html b/doc/hdoc/src/Text-XML-HXT-IO-GetFILE.html --- a/doc/hdoc/src/Text-XML-HXT-IO-GetFILE.html +++ b/doc/hdoc/src/Text-XML-HXT-IO-GetFILE.html @@ -7,84 +7,104 @@ 
    -- ------------------------------------------------------------
---
--- GET for local file access
---
--- Version : $Id: GetFILE.hs,v 1.6 2006/09/04 06:03:03 hxml Exp $
-
-module Text.XML.HXT.IO.GetFILE
-    ( module Text.XML.HXT.IO.GetFILE
-    )
-
-where
-
-import System.IO
-    ( IOMode(..)
-    , openFile
-    -- , getContents  is defined in the prelude
-    , hGetContents
-    )
-
-import System.IO.Error
-    ( ioeGetErrorString
-    , try
-    )
+
+{- |
+   Module     : Text.XML.HXT.IO.GetFILE
+   Copyright  : Copyright (C) 2008 Uwe Schmidt
+   License    : MIT
+
+   Maintainer : Uwe Schmidt (uwe@fh-wedel.de)
+   Stability  : stable
+   Portability: portable
+
+   The GET method for file protocol
+
+-}
+
+-- ------------------------------------------------------------
+
+module Text.XML.HXT.IO.GetFILE
+    ( getStdinCont
+    , getCont
+    )
+
+where
 
-import System.Directory
-    ( doesFileExist
-    , getPermissions
-    , readable
-    )
-
--- ------------------------------------------------------------
-
-getStdinCont		:: IO (Either String String)
-getStdinCont
-    = do
-      c <- try ( do
-		 getContents
-	       )
-      return (either readErr Right c)
-    where
-    readErr e
-	= Left ( "system error when reading from stdin: "
-		 ++ ioeGetErrorString e
-	       )
-
-getCont		:: String -> IO (Either String String)
-getCont source
-    = do			-- preliminary
-      exists <- doesFileExist source'
-      if not exists
-	 then return (Left ("file " ++ show source' ++ " not found"))
-	 else do
-	      perm <- getPermissions source'
-	      if not (readable perm)
-	         then return (Left ("file " ++ show source' ++ " not readable"))
-	         else do
-		      c <- try ( do
-				 h <- openFile source' ReadMode
-				 hGetContents h
-			       )
-		      return (either readErr Right c)
-    where
-    -- please NO call of unEscapeString for file names, NOT: source' = drivePath . unEscapeString $ source
-    source' = drivePath $ source
-    readErr e
-	= Left ( "system error when reading file "
-		 ++ show source
-		 ++ ": "
-		 ++ ioeGetErrorString e
-	       )
-
-    -- remove leading / if file starts with windows drive letter, e.g. /c:/windows -> c:/windows
-    drivePath ('/' : file@(d : ':' : _more))
-	| d `elem` ['A'..'Z'] || d `elem` ['a'..'z']
-	    = file
-    drivePath file
-	= file
-
-
--- ------------------------------------------------------------
+import qualified Data.ByteString        as B
+import qualified Data.ByteString.Char8  as C
+
+import           System.IO		( IOMode(..)
+					, openFile
+					  -- , getContents  is defined in the prelude
+					, hGetContents
+					)
+
+import           System.IO.Error	( ioeGetErrorString
+					, try
+					)
+
+import           System.Directory	( doesFileExist
+					, getPermissions
+					, readable
+					)
+
+-- ------------------------------------------------------------
+
+getStdinCont		:: Bool -> IO (Either String String)
+getStdinCont strictInput
+    = do
+      c <- try ( if strictInput
+		 then do
+		      cb <- B.getContents
+		      return  (C.unpack cb)
+		 else getContents
+	       )
+      return (either readErr Right c)
+    where
+    readErr e
+	= Left ( "system error when reading from stdin: "
+		 ++ ioeGetErrorString e
+	       )
+
+getCont		:: Bool -> String -> IO (Either String String)
+getCont strictInput source
+    = do			-- preliminary
+      exists <- doesFileExist source'
+      if not exists
+	 then return (Left ("file " ++ show source' ++ " not found"))
+	 else do
+	      perm <- getPermissions source'
+	      if not (readable perm)
+	         then return (Left ("file " ++ show source' ++ " not readable"))
+	         else do
+		      c <- try ( if strictInput
+				 then do
+				      cb <- B.readFile source
+				      return (C.unpack cb)
+				 else do
+				      h <- openFile source' ReadMode
+				      hGetContents h
+			       )
+		      return (either readErr Right c)
+    where
+
+    -- please NO call of unEscapeString for file names, NOT: source' = drivePath . unEscapeString $ source
+    source' = drivePath $ source
+    readErr e
+	= Left ( "system error when reading file "
+		 ++ show source
+		 ++ ": "
+		 ++ ioeGetErrorString e
+	       )
+
+    -- remove leading / if file starts with windows drive letter, e.g. /c:/windows -> c:/windows
+    drivePath ('/' : file@(d : ':' : _more))
+	| d `elem` ['A'..'Z'] || d `elem` ['a'..'z']
+	    = file
+    drivePath file
+	= file
+
+
+-- ------------------------------------------------------------
    diff --git a/doc/hdoc/src/Text-XML-HXT-Parser-TagSoup.html b/doc/hdoc/src/Text-XML-HXT-Parser-TagSoup.html --- a/doc/hdoc/src/Text-XML-HXT-Parser-TagSoup.html +++ b/doc/hdoc/src/Text-XML-HXT-Parser-TagSoup.html @@ -10,7 +10,7 @@ {- | Module : Text.XML.HXT.Parser.TagSoup - Copyright : Copyright (C) 2005 Uwe Schmidt + Copyright : Copyright (C) 2005-2008 Uwe Schmidt License : MIT Maintainer : Uwe Schmidt (uwe@fh-wedel.de) @@ -31,461 +31,429 @@ -- ------------------------------------------------------------ -import Data.Char (toLower) -import Data.Maybe -import qualified Data.Map as M - - -import Text.HTML.TagSoup -import Text.HTML.TagSoup.Entity - ( lookupNumericEntity - ) - -import Text.XML.HXT.DOM.Unicode - ( isXmlSpaceChar - ) - -import Text.XML.HXT.DOM.NamespacePredicates - ( isWellformedQualifiedName - ) - -import Text.XML.HXT.Parser.XmlEntities - ( -- xmlEntities - ) - -import Text.XML.HXT.Parser.XhtmlEntities - ( xhtmlEntities - ) - -import Text.XML.HXT.Parser.HtmlParsec - ( isEmptyHtmlTag - , isInnerHtmlTagOf - , closesHtmlTag - ) - -import Text.XML.HXT.DOM.Interface - ( XmlTrees - , QName - , NsEnv - , mkQName - , mkName - , mkPrefixLocalPart - , c_warn - , a_xml - , a_xmlns - , xmlNamespace - , xmlnsNamespace - ) +import Data.Char (toLower) +import Data.Maybe + +import Text.HTML.TagSoup +import Text.HTML.TagSoup.Entity ( lookupNumericEntity + ) +import Text.XML.HXT.DOM.Unicode ( isXmlSpaceChar + ) +import Text.XML.HXT.Parser.HtmlParsec ( isEmptyHtmlTag + , isInnerHtmlTagOf + , closesHtmlTag + ) +import Text.XML.HXT.Parser.XhtmlEntities +import Text.XML.HXT.DOM.Interface ( XmlTrees + , QName + , NsEnv + , toNsEnv + , newXName + , nullXName + , mkQName' + , mkName + , isWellformedQualifiedName + , c_warn + , a_xml + , a_xmlns + , xmlNamespace + , xmlnsNamespace + ) +import Text.XML.HXT.DOM.XmlNode ( isElem + , mkError + , mkCmt + , mkText + , mkElement + , mkAttr + ) + +-- ---------------------------------------- + +-- The name table contains the id map. All element and attribute names are stored +-- the first time they are ecountered, and later always this name is used, +-- not a string built by the parser. + +type Tags = [Tag] + +type Context = ([String], NsEnv) -import Text.XML.HXT.DOM.XmlNode - ( isElem - , mkError - , mkCmt - , mkText - , mkElement - , mkAttr - ) - --- ---------------------------------------- +type State = Tags + +newtype Parser a = P { parse :: State -> (a, State)} + +instance Monad Parser where + return x = P $ \ ts -> (x, ts) + p >>= f = P $ \ ts -> let + (res, ts') = parse p ts + in + parse (f res) ts' --- The name table contains the id map. All element and attribute names are stored --- the first time they are ecountered, and later always this name is used, --- not a string built by the parser. - -type Tags = [Tag] - -type NameTable = M.Map QName QName - -type Context = ([String], NsEnv) +runParser :: Parser a -> Tags -> a +runParser p ts = fst . parse p $ ts + +-- ---------------------------------------- + +cond :: Parser Bool -> Parser a -> Parser a -> Parser a +cond c t e = do + p <- c + if p then t else e -data State = S !Tags !NameTable -- the name table must be evaluated striktly, else a stack overflow occurs - -newtype Parser a = P { parse :: State -> (a, State)} - -instance Monad Parser where - return x = P $ \ ts -> (x, ts) - p >>= f = P $ \ ts -> let - (res, ts') = parse p ts - in - parse (f res) ts' - -runParser :: Parser a -> Tags -> a -runParser p ts = fst . parse p $ S ts M.empty - --- ---------------------------------------- - -cond :: Parser Bool -> Parser a -> Parser a -> Parser a -cond c t e = do - p <- c - if p then t else e +lookAhead :: (Tag -> Bool) -> Parser Bool +lookAhead p = P $ \ s -> (not (null s) && p (head s), s) + +-- ---------------------------------------- +-- primitive look ahead tests + +isEof :: Parser Bool +isEof = P $ \ s -> (null s, s) + +isText :: Parser Bool +isText = lookAhead is + where + is (TagText _) = True + is _ = False + +isCmt :: Parser Bool +isCmt = lookAhead is + where + is (TagComment _) = True + is _ = False -lookAhead :: (Tag -> Bool) -> Parser Bool -lookAhead p = P $ \ s@(S ts _) -> (not (null ts) && p (head ts), s) - --- ---------------------------------------- --- primitive look ahead tests +isWarn :: Parser Bool +isWarn = lookAhead is + where + is (TagWarning _) = True + is _ = False -isEof :: Parser Bool -isEof = P $ \ s@(S ts _) -> (null ts, s) - -isText :: Parser Bool -isText = lookAhead is - where - is (TagText _) = True - is _ = False - -isCmt :: Parser Bool -isCmt = lookAhead is - where - is (TagComment _) = True - is _ = False - -isWarn :: Parser Bool -isWarn = lookAhead is - where - is (TagWarning _) = True - is _ = False +isPos :: Parser Bool +isPos = lookAhead is + where + is (TagPosition _ _) = True + is _ = False + +isCls :: Parser Bool +isCls = lookAhead is + where + is (TagClose _) = True + is _ = False + +isOpn :: Parser Bool +isOpn = lookAhead is + where + is (TagOpen _ _) = True + is _ = False + +-- ---------------------------------------- +-- primitive symbol parsers -isPos :: Parser Bool -isPos = lookAhead is - where - is (TagPosition _ _) = True - is _ = False - -isCls :: Parser Bool -isCls = lookAhead is - where - is (TagClose _) = True - is _ = False - -isOpn :: Parser Bool -isOpn = lookAhead is - where - is (TagOpen _ _) = True - is _ = False - --- ---------------------------------------- --- primitive symbol parsers - -getTag :: Parser Tag -getTag = P $ \ (S (t1:ts1) nt) -> (t1, S ts1 nt) - -getSym :: (Tag -> a) -> Parser a -getSym f = do - t <- getTag - return (f t) - -getText :: Parser String -getText = getSym sym - where - sym (TagText t) = t - sym _ = undefined - -getCmt :: Parser String -getCmt = getSym sym - where - sym (TagComment c) = c - sym _ = undefined - -getWarn :: Parser String -getWarn = getSym sym - where - sym (TagWarning w) = w - sym _ = undefined +getTag :: Parser Tag +getTag = P $ \ (t1:ts1) -> (t1, ts1) + +getSym :: (Tag -> a) -> Parser a +getSym f = do + t <- getTag + return (f t) + +getText :: Parser String +getText = getSym sym + where + sym (TagText t) = t + sym _ = undefined + +getCmt :: Parser String +getCmt = getSym sym + where + sym (TagComment c) = c + sym _ = undefined + +getWarn :: Parser String +getWarn = getSym sym + where + sym (TagWarning w) = w + sym _ = undefined + +getPos :: Parser (Int, Int) +getPos = getSym sym + where + sym (TagPosition l c) = (l, c) + sym _ = undefined + +getCls :: Parser String +getCls = getSym sym + where + sym (TagClose n) = n + sym _ = undefined + +getOpn :: Parser (String, [(String,String)]) +getOpn = getSym sym + where + sym (TagOpen n al) = (n, al) + sym _ = undefined + +-- ---------------------------------------- +-- pushback parsers for inserting missing tags -getPos :: Parser (Int, Int) -getPos = getSym sym - where - sym (TagPosition l c) = (l, c) - sym _ = undefined +pushBack :: Tag -> Parser () +pushBack t = P $ \ ts -> ((), t:ts) + +insCls :: String -> Parser () +insCls n = pushBack (TagClose n) -getCls :: Parser String -getCls = getSym sym - where - sym (TagClose n) = n - sym _ = undefined - -getOpn :: Parser (String, [(String,String)]) -getOpn = getSym sym - where - sym (TagOpen n al) = (n, al) - sym _ = undefined - --- ---------------------------------------- --- pushback parsers for inserting missing tags - -pushBack :: Tag -> Parser () -pushBack t = P $ \ (S ts nt) -> ((), S (t:ts) nt) - -insCls :: String -> Parser () -insCls n = pushBack (TagClose n) - -insOpn :: String -> [(String, String)] -> Parser () -insOpn n al = pushBack (TagOpen n al) - --- ---------------------------------------- +insOpn :: String -> [(String, String)] -> Parser () +insOpn n al = pushBack (TagOpen n al) + +-- ---------------------------------------- + +mkQN :: Bool -> Bool -> NsEnv -> String -> Parser QName +mkQN withNamespaces isAttr env s + | withNamespaces + = return qn1 + | otherwise + = return qn0 + where + qn1 + | isAttr && isSimpleName = s' + | isSimpleName = mkQName' nullXName (newXName s) (nsUri nullXName) + | isWellformedQualifiedName s = mkQName' px' lp' (nsUri px') + | otherwise = s' + qn0 = s' + + nsUri x = fromMaybe nullXName . lookup x $ env + isSimpleName = all (/= ':') s + (px, (_ : lp)) = span(/= ':') s + px' = newXName px + lp' = newXName lp + s' = mkName s -insertQName :: QName -> Parser QName -insertQName n = P $ \ (S ts nt) -> let - (n', nt') = insert n nt - in - (n', S ts nt') - where - insert s nt - | isJust r = (fromJust r, nt) - | otherwise = (s, M.insert s s nt) - where - r = M.lookup s nt - -mkQN :: Bool -> Bool -> NsEnv -> String -> Parser QName -mkQN withNamespaces isAttr env s - | withNamespaces - = insertQName qn1 - | otherwise - = insertQName qn0 - where - qn1 - | isAttr && isSimpleName = mkName s - | isSimpleName = mkQName "" s (nsUri "") - | isWellformedQualifiedName s = mkQName px lp (nsUri px) - | otherwise = mkName s - qn0 - | isSimpleName = mkName s - | isWellformedQualifiedName s = mkPrefixLocalPart px lp - | otherwise = mkName s - - nsUri x = fromMaybe "" . lookup x $ env - isSimpleName = all (/= ':') s - (px, (_ : lp)) = span(/= ':') s - -extendNsEnv :: Bool -> [(String, String)] -> NsEnv -> NsEnv -extendNsEnv withNamespaces al1 env - | withNamespaces - = concatMap (uncurry addNs) al1 ++ env - | otherwise - = env - where - addNs n v - | px == a_xmlns - && - (null lp || (not . null . tail $ lp)) - = [(drop 1 lp, v)] - | otherwise - = [] - where - (px, lp) = span (/= ':') n - --- ---------------------------------------- - --- own entity lookup to prevent problems with &amp; and tagsoup hack for IE - -lookupEntity :: Bool -> Bool -> String -> [Tag] -lookupEntity withWarnings _asHtml e0@('#':e) - = case lookupNumericEntity e of - Just c -> [ TagText [c] ] - Nothing -> ( TagText $ "&" ++ e0 ++ ";") : - if withWarnings - then [TagWarning $ "illegal char reference: &" ++ e ++ ";"] - else [] +extendNsEnv :: Bool -> [(String, String)] -> NsEnv -> NsEnv +extendNsEnv withNamespaces al1 env + | withNamespaces + = toNsEnv (concatMap (uncurry addNs) al1) ++ env + | otherwise + = env + where + addNs n v + | px == a_xmlns + && + (null lp || (not . null . tail $ lp)) + = [(drop 1 lp, v)] + | otherwise + = [] + where + (px, lp) = span (/= ':') n + +-- ---------------------------------------- + +-- own entity lookup to prevent problems with &amp; and tagsoup hack for IE + +lookupEntity :: Bool -> Bool -> String -> [Tag] +lookupEntity withWarnings _asHtml e0@('#':e) + = case lookupNumericEntity e of + Just c -> [ TagText [c] ] + Nothing -> ( TagText $ "&" ++ e0 ++ ";") : + if withWarnings + then [TagWarning $ "illegal char reference: &" ++ e ++ ";"] + else [] + +lookupEntity withWarnings asHtml e + = case (lookup e entities) of + Just x -> [ TagText [toEnum x]] + Nothing -> (TagText $ "&" ++ e ++ ";") : + if withWarnings + then [TagWarning $ "Unknown entity reference: &" ++ e ++ ";"] + else [] + where + entities + | asHtml = xhtmlEntities + | otherwise = xhtmlEntities -- xmlEntities (TODO: xhtml is xml and html) + +-- ---------------------------------------- + +-- | +-- Turns all element and attribute names to lower case +-- even !DOCTYPE stuff. But this is discarded when parsing the tagsoup + +lowerCaseNames :: [Tag] -> [Tag] +lowerCaseNames + = map f + where + f (TagOpen name attrs) + = TagOpen (nameToLower name) (map attrToLower attrs) + f (TagClose name) + = TagClose (nameToLower name) + f a = a + nameToLower = map toLower + attrToLower (an, av) = (nameToLower an, av) + +-- ---------------------------------------- +-- the main parser -lookupEntity withWarnings asHtml e - = case (lookup e entities) of - Just x -> [ TagText [toEnum x]] - Nothing -> (TagText $ "&" ++ e ++ ";") : - if withWarnings - then [TagWarning $ "Unknown entity reference: &" ++ e ++ ";"] - else [] - where - entities - | asHtml = xhtmlEntities - | otherwise = xhtmlEntities -- xmlEntities (TODO: xhtml is xml and html) - --- ---------------------------------------- - --- | --- Turns all element and attribute names to lower case --- even !DOCTYPE stuff. But this is discarded when parsing the tagsoup - -lowerCaseNames :: [Tag] -> [Tag] -lowerCaseNames - = map f - where - f (TagOpen name attrs) - = TagOpen (nameToLower name) (map attrToLower attrs) - f (TagClose name) - = TagClose (nameToLower name) - f a = a - nameToLower = map toLower - attrToLower (an, av) = (nameToLower an, av) - --- ---------------------------------------- --- the main parser - -parseHtmlTagSoup :: Bool -> Bool -> Bool -> Bool -> Bool -> String -> String -> XmlTrees -parseHtmlTagSoup withNamespaces withWarnings withComment removeWhiteSpace asHtml doc - = ( docRootElem - . runParser (buildCont initContext) - . ( if asHtml - then lowerCaseNames - else id - ) - . parseTagsOptions (parseOptions { optTagWarning = withWarnings - , optLookupEntity = lookupEntity withWarnings asHtml - } - ) - ) - where - -- This is essential for lasy parsing: - -- the call of "take 1" stops parsing, when the first element is detected - -- no check on end of input sequence is required to build this (0- or 1-element list) - -- so eof is never checked unneccessarily - - docRootElem - = take 1 . filter isElem - - initContext = ( [] - , [ (a_xml, xmlNamespace) - , (a_xmlns, xmlnsNamespace) - ] - ) - - wrap = (:[]) - - warn - | withWarnings = wrap . mkError c_warn . show . (doc ++) . (" " ++) - | otherwise = const [] - cmt - | withComment = wrap . mkCmt - | otherwise = const [] - txt - | removeWhiteSpace - = \ t -> - if all isXmlSpaceChar t - then [] - else wrap . mkText $ t - | otherwise = wrap . mkText - - isEmptyElem - | asHtml = isEmptyHtmlTag - | otherwise = const False - - isInnerElem - | asHtml = isInnerHtmlTagOf - | otherwise = const (const False) - - closesElem - | asHtml = \ ns n1 -> - not (null ns) - && - n1 `closesHtmlTag` (head ns) - | otherwise = const (const False) - - buildCont :: Context -> Parser XmlTrees - buildCont ns - = cond isText ( do - t <- getText - rl <- buildCont ns - return (txt t ++ rl) - ) - ( cond isOpn ( do - (n,al) <- getOpn - openTag ns n al - ) - ( cond isCls ( do - n <- getCls - closeTag ns n - ) - ( cond isCmt ( do - c <- getCmt - rl <- buildCont ns - return (cmt c ++ rl) - ) - ( cond isWarn ( do - w <- getWarn - rl <- buildCont ns - return (warn w ++ rl) - ) - ( cond isPos ( do - getPos - buildCont ns - ) - ( cond isEof ( do - isEof - closeAll ns - ) - ( return (warn "parse error in tagsoup tree construction") - ) - ) - ) - ) - ) - ) - ) - where - closeTag :: Context -> String -> Parser XmlTrees - closeTag ((n':_), _) n1 - | n' == n1 = return [] -- a normal closing tag - -- all other cases try to repair wrong html - closeTag ns'@((n':_), _) n1 -- n1 closes n implicitly - | n' `isInnerElem` n1 -- e.g. <td>...</tr> - = do - insCls n1 -- pushback </n1> - insCls n' -- insert a </n'> - buildCont ns' -- try again - closeTag ns' n1 - | isEmptyElem n1 = buildCont ns' -- ignore a redundant closing tag for empty element - closeTag ns'@((n':ns1'), _) n1 -- insert a missing closing tag - | n1 `elem` ns1' = do - insCls n1 - insCls n' - rl <- buildCont ns' - return ( warn ("closing tag " ++ show n' ++ - " expected, but " ++ show n1 ++ " found") - ++ rl - ) - closeTag ns' n1 -- ignore a wrong closing tag - = do - rl <- buildCont ns' - return ( warn ("no opening tag for closing tag " ++ show n1) - ++ rl - ) - - openTag :: Context -> String -> [(String, String)] -> Parser XmlTrees - openTag cx'@(ns',env') n1 al1 - | isPiDT n1 = buildCont cx' - | isEmptyElem n1 - = do - qn <- mkElemQN nenv n1 - al <- mkAttrs al1 - rl <- buildCont cx' - return (mkElement qn al [] : rl) - | closesElem ns' n1 = do - insOpn n1 al1 - insCls (head ns') - buildCont cx' - | otherwise = do - qn <- mkElemQN nenv n1 - al <- mkAttrs al1 - cs <- buildCont ((n1 : ns'), nenv) - rl <- buildCont cx' - return (mkElement qn al cs : rl) - where - nenv = extendNsEnv withNamespaces al1 env' - mkElemQN = mkQN withNamespaces False - mkAttrQN = mkQN withNamespaces True - isPiDT ('?':_) = True - isPiDT ('!':_) = True - isPiDT _ = False - mkAttrs = mapM (uncurry mkA) - mkA an av = do - qan <- mkAttrQN nenv an - return (mkAttr qan (wrap . mkText $ av)) - - closeAll :: ([String], NsEnv) -> Parser XmlTrees - closeAll (ns',_) = return (concatMap wrn ns') - where - wrn = warn . ("insert missing closing tag " ++) . show - --- ------------------------------------------------------------ +parseHtmlTagSoup :: Bool -> Bool -> Bool -> Bool -> Bool -> String -> String -> XmlTrees +parseHtmlTagSoup withNamespaces withWarnings withComment removeWhiteSpace asHtml doc + = ( docRootElem + . runParser (buildCont initContext) + . ( if asHtml + then lowerCaseNames + else id + ) + . parseTagsOptions (parseOptions { optTagWarning = withWarnings + , optLookupEntity = lookupEntity withWarnings asHtml + } + ) + ) + where + -- This is essential for lasy parsing: + -- the call of "take 1" stops parsing, when the first element is detected + -- no check on end of input sequence is required to build this (0- or 1-element list) + -- so eof is never checked unneccessarily + + docRootElem + = take 1 . filter isElem + + initContext = ( [] + , toNsEnv $ + [ (a_xml, xmlNamespace) + , (a_xmlns, xmlnsNamespace) + ] + ) + + wrap = (:[]) + + warn + | withWarnings = wrap . mkError c_warn . show . (doc ++) . (" " ++) + | otherwise = const [] + cmt + | withComment = wrap . mkCmt + | otherwise = const [] + txt + | removeWhiteSpace + = \ t -> + if all isXmlSpaceChar t + then [] + else wrap . mkText $ t + | otherwise = wrap . mkText + + isEmptyElem + | asHtml = isEmptyHtmlTag + | otherwise = const False + + isInnerElem + | asHtml = isInnerHtmlTagOf + | otherwise = const (const False) + + closesElem + | asHtml = \ ns n1 -> + not (null ns) + && + n1 `closesHtmlTag` (head ns) + | otherwise = const (const False) + + buildCont :: Context -> Parser XmlTrees + buildCont ns + = cond isText ( do + t <- getText + rl <- buildCont ns + return (txt t ++ rl) + ) + ( cond isOpn ( do + (n,al) <- getOpn + openTag ns n al + ) + ( cond isCls ( do + n <- getCls + closeTag ns n + ) + ( cond isCmt ( do + c <- getCmt + rl <- buildCont ns + return (cmt c ++ rl) + ) + ( cond isWarn ( do + w <- getWarn + rl <- buildCont ns + return (warn w ++ rl) + ) + ( cond isPos ( do + getPos + buildCont ns + ) + ( cond isEof ( do + isEof + closeAll ns + ) + ( return (warn "parse error in tagsoup tree construction") + ) + ) + ) + ) + ) + ) + ) + where + closeTag :: Context -> String -> Parser XmlTrees + closeTag ((n':_), _) n1 + | n' == n1 = return [] -- a normal closing tag + -- all other cases try to repair wrong html + closeTag ns'@((n':_), _) n1 -- n1 closes n implicitly + | n' `isInnerElem` n1 -- e.g. <td>...</tr> + = do + insCls n1 -- pushback </n1> + insCls n' -- insert a </n'> + buildCont ns' -- try again + closeTag ns' n1 + | isEmptyElem n1 = buildCont ns' -- ignore a redundant closing tag for empty element + closeTag ns'@((n':ns1'), _) n1 -- insert a missing closing tag + | n1 `elem` ns1' = do + insCls n1 + insCls n' + rl <- buildCont ns' + return ( warn ("closing tag " ++ show n' ++ + " expected, but " ++ show n1 ++ " found") + ++ rl + ) + closeTag ns' n1 -- ignore a wrong closing tag + = do + rl <- buildCont ns' + return ( warn ("no opening tag for closing tag " ++ show n1) + ++ rl + ) + + openTag :: Context -> String -> [(String, String)] -> Parser XmlTrees + openTag cx'@(ns',env') n1 al1 + | isPiDT n1 = buildCont cx' + | isEmptyElem n1 + = do + qn <- mkElemQN nenv n1 + al <- mkAttrs al1 + rl <- buildCont cx' + return (mkElement qn al [] : rl) + | closesElem ns' n1 = do + insOpn n1 al1 + insCls (head ns') + buildCont cx' + | otherwise = do + qn <- mkElemQN nenv n1 + al <- mkAttrs al1 + cs <- buildCont ((n1 : ns'), nenv) + rl <- buildCont cx' + return (mkElement qn al cs : rl) + where + nenv = extendNsEnv withNamespaces al1 env' + mkElemQN = mkQN withNamespaces False + mkAttrQN = mkQN withNamespaces True + isPiDT ('?':_) = True + isPiDT ('!':_) = True + isPiDT _ = False + mkAttrs = mapM (uncurry mkA) + mkA an av = do + qan <- mkAttrQN nenv an + return (mkAttr qan (wrap . mkText $ av)) + + closeAll :: ([String], NsEnv) -> Parser XmlTrees + closeAll (ns',_) = return (concatMap wrn ns') + where + wrn = warn . ("insert missing closing tag " ++) . show + +-- ------------------------------------------------------------ diff --git a/doc/hdoc/src/Text-XML-HXT-RelaxNG-Simplification.html b/doc/hdoc/src/Text-XML-HXT-RelaxNG-Simplification.html --- a/doc/hdoc/src/Text-XML-HXT-RelaxNG-Simplification.html +++ b/doc/hdoc/src/Text-XML-HXT-RelaxNG-Simplification.html @@ -97,7 +97,7 @@ ( processHref $< getBaseURI ) >>> -- 4.10 QNames - processWithNsEnv processEnvNames [("xml",xmlNamespace)] + processWithNsEnv processEnvNames (toNsEnv [("xml",xmlNamespace)]) >>> -- 4.4 For any data or value element that does not have a datatypeLibrary attribute, -- a datatypeLibrary attribute is added. @@ -237,7 +237,7 @@ ) ) - processEnvNames :: [(String, String)] -> IOSArrow XmlTree XmlTree + processEnvNames :: NsEnv -> IOSArrow XmlTree XmlTree processEnvNames env = ( ( (replaceQNames env $< getAttrValue "name") `when` @@ -260,29 +260,29 @@ = setBaseUri &&& constA (map createAttr env) >>> arr2L (:) where - createAttr :: (String, String) -> XmlTree + createAttr :: (XName, XName) -> XmlTree createAttr (pre, uri) - = XN.mkAttr (mkName nm) [XN.mkText uri] + = XN.mkAttr (mkName nm) [XN.mkText (show uri)] where - nm | null pre = "RelaxContextDefault" - | otherwise = contextAttributes ++ pre + nm | isNullXName pre = "RelaxContextDefault" + | otherwise = contextAttributes ++ show pre setBaseUri :: IOSArrow String XmlTree setBaseUri = mkAttr (mkName contextBaseAttr) (txt $< this) - replaceQNames :: [(String, String)] -> String -> IOSArrow XmlTree XmlTree + replaceQNames :: NsEnv -> String -> IOSArrow XmlTree XmlTree replaceQNames e name | isNothing uri = mkRelaxError "" ( "No Namespace-Mapping for the prefix " ++ show pre ++ " in the Context of Element: " ++ show name ) | otherwise - = addAttr "name" ( "{" ++ (fromJust uri) ++ "}" ++ local ) + = addAttr "name" ( "{" ++ (show . fromJust $ uri) ++ "}" ++ local ) where (pre, local') = span (/= ':') name local = tail local' - uri :: Maybe String - uri = lookup pre e + uri :: Maybe XName + uri = lookup (newXName pre) e -- The value of the added datatypeLibrary attribute is the value of the -- datatypeLibrary attribute of the nearest ancestor element that diff --git a/doc/hdoc/src/Text-XML-HXT-RelaxNG-XmlSchema-DataTypeLibW3C.html b/doc/hdoc/src/Text-XML-HXT-RelaxNG-XmlSchema-DataTypeLibW3C.html --- a/doc/hdoc/src/Text-XML-HXT-RelaxNG-XmlSchema-DataTypeLibW3C.html +++ b/doc/hdoc/src/Text-XML-HXT-RelaxNG-XmlSchema-DataTypeLibW3C.html @@ -62,563 +62,559 @@ ) where -import Text.XML.HXT.RelaxNG.DataTypeLibUtils - -import Network.URI - ( isURIReference ) - -import Text.XML.HXT.DOM.NamespacePredicates - ( isWellformedQualifiedName - , isNCName - ) - -import Text.XML.HXT.RelaxNG.XmlSchema.Regex - ( Regex - , matchWithRE - ) -import Text.XML.HXT.RelaxNG.XmlSchema.RegexParser - ( parseRegex ) - -import Data.Maybe -import Data.Ratio - --- ------------------------------------------------------------ - --- | Namespace of the W3C XML schema datatype library - -w3cNS :: String -w3cNS = "http://www.w3.org/2001/XMLSchema-datatypes" - - -xsd_string - , xsd_normalizedString - , xsd_token - , xsd_language - , xsd_NMTOKEN - , xsd_NMTOKENS - , xsd_Name - , xsd_NCName - , xsd_ID - , xsd_IDREF - , xsd_IDREFS - , xsd_ENTITY - , xsd_ENTITIES - , xsd_anyURI - , xsd_QName - , xsd_NOTATION - , xsd_hexBinary - , xsd_base64Binary - , xsd_decimal - , xsd_integer - , xsd_nonPositiveInteger - , xsd_negativeInteger - , xsd_nonNegativeInteger - , xsd_positiveInteger - , xsd_long - , xsd_int - , xsd_short - , xsd_byte - , xsd_unsignedLong - , xsd_unsignedInt - , xsd_unsignedShort - , xsd_unsignedByte :: String - -xsd_string = "string" -xsd_normalizedString = "normalizedString" -xsd_token = "token" -xsd_language = "language" -xsd_NMTOKEN = "NMTOKEN" -xsd_NMTOKENS = "NMTOKENS" -xsd_Name = "Name" -xsd_NCName = "NCName" -xsd_ID = "ID" -xsd_IDREF = "IDREF" -xsd_IDREFS = "IDREFS" -xsd_ENTITY = "ENTITY" -xsd_ENTITIES = "ENTITIES" -xsd_anyURI = "anyURI" -xsd_QName = "QName" -xsd_NOTATION = "NOTATION" -xsd_hexBinary = "hexBinary" -xsd_base64Binary = "base64Binary" -xsd_decimal = "decimal" -xsd_integer = "integer" -xsd_nonPositiveInteger = "nonPositiveInteger" -xsd_negativeInteger = "negativeInteger" -xsd_nonNegativeInteger = "nonNegativeInteger" -xsd_positiveInteger = "positiveInteger" -xsd_long = "long" -xsd_int = "int" -xsd_short = "short" -xsd_byte = "byte" -xsd_unsignedLong = "unsignedLong" -xsd_unsignedInt = "unsignedInt" -xsd_unsignedShort = "unsignedShort" -xsd_unsignedByte = "unsignedByte" - - -xsd_length - , xsd_maxLength - , xsd_minLength - , xsd_maxExclusive - , xsd_minExclusive - , xsd_maxInclusive - , xsd_minInclusive - , xsd_totalDigits - , xsd_fractionDigits - , xsd_pattern - , xsd_enumeration :: String - -xsd_length = rng_length -xsd_maxLength = rng_maxLength -xsd_minLength = rng_minLength - -xsd_maxExclusive = rng_maxExclusive -xsd_minExclusive = rng_minExclusive -xsd_maxInclusive = rng_maxInclusive -xsd_minInclusive = rng_minInclusive - -xsd_totalDigits = "totalDigits" -xsd_fractionDigits = "fractionDigits" - -xsd_pattern = "pattern" -xsd_enumeration = "enumeration" - --- ---------------------------------------- - --- | The main entry point to the W3C XML schema datatype library. --- --- The 'DTC' constructor exports the list of supported datatypes and params. --- It also exports the specialized functions to validate a XML instance value with --- respect to a datatype. -w3cDatatypeLib :: DatatypeLibrary -w3cDatatypeLib = (w3cNS, DTC datatypeAllowsW3C datatypeEqualW3C w3cDatatypes) - - --- | All supported datatypes of the library -w3cDatatypes :: AllowedDatatypes -w3cDatatypes = [ (xsd_string, stringParams) - , (xsd_normalizedString, stringParams) - , (xsd_token, stringParams) - , (xsd_language, stringParams) - , (xsd_NMTOKEN, stringParams) - , (xsd_NMTOKENS, listParams ) - , (xsd_Name, stringParams) - , (xsd_NCName, stringParams) - , (xsd_ID, stringParams) - , (xsd_IDREF, stringParams) - , (xsd_IDREFS, listParams ) - , (xsd_ENTITY, stringParams) - , (xsd_ENTITIES, listParams ) - , (xsd_anyURI, stringParams) - , (xsd_QName, stringParams) - , (xsd_NOTATION, stringParams) - , (xsd_hexBinary, stringParams) - , (xsd_base64Binary, stringParams) - , (xsd_decimal, decimalParams) - , (xsd_integer, integerParams) - , (xsd_nonPositiveInteger, integerParams) - , (xsd_negativeInteger, integerParams) - , (xsd_nonNegativeInteger, integerParams) - , (xsd_positiveInteger, integerParams) - , (xsd_long, integerParams) - , (xsd_int, integerParams) - , (xsd_short, integerParams) - , (xsd_byte, integerParams) - , (xsd_unsignedLong, integerParams) - , (xsd_unsignedInt, integerParams) - , (xsd_unsignedShort, integerParams) - , (xsd_unsignedByte, integerParams) - ] - --- ---------------------------------------- - --- | List of allowed params for the string datatypes -stringParams :: AllowedParams -stringParams = xsd_pattern : map fst fctTableString - --- ---------------------------------------- - -patternValid :: ParamList -> CheckString -patternValid params - = foldr (>>>) ok . map paramPatternValid $ params - where - paramPatternValid (pn, pv) - | pn == xsd_pattern = assert (patParamValid pv) (errorMsgParam pn pv) - | otherwise = ok - -patParamValid :: String -> String -> Bool -patParamValid regex a - = case parseRegex regex of - (Left _ ) -> False - (Right ex) -> isNothing . matchWithRE ex $ a - --- ---------------------------------------- - --- | List of allowed params for the decimal datatypes - -decimalParams :: AllowedParams -decimalParams = xsd_pattern : map fst fctTableDecimal - -fctTableDecimal :: [(String, String -> Rational -> Bool)] -fctTableDecimal - = [ (xsd_maxExclusive, cvd (>)) - , (xsd_minExclusive, cvd (<)) - , (xsd_maxInclusive, cvd (>=)) - , (xsd_minInclusive, cvd (<=)) - , (xsd_totalDigits, cvi (\ l v -> totalDigits v == l)) - , (xsd_fractionDigits, cvi (\ l v -> fractionDigits v == l)) - ] - where - cvd :: (Rational -> Rational -> Bool) -> (String -> Rational -> Bool) - cvd op = \ x y -> isDecimal x && readDecimal x `op` y - - cvi :: (Int -> Rational -> Bool) -> (String -> Rational -> Bool) - cvi op = \ x y -> isNumber x && read x `op` y - -decimalValid :: ParamList -> CheckA Rational Rational -decimalValid params - = foldr (>>>) ok . map paramDecimalValid $ params - where - paramDecimalValid (pn, pv) - = assert - ((fromMaybe (const . const $ True) . lookup pn $ fctTableDecimal) pv) - (errorMsgParam pn pv . showDecimal) - --- ---------------------------------------- - --- | List of allowed params for the decimal and integer datatypes - -integerParams :: AllowedParams -integerParams = xsd_pattern : map fst fctTableInteger - -fctTableInteger :: [(String, String -> Integer -> Bool)] -fctTableInteger - = [ (xsd_maxExclusive, cvi (>)) - , (xsd_minExclusive, cvi (<)) - , (xsd_maxInclusive, cvi (>=)) - , (xsd_minInclusive, cvi (<=)) - , (xsd_totalDigits, cvi (\ l v -> totalD v == toInteger l)) - ] - where - cvi :: (Integer -> Integer -> Bool) -> (String -> Integer -> Bool) - cvi op = \ x y -> isNumber x && read x `op` y - - totalD i - | i < 0 = totalD (0-i) - | otherwise = toInteger . length . show $ i - -integerValid :: DatatypeName -> ParamList -> CheckA Integer Integer -integerValid datatype params - = assertInRange - >>> - (foldr (>>>) ok . map paramIntegerValid $ params) - where - assertInRange :: CheckA Integer Integer - assertInRange - = assert - (fromMaybe (const True) . lookup datatype $ integerRangeTable) - (\ v -> ( "Datatype " ++ show datatype ++ - " with value = " ++ show v ++ - " not in integer value range" - ) - ) - paramIntegerValid (pn, pv) - = assert - ((fromMaybe (const . const $ True) . lookup pn $ fctTableInteger) pv) - (errorMsgParam pn pv . show) - -integerRangeTable :: [(String, Integer -> Bool)] -integerRangeTable = [ (xsd_integer, const True) - , (xsd_nonPositiveInteger, (<=0) ) - , (xsd_negativeInteger, ( <0) ) - , (xsd_nonNegativeInteger, (>=0) ) - , (xsd_positiveInteger, ( >0) ) - , (xsd_long, inR 9223372036854775808) - , (xsd_int, inR 2147483648) - , (xsd_short, inR 32768) - , (xsd_byte, inR 128) - , (xsd_unsignedLong, inP 18446744073709551616) - , (xsd_unsignedInt, inP 4294967296) - , (xsd_unsignedShort, inP 65536) - , (xsd_unsignedByte, inP 256) - ] - where - inR b i = (0 - b) <= i && i < b - inP b i = 0 <= i && i < b - --- ---------------------------------------- - --- | List of allowed params for the list datatypes - -listParams :: AllowedParams -listParams = xsd_pattern : map fst fctTableList - -listValid :: DatatypeName -> ParamList -> CheckString -listValid d = stringValidFT fctTableList d 0 (-1) - --- ---------------------------------------- - -isNameList :: (String -> Bool) -> String -> Bool -isNameList p w - = not (null ts) && all p ts - where - ts = words w - --- ---------------------------------------- - -rex :: String -> Regex -rex = either undefined id . parseRegex - -isRex :: Regex -> String -> Bool -isRex ex = isNothing . matchWithRE ex - --- ---------------------------------------- - -rexLanguage - , rexHexBinary - , rexBase64Binary - , rexDecimal - , rexInteger :: Regex - -rexLanguage = rex "[A-Za-z]{1,8}(-[A-Za-z]{1,8})*" -rexHexBinary = rex "([A-Fa-f0-9]{2})*" -rexBase64Binary = rex $ - "(" ++ b64 ++ "{4})*((" ++ b64 ++ "{2}==)|(" ++ b64 ++ "{3}=)|)" - where - b64 = "[A-Za-z0-9+/]" -rexDecimal = rex "(\\+|-)?(([0-9]+(\\.[0-9]*)?)|(\\.[0-9]+))" -rexInteger = rex "(\\+|-)?[0-9]+" - -isLanguage - , isHexBinary - , isBase64Binary - , isDecimal - , isInteger :: String -> Bool - -isLanguage = isRex rexLanguage -isHexBinary = isRex rexHexBinary -isBase64Binary = isRex rexBase64Binary -isDecimal = isRex rexDecimal -isInteger = isRex rexInteger - --- ---------------------------------------- - -normBase64 :: String -> String -normBase64 = filter isB64 - where - isB64 c = ( 'A' <= c && c <= 'Z') - || - ( 'a' <= c && c <= 'z') - || - ( '0' <= c && c <= '9') - || - c == '+' - || - c == '/' - || - c == '=' - --- ---------------------------------------- - -readDecimal - , readDecimal' :: String -> Rational - -readDecimal ('+':s) = readDecimal' s -readDecimal ('-':s) = negate (readDecimal' s) -readDecimal s = readDecimal' s - -readDecimal' s - | f == 0 = (n % 1) - | otherwise = (n % 1) + (f % (10 ^ (toInteger (length fs)))) - where - (ns, fs') = span (/= '.') s - fs = drop 1 fs' - - f :: Integer - f | null fs = 0 - | otherwise = read fs - n :: Integer - n | null ns = 0 - | otherwise = read ns - -totalDigits - , totalDigits' - , fractionDigits :: Rational -> Int - -totalDigits r - | r == 0 = 0 - | r < 0 = totalDigits' . negate $ r - | otherwise = totalDigits' $ r - -totalDigits' r - | denominator r == 1 = length . show . numerator $ r - | r < (1%1) = (\ x -> x-1) . totalDigits' . (+ (1%1)) $ r - | otherwise = totalDigits' . (* (10 % 1)) $ r - -fractionDigits r - | denominator r == 1 = 0 - | otherwise = (+1) . fractionDigits . (* (10 % 1)) $ r - -showDecimal - , showDecimal' :: Rational -> String - -showDecimal d - | d < 0 = ('-':) . showDecimal' . negate $ d - | d < 1 = drop 1 . showDecimal' . (+ (1%1)) $ d - | otherwise = showDecimal' $ d - -showDecimal' d - | denominator d == 1 = show . numerator $ d - | otherwise = times10 0 $ d - where - times10 i' d' - | denominator d' == 1 = let - (x, y) = splitAt i' . reverse . show . numerator $ d' - in - reverse y ++ "." ++ reverse x - | otherwise = times10 (i' + 1) (d' * (10 % 1)) - --- ---------------------------------------- - --- | Tests whether a XML instance value matches a data-pattern. --- (see also: 'stringValid') - -datatypeAllowsW3C :: DatatypeAllows -datatypeAllowsW3C d params value _ - = performCheck check value - where - validString normFct - = validPattern - >>> - arr normFct - >>> - validLength - - validNormString - = validString normalizeWhitespace - - validPattern - = patternValid params - - validLength - = stringValid d 0 (-1) params - - validList - = validPattern - >>> - arr normalizeWhitespace - >>> - validListLength - - validListLength - = listValid d params - - validName isN - = assertW3C isN - - validNCName - = validNormString >>> validName isNCName - - validQName - = validNormString >>> validName isWellformedQualifiedName - - validDecimal - = arr normalizeWhitespace - >>> - assertW3C isDecimal - >>> - checkWith readDecimal (decimalValid params) - - validInteger inRange - = validPattern - >>> - arr normalizeWhitespace - >>> - assertW3C isInteger - >>> - checkWith read (integerValid inRange params) - - check :: CheckString - check = fromMaybe notFound . lookup d $ checks - - notFound = failure $ errorMsgDataTypeNotAllowed w3cNS d params - - checks :: [(String, CheckA String String)] - checks = [ (xsd_string, validString id) - , (xsd_normalizedString, validString normalizeBlanks) - , (xsd_token, validNormString) - , (xsd_language, validNormString >>> assertW3C isLanguage) - , (xsd_NMTOKEN, validNormString >>> validName isNmtoken) - , (xsd_NMTOKENS, validList >>> validName (isNameList isNmtoken)) - , (xsd_Name, validNormString >>> validName isName) - , (xsd_NCName, validNCName) - , (xsd_ID, validNCName) - , (xsd_IDREF, validNCName) - , (xsd_IDREFS, validList >>> validName (isNameList isNCName)) - , (xsd_ENTITY, validNCName) - , (xsd_ENTITIES, validList >>> validName (isNameList isNCName)) - , (xsd_anyURI, validName isURIReference >>> validString escapeURI) - , (xsd_QName, validQName) - , (xsd_NOTATION, validQName) - , (xsd_hexBinary, validString id >>> assertW3C isHexBinary) - , (xsd_base64Binary, validString normBase64 >>> assertW3C isBase64Binary) - , (xsd_decimal, validPattern >>> validDecimal) - , (xsd_integer, validInteger xsd_integer) - , (xsd_nonPositiveInteger, validInteger xsd_nonPositiveInteger) - , (xsd_negativeInteger, validInteger xsd_negativeInteger) - , (xsd_nonNegativeInteger, validInteger xsd_nonNegativeInteger) - , (xsd_positiveInteger, validInteger xsd_positiveInteger) - , (xsd_long, validInteger xsd_long) - , (xsd_int, validInteger xsd_int) - , (xsd_short, validInteger xsd_short) - , (xsd_byte, validInteger xsd_byte) - , (xsd_unsignedLong, validInteger xsd_unsignedLong) - , (xsd_unsignedInt, validInteger xsd_unsignedInt) - , (xsd_unsignedShort, validInteger xsd_unsignedShort) - , (xsd_unsignedByte, validInteger xsd_unsignedByte) - ] - assertW3C p = assert p errW3C - errW3C = errorMsgDataLibQName w3cNS d - --- ---------------------------------------- - --- | Tests whether a XML instance value matches a value-pattern. - -datatypeEqualW3C :: DatatypeEqual -datatypeEqualW3C d s1 _ s2 _ - = performCheck check (s1, s2) - where - check :: CheckA (String, String) (String, String) - check = maybe notFound found . lookup d $ norm - - notFound = failure $ const (errorMsgDataTypeNotAllowed0 w3cNS d) - - found nf = arr (\ (x1, x2) -> (nf x1, nf x2)) -- normalize both values - >>> - assert (uncurry (==)) (uncurry $ errorMsgEqual d) -- and check on (==) - - norm = [ (xsd_string, id ) - , (xsd_normalizedString, normalizeBlanks ) - , (xsd_token, normalizeWhitespace ) - , (xsd_language, normalizeWhitespace ) - , (xsd_NMTOKEN, normalizeWhitespace ) - , (xsd_NMTOKENS, normalizeWhitespace ) - , (xsd_Name, normalizeWhitespace ) - , (xsd_NCName, normalizeWhitespace ) - , (xsd_ID, normalizeWhitespace ) - , (xsd_IDREF, normalizeWhitespace ) - , (xsd_IDREFS, normalizeWhitespace ) - , (xsd_ENTITY, normalizeWhitespace ) - , (xsd_ENTITIES, normalizeWhitespace ) - , (xsd_anyURI, escapeURI . normalizeWhitespace ) - , (xsd_QName, normalizeWhitespace ) - , (xsd_NOTATION, normalizeWhitespace ) - , (xsd_hexBinary, id ) - , (xsd_base64Binary, normBase64 ) - , (xsd_decimal, show . readDecimal . normalizeWhitespace ) - ] - --- ---------------------------------------- +import Data.Maybe +import Data.Ratio + +import Network.URI ( isURIReference ) + +import Text.XML.HXT.DOM.QualifiedName ( isWellformedQualifiedName + , isNCName + ) +import Text.XML.HXT.RelaxNG.DataTypeLibUtils +import Text.XML.HXT.RelaxNG.XmlSchema.Regex ( Regex + , matchWithRE + ) +import Text.XML.HXT.RelaxNG.XmlSchema.RegexParser + ( parseRegex + ) + +-- ------------------------------------------------------------ + +-- | Namespace of the W3C XML schema datatype library + +w3cNS :: String +w3cNS = "http://www.w3.org/2001/XMLSchema-datatypes" + + +xsd_string + , xsd_normalizedString + , xsd_token + , xsd_language + , xsd_NMTOKEN + , xsd_NMTOKENS + , xsd_Name + , xsd_NCName + , xsd_ID + , xsd_IDREF + , xsd_IDREFS + , xsd_ENTITY + , xsd_ENTITIES + , xsd_anyURI + , xsd_QName + , xsd_NOTATION + , xsd_hexBinary + , xsd_base64Binary + , xsd_decimal + , xsd_integer + , xsd_nonPositiveInteger + , xsd_negativeInteger + , xsd_nonNegativeInteger + , xsd_positiveInteger + , xsd_long + , xsd_int + , xsd_short + , xsd_byte + , xsd_unsignedLong + , xsd_unsignedInt + , xsd_unsignedShort + , xsd_unsignedByte :: String + +xsd_string = "string" +xsd_normalizedString = "normalizedString" +xsd_token = "token" +xsd_language = "language" +xsd_NMTOKEN = "NMTOKEN" +xsd_NMTOKENS = "NMTOKENS" +xsd_Name = "Name" +xsd_NCName = "NCName" +xsd_ID = "ID" +xsd_IDREF = "IDREF" +xsd_IDREFS = "IDREFS" +xsd_ENTITY = "ENTITY" +xsd_ENTITIES = "ENTITIES" +xsd_anyURI = "anyURI" +xsd_QName = "QName" +xsd_NOTATION = "NOTATION" +xsd_hexBinary = "hexBinary" +xsd_base64Binary = "base64Binary" +xsd_decimal = "decimal" +xsd_integer = "integer" +xsd_nonPositiveInteger = "nonPositiveInteger" +xsd_negativeInteger = "negativeInteger" +xsd_nonNegativeInteger = "nonNegativeInteger" +xsd_positiveInteger = "positiveInteger" +xsd_long = "long" +xsd_int = "int" +xsd_short = "short" +xsd_byte = "byte" +xsd_unsignedLong = "unsignedLong" +xsd_unsignedInt = "unsignedInt" +xsd_unsignedShort = "unsignedShort" +xsd_unsignedByte = "unsignedByte" + + +xsd_length + , xsd_maxLength + , xsd_minLength + , xsd_maxExclusive + , xsd_minExclusive + , xsd_maxInclusive + , xsd_minInclusive + , xsd_totalDigits + , xsd_fractionDigits + , xsd_pattern + , xsd_enumeration :: String + +xsd_length = rng_length +xsd_maxLength = rng_maxLength +xsd_minLength = rng_minLength + +xsd_maxExclusive = rng_maxExclusive +xsd_minExclusive = rng_minExclusive +xsd_maxInclusive = rng_maxInclusive +xsd_minInclusive = rng_minInclusive + +xsd_totalDigits = "totalDigits" +xsd_fractionDigits = "fractionDigits" + +xsd_pattern = "pattern" +xsd_enumeration = "enumeration" + +-- ---------------------------------------- + +-- | The main entry point to the W3C XML schema datatype library. +-- +-- The 'DTC' constructor exports the list of supported datatypes and params. +-- It also exports the specialized functions to validate a XML instance value with +-- respect to a datatype. +w3cDatatypeLib :: DatatypeLibrary +w3cDatatypeLib = (w3cNS, DTC datatypeAllowsW3C datatypeEqualW3C w3cDatatypes) + + +-- | All supported datatypes of the library +w3cDatatypes :: AllowedDatatypes +w3cDatatypes = [ (xsd_string, stringParams) + , (xsd_normalizedString, stringParams) + , (xsd_token, stringParams) + , (xsd_language, stringParams) + , (xsd_NMTOKEN, stringParams) + , (xsd_NMTOKENS, listParams ) + , (xsd_Name, stringParams) + , (xsd_NCName, stringParams) + , (xsd_ID, stringParams) + , (xsd_IDREF, stringParams) + , (xsd_IDREFS, listParams ) + , (xsd_ENTITY, stringParams) + , (xsd_ENTITIES, listParams ) + , (xsd_anyURI, stringParams) + , (xsd_QName, stringParams) + , (xsd_NOTATION, stringParams) + , (xsd_hexBinary, stringParams) + , (xsd_base64Binary, stringParams) + , (xsd_decimal, decimalParams) + , (xsd_integer, integerParams) + , (xsd_nonPositiveInteger, integerParams) + , (xsd_negativeInteger, integerParams) + , (xsd_nonNegativeInteger, integerParams) + , (xsd_positiveInteger, integerParams) + , (xsd_long, integerParams) + , (xsd_int, integerParams) + , (xsd_short, integerParams) + , (xsd_byte, integerParams) + , (xsd_unsignedLong, integerParams) + , (xsd_unsignedInt, integerParams) + , (xsd_unsignedShort, integerParams) + , (xsd_unsignedByte, integerParams) + ] + +-- ---------------------------------------- + +-- | List of allowed params for the string datatypes +stringParams :: AllowedParams +stringParams = xsd_pattern : map fst fctTableString + +-- ---------------------------------------- + +patternValid :: ParamList -> CheckString +patternValid params + = foldr (>>>) ok . map paramPatternValid $ params + where + paramPatternValid (pn, pv) + | pn == xsd_pattern = assert (patParamValid pv) (errorMsgParam pn pv) + | otherwise = ok + +patParamValid :: String -> String -> Bool +patParamValid regex a + = case parseRegex regex of + (Left _ ) -> False + (Right ex) -> isNothing . matchWithRE ex $ a + +-- ---------------------------------------- + +-- | List of allowed params for the decimal datatypes + +decimalParams :: AllowedParams +decimalParams = xsd_pattern : map fst fctTableDecimal + +fctTableDecimal :: [(String, String -> Rational -> Bool)] +fctTableDecimal + = [ (xsd_maxExclusive, cvd (>)) + , (xsd_minExclusive, cvd (<)) + , (xsd_maxInclusive, cvd (>=)) + , (xsd_minInclusive, cvd (<=)) + , (xsd_totalDigits, cvi (\ l v -> totalDigits v == l)) + , (xsd_fractionDigits, cvi (\ l v -> fractionDigits v == l)) + ] + where + cvd :: (Rational -> Rational -> Bool) -> (String -> Rational -> Bool) + cvd op = \ x y -> isDecimal x && readDecimal x `op` y + + cvi :: (Int -> Rational -> Bool) -> (String -> Rational -> Bool) + cvi op = \ x y -> isNumber x && read x `op` y + +decimalValid :: ParamList -> CheckA Rational Rational +decimalValid params + = foldr (>>>) ok . map paramDecimalValid $ params + where + paramDecimalValid (pn, pv) + = assert + ((fromMaybe (const . const $ True) . lookup pn $ fctTableDecimal) pv) + (errorMsgParam pn pv . showDecimal) + +-- ---------------------------------------- + +-- | List of allowed params for the decimal and integer datatypes + +integerParams :: AllowedParams +integerParams = xsd_pattern : map fst fctTableInteger + +fctTableInteger :: [(String, String -> Integer -> Bool)] +fctTableInteger + = [ (xsd_maxExclusive, cvi (>)) + , (xsd_minExclusive, cvi (<)) + , (xsd_maxInclusive, cvi (>=)) + , (xsd_minInclusive, cvi (<=)) + , (xsd_totalDigits, cvi (\ l v -> totalD v == toInteger l)) + ] + where + cvi :: (Integer -> Integer -> Bool) -> (String -> Integer -> Bool) + cvi op = \ x y -> isNumber x && read x `op` y + + totalD i + | i < 0 = totalD (0-i) + | otherwise = toInteger . length . show $ i + +integerValid :: DatatypeName -> ParamList -> CheckA Integer Integer +integerValid datatype params + = assertInRange + >>> + (foldr (>>>) ok . map paramIntegerValid $ params) + where + assertInRange :: CheckA Integer Integer + assertInRange + = assert + (fromMaybe (const True) . lookup datatype $ integerRangeTable) + (\ v -> ( "Datatype " ++ show datatype ++ + " with value = " ++ show v ++ + " not in integer value range" + ) + ) + paramIntegerValid (pn, pv) + = assert + ((fromMaybe (const . const $ True) . lookup pn $ fctTableInteger) pv) + (errorMsgParam pn pv . show) + +integerRangeTable :: [(String, Integer -> Bool)] +integerRangeTable = [ (xsd_integer, const True) + , (xsd_nonPositiveInteger, (<=0) ) + , (xsd_negativeInteger, ( <0) ) + , (xsd_nonNegativeInteger, (>=0) ) + , (xsd_positiveInteger, ( >0) ) + , (xsd_long, inR 9223372036854775808) + , (xsd_int, inR 2147483648) + , (xsd_short, inR 32768) + , (xsd_byte, inR 128) + , (xsd_unsignedLong, inP 18446744073709551616) + , (xsd_unsignedInt, inP 4294967296) + , (xsd_unsignedShort, inP 65536) + , (xsd_unsignedByte, inP 256) + ] + where + inR b i = (0 - b) <= i && i < b + inP b i = 0 <= i && i < b + +-- ---------------------------------------- + +-- | List of allowed params for the list datatypes + +listParams :: AllowedParams +listParams = xsd_pattern : map fst fctTableList + +listValid :: DatatypeName -> ParamList -> CheckString +listValid d = stringValidFT fctTableList d 0 (-1) + +-- ---------------------------------------- + +isNameList :: (String -> Bool) -> String -> Bool +isNameList p w + = not (null ts) && all p ts + where + ts = words w + +-- ---------------------------------------- + +rex :: String -> Regex +rex = either undefined id . parseRegex + +isRex :: Regex -> String -> Bool +isRex ex = isNothing . matchWithRE ex + +-- ---------------------------------------- + +rexLanguage + , rexHexBinary + , rexBase64Binary + , rexDecimal + , rexInteger :: Regex + +rexLanguage = rex "[A-Za-z]{1,8}(-[A-Za-z]{1,8})*" +rexHexBinary = rex "([A-Fa-f0-9]{2})*" +rexBase64Binary = rex $ + "(" ++ b64 ++ "{4})*((" ++ b64 ++ "{2}==)|(" ++ b64 ++ "{3}=)|)" + where + b64 = "[A-Za-z0-9+/]" +rexDecimal = rex "(\\+|-)?(([0-9]+(\\.[0-9]*)?)|(\\.[0-9]+))" +rexInteger = rex "(\\+|-)?[0-9]+" + +isLanguage + , isHexBinary + , isBase64Binary + , isDecimal + , isInteger :: String -> Bool + +isLanguage = isRex rexLanguage +isHexBinary = isRex rexHexBinary +isBase64Binary = isRex rexBase64Binary +isDecimal = isRex rexDecimal +isInteger = isRex rexInteger + +-- ---------------------------------------- + +normBase64 :: String -> String +normBase64 = filter isB64 + where + isB64 c = ( 'A' <= c && c <= 'Z') + || + ( 'a' <= c && c <= 'z') + || + ( '0' <= c && c <= '9') + || + c == '+' + || + c == '/' + || + c == '=' + +-- ---------------------------------------- + +readDecimal + , readDecimal' :: String -> Rational + +readDecimal ('+':s) = readDecimal' s +readDecimal ('-':s) = negate (readDecimal' s) +readDecimal s = readDecimal' s + +readDecimal' s + | f == 0 = (n % 1) + | otherwise = (n % 1) + (f % (10 ^ (toInteger (length fs)))) + where + (ns, fs') = span (/= '.') s + fs = drop 1 fs' + + f :: Integer + f | null fs = 0 + | otherwise = read fs + n :: Integer + n | null ns = 0 + | otherwise = read ns + +totalDigits + , totalDigits' + , fractionDigits :: Rational -> Int + +totalDigits r + | r == 0 = 0 + | r < 0 = totalDigits' . negate $ r + | otherwise = totalDigits' $ r + +totalDigits' r + | denominator r == 1 = length . show . numerator $ r + | r < (1%1) = (\ x -> x-1) . totalDigits' . (+ (1%1)) $ r + | otherwise = totalDigits' . (* (10 % 1)) $ r + +fractionDigits r + | denominator r == 1 = 0 + | otherwise = (+1) . fractionDigits . (* (10 % 1)) $ r + +showDecimal + , showDecimal' :: Rational -> String + +showDecimal d + | d < 0 = ('-':) . showDecimal' . negate $ d + | d < 1 = drop 1 . showDecimal' . (+ (1%1)) $ d + | otherwise = showDecimal' $ d + +showDecimal' d + | denominator d == 1 = show . numerator $ d + | otherwise = times10 0 $ d + where + times10 i' d' + | denominator d' == 1 = let + (x, y) = splitAt i' . reverse . show . numerator $ d' + in + reverse y ++ "." ++ reverse x + | otherwise = times10 (i' + 1) (d' * (10 % 1)) + +-- ---------------------------------------- + +-- | Tests whether a XML instance value matches a data-pattern. +-- (see also: 'stringValid') + +datatypeAllowsW3C :: DatatypeAllows +datatypeAllowsW3C d params value _ + = performCheck check value + where + validString normFct + = validPattern + >>> + arr normFct + >>> + validLength + + validNormString + = validString normalizeWhitespace + + validPattern + = patternValid params + + validLength + = stringValid d 0 (-1) params + + validList + = validPattern + >>> + arr normalizeWhitespace + >>> + validListLength + + validListLength + = listValid d params + + validName isN + = assertW3C isN + + validNCName + = validNormString >>> validName isNCName + + validQName + = validNormString >>> validName isWellformedQualifiedName + + validDecimal + = arr normalizeWhitespace + >>> + assertW3C isDecimal + >>> + checkWith readDecimal (decimalValid params) + + validInteger inRange + = validPattern + >>> + arr normalizeWhitespace + >>> + assertW3C isInteger + >>> + checkWith read (integerValid inRange params) + + check :: CheckString + check = fromMaybe notFound . lookup d $ checks + + notFound = failure $ errorMsgDataTypeNotAllowed w3cNS d params + + checks :: [(String, CheckA String String)] + checks = [ (xsd_string, validString id) + , (xsd_normalizedString, validString normalizeBlanks) + , (xsd_token, validNormString) + , (xsd_language, validNormString >>> assertW3C isLanguage) + , (xsd_NMTOKEN, validNormString >>> validName isNmtoken) + , (xsd_NMTOKENS, validList >>> validName (isNameList isNmtoken)) + , (xsd_Name, validNormString >>> validName isName) + , (xsd_NCName, validNCName) + , (xsd_ID, validNCName) + , (xsd_IDREF, validNCName) + , (xsd_IDREFS, validList >>> validName (isNameList isNCName)) + , (xsd_ENTITY, validNCName) + , (xsd_ENTITIES, validList >>> validName (isNameList isNCName)) + , (xsd_anyURI, validName isURIReference >>> validString escapeURI) + , (xsd_QName, validQName) + , (xsd_NOTATION, validQName) + , (xsd_hexBinary, validString id >>> assertW3C isHexBinary) + , (xsd_base64Binary, validString normBase64 >>> assertW3C isBase64Binary) + , (xsd_decimal, validPattern >>> validDecimal) + , (xsd_integer, validInteger xsd_integer) + , (xsd_nonPositiveInteger, validInteger xsd_nonPositiveInteger) + , (xsd_negativeInteger, validInteger xsd_negativeInteger) + , (xsd_nonNegativeInteger, validInteger xsd_nonNegativeInteger) + , (xsd_positiveInteger, validInteger xsd_positiveInteger) + , (xsd_long, validInteger xsd_long) + , (xsd_int, validInteger xsd_int) + , (xsd_short, validInteger xsd_short) + , (xsd_byte, validInteger xsd_byte) + , (xsd_unsignedLong, validInteger xsd_unsignedLong) + , (xsd_unsignedInt, validInteger xsd_unsignedInt) + , (xsd_unsignedShort, validInteger xsd_unsignedShort) + , (xsd_unsignedByte, validInteger xsd_unsignedByte) + ] + assertW3C p = assert p errW3C + errW3C = errorMsgDataLibQName w3cNS d + +-- ---------------------------------------- + +-- | Tests whether a XML instance value matches a value-pattern. + +datatypeEqualW3C :: DatatypeEqual +datatypeEqualW3C d s1 _ s2 _ + = performCheck check (s1, s2) + where + check :: CheckA (String, String) (String, String) + check = maybe notFound found . lookup d $ norm + + notFound = failure $ const (errorMsgDataTypeNotAllowed0 w3cNS d) + + found nf = arr (\ (x1, x2) -> (nf x1, nf x2)) -- normalize both values + >>> + assert (uncurry (==)) (uncurry $ errorMsgEqual d) -- and check on (==) + + norm = [ (xsd_string, id ) + , (xsd_normalizedString, normalizeBlanks ) + , (xsd_token, normalizeWhitespace ) + , (xsd_language, normalizeWhitespace ) + , (xsd_NMTOKEN, normalizeWhitespace ) + , (xsd_NMTOKENS, normalizeWhitespace ) + , (xsd_Name, normalizeWhitespace ) + , (xsd_NCName, normalizeWhitespace ) + , (xsd_ID, normalizeWhitespace ) + , (xsd_IDREF, normalizeWhitespace ) + , (xsd_IDREFS, normalizeWhitespace ) + , (xsd_ENTITY, normalizeWhitespace ) + , (xsd_ENTITIES, normalizeWhitespace ) + , (xsd_anyURI, escapeURI . normalizeWhitespace ) + , (xsd_QName, normalizeWhitespace ) + , (xsd_NOTATION, normalizeWhitespace ) + , (xsd_hexBinary, id ) + , (xsd_base64Binary, normBase64 ) + , (xsd_decimal, show . readDecimal . normalizeWhitespace ) + ] + +-- ---------------------------------------- diff --git a/doc/hdoc/src/Text-XML-HXT-RelaxNG-XmlSchema-Regex.html b/doc/hdoc/src/Text-XML-HXT-RelaxNG-XmlSchema-Regex.html --- a/doc/hdoc/src/Text-XML-HXT-RelaxNG-XmlSchema-Regex.html +++ b/doc/hdoc/src/Text-XML-HXT-RelaxNG-XmlSchema-Regex.html @@ -47,259 +47,281 @@ , nullable , delta , matchWithRE - ) -where - -import Data.Maybe + , (<&&>) + , (<||>) + ) +where --- ------------------------------------------------------------ +import Data.Maybe -data Regex = Zero String - | Unit - | Sym (Char -> Bool) - | Dot - | Star Regex - | Alt Regex Regex - | Seq Regex Regex - | Rep Int Regex -- 1 or more repetitions - | Rng Int Int Regex -- n..m repetitions - | Dif Regex Regex -- r1 - r2 - --- ------------------------------------------------------------ +-- ------------------------------------------------------------ + +data Regex = Zero String + | Unit + | Sym (Char -> Bool) + | Dot + | Star Regex + | Alt Regex Regex + | Seq Regex Regex + | Rep Int Regex -- 1 or more repetitions + | Rng Int Int Regex -- n..m repetitions + | Dif Regex Regex -- r1 - r2 -{- just for documentation +-- ------------------------------------------------------------ -class Inv a where - inv :: a -> Bool - -instance Inv Regex where - inv (Zero _) = True - inv Unit = True - inv (Sym p) = not . null . chars $ p - inv Dot = True - inv (Star e) = inv e - inv (Alt e1 e2) = inv e1 && - inv e2 - inv (Seq e1 e2) = inv e1 && +{- just for documentation + +class Inv a where + inv :: a -> Bool + +instance Inv Regex where + inv (Zero _) = True + inv Unit = True + inv (Sym p) = not . null . chars $ p + inv Dot = True + inv (Star e) = inv e + inv (Alt e1 e2) = inv e1 && inv e2 - inv (Rep i e) = i > 0 && inv e - inv (Rng i j e) = (i < j || (i == j && i > 1)) && - inv e - inv (Dif e1 e2) = inv e1 && - inv e2 --} --- ------------------------------------------------------------ --- --- smart constructors - + inv (Seq e1 e2) = inv e1 && + inv e2 + inv (Rep i e) = i > 0 && inv e + inv (Rng i j e) = (i < j || (i == j && i > 1)) && + inv e + inv (Dif e1 e2) = inv e1 && + inv e2 +-} + +-- ------------------------------------------------------------ -- | enumerate all chars specified by a predicate -- -- this function is expensive, it should only be used for testing -chars :: (Char -> Bool) -> [Char] -chars p = filter p $ [minBound .. maxBound] +chars :: (Char -> Bool) -> [Char] +chars p = filter p $ [minBound .. maxBound] -charRngs :: [Char] -> [(Char, Char)] -charRngs [] = [] -charRngs (x:xs) = charRng x xs - where - charRng y [] = (x,y) : [] - charRng y xs'@(x1:xs1) - | x1 == succ y = charRng x1 xs1 - | otherwise = (x,y) : charRngs xs' +charRngs :: [Char] -> [(Char, Char)] +charRngs [] = [] +charRngs (x:xs) = charRng x xs + where + charRng y [] = (x,y) : [] + charRng y xs'@(x1:xs1) + | x1 == succ y = charRng x1 xs1 + | otherwise = (x,y) : charRngs xs' -mkZero :: String -> Regex -mkZero = Zero - -mkUnit :: Regex -mkUnit = Unit - -mkSym :: (Char -> Bool) -> Regex -mkSym = Sym - -mkSym1 :: Char -> Regex -mkSym1 c = mkSym (==c) +-- ------------------------------------------------------------ +-- +-- smart constructors + +mkZero :: String -> Regex +mkZero = Zero +{-# INLINE mkZero #-} + +mkUnit :: Regex +mkUnit = Unit +{-# INLINE mkUnit #-} -mkSymRng :: Char -> Char -> Regex -mkSymRng c1 c2 - | c1 == minBound && - c2 == maxBound = mkDot - | c1 <= c2 = mkSym $ ( \ x -> x >= c1 && x<= c2 ) - | otherwise = mkZero $ "empty char range" +mkSym :: (Char -> Bool) -> Regex +mkSym = Sym +{-# INLINE mkSym #-} + +mkSym1 :: Char -> Regex +mkSym1 c = mkSym (==c) -mkDot :: Regex -mkDot = Dot - -mkStar :: Regex -> Regex -mkStar (Zero _) = mkUnit -- {}* == () -mkStar e@Unit = e -- ()* == () -mkStar e@(Star _e1) = e -- (r*)* == r* -mkStar (Rep 1 e1) = mkStar e1 -- (r+)* == r* -mkStar e@(Alt _ _) = Star (rmStar e) -- (a*|b)* == (a|b)* -mkStar e = Star e +mkSymRng :: Char -> Char -> Regex +mkSymRng c1 c2 + | c1 == minBound && + c2 == maxBound = mkDot + | c1 <= c2 = mkSym $ (>= c1) <&&> (<= c2) + | otherwise = mkZero $ "empty char range" + +mkDot :: Regex +mkDot = Dot +{-# INLINE mkDot #-} -rmStar :: Regex -> Regex -rmStar (Alt e1 e2) = mkAlt (rmStar e1) (rmStar e2) -rmStar (Star e1) = rmStar e1 -rmStar (Rep 1 e1) = rmStar e1 -rmStar e1 = e1 - -mkAlt :: Regex -> Regex -> Regex -mkAlt e1 (Zero _) = e1 -- e1 u {} = e1 -mkAlt (Zero _) e2 = e2 -- {} u e2 = e2 -mkAlt e1@(Star Dot) _e2 = e1 -- A* u e1 = A* -mkAlt _e1 e2@(Star Dot) = e2 -- e1 u A* = A* -mkAlt (Sym p1) (Sym p2) = mkSym $ \ x -> p1 x || p2 x -- melting of predicates -mkAlt e1 e2@(Sym _) = mkAlt e2 e1 -- symmetry: predicates always first -mkAlt e1@(Sym _) (Alt e2@(Sym _) e3) = mkAlt (mkAlt e1 e2) e3 -- prepare melting of predicates -mkAlt (Alt e1 e2) e3 = mkAlt e1 (mkAlt e2 e3) -- associativity -mkAlt e1 e2 = Alt e1 e2 - -mkSeq :: Regex -> Regex -> Regex -mkSeq e1@(Zero _) _e2 = e1 -mkSeq _e1 e2@(Zero _) = e2 -mkSeq Unit e2 = e2 -mkSeq e1 Unit = e1 -mkSeq (Seq e1 e2) e3 = mkSeq e1 (mkSeq e2 e3) -mkSeq e1 e2 = Seq e1 e2 +mkStar :: Regex -> Regex +mkStar (Zero _) = mkUnit -- {}* == () +mkStar e@Unit = e -- ()* == () +mkStar e@(Star _e1) = e -- (r*)* == r* +mkStar (Rep 1 e1) = mkStar e1 -- (r+)* == r* +mkStar e@(Alt _ _) = Star (rmStar e) -- (a*|b)* == (a|b)* +mkStar e = Star e + +rmStar :: Regex -> Regex +rmStar (Alt e1 e2) = mkAlt (rmStar e1) (rmStar e2) +rmStar (Star e1) = rmStar e1 +rmStar (Rep 1 e1) = rmStar e1 +rmStar e1 = e1 + +mkAlt :: Regex -> Regex -> Regex +mkAlt e1 (Zero _) = e1 -- e1 u {} = e1 +mkAlt (Zero _) e2 = e2 -- {} u e2 = e2 +mkAlt e1@(Star Dot) _e2 = e1 -- A* u e1 = A* +mkAlt _e1 e2@(Star Dot) = e2 -- e1 u A* = A* +mkAlt (Sym p1) (Sym p2) = mkSym $ p1 <||> p2 -- melting of predicates +mkAlt e1 e2@(Sym _) = mkAlt e2 e1 -- symmetry: predicates always first +mkAlt e1@(Sym _) (Alt e2@(Sym _) e3) = mkAlt (mkAlt e1 e2) e3 -- prepare melting of predicates +mkAlt (Alt e1 e2) e3 = mkAlt e1 (mkAlt e2 e3) -- associativity +mkAlt e1 e2 = Alt e1 e2 -mkRep :: Int -> Regex -> Regex -mkRep 0 e = mkStar e -mkRep _ e@(Zero _) = e -mkRep _ e@Unit = e -mkRep i e = Rep i e - -mkRng :: Int -> Int -> Regex -> Regex -mkRng 0 0 _e = mkUnit -mkRng 1 1 e = e -mkRng lb ub _e - | lb > ub = Zero $ - "illegal range " ++ - show lb ++ ".." ++ show ub -mkRng _l _u e@(Zero _) = e -mkRng _l _u e@Unit = e -mkRng lb ub e = Rng lb ub e - -mkOpt :: Regex -> Regex -mkOpt = mkRng 0 1 - -mkDif :: Regex -> Regex -> Regex -mkDif e1@(Zero _) _e2 = e1 -mkDif e1 (Zero _) = e1 -mkDif _e1 (Star Dot) = mkZero "empty set in difference expr" -mkDif Dot (Sym p) = mkSym (not . p) -mkDif (Sym _) Dot = mkZero "empty set of chars in difference expr" -mkDif (Sym p1) (Sym p2) - | null . chars $ (\ x -> p1 x && not (p2 x)) - = mkZero "empty set of chars in difference expr" -mkDif e1 e2 = Dif e1 e2 - -mkCompl :: Regex -> Regex -mkCompl = mkDif mkDot - --- ------------------------------------------------------------ - -instance Show Regex where - show (Zero s) = "{err:" ++ s ++ "}" - show Unit = "()" - show (Sym p) - | null (tail cs) && - rng1 (head cs) - = escRng . head $ cs - | otherwise = "[" ++ concat cs' ++ "]" - where - rng1 (x,y) = x == y - cs = charRngs . chars $ p - cs' = map escRng cs - escRng (x, y) - | x == y = esc x - | succ x == y - = esc x ++ esc y - | otherwise - = esc x ++ "-" ++ esc y - esc x - | x `elem` "\\-[]{}()*+?.^" - = '\\':x:"" - | x >= ' ' && x <= '~' - = x:"" - | otherwise - = "&#" ++ show (fromEnum x) ++ ";" - show Dot = "." - show (Star e) = "(" ++ show e ++ ")*" - show (Alt e1 e2) = "(" ++ show e1 ++ "|" ++ show e2 ++ ")" - show (Seq e1 e2) = show e1 ++ show e2 - show (Rep 1 e) = "(" ++ show e ++ ")+" - show (Rep i e) = "(" ++ show e ++ "){" ++ show i ++ ",}" - show (Rng 0 1 e) = "(" ++ show e ++ ")?" - show (Rng i j e) = "(" ++ show e ++ "){" ++ show i ++ "," ++ show j ++ "}" - show (Dif e1 e2) = "(" ++ show e1 ++ "-" ++ show e2 ++ ")" - --- ------------------------------------------------------------ - -isZero :: Regex -> Bool -isZero (Zero _) = True -isZero _ = False - -nullable :: Regex -> Bool -nullable (Zero _) = False -nullable Unit = True -nullable (Sym _p) = False -- assumption: p holds for at least one char -nullable Dot = False -nullable (Star _) = True -nullable (Alt e1 e2) = nullable e1 || - nullable e2 -nullable (Seq e1 e2) = nullable e1 && - nullable e2 -nullable (Rep _i e) = nullable e -nullable (Rng i _ e) = i == 0 || - nullable e -nullable (Dif e1 e2) = nullable e1 && - not (nullable e2) - --- ------------------------------------------------------------ - -delta :: Regex -> Char -> Regex -delta e@(Zero _) _ = e -delta Unit c = mkZero $ - "unexpected char " ++ show c -delta (Sym p) c - | p c = mkUnit - | otherwise = mkZero $ - "unexpected char " ++ show c ++ ", expected: " ++ oneof ++ chars' - where - (cs, ds) = splitAt 40 (chars p) - oneof - | null (tail cs) = "" - | otherwise = "one of " - chars' - | null (tail cs) = "'" ++ cs ++ "'" - | null ds = "[" ++ cs ++ "]" - | otherwise = "[" ++ cs ++ "...]" - -delta Dot _ = mkUnit -delta e@(Star e1) c = mkSeq (delta e1 c) e -delta (Alt e1 e2) c = mkAlt (delta e1 c) (delta e2 c) -delta (Seq e1 e2) c - | nullable e1 = mkAlt (mkSeq (delta e1 c) e2) (delta e2 c) - | otherwise = mkSeq (delta e1 c) e2 -delta (Rep i e) c = mkSeq (delta e c) (mkRep (i-1) e) -delta (Rng i j e) c = mkSeq (delta e c) (mkRng ((i-1) `max` 0) (j-1) e) -delta (Dif e1 e2) c = mkDif (delta e1 c) (delta e2 c) - --- ------------------------------------------------------------ - -delta' :: Regex -> String -> Regex -delta' = foldl delta - -matchWithRE :: Regex -> String -> Maybe String -matchWithRE e - = res . delta' e - where - res (Zero err) = Just err - res re - | nullable re = Nothing -- o.k. - | otherwise = Just $ "input does not match " ++ show e +mkSeq :: Regex -> Regex -> Regex +mkSeq e1@(Zero _) _e2 = e1 +mkSeq _e1 e2@(Zero _) = e2 +mkSeq Unit e2 = e2 +mkSeq e1 Unit = e1 +mkSeq (Seq e1 e2) e3 = mkSeq e1 (mkSeq e2 e3) +mkSeq e1 e2 = Seq e1 e2 + +mkRep :: Int -> Regex -> Regex +mkRep 0 e = mkStar e +mkRep _ e@(Zero _) = e +mkRep _ e@Unit = e +mkRep i e = Rep i e + +mkRng :: Int -> Int -> Regex -> Regex +mkRng 0 0 _e = mkUnit +mkRng 1 1 e = e +mkRng lb ub _e + | lb > ub = Zero $ + "illegal range " ++ + show lb ++ ".." ++ show ub +mkRng _l _u e@(Zero _) = e +mkRng _l _u e@Unit = e +mkRng lb ub e = Rng lb ub e + +mkOpt :: Regex -> Regex +mkOpt = mkRng 0 1 + +mkDif :: Regex -> Regex -> Regex +mkDif e1@(Zero _) _e2 = e1 +mkDif e1 (Zero _) = e1 +mkDif _e1 (Star Dot) = mkZero "empty set in difference expr" +mkDif Dot (Sym p) = mkSym (not . p) +mkDif (Sym _) Dot = mkZero "empty set of chars in difference expr" +mkDif (Sym p1) (Sym p2) + | null . chars $ (\ x -> p1 x && not (p2 x)) + = mkZero "empty set of chars in difference expr" +mkDif e1 e2 = Dif e1 e2 + +mkCompl :: Regex -> Regex +mkCompl = mkDif mkDot + +-- ------------------------------------------------------------ + +instance Show Regex where + show (Zero s) = "{err:" ++ s ++ "}" + show Unit = "()" + show (Sym p) + | null (tail cs) && + rng1 (head cs) + = escRng . head $ cs + | otherwise = "[" ++ concat cs' ++ "]" + where + rng1 (x,y) = x == y + cs = charRngs . chars $ p + cs' = map escRng cs + escRng (x, y) + | x == y = esc x + | succ x == y + = esc x ++ esc y + | otherwise + = esc x ++ "-" ++ esc y + esc x + | x `elem` "\\-[]{}()*+?.^" + = '\\':x:"" + | x >= ' ' && x <= '~' + = x:"" + | otherwise + = "&#" ++ show (fromEnum x) ++ ";" + show Dot = "." + show (Star e) = "(" ++ show e ++ ")*" + show (Alt e1 e2) = "(" ++ show e1 ++ "|" ++ show e2 ++ ")" + show (Seq e1 e2) = show e1 ++ show e2 + show (Rep 1 e) = "(" ++ show e ++ ")+" + show (Rep i e) = "(" ++ show e ++ "){" ++ show i ++ ",}" + show (Rng 0 1 e) = "(" ++ show e ++ ")?" + show (Rng i j e) = "(" ++ show e ++ "){" ++ show i ++ "," ++ show j ++ "}" + show (Dif e1 e2) = "(" ++ show e1 ++ "-" ++ show e2 ++ ")" + +-- ------------------------------------------------------------ + +isZero :: Regex -> Bool +isZero (Zero _) = True +isZero _ = False +{-# INLINE isZero #-} + +nullable :: Regex -> Bool +nullable (Zero _) = False +nullable Unit = True +nullable (Sym _p) = False -- assumption: p holds for at least one char +nullable Dot = False +nullable (Star _) = True +nullable (Alt e1 e2) = nullable e1 || + nullable e2 +nullable (Seq e1 e2) = nullable e1 && + nullable e2 +nullable (Rep _i e) = nullable e +nullable (Rng i _ e) = i == 0 || + nullable e +nullable (Dif e1 e2) = nullable e1 && + not (nullable e2) + +-- ------------------------------------------------------------ + +delta :: Regex -> Char -> Regex +delta e@(Zero _) _ = e +delta Unit c = mkZero $ + "unexpected char " ++ show c +delta (Sym p) c + | p c = mkUnit + | otherwise = mkZero $ + "unexpected char " ++ show c ++ ", expected: " ++ oneof ++ chars' + where + (cs, ds) = splitAt 40 (chars p) + oneof + | null (tail cs) = "" + | otherwise = "one of " + chars' + | null (tail cs) = "'" ++ cs ++ "'" + | null ds = "[" ++ cs ++ "]" + | otherwise = "[" ++ cs ++ "...]" + +delta Dot _ = mkUnit +delta e@(Star e1) c = mkSeq (delta e1 c) e +delta (Alt e1 e2) c = mkAlt (delta e1 c) (delta e2 c) +delta (Seq e1 e2) c + | nullable e1 = mkAlt (mkSeq (delta e1 c) e2) (delta e2 c) + | otherwise = mkSeq (delta e1 c) e2 +delta (Rep i e) c = mkSeq (delta e c) (mkRep (i-1) e) +delta (Rng i j e) c = mkSeq (delta e c) (mkRng ((i-1) `max` 0) (j-1) e) +delta (Dif e1 e2) c = mkDif (delta e1 c) (delta e2 c) + +-- ------------------------------------------------------------ + +delta' :: Regex -> String -> Regex +delta' = foldl delta --- ------------------------------------------------------------ +matchWithRE :: Regex -> String -> Maybe String +matchWithRE e + = res . delta' e + where + res (Zero err) = Just err + res re + | nullable re = Nothing -- o.k. + | otherwise = Just $ "input does not match " ++ show e + +-- ------------------------------------------------------------ + +(<&&>) :: (Char -> Bool) -> (Char -> Bool) -> (Char -> Bool) +f <&&> g = \ x -> f x && g x -- liftA2 (&&) + +{-# INLINE (<&&>) #-} + + +(<||>) :: (Char -> Bool) -> (Char -> Bool) -> (Char -> Bool) +f <||> g = \ x -> f x || g x -- liftA2 (||) + +{-# INLINE (<||>) #-} + +-- ------------------------------------------------------------ diff --git a/doc/hdoc/src/Text-XML-HXT-RelaxNG-XmlSchema-RegexMatch.html b/doc/hdoc/src/Text-XML-HXT-RelaxNG-XmlSchema-RegexMatch.html --- a/doc/hdoc/src/Text-XML-HXT-RelaxNG-XmlSchema-RegexMatch.html +++ b/doc/hdoc/src/Text-XML-HXT-RelaxNG-XmlSchema-RegexMatch.html @@ -45,198 +45,204 @@ import Text.XML.HXT.RelaxNG.XmlSchema.Regex import Text.XML.HXT.RelaxNG.XmlSchema.RegexParser --- ------------------------------------------------------------ - - -splitRegex :: Regex -> String -> Maybe (String, String) -splitRegex re "" - | nullable re = Just ("", "") - | otherwise = Nothing - -splitRegex re inp@(c : inp') - | isZero re = Nothing - | otherwise = evalRes . splitRegex (delta re c) $ inp' - where - evalRes Nothing - | nullable re = Just ("", inp) - | otherwise = Nothing - - evalRes (Just (tok, rest)) - = Just (c : tok, rest) --- ------------------------------------------------------------ +{- +import qualified Debug.Trace as T +-} + +-- ------------------------------------------------------------ + +splitRegex :: Regex -> String -> Maybe (String, String) +splitRegex re "" + | nullable re = Just ("", "") + | otherwise = Nothing + +splitRegex re inp@(c : inp') + | isZero re = Nothing + | otherwise = evalRes . splitRegex {- (T.trace (show re') re') -} re' $ inp' + where + re' = delta re c + evalRes Nothing + | nullable re = Just ("", inp) + | otherwise = Nothing --- | split a string by taking the longest prefix matching a regular expression --- --- @Nothing@ is returned in case of a syntactically wrong regex string --- or in case there is no matching prefix, else the pair of prefix and rest is returned --- --- examples: + evalRes (Just (tok, rest)) + = Just (c : tok, rest) + +-- ------------------------------------------------------------ + +-- | split a string by taking the longest prefix matching a regular expression -- --- > splitRE "a*b" "abc" = Just ("ab","c") --- > splitRE "a*" "bc" = Just ("", "bc) --- > splitRE "[" "abc" = Nothing - -splitRE :: String -> String -> Maybe (String, String) -splitRE re input - = either (const Nothing) (flip splitRegex input) . parseRegex $ re - --- | convenient function for splitRE --- --- syntax errors in R.E. are interpreted as no matching prefix found - -split :: String -> String -> (String, String) -split re input - = fromMaybe ("", input) . splitRE re $ input - --- ------------------------------------------------------------ +-- @Nothing@ is returned in case of a syntactically wrong regex string +-- or in case there is no matching prefix, else the pair of prefix and rest is returned +-- +-- examples: +-- +-- > splitRE "a*b" "abc" = Just ("ab","c") +-- > splitRE "a*" "bc" = Just ("", "bc") +-- > splitRE "a+" "bc" = Nothing +-- > splitRE "[" "abc" = Nothing + +splitRE :: String -> String -> Maybe (String, String) +splitRE re input + = either (const Nothing) (flip splitRegex input) . parseRegex $ re + +-- | convenient function for splitRE +-- +-- syntax errors in R.E. are interpreted as no matching prefix found --- | split a string into tokens (words) by giving a regular expression --- which all tokens must match --- --- This can be used for simple tokenizers. --- The words in the result list contain at least one char. --- All none matching chars are discarded. If the given regex contains syntax errors, --- @Nothing@ is returned --- --- examples: --- --- > tokenizeRE "a*b" "" = Just [] --- > tokenizeRE "a*b" "abc" = Just ["ab"] --- > tokenizeRE "a*b" "abaab ab" = Just ["ab","aab","ab"] --- > --- > tokenizeRE "[a-z]{2,}|[0-9]{2,}|[0-9]+[.][0-9]+" "ab123 456.7abc" --- > = Just ["ab","123","456.7","abc"] --- > --- > tokenizeRE "[a-z]*|[0-9]{2,}|[0-9]+[.][0-9]+" "cab123 456.7abc" --- > = Just ["cab","123","456.7","abc"] +split :: String -> String -> (String, String) +split re input + = fromMaybe ("", input) . splitRE re $ input + +-- ------------------------------------------------------------ + +-- | split a string into tokens (words) by giving a regular expression +-- which all tokens must match +-- +-- This can be used for simple tokenizers. +-- The words in the result list contain at least one char. +-- All none matching chars are discarded. If the given regex contains syntax errors, +-- @Nothing@ is returned +-- +-- examples: +-- +-- > tokenizeRE "a*b" "" = Just [] +-- > tokenizeRE "a*b" "abc" = Just ["ab"] +-- > tokenizeRE "a*b" "abaab ab" = Just ["ab","aab","ab"] -- > --- > tokenizeRE "[^ \t\n\r]*" "abc def\t\n\rxyz" --- > = Just ["abc","def","xyz"] +-- > tokenizeRE "[a-z]{2,}|[0-9]{2,}|[0-9]+[.][0-9]+" "ab123 456.7abc" +-- > = Just ["ab","123","456.7","abc"] -- > --- > tokenizeRE "[^ \t\n\r]*" = words - -tokenizeRE :: String -> String -> Maybe [String] -tokenizeRE regex input - = either (const Nothing) (Just . flip token' input) $ parseRegex regex - where - token' :: Regex -> String -> [String] - token' re inp - | null inp = [] - | otherwise = evalRes . splitRegex re $ inp - where - evalRes Nothing = token' re (tail inp) -- re does not match any prefix - evalRes (Just (tok, rest)) - | null tok = token' re (tail rest) -- re is nullable and only the empty prefix matches - | otherwise = tok : token' re rest -- token found, tokenize the rest - --- | convenient function for tokenizeRE a string --- --- syntax errors in R.E. result in an empty list - -tokenize :: String -> String -> [String] -tokenize re - = fromMaybe [] . tokenizeRE re - --- ------------------------------------------------------------ - --- | split a string into tokens and delimierter by giving a regular expression --- wich all tokens must match --- --- This is a generalisation of the above 'tokenizeRE' functions. --- The none matching char sequences are marked with @Left@, the matching ones are marked with @Right@ --- --- If the regular expression contains syntax errors @Nothing@ is returned --- --- The following Law holds: +-- > tokenizeRE "[a-z]*|[0-9]{2,}|[0-9]+[.][0-9]+" "cab123 456.7abc" +-- > = Just ["cab","123","456.7","abc"] +-- > +-- > tokenizeRE "[^ \t\n\r]*" "abc def\t\n\rxyz" +-- > = Just ["abc","def","xyz"] +-- > +-- > tokenizeRE "[^ \t\n\r]*" = words + +tokenizeRE :: String -> String -> Maybe [String] +tokenizeRE regex input + = either (const Nothing) (Just . flip token' input) $ parseRegex regex + where + token' :: Regex -> String -> [String] + token' re inp + | null inp = [] + | otherwise = evalRes . splitRegex re $ inp + where + token'' = token' re + evalRes Nothing = token'' (tail inp) -- re does not match any prefix + evalRes (Just (tok, rest)) + | null tok = token'' (tail rest) -- re is nullable and only the empty prefix matches + | otherwise = tok : token'' rest -- token found, tokenize the rest + +-- | convenient function for tokenizeRE a string +-- +-- syntax errors in R.E. result in an empty list + +tokenize :: String -> String -> [String] +tokenize re + = fromMaybe [] . tokenizeRE re + +-- ------------------------------------------------------------ + +-- | split a string into tokens and delimierter by giving a regular expression +-- wich all tokens must match -- --- > concat . map (either id id) . fromJust . tokenizeRE' re == id - -tokenizeRE' :: String -> String -> Maybe [Either String String] -tokenizeRE' regex input - = either (const Nothing) (Just . flip token' input) $ parseRegex regex - where - token' :: Regex -> String -> [Either String String] - token' re - = tok2 "" - where - tok2 :: String -> String -> [Either String String] - tok2 noMatchPrefix inp - | null inp = addNoMatch [] - | otherwise = evalRes . splitRegex re $ inp - where - addNoMatch res - | null noMatchPrefix = res - | otherwise = (Left . reverse $ noMatchPrefix) : res - - evalRes Nothing = tok2 (head inp : noMatchPrefix) (tail inp) -- re does not match any prefix - evalRes (Just (tok, rest)) - | null tok = tok2 (head rest : noMatchPrefix) (tail rest) -- re is nullable and only the empty prefix matches - | otherwise = addNoMatch . (Right tok :) . tok2 "" $ rest -- token found, tokenize the rest - --- | convenient function for tokenizeRE' --- --- When the regular expression contains errors @[Left input]@ is returned, that means tokens are found - -tokenize' :: String -> String -> [Either String String] -tokenize' regex input - = fromMaybe [Left input] . tokenizeRE' regex $ input - --- ------------------------------------------------------------ - --- | sed like editing function --- --- All matching tokens are edited by the 1. argument, the editing function, --- all other chars remain as they are --- --- examples: --- --- > sedRE (const "b") "a" "xaxax" = Just "xbxbx" --- > sedRE (\ x -> x ++ x) "a" "xax" = Just "xaax" --- > sedRE undefined "[" undefined = Nothing - -sedRE :: (String -> String) -> String -> String -> Maybe String -sedRE edit regex input - = maybe Nothing (Just . concatMap (either id edit)) $ tokenizeRE' regex input - --- | convenient function for sedRE --- --- When the regular expression contains errors, sed is the identity, else --- the funtionality is like 'sedRE' --- --- > sed undefined "[" == id +-- This is a generalisation of the above 'tokenizeRE' functions. +-- The none matching char sequences are marked with @Left@, the matching ones are marked with @Right@ +-- +-- If the regular expression contains syntax errors @Nothing@ is returned +-- +-- The following Law holds: +-- +-- > concat . map (either id id) . fromJust . tokenizeRE' re == id + +tokenizeRE' :: String -> String -> Maybe [Either String String] +tokenizeRE' regex input + = either (const Nothing) (Just . flip token' input) $ parseRegex regex + where + token' :: Regex -> String -> [Either String String] + token' re + = tok2 "" + where + tok2 :: String -> String -> [Either String String] + tok2 noMatchPrefix inp + | null inp = addNoMatch [] + | otherwise = evalRes . splitRegex re $ inp + where + addNoMatch res + | null noMatchPrefix = res + | otherwise = (Left . reverse $ noMatchPrefix) : res + + evalRes Nothing = tok2 (head inp : noMatchPrefix) (tail inp) -- re does not match any prefix + evalRes (Just (tok, rest)) + | null tok = tok2 (head rest : noMatchPrefix) (tail rest) -- re is nullable and only the empty prefix matches + | otherwise = addNoMatch . (Right tok :) . tok2 "" $ rest -- token found, tokenize the rest + +-- | convenient function for tokenizeRE' +-- +-- When the regular expression contains errors @[Left input]@ is returned, that means tokens are found + +tokenize' :: String -> String -> [Either String String] +tokenize' regex input + = fromMaybe [Left input] . tokenizeRE' regex $ input + +-- ------------------------------------------------------------ + +-- | sed like editing function +-- +-- All matching tokens are edited by the 1. argument, the editing function, +-- all other chars remain as they are +-- +-- examples: +-- +-- > sedRE (const "b") "a" "xaxax" = Just "xbxbx" +-- > sedRE (\ x -> x ++ x) "a" "xax" = Just "xaax" +-- > sedRE undefined "[" undefined = Nothing + +sedRE :: (String -> String) -> String -> String -> Maybe String +sedRE edit regex input + = maybe Nothing (Just . concatMap (either id edit)) $ tokenizeRE' regex input -sed :: (String -> String) -> String -> String -> String -sed edit regex input - = fromMaybe input . sedRE edit regex $ input - --- ------------------------------------------------------------ - --- | match a string with a regular expression --- --- First argument is the regex, second the input string, --- if the regex is not well formed, @Nothing@ is returned, --- else @Just@ the match result --- --- Examples: --- --- > matchRE "x*" "xxx" = Just True --- > matchRE "x" "xxx" = Just False --- > matchRE "[" "xxx" = Nothing - -matchRE :: String -> String -> Maybe Bool -matchRE regex input - = either (const Nothing) (Just . isNothing . flip matchWithRE input) $ parseRegex regex - - --- | convenient function for matchRE --- --- syntax errors in R.E. are interpreted as no match found - -match :: String -> String -> Bool -match re = fromMaybe False . matchRE re +-- | convenient function for sedRE +-- +-- When the regular expression contains errors, sed is the identity, else +-- the funtionality is like 'sedRE' +-- +-- > sed undefined "[" == id + +sed :: (String -> String) -> String -> String -> String +sed edit regex input + = fromMaybe input . sedRE edit regex $ input + +-- ------------------------------------------------------------ + +-- | match a string with a regular expression +-- +-- First argument is the regex, second the input string, +-- if the regex is not well formed, @Nothing@ is returned, +-- else @Just@ the match result +-- +-- Examples: +-- +-- > matchRE "x*" "xxx" = Just True +-- > matchRE "x" "xxx" = Just False +-- > matchRE "[" "xxx" = Nothing + +matchRE :: String -> String -> Maybe Bool +matchRE regex input + = either (const Nothing) (Just . isNothing . flip matchWithRE input) $ parseRegex regex + --- ------------------------------------------------------------ - --- ------------------------------------------------------------ +-- | convenient function for matchRE +-- +-- syntax errors in R.E. are interpreted as no match found + +match :: String -> String -> Bool +match re = fromMaybe False . matchRE re + +-- ------------------------------------------------------------ + diff --git a/doc/hdoc/src/Text-XML-HXT-RelaxNG-XmlSchema-RegexParser.html b/doc/hdoc/src/Text-XML-HXT-RelaxNG-XmlSchema-RegexParser.html --- a/doc/hdoc/src/Text-XML-HXT-RelaxNG-XmlSchema-RegexParser.html +++ b/doc/hdoc/src/Text-XML-HXT-RelaxNG-XmlSchema-RegexParser.html @@ -30,8 +30,8 @@ ( parseRegex ) where -import Control.Applicative ( liftA2 ) -import Data.Maybe +import Data.Maybe + import Text.ParserCombinators.Parsec import Text.XML.HXT.DOM.Unicode @@ -184,9 +184,9 @@ , ('w', not . isNotWord ) , ('W', isNotWord ) ] - isDigit = ('0' <=) &&& (<= '9') - isNotWord = isUnicodeP ||| - isUnicodeZ ||| + isDigit = ('0' <=) <&&> (<= '9') + isNotWord = isUnicodeP <||> + isUnicodeZ <||> isUnicodeC catEsc :: Parser Regex @@ -212,7 +212,7 @@ then return $ let (lb, ub) = fromJust b in - (lb <=) &&& (<= ub) + (lb <=) <&&> (<= ub) else fail $ "unknown Unicode code block " ++ show name where legalChar c = 'A' <= c && c <= 'Z' || @@ -360,13 +360,5 @@ -- ------------------------------------------------------------ - -(&&&) :: (Char -> Bool) -> (Char -> Bool) -> (Char -> Bool) -(&&&) = liftA2 (&&) - -(|||) :: (Char -> Bool) -> (Char -> Bool) -> (Char -> Bool) -(|||) = liftA2 (||) - --- ------------------------------------------------------------ diff --git a/doc/hdoc/src/Text-XML-HXT-Version.html b/doc/hdoc/src/Text-XML-HXT-Version.html --- a/doc/hdoc/src/Text-XML-HXT-Version.html +++ b/doc/hdoc/src/Text-XML-HXT-Version.html @@ -9,6 +9,6 @@ 
    module Text.XML.HXT.Version
 where
 hxt_version :: String
-hxt_version = "8.2.0"
+hxt_version = "8.3.0"
    diff --git a/doc/hdoc/src/Text-XML-HXT-XPath-XPathEval.html b/doc/hdoc/src/Text-XML-HXT-XPath-XPathEval.html --- a/doc/hdoc/src/Text-XML-HXT-XPath-XPathEval.html +++ b/doc/hdoc/src/Text-XML-HXT-XPath-XPathEval.html @@ -103,10 +103,10 @@ -- Works like 'getXPath' but the prefix:localpart names in the XPath expression -- are interpreted with respect to the given namespace environment -getXPathWithNsEnv :: NsEnv -> String -> XmlTree -> XmlTrees +getXPathWithNsEnv :: Attributes -> String -> XmlTree -> XmlTrees getXPathWithNsEnv env s = runLA ( canonicalizeForXPath >>> - arrL (getXPathValues xPValue2XmlTrees xPathErr env s) + arrL (getXPathValues xPValue2XmlTrees xPathErr (toNsEnv env) s) ) -- | @@ -127,9 +127,9 @@ -- | Same as 'getXPathSubTrees' but with namespace aware XPath expression -getXPathSubTreesWithNsEnv :: NsEnv -> String -> XmlTree -> XmlTrees +getXPathSubTreesWithNsEnv :: Attributes -> String -> XmlTree -> XmlTrees getXPathSubTreesWithNsEnv nsEnv xpStr - = getXPathValues xPValue2XmlTrees xPathErr nsEnv xpStr + = getXPathValues xPValue2XmlTrees xPathErr (toNsEnv nsEnv) xpStr -- | compute the node set of an XPath query @@ -138,9 +138,9 @@ -- | compute the node set of a namespace aware XPath query -getXPathNodeSetWithNsEnv :: NsEnv -> String -> XmlTree -> XmlNodeSet +getXPathNodeSetWithNsEnv :: Attributes -> String -> XmlTree -> XmlNodeSet getXPathNodeSetWithNsEnv nsEnv xpStr - = getXPathValues xPValue2NodeSet (const (const emptyNodeSet)) nsEnv xpStr + = getXPathValues xPValue2NodeSet (const (const emptyNodeSet)) (toNsEnv nsEnv) xpStr -- | parse xpath, evaluate xpath expr and prepare results diff --git a/doc/hdoc/src/Text-XML-HXT-XPath-XPathParser.html b/doc/hdoc/src/Text-XML-HXT-XPath-XPathParser.html --- a/doc/hdoc/src/Text-XML-HXT-XPath-XPathParser.html +++ b/doc/hdoc/src/Text-XML-HXT-XPath-XPathParser.html @@ -10,653 +10,653 @@ {- | Module : Text.XML.HXT.XPath.XPathParser - Copyright : Copyright (C) 2006 Uwe Schmidt - License : MIT - - Maintainer : Uwe Schmidt (uwe@fh-wedel.de) - Stability : experimental - Portability: portable - Version : $Id: XPathParser.hs,v 1.6 2006/10/12 11:51:29 hxml Exp $ - - the XPath Parser - --} - --- ------------------------------------------------------------ - -module Text.XML.HXT.XPath.XPathParser - ( parseNumber - , parseXPath - ) -where - -import Data.Maybe - -import Text.ParserCombinators.Parsec - -import Text.XML.HXT.DOM.TypeDefs - -import Text.XML.HXT.XPath.XPathKeywords -import Text.XML.HXT.XPath.XPathDataTypes - -import Text.XML.HXT.Parser.XmlTokenParser - ( separator - , systemLiteral - , skipS0 - , ncName - , qName - ) - -lookupNs :: NsEnv -> String -> String -lookupNs uris prefix - -- downwards compatibility: if namespace env is not supported - -- no error is raised, but the uri remains empty - -- not conformant to XPath spec: If namespaces are used, an complete env must be supported, - -- but we don't care about this - - = lookup1 prefix uris - -enhanceAttrQName :: NsEnv -> QName -> QName -enhanceAttrQName uris qn - | null (namePrefix qn) = qn - | otherwise = enhanceQName uris qn - -enhanceQName :: NsEnv -> QName -> QName -enhanceQName uris qn - = qn {namespaceUri = lookupNs uris (namePrefix qn)} - -enhanceQN :: AxisSpec -> NsEnv -> QName -> QName -enhanceQN Attribute = enhanceAttrQName -enhanceQN _ = enhanceQName - -type XParser a = GenParser Char NsEnv a - --- ------------------------------------------------------------ --- parse functions which are used in the XPathFct module - --- | --- parsing a number, parseNumber is used in "XPathFct" --- by the number function --- --- - returns : the parsed number as 'XPNumber' float --- or 'XPVNumber' 'NaN' in case of error -parseNumber :: String -> XPathValue -parseNumber s - = case (runParser parseNumber' [] {- Map.empty -} "" s) of - Left _ -> XPVNumber NaN - Right x -> if (read x :: Float) == 0 - then (XPVNumber Pos0) - else XPVNumber (Float (read x)) - -parseNumber' :: XParser String -parseNumber' - = do - skipS0 - m <- option "" (string "-") - n <- number - skipS0 - eof - return (m ++ n) - --- ------------------------------------------------------------ - - --- | --- the main entry point: --- parsing a XPath expression - -parseXPath :: XParser Expr -parseXPath - = do - skipS0 - xPathExpr <- expr - skipS0 - eof - return xPathExpr - - --- some useful token and symbol parser -lpar, rpar, lbra, rbra, slash, dslash :: XParser () - -lpar = tokenParser (symbol "(") -rpar = tokenParser (symbol ")") -lbra = tokenParser (symbol "[") -rbra = tokenParser (symbol "]") -slash = tokenParser (symbol "/") -dslash = tokenParser (symbol "//") - - -tokenParser :: XParser String -> XParser () -tokenParser p - = try ( do - skipS0 - p - skipS0 - ) - - -symbolParser :: (String, a) -> XParser a -symbolParser (s,a) - = do - tokenParser (symbol s) - return a - - -symbol :: String -> XParser String -symbol s = try (string s) - - - --- operation parser -orOp, andOp, eqOp, relOp, addOp, multiOp, unionOp :: XParser Op - -orOp = symbolParser ("or", Or) -andOp = symbolParser ("and", And) - -eqOp - = symbolParser ("=", Eq) - <|> - symbolParser ("!=", NEq) - -relOp - = choice [ symbolParser ("<=", LessEq) - , symbolParser (">=", GreaterEq) - , symbolParser ("<", Less) - , symbolParser (">", Greater) - ] - -addOp - = symbolParser ("+", Plus) - <|> - symbolParser ("-", Minus) - - -multiOp - = choice [ symbolParser ("*", Mult) - , symbolParser ("mod", Mod) - , symbolParser ("div", Div) - ] - - -unionOp = symbolParser ("|", Union) - --- ------------------------------------------------------------ - -mkExprNode :: Expr -> [(Op, Expr)] -> Expr -mkExprNode e1 [] = e1 -mkExprNode e1 l@((op, _): _) = - if null rest - then GenExpr op (e1:(map snd l)) - else GenExpr op $ (e1:(map snd $ init same)) ++ [mkExprNode (snd $ last same) rest] - where - (same, rest) = span ((==op) . fst) l - --- Tim Walkenhorst, original expr. below: --- It seems mkExprNode is called only with operators of the same precedence, that should make it fixable --- FIXED, see above! ---mkExprNode e1 l@((op, _): _) = GenExpr op (e1:(map snd l)) -- Less than ideal: 1+1-1 = 3 ??? - - ---GenExpr op (e1:(map snd l)) - - -exprRest :: XParser Op -> XParser Expr -> XParser (Op, Expr) -exprRest parserOp parserExpr - = do - op <- parserOp - e2 <- parserExpr - return (op, e2) - - --- ------------------------------------------------------------ - --- abbreviation of "//" -descOrSelfStep :: XStep -descOrSelfStep = (Step DescendantOrSelf (TypeTest XPNode) []) - --- ------------------------------------------------------------ --- Location Paths (2) - - --- [1] LocationPath -locPath :: XParser LocationPath -locPath - = absLocPath - <|> - relLocPath' - - --- [2] AbsoluteLocationPath -absLocPath :: XParser LocationPath -absLocPath - = do -- [10] - dslash - s <- relLocPath - return (LocPath Abs ([descOrSelfStep] ++ s)) - <|> - do - slash - s <- option [] relLocPath - return (LocPath Abs s) - <?> "absLocPath" - - --- [3] RelativeLocationPath -relLocPath' :: XParser LocationPath -relLocPath' - = do - rel <- relLocPath - return (LocPath Rel rel) - -relLocPath :: XParser [XStep] -relLocPath - = do - s1 <- step - s2 <- many (step') - return ([s1] ++ (concat s2)) - <?> "relLocPath" - - --- Location Steps (2.1) --- --- [4] Step -step' :: XParser [XStep] -step' - = do -- [11] - dslash - s <- step - return [descOrSelfStep,s] - <|> - do - slash - s <- step - return [s] - <?> "step'" - -step :: XParser XStep -step - = abbrStep - <|> - do - as <- axisSpecifier' - nt <- nodeTest as - pr <- many predicate - return (Step as nt pr) - <?> "step" - - --- [5] AxisSpecifier -axisSpecifier' :: XParser AxisSpec -axisSpecifier' - = do -- [13] - tokenParser (symbol "@") - return Attribute - <|> - do - as <- option Child ( try ( do -- child-axis is default-axis - a <- axisSpecifier - tokenParser (symbol "::") - return a - ) - ) - return as - <?> "axisSpecifier'" - - --- Axes (2.2) --- --- [6] AxisName -axisSpecifier :: XParser AxisSpec -axisSpecifier - = choice [ symbolParser (a_ancestor_or_self, AncestorOrSelf) - , symbolParser (a_ancestor, Ancestor) - , symbolParser (a_attribute, Attribute) - , symbolParser (a_child, Child) - , symbolParser (a_descendant_or_self, DescendantOrSelf) - , symbolParser (a_descendant, Descendant) - , symbolParser (a_following_sibling, FollowingSibling) - , symbolParser (a_following, Following) - , symbolParser (a_namespace, Namespace) - , symbolParser (a_parent, Parent) - , symbolParser (a_preceding_sibling, PrecedingSibling) - , symbolParser (a_preceding, Preceding) - , symbolParser (a_self, Self) - ] - <?> "axisSpecifier" - - --- Node Tests (2.3) --- --- [7] NodeTest -nodeTest :: AxisSpec -> XParser NodeTest -nodeTest as - = do - nt <- try nodeType' - return (TypeTest nt) - <|> - do - processInst <- pI - return (PI processInst) - <|> - do - nt <- nameTest as - return (NameTest nt) - <?> "nodeTest" - -pI :: XParser String -pI - = do - tokenParser (symbol n_processing_instruction) - li <- between lpar rpar literal - return li - <?> "Processing-Instruction" - - --- Predicates (2.4) --- --- [8] Predicate --- [9] PredicateExpr -predicate :: XParser Expr -predicate - = do - ex <- between lbra rbra expr - return ex - - --- Abbreviated Syntax (2.5) --- --- [10] AbbreviatedAbsoluteLocationPath: q.v. [2] --- [11] AbbreviatedRelativeLocationPath: q.v. [4] - --- [12] AbbreviatedStep -abbrStep :: XParser XStep -abbrStep - = do - tokenParser (symbol "..") - return (Step Parent (TypeTest XPNode) []) - <|> - do - tokenParser (symbol ".") - return (Step Self (TypeTest XPNode) []) - <?> "abbrStep" - --- [13] AbbreviatedAxisSpecifier: q.v. [5] - - --- ------------------------------------------------------------ --- Expressions (3) - - --- Basics (3.1) --- --- [14] Expr -expr :: XParser Expr -expr = orExpr - - --- [15] PrimaryExpr -primaryExpr :: XParser Expr -primaryExpr - = do - vr <- variableReference - return (VarExpr vr) - <|> - do - ex <- between lpar rpar expr - return ex - <|> - do - li <- literal - return (LiteralExpr li) - <|> - do - num <- number - return (NumberExpr (Float $ read num)) - <|> - do - fc <- functionCall - return (fc) - <?> "primaryExpr" - - --- Function Calls (3.2) --- --- [16] FunctionCall --- [17] Argument -functionCall :: XParser Expr -functionCall - = do - fn <- functionName - arg <- between lpar rpar ( sepBy expr (separator ',') ) - return (FctExpr fn arg) - <?> "functionCall" - - --- Node-sets (3.3) --- --- [18] UnionExpr -unionExpr :: XParser Expr -unionExpr - = do - e1 <- pathExpr - eRest <- many (exprRest unionOp pathExpr) - return (mkExprNode e1 eRest) - - --- [19] PathExpr -pathExpr :: XParser Expr -pathExpr - = do - fe <- try filterExpr - path <- do - dslash - LocPath t1 t2 <- relLocPath' - return (PathExpr (Just fe) (Just (LocPath t1 ([descOrSelfStep] ++ t2)))) - <|> - do - slash - relPath <- relLocPath' - return (PathExpr (Just fe) (Just relPath)) - <|> - return fe - return path - <|> - do - lp <- locPath - return (PathExpr Nothing (Just lp)) - <?> "pathExpr" - - --- [20] FilterExpr -filterExpr :: XParser Expr -filterExpr - = do - prim <- primaryExpr - predicates <- many predicate - if length predicates > 0 - then return (FilterExpr (prim : predicates)) - else return prim - <?> "filterExpr" - - --- Booleans (3.4) --- --- [21] OrExpr -orExpr :: XParser Expr -orExpr - = do - e1 <- andExpr - eRest <- many (exprRest orOp andExpr) - return (mkExprNode e1 eRest) - <?> "orExpr" - - --- [22] AndExpr -andExpr :: XParser Expr -andExpr - = do - e1 <- equalityExpr - eRest <- many (exprRest andOp equalityExpr) - return (mkExprNode e1 eRest) - <?> "andExpr" - - --- [23] EqualityExpr -equalityExpr :: XParser Expr -equalityExpr - = do - e1 <- relationalExpr - eRest <- many (exprRest eqOp relationalExpr) - return (mkExprNode e1 eRest) - <?> "equalityExpr" - - --- [24] RelationalExpr -relationalExpr :: XParser Expr -relationalExpr - = do - e1 <- additiveExpr - eRest <- many (exprRest relOp additiveExpr) - return (mkExprNode e1 eRest) - <?> "relationalExpr" - - --- Numbers (3.5) --- --- [25] AdditiveExpr -additiveExpr :: XParser Expr -additiveExpr - = do - e1 <- multiplicativeExpr - eRest <- many (exprRest addOp multiplicativeExpr) - return (mkExprNode e1 eRest) - <?> "additiveExpr" - - --- [26] MultiplicativeExpr -multiplicativeExpr :: XParser Expr -multiplicativeExpr - = do - e1 <- unaryExpr - eRest <- many (exprRest multiOp unaryExpr) - return (mkExprNode e1 eRest) - <?> "multiplicativeExpr" - - --- [27] UnaryExpr -unaryExpr :: XParser Expr -unaryExpr - = do - tokenParser (symbol "-") - u <- unaryExpr - return (GenExpr Unary [u]) - <|> - do - u <- unionExpr - return u - <?> "unaryExpr" - - --- Lexical Structure (3.7) --- --- [29] Literal --- systemLiteral from XmlParser is used -literal :: XParser String -literal = systemLiteral - - --- [30] Number -number :: XParser String -number - = do - tokenParser (symbol ".") - d <- many1 digit - return ("0." ++ d) - <|> - do - d <- many1 digit - d1 <- option "" ( do - tokenParser (symbol ".") - d2 <- option "0" (many1 digit) - return ("." ++ d2) - ) - return (d ++ d1) - <?> "number" - - --- [35] FunctionName --- no nodetype name is allowed as a function name --- Tim Walkenhorst: --- Change in String encoding for function name --- --- previoulsy: new: --- --- name name --- pref:name {http://uri-for-pref}name - -functionName :: XParser String -functionName - = try ( do - (p, n) <- qName - uris <- getState - u <- return $ if null p then "" else '{' : lookupNs uris p ++ "}" - let fn = (u ++ n) in - if fn `elem` ["processing-instruction", "comment", "text", "node"] - then fail ("function name: " ++ fn ++ "not allowed") - else return fn - ) - <?> "functionName" - - --- [36] VariableReference -variableReference :: XParser (String, String) -variableReference - = do - tokenParser (symbol "$") - (p,n) <- qName - uris <- getState - return (lookupNs uris p, n) - <?> "variableReference" - - --- [37] NameTest -nameTest :: AxisSpec -> XParser QName -nameTest as - = do - tokenParser (symbol "*") - uris <- getState - return (enhanceQN as uris $ mkName "*") - <|> try ( do - pre <- ncName - symbol ":*" - uris <- getState - return (enhanceQN as uris $ mkNsName (pre ++ ":*") "") - ) - <|> - do - (pre,local) <- qName - uris <- getState - return (enhanceQN as uris $ mkNsName (pre ++ ":" ++ local) "") - <?> "nameTest" - - --- [38] NodeType -nodeType' :: XParser XPathNode -nodeType' - = do - nt <- nodeType - lpar - rpar - return nt - <?> "nodeType'" - -nodeType :: XParser XPathNode -nodeType - = choice [ symbolParser (n_comment, XPCommentNode) - , symbolParser (n_text, XPTextNode) - , symbolParser (n_processing_instruction, XPPINode) - , symbolParser (n_node, XPNode) - ] - <?> "nodeType" + Copyright : Copyright (C) 2006-2008 Uwe Schmidt + License : MIT + + Maintainer : Uwe Schmidt (uwe@fh-wedel.de) + Stability : experimental + Portability: portable + + the XPath Parser + +-}     + +-- ------------------------------------------------------------ + +module Text.XML.HXT.XPath.XPathParser + ( parseNumber + , parseXPath + ) +where + +import Data.Maybe + +import Text.ParserCombinators.Parsec + +import Text.XML.HXT.DOM.TypeDefs + +import Text.XML.HXT.XPath.XPathKeywords +import Text.XML.HXT.XPath.XPathDataTypes + +import Text.XML.HXT.Parser.XmlTokenParser + ( separator + , systemLiteral + , skipS0 + , ncName + , qName + ) + +lookupNs :: NsEnv -> XName -> XName +lookupNs uris prefix + -- downwards compatibility: if namespace env is not supported + -- no error is raised, but the uri remains empty + -- not conformant to XPath spec: + -- If namespaces are used, a complete env must be supported, + -- but we don't care about this + = fromMaybe nullXName $ lookup prefix uris + +enhanceAttrQName :: NsEnv -> QName -> QName +enhanceAttrQName uris qn + | isNullXName (namePrefix' qn) = qn + | otherwise = enhanceQName uris qn + +enhanceQName :: NsEnv -> QName -> QName +enhanceQName uris qn = setNamespaceUri' ( lookupNs uris (namePrefix' qn) ) qn + +enhanceQN :: AxisSpec -> NsEnv -> QName -> QName +enhanceQN Attribute = enhanceAttrQName +enhanceQN _ = enhanceQName + +type XParser a = GenParser Char NsEnv a + +-- ------------------------------------------------------------ +-- parse functions which are used in the XPathFct module + +-- | +-- parsing a number, parseNumber is used in "XPathFct" +-- by the number function +-- +-- - returns : the parsed number as 'XPNumber' float +-- or 'XPVNumber' 'NaN' in case of error +parseNumber :: String -> XPathValue +parseNumber s + = case (runParser parseNumber' [] {- Map.empty -} "" s) of + Left _ -> XPVNumber NaN + Right x -> if (read x :: Float) == 0 + then (XPVNumber Pos0) + else XPVNumber (Float (read x)) + +parseNumber' :: XParser String +parseNumber' + = do + skipS0 + m <- option "" (string "-") + n <- number + skipS0 + eof + return (m ++ n) + +-- ------------------------------------------------------------ + + +-- | +-- the main entry point: +-- parsing a XPath expression + +parseXPath :: XParser Expr +parseXPath + = do + skipS0 + xPathExpr <- expr + skipS0 + eof + return xPathExpr + + +-- some useful token and symbol parser +lpar, rpar, lbra, rbra, slash, dslash :: XParser () + +lpar = tokenParser (symbol "(") +rpar = tokenParser (symbol ")") +lbra = tokenParser (symbol "[") +rbra = tokenParser (symbol "]") +slash = tokenParser (symbol "/") +dslash = tokenParser (symbol "//") + + +tokenParser :: XParser String -> XParser () +tokenParser p + = try ( do + skipS0 + p + skipS0 + ) + + +symbolParser :: (String, a) -> XParser a +symbolParser (s,a) + = do + tokenParser (symbol s) + return a + + +symbol :: String -> XParser String +symbol s = try (string s) + + + +-- operation parser +orOp, andOp, eqOp, relOp, addOp, multiOp, unionOp :: XParser Op + +orOp = symbolParser ("or", Or) +andOp = symbolParser ("and", And) + +eqOp + = symbolParser ("=", Eq) + <|> + symbolParser ("!=", NEq) + +relOp + = choice [ symbolParser ("<=", LessEq) + , symbolParser (">=", GreaterEq) + , symbolParser ("<", Less) + , symbolParser (">", Greater) + ] + +addOp + = symbolParser ("+", Plus) + <|> + symbolParser ("-", Minus) + + +multiOp + = choice [ symbolParser ("*", Mult) + , symbolParser ("mod", Mod) + , symbolParser ("div", Div) + ] + + +unionOp = symbolParser ("|", Union) + +-- ------------------------------------------------------------ + +mkExprNode :: Expr -> [(Op, Expr)] -> Expr +mkExprNode e1 [] = e1 +mkExprNode e1 l@((op, _): _) = + if null rest + then GenExpr op (e1:(map snd l)) + else GenExpr op $ (e1:(map snd $ init same)) ++ [mkExprNode (snd $ last same) rest] + where + (same, rest) = span ((==op) . fst) l + +-- Tim Walkenhorst, original expr. below: +-- It seems mkExprNode is called only with operators of the same precedence, that should make it fixable +-- FIXED, see above! +--mkExprNode e1 l@((op, _): _) = GenExpr op (e1:(map snd l)) -- Less than ideal: 1+1-1 = 3 ??? + + +--GenExpr op (e1:(map snd l)) + + +exprRest :: XParser Op -> XParser Expr -> XParser (Op, Expr) +exprRest parserOp parserExpr + = do + op <- parserOp + e2 <- parserExpr + return (op, e2) + + +-- ------------------------------------------------------------ + +-- abbreviation of "//" +descOrSelfStep :: XStep +descOrSelfStep = (Step DescendantOrSelf (TypeTest XPNode) []) + +-- ------------------------------------------------------------ +-- Location Paths (2) + + +-- [1] LocationPath +locPath :: XParser LocationPath +locPath + = absLocPath + <|> + relLocPath' + + +-- [2] AbsoluteLocationPath +absLocPath :: XParser LocationPath +absLocPath + = do -- [10] + dslash + s <- relLocPath + return (LocPath Abs ([descOrSelfStep] ++ s)) + <|> + do + slash + s <- option [] relLocPath + return (LocPath Abs s) + <?> "absLocPath" + + +-- [3] RelativeLocationPath +relLocPath' :: XParser LocationPath +relLocPath' + = do + rel <- relLocPath + return (LocPath Rel rel) + +relLocPath :: XParser [XStep] +relLocPath + = do + s1 <- step + s2 <- many (step') + return ([s1] ++ (concat s2)) + <?> "relLocPath" + + +-- Location Steps (2.1) +-- +-- [4] Step +step' :: XParser [XStep] +step' + = do -- [11] + dslash + s <- step + return [descOrSelfStep,s] + <|> + do + slash + s <- step + return [s] + <?> "step'" + +step :: XParser XStep +step + = abbrStep + <|> + do + as <- axisSpecifier' + nt <- nodeTest as + pr <- many predicate + return (Step as nt pr) + <?> "step" + + +-- [5] AxisSpecifier +axisSpecifier' :: XParser AxisSpec +axisSpecifier' + = do -- [13] + tokenParser (symbol "@") + return Attribute + <|> + do + as <- option Child ( try ( do -- child-axis is default-axis + a <- axisSpecifier + tokenParser (symbol "::") + return a + ) + ) + return as + <?> "axisSpecifier'" + + +-- Axes (2.2) +-- +-- [6] AxisName +axisSpecifier :: XParser AxisSpec +axisSpecifier + = choice [ symbolParser (a_ancestor_or_self, AncestorOrSelf) + , symbolParser (a_ancestor, Ancestor) + , symbolParser (a_attribute, Attribute) + , symbolParser (a_child, Child) + , symbolParser (a_descendant_or_self, DescendantOrSelf) + , symbolParser (a_descendant, Descendant) + , symbolParser (a_following_sibling, FollowingSibling) + , symbolParser (a_following, Following) + , symbolParser (a_namespace, Namespace) + , symbolParser (a_parent, Parent) + , symbolParser (a_preceding_sibling, PrecedingSibling) + , symbolParser (a_preceding, Preceding) + , symbolParser (a_self, Self) + ] + <?> "axisSpecifier" + + +-- Node Tests (2.3) +-- +-- [7] NodeTest +nodeTest :: AxisSpec -> XParser NodeTest +nodeTest as + = do + nt <- try nodeType' + return (TypeTest nt) + <|> + do + processInst <- pI + return (PI processInst) + <|> + do + nt <- nameTest as + return (NameTest nt) + <?> "nodeTest" + +pI :: XParser String +pI + = do + tokenParser (symbol n_processing_instruction) + li <- between lpar rpar literal + return li + <?> "Processing-Instruction" + + +-- Predicates (2.4) +-- +-- [8] Predicate +-- [9] PredicateExpr +predicate :: XParser Expr +predicate + = do + ex <- between lbra rbra expr + return ex + + +-- Abbreviated Syntax (2.5) +-- +-- [10] AbbreviatedAbsoluteLocationPath: q.v. [2] +-- [11] AbbreviatedRelativeLocationPath: q.v. [4] + +-- [12] AbbreviatedStep +abbrStep :: XParser XStep +abbrStep + = do + tokenParser (symbol "..") + return (Step Parent (TypeTest XPNode) []) + <|> + do + tokenParser (symbol ".") + return (Step Self (TypeTest XPNode) []) + <?> "abbrStep" + +-- [13] AbbreviatedAxisSpecifier: q.v. [5] + + +-- ------------------------------------------------------------ +-- Expressions (3) + + +-- Basics (3.1) +-- +-- [14] Expr +expr :: XParser Expr +expr = orExpr + + +-- [15] PrimaryExpr +primaryExpr :: XParser Expr +primaryExpr + = do + vr <- variableReference + return (VarExpr vr) + <|> + do + ex <- between lpar rpar expr + return ex + <|> + do + li <- literal + return (LiteralExpr li) + <|> + do + num <- number + return (NumberExpr (Float $ read num)) + <|> + do + fc <- functionCall + return (fc) + <?> "primaryExpr" + + +-- Function Calls (3.2) +-- +-- [16] FunctionCall +-- [17] Argument +functionCall :: XParser Expr +functionCall + = do + fn <- functionName + arg <- between lpar rpar ( sepBy expr (separator ',') ) + return (FctExpr fn arg) + <?> "functionCall" + + +-- Node-sets (3.3) +-- +-- [18] UnionExpr +unionExpr :: XParser Expr +unionExpr + = do + e1 <- pathExpr + eRest <- many (exprRest unionOp pathExpr) + return (mkExprNode e1 eRest) + + +-- [19] PathExpr +pathExpr :: XParser Expr +pathExpr + = do + fe <- try filterExpr + path <- do + dslash + LocPath t1 t2 <- relLocPath' + return (PathExpr (Just fe) (Just (LocPath t1 ([descOrSelfStep] ++ t2)))) + <|> + do + slash + relPath <- relLocPath' + return (PathExpr (Just fe) (Just relPath)) + <|> + return fe + return path + <|> + do + lp <- locPath + return (PathExpr Nothing (Just lp)) + <?> "pathExpr" + + +-- [20] FilterExpr +filterExpr :: XParser Expr +filterExpr + = do + prim <- primaryExpr + predicates <- many predicate + if length predicates > 0 + then return (FilterExpr (prim : predicates)) + else return prim + <?> "filterExpr" + + +-- Booleans (3.4) +-- +-- [21] OrExpr +orExpr :: XParser Expr +orExpr + = do + e1 <- andExpr + eRest <- many (exprRest orOp andExpr) + return (mkExprNode e1 eRest) + <?> "orExpr" + + +-- [22] AndExpr +andExpr :: XParser Expr +andExpr + = do + e1 <- equalityExpr + eRest <- many (exprRest andOp equalityExpr) + return (mkExprNode e1 eRest) + <?> "andExpr" + + +-- [23] EqualityExpr +equalityExpr :: XParser Expr +equalityExpr + = do + e1 <- relationalExpr + eRest <- many (exprRest eqOp relationalExpr) + return (mkExprNode e1 eRest) + <?> "equalityExpr" + + +-- [24] RelationalExpr +relationalExpr :: XParser Expr +relationalExpr + = do + e1 <- additiveExpr + eRest <- many (exprRest relOp additiveExpr) + return (mkExprNode e1 eRest) + <?> "relationalExpr" + + +-- Numbers (3.5) +-- +-- [25] AdditiveExpr +additiveExpr :: XParser Expr +additiveExpr + = do + e1 <- multiplicativeExpr + eRest <- many (exprRest addOp multiplicativeExpr) + return (mkExprNode e1 eRest) + <?> "additiveExpr" + + +-- [26] MultiplicativeExpr +multiplicativeExpr :: XParser Expr +multiplicativeExpr + = do + e1 <- unaryExpr + eRest <- many (exprRest multiOp unaryExpr) + return (mkExprNode e1 eRest) + <?> "multiplicativeExpr" + + +-- [27] UnaryExpr +unaryExpr :: XParser Expr +unaryExpr + = do + tokenParser (symbol "-") + u <- unaryExpr + return (GenExpr Unary [u]) + <|> + do + u <- unionExpr + return u + <?> "unaryExpr" + + +-- Lexical Structure (3.7) +-- +-- [29] Literal +-- systemLiteral from XmlParser is used +literal :: XParser String +literal = systemLiteral + + +-- [30] Number +number :: XParser String +number + = do + tokenParser (symbol ".") + d <- many1 digit + return ("0." ++ d) + <|> + do + d <- many1 digit + d1 <- option "" ( do + tokenParser (symbol ".") + d2 <- option "0" (many1 digit) + return ("." ++ d2) + ) + return (d ++ d1) + <?> "number" + + +-- [35] FunctionName +-- no nodetype name is allowed as a function name +-- Tim Walkenhorst: +-- Change in String encoding for function name +-- +-- previoulsy: new: +-- +-- name name +-- pref:name {http://uri-for-pref}name + +functionName :: XParser String +functionName + = try ( do + (p, n) <- qName + uris <- getState + u <- return $ if null p + then "" + else '{' : show (lookupNs uris (newXName p)) ++ "}" + let fn = (u ++ n) in + if fn `elem` ["processing-instruction", "comment", "text", "node"] + then fail ("function name: " ++ fn ++ "not allowed") + else return fn + ) + <?> "functionName" + + +-- [36] VariableReference +variableReference :: XParser (String, String) +variableReference + = do + tokenParser (symbol "$") + (p,n) <- qName + uris <- getState + return (show (lookupNs uris (newXName p)), n) + <?> "variableReference" + + +-- [37] NameTest +nameTest :: AxisSpec -> XParser QName +nameTest as + = do tokenParser (symbol "*") + uris <- getState + return (enhanceQN as uris $ mkPrefixLocalPart "" "*") + <|> + try ( do pre <- ncName + symbol ":*" + uris <- getState + return (enhanceQN as uris $ mkPrefixLocalPart pre "*") + ) + <|> + do (pre,local) <- qName + uris <- getState + return (enhanceQN as uris $ mkPrefixLocalPart pre local) + <?> "nameTest" + + +-- [38] NodeType +nodeType' :: XParser XPathNode +nodeType' + = do + nt <- nodeType + lpar + rpar + return nt + <?> "nodeType'" + +nodeType :: XParser XPathNode +nodeType + = choice [ symbolParser (n_comment, XPCommentNode) + , symbolParser (n_text, XPTextNode) + , symbolParser (n_processing_instruction, XPPINode) + , symbolParser (n_node, XPNode) + ] + <?> "nodeType" + +-- ------------------------------------------------------------ diff --git a/doc/hdoc/src/Text-XML-HXT-XSLT-Common.html b/doc/hdoc/src/Text-XML-HXT-XSLT-Common.html --- a/doc/hdoc/src/Text-XML-HXT-XSLT-Common.html +++ b/doc/hdoc/src/Text-XML-HXT-XSLT-Common.html @@ -10,404 +10,407 @@ {- | Module : Text.XML.HXT.XSLT.Application - Copyright : Copyright (C) 2006 Tim Walkenhorst, Uwe Schmidt + Copyright : Copyright (C) 2006-2008 Tim Walkenhorst, Uwe Schmidt License : MIT Maintainer : Uwe Schmidt (uwe\@fh-wedel.de) Stability : experimental Portability: portable - Version : $Id: Common.hs,v 1.5 2007/05/02 06:41:05 hxml Exp $ - - Common imports and functions for HXSLT - --} - --- ------------------------------------------------------------ - -module Text.XML.HXT.XSLT.Common - ( module Control.Arrow - , module Text.XML.HXT.DOM.XmlNode - , module Text.XML.HXT.DOM.XmlKeywords - , module Text.XML.HXT.DOM.TypeDefs - , module Text.XML.HXT.DOM.FormatXmlTree - , module Text.XML.HXT.XPath.XPathDataTypes - , module Text.XML.HXT.XPath.XPathParser - , module Text.XML.HXT.XPath.XPathEval - , module Text.XML.HXT.XPath.XPathFct - , module Text.XML.HXT.XPath.XPathToString - , module Data.NavTree - , module Data.Tree.Class - - -- Tree Functions - , filterTree -- Tree t => (a -> Bool) -> t a -> Maybe (t a) - , mapTreeCtx -- Tree t => (c -> a -> (c, b)) -> c -> t a -> t b - , filterTreeCtx -- Tree t => (c -> a -> (c, Bool)) -> c -> t a -> Maybe (t a) - , zipTreeWith -- Tree t => (a -> b -> c) -> t a -> t b -> t c - , zipTree -- Tree t => t a -> t b -> t (a,b) (zipTreeWith (,)) - , unzipTree -- Tree t => t (a,b) -> (t a, t b) (mapTree fst &&& mapTree snd) - , showTrees - - -- XML functions - , isElemType -- XmlNode n => QName -> n -> Bool - , isAttrType -- XmlNode n => QName -> n -> Bool - , isWhitespaceNode -- XmlTree -> Bool - , collectTextnodes -- [XmlTree] -> String - , tryFetchAttribute -- XmlNode n => n -> QName -> Maybe String - , fetchAttributeWDefault -- XmlNode n => n -> QName -> String -> String - , fetchAttribute -- XmlNode n => n -> QName -> String - , hasAttribute -- XmlNode n => n -> QName -> Bool - , setAttribute -- XmlNode n => QName -> String -> n -> n - - -- Namespace functions - , ExName(ExName) -- String (local) -> String (uri) -> ExName - , mkExName -- QName -> ExName - , exLocal -- ExName -> String - , exUri -- ExName -> String - , parseExName -- UriMapping -> String -> ExName - , UriMapping -- Map String String - , getUriMap -- XmlNode n => n -> UriMapping (extract an Ns-Uri Map from an Element node) - , setUriMap -- XmlNode n => UriMap -> n -> n - , uriMap2Attrs -- UriMapping -> [XmlTree] (create xmlns:* Attribute nodes for Uri-Mapping) - , expandNSDecls -- XmlTree -> XmlTree - , lookupPrefix -- UriMapping -> String -> String - , isNsAttr -- XmlTree -> Bool - - -- additions to XPATH: - , mkLiteralExpr -- String -> Expr - , mkStringExpr -- Expr -> Expr - , mkBoolExpr -- Expr -> Expr - , mkTrueExpr -- Expr - , concatExpr -- [Expr] -> Expr - , splitExpr -- Expr -> [Expr] - , unionExpr -- [Expr] -> Expr - , splitMatchByPrio -- Expr -> [(Float, Expr)] - , computePriority -- Expr -> Float - , computeNTestPriority -- NodeTest -> Float - , isMatchExpr -- Expr -> Bool - - -- Misc.: - , fromJustErr -- String -> Maybe a -> a, fromJust with error message - , readWDefault -- Read a => a -> String -> a - ) -where - -import Control.Arrow -import Control.Arrow.ListArrow -import Control.Arrow.ArrowList - -import Text.XML.HXT.Arrow.XmlArrow - ( xshow - ) -import Text.XML.HXT.DOM.XmlNode - ( XmlNode (..) - , mkElement - , mkRoot - , mkAttr - , mergeAttrl - ) -import Text.XML.HXT.DOM.XmlKeywords - -import Text.XML.HXT.DOM.TypeDefs - ( XmlTree - , XNode(XTag, XAttr) - , QName(namePrefix, localPart, namespaceUri) - , equivQName - , mkName - , mkQName - ) - -import Text.XML.HXT.DOM.FormatXmlTree - ( formatXmlTree ) - -import Text.XML.HXT.XPath.XPathDataTypes - ( Expr(LiteralExpr, FctExpr, GenExpr, PathExpr) - , Op(Union) - , LocationPath (LocPath) - , Path (Rel) - , XStep (Step) - , NodeTest (NameTest, PI, TypeTest) - , NavXmlTree - , XPathValue(XPVNode, XPVBool, XPVString, XPVError) - ) - -import Text.XML.HXT.XPath.XPathParser - ( parseXPath ) - -import Text.XML.HXT.XPath.XPathEval - ( evalExpr ) - -import Text.XML.HXT.XPath.XPathFct - ( isNotInNodeList ) - -import Text.XML.HXT.XPath.XPathToString - ( xPValue2XmlTrees ) - -import Data.Map (Map) -import qualified Data.Map as Map hiding (Map) - -import Data.Tree.Class + + Common imports and functions for HXSLT + +-}     + +-- ------------------------------------------------------------ + +moduleText.XML.HXT.XSLT.Common +(moduleControl.Arrow +,moduleText.XML.HXT.DOM.XmlNode +,moduleText.XML.HXT.DOM.XmlKeywords +,moduleText.XML.HXT.DOM.TypeDefs +,moduleText.XML.HXT.DOM.FormatXmlTree +,moduleText.XML.HXT.XPath.XPathDataTypes +,moduleText.XML.HXT.XPath.XPathParser +,moduleText.XML.HXT.XPath.XPathEval +,moduleText.XML.HXT.XPath.XPathFct +,moduleText.XML.HXT.XPath.XPathToString +,moduleData.NavTree +,moduleData.Tree.Class + +-- Tree Functions +,filterTree-- Tree t => (a -> Bool) -> t a -> Maybe (t a) +,mapTreeCtx-- Tree t => (c -> a -> (c, b)) -> c -> t a -> t b +,filterTreeCtx-- Tree t => (c -> a -> (c, Bool)) -> c -> t a -> Maybe (t a) +,zipTreeWith-- Tree t => (a -> b -> c) -> t a -> t b -> t c +,zipTree-- Tree t => t a -> t b -> t (a,b) (zipTreeWith (,)) +,unzipTree-- Tree t => t (a,b) -> (t a, t b) (mapTree fst &&& mapTree snd) +,showTrees + +-- XML functions +,isElemType-- XmlNode n => QName -> n -> Bool +,isAttrType-- XmlNode n => QName -> n -> Bool +,isWhitespaceNode-- XmlTree -> Bool +,collectTextnodes-- [XmlTree] -> String +,tryFetchAttribute-- XmlNode n => n -> QName -> Maybe String +,fetchAttributeWDefault-- XmlNode n => n -> QName -> String -> String +,fetchAttribute-- XmlNode n => n -> QName -> String +,hasAttribute-- XmlNode n => n -> QName -> Bool +,setAttribute-- XmlNode n => QName -> String -> n -> n + +-- Namespace functions +,ExName(ExName)-- String (local) -> String (uri) -> ExName +,mkExName-- QName -> ExName +,exLocal-- ExName -> String +,exUri-- ExName -> String +,parseExName-- UriMapping -> String -> ExName +,UriMapping-- Map String String +,getUriMap-- XmlNode n => n -> UriMapping (extract an Ns-Uri Map from an Element node) +,setUriMap-- XmlNode n => UriMap -> n -> n +,uriMap2Attrs-- UriMapping -> [XmlTree] (create xmlns:* Attribute nodes for Uri-Mapping) +,expandNSDecls-- XmlTree -> XmlTree +,lookupPrefix-- UriMapping -> String -> String +,isNsAttr-- XmlTree -> Bool + +-- additions to XPATH: +,mkLiteralExpr-- String -> Expr +,mkStringExpr-- Expr -> Expr +,mkBoolExpr-- Expr -> Expr +,mkTrueExpr-- Expr +,concatExpr-- [Expr] -> Expr +,splitExpr-- Expr -> [Expr] +,unionExpr-- [Expr] -> Expr +,splitMatchByPrio-- Expr -> [(Float, Expr)] +,computePriority-- Expr -> Float +,computeNTestPriority-- NodeTest -> Float +,isMatchExpr-- Expr -> Bool + +-- Misc.: +,fromJustErr-- String -> Maybe a -> a, fromJust with error message +,readWDefault-- Read a => a -> String -> a +) +where + +importControl.Arrow +importControl.Arrow.ListArrow +importControl.Arrow.ArrowList + +importText.XML.HXT.Arrow.XmlArrow(xshow +) +importText.XML.HXT.DOM.XmlKeywords +importText.XML.HXT.DOM.XmlNode(XmlNode(..) +,mkElement +,mkRoot +,mkAttr +,mergeAttrl +) + +importText.XML.HXT.DOM.TypeDefs(XmlTree +,XNode(XTag,XAttr) +,QName +,toNsEnv +,namePrefix +,localPart +,namespaceUri +,equivQName +,mkName +,mkQName +) +importText.XML.HXT.DOM.FormatXmlTree(formatXmlTree +) + +importText.XML.HXT.XPath.XPathDataTypes(Expr(LiteralExpr +,FctExpr +,GenExpr +,PathExpr +) +,Op(Union) +,LocationPath(LocPath) +,Path(Rel) +,XStep(Step) +,NodeTest(NameTest +,PI +,TypeTest +) +,NavXmlTree +,XPathValue(XPVNode +,XPVBool +,XPVString +,XPVError +) +) +importText.XML.HXT.XPath.XPathParser(parseXPath +) +importText.XML.HXT.XPath.XPathEval(evalExpr +) +importText.XML.HXT.XPath.XPathFct(isNotInNodeList +) +importText.XML.HXT.XPath.XPathToString(xPValue2XmlTrees +) -importData.NavTree -(NavTree -,ntree -,subtreeNT -,upNT -,downNT -,rightNT -,leftNT -,getChildrenNT -) - -importData.Maybe -importData.List -importData.Char - ---------------------------- --- Tree functions +importData.Map(Map) +importqualifiedData.MapasMaphiding(Map) + +importData.Tree.Class + +importData.NavTree(NavTree +,ntree +,subtreeNT +,upNT +,downNT +,rightNT +,leftNT +,getChildrenNT +) +importData.Maybe +importData.List +importData.Char --- mapTree :: Functor t => (a -> b) -> t a -> t b --- mapTree = fmap +--------------------------- +-- Tree functions --- "map" on a tree with a context. --- Contextual information from the ancestors of the current node can be collected in the context +-- mapTree :: Functor t => (a -> b) -> t a -> t b +-- mapTree = fmap -mapTreeCtx::Treet=>(c->a->(c,b))->c->ta->tb -mapTreeCtxfctree= -mkTreeb$map(mapTreeCtxfcN)$getChildrentree -where -(cN,b)=fc$getNodetree - -filterTree::Treet=>(a->Bool)->ta->Maybe(ta) -filterTreeptree=ifpnode -thenJust$mkTreenode$mapMaybe(filterTreep)$getChildrentree -elseNothing -wherenode=getNodetree - --- "filter" on a tree with a context. --- Contextual information from the ancestors of the current node can be collected in the context -filterTreeCtx::Treet=>(c->a->(c,Bool))->c->ta->Maybe(ta) -filterTreeCtxpctree= -ifb -thenJust$mkTreenode$mapMaybe(filterTreeCtxpcN)$getChildrentree -elseNothing -where -(cN,b)=pcnode -node=getNodetree - -zipTreeWith::Treet=>(a->b->c)->ta->tb->tc -zipTreeWithfab=mkTree(f(getNodea)(getNodeb)) -$zipWith(zipTreeWithf)(getChildrena)$getChildrenb - -zipTree::Treet=>ta->tb->t(a,b) -zipTree=zipTreeWith(,) +-- "map" on a tree with a context. +-- Contextual information from the ancestors of the current node can be collected in the context + +mapTreeCtx::Treet=>(c->a->(c,b))->c->ta->tb +mapTreeCtxfctree= +mkTreeb$map(mapTreeCtxfcN)$getChildrentree +where +(cN,b)=fc$getNodetree + +filterTree::Treet=>(a->Bool)->ta->Maybe(ta) +filterTreeptree=ifpnode +thenJust$mkTreenode$mapMaybe(filterTreep)$getChildrentree +elseNothing +wherenode=getNodetree + +-- "filter" on a tree with a context. +-- Contextual information from the ancestors of the current node can be collected in the context +filterTreeCtx::Treet=>(c->a->(c,Bool))->c->ta->Maybe(ta) +filterTreeCtxpctree= +ifb +thenJust$mkTreenode$mapMaybe(filterTreeCtxpcN)$getChildrentree +elseNothing +where +(cN,b)=pcnode +node=getNodetree + +zipTreeWith::Treet=>(a->b->c)->ta->tb->tc +zipTreeWithfab=mkTree(f(getNodea)(getNodeb)) +$zipWith(zipTreeWithf)(getChildrena)$getChildrenb -unzipTree::Functort=>t(a,b)->(ta,tb) -unzipTree=fmapfst&&&fmapsnd +zipTree::Treet=>ta->tb->t(a,b) +zipTree=zipTreeWith(,) -showTrees::[XmlTree]->String -showTreests -=concat -(runLA(xshow(constLts))$undefined) - ---------------------------- --- Xml Functions +unzipTree::Functort=>t(a,b)->(ta,tb) +unzipTree=fmapfst&&&fmapsnd + +showTrees::[XmlTree]->String +showTreests +=concat +(runLA(xshow(constLts))$undefined) -collectTextnodes::[XmlTree]->String -collectTextnodes -=concat.mapMaybegetText - -isElemType::XmlNoden=>QName->n->Bool -isElemTypeqnnode -=isElemnode -&& -equivQNameqn(fromJust$getElemNamenode) - -isAttrType::XmlNoden=>QName->n->Bool -isAttrTypeqnamenode -=isAttrnode -&& -equivQNameqname(fromJust$getAttrNamenode) - -tryFetchAttribute::XmlNoden=>n->QName->MaybeString -tryFetchAttributenodeqn -|isElemnode= - -ifnullcandidates -thenNothing +--------------------------- +-- Xml Functions + +collectTextnodes::[XmlTree]->String +collectTextnodes +=concat.mapMaybegetText + +isElemType::XmlNoden=>QName->n->Bool +isElemTypeqnnode +=isElemnode +&& +equivQNameqn(fromJust$getElemNamenode) + +isAttrType::XmlNoden=>QName->n->Bool +isAttrTypeqnamenode +=isAttrnode +&& +equivQNameqname(fromJust$getAttrNamenode) + +tryFetchAttribute::XmlNoden=>n->QName->MaybeString +tryFetchAttributenodeqn +|isElemnode= -elseiflengthcandidates>1 -thenerror("More than one attribute "++showqn) +ifnullcandidates +thenNothing -elseJust$collectTextnodes$getChildren$headcandidates - -|otherwise=Nothing -where -candidates=filter(isAttrTypeqn)$fromJust$getAttrlnode - -fetchAttributeWDefault::XmlNoden=>n->QName->String->String -fetchAttributeWDefaultnodenamedef=maybedefid(tryFetchAttributenodename) +elseiflengthcandidates>1 +thenerror("More than one attribute "++showqn) + +elseJust$collectTextnodes$getChildren$headcandidates + +|otherwise=Nothing +where +candidates=filter(isAttrTypeqn)$fromJust$getAttrlnode -fetchAttribute::XmlNoden=>n->QName->String -fetchAttributenodename=fetchAttributeWDefaultnodename$error("Element "++show(getElemNamenode)++" has no attribute: "++showname) +fetchAttributeWDefault::XmlNoden=>n->QName->String->String +fetchAttributeWDefaultnodenamedef=maybedefid(tryFetchAttributenodename) -hasAttribute::XmlNoden=>n->QName->Bool -hasAttributenode=isJust.tryFetchAttributenode +fetchAttribute::XmlNoden=>n->QName->String +fetchAttributenodename=fetchAttributeWDefaultnodename$error("Element "++show(getElemNamenode)++" has no attribute: "++showname) -setAttribute::XmlNoden=>QName->String->n->n -setAttributeqnvalnode -|isElemnode=setElemAttrl(newA:attrs)node -|otherwise=error$"setAttribute on none-element node"-- how print an XmlNode... -where -attrs=filter(not.isAttrTypeqn)$fromJust$getAttrlnode -newA=mkTree(XAttrqn)[mkTextval] - -isWhitespaceNode::(XmlNoden)=>n->Bool -isWhitespaceNode=maybeFalse(allisSpace).getText +hasAttribute::XmlNoden=>n->QName->Bool +hasAttributenode=isJust.tryFetchAttributenode + +setAttribute::XmlNoden=>QName->String->n->n +setAttributeqnvalnode +|isElemnode=setElemAttrl(newA:attrs)node +|otherwise=error$"setAttribute on none-element node"-- how print an XmlNode... +where +attrs=filter(not.isAttrTypeqn)$fromJust$getAttrlnode +newA=mkTree(XAttrqn)[mkTextval] ---------------------------- --- Namespace Functions +isWhitespaceNode::(XmlNoden)=>n->Bool +isWhitespaceNode=maybeFalse(allisSpace).getText --- Expanded name, is unique can therefore be used as a key (unlike QName) - -dataExName=ExNameStringString -deriving(Show,Eq,Ord) +--------------------------- +-- Namespace Functions + +-- Expanded name, is unique can therefore be used as a key (unlike QName) -mkExName::QName->ExName -mkExNameqn=ExName(localPartqn)(namespaceUriqn) +dataExName=ExNameStringString +deriving(Show,Eq,Ord) -exLocal,exUri::ExName->String -exLocal(ExNamel_)=l -exUri(ExName_u)=u - -parseExName::UriMapping->String->ExName -parseExNameurisstr -|noPrefix=ExNamestr"" -|otherwise=ExNameloc$lookupPrefixurisprefix -where -noPrefix=nullloc -loc=drop1loc' -(prefix,loc')=span(/=':')str - --- Mapping from namespace-Prefixes to namespace-URIs - -typeUriMapping=MapStringString - -getUriMap::XmlNoden=>n->UriMapping -getUriMap -=uriMappingsFromNsAttrs.filterisNsAttr.maybeerrid.getAttrl -where -err=error"Internal error: getUriMap on none-element node" - -setUriMap::XmlNoden=>UriMapping->n->n -setUriMapnsMapnode -=setElemAttrl(mergeAttrl(maybe[]id$getAttrlnode)$uriMap2AttrsnsMap)node - -uriMap2Attrs::UriMapping->[XmlTree] -uriMap2Attrs -=mapjoinNsAttr.Map.toAscList - -lookupPrefix::UriMapping->String->String -lookupPrefixurisprefix -=fromJustErr("No namespace-Uri bound to prefix: "++prefix)$Map.lookupprefixuris - -expandNSDecls::XmlTree->XmlTree -expandNSDecls -=mapTreeCtx(expandNSElem)$Map.fromAscList[("xml",xmlNamespace),("xmlns",xmlnsNamespace)] - -expandNSElem::UriMapping->XNode->(UriMapping,XNode) -expandNSElemumapnode -|isElemnode=(umapNew,nodeNew) -|otherwise=(umap,node) -where -nodeNew=XTag(fromJust$getElemNamenode)attrNew -attrNew=attrs++mapjoinNsAttr(Map.toAscListumapNew) -umapNew=uriMappingsFromNsAttrsnsAttrs`Map.union`umap -(nsAttrs,attrs)=partitionisNsAttr$fromJust$getAttrlnode - -uriMappingsFromNsAttrs::[XmlTree]->UriMapping -uriMappingsFromNsAttrs -=Map.fromList.mapsplitNsAttr - -isNsAttr::XmlTree->Bool -isNsAttr -=maybeFalse((==)xmlnsNamespace.namespaceUri).getAttrName - -splitNsAttr::XmlTree->(String,String) -splitNsAttrnode -=(localPart$fromJust$getAttrNamenode,collectTextnodes$getChildrennode) - -joinNsAttr::(String,String)->XmlTree -joinNsAttr(prefix,uri) -=mkAttr(mkQName"xmlns"prefixxmlnsNamespace)[mkTexturi] - -------------------------- --- additions to XPATH: +mkExName::QName->ExName +mkExNameqn=ExName(localPartqn)(namespaceUriqn) + +exLocal,exUri::ExName->String +exLocal(ExNamel_)=l +exUri(ExName_u)=u + +parseExName::UriMapping->String->ExName +parseExNameurisstr +|noPrefix=ExNamestr"" +|otherwise=ExNameloc$lookupPrefixurisprefix +where +noPrefix=nullloc +loc=drop1loc' +(prefix,loc')=span(/=':')str + +-- Mapping from namespace-Prefixes to namespace-URIs + +typeUriMapping=MapStringString + +getUriMap::XmlNoden=>n->UriMapping +getUriMap +=uriMappingsFromNsAttrs.filterisNsAttr.maybeerrid.getAttrl +where +err=error"Internal error: getUriMap on none-element node" + +setUriMap::XmlNoden=>UriMapping->n->n +setUriMapnsMapnode +=setElemAttrl(mergeAttrl(maybe[]id$getAttrlnode)$uriMap2AttrsnsMap)node + +uriMap2Attrs::UriMapping->[XmlTree] +uriMap2Attrs +=mapjoinNsAttr.Map.toAscList + +lookupPrefix::UriMapping->String->String +lookupPrefixurisprefix +=fromJustErr("No namespace-Uri bound to prefix: "++prefix)$Map.lookupprefixuris + +expandNSDecls::XmlTree->XmlTree +expandNSDecls +=mapTreeCtx(expandNSElem)$Map.fromAscList[("xml",xmlNamespace),("xmlns",xmlnsNamespace)] + +expandNSElem::UriMapping->XNode->(UriMapping,XNode) +expandNSElemumapnode +|isElemnode=(umapNew,nodeNew) +|otherwise=(umap,node) +where +nodeNew=XTag(fromJust$getElemNamenode)attrNew +attrNew=attrs++mapjoinNsAttr(Map.toAscListumapNew) +umapNew=uriMappingsFromNsAttrsnsAttrs`Map.union`umap +(nsAttrs,attrs)=partitionisNsAttr$fromJust$getAttrlnode + +uriMappingsFromNsAttrs::[XmlTree]->UriMapping +uriMappingsFromNsAttrs +=Map.fromList.mapsplitNsAttr + +isNsAttr::XmlTree->Bool +isNsAttr +=maybeFalse((==)xmlnsNamespace.namespaceUri).getAttrName + +splitNsAttr::XmlTree->(String,String) +splitNsAttrnode +=(localPart$fromJust$getAttrNamenode,collectTextnodes$getChildrennode) + +joinNsAttr::(String,String)->XmlTree +joinNsAttr(prefix,uri) +=mkAttr(mkQName"xmlns"prefixxmlnsNamespace)[mkTexturi] -mkLiteralExpr::String->Expr -mkLiteralExpr=LiteralExpr +------------------------- +-- additions to XPATH: -mkStringExpr::Expr->Expr -mkStringExpr=FctExpr"string".return +mkLiteralExpr::String->Expr +mkLiteralExpr=LiteralExpr -mkBoolExpr::Expr->Expr -mkBoolExpr=FctExpr"boolean".return +mkStringExpr::Expr->Expr +mkStringExpr=FctExpr"string".return -mkTrueExpr::Expr -mkTrueExpr=FctExpr"true"[] +mkBoolExpr::Expr->Expr +mkBoolExpr=FctExpr"boolean".return -concatExpr::[Expr]->Expr -concatExpr[]=LiteralExpr"" -concatExpr[lit@(LiteralExpr_)]=lit -concatExprxs1@[_]=FctExpr"string"xs1 -concatExprxs=FctExpr"concat"xs - -splitExpr::Expr->[Expr] -splitExpr(GenExprUnionexpr)=expr -splitExprrest=[rest] - -unionExpr::[Expr]->Expr -unionExpr[e]=e -unionExpres=GenExprUniones - --- Intelligent splitting: Split an expression into subexpressions with equal priority --- for example: "a|c/d|e|f/g" => [(0.0, "a|e"), (0.5, "c/d|f/g")] -splitMatchByPrio::Expr->[(Float,Expr)] -splitMatchByPrio= -mapcompress.groupByeq.sortBycmp.map(computePriority&&&id).splitExpr -where -eqxy=fstx==fsty -cmpxy=compare(fstx)(fsty) -compress=(head***unionExpr).unzip - -computePriority::Expr->Float -computePriority(PathExprNothing(Just(LocPathRel[Step_ntest[]])))=computeNTestPriorityntest -computePriority_=0.5 - -computeNTestPriority::NodeTest->Float -computeNTestPriority(PI_)=0.0 -computeNTestPriority(TypeTest_)=-0.5 -computeNTestPriority(NameTestnt) -|namePrefixnt/="" -&&localPartnt=="*"=-0.25 -|localPartnt=="*"=-0.5 -|otherwise=0.0 - -isMatchExpr::Expr->Bool -isMatchExpr(GenExprUnionexprs)=allisMatchExprexprs -isMatchExpr(PathExpr__)=True -isMatchExpr(FctExpr"id"[LiteralExpr_])=True -isMatchExpr(FctExpr"key"[LiteralExpr_,LiteralExpr_])=True -isMatchExpr_=False - ---------------------------- --- Misc: +mkTrueExpr::Expr +mkTrueExpr=FctExpr"true"[] + +concatExpr::[Expr]->Expr +concatExpr[]=LiteralExpr"" +concatExpr[lit@(LiteralExpr_)]=lit +concatExprxs1@[_]=FctExpr"string"xs1 +concatExprxs=FctExpr"concat"xs + +splitExpr::Expr->[Expr] +splitExpr(GenExprUnionexpr)=expr +splitExprrest=[rest] + +unionExpr::[Expr]->Expr +unionExpr[e]=e +unionExpres=GenExprUniones + +-- Intelligent splitting: Split an expression into subexpressions with equal priority +-- for example: "a|c/d|e|f/g" => [(0.0, "a|e"), (0.5, "c/d|f/g")] +splitMatchByPrio::Expr->[(Float,Expr)] +splitMatchByPrio= +mapcompress.groupByeq.sortBycmp.map(computePriority&&&id).splitExpr +where +eqxy=fstx==fsty +cmpxy=compare(fstx)(fsty) +compress=(head***unionExpr).unzip + +computePriority::Expr->Float +computePriority(PathExprNothing(Just(LocPathRel[Step_ntest[]])))=computeNTestPriorityntest +computePriority_=0.5 + +computeNTestPriority::NodeTest->Float +computeNTestPriority(PI_)=0.0 +computeNTestPriority(TypeTest_)=-0.5 +computeNTestPriority(NameTestnt) +|namePrefixnt/="" +&&localPartnt=="*"=-0.25 +|localPartnt=="*"=-0.5 +|otherwise=0.0 + +isMatchExpr::Expr->Bool +isMatchExpr(GenExprUnionexprs)=allisMatchExprexprs +isMatchExpr(PathExpr__)=True +isMatchExpr(FctExpr"id"[LiteralExpr_])=True +isMatchExpr(FctExpr"key"[LiteralExpr_,LiteralExpr_])=True +isMatchExpr_=False -fromJustErr::String->Maybea->a -fromJustErrmsg=maybe(errormsg)id +--------------------------- +-- Misc: -readWDefault::Reada=>a->String->a -readWDefaultastr=fst$head$readsstr++[(a,"")] +fromJustErr::String->Maybea->a +fromJustErrmsg=maybe(errormsg)id ---------------------------- +readWDefault::Reada=>a->String->a +readWDefaultastr=fst$head$readsstr++[(a,"")] + +--------------------------- diff --git a/doc/hdoc/src/Text-XML-HXT-XSLT-Compilation.html b/doc/hdoc/src/Text-XML-HXT-XSLT-Compilation.html --- a/doc/hdoc/src/Text-XML-HXT-XSLT-Compilation.html +++ b/doc/hdoc/src/Text-XML-HXT-XSLT-Compilation.html @@ -16,497 +16,496 @@ Maintainer : Uwe Schmidt (uwe\@fh-wedel.de) Stability : experimental Portability: portable - Version : $Id: Compilation.hs,v 1.7 2007/05/02 06:41:05 hxml Exp $ - - The compilation functions for XSLT stylesheets - --} - --- ------------------------------------------------------------ - -moduleText.XML.HXT.XSLT.Compilation -(prepareXSLTDocument-- :: XmlTree -> XmlTree -,assembleStylesheet-- :: XmlTree -> [CompiledStylesheet] -> CompiledStylesheet -) -where - -importControl.Monad - -importData.Maybe -importData.Either -importData.List -importqualifiedData.MapasMaphiding(Map) -importData.Map(Map) - -importText.ParserCombinators.Parsec.Prim(runParser) - -importText.XML.HXT.XSLT.Common -importText.XML.HXT.XSLT.Names -importText.XML.HXT.XSLT.CompiledStylesheet - --- No deep meaning just a shortcut notation for a *very* common expression... - -infixl9>< - -(><)::XmlNoden=>(UriMapping->a)->n->a -f><node -=f$getUriMapnode - --- -------------------------- - -parseExpr::UriMapping->String->Expr -parseExprurisselectStr -=either(error.show)idparseResult -where -parseResult=runParserparseXPath(Map.toListuris)("select-expr:"++selectStr)selectStr - -parseSelect::UriMapping->String->SelectExpr -parseSelecturis -=SelectExpr.parseExpruris - -parseTest::UriMapping->String->TestExpr -parseTesturis -=TestExpr.mkBoolExpr.parseExpruris - -parseStringExpr::UriMapping->String->StringExpr -parseStringExpruris -=StringExpr.mkStringExpr.parseExpruris - -parseMatch::UriMapping->String->MatchExpr -parseMatchurisstr -=ifisMatchExprexpr -thenMatchExprexpr -elseerror$str++" is not a legal match-expression" -where -expr=parseExprurisstr - --- -------------------------- - -parseAVT::UriMapping->String->StringExpr -parseAVTurisstr= -StringExpr$concatExpr$splitAVTstr"" -where - -splitAVT::String->String->[Expr] -splitAVT""acc=acc2litacc -splitAVT('{':'{':xs)acc=splitAVTxs$'{':acc -splitAVT('}':'}':xs)acc=splitAVTxs$'}':acc -splitAVT('{':xs)acc=let(body,rest)=span(`notElem`"{}")xsin -ifnot(nullrest)&&headrest=='}' -thenacc2litacc++parseExprurisbody:splitAVT(tailrest)"" -elseerror$"Unterminated expression "++xs++" in AVT." -splitAVT('}':_)_=error$"deserted '}' in AVT." -splitAVT(x:xs)acc=splitAVTxs$x:acc - -acc2lit::String->[Expr] -acc2lit""=[] -acc2litacc=[mkLiteralExpr$reverseacc] - --- -------------------------- - --- extract ComputedQName from "name" and "namespace" AVTs of an xsl:element- or xsl-attribute-node -compileComputedQName::XmlTree->ComputedQName -compileComputedQNamenode= -(CompQName><node)nameAVTnsAVT -where -nameAVT=parseAVT><node$fetchAttributenodexsltName -nsAVT=parseAVT><node$fetchAttributeWDefaultnodexsltNamespace"" - --- -------------------------- - -compileComposite::[XmlTree]->Template -compileComposite=TemplComposite.map(compileTemplate.return) - -compileMessage::XmlTree->Template -compileMessagenode=TemplMessagehaltcontent -wherehalt=termAttr=="yes" -termAttr=fetchAttributeWDefaultnodexsltTerminate"no" -content=compileTemplate(getChildrennode) - -compileForEach::XmlTree->Template -compileForEachnode=TemplForEachexprsortingtemplate -whereexpr=parseSelect><node$fetchAttributenodexsltSelect -sorting=mapcompileSortKeysrt -template=compileTemplatecnt -(srt,cnt)=partition(isElemTypexsltSort)$getChildrennode - -compileChoose::XmlTree->Template -compileChoosenode=TemplChoosewhenParts -wherewhenParts=mapcomplchildren -children=filterisElem(getChildrennode) -complnode'=letelemName=fromJust$getElemNamenode'in -ifequivQNameelemNamexsltWhenthencompileWhennode' -elseifequivQNameelemNamexsltOtherwisethencompileOtherwisenode' -elseerror("No elements of type "++showelemName++" allowed within xsl-choose template!") - -compileWhen::XmlTree->When -compileWhennode=WhenPartexpr$compileTemplate$getChildrennode -whereexpr=parseTest><node$fetchAttributenodexsltTest - --- Otherwise is treated as a when-Part with node-test "true()" -compileOtherwise::XmlTree->When -compileOtherwisenode=WhenPart(TestExprmkTrueExpr)$compileTemplate$getChildrennode - --- "if" is treated as a convenience-form of choose with exactly one "when"-Part -compileIf::XmlTree->Template -compileIf=TemplChoose.return.compileWhen - --- ----------------------------------- - -parseExNames::UriMapping->String->[ExName] -parseExNamesurm=map(parseExNameurm).words - -compileElement::XmlTree->Template -compileElementnode= -TemplElementcompQNameMap.emptyattribSetstemplate -where -compQName=compileComputedQNamenode -attribSets=UsedAttribSets$parseExNames><node -$fetchAttributeWDefaultnodexsltUseAttributeSets"" -template=compileTemplate(getChildrennode) - -compileAttribute::XmlTree->Template -compileAttributenode= -TemplAttribute(compileComputedQNamenode)$compileTemplate(getChildrennode) - --- compiles xsl:text -compileText::XmlTree->Template -compileText=TemplText.collectTextnodes.getChildren - --- compiles textNode -compileTextnode::XmlTree->Template -compileTextnode=TemplText.fromJust.getText - -compileValueOf::XmlTree->Template -compileValueOfnode= -TemplValueOf$parseStringExpr><node$fetchAttributenodexsltSelect - -compileComment::XmlTree->Template -compileComment=TemplComment.compileTemplate.getChildren - -compileProcInstr::XmlTree->Template -compileProcInstrnode= -TemplProcInstrnamecontent -where -name=parseAVT><node$fetchAttributenodexsltName -content=compileTemplate$getChildrennode - --- ----------------------------------- - -compileLiteralResultElement::XmlTree->Template -compileLiteralResultElementnode= -TemplElementcompQNamensUrisattribSetscontent -where -nsUris=extractAddUrisnode -compQName=LiteralQName$fromJust$getElemNamenode -attribSets=UsedAttribSets$parseExNames><node$attrSetsStr -attrSetsStr=fetchAttributeWDefaultnodexsltUseAttributeSetsLRE"" -content=TemplComposite$attributes++[template] -attributes=mapMaybe(compileLREAttribute><node)$fromJust$getAttrlnode -template=compileTemplate(getChildrennode) - -compileLREAttribute::UriMapping->XmlTree->MaybeTemplate -compileLREAttributeurisnode= -ifisSpecial -thenNothing -elseJust$TemplAttribute(LiteralQNamename)val -where -isSpecial=namespaceUriname`elem`[xsltUri,xmlnsNamespace] -name=fromJust$getAttrNamenode -val=TemplValueOf$parseAVTuris$collectTextnodes$getChildrennode - --- ----------------------------------- - -compileApplyTempl::XmlTree->Template -compileApplyTemplnode= -TemplApplyexprmodeargssorting -where -expr=liftM(parseSelect><node)$tryFetchAttributenodexsltSelect -mode=liftM(parseExName><node)$tryFetchAttributenodexsltMode -args=compileVariables$filter(isElemTypexsltWithParam)$par -sorting=mapcompileSortKeysrt -(srt,par)=partition(isElemTypexsltSort)$getChildrennode - -compileApplyImports::XmlTree->Template -compileApplyImports_node -=TemplApplyImports - -compileCallTempl::XmlTree->Template -compileCallTemplnode= -TemplCallnameargs -where -name=parseExName><node$fetchAttributenodexsltName -args=compileVariables$filter(isElemTypexsltWithParam)$getChildrennode - -compileTemplVariable::XmlTree->Template -compileTemplVariable=TemplVariable.compileVariable - --- ----------------------------------- - -compileCopy::XmlTree->Template -compileCopynode= -TemplCopyattribSets$compileTemplate(getChildrennode) -where -attribSets=UsedAttribSets$parseExNames><node$fetchAttributeWDefaultnodexsltUseAttributeSets"" - -compileCopyOf::XmlTree->Template -compileCopyOfnode=TemplCopyOf$parseExpr><node$fetchAttributenodexsltSelect - --- ----------------------------------- - -compileTemplate::[XmlTree]->Template -compileTemplate[node]= -ifisElemnode -thenletelemName=fromJust$getElemNamenodein -ifequivQNameelemNamexsltMessagethencompileMessagenode -elseifequivQNameelemNamexsltForEachthencompileForEachnode -elseifequivQNameelemNamexsltChoosethencompileChoosenode -elseifequivQNameelemNamexsltIfthencompileIfnode -elseifequivQNameelemNamexsltElementthencompileElementnode -elseifequivQNameelemNamexsltAttributethencompileAttributenode -elseifequivQNameelemNamexsltTextthencompileTextnode -elseifequivQNameelemNamexsltValueOfthencompileValueOfnode -elseifequivQNameelemNamexsltCommentthencompileCommentnode -elseifequivQNameelemNamexsltProcInstrthencompileProcInstrnode -elseifequivQNameelemNamexsltApplyTemplatesthencompileApplyTemplnode -elseifequivQNameelemNamexsltApplyImportsthencompileApplyImportsnode -elseifequivQNameelemNamexsltCallTemplatethencompileCallTemplnode -elseifequivQNameelemNamexsltVariablethencompileTemplVariablenode -elseifequivQNameelemNamexsltCopythencompileCopynode -elseifequivQNameelemNamexsltCopyOfthencompileCopyOfnode - --- no other xslt elements allowed here: -elseifnamespaceUrielemName==xsltUri -thenerror$"xslt-element "++localPartelemName++" not allowed within this context." - --- for now all other elements will be considered as Literal Result Elements -elsecompileLiteralResultElementnode - -elseifisTextnodethencompileTextnodenode - -else -error$"Unsupported node-type in xslt sheet: "++show(getNodenode) -compileTemplatelist=compileCompositelist + + The compilation functions for XSLT stylesheets + +-} + +-- ------------------------------------------------------------ + +moduleText.XML.HXT.XSLT.Compilation +(prepareXSLTDocument-- :: XmlTree -> XmlTree +,assembleStylesheet-- :: XmlTree -> [CompiledStylesheet] -> CompiledStylesheet +) +where + +importControl.Monad + +importData.Maybe +importData.Either +importData.List +importqualifiedData.MapasMaphiding(Map) +importData.Map(Map) + +importText.ParserCombinators.Parsec.Prim(runParser) + +importText.XML.HXT.XSLT.Common +importText.XML.HXT.XSLT.Names +importText.XML.HXT.XSLT.CompiledStylesheet + +-- No deep meaning just a shortcut notation for a *very* common expression... + +infixl9>< + +(><)::XmlNoden=>(UriMapping->a)->n->a +f><node +=f$getUriMapnode + +-- -------------------------- + +parseExpr::UriMapping->String->Expr +parseExprurisselectStr +=either(error.show)idparseResult +where +parseResult=runParserparseXPath(toNsEnv.Map.toList$uris)("select-expr:"++selectStr)selectStr + +parseSelect::UriMapping->String->SelectExpr +parseSelecturis +=SelectExpr.parseExpruris + +parseTest::UriMapping->String->TestExpr +parseTesturis +=TestExpr.mkBoolExpr.parseExpruris + +parseStringExpr::UriMapping->String->StringExpr +parseStringExpruris +=StringExpr.mkStringExpr.parseExpruris + +parseMatch::UriMapping->String->MatchExpr +parseMatchurisstr +=ifisMatchExprexpr +thenMatchExprexpr +elseerror$str++" is not a legal match-expression" +where +expr=parseExprurisstr + +-- -------------------------- + +parseAVT::UriMapping->String->StringExpr +parseAVTurisstr= +StringExpr$concatExpr$splitAVTstr"" +where + +splitAVT::String->String->[Expr] +splitAVT""acc=acc2litacc +splitAVT('{':'{':xs)acc=splitAVTxs$'{':acc +splitAVT('}':'}':xs)acc=splitAVTxs$'}':acc +splitAVT('{':xs)acc=let(body,rest)=span(`notElem`"{}")xsin +ifnot(nullrest)&&headrest=='}' +thenacc2litacc++parseExprurisbody:splitAVT(tailrest)"" +elseerror$"Unterminated expression "++xs++" in AVT." +splitAVT('}':_)_=error$"deserted '}' in AVT." +splitAVT(x:xs)acc=splitAVTxs$x:acc + +acc2lit::String->[Expr] +acc2lit""=[] +acc2litacc=[mkLiteralExpr$reverseacc] + +-- -------------------------- + +-- extract ComputedQName from "name" and "namespace" AVTs of an xsl:element- or xsl-attribute-node +compileComputedQName::XmlTree->ComputedQName +compileComputedQNamenode= +(CompQName><node)nameAVTnsAVT +where +nameAVT=parseAVT><node$fetchAttributenodexsltName +nsAVT=parseAVT><node$fetchAttributeWDefaultnodexsltNamespace"" + +-- -------------------------- + +compileComposite::[XmlTree]->Template +compileComposite=TemplComposite.map(compileTemplate.return) + +compileMessage::XmlTree->Template +compileMessagenode=TemplMessagehaltcontent +wherehalt=termAttr=="yes" +termAttr=fetchAttributeWDefaultnodexsltTerminate"no" +content=compileTemplate(getChildrennode) + +compileForEach::XmlTree->Template +compileForEachnode=TemplForEachexprsortingtemplate +whereexpr=parseSelect><node$fetchAttributenodexsltSelect +sorting=mapcompileSortKeysrt +template=compileTemplatecnt +(srt,cnt)=partition(isElemTypexsltSort)$getChildrennode + +compileChoose::XmlTree->Template +compileChoosenode=TemplChoosewhenParts +wherewhenParts=mapcomplchildren +children=filterisElem(getChildrennode) +complnode'=letelemName=fromJust$getElemNamenode'in +ifequivQNameelemNamexsltWhenthencompileWhennode' +elseifequivQNameelemNamexsltOtherwisethencompileOtherwisenode' +elseerror("No elements of type "++showelemName++" allowed within xsl-choose template!") + +compileWhen::XmlTree->When +compileWhennode=WhenPartexpr$compileTemplate$getChildrennode +whereexpr=parseTest><node$fetchAttributenodexsltTest + +-- Otherwise is treated as a when-Part with node-test "true()" +compileOtherwise::XmlTree->When +compileOtherwisenode=WhenPart(TestExprmkTrueExpr)$compileTemplate$getChildrennode + +-- "if" is treated as a convenience-form of choose with exactly one "when"-Part +compileIf::XmlTree->Template +compileIf=TemplChoose.return.compileWhen + +-- ----------------------------------- + +parseExNames::UriMapping->String->[ExName] +parseExNamesurm=map(parseExNameurm).words + +compileElement::XmlTree->Template +compileElementnode= +TemplElementcompQNameMap.emptyattribSetstemplate +where +compQName=compileComputedQNamenode +attribSets=UsedAttribSets$parseExNames><node +$fetchAttributeWDefaultnodexsltUseAttributeSets"" +template=compileTemplate(getChildrennode) + +compileAttribute::XmlTree->Template +compileAttributenode= +TemplAttribute(compileComputedQNamenode)$compileTemplate(getChildrennode) + +-- compiles xsl:text +compileText::XmlTree->Template +compileText=TemplText.collectTextnodes.getChildren + +-- compiles textNode +compileTextnode::XmlTree->Template +compileTextnode=TemplText.fromJust.getText + +compileValueOf::XmlTree->Template +compileValueOfnode= +TemplValueOf$parseStringExpr><node$fetchAttributenodexsltSelect + +compileComment::XmlTree->Template +compileComment=TemplComment.compileTemplate.getChildren + +compileProcInstr::XmlTree->Template +compileProcInstrnode= +TemplProcInstrnamecontent +where +name=parseAVT><node$fetchAttributenodexsltName +content=compileTemplate$getChildrennode + +-- ----------------------------------- + +compileLiteralResultElement::XmlTree->Template +compileLiteralResultElementnode= +TemplElementcompQNamensUrisattribSetscontent +where +nsUris=extractAddUrisnode +compQName=LiteralQName$fromJust$getElemNamenode +attribSets=UsedAttribSets$parseExNames><node$attrSetsStr +attrSetsStr=fetchAttributeWDefaultnodexsltUseAttributeSetsLRE"" +content=TemplComposite$attributes++[template] +attributes=mapMaybe(compileLREAttribute><node)$fromJust$getAttrlnode +template=compileTemplate(getChildrennode) + +compileLREAttribute::UriMapping->XmlTree->MaybeTemplate +compileLREAttributeurisnode= +ifisSpecial +thenNothing +elseJust$TemplAttribute(LiteralQNamename)val +where +isSpecial=namespaceUriname`elem`[xsltUri,xmlnsNamespace] +name=fromJust$getAttrNamenode +val=TemplValueOf$parseAVTuris$collectTextnodes$getChildrennode + +-- ----------------------------------- + +compileApplyTempl::XmlTree->Template +compileApplyTemplnode= +TemplApplyexprmodeargssorting +where +expr=liftM(parseSelect><node)$tryFetchAttributenodexsltSelect +mode=liftM(parseExName><node)$tryFetchAttributenodexsltMode +args=compileVariables$filter(isElemTypexsltWithParam)$par +sorting=mapcompileSortKeysrt +(srt,par)=partition(isElemTypexsltSort)$getChildrennode + +compileApplyImports::XmlTree->Template +compileApplyImports_node +=TemplApplyImports + +compileCallTempl::XmlTree->Template +compileCallTemplnode= +TemplCallnameargs +where +name=parseExName><node$fetchAttributenodexsltName +args=compileVariables$filter(isElemTypexsltWithParam)$getChildrennode + +compileTemplVariable::XmlTree->Template +compileTemplVariable=TemplVariable.compileVariable + +-- ----------------------------------- + +compileCopy::XmlTree->Template +compileCopynode= +TemplCopyattribSets$compileTemplate(getChildrennode) +where +attribSets=UsedAttribSets$parseExNames><node$fetchAttributeWDefaultnodexsltUseAttributeSets"" + +compileCopyOf::XmlTree->Template +compileCopyOfnode=TemplCopyOf$parseExpr><node$fetchAttributenodexsltSelect + +-- ----------------------------------- + +compileTemplate::[XmlTree]->Template +compileTemplate[node]= +ifisElemnode +thenletelemName=fromJust$getElemNamenodein +ifequivQNameelemNamexsltMessagethencompileMessagenode +elseifequivQNameelemNamexsltForEachthencompileForEachnode +elseifequivQNameelemNamexsltChoosethencompileChoosenode +elseifequivQNameelemNamexsltIfthencompileIfnode +elseifequivQNameelemNamexsltElementthencompileElementnode +elseifequivQNameelemNamexsltAttributethencompileAttributenode +elseifequivQNameelemNamexsltTextthencompileTextnode +elseifequivQNameelemNamexsltValueOfthencompileValueOfnode +elseifequivQNameelemNamexsltCommentthencompileCommentnode +elseifequivQNameelemNamexsltProcInstrthencompileProcInstrnode +elseifequivQNameelemNamexsltApplyTemplatesthencompileApplyTemplnode +elseifequivQNameelemNamexsltApplyImportsthencompileApplyImportsnode +elseifequivQNameelemNamexsltCallTemplatethencompileCallTemplnode +elseifequivQNameelemNamexsltVariablethencompileTemplVariablenode +elseifequivQNameelemNamexsltCopythencompileCopynode +elseifequivQNameelemNamexsltCopyOfthencompileCopyOfnode + +-- no other xslt elements allowed here: +elseifnamespaceUrielemName==xsltUri +thenerror$"xslt-element "++localPartelemName++" not allowed within this context." + +-- for now all other elements will be considered as Literal Result Elements +elsecompileLiteralResultElementnode + +elseifisTextnodethencompileTextnodenode + +else +error$"Unsupported node-type in xslt sheet: "++show(getNodenode) +compileTemplatelist=compileCompositelist + - --- ----------------------------------- --- Assembling of the entire stylesheet - -assembleStylesheet::XmlTree->[CompiledStylesheet]->CompiledStylesheet -assembleStylesheetxslNodeimports= -CompStylesheetmatchRulesnamedRulesvariablesattsetsstripsaliases -where --- entire contents: -(namedRules, -matchRules)=assembleRulesruleElemsimportedMatchRulesimportedNamedRules -variables=assembleVariablesvarElemsimportedVariables -attsets=assembleAttrSetsattsetElemsimportedAttribSets -strips=assembleStripsstripElemspreserveElemsimportedStrips -aliases=assembleAliasesnsAliasElemsimportedAliases - --- element content: -(nsAliasElems,_r5)=partition(isElemTypexsltNamespaceAlias)r4 -(ruleElems,r4)=partition(isElemTypexsltTemplate)r3 -(varElems,r3)=partition(\node->isElemTypexsltVariablenode||isElemTypexsltParamnode)r2 -(attsetElems,r2)=partition(isElemTypexsltAttributeSet)r1 -(preserveElems,r1)=partition(isElemTypexsltPreserveSpace)r0 -(stripElems,r0)=partition(isElemTypexsltStripSpace)$getChildrenxslNode - --- imported stuff: -importedAttribSets=mapgetAttributeSetsimports -importedVariables=mapgetVariablesrevImports -importedNamedRules=mapgetNamedRulesrevImports -importedMatchRules=concatMapgetMatchRulesrevImports -importedStrips=concatMapgetStripsrevImports -importedAliases=mapgetAliasesrevImports -revImports=reverseimports - -assembleRules::[XmlTree]->[MatchRule]->[MapExNameNamedRule]->(MapExNameNamedRule,[MatchRule]) -assembleRulesnodesimportedMatchesimportedProcs= -(resProcs,resMatches) -where - --- matches: -resMatches=localMatches++importedMatches -localMatches=reverse$sortBycmpmatches -cmprulArulB=compare(getRulePriorulA)(getRulePriorulB) - --- procedures: -resProcs=Map.unions(localProcs:importedProcs) -localProcs=foldlinsMap.emptyprocs -insmap'rule=Map.insertWith(error$"named-rule "++show(getRuleNamerule)++" is already defined on this level") -(getRuleNamerule)rulemap' - --- compile all xsl:template's: -(procs,matches)=catMaybes***concat$unzip$map(compileRuleimportedMatches)nodes - -assembleVariables::[XmlTree]->[(MapExNameVariable)]->(MapExNameVariable) -assembleVariablesvarElems=Map.unions.(compileVariablesvarElems:) - -assembleAttrSets::[XmlTree]->[MapExName[AttributeSet]]->MapExName[AttributeSet] -assembleAttrSetsattsetElems= -foldr(Map.unionWith(++))localAttribSets -where -localAttribSets=foldrinsertAsMap.empty -$mapcompileAttributeSetattsetElems -insertAsas@(AttribSetname__)=Map.insertWith(++)name[as] - -assembleStrips::[XmlTree]->[XmlTree]->[Strips]->[Strips] -assembleStripsstripElemspreserveElems= -(localStrips:) -where -localStrips=feedStrips(concatMapcompileStripsstripElems) -$feedPreserves(concatMapcompilePreservespreserveElems) -$Map.empty - -assembleAliases::[XmlTree]->[NSAliasing]->NSAliasing -assembleAliasesnsAliasElems= -Map.unions.(localAliases:) -where -localAliases=foldraddAlias'Map.emptynsAliasElems -addAlias'node=uncurry(addAlias><node)$compileAliasnode - --- ----------------------------------- - --- compile a rule from an xsl:template element. --- The resulting rule can either be a one or more match rule or a named rule, or both. --- The first argument is needed for xsl:apply-imports and contains --- a list of all subsequently imported rules -compileRule::[MatchRule]->XmlTree->(MaybeNamedRule,[MatchRule]) -compileRuleimportsnode= - -ifisNothingmatch&&isNothingname -thenerror"Error: Bogus rule (xsl:template) with neither match nor name attribute is illegal" - -elseifisJustmode&&isNothingmatch -thenerror"Error: Bogus mode attribute on none-match rule is illegal" - -elseifisJustpriority&&isNothingmatch -thenerror"Error: Bogus priority attribute on none-match rule is illegal" - -else -( -liftM(\n->NamRulenparamstemplate)name -,concat$maybeToList$liftM(assembleMatchRuleprioritymodeimportsparamstemplate)match -) - -where -match=liftM(parseMatch><node)$tryFetchAttributenodexsltMatch -name=liftM(parseExName><node)$tryFetchAttributenodexsltName -priority=liftMread$tryFetchAttributenodexsltPriority -mode=liftM(parseExName><node)$tryFetchAttributenodexsltMode -template=compileTemplatecontent -params=mapcompileVariableparamsXml -(paramsXml,content)= -partition(isElemTypexsltParam)$getChildrennode - -assembleMatchRule::MaybeFloat->MaybeExName->[MatchRule]->[Variable]->Template->MatchExpr->[MatchRule] -assembleMatchRuleprimimppartmplmtch@(MatchExprexpr)= -ifisJustpri -thenreturn$MatRulemtch(fromJustpri)mimppartmpl -elsemapexpand$splitMatchByPrioexpr -where -expand(pri',mtch')=MatRule(MatchExprmtch')pri'mimppartmpl - --- ----------------------------------- - -compileVariables::[XmlTree]->MapExNameVariable -compileVariablesnodes= -foldlinsertVarMap.empty$varList -where -varList=mapcompileVariable$nodes -insertVarmap'var=Map.insertWith(error$"parameter or variable "++show(getVarNamevar)++" is already defined on this level") -(getVarNamevar)varmap' - -compileVariable::XmlTree->Variable -compileVariablenode= -MkVarmodusnameexprOrRtf -where -modus=isElemTypexsltParamnode -name=parseExName><node$fetchAttributenodexsltName -exprOrRtf=ifhasAttributenodexsltSelect||null(getChildrennode) -thenLeft$parseExpr><node$fetchAttributeWDefaultnodexsltSelect"''" -elseRight$compileTemplate$getChildrennode - --- ----------------------------------- - -compileAttributeSet::XmlTree->AttributeSet -compileAttributeSetnode= -AttribSetnameusedsetstemplate -where -name=parseExName><node$fetchAttributenodexsltName -usedsets=UsedAttribSets$parseExNames><node$fetchAttributeWDefaultnodexsltUseAttributeSets"" -template=compileTemplate$filter(isElemTypexsltAttribute)$getChildrennode - --- ----------------------------------- - -compileSortKey::XmlTree->SortKey -compileSortKeynode= -SortKexprdataTypeorder -where -expr=parseStringExpr><node$fetchAttributeWDefaultnodexsltSelect"." -dataType=parseAVT><node$fetchAttributeWDefaultnodexsltDataType"text" -order=parseAVT><node$fetchAttributeWDefaultnodexsltOrder"ascending" - --- ----------------------------------- - -parseNTests::UriMapping->String->[NTest] -parseNTestsuris=map(parseNTesturis).words - -compileStrips,compilePreserves::XmlTree->[NTest] -compileStripsnode=parseNTests><node$fetchAttributenodexsltElements -compilePreserves=compileStrips - --- ----------------------------------- - -compileAlias::XmlTree->(String,String) -compileAliasnode= -(fetchAttributenodexsltStylesheetPrefix,fetchAttributenodexsltResultPrefix) - --- ----------------------------------- --- Document level preprocessing - -prepareXSLTDocument::XmlTree->XmlTree -prepareXSLTDocument=expandExEx.expandNSDecls.stripStylesheet.removePiCmt - -removePiCmt::XmlTree->XmlTree -removePiCmt=fromJustErr"XSLT: No root element".filterTree(\n->not(isPin)&&not(isCmtn)) - --- Expand exclude-result-prefixes AND extension-element-prefixes - -expandExEx::XmlTree->XmlTree -expandExEx=mapTreeCtxexpandExExElem([xsltUri,xmlNamespace,xmlnsNamespace],[]) - -expandExExElem::([String],[String])->XNode->(([String],[String]),XNode) -expandExExElemc@(excl,ext)node -|isElemnode=((exclAcc,extAcc),nodeNew) -|otherwise=(c,node) -where -nodeNew=setAttributenameExcl(unwordsexclAcc)$setAttributenameExt(unwordsextAcc)node -exclAcc=exclNew++excl -extAcc=extNew++ext -exclNew=extNew++(parsePreList><node$fetchAttributeWDefaultnodenameExcl"") -extNew=parsePreList><node$fetchAttributeWDefaultnodenameExt"" -(nameExcl, -nameExt)=if(namespaceUri$fromJust$getElemNamenode)==xsltUri -then(xsltExlcudeResultPrefixes,xsltExtensionElementPrefixes) -else(xsltExlcudeResultPrefixesLRE,xsltExtensionElementPrefixesLRE) - --- parse a prefix list, create a list of uris: --- "pre1 pre2 pre3" -> ["pre1.uri","pre2.uri","pre3.uri"] - -parsePreList::UriMapping->String->[String] -parsePreListuris=map(lookupPrefixuris).words - --- ----------------------------------- --- Extraction of contextual Information from an XML-Node - -extractAddUris::XmlTree->UriMapping -extractAddUrisnode= -(Map.filter(`notElem`exclUris))><node -where -exclUris=words$fetchAttributeWDefaultnodexsltExlcudeResultPrefixesLRE"" - --- ----------------------------------- +-- ----------------------------------- +-- Assembling of the entire stylesheet + +assembleStylesheet::XmlTree->[CompiledStylesheet]->CompiledStylesheet +assembleStylesheetxslNodeimports= +CompStylesheetmatchRulesnamedRulesvariablesattsetsstripsaliases +where +-- entire contents: +(namedRules, +matchRules)=assembleRulesruleElemsimportedMatchRulesimportedNamedRules +variables=assembleVariablesvarElemsimportedVariables +attsets=assembleAttrSetsattsetElemsimportedAttribSets +strips=assembleStripsstripElemspreserveElemsimportedStrips +aliases=assembleAliasesnsAliasElemsimportedAliases + +-- element content: +(nsAliasElems,_r5)=partition(isElemTypexsltNamespaceAlias)r4 +(ruleElems,r4)=partition(isElemTypexsltTemplate)r3 +(varElems,r3)=partition(\node->isElemTypexsltVariablenode||isElemTypexsltParamnode)r2 +(attsetElems,r2)=partition(isElemTypexsltAttributeSet)r1 +(preserveElems,r1)=partition(isElemTypexsltPreserveSpace)r0 +(stripElems,r0)=partition(isElemTypexsltStripSpace)$getChildrenxslNode + +-- imported stuff: +importedAttribSets=mapgetAttributeSetsimports +importedVariables=mapgetVariablesrevImports +importedNamedRules=mapgetNamedRulesrevImports +importedMatchRules=concatMapgetMatchRulesrevImports +importedStrips=concatMapgetStripsrevImports +importedAliases=mapgetAliasesrevImports +revImports=reverseimports + +assembleRules::[XmlTree]->[MatchRule]->[MapExNameNamedRule]->(MapExNameNamedRule,[MatchRule]) +assembleRulesnodesimportedMatchesimportedProcs= +(resProcs,resMatches) +where + +-- matches: +resMatches=localMatches++importedMatches +localMatches=reverse$sortBycmpmatches +cmprulArulB=compare(getRulePriorulA)(getRulePriorulB) + +-- procedures: +resProcs=Map.unions(localProcs:importedProcs) +localProcs=foldlinsMap.emptyprocs +insmap'rule=Map.insertWith(error$"named-rule "++show(getRuleNamerule)++" is already defined on this level") +(getRuleNamerule)rulemap' + +-- compile all xsl:template's: +(procs,matches)=catMaybes***concat$unzip$map(compileRuleimportedMatches)nodes + +assembleVariables::[XmlTree]->[(MapExNameVariable)]->(MapExNameVariable) +assembleVariablesvarElems=Map.unions.(compileVariablesvarElems:) + +assembleAttrSets::[XmlTree]->[MapExName[AttributeSet]]->MapExName[AttributeSet] +assembleAttrSetsattsetElems= +foldr(Map.unionWith(++))localAttribSets +where +localAttribSets=foldrinsertAsMap.empty +$mapcompileAttributeSetattsetElems +insertAsas@(AttribSetname__)=Map.insertWith(++)name[as] + +assembleStrips::[XmlTree]->[XmlTree]->[Strips]->[Strips] +assembleStripsstripElemspreserveElems= +(localStrips:) +where +localStrips=feedStrips(concatMapcompileStripsstripElems) +$feedPreserves(concatMapcompilePreservespreserveElems) +$Map.empty + +assembleAliases::[XmlTree]->[NSAliasing]->NSAliasing +assembleAliasesnsAliasElems= +Map.unions.(localAliases:) +where +localAliases=foldraddAlias'Map.emptynsAliasElems +addAlias'node=uncurry(addAlias><node)$compileAliasnode + +-- ----------------------------------- + +-- compile a rule from an xsl:template element. +-- The resulting rule can either be a one or more match rule or a named rule, or both. +-- The first argument is needed for xsl:apply-imports and contains +-- a list of all subsequently imported rules +compileRule::[MatchRule]->XmlTree->(MaybeNamedRule,[MatchRule]) +compileRuleimportsnode= + +ifisNothingmatch&&isNothingname +thenerror"Error: Bogus rule (xsl:template) with neither match nor name attribute is illegal" + +elseifisJustmode&&isNothingmatch +thenerror"Error: Bogus mode attribute on none-match rule is illegal" + +elseifisJustpriority&&isNothingmatch +thenerror"Error: Bogus priority attribute on none-match rule is illegal" + +else +( +liftM(\n->NamRulenparamstemplate)name +,concat$maybeToList$liftM(assembleMatchRuleprioritymodeimportsparamstemplate)match +) + +where +match=liftM(parseMatch><node)$tryFetchAttributenodexsltMatch +name=liftM(parseExName><node)$tryFetchAttributenodexsltName +priority=liftMread$tryFetchAttributenodexsltPriority +mode=liftM(parseExName><node)$tryFetchAttributenodexsltMode +template=compileTemplatecontent +params=mapcompileVariableparamsXml +(paramsXml,content)= +partition(isElemTypexsltParam)$getChildrennode + +assembleMatchRule::MaybeFloat->MaybeExName->[MatchRule]->[Variable]->Template->MatchExpr->[MatchRule] +assembleMatchRuleprimimppartmplmtch@(MatchExprexpr)= +ifisJustpri +thenreturn$MatRulemtch(fromJustpri)mimppartmpl +elsemapexpand$splitMatchByPrioexpr +where +expand(pri',mtch')=MatRule(MatchExprmtch')pri'mimppartmpl + +-- ----------------------------------- + +compileVariables::[XmlTree]->MapExNameVariable +compileVariablesnodes= +foldlinsertVarMap.empty$varList +where +varList=mapcompileVariable$nodes +insertVarmap'var=Map.insertWith(error$"parameter or variable "++show(getVarNamevar)++" is already defined on this level") +(getVarNamevar)varmap' + +compileVariable::XmlTree->Variable +compileVariablenode= +MkVarmodusnameexprOrRtf +where +modus=isElemTypexsltParamnode +name=parseExName><node$fetchAttributenodexsltName +exprOrRtf=ifhasAttributenodexsltSelect||null(getChildrennode) +thenLeft$parseExpr><node$fetchAttributeWDefaultnodexsltSelect"''" +elseRight$compileTemplate$getChildrennode + +-- ----------------------------------- + +compileAttributeSet::XmlTree->AttributeSet +compileAttributeSetnode= +AttribSetnameusedsetstemplate +where +name=parseExName><node$fetchAttributenodexsltName +usedsets=UsedAttribSets$parseExNames><node$fetchAttributeWDefaultnodexsltUseAttributeSets"" +template=compileTemplate$filter(isElemTypexsltAttribute)$getChildrennode + +-- ----------------------------------- + +compileSortKey::XmlTree->SortKey +compileSortKeynode= +SortKexprdataTypeorder +where +expr=parseStringExpr><node$fetchAttributeWDefaultnodexsltSelect"." +dataType=parseAVT><node$fetchAttributeWDefaultnodexsltDataType"text" +order=parseAVT><node$fetchAttributeWDefaultnodexsltOrder"ascending" + +-- ----------------------------------- + +parseNTests::UriMapping->String->[NTest] +parseNTestsuris=map(parseNTesturis).words + +compileStrips,compilePreserves::XmlTree->[NTest] +compileStripsnode=parseNTests><node$fetchAttributenodexsltElements +compilePreserves=compileStrips + +-- ----------------------------------- + +compileAlias::XmlTree->(String,String) +compileAliasnode= +(fetchAttributenodexsltStylesheetPrefix,fetchAttributenodexsltResultPrefix) + +-- ----------------------------------- +-- Document level preprocessing + +prepareXSLTDocument::XmlTree->XmlTree +prepareXSLTDocument=expandExEx.expandNSDecls.stripStylesheet.removePiCmt + +removePiCmt::XmlTree->XmlTree +removePiCmt=fromJustErr"XSLT: No root element".filterTree(\n->not(isPin)&&not(isCmtn)) + +-- Expand exclude-result-prefixes AND extension-element-prefixes + +expandExEx::XmlTree->XmlTree +expandExEx=mapTreeCtxexpandExExElem([xsltUri,xmlNamespace,xmlnsNamespace],[]) + +expandExExElem::([String],[String])->XNode->(([String],[String]),XNode) +expandExExElemc@(excl,ext)node +|isElemnode=((exclAcc,extAcc),nodeNew) +|otherwise=(c,node) +where +nodeNew=setAttributenameExcl(unwordsexclAcc)$setAttributenameExt(unwordsextAcc)node +exclAcc=exclNew++excl +extAcc=extNew++ext +exclNew=extNew++(parsePreList><node$fetchAttributeWDefaultnodenameExcl"") +extNew=parsePreList><node$fetchAttributeWDefaultnodenameExt"" +(nameExcl, +nameExt)=if(namespaceUri$fromJust$getElemNamenode)==xsltUri +then(xsltExlcudeResultPrefixes,xsltExtensionElementPrefixes) +else(xsltExlcudeResultPrefixesLRE,xsltExtensionElementPrefixesLRE) + +-- parse a prefix list, create a list of uris: +-- "pre1 pre2 pre3" -> ["pre1.uri","pre2.uri","pre3.uri"] + +parsePreList::UriMapping->String->[String] +parsePreListuris=map(lookupPrefixuris).words + +-- ----------------------------------- +-- Extraction of contextual Information from an XML-Node + +extractAddUris::XmlTree->UriMapping +extractAddUrisnode= +(Map.filter(`notElem`exclUris))><node +where +exclUris=words$fetchAttributeWDefaultnodexsltExlcudeResultPrefixesLRE"" + +-- ----------------------------------- diff --git a/doc/index.html b/doc/index.html --- a/doc/index.html +++ b/doc/index.html @@ -1,12 +1,12 @@ - Haskell XML Toolbox 8.2.0 + Haskell XML Toolbox 8.3.0 -

    Haskell XML Toolbox 8.2.0

    +

    Haskell XML Toolbox 8.3.0

    Contents

      @@ -159,7 +159,7 @@

      The description of the development of the XPath modules is described (in german) in Konzeption und Implementierung - eines XPath-Moduls für die Haskell XML Toolbox + eines XPath-Moduls für die Haskell XML Toolbox (PDF-document).

      @@ -185,8 +185,8 @@

      Downloads

      - Haskell XML Toolbox 8.2.0, - released 2008-11-20: + Haskell XML Toolbox 8.3.0, + released 2009-03-18:

      • This version works with ghc 6.10 with cabal 1.6. @@ -225,13 +225,12 @@

        Before installing this version, install the curl and tagsoup modules. For a quick install with Cabal execute the following commands in - .../HXT-8.2.0 + .../HXT-8.3.0 

        -    make setup
-    ./setup configure --ghc
-    ./setup build
-    ./setup install		# with root privileges
+    cabal configure
+    cabal build
+    sudo cabal install --global

        A quick test of the example programs: @@ -252,6 +251,27 @@

        Change History

          +
        • In Version 8.3.0 +
            +
          • + New output option "a_no_empty_elements" for preventing + the XML short format "<name/>" for HTML elements, + like "script", "p", and others. Especially a script tag + of the form "<script href="..."/>" does not work in + firefox. + Turning on this option gives the form "<script href="..."></script>". +
            • +
          • + An input option "a_strict_input" for bytestring input of + files added. Lazy input, especially when using the tagsoup + parser, can lead to error messages like "too many open + files" when processing a whole bunsh of documents. +
            • +
          • Internal representation of qualified names changed to gain + more space efficency. +
            • +
          +
        • In Version 8.2.0
    - +
    Data.Tree.NTree.Filter
    Data.Tree.NTree.TypeDefs
    Text.XML.HXT.DOM.NamespacePredicates
    Text.XML.HXT.DOM.QualifiedNameText.XML.HXT.DOM.XmlOptions
    Text.XML.HXT.DOM.XmlTreeTypes
    Last modified: 2008-11-20 
    Last modified: 2009-03-18 
    diff --git a/examples/arrows/Makefile b/examples/arrows/Makefile --- a/examples/arrows/Makefile +++ b/examples/arrows/Makefile @@ -9,7 +9,7 @@ hrelaxng \ RelaxTestSuite \ AGentleIntroductionToHXT \ - performance + performance RegexXMLSchema HXT_HOME = ../.. PKGFLAGS = diff --git a/examples/arrows/RegexXMLSchema/Makefile b/examples/arrows/RegexXMLSchema/Makefile new file mode 100644 --- /dev/null +++ b/examples/arrows/RegexXMLSchema/Makefile @@ -0,0 +1,128 @@ +# $Id: Makefile,v 1.9 2006/11/11 15:36:03 hxml Exp $ + +HXT_HOME = ../../.. +PKGFLAGS = +GHCFLAGS = -Wall -O2 +GHC = ghc $(GHCFLAGS) $(PKGFLAGS) + +DIST = $(HXT_HOME)/dist/examples/arrows +DIST_DIR = $(DIST)/RegexXMLSchema + +CNT = 3 + +ropts = +RTS -s -RTS + +prog = ./REtest +prog2 = ./Lines +prog3 = ./RElines +prog4 = ./Words +prog5 = ./REwords +prog0 = ./Copy + +progs = $(prog) $(prog0) $(prog2) $(prog3) $(prog4) $(prog5) + +all : $(progs) + +$(prog) : $(prog).hs + $(GHC) --make -o $@ $< + +local : + $(GHC) --make -o $(prog) -fglasgow-exts -ignore-package hxt -i../../../src $(prog).hs + +$(prog2) : $(prog) + ln -f $(prog) $(prog2) + +$(prog3) : $(prog) + ln -f $(prog) $(prog3) + +$(prog4) : $(prog) + ln -f $(prog) $(prog4) + +$(prog5) : $(prog) + ln -f $(prog) $(prog5) + +$(prog0) : $(prog) + ln -f $(prog) $(prog0) + +# generate and read documents containing a binary tree +# with 2^i leaf nodes containing the numbers 1 to 2^i +# for i up to at least 22 (8M XML elements) output works fine +# for i up to 19 (1M XML elements) input works without swapping +# with i=20 swapping starts, but the program it still terminates +# the size of the XML file for i=20 is about 36Mb +# these tests have run on a box with 1Gb memory + +tests = 18 + +test : $(prog) + $(MAKE) genfiles tests="$(tests)" + $(MAKE) copy tests="$(tests)" + $(MAKE) lines tests="$(tests)" + $(MAKE) relines tests="$(tests)" + $(MAKE) words tests="$(tests)" + $(MAKE) rewords tests="$(tests)" + +perftest : $(prog) + $(MAKE) test tests="2 3 10 11 12 13 14 15 16 17 18 19 20" + +genfiles : + @for i in $(tests) ; \ + do \ + echo time $(prog) $(ropts) $$i ; \ + time $(prog) $(ropts) $$i ; \ + ls -l tree-*$$i.xml ; \ + echo ; \ + done + +copy : + @for i in $(tests) ; \ + do \ + echo time $(prog0) $(ropts) $$i ; \ + time $(prog0) $(ropts) $$i ; \ + ls -l tree-*$$i.xml.copy ; \ + echo ; \ + done + +lines : + @for i in $(tests) ; \ + do \ + echo time $(prog2) $(ropts) $$i ; \ + time $(prog2) $(ropts) $$i ; \ + ls -l tree-*$$i.xml.lines ; \ + echo ; \ + done + +relines : + @for i in $(tests) ; \ + do \ + echo time $(prog3) $(ropts) $$i ; \ + time $(prog3) $(ropts) $$i ; \ + ls -l tree-*$$i.xml.relines ; \ + echo ; \ + done + +words : + @for i in $(tests) ; \ + do \ + echo time $(prog4) $(ropts) $$i ; \ + time $(prog4) $(ropts) $$i ; \ + ls -l tree-*$$i.xml.words ; \ + echo ; \ + done + +rewords : + @for i in $(tests) ; \ + do \ + echo time $(prog5) $$i ; \ + time $(prog5) $(ropts) $$i ; \ + ls -l tree-*$$i.xml.rewords ; \ + echo ; \ + done + +dist : + [ -d $(DIST_DIR) ] || mkdir -p $(DIST_DIR) + cp Makefile REtest.hs $(DIST_DIR) + +clean : + rm -f $(progs) *.o *.hi *.xml *.xml.* + diff --git a/examples/arrows/RegexXMLSchema/REtest.hs b/examples/arrows/RegexXMLSchema/REtest.hs new file mode 100644 --- /dev/null +++ b/examples/arrows/RegexXMLSchema/REtest.hs @@ -0,0 +1,172 @@ +{-# LANGUAGE BangPatterns#-} + +-- ---------------------------------------- + +module Main(main) +where + +import Text.XML.HXT.Arrow +import Text.XML.HXT.RelaxNG.XmlSchema.RegexMatch + +import Text.XML.HXT.DOM.Unicode + ( unicodeToXmlEntity + ) + +import Control.Monad.State.Strict hiding (when) + +import Data.List +import Data.Maybe + +import System.IO -- import the IO and commandline option stuff +import System.Environment + +-- ---------------------------------------- + +main :: IO () +main + = do + p <- getProgName + al <- getArgs + let i = if null al + then 4 + else (read . head $ al)::Int + main' p i + where + main' p' = fromMaybe main1 . lookup (pn p') $ mpt + mpt = [ ("REtest", main1) + , ("Copy", main2 "copy" (:[])) + , ("Lines", main2 "lines" lines) + , ("RElines", main2 "relines" relines) + , ("Words", main2 "words" words) + , ("REwords", main2 "rewords" rewords) + ] + +-- ---------------------------------------- + +-- generate a document containing a binary tree of 2^i leafs (= 2^(i-1) XML elements) + +main1 :: Int -> IO () +main1 i + = do + runX (genDoc i (fn i)) + return () + +-- ---------------------------------------- + +-- read a document containing a binary tree of 2^i leafs + +main2 :: String -> (String -> [String]) -> Int -> IO () +main2 ext lines' i + = do + hPutStrLn stderr "start processing" + h <- openFile (fn i) ReadMode + c <- hGetContents h + let ls = lines' c + o <- openFile (fn i ++ "." ++ ext) WriteMode + mapM_ (hPutStrLn o) ls + hClose o + hClose h + hPutStrLn stderr "end processing" + +relines :: String -> [String] +relines = tokenize "[^\n\r]*" + +rewords :: String -> [String] +rewords = tokenize "[^ \t\n\r]+" + +-- ---------------------------------------- + +pn :: String -> String +pn = reverse . takeWhile (/= '/') . reverse + +fn :: Int -> String +fn = ("tree-" ++) . (++ ".xml") . reverse . take 4 . reverse . ((replicate 4 '0') ++ ) . show + +-- ---------------------------------------- + +genDoc :: Int -> String -> IOSArrow b XmlTree +genDoc d out = constA (mkBTree d) + >>> + xpickleVal xpickle + >>> + indentDoc + >>> + putDoc out + +-- ---------------------------------------- + +type Counter a = State Int a + +incr :: Counter Int +incr = do + modify (+1) + get + +-- ---------------------------------------- + +data BTree = Leaf Int + | Fork BTree BTree + deriving (Show) + +instance XmlPickler BTree where + xpickle = xpAlt tag ps + where + tag (Leaf _ ) = 0 + tag (Fork _ _ ) = 1 + ps = [ xpWrap ( Leaf, \ (Leaf i) -> i) + ( xpElem "leaf" $ xpAttr "value" $ xpickle ) + + , xpWrap ( uncurry Fork, \ (Fork l r) -> (l, r)) + ( xpElem "fork" $ xpPair xpickle xpickle ) + ] + +-- ---------------------------------------- + +mkBTree :: Int -> BTree +mkBTree depth = evalState (mkT depth) 0 + +mkT :: Int -> Counter BTree +mkT 0 = do + i <- incr + return (Leaf i) +mkT n = do + l <- mkT (n-1) + r <- mkT (n-1) + return (Fork l r) + +-- ---------------------------------------- + +-- output is done with low level ops to write the +-- document i a lasy manner +-- adding an xml pi and encoding is done "by hand" +-- latin1 decoding is the identity, so please generate the +-- docs with latin1 encoding. Here ist done even with ASCCI +-- every none ASCII char is represented by a char ref (&nnn;) + +putDoc :: String -> IOStateArrow s XmlTree XmlTree +putDoc dst + = addXmlPi + >>> + addXmlPiEncoding isoLatin1 + >>> + xshow getChildren + >>> + arr unicodeToXmlEntity + >>> + arrIO (\ s -> hPutDocument (\h -> hPutStrLn h s)) + >>> + none + where + isStdout = null dst || dst == "-" + + hPutDocument :: (Handle -> IO()) -> IO() + hPutDocument action + | isStdout + = action stdout + | otherwise + = do + handle <- openFile dst WriteMode + action handle + hClose handle + +-- ---------------------------------------- diff --git a/examples/arrows/hparser/Makefile b/examples/arrows/hparser/Makefile --- a/examples/arrows/hparser/Makefile +++ b/examples/arrows/hparser/Makefile @@ -37,8 +37,9 @@ EX3 = ./namespace0.xml EX3a = ./namespace1.xml EX4 = ./lousy.html +EX4a = ./emptyElements.html -EX = $(wildcard example*.xml) $(wildcard lousy*.html) $(wildcard *valid*.xml *valid*.rng) $(wildcard namespace*.xml) +EX = $(wildcard example*.xml) $(wildcard lousy*.html) $(wildcard empty*.html) $(wildcard *valid*.xml *valid*.rng) $(wildcard namespace*.xml) test0 : @echo "===> a 1. simple valid document" @@ -108,6 +109,11 @@ $(prog) --indent --preserve-comment --parse-html $(EX4) @sleep 2 ; echo ; echo "===> same with lasy parser with tagsoup" ; echo ; sleep 2 $(prog) -H -T -r --indent $(EX4) + @echo + @echo "===> the source of another lousy html document containing empty elements" ; echo ; sleep 2 + cat $(EX4a) + @sleep 2 ; echo ; echo "===> parser accepts this document and tries to build a document tree" ; echo ; sleep 2 + $(prog) --indent --preserve-comment --parse-html --output-html --no-empty-elements $(EX4a) @echo diff --git a/examples/arrows/hparser/emptyElements.html b/examples/arrows/hparser/emptyElements.html new file mode 100644 --- /dev/null +++ b/examples/arrows/hparser/emptyElements.html @@ -0,0 +1,16 @@ + + + + + <meta name="description" value="a lousy HTML doc with empty elements"> + <script href="javascript.js"/> + </head> + <body> + <h1/> + <h2/> + <p/> + <div/> + <br/> + <img src="pic.jpg"/> + </body> +</html> diff --git a/examples/arrows/hxpath/Makefile b/examples/arrows/hxpath/Makefile --- a/examples/arrows/hxpath/Makefile +++ b/examples/arrows/hxpath/Makefile @@ -13,6 +13,9 @@ force : $(GHC) --make -o $(prog) $(prog).hs +local : + ghc --make -o $(prog2) $(GHCFLAGS) -fglasgow-exts -ignore-package hxt -i../../../src $(prog2).hs + $(prog) : $(prog).hs $(GHC) --make -o $@ $< diff --git a/examples/arrows/hxpath/XPathShell.hs b/examples/arrows/hxpath/XPathShell.hs --- a/examples/arrows/hxpath/XPathShell.hs +++ b/examples/arrows/hxpath/XPathShell.hs @@ -40,6 +40,7 @@ import Text.ParserCombinators.Parsec ( runParser ) +type NsEnv' = AssocList String String main :: IO() main @@ -50,17 +51,20 @@ then evalXPath path env (head doc) else evalLoop env doc -evalArgs :: [String] -> IO (String, NsEnv, XmlTrees) +evalArgs :: [String] -> IO (String, NsEnv', XmlTrees) evalArgs [] = evalArgs ("" : "[]" : "" : []) evalArgs [doc] = evalArgs ("" : "[]" : doc : []) evalArgs [path, doc] = evalArgs (path : "[]" : doc : []) -evalArgs [path, env, ""] = return (path, addEntries (read env) $ defaultEnv, []) +evalArgs [path, env, ""] = return (path, buildEnv env, []) evalArgs [path, env, doc] = do (d, ne) <- loadDoc doc - return (path, addEntries ne $ addEntries (read env) $ defaultEnv, d) + return (path, addEntries ne . buildEnv $ env, d) evalArgs al = evalArgs (take 3 al) -loadDoc :: String -> IO ([XmlTree], NsEnv) +buildEnv :: String -> NsEnv' +buildEnv env = (addEntries . read $ env) $ defaultEnv + +loadDoc :: String -> IO ([XmlTree], NsEnv') loadDoc doc = do d <- runX ( readDocument [ (a_tagsoup, v_0) @@ -98,7 +102,7 @@ ) return () -evalXPath :: String -> NsEnv -> XmlTree -> IO() +evalXPath :: String -> NsEnv' -> XmlTree -> IO() evalXPath path env doc | nr == xr = putStrLn . unlines $ "ok: " : nr @@ -112,11 +116,11 @@ ] ++ nr putStrLn $ xpt path where - xpt = either show show . runParser parseXPath env "" + xpt = either show show . runParser parseXPath (toNsEnv env) "" nr = runLA (XPS.getXPathTreesWithNsEnv env path >>> xshow this) doc xr = runLA ( getXPathTreesWithNsEnv env path >>> xshow this) doc -evalLoop :: NsEnv -> XmlTrees -> IO () +evalLoop :: NsEnv' -> XmlTrees -> IO () evalLoop env doc = do maybeLine <- readline "xpath> " @@ -163,7 +167,7 @@ (nd, nv) <- loadDoc n if null nd then do - putStrLn ("error when loading " ++ show doc) + putStrLn ("error when loading " ++ show n) evalLoop env doc else evalLoop (addEntries nv env) nd evalCmd ws@((':':_):_) @@ -177,9 +181,9 @@ else evalXPath path env (head doc) evalLoop env doc -defaultEnv :: NsEnv -defaultEnv = [ ("xml",xmlNamespace) - , ("xmlns",xmlnsNamespace) - ] +defaultEnv :: NsEnv' +defaultEnv = [ ("xml",xmlNamespace) + , ("xmlns",xmlnsNamespace) + ] -- ---------------------------------------- diff --git a/examples/arrows/performance/GenDoc.hs b/examples/arrows/performance/GenDoc.hs --- a/examples/arrows/performance/GenDoc.hs +++ b/examples/arrows/performance/GenDoc.hs @@ -102,7 +102,7 @@ >>> arr2 (\ ma mi -> "maximum value = " ++ show ma ++ ", minimum = " ++ show mi ) >>> - traceString 1 id + traceValue 1 id ) putStrLn x @@ -161,7 +161,8 @@ , (a_remove_whitespace, v_1) , (a_encoding, isoLatin1) , (a_issue_warnings, v_0) - , (a_trace, "1") + , (a_trace, v_1) + , (a_strict_input, v_0) ] src >>> processChildren (isElem `guards` this) diff --git a/examples/arrows/performance/Makefile b/examples/arrows/performance/Makefile --- a/examples/arrows/performance/Makefile +++ b/examples/arrows/performance/Makefile @@ -8,6 +8,10 @@ DIST = $(HXT_HOME)/dist/examples/arrows DIST_DIR = $(DIST)/performance +CNT = 3 + +ropts = +RTS -s -RTS + prog = ./GenDoc prog2 = ./ReadDoc prog3 = ./PruneRight @@ -57,7 +61,7 @@ genfiles : @for i in $(tests) ; \ do \ - echo time $(prog) $$i ; \ + echo time $(prog) $(ropts) $$i ; \ time $(prog) $$i ; \ ls -l tree-*$$i.xml ; \ echo ; \ @@ -66,7 +70,7 @@ readfiles : @for i in $(tests) ; \ do \ - echo time $(prog2) $$i ; \ + echo time $(prog2) $(ropts) $$i ; \ time $(prog2) $$i ; \ echo ; \ done @@ -74,7 +78,7 @@ pruneright : @for i in $(tests) ; \ do \ - echo time $(prog3) $$i ; \ + echo time $(prog3) $(ropts) $$i ; \ time $(prog3) $$i ; \ echo ; \ done @@ -82,7 +86,7 @@ pruneleft : @for i in $(tests) ; \ do \ - echo time $(prog4) $$i ; \ + echo time $(prog4) $(ropts) $$i ; \ time $(prog4) $$i ; \ echo ; \ done @@ -91,7 +95,7 @@ @for i in $(tests) ; \ do \ echo time $(prog5) $$i ; \ - time $(prog5) $$i ; \ + time $(prog5) $(ropts) $$i ; \ echo ; \ done diff --git a/hxt.cabal b/hxt.cabal --- a/hxt.cabal +++ b/hxt.cabal @@ -1,6 +1,6 @@ -- arch-tag: Haskell XML Toolbox main description file name: hxt -version: 8.2.0 +version: 8.3.0 license: OtherLicense license-file: LICENCE maintainer: Uwe Schmidt <uwe@fh-wedel.de> @@ -31,7 +31,6 @@ Data.Char.UTF8, Data.NavTree, Data.Tree.Class, - Data.Tree.NTree.Filter, Data.Tree.NTree.TypeDefs, Text.XML.HXT.Arrow, Text.XML.HXT.Arrow.DTDProcessing, @@ -58,7 +57,6 @@ Text.XML.HXT.DOM.IsoLatinTables, Text.XML.HXT.DOM.MimeTypeDefaults, Text.XML.HXT.DOM.MimeTypes, - Text.XML.HXT.DOM.NamespacePredicates, Text.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.ShowXml, Text.XML.HXT.DOM.TypeDefs, @@ -68,7 +66,6 @@ Text.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.XmlNode, Text.XML.HXT.DOM.XmlOptions, - Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DTDValidation.AttributeValueValidation, Text.XML.HXT.DTDValidation.DTDValidation, Text.XML.HXT.DTDValidation.DocTransformation, diff --git a/src/Control/Arrow/ArrowNF.hs b/src/Control/Arrow/ArrowNF.hs --- a/src/Control/Arrow/ArrowNF.hs +++ b/src/Control/Arrow/ArrowNF.hs @@ -34,3 +34,5 @@ class (Arrow a) => ArrowNF a where rnfA :: (NFData c) => a b c -> a b c rnfA f = f >>> strictA + +-- ------------------------------------------------------------ diff --git a/src/Data/Tree/NTree/Filter.hs b/src/Data/Tree/NTree/Filter.hs deleted file mode 100644 --- a/src/Data/Tree/NTree/Filter.hs +++ /dev/null @@ -1,913 +0,0 @@ --- ------------------------------------------------------------ - -{- | - Module : Data.Tree.NTree.Filter - Copyright : Copyright (C) 2005 Uwe Schmidt - License : MIT - - Maintainer : Uwe Schmidt (uwe\@fh-wedel.de) - Stability : experimental - Portability: portable - Version : $Id: Filter.hs,v 1.6 2006/11/12 14:52:59 hxml Exp $ - -Filter for n-ary tree structure with filter combinators -copied and modified from HxXml (<http://www.cs.york.ac.uk/fp/HaXml/>) - -Similar but more flexible functions for tree processing are defined in the -arrow classes "Control.Arrow.ArrowList", "Control.Arrow.ArrowIf", "Control.Arrow.ArrowTree" and "Control.Arrow.ArrowState". -For new applications, especially for XML processing, it's recommended to use the arrow interface -"Text.XML.HXT.Arrow" instead of this filter approach as part of the api "Text.XML.HXT.Parser" - --} - --- ------------------------------------------------------------ - -module Data.Tree.NTree.Filter - ( module Data.Tree.NTree.TypeDefs - , TFilter - , TSFilter - , satisfies - - -- * Filter - , none -- simple filter - , this - - , isOf - , isOfNode -- predicate filter - - , mkNTree -- contructor filter - - , replaceNode -- simple editing - , replaceChildren - - , modifyNode - , modifyNode0 - , modifyChildren - , substChildren - , processChildren -- filter combinators - - , o - , (.>) - , seqF - , (..>) - , (+++) - , cat - - , orElse -- choices - , iff -- if then else filter - , choice - , IfThen(..) - , when - , whenNot - , guards - , neg -- negation - , containing -- previous: with, but with is keyword in haskell extensions - , notContaining -- previous: without - - , (/>) -- selectors - , (</) - , deep -- recursive search - , deepest - , multi - , processBottomUp -- recursive editing - , processBottomUpIfNot - , processTopDown - , processTopDownUntil - , insertChildrenAt - , insertChildrenAfter - - -- * Monadic Filter - , thisM -- monadic filter - , noneM - , (.>>) -- monadic composition - , seqM -- generalisation of .>> - , (+++>>) -- monadic parallel combination, monadic +++ - , catM -- monadic form of cat - , ifM -- monadic if then else - , choiceM -- monadic choice - , whenM -- special monadic ifs - , whenNotM - , guardsM - , containingM - , processChildrenM -- monadic versions of recursive editing - , processTopDownM - , processBottomUpM - , liftMf -- lift a normal filter to a monadic filter - , ($$) -- apply a filter to a list - , ($$<) -- apply a monad filter to a list - , performAction -- run a command within a filter - ) - -where - - -import Data.Tree.NTree.TypeDefs - -infixl 6 `containing`, `notContaining`, `containingM` -infixr 5 `o`, +++, +++>> -infixl 5 />, </, `orElse`, .>, ..>, .>> -infixr 4 `when`, `whenNot`, `guards`, `whenM`, `whenNotM`, `guardsM` -infixr 3 :-> -infixr 0 $$, $$< - --- | --- tree filter type: a function mapping a tree onto a list of trees --- --- filter can be used in various ways, as predicates, selectors, transformers, ... - -type TFilter node = NTree node -> NTrees node - --- | --- a filter for sequences - -type TSFilter node = NTrees node -> NTrees node - --- ------------------------------------------------------------ - --- | --- satisfies converts a result of a predicate filter into a boolean --- --- is a shortcut for not . null --- --- typical use in guards or ifs: @if (satisfies f) t then ... else ... @ --- --- * 1.parameter f : the predicate filter --- --- - 2.parameter t : the tree to be tested --- --- - returns : @b = not (null (f t))@ - -satisfies :: (a -> [b]) -> a -> Bool -satisfies f = not . null . f - --- ------------------------------------------------------------ --- --- simple filter - --- | --- the null filter, returns the empty list - -none :: a -> [b] -none _ = [] - --- | --- the unit filter, returns the single element list containing the argument - -this :: a -> [a] -this n = [n] - --- ------------------------------------------------------------ --- --- selecting filter - --- | --- conversion from predicate function to filter --- --- * 1.parameter p : the predicate for testing the tree --- --- - returns : 'this' or 'none' depending on the predicate - -isOf :: (a -> Bool) -> (a -> [a]) -isOf p t - = if p t then [t] else [] - --- | --- select filter, selects trees with node values with a specific property --- --- * 1.parameter p : the predicate for testing the node value --- --- - returns : @[]@ or @[t]@ depending on @p t@ --- --- a special case of 'isOf' filter - -isOfNode :: (node -> Bool) -> TFilter node -isOfNode p = isOf (p . getNode) - --- ------------------------------------------------------------ --- --- simple editing filters - --- | --- filter for substituting an arbitray tree by a constant --- --- * 1.parameter t : the result tree, the input tree is ignored --- --- - returns : the filter - -mkNTree :: NTree node -> TFilter node -mkNTree t = const [t] - --- | --- filter for replacing the node --- --- * 1.parameter n : the new node --- --- - returns : the editing filter - -replaceNode :: node -> TFilter node -replaceNode n (NTree _ cs) - = [NTree n cs] - --- | --- filter for replacing the children --- --- * 1.parameter cs : cs the list of children --- --- - returns : the filter - -replaceChildren :: NTrees node -> TFilter node -replaceChildren cs (NTree n _) - = [NTree n cs] - -modifyNode :: (node -> Maybe node) -> TFilter node -modifyNode tf (NTree n cs) - = maybe [] (\ n' -> [NTree n' cs]) (tf n) - --- | --- filter for editing the node --- --- * 1.parameter nf : the XNode editing funtion --- --- - returns : the filter - -modifyNode0 :: (node -> node) -> TFilter node -modifyNode0 tf = modifyNode (Just . tf) - --- | --- filter for editing the children --- --- all children are processed with a filter mapping lists to lists, --- this enables not only elementwise editing by lifting a normal --- filter to a list filter with @(f $$)@ (see '($$)') but also manipulation --- of the order of the elements, e.g. "reverse" is an appropriate childen --- editing function. --- --- * 1.parameter csf : the children editing function --- --- - returns : the filter --- --- see also : 'processChildren' - -modifyChildren :: TSFilter node -> TFilter node -modifyChildren f -- (NTree n cs) - -- = [NTree n (f cs)] - = substChildren (f . getChildren) - --- | --- filter for substituting the children of a tree by --- a new list of childen computed by applying a filter to the input tree. --- 'modifyChildren' can be expressed by 'substChildren': --- @modifyChildren f t@ is equal to @substChildren (f . getChildren)@ - -substChildren :: TFilter node -> TFilter node -substChildren f t@(NTree n _cs) - = [NTree n (f t)] - --- ------------------------------------------------------------ --- --- combinators (copied from HaXml) --- - --- | --- sequential composition of filters, usually written in infix notation f2 `o` f1. --- --- for predicate filter the logical AND --- --- * 1.parameter f2 : the 2. filter --- --- - 2.parameter f1 : the 1. filter --- --- - returns : the fiter applying first f1 to n and then f2 to the result (like function composition) - -o :: (a -> [b]) -> (c -> [a]) -> (c -> [b]) -f `o` g = concatMap f . g - --- | --- pronounced \"followed by\", defined as: @f .> g = g \`o\` f@. --- --- allows filter composition in a more readable way from left to right --- --- * 1.parameter f1 : the 1. filter --- --- - 2.parameter f2 : the 2. filter --- --- - returns : the composition of f1 and f2 --- --- see also : 'o', '(..>)' - -(.>) :: (a -> [b]) -> (b -> [c]) -> (a -> [c]) -f .> g = g `o` f - --- | --- apply a list of filters sequentially with '(.>)', for predicate filters the generalized AND --- --- see also : '(.>)' - -seqF :: [a -> [a]] -> (a -> [a]) -seqF = foldl (.>) this - --- | --- binary parallel composition, the logical OR for predicate filter --- --- * 1.parameter f1 : the 1. filter --- --- - 2.parameter f2 : the 2. filter --- --- - returns : the filter for applying f1 and f2 both to an argument tree and concatenating the results - -(+++) :: (a -> [b]) -> (a -> [b]) -> (a -> [b]) -f +++ g = \ t -> f t ++ g t - --- | --- special sequential composition. --- --- filter f is applied to an argument t. --- then filter g is applied to all elements of the result list, --- but the argument t is also passed as extra parameter to g. --- --- This allows for step by step transformations of a tree --- with access to the original tree in every --- transformation step. --- --- see also : '(.>)', 'o' - -(..>) :: (a -> [b]) -> (a -> b -> [d]) -> (a -> [d]) -f ..> g = \ t -> (g t `o` f) t - --- | --- apply a list of filters, a \"union\" for lists, for predicate filters the generalized OR --- --- * 1.parameter fs : the list of filters --- --- - returns : the composing filter - -cat :: [a -> [b]] -> (a -> [b]) -cat fs t - = concat [ f t | f <- fs ] - --- | --- Filter for editing the children of a tree element wise --- --- * 1.parameter cf : the filter applied to the children --- --- - returns : the editing filter --- --- see also : 'modifyChildren' - -processChildren :: TFilter node -> TFilter node -processChildren ft (NTree n cs) - = [NTree n (ft $$ cs)] - --- | --- infix operator for applying a filter to a list of trees --- --- * 1.parameter f : the filter --- --- - 2.parameter ts : the list of trees --- --- - returns : the concatenated list of results - -($$) :: (a -> [b]) -> [a] -> [b] -f $$ l - = concatMap f l - --- ------------------------------------------------------------ --- --- choices --- - --- | --- directional choice, usually written in infix notation as f `orElse` g --- --- * 1.parameter f : the 1. filter --- --- - 2.parameter g : the 2. filter --- --- - 3.parameter t : the tree --- --- - returns : the filter, that applies f to t, if the result is not the empty list, the result is found, else g t is the result - -orElse :: (a -> [b]) -> (a -> [b]) -> (a -> [b]) -f `orElse` g - = \ t-> let - res = f t - in - if null res - then g t - else res - --- | --- if then else lifted to filters --- --- * 1.parameter p : the predicate filter --- --- - 2.parameter t : the \"then\" filter --- --- - 3.parameter e : the \"else\" filter --- --- - returns : the resulting conditional filter - -iff :: (a -> [c]) -> (a -> [b]) -> (a -> [b]) -> (a -> [b]) -iff p f g = \ c -> if (satisfies p) c then f c else g c - --- | --- when the predicate p holds, f is applied, else the identity filter this --- --- * 1.parameter f : the conditinally applied filter --- --- - 2.parameter p : the predicate --- --- - returns : the conditional filter --- --- see also : 'iff', 'whenNot', 'guards', 'whenM' - -when :: (a -> [a]) -> (a -> [a]) -> (a -> [a]) -f `when` g = iff g f this - --- | --- the complementary filter of when --- --- shortcut for f `when` neg g --- --- see also : 'iff', 'when', 'whenNotM', 'neg' - -whenNot :: (a -> [a]) -> (a -> [a]) -> (a -> [a]) -f `whenNot` g = iff g this f - --- | --- when the predicate p holds, f is applied, else the null filter none --- --- * 1.parameter p : the predicate filter --- --- - 2.parameter f : the conditionally applied filter --- --- - returns : the conditional filter --- --- see also : 'iff', 'when', 'guardsM' - -guards :: (a -> [b]) -> (a -> [b]) -> (a -> [b]) -g `guards` f = iff g f none - - --- | --- negation lifted to filters --- --- * 1.parameter f : the predicate filter --- --- - returns : the filter, that succeeds, when f failed - -neg :: (a -> [c]) -> a -> [a] -neg f = iff f none this - --- | --- auxiliary datatype for cases within choice filter - -data IfThen a b = a :-> b - --- | --- multiway branch. The list of cases @f :-> g@ is processed sequentially, --- in the first case for that f holds g is applied, if no case matches, 'none' is --- applied. --- This filter can be used like a case expression: @choice [ p1 :-> f1, p2 :-> f2, ... , this :-> defaultFilter]@ --- --- see also : 'iff', 'choiceM' - -choice :: [IfThen (a -> [c]) (a -> [b])] -> (a -> [b]) -choice [] - = none - -choice ((g :-> f) : cs) - = iff g f (choice cs) - --- | --- pruning: keep only those results from f for which g holds, usually written in infix notation as f `containing` g --- --- * 1.parameter f : the processing filter --- --- - 2.parameter g : the predicate filter --- --- - 3.parameter t : the tree --- --- - returns : all trees r from f t, for which g r holds (is not the empty list) --- --- see also : 'notContaining' - -containing :: (a -> [b]) -> (b -> [c]) -> a -> [b] -f `containing` g - = filter (satisfies g) . f - --- | --- pruning: keep only those results from f for which g does not hold --- --- see also : 'containing' - -notContaining :: (a -> [b]) -> (b -> [c]) -> a -> [b] -f `notContaining` g - = filter (null . g) . f - --- | --- pruning: monadic version of containing, usually written in infix notation as f `containingM` g --- --- * 1.parameter f : the monadic processing filter --- --- - 2.parameter g : the predicate filter --- --- - 3.parameter t : the tree --- --- - returns : all trees r from f t, for which g r holds (is not the empty list) --- --- see also : 'notContaining' - -containingM :: Monad m => (a -> m [b]) -> (b -> [c]) -> a -> m [b] -f `containingM` g - = \ t -> do - res <- f t - return $ filter (satisfies g) res - --- | --- pronounced \"slash\", meaning g inside f - -(/>) :: TFilter node -> TFilter node -> TFilter node -f /> g - = g `o` getChildren `o` f - --- | --- pronounced \"outside\" meaning f containing g - -(</) :: TFilter node -> TFilter node -> TFilter node -f </ g - = f `containing` (g `o` getChildren) - --- ------------------------------------------------------------ --- --- recursive search filters - --- | --- top down search. --- --- search terminates, when filter f succeeds --- can e.g. be used for finding all outermost tag node of a specific kind - -deep :: TFilter node -> TFilter node -deep f - = f `orElse` (deep f `o` getChildren) - --- | --- bottom up search. --- --- first the children are processed, --- if this does not succeed, the node itself is processed --- can e.g. be used for finding all innermost tag nodes of a specific kind - -deepest :: TFilter node -> TFilter node -deepest f - = (getChildren .> deepest f) `orElse` f - --- | --- process all nodes of the whole tree. --- --- can e.g. be used for finding all nodes of a specific kind - -multi :: TFilter node -> TFilter node -multi f - = f +++ (getChildren .> multi f) - --- ------------------------------------------------------------ --- --- recursive transformation filters --- - --- | --- bottom up transformation --- --- * 1.parameter f : the /simple/ transforming filter --- --- - returns : the filter that applies f to all subtrees and the tree itself in a deepth first left to right manner --- --- see also : 'processTopDown', 'processBottomUpIfNot' - -processBottomUp :: TFilter node -> TFilter node -processBottomUp f - = processChildren (processBottomUp f) .> f - --- | --- top down transformation --- --- * 1.parameter f : the /simple/ transforming filter --- --- - returns : the filter that applies f first to the tree and then recursively to all subtrees of the result --- --- see also : 'processBottomUp' - -processTopDown :: TFilter node -> TFilter node -processTopDown f - = f .> processChildren (processTopDown f) - --- | --- guarded bottom up transformation, stops at subtrees for which a predicate p holds --- --- * 1.parameter f : the transforming filter --- --- - 2.parameter p : the predicate filter for the guard --- --- - returns : the filter for processing all (sub-)trees --- --- see also : 'processBottomUp' - -processBottomUpIfNot :: TFilter node -> TFilter node -> TFilter node -processBottomUpIfNot f p - = (processChildren (processBottomUpIfNot f p) .> f) `whenNot` p - --- | --- top down transformation until a node to be transformed is found --- --- * 1.parameter f : the /simple/ transforming filter --- --- - returns : the filter that applies f first to the tree and, if the filter does not succeed, --- recursively to all children of the input tree. --- --- Example: --- --- @processTopDownUntil none@ --- --- is the identity filter (maybe a bit more inefficient). --- --- Example: --- --- @processTopDownUntil (add1Attr \"border\" \"2\" \`containing\` isTag \"table\")@ --- --- is a filter for adding an attribute border=\"2\" in all top level table tags. --- The content of table tags will remain unchanged. --- --- see also : 'processTopDown', 'processBottomUp' - -processTopDownUntil :: TFilter node -> TFilter node -processTopDownUntil f t - | null res - = processChildren (processTopDownUntil f) t - | otherwise - = res - where - res = f t - --- ------------------------------------------------------------ --- - --- | --- insertion of trees into the list of children at a given position --- --- useful for inserting something into the list of children at a given position --- the list of children is split with the @splitAt@ function --- the nodes are inserted between these two sublists. --- --- examples: @insertChildrenAt 0 ins t@ inserts all elements computed with @ins t@ in front --- of the childen of @t@, @insertChildrenAt 1 ins t@ behind the first child --- --- see also: 'insertChildrenAfter' - - -insertChildrenAt :: Int -> TFilter node -> TFilter node -insertChildrenAt i ins t - = replaceChildren (cl1 ++ ins t ++ cl2) t - where - (cl1, cl2) = splitAt i $ getChildren t - --- | --- insertion of trees into the list of children after specific elements --- --- useful for inserting something into the list of children of a node --- the list of children is split with the @span@ function and the filter p as predicate --- the nodes are inserted between these two sublists --- --- examples: @insertChildrenAfter none ins t@ inserts all elements computed with @ins t@ in front --- of the childen of @t@, @insertChildrenAfter this ins t@ appends the elements to the children --- --- see also: 'insertChildrenAt' - -insertChildrenAfter :: TFilter node -> TFilter node -> TFilter node -insertChildrenAfter p ins t - = replaceChildren (cl1 ++ ins t ++ cl2) t - where - (cl1, cl2) = span (not . null . p) $ getChildren t - --- ------------------------------------------------------------ --- --- monadic filter - --- | --- the monadic version of the identity filter this. --- --- see also : 'this' - -thisM :: Monad m => (a -> m [a]) -thisM = liftMf this - --- | --- the monadic version of the null filter none. --- --- see also : 'none' - -noneM :: Monad m => (a -> m [b]) -noneM = liftMf none - --- | --- sequential composition of monadic filters, monadic version of \".>\". --- --- * 1.parameter f1 : the 1. monadic filter --- --- - 2.parameter f2 : the 2. monadic filter --- --- - returns : the monadic fiter applying first f1 to n and then f2 to the result (like function composition) --- --- see also : '(.>)' - -(.>>) :: Monad m => (a -> m[b]) -> (b -> m [c]) -> (a -> m[c]) -cmd1 .>> cmd2 - = \ t -> - do - r1 <- cmd1 t - r2 <- mapM cmd2 r1 - return (concat r2) - --- | --- generalized sequential composition of monadic filters - -seqM :: Monad m => [a -> m[a]] -> (a -> m[a]) -seqM - = foldr (.>>) thisM - --- | --- binary parallel composition, the logical OR for predicate filter --- --- * 1.parameter f1 : the 1. filter --- --- - 2.parameter f2 : the 2. filter --- --- - returns : the filter for applying f1 and f2 both to an argument tree and concatenating the results --- see also: 'cat', '+++', 'catM' - -(+++>>) :: Monad m => (a -> m [b]) -> (a -> m [b]) -> (a -> m [b]) -f +++>> g = \ t -> do - r1 <- f t - r2 <- g t - return (r1 ++ r2) - --- | --- apply a list of monadic filters --- --- * 1.parameter fs : the list of filters --- --- - returns : the composing filter --- see also: 'cat', '+++', '+++>>' - -catM :: Monad m => [a -> m [b]] -> (a -> m [b]) -catM fs t - = do - res <- sequence (map ($ t) fs) - return $ concat res - --- | --- monadic if-then-else. --- --- * 1.parameter p : the predicate --- --- - 2.parameter thenP : the then part: the monadic filter, that is applied if p holds for the input tree --- --- - 3.parameter elseP : the else part --- --- - returns : the monadic filter for the conditional - -ifM :: Monad m => (a -> [b]) -> (a -> m [c]) -> (a -> m [c]) -> (a -> m [c]) -ifM p thenPart elsePart - = \ t -> - if (satisfies p) t - then thenPart t - else elsePart t - --- | --- monadic version of multiway branch. The list of cases @f :-> g@ is processed sequentially, --- in the first case for that f holds g is applied, if no case matches, 'noneM' is --- applied. --- This filter can be used like a case expression: @choiceM [ p1 :-> f1, p2 :-> f2, ... , thisM :-> defaultFilter]@ --- --- see also : 'choice', 'ifM' - -choiceM :: Monad m => [IfThen (a -> [c]) (a -> m [b])] -> (a -> m [b]) -choiceM [] - = noneM - -choiceM ((g :-> f) : cs) - = ifM g f (choiceM cs) - - --- | --- when the predicate p holds, the monadic filter f is applied, else the identity filter. --- --- * 1.parameter f : the conditinally applied monadic filter --- --- - 2.parameter p : the simple predicate --- --- - returns : the conditional filter --- --- see also : 'ifM', 'when', 'guardsM', 'whenNotM' - -whenM :: Monad m => (a -> m [a]) -> (a -> [b]) -> (a -> m [a]) -f `whenM` g = ifM g f thisM - --- | --- the complementary filter of whenM. --- --- see also : 'ifM', 'whenM', 'whenNot' - -whenNotM :: Monad m => (a -> m [a]) -> (a -> [b]) -> (a -> m [a]) -f `whenNotM` g = ifM g thisM f - --- | --- when the predicate p holds, the monadic filter f is applied, else the null filter. --- --- * 1.parameter p : the simple predicate filter --- --- - 2.parameter f : the conditionally applied monadic filter --- --- - returns : the conditional filter --- --- see also : 'ifM', 'guards', 'whenM' - -guardsM :: Monad m => (a -> [b]) -> (a -> m [c]) -> (a -> m [c]) -g `guardsM` f = ifM g f noneM - --- | --- Filter for editing the children of a tree with a monadic filter --- --- * 1.parameter cf : the monadic filter applied to the children --- --- - returns : the monadic editing filter --- --- see also : 'processChildren' - -processChildrenM :: Monad m => (NTree node -> m [NTree node]) -> (NTree node -> m [NTree node]) -processChildrenM ft (NTree n cs) - = do - res <- ft $$< cs - return [NTree n res] - --- | --- monadic variant of 'processTopDown' - -processTopDownM :: Monad m => (NTree node -> m [NTree node]) -> (NTree node -> m [NTree node]) -processTopDownM f - = f .>> processChildrenM (processTopDownM f) - --- | --- monadic variant of 'processBottomUp' - -processBottomUpM :: Monad m => (NTree node -> m [NTree node]) -> (NTree node -> m [NTree node]) -processBottomUpM f - = processChildrenM (processBottomUpM f) .>> f - --- | --- infix operator for applying a monadic filter to a list of trees, --- typically used in do-notation for processing of intermediate results. --- --- * 1.parameter f : the monadic filter --- --- - 2.parameter ts : the list of trees --- --- - returns : the concatenated list of results --- --- see also : '($$)' - -($$<) :: Monad m => (a -> m [b]) -> [a] -> m [b] -cmd $$< l - = do - r <- mapM cmd l - return (concat r) - --- | --- lift a filter to a monadic filter --- --- * 1.parameter f : the /simple/ filter --- --- - returns : the lifted monadic version - -liftMf :: Monad m => (a -> [b]) -> a -> m [b] -liftMf f t - = return (f t) - --- | --- run an arbitray command on a tree t and return the tree, --- used for inserting arbitray commands in a filter pipeline --- --- * 1.parameter cmd : the command --- --- - 2.parameter t : the argument tree --- --- - returns : the unchanged tree as a single element list - -performAction :: Monad m => (a -> m b) -> a -> m [a] -performAction cmd t - = do - cmd t - return [t] - --- eof ------------------------------------------------------------ diff --git a/src/Data/Tree/NTree/TypeDefs.hs b/src/Data/Tree/NTree/TypeDefs.hs --- a/src/Data/Tree/NTree/TypeDefs.hs +++ b/src/Data/Tree/NTree/TypeDefs.hs @@ -2,7 +2,7 @@ {- | Module : Data.Tree.NTree.TypeDefs - Copyright : Copyright (C) 2005 Uwe Schmidt + Copyright : Copyright (C) 2005-2008 Uwe Schmidt License : MIT Maintainer : Uwe Schmidt (uwe\@fh-wedel.de) diff --git a/src/Makefile b/src/Makefile --- a/src/Makefile +++ b/src/Makefile @@ -69,7 +69,6 @@ Data/Char/UTF8.hs \ Data/NavTree.hs \ Data/Tree/Class.hs \ - Data/Tree/NTree/Filter.hs \ Data/Tree/NTree/TypeDefs.hs \ Text/XML/HXT/Arrow/DocumentInput.hs \ Text/XML/HXT/Arrow/DocumentOutput.hs \ @@ -96,7 +95,6 @@ Text/XML/HXT/DOM/IsoLatinTables.hs \ Text/XML/HXT/DOM/MimeTypeDefaults.hs \ Text/XML/HXT/DOM/MimeTypes.hs \ - Text/XML/HXT/DOM/NamespacePredicates.hs \ Text/XML/HXT/DOM/QualifiedName.hs \ Text/XML/HXT/DOM/ShowXml.hs \ Text/XML/HXT/DOM/TypeDefs.hs \ @@ -106,7 +104,6 @@ Text/XML/HXT/DOM/XmlKeywords.hs \ Text/XML/HXT/DOM/XmlNode.hs \ Text/XML/HXT/DOM/XmlOptions.hs \ - Text/XML/HXT/DOM/XmlTreeTypes.hs \ Text/XML/HXT/DTDValidation/AttributeValueValidation.hs \ Text/XML/HXT/DTDValidation/DocTransformation.hs \ Text/XML/HXT/DTDValidation/DocValidation.hs \ diff --git a/src/Text/XML/HXT/Arrow/DocumentInput.hs b/src/Text/XML/HXT/Arrow/DocumentInput.hs --- a/src/Text/XML/HXT/Arrow/DocumentInput.hs +++ b/src/Text/XML/HXT/Arrow/DocumentInput.hs @@ -113,11 +113,20 @@ getFileContents :: IOStateArrow s XmlTree XmlTree getFileContents - = applyA ( getAttrValue transferURI + = applyA ( ( ( getAttrValue a_strict_input + >>> + arr isTrueValue + ) + &&& + ( getAttrValue transferURI + >>> + getPathFromURI + ) + ) >>> - getPathFromURI + traceValue 2 (\ (b, f) -> "read file " ++ show f ++ " (strict input = " ++ show b ++ ")") >>> - arrIO FILE.getCont + arrIO (uncurry FILE.getCont) >>> ( arr addError -- io error occured ||| @@ -129,7 +138,11 @@ getStdinContents :: IOStateArrow s XmlTree XmlTree getStdinContents - = applyA ( arrIO (\ _ -> FILE.getStdinCont) + = applyA ( getAttrValue a_strict_input + >>> + arr isTrueValue + >>> + arrIO FILE.getStdinCont >>> ( arr addError -- io error occured ||| @@ -267,7 +280,7 @@ getCont = applyA ( getBaseURI -- compute the handler and call it >>> - traceString 2 (("getURIContents: reading " ++) . show) + traceValue 2 (("getURIContents: reading " ++) . show) >>> getSchemeFromURI >>> @@ -338,7 +351,7 @@ >>> perform ( getAttrValue transferURI >>> - traceString 1 (("getXmlContents: content read and decoded for " ++) . show) + traceValue 1 (("getXmlContents: content read and decoded for " ++) . show) ) >>> traceTree diff --git a/src/Text/XML/HXT/Arrow/DocumentOutput.hs b/src/Text/XML/HXT/Arrow/DocumentOutput.hs --- a/src/Text/XML/HXT/Arrow/DocumentOutput.hs +++ b/src/Text/XML/HXT/Arrow/DocumentOutput.hs @@ -1,7 +1,19 @@ --- | --- state arrows for document output --- --- version: $Id: DocumentOutput.hs,v 1.7 2006/11/02 09:34:08 hxml Exp $ +-- ------------------------------------------------------------ + +{- | + Module : Text.XML.HXT.Arrow.DocumentOutput + Copyright : Copyright (C) 2005-9 Uwe Schmidt + License : MIT + + Maintainer : Uwe Schmidt (uwe@fh-wedel.de) + Stability : experimental + Portability: portable + + State arrows for document output + +-} + +-- ------------------------------------------------------------ module Text.XML.HXT.Arrow.DocumentOutput ( module Text.XML.HXT.Arrow.DocumentOutput ) diff --git a/src/Text/XML/HXT/Arrow/Edit.hs b/src/Text/XML/HXT/Arrow/Edit.hs --- a/src/Text/XML/HXT/Arrow/Edit.hs +++ b/src/Text/XML/HXT/Arrow/Edit.hs @@ -2,7 +2,7 @@ {- | Module : Text.XML.HXT.Arrow.Edit - Copyright : Copyright (C) 2006 Uwe Schmidt + Copyright : Copyright (C) 2006-9 Uwe Schmidt License : MIT Maintainer : Uwe Schmidt (uwe@fh-wedel.de) @@ -33,6 +33,7 @@ , indentDoc , numberLinesInXmlDoc + , preventEmptyElements , removeComment , removeAllComment @@ -56,35 +57,23 @@ ) where -import Control.Arrow -import Control.Arrow.ArrowList -import Control.Arrow.ArrowIf -import Control.Arrow.ArrowTree - -import Control.Arrow.ListArrow - -import Text.XML.HXT.Arrow.XmlArrow - -import Text.XML.HXT.DOM.Interface - -import qualified - Text.XML.HXT.DOM.XmlNode as XN - -import Text.XML.HXT.DOM.Unicode - ( isXmlSpaceChar ) - -import Text.XML.HXT.DOM.FormatXmlTree - ( formatXmlTree ) - -import Text.XML.HXT.Parser.XmlEntities - ( xmlEntities ) - -import Text.XML.HXT.Parser.XhtmlEntities - ( xhtmlEntities ) +import Control.Arrow +import Control.Arrow.ArrowList +import Control.Arrow.ArrowIf +import Control.Arrow.ArrowTree +import Control.Arrow.ListArrow -import Data.Maybe +import Text.XML.HXT.Arrow.XmlArrow +import Text.XML.HXT.DOM.Interface +import qualified Text.XML.HXT.DOM.XmlNode as XN +import Text.XML.HXT.DOM.Unicode ( isXmlSpaceChar ) +import Text.XML.HXT.DOM.FormatXmlTree ( formatXmlTree ) +import Text.XML.HXT.Parser.HtmlParsec ( emptyHtmlTags ) +import Text.XML.HXT.Parser.XmlEntities ( xmlEntities ) +import Text.XML.HXT.Parser.XhtmlEntities ( xhtmlEntities ) -import qualified Data.Map as M +import qualified Data.Map as M +import Data.Maybe -- ------------------------------------------------------------ @@ -304,6 +293,8 @@ escapeHtmlEntityRef :: Char -> XmlTree escapeHtmlEntityRef = escapeEntityRef xhtmlEntityRefTable +-- ------------------------------------------------------------ + -- | -- escape all special XML chars into XML entity references or char references -- @@ -328,6 +319,8 @@ -- in attribute values also \', \", \>, \\n, \\r and \\t are converted into entity or char references, -- in comments nothing is converted +-- ------------------------------------------------------------ + escapeHtmlDoc :: ArrowList a => a XmlTree XmlTree escapeHtmlDoc = fromLA $ escapeDoc escHtmlText escHtmlAttrValue @@ -342,6 +335,8 @@ isHtmlAttrEsc c = c >= toEnum(128) || ( c `elem` "<>\"\'&\n\r\t" ) +-- ------------------------------------------------------------ + escapeDoc :: LA XmlTree XmlTree -> LA XmlTree XmlTree -> LA XmlTree XmlTree escapeDoc escText escAttr = escape @@ -359,6 +354,28 @@ ] escVal = processChildren escAttr escDTD = escVal `when` ( isDTDEntity <+> isDTDPEntity ) + +-- ------------------------------------------------------------ + +preventEmptyElements :: ArrowList a => Bool -> a XmlTree XmlTree +preventEmptyElements isHtml + = fromLA $ insertDummyElem + where + isNoneEmpty + | isHtml = hasNameWith (localPart >>> (`notElem` emptyHtmlTags)) + | otherwise = this + + insertDummyElem + = processBottomUp + ( replaceChildren (txt "") + `when` + ( isElem + >>> + isNoneEmpty + >>> + neg getChildren + ) + ) -- ------------------------------------------------------------ diff --git a/src/Text/XML/HXT/Arrow/GeneralEntitySubstitution.hs b/src/Text/XML/HXT/Arrow/GeneralEntitySubstitution.hs --- a/src/Text/XML/HXT/Arrow/GeneralEntitySubstitution.hs +++ b/src/Text/XML/HXT/Arrow/GeneralEntitySubstitution.hs @@ -132,7 +132,7 @@ addInternalEntity = ( ( getDTDAttrValue a_name >>> - traceString 2 (("processGeneralEntity: general entity definition for " ++) . show) + traceValue 2 (("processGeneralEntity: general entity definition for " ++) . show) ) &&& xshow (getChildren >>> isText) @@ -160,7 +160,7 @@ addExternalEntity = ( ( getDTDAttrValue a_name >>> - traceString 2 (("processGeneralEntity: external entity definition for " ++) . show) + traceValue 2 (("processGeneralEntity: external entity definition for " ++) . show) ) &&& getDTDAttrValue a_url -- the absolute URL, not the relative in attr: k_system @@ -174,7 +174,7 @@ addUnparsedEntity = getDTDAttrValue a_name >>> - traceString 2 (("processGeneralEntity: unparsed entity definition for " ++) . show) + traceValue 2 (("processGeneralEntity: unparsed entity definition for " ++) . show) >>> applyA (arr (insertEntity substUnparsed)) >>> @@ -236,7 +236,7 @@ substEntityRef = applyA ( ( ( getEntityRef -- get the entity name and the env >>> -- and compute the arrow to be applied - traceString 2 (("processGeneralEntity: entity reference for entity " ++) . show) + traceValue 2 (("processGeneralEntity: entity reference for entity " ++) . show) >>> traceMsg 3 ("recursion list = " ++ show recl) ) diff --git a/src/Text/XML/HXT/Arrow/Namespace.hs b/src/Text/XML/HXT/Arrow/Namespace.hs --- a/src/Text/XML/HXT/Arrow/Namespace.hs +++ b/src/Text/XML/HXT/Arrow/Namespace.hs @@ -2,13 +2,12 @@ {- | Module : Text.XML.HXT.Arrow.Namespace - Copyright : Copyright (C) 2005 Uwe Schmidt + Copyright : Copyright (C) 2005-2008 Uwe Schmidt License : MIT Maintainer : Uwe Schmidt (uwe@fh-wedel.de) Stability : experimental Portability: portable - Version : $Id: Namespace.hs,v 1.13 2006/11/12 14:52:59 hxml Exp $ namespace specific arrows @@ -41,13 +40,10 @@ import Text.XML.HXT.DOM.Interface import Text.XML.HXT.Arrow.XmlArrow -import Data.Maybe - ( isNothing - , fromJust - ) - -import Data.List - ( nub ) +import Data.Maybe ( isNothing + , fromJust + ) +import Data.List ( nub ) -- ------------------------------------------------------------ @@ -56,14 +52,7 @@ isNamespaceDeclAttr :: ArrowXml a => a XmlTree XmlTree isNamespaceDeclAttr = fromLA $ - (getAttrName >>> isA isNsQName) `guards` this - where - isNsQName n - = px == a_xmlns - && - (null lp || (not . null . tail $ lp)) - where - (px, lp) = span (/= ':') . qualifiedName $ n + (getAttrName >>> isA isNameSpaceName) `guards` this -- | get the namespace prefix and the namespace URI out of -- an attribute tree with a namespace declaration (see 'isNamespaceDeclAttr') @@ -145,7 +134,7 @@ cleanupNamespaces :: LA XmlTree (String, String) -> LA XmlTree XmlTree cleanupNamespaces collectNamespaces - = renameNamespaces $< (listA collectNamespaces >>^ nub) + = renameNamespaces $< (listA collectNamespaces >>^ (toNsEnv >>> nub)) where renameNamespaces :: NsEnv -> LA XmlTree XmlTree renameNamespaces env @@ -163,11 +152,11 @@ where renamePrefix :: QName -> QName renamePrefix n - | null uri = n + | isNullXName uri = n | isNothing newPx = n - | otherwise = n {namePrefix = fromJust newPx} + | otherwise = setNamePrefix' (fromJust newPx) n where - uri = namespaceUri n + uri = namespaceUri' n newPx = lookup uri revEnv1 revEnv1 = map (\ (x, y) -> (y, x)) env1 @@ -175,13 +164,13 @@ env1 :: NsEnv env1 = newEnv [] uris - uris :: [String] + uris :: [XName] uris = nub . map snd $ env - genPrefixes :: [String] - genPrefixes = map (("ns" ++) . show) [(0::Int)..] + genPrefixes :: [XName] + genPrefixes = map (newXName . ("ns" ++) . show) [(0::Int)..] - newEnv :: NsEnv -> [String] -> NsEnv + newEnv :: NsEnv -> [XName] -> NsEnv newEnv env' [] = env' @@ -225,7 +214,7 @@ extendEnv :: NsEnv -> XmlTree -> NsEnv extendEnv env' t' - = addEntries newDecls env' + = addEntries (toNsEnv newDecls) env' where newDecls = runLA ( getAttrl >>> getNamespaceDecl ) t' @@ -270,12 +259,13 @@ nsAttrl :: [LA XmlTree XmlTree] nsAttrl = map nsDeclToAttr env - nsDeclToAttr :: (String, String) -> LA XmlTree XmlTree + nsDeclToAttr :: (XName, XName) -> LA XmlTree XmlTree nsDeclToAttr (n, uri) - = mkAttr qn (txt uri) + = mkAttr qn (txt (show uri)) where qn :: QName - qn = mkNsName (a_xmlns ++ (if null n then "" else ':' : n)) xmlnsNamespace + qn | isNullXName n = mkQName' nullXName xmlnsXName xmlnsNamespaceXName + | otherwise = mkQName' xmlnsXName n xmlnsNamespaceXName -- ----------------------------------------------------------------------------- @@ -288,7 +278,10 @@ -- The arrow may be applied repeatedly if neccessary. propagateNamespaces :: ArrowXml a => a XmlTree XmlTree -propagateNamespaces = fromLA $ propagateNamespaceEnv [ (a_xml, xmlNamespace), (a_xmlns, xmlnsNamespace) ] +propagateNamespaces = fromLA $ + propagateNamespaceEnv [ (xmlXName, xmlNamespaceXName) + , (xmlnsXName, xmlnsNamespaceXName) + ] -- | -- attaches the namespace info given by the namespace table @@ -308,7 +301,7 @@ attachNamespaceUriToAttr :: NsEnv -> LA XmlTree XmlTree attachNamespaceUriToAttr attrEnv - = ( ( getName >>> isA hasPrefixLocalPart ) + = ( ( getQName >>> isA (not . null . namePrefix) ) `guards` changeAttrName (setNamespace attrEnv) ) @@ -317,16 +310,6 @@ `when` hasName a_xmlns ) - where - hasPrefixLocalPart :: String -> Bool - hasPrefixLocalPart s - = ( ':' `elem` s ) -- small optimization: only do some string handling when is ':' found - && - ( let -- check none empty prefix and local part - (px, lp) = span (/= ':') s - in - not (null px) && not (null (drop 1 lp)) - ) -- ----------------------------------------------------------------------------- @@ -334,7 +317,7 @@ -- validate the namespace constraints in a whole tree. -- -- Result is the list of errors concerning namespaces. --- Predicates 'isWellformedQName', 'isWellformedQualifiedName', 'isDeclaredNamespaces' +-- Predicates 'isWellformedQName', 'isWellformedQualifiedName', 'isDeclaredNamespace' -- and 'isWellformedNSDecl' are applied to the appropriate elements and attributes. validateNamespaces :: ArrowXml a => a XmlTree XmlTree @@ -420,7 +403,7 @@ where nsError :: (String -> String) -> LA XmlTree XmlTree nsError msg - = getName >>> nsErr msg + = (getQName >>> arr show) >>> nsErr msg nsErr :: (String -> String) -> LA String XmlTree nsErr msg = arr msg >>> mkError c_err diff --git a/src/Text/XML/HXT/Arrow/Pickle/Xml.hs b/src/Text/XML/HXT/Arrow/Pickle/Xml.hs --- a/src/Text/XML/HXT/Arrow/Pickle/Xml.hs +++ b/src/Text/XML/HXT/Arrow/Pickle/Xml.hs @@ -2,35 +2,34 @@ {- | Module : Text.XML.HXT.Arrow.Pickle.Xml - Copyright : Copyright (C) 2005 Uwe Schmidt + Copyright : Copyright (C) 2005-2008 Uwe Schmidt License : MIT Maintainer : Uwe Schmidt (uwe@fh-wedel.de) Stability : experimental Portability: portable - Version : $Id$ -Pickler functions for converting between user defined data types -and XmlTree data. Usefull for persistent storage and retreival -of arbitray data as XML documents + Pickler functions for converting between user defined data types + and XmlTree data. Usefull for persistent storage and retreival + of arbitray data as XML documents -This module is an adaptation of the pickler combinators -developed by Andrew Kennedy -( http:\/\/research.microsoft.com\/~akenn\/fun\/picklercombinators.pdf ) + This module is an adaptation of the pickler combinators + developed by Andrew Kennedy + ( http:\/\/research.microsoft.com\/~akenn\/fun\/picklercombinators.pdf ) -The difference to Kennedys approach is that the target is not -a list of Chars but a list of XmlTrees. The basic picklers will -convert data into XML text nodes. New are the picklers for -creating elements and attributes. + The difference to Kennedys approach is that the target is not + a list of Chars but a list of XmlTrees. The basic picklers will + convert data into XML text nodes. New are the picklers for + creating elements and attributes. -One extension was neccessary: The unpickling may fail. -Therefore the unpickler has a Maybe result type. -Failure is used to unpickle optional elements -(Maybe data) and lists of arbitray length + One extension was neccessary: The unpickling may fail. + Therefore the unpickler has a Maybe result type. + Failure is used to unpickle optional elements + (Maybe data) and lists of arbitray length -There is an example program demonstrating the use -of the picklers for a none trivial data structure. -(see \"examples\/arrows\/pickle\" directory) + There is an example program demonstrating the use + of the picklers for a none trivial data structure. + (see \"examples\/arrows\/pickle\" directory) -} @@ -77,12 +76,12 @@ dropCont :: St -> St dropCont s = s { contents = drop 1 (contents s) } -getAtt :: String -> St -> Maybe XmlTree -getAtt name s +getAtt :: QName -> St -> Maybe XmlTree +getAtt qn s = listToMaybe $ runLA ( arrL attributes >>> - isAttr >>> hasName name + isAttr >>> hasQName qn ) s getCont :: St -> Maybe XmlTree @@ -494,41 +493,48 @@ -- | Pickler for wrapping\/unwrapping data into an XML element -- --- Extra parameter is the element name. THE pickler for constructing +-- Extra parameter is the element name given as a QName. THE pickler for constructing -- nested structures -- -- Example: -- --- > xpElem "number" $ xpickle +-- > xpElemQN (mkName "number") $ xpickle -- -- will map an (42::Int) onto -- -- > <number>42</number> -xpElem :: String -> PU a -> PU a -xpElem name pa +xpElemQN :: QName -> PU a -> PU a +xpElemQN qn pa = PU { appPickle = ( \ (a, st) -> let st' = appPickle pa (a, emptySt) in - addCont (XN.mkElement (mkName name) (attributes st') (contents st')) st + addCont (XN.mkElement qn (attributes st') (contents st')) st ) , appUnPickle = \ st -> fromMaybe (Nothing, st) (unpickleElement st) - , theSchema = scElem name (theSchema pa) + , theSchema = scElem (qualifiedName qn) (theSchema pa) } where unpickleElement st = do t <- getCont st n <- XN.getElemName t - if qualifiedName n /= name - then fail "element name does not match" + if n /= qn + then fail ("element name " ++ show n ++ " does not match" ++ show qn) else do let cs = XN.getChildren t al <- XN.getAttrl t res <- fst . appUnPickle pa $ St {attributes = al, contents = cs} return (Just res, dropCont st) +-- | convenient Pickler for xpElemQN +-- +-- > xpElem n = xpElemQN (mkName n) + +xpElem :: String -> PU a -> PU a +xpElem = xpElemQN . mkName + -- ------------------------------------------------------------ -- | Pickler for wrapping\/unwrapping data into an XML element with an attribute with given value @@ -590,25 +596,32 @@ -- -- The attribute is inserted in the surrounding element constructed by the 'xpElem' pickler -xpAttr :: String -> PU a -> PU a -xpAttr name pa +xpAttrQN :: QName -> PU a -> PU a +xpAttrQN qn pa = PU { appPickle = ( \ (a, st) -> let st' = appPickle pa (a, emptySt) in - addAtt (XN.mkAttr (mkName name) (contents st')) st + addAtt (XN.mkAttr qn (contents st')) st ) , appUnPickle = \ st -> fromMaybe (Nothing, st) (unpickleAttr st) - , theSchema = scAttr name (theSchema pa) + , theSchema = scAttr (qualifiedName qn) (theSchema pa) } where unpickleAttr st = do - a <- getAtt name st + a <- getAtt qn st let av = XN.getChildren a res <- fst . appUnPickle pa $ St {attributes = [], contents = av} return (Just res, st) -- attribute is not removed from attribute list, -- attributes are selected by name + +-- | convenient Pickler for xpAttrQN +-- +-- > xpAttr n = xpAttrQN (mkName n) + +xpAttr :: String -> PU a -> PU a +xpAttr = xpAttrQN . mkName -- | Add an optional attribute for an optional value (Maybe a). diff --git a/src/Text/XML/HXT/Arrow/ProcessDocument.hs b/src/Text/XML/HXT/Arrow/ProcessDocument.hs --- a/src/Text/XML/HXT/Arrow/ProcessDocument.hs +++ b/src/Text/XML/HXT/Arrow/ProcessDocument.hs @@ -10,9 +10,9 @@ Portability: portable Version : $Id: ProcessDocument.hs,v 1.3 2006/08/30 16:20:52 hxml Exp $ -Compound arrows for reading, parsing, validating and writing XML documents + Compound arrows for reading, parsing, validating and writing XML documents -All arrows use IO and a global state for options, errorhandling, ... + All arrows use IO and a global state for options, errorhandling, ... -} -- ------------------------------------------------------------ @@ -131,7 +131,7 @@ parseHtmlDocument :: Bool -> Bool -> Bool -> Bool -> Bool -> Bool -> IOStateArrow s XmlTree XmlTree parseHtmlDocument withTagSoup withNamespaces warnings preserveCmt removeWhitespace asHtml - = ( perform ( getAttrValue a_source >>> traceString 1 (("parseHtmlDoc: parse HTML document " ++) . show) ) + = ( perform ( getAttrValue a_source >>> traceValue 1 (("parseHtmlDoc: parse HTML document " ++) . show) ) >>> replaceChildren ( ( getAttrValue a_source -- get source name &&& @@ -151,7 +151,7 @@ >>> perform ( getAttrValue a_source >>> - traceString 1 (\ src -> "parse HTML document " ++ show src ++ " finished") + traceValue 1 (\ src -> "parse HTML document " ++ show src ++ " finished") ) ) `when` documentStatusOk diff --git a/src/Text/XML/HXT/Arrow/ReadDocument.hs b/src/Text/XML/HXT/Arrow/ReadDocument.hs --- a/src/Text/XML/HXT/Arrow/ReadDocument.hs +++ b/src/Text/XML/HXT/Arrow/ReadDocument.hs @@ -109,6 +109,10 @@ - 'a_use_curl' : obsolete and ignored, HTTP acccess is always done with curl bindings for libcurl +- 'a_strict_input' : file input is done strictly using the 'Data.ByteString' input functions. This ensures correct closing of files, especially when working with + the tagsoup parser and not processing the whole input data. Default is off. The @ByteString@ input usually is not faster than the buildin @hGetContents@ + for strings. + - 'a_options_curl' : deprecated but for compatibility reasons still supported. More options passed to the curl binding. Instead of using this option to set a whole bunch of options at once for curl @@ -147,11 +151,12 @@ > ] "" reads a HTML document from standard input, no validation is done when parsing HTML, default encoding is 'isoLatin1', -parsing is done with tagsoup parser +parsing is done with tagsoup parser, but input is read strictly > readDocument [ (a_encoding, isoLatin1) > , (a_mime_type, "/etc/mime.types") -> , (a_tagsoup, "1") +> , (a_tagsoup, "1") +> , (a_strict_input, "1") > ] "test.svg" reads an SVG document from standard input, sets the mime type by looking in the system mimetype config file, default encoding is 'isoLatin1', @@ -198,6 +203,7 @@ defaultOptions = [ ( a_parse_html, v_0 ) , ( a_tagsoup, v_0 ) + , ( a_strict_input, v_0 ) , ( a_validate, v_1 ) , ( a_issue_warnings, v_1 ) , ( a_check_namespaces, v_0 ) diff --git a/src/Text/XML/HXT/Arrow/WriteDocument.hs b/src/Text/XML/HXT/Arrow/WriteDocument.hs --- a/src/Text/XML/HXT/Arrow/WriteDocument.hs +++ b/src/Text/XML/HXT/Arrow/WriteDocument.hs @@ -2,15 +2,14 @@ {- | Module : Text.XML.HXT.Arrow.WriteDocument - Copyright : Copyright (C) 2005 Uwe Schmidt + Copyright : Copyright (C) 2005-9 Uwe Schmidt License : MIT Maintainer : Uwe Schmidt (uwe@fh-wedel.de) Stability : experimental Portability: portable - Version : $Id: WriteDocument.hs,v 1.8 2006/11/09 20:27:42 hxml Exp $ -Compound arrow for writing XML documents + Compound arrow for writing XML documents -} @@ -32,19 +31,18 @@ import Text.XML.HXT.Arrow.XmlArrow import Text.XML.HXT.Arrow.XmlIOStateArrow -import Text.XML.HXT.Arrow.Edit - ( indentDoc - , removeDocWhiteSpace - , treeRepOfXmlDoc - , haskellRepOfXmlDoc - , escapeXmlDoc - , escapeHtmlDoc - ) +import Text.XML.HXT.Arrow.Edit ( escapeHtmlDoc + , escapeXmlDoc + , haskellRepOfXmlDoc + , indentDoc + , preventEmptyElements + , removeDocWhiteSpace + , treeRepOfXmlDoc + ) -import Text.XML.HXT.Arrow.DocumentOutput - ( putXmlDocument - , encodeDocument - ) +import Text.XML.HXT.Arrow.DocumentOutput ( putXmlDocument + , encodeDocument + ) -- ------------------------------------------------------------ @@ -73,6 +71,11 @@ - 'a_output_html' : issue XHTML: quote alle XML chars, use HTML entity refs or char refs for none ASCII chars +- 'a_no_empty_elements' : do not write the short form \<name .../\> for empty elements. When 'a_output_html' is set, + the always empty HTML elements are still written in short form, but not the others, as e.g. the script element. + Empty script elements, like \<script href=\"...\"/\>, are always a problem for firefox and others. + When XML output is generated with this option, all empty elements are written in the long form. + - 'a_no_xml_pi' : suppress generation of \<?xml ... ?\> processing instruction - 'a_show_tree' : show tree representation of document (for debugging) @@ -158,6 +161,9 @@ >>> format where + formatEmptyElems + | hasOption a_no_empty_elements = preventEmptyElements + | otherwise = const this indent | hasOption a_indent = indentDoc -- document indentation | hasOption a_remove_whitespace = removeDocWhiteSpace -- remove all whitespace between tags @@ -166,12 +172,16 @@ format | hasOption a_show_tree = treeRepOfXmlDoc | hasOption a_show_haskell = haskellRepOfXmlDoc - | hasOption a_output_html = escapeHtmlDoc -- escape al XML and HTML chars >= 128 + | hasOption a_output_html = formatEmptyElems True >>> + escapeHtmlDoc -- escape al XML and HTML chars >= 128 + >>> encodeDocument -- convert doc into text with respect to output encoding with ASCII as default suppressXmlPi ( lookupDef usAscii a_output_encoding options ) - | hasOption a_output_xml = escapeXmlDoc -- escape lt, gt, amp, quot, + | hasOption a_output_xml = formatEmptyElems False >>> + escapeXmlDoc -- escape lt, gt, amp, quot, + >>> encodeDocument -- convert doc into text with respect to output encoding suppressXmlPi ( lookupDef "" a_output_encoding options ) | otherwise = this @@ -191,6 +201,7 @@ , ( a_show_haskell, v_0 ) , ( a_output_html, v_0 ) , ( a_no_xml_pi, v_0 ) + , ( a_no_empty_elements, v_0 ) ] -- ------------------------------------------------------------ diff --git a/src/Text/XML/HXT/Arrow/XPath.hs b/src/Text/XML/HXT/Arrow/XPath.hs --- a/src/Text/XML/HXT/Arrow/XPath.hs +++ b/src/Text/XML/HXT/Arrow/XPath.hs @@ -83,7 +83,7 @@ -- | Same as 'getXPathTreesInDoc' but with namespace environment for the XPath names -getXPathTreesInDocWithNsEnv :: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree +getXPathTreesInDocWithNsEnv :: ArrowXml a => Attributes -> String -> a XmlTree XmlTree getXPathTreesInDocWithNsEnv env query = canonicalizeForXPath >>> arrL (PT.getXPathSubTreesWithNsEnv env query) @@ -106,7 +106,7 @@ -- | Same as 'getXPathTrees' but with namespace environment for the XPath names -getXPathTreesWithNsEnv :: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree +getXPathTreesWithNsEnv :: ArrowXml a => Attributes -> String -> a XmlTree XmlTree getXPathTreesWithNsEnv env query = arrL (PT.getXPathSubTreesWithNsEnv env query) -- | Select a set of nodes via an XPath expression from an arbitray XML tree @@ -122,7 +122,7 @@ -- | Same as 'getXPathNodeSet' but with namespace environment for the XPath names -getXPathNodeSetWithNsEnv :: ArrowXml a => NsEnv -> String -> a XmlTree XmlNodeSet +getXPathNodeSetWithNsEnv :: ArrowXml a => Attributes -> String -> a XmlTree XmlNodeSet getXPathNodeSetWithNsEnv nsEnv query = arr (PT.getXPathNodeSetWithNsEnv nsEnv query) -- ------------------------------------------------------------ @@ -226,7 +226,7 @@ -- | Same as 'processXPathTrees' but with namespace environment for the XPath names -processXPathTreesWithNsEnv :: ArrowXml a => a XmlTree XmlTree -> NsEnv -> String -> a XmlTree XmlTree +processXPathTreesWithNsEnv :: ArrowXml a => a XmlTree XmlTree -> Attributes -> String -> a XmlTree XmlTree processXPathTreesWithNsEnv f nsEnv query = choiceA [ isRoot :-> processChildren pns diff --git a/src/Text/XML/HXT/Arrow/XPathSimple.hs b/src/Text/XML/HXT/Arrow/XPathSimple.hs --- a/src/Text/XML/HXT/Arrow/XPathSimple.hs +++ b/src/Text/XML/HXT/Arrow/XPathSimple.hs @@ -42,42 +42,37 @@ module Text.XML.HXT.Arrow.XPathSimple where +-- import qualified Debug.Trace as T + import Control.Monad import Control.Arrow.ListArrows import Data.Maybe -import Text.ParserCombinators.Parsec - ( runParser ) +import Text.ParserCombinators.Parsec ( runParser ) import Text.XML.HXT.DOM.Interface import Text.XML.HXT.Arrow.XmlArrow -import qualified Text.XML.HXT.Arrow.XPath as XP - ( getXPathTreesWithNsEnv - ) - -import Text.XML.HXT.Arrow.Edit - ( canonicalizeForXPath - ) - -import Text.XML.HXT.XPath.XPathDataTypes - ( XPNumber (..) - , Expr (..) - , Op (..) - , XPathNode (..) - , LocationPath (..) - , Path (..) - , XStep (..) - , AxisSpec (..) - , NodeTest (..) - , XPathValue (..) - ) +import qualified Text.XML.HXT.Arrow.XPath as XP ( getXPathTreesWithNsEnv + ) +import Text.XML.HXT.Arrow.Edit ( canonicalizeForXPath + ) -import Text.XML.HXT.XPath.XPathParser - ( parseXPath - , parseNumber - ) +import Text.XML.HXT.XPath.XPathDataTypes ( XPNumber (..) + , Expr (..) + , Op (..) + , XPathNode (..) + , LocationPath (..) + , Path (..) + , XStep (..) + , AxisSpec (..) + , NodeTest (..) + , XPathValue (..) + ) +import Text.XML.HXT.XPath.XPathParser ( parseXPath + , parseNumber + ) -- ---------------------------------------- @@ -90,7 +85,7 @@ -- | -- Same Functionality as 'Text.XML.HXT.Arrow.XPath.getXPathTreesInDocWithNsEnv' -getXPathTreesInDocWithNsEnv :: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree +getXPathTreesInDocWithNsEnv :: ArrowXml a => Attributes -> String -> a XmlTree XmlTree getXPathTreesInDocWithNsEnv env query = canonicalizeForXPath >>> tryGetXPath env query @@ -103,11 +98,11 @@ -- | -- Same Functionality as 'Text.XML.HXT.Arrow.XPath.getXPathTreesWithNsEnv' -getXPathTreesWithNsEnv :: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree +getXPathTreesWithNsEnv :: ArrowXml a => Attributes -> String -> a XmlTree XmlTree getXPathTreesWithNsEnv = tryGetXPath -tryGetXPath :: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree +tryGetXPath :: ArrowXml a => Attributes -> String -> a XmlTree XmlTree tryGetXPath env query = ( listA (getXPathTreesWithNsEnvSimple env query) &&& listA ( XP.getXPathTreesWithNsEnv env query) @@ -123,25 +118,26 @@ -- In case of a too complicated or illegal xpath expression an error -- node is returned, else the list of selected XML trees -getXPathTreesWithNsEnvSimple :: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree -getXPathTreesWithNsEnvSimple env s = fromLA $ getXP env s +getXPathTreesWithNsEnvSimple :: ArrowXml a => Attributes -> String -> a XmlTree XmlTree +getXPathTreesWithNsEnvSimple env s = fromLA $ getXP (toNsEnv env) s -- ---------------------------------------- -getXP :: NsEnv -> String -> LA XmlTree XmlTree -getXP env s = either (err - . - (("Syntax error in XPath expression " ++ show s ++ ": ") ++) +getXP :: NsEnv -> String -> LA XmlTree XmlTree +getXP env s = either ( err + . + (("Syntax error in XPath expression " ++ show s ++ ": ") ++) + . + show . show + ) (fromMaybe (err ( "XPath expression " ++ show s ++ + " too complicated for simple arrow evaluation" + ) + ) . compXPath + ) + -- . ( \ e -> T.trace (("getXP: xp = "++) . show $ e) e) . - show . show - ) (fromMaybe (err ( "XPath expression " ++ show s ++ - " too complicated for simple arrow evaluation" - ) - ) . compXPath - ) - . - runParser parseXPath env "" - $ s + runParser parseXPath env "" + $ s -- ---------------------------------------- diff --git a/src/Text/XML/HXT/Arrow/XmlArrow.hs b/src/Text/XML/HXT/Arrow/XmlArrow.hs --- a/src/Text/XML/HXT/Arrow/XmlArrow.hs +++ b/src/Text/XML/HXT/Arrow/XmlArrow.hs @@ -2,13 +2,12 @@ {- | Module : Text.XML.HXT.Arrow.XmlArrow - Copyright : Copyright (C) 2005 Uwe Schmidt + Copyright : Copyright (C) 2005-9 Uwe Schmidt License : MIT Maintainer : Uwe Schmidt (uwe@fh-wedel.de) Stability : experimental Portability: portable - Version : $Id: XmlArrow.hs,v 1.34 2006/11/02 16:43:39 hxml Exp $ Basic arrows for processing XML documents @@ -22,25 +21,26 @@ ( module Text.XML.HXT.Arrow.XmlArrow ) where -import Data.Maybe +import Control.Arrow -- classes +import Control.Arrow.ArrowList +import Control.Arrow.ArrowIf +import Control.Arrow.ArrowTree -import Control.Arrow -- classes -import Control.Arrow.ArrowList -import Control.Arrow.ArrowIf -import Control.Arrow.ArrowTree +import Control.Arrow.ListArrow -- arrow types +import Control.Arrow.StateListArrow +import Control.Arrow.IOListArrow +import Control.Arrow.IOStateListArrow -import Control.Arrow.ListArrow -- arrow types -import Control.Arrow.StateListArrow -import Control.Arrow.IOListArrow -import Control.Arrow.IOStateListArrow +import Data.Maybe import Text.XML.HXT.DOM.Interface -import Text.XML.HXT.DOM.Unicode - ( isXmlSpaceChar - ) +import Text.XML.HXT.DOM.Unicode ( isXmlSpaceChar + ) import qualified Text.XML.HXT.DOM.XmlNode as XN import qualified Text.XML.HXT.DOM.ShowXml as XS +-- ------------------------------------------------------------ + {- | Arrows for processing 'Text.XML.HXT.DOM.TypeDefs.XmlTree's These arrows can be grouped into predicates, selectors, constructors, and transformers. @@ -237,21 +237,21 @@ mkqelem :: QName -> [a n XmlTree] -> [a n XmlTree] -> a n XmlTree mkqelem n afs cfs = mkElement n (catA afs) (catA cfs) - -- | convenient arrow for element construction with strings instead of qualified names as tagnames, see also 'mkElement' and 'mkelem' + -- | convenient arrow for element construction with strings instead of qualified names as element names, see also 'mkElement' and 'mkelem' mkelem :: String -> [a n XmlTree] -> [a n XmlTree] -> a n XmlTree - mkelem n afs cfs = mkElement (mkSNsName n) (catA afs) (catA cfs) + mkelem n afs cfs = mkElement (mkName n) (catA afs) (catA cfs) -- | convenient arrow for element constrution with attributes but without content, simple variant of 'mkelem' and 'mkElement' aelem :: String -> [a n XmlTree] -> a n XmlTree - aelem n afs = catA afs >. \ al -> XN.mkElement (mkSNsName n) al [] + aelem n afs = catA afs >. \ al -> XN.mkElement (mkName n) al [] -- | convenient arrow for simple element constrution without attributes, simple variant of 'mkelem' and 'mkElement' selem :: String -> [a n XmlTree] -> a n XmlTree - selem n cfs = catA cfs >. XN.mkElement (mkSNsName n) [] + selem n cfs = catA cfs >. XN.mkElement (mkName n) [] -- | convenient arrow for constrution of empty elements without attributes, simple variant of 'mkelem' and 'mkElement' eelem :: String -> a n XmlTree - eelem n = constA (XN.mkElement (mkSNsName n) [] []) + eelem n = constA (XN.mkElement (mkName n) [] []) -- | construction of an element node with name \"\/\" for document roots root :: [a n XmlTree] -> [a n XmlTree] -> a n XmlTree @@ -263,7 +263,7 @@ -- | convenient arrow for attribute constrution, simple variant of 'mkAttr' attr :: String -> a n XmlTree -> a n XmlTree - attr = mkAttr . mkSNsName + attr = mkAttr . mkName -- constant arrows (ignoring the input) for tree construction ------------------------------ @@ -297,7 +297,7 @@ -- | constant arrow for simple processing instructions, see 'mkPi' spi :: String -> String -> a n XmlTree - spi piName piCont = constA (XN.mkPi (mkSNsName piName) [XN.mkText piCont]) + spi piName piCont = constA (XN.mkPi (mkName piName) [XN.mkText piCont]) -- | constant arrow for attribute nodes, attribute name is a qualified name and value is a text, -- | see also 'mkAttr', 'qattr', 'attr' @@ -307,7 +307,7 @@ -- | constant arrow for attribute nodes, attribute name and value are -- | given by parameters, see 'mkAttr' sattr :: String -> String -> a n XmlTree - sattr an av = constA (XN.mkAttr (mkSNsName an) [XN.mkText av]) + sattr an av = constA (XN.mkAttr (mkName an) [XN.mkText av]) -- selector arrows -------------------------------------------------- diff --git a/src/Text/XML/HXT/Arrow/XmlIOStateArrow.hs b/src/Text/XML/HXT/Arrow/XmlIOStateArrow.hs --- a/src/Text/XML/HXT/Arrow/XmlIOStateArrow.hs +++ b/src/Text/XML/HXT/Arrow/XmlIOStateArrow.hs @@ -101,6 +101,7 @@ withTraceLevel, trace, traceMsg, + traceValue, traceString, traceSource, traceTree, @@ -633,7 +634,7 @@ setBaseURI = changeSysParam (\ b s -> s { xio_baseURI = b } ) >>> - traceString 2 (("setBaseURI: new base URI is " ++) . show) + traceValue 2 (("setBaseURI: new base URI is " ++) . show) -- | read the base URI from the globale state @@ -675,7 +676,7 @@ >>> changeSysParam (\ b s -> s { xio_defaultBaseURI = b } ) >>> - traceString 2 (("setDefaultBaseURI: new default base URI is " ++) . show) + traceValue 2 (("setDefaultBaseURI: new default base URI is " ++) . show) where getDir _ = do cwd <- getCurrentDirectory @@ -768,17 +769,25 @@ isA (>= level) ) --- | issue a string message as trace +-- | trace the current value transfered in a sequence of arrows. +-- +-- The value is formated by a string conversion function. This is a substitute for +-- the old and less general traceString function + +traceValue :: Int -> (b -> String) -> IOStateArrow s b b +traceValue level trc + = trace level (arr $ (('-' : "- (" ++ show level ++ ") ") ++) . trc) + +-- | an old alias for 'traceValue' + +traceString :: Int -> (b -> String) -> IOStateArrow s b b +traceString = traceValue + +-- | issue a string message as trace + traceMsg :: Int -> String -> IOStateArrow s b b traceMsg level msg - = perform ( trace level $ - constA ('-' : "- (" ++ show level ++ ") " ++ msg) - ) - --- | issue the string input of an arrow -traceString :: Int -> (String -> String) -> IOStateArrow s String String -traceString level f - = perform (applyA (arr f >>> arr (traceMsg level))) + = traceValue level (const msg) -- | issue the source representation of a document if trace level >= 3 -- @@ -832,7 +841,7 @@ applyA (arr formatParam) ) >>> - traceString 2 ("global state:\n" ++) + traceValue 2 ("global state:\n" ++) ) where -- formatParam :: (String, XmlTrees) -> IOStateArrow s b1 XmlTree diff --git a/src/Text/XML/HXT/DOM/Interface.hs b/src/Text/XML/HXT/DOM/Interface.hs --- a/src/Text/XML/HXT/DOM/Interface.hs +++ b/src/Text/XML/HXT/DOM/Interface.hs @@ -20,7 +20,6 @@ module Text.XML.HXT.DOM.Interface ( module Text.XML.HXT.DOM.XmlKeywords , module Text.XML.HXT.DOM.TypeDefs - , module Text.XML.HXT.DOM.NamespacePredicates , module Text.XML.HXT.DOM.Util , module Text.XML.HXT.DOM.XmlOptions , module Text.XML.HXT.DOM.MimeTypes @@ -29,7 +28,6 @@ import Text.XML.HXT.DOM.XmlKeywords -- constants import Text.XML.HXT.DOM.TypeDefs -- XML Tree types -import Text.XML.HXT.DOM.NamespacePredicates import Text.XML.HXT.DOM.Util import Text.XML.HXT.DOM.XmlOptions -- predefined options import Text.XML.HXT.DOM.MimeTypes -- mime types related stuff diff --git a/src/Text/XML/HXT/DOM/MimeTypes.hs b/src/Text/XML/HXT/DOM/MimeTypes.hs --- a/src/Text/XML/HXT/DOM/MimeTypes.hs +++ b/src/Text/XML/HXT/DOM/MimeTypes.hs @@ -18,11 +18,14 @@ module Text.XML.HXT.DOM.MimeTypes where -import Control.Monad (mplus) +import Control.Monad ( mplus ) +import qualified Data.ByteString as B +import qualified Data.ByteString.Char8 as C + import Data.Char import Data.List -import qualified Data.Map as M +import qualified Data.Map as M import Data.Maybe import System.IO @@ -93,9 +96,8 @@ readMimeTypeTable :: FilePath -> IO MimeTypeTable readMimeTypeTable inp = do - h <- openFile inp ReadMode - c <- hGetContents h - return . M.fromList . parseMimeTypeTable $ c + cb <- B.readFile inp + return . M.fromList . parseMimeTypeTable . C.unpack $ cb parseMimeTypeTable :: String -> [(String, String)] parseMimeTypeTable diff --git a/src/Text/XML/HXT/DOM/NamespacePredicates.hs b/src/Text/XML/HXT/DOM/NamespacePredicates.hs deleted file mode 100644 --- a/src/Text/XML/HXT/DOM/NamespacePredicates.hs +++ /dev/null @@ -1,128 +0,0 @@ --- | --- basic Namespace and QName predicates and functions --- --- $Id: NamespacePredicates.hs,v 1.3 2006/11/12 14:53:00 hxml Exp $ --- - -module Text.XML.HXT.DOM.NamespacePredicates - ( module Text.XML.HXT.DOM.NamespacePredicates - ) -where - -import Text.XML.HXT.DOM.XmlTreeTypes -- NTree and XNode types -import Text.XML.HXT.DOM.XmlKeywords -- keywords for DTD - -import Text.XML.HXT.DOM.Unicode - ( isXmlNCNameStartChar - , isXmlNCNameChar - ) - --- ----------------------------------------------------------------------------- --- - --- | --- Compute the name prefix and the namespace uri for a qualified name. --- --- This function does not test whether the name is a wellformed qualified name. --- see Namespaces in XML Rule [6] to [8]. Error checking is done with separate functions, --- see 'isWellformedQName' and 'isWellformedQualifiedName' for error checking. - -setNamespace :: NsEnv -> QName -> QName -setNamespace nst n - = uncurry ns . span (/= ':') $ qn - where - qn = qualifiedName n -- using qualifiedName instead of localPart enables recomputing of setNamespace - - ns :: String -> String -> QName - ns lp "" -- no ":" found in name, use default namespace uri - = mkQName "" lp (lookup1 "" nst) - - ns px@(_:_) (':' : lp@(_:_)) -- non empty prefix and non empty local part found - = mkQName px lp (lookup1 px nst) - - ns _ _ -- not a legal qualified name, don't change name - = n - -xmlnsQN :: QName -xmlnsQN = mkQName "" a_xmlns xmlnsNamespace - --- ----------------------------------------------------------------------------- --- - --- | --- test for wellformed NCName, rule [4] XML Namespaces - -isNCName :: String -> Bool -isNCName [] - = False -isNCName n - = and ( zipWith ($) - (isXmlNCNameStartChar : repeat isXmlNCNameChar) - n - ) - --- | --- test for wellformed QName, rule [6] XML Namespaces --- predicate is used in filter 'valdateNamespaces'. - -isWellformedQualifiedName :: String -> Bool -isWellformedQualifiedName s - | null lp - = isNCName px - | otherwise - = isNCName px && isNCName (tail lp) - where - (px, lp) = span (/= ':') s - --- | --- test for wellformed QName values. --- A QName is wellformed, if the local part is a NCName, the namePrefix, if not empty, is also a NCName. --- predicate is used in filter 'valdateNamespaces'. - -isWellformedQName :: QName -> Bool -isWellformedQName n - = isNCName lp -- rule [8] XML Namespaces - && - ( null px -- rule [6] XML Namespaces - || - isNCName px -- rule [7] XML Namespaces - ) - where - px = namePrefix n - lp = localPart n - --- | --- test for a wellformed namespace declaration --- all namespace prefixes starting with \"xml\" are reserved for XML related definitions. --- predicate is used in filter 'valdateNamespaces'. - -isWellformedNSDecl :: QName -> Bool -isWellformedNSDecl n - = null px - || - px /= a_xmlns - || - (take 3 lp) /= a_xml - where - lp = localPart n - px = namePrefix n - --- | --- --- predicate is used in filter 'valdateNamespaces'. - -isDeclaredNamespace :: QName -> Bool -isDeclaredNamespace n - | null px -- no namespace used - = True - | px == a_xmlns -- "xmlns" has a predefined namespace uri - = ns == xmlnsNamespace - | px == a_xml -- "xml" has a predefiend namespace" - = ns == xmlNamespace - | otherwise -- namespace values are not empty - = (not . null) ns - where - px = namePrefix n - ns = namespaceUri n - --- ----------------------------------------------------------------------------- diff --git a/src/Text/XML/HXT/DOM/QualifiedName.hs b/src/Text/XML/HXT/DOM/QualifiedName.hs --- a/src/Text/XML/HXT/DOM/QualifiedName.hs +++ b/src/Text/XML/HXT/DOM/QualifiedName.hs @@ -16,17 +16,100 @@ -- ------------------------------------------------------------ module Text.XML.HXT.DOM.QualifiedName - ( module Text.XML.HXT.DOM.QualifiedName + ( QName + , XName + , NsEnv + + , mkQName + , mkName + , mkNsName + , mkSNsName + , mkPrefixLocalPart + + , equivQName + , equivUri + , equalQNameBy + + , namePrefix + , localPart + , namespaceUri + + , newXName + , nullXName + , isNullXName + + , mkQName' + , namePrefix' + , localPart' + , namespaceUri' + + , setNamePrefix' + , setLocalPart' + , setNamespaceUri' + + , qualifiedName + , universalName + , universalUri + , buildUniversalName + + , normalizeNsUri + + , setNamespace -- namespace related functions + , isNCName + , isWellformedQualifiedName + , isWellformedQName + , isWellformedNSDecl + , isWellformedNameSpaceName + , isNameSpaceName + , isDeclaredNamespace + + , xmlNamespaceXName + , xmlXName + , xmlnsNamespaceXName + , xmlnsXName + , xmlnsQN + + , toNsEnv ) where -import Control.Parallel.Strategies -import Data.Char (toLower) -import Data.Typeable +{- +import Debug.Trace + -} +import Control.Arrow ( (***) ) + +import Control.Concurrent.MVar +import Control.Parallel.Strategies + +import Data.AssocList +import Data.Char ( toLower ) +import Data.List ( isPrefixOf ) +import qualified Data.Map as M +import Data.Maybe +import Data.Typeable + +import System.IO.Unsafe ( unsafePerformIO ) + +import Text.XML.HXT.DOM.XmlKeywords ( a_xml + , a_xmlns + , xmlNamespace + , xmlnsNamespace + ) + +import Text.XML.HXT.DOM.Unicode ( isXmlNCNameStartChar + , isXmlNCNameChar + ) + -- ----------------------------------------------------------------------------- --- + +-- | XML names are represented by Strings, but these strings do not mix up with normal strings. +-- Names are always reduced to normal form, and they are stored internally in a name cache +-- for sharing equal names by the same data structure + +type XName = Atom + -- | -- Namespace support for element and attribute names. -- @@ -36,179 +119,419 @@ -- When dealing with namespaces, the document tree must be processed by "propagateNamespaces" -- to split names of structure \"prefix:localPart\" and label the name with the apropriate namespace uri -data QName = QN { namePrefix :: String -- ^ the name prefix part of a qualified name \"namePrefix:localPart\" - , localPart :: String -- ^ the local part of a qualified name \"namePrefix:localPart\" - , namespaceUri :: String -- ^ the associated namespace uri - } - deriving (Ord, Show, Read, Typeable) +data QName = LP ! XName + | PX ! XName ! QName + | NS ! XName ! QName + deriving (Ord, Show, Read, Typeable) +-- | +-- Type for the namespace association list, used when propagating namespaces by +-- modifying the 'QName' values in a tree + +type NsEnv = AssocList XName XName + +-- ----------------------------------------------------------------------------- + -- | Two QNames are equal if (1. case) namespaces are both empty and the qualified names -- (prefix:localpart) are the same or (2. case) namespaces are set and namespaces and -- local parts both are equal instance Eq QName where - q1 == q2 - | null ns1 && null ns2 - = qualifiedName q1 == qualifiedName q2 - | otherwise - = localPart q1 == localPart q2 - && - ns1 == ns2 - where - ns1 = namespaceUri q1 - ns2 = namespaceUri q2 + (LP lp1) == (LP lp2) = lp1 == lp2 + (PX px1 qn1) == (PX px2 qn2) = px1 == px2 && qn1== qn2 + (NS ns1 qn1) == (NS ns2 qn2) = ns1 == ns2 && localPart' qn1 == localPart' qn2 + n1@(PX _ _) == n2@(LP _) = qualifiedName n1 == qualifiedName n2 + n1@(LP _) == n2@(PX _ _) = qualifiedName n1 == qualifiedName n2 + _ == _ = False +-- the 4. and 5. rule are only neccessary when someone +-- uses XML names not in a systematical way +-- and does things like "mkName("x:y") == mkPrefixLocalPart("x","y") + instance NFData QName where - rnf (QN np lp ns) = rnf np `seq` rnf lp `seq` rnf ns +-- ----------------------------------------------------------------------------- --- just for adding the module to the lib +newXName :: String -> XName +newXName = newAtom + +isNullXName :: XName -> Bool +isNullXName = (== nullXName) + +nullXName :: XName +nullXName = newXName "" + +-- | access name prefix + +namePrefix' :: QName -> XName +namePrefix' (LP _) = nullXName +namePrefix' (PX px _) = px +namePrefix' (NS _ n) = namePrefix' n + +-- | access local part + +localPart' :: QName -> XName +localPart' (LP lp) = lp +localPart' (PX _ n) = localPart' n +localPart' (NS _ n) = localPart' n + +-- | access namespace uri + +namespaceUri' :: QName -> XName +namespaceUri' (NS ns _) = ns +namespaceUri' _ = nullXName + +namePrefix :: QName -> String +namePrefix = show . namePrefix' + +localPart :: QName -> String +localPart = show . localPart' + +namespaceUri :: QName -> String +namespaceUri = show . namespaceUri' + +-- ------------------------------------------------------------ + +-- | set name prefix + +setNamespaceUri' :: XName -> QName -> QName +setNamespaceUri' ns (NS _ n) = if isNullXName ns + then n + else NS ns n +setNamespaceUri' ns n = if isNullXName ns + then n + else NS ns n + +-- | set local part + +setLocalPart' :: XName -> QName -> QName +setLocalPart' lp (LP _) = LP lp +setLocalPart' lp (PX px n) = PX px (setLocalPart' lp n) +setLocalPart' lp (NS ns n) = NS ns (setLocalPart' lp n) + +-- | set name prefix + +setNamePrefix' :: XName -> QName -> QName +setNamePrefix' px (PX _ n) = if px == nullXName + then n + else PX px n +setNamePrefix' px n@(LP _) = if px == nullXName + then n + else PX px n +setNamePrefix' px (NS ns n) = NS ns (setNamePrefix' px n) + + +-- ------------------------------------------------------------ + -- | -- builds the full name \"prefix:localPart\", if prefix is not null, else the local part is the result -qualifiedName :: QName -> String -qualifiedName n - | null px - = lp - | otherwise - = px ++ (':' : lp) - where - px = namePrefix n - lp = localPart n +qualifiedName :: QName -> String +qualifiedName (LP lp) = show lp +qualifiedName (PX px n) = show px ++ (':' : qualifiedName n) +qualifiedName (NS _ n) = qualifiedName n -- | -- builds the \"universal\" name, that is the namespace uri surrounded with \"{\" and \"}\" followed by the local part -- (specialisation of 'buildUniversalName') -universalName :: QName -> String -universalName = buildUniversalName (\ ns lp -> '{' : ns ++ '}' : lp) +universalName :: QName -> String +universalName = buildUniversalName (\ ns lp -> '{' : ns ++ '}' : lp) -- | -- builds an \"universal\" uri, that is the namespace uri followed by the local part. This is usefull for RDF applications, -- where the subject, predicate and object often are concatenated from namespace uri and local part -- (specialisation of 'buildUniversalName') -universalUri :: QName -> String -universalUri = buildUniversalName (++) +universalUri :: QName -> String +universalUri = buildUniversalName (++) -- | -- builds a string from the namespace uri and the local part. If the namespace uri is empty, the local part is returned, else -- namespace uri and local part are combined with the combining function given by the first parameter -buildUniversalName :: (String -> String -> String) -> QName -> String -buildUniversalName bf n - | null ns - = lp - | otherwise - = bf ns lp - where - ns = namespaceUri n - lp = localPart n - --- | --- constructs a complete qualified name with 'namePrefix', 'localPart' and 'namespaceUri'. +buildUniversalName :: (String -> String -> String) -> QName -> String +buildUniversalName bf (NS ns n) = show ns `bf` localPart n +buildUniversalName _ n = localPart n -mkQName :: String -> String -> String -> QName -mkQName p l n - = QN { namePrefix = p - , localPart = l - , namespaceUri = n - } +-- ------------------------------------------------------------ +-- +-- internal XName functions --- | --- constructs a simple, namespace unaware name, 'namePrefix' and 'namespaceUri' are set to the empty string. +mkQName' :: XName -> XName -> XName -> QName +mkQName' px lp ns + | isNullXName ns = px_lp + | otherwise = NS ns px_lp + where + px_lp + | isNullXName px = LP lp + | otherwise = PX px (LP lp) -mkName :: String -> QName -mkName s - = QN { namePrefix = "" - , localPart = s - , namespaceUri = "" - } +-- ------------------------------------------------------------ -- | -- constructs a simple name, with prefix and localPart but without a namespace uri. -- --- see also 'mkName', 'mkNsName', 'mkSNsName' +-- see also 'mkQName', 'mkName' -mkPrefixLocalPart :: String -> String -> QName -mkPrefixLocalPart p l - = QN { namePrefix = p - , localPart = l - , namespaceUri = "" - } +mkPrefixLocalPart :: String -> String -> QName +mkPrefixLocalPart px lp + | null px = n1 + | otherwise = PX (newXName px) n1 + where + n1 = LP (newXName lp) -- | --- constructs a simple, namespace aware name, with prefix:localPart as first parameter, namspace uri as second. --- --- see also 'mkName', 'mkPrefixLocalPart' - -mkNsName :: String -> String -> QName -mkNsName n ns - = QN { namePrefix = p - , localPart = l - , namespaceUri = ns - } - where - (x1, x2) = span (/= ':') n - (p, l) - | null x2 = ("", x1) - | otherwise = (x1, tail x2) +-- constructs a simple, namespace unaware name. +-- If the name is in @prefix:localpart@ form and the prefix is not empty +-- the name is split internally into +-- a prefix and a local part. +mkName :: String -> QName +mkName n + | (':' `elem` n) + && + not (null px) -- more restrictive: isWellformedQualifiedName n + = mkPrefixLocalPart px lp + | otherwise = mkPrefixLocalPart "" n + where + (px, (_:lp)) = span (/= ':') n -- | --- constructs a simple name, with prefix:localPart as 1 parameter, with empty namspace uri, same as 'mkPrefixLocalPart, but with a single parameter --- --- see also 'mkNsName', 'mkPrefixLocalPart' +-- constructs a complete qualified name with 'namePrefix', 'localPart' and 'namespaceUri'. +-- This function can be used to build not wellformed prefix:localpart names. +-- The XPath module uses wildcard names like @xxx:*@. These must be build with 'mkQName' +-- and not with mkName. -mkSNsName :: String -> QName -mkSNsName n = mkNsName n "" +mkQName :: String -> String -> String -> QName +mkQName px lp ns + | null ns = n1 + | otherwise = NS (newXName ns) n1 + where + n1 = mkPrefixLocalPart px lp --- | Empty QName +-- ------------------------------------------------------------ -nullQName :: QName -nullQName = QN "" "" "" +-- | +-- old name for 'mkName' --- | Equality of QNames: Two QNames are equal, if the local parts are equal --- and the namespace URIs are equal. --- The comparison works with and without namespace propagation. --- If namespaces have been propagated, the name is split into prefix and local part --- and the namespace uri is set. In this case the prefix is not significant for equality test. --- If namespaces have not been propagated, the local part contains the full name, prefix --- and namespace URI are empty. The full name (prefix and local part) is used for comparison. +mkSNsName :: String -> QName +mkSNsName = mkName -equalQName :: QName -> QName -> Bool -equalQName = equalQNameBy (==) +-- | +-- constructs a simple, namespace aware name, with prefix:localPart as first parameter, +-- namspace uri as second. +-- +-- see also 'mkName', 'mkPrefixLocalPart' +mkNsName :: String -> String -> QName +mkNsName n ns + | null ns = mkName n + | otherwise = NS (newXName ns) (mkName n) + +-- ------------------------------------------------------------ + -- | Equivalent QNames are defined as follows: The URIs are normalized before comparison. -- Comparison is done with 'equalQNameBy' and 'equivUri' -equivQName :: QName -> QName -> Bool -equivQName = equalQNameBy equivUri +equivQName :: QName -> QName -> Bool +equivQName = equalQNameBy equivUri -- | Comparison of normalized namespace URIs using 'normalizeNsUri' -equivUri :: String -> String -> Bool -equivUri x y = normalizeNsUri x == normalizeNsUri y +equivUri :: String -> String -> Bool +equivUri x y = normalizeNsUri x == normalizeNsUri y -- | Sometimes a weaker equality relation than 'equalQName' is appropriate, e.g no case significance in names, ... -- a name normalization function can be applied to the strings before comparing. Called by 'equalQName' and -- 'equivQName' -equalQNameBy :: (String -> String -> Bool) -> QName -> QName -> Bool -equalQNameBy equiv q1 q2 - = localPart q1 == localPart q2 - && - (namespaceUri q1 `equiv` namespaceUri q2) +equalQNameBy :: (String -> String -> Bool) -> QName -> QName -> Bool +equalQNameBy equiv q1 q2 = localPart q1 == localPart q2 + && + (namespaceUri q1 `equiv` namespaceUri q2) -- | Normalization of URIs: Normalization is done by conversion into lowercase letters. A trailing \"\/\" is ignored -normalizeNsUri :: String -> String -normalizeNsUri - = map toLower . stripSlash +normalizeNsUri :: String -> String +normalizeNsUri = map toLower . stripSlash where - stripSlash "" = "" + stripSlash "" = "" stripSlash s - | last s == '/' = init s - | otherwise = s + | last s == '/' = init s + | otherwise = s -- ----------------------------------------------------------------------------- + +-- Namespace predicates + +-- | +-- Compute the name prefix and the namespace uri for a qualified name. +-- +-- This function does not test whether the name is a wellformed qualified name. +-- see Namespaces in XML Rule [6] to [8]. Error checking is done with separate functions, +-- see 'isWellformedQName' and 'isWellformedQualifiedName' for error checking. + +setNamespace :: NsEnv -> QName -> QName +setNamespace env n@(PX px _) = attachNS env px n -- none empty prefix found +setNamespace env n@(LP _) = attachNS env nullXName n -- use default namespace uri +setNamespace env (NS _ n) = setNamespace env n + +attachNS :: NsEnv -> XName -> QName -> QName +attachNS env px n1 = maybe n1 (\ ns -> NS ns n1) . lookup px $ env + +xmlnsNamespaceXName :: XName +xmlnsNamespaceXName = newXName xmlnsNamespace + +xmlnsXName :: XName +xmlnsXName = newXName a_xmlns + +xmlnsQN :: QName +xmlnsQN = NS xmlnsNamespaceXName (LP xmlnsXName) + +xmlNamespaceXName :: XName +xmlNamespaceXName = newXName xmlNamespace + +xmlXName :: XName +xmlXName = newXName a_xml + +-- ----------------------------------------------------------------------------- +-- + +-- | +-- test for wellformed NCName, rule [4] XML Namespaces + +isNCName :: String -> Bool +isNCName [] = False +isNCName n = and ( zipWith ($) + (isXmlNCNameStartChar : repeat isXmlNCNameChar) + n + ) + +-- | +-- test for wellformed QName, rule [6] XML Namespaces +-- predicate is used in filter 'valdateNamespaces'. + +isWellformedQualifiedName :: String -> Bool +isWellformedQualifiedName s + | null lp = isNCName px + | otherwise = isNCName px && isNCName (tail lp) + where + (px, lp) = span (/= ':') s + +-- | +-- test for wellformed QName values. +-- A QName is wellformed, if the local part is a NCName, the namePrefix, if not empty, is also a NCName. +-- predicate is used in filter 'valdateNamespaces'. + +isWellformedQName :: QName -> Bool +isWellformedQName (LP lp) = isNCName . show $ lp -- rule [8] XML Namespaces +isWellformedQName (PX px n) = (isNCName . show) px -- rule [7] XML Namespaces + && + isWellformedQName n +isWellformedQName (NS _ n) = isWellformedQName n + +-- | +-- test whether an attribute name is a namesapce declaration name. +-- If this is not the case True is the result, else +-- the name must be a well formed namespace name: +-- All namespace prefixes starting with \"xml\" are reserved for XML related definitions. +-- predicate is used in filter 'valdateNamespaces'. + +isWellformedNSDecl :: QName -> Bool +isWellformedNSDecl n = not (isNameSpaceName n) + || + isWellformedNameSpaceName n + +-- | +-- test for a namespace name to be well formed + +isWellformedNameSpaceName :: QName -> Bool +isWellformedNameSpaceName (LP lp) = lp == xmlnsXName +isWellformedNameSpaceName (PX px n) = px == xmlnsXName + && + not (null lp') + && + not (a_xml `isPrefixOf` lp') + where + lp' = localPart n +isWellformedNameSpaceName (NS _ n) = isWellformedNSDecl n + +-- | +-- test whether a name is a namespace declaration attribute name + +isNameSpaceName :: QName -> Bool +isNameSpaceName (LP lp) = lp == xmlnsXName +isNameSpaceName (PX px _) = px == xmlnsXName +isNameSpaceName (NS _ n) = isNameSpaceName n + +-- | +-- +-- predicate is used in filter 'valdateNamespaces'. + +isDeclaredNamespace :: QName -> Bool +isDeclaredNamespace (NS ns n) = isNS ns n +isDeclaredNamespace n = isNS nullXName n + +isNS :: XName -> QName -> Bool +isNS _ (LP _) = True -- no namespace used +isNS ns (PX px _) + | px == xmlnsXName = ns == xmlnsNamespaceXName -- "xmlns" has a predefined namespace uri + | px == xmlXName = ns == xmlNamespaceXName -- "xml" has a predefiend namespace" + | otherwise = ns /= nullXName -- namespace values are not empty +isNS ns (NS _ n) = isNS ns n -- this does not occur, but warning is prevented + +-- ----------------------------------------------------------------------------- + +toNsEnv :: AssocList String String -> NsEnv +toNsEnv = map (newXName *** newXName) + +-- ----------------------------------------------------------------------------- + +-- the name cache, same implementation strategy as in Data.Atom, +-- but conversion to and from ByteString prevented + +type Atoms = M.Map String String + +newtype Atom = A String + deriving (Eq, Ord, Typeable) + +-- ------------------------------------------------------------ + +-- | the internal cache for the strings + +theAtoms :: MVar Atoms +theAtoms = unsafePerformIO (newMVar M.empty) +{-# NOINLINE theAtoms #-} + +-- | insert a bytestring into the atom cache + +insertAtom :: String -> Atoms -> (Atoms, Atom) +insertAtom s m = maybe (M.insert {- (trace (show s) s) -} s s m, A s `demanding` rnf s) + (\ s' -> (m, A s')) + . + M.lookup s $ m + +-- | creation of an @Atom@ from a @String@ + +newAtom :: String -> Atom +newAtom = unsafePerformIO . newAtom' +{-# NOINLINE newAtom #-} + +-- | The internal operation running in the IO monad +newAtom' :: String -> IO Atom +newAtom' s = do + m <- takeMVar theAtoms + let (m', a) = insertAtom s m + putMVar theAtoms m' + return a + +instance Read Atom where + readsPrec p str = [ (newAtom x, y) | (x, y) <- readsPrec p str ] + +instance Show Atom where + show (A s) = s + +instance NFData Atom where + +----------------------------------------------------------------------------- diff --git a/src/Text/XML/HXT/DOM/ShowXml.hs b/src/Text/XML/HXT/DOM/ShowXml.hs --- a/src/Text/XML/HXT/DOM/ShowXml.hs +++ b/src/Text/XML/HXT/DOM/ShowXml.hs @@ -2,7 +2,7 @@ {- | Module : Text.XML.HXT.DOM.ShowXml - Copyright : Copyright (C) 2008 Uwe Schmidt + Copyright : Copyright (C) 2008-9 Uwe Schmidt License : MIT Maintainer : Uwe Schmidt (uwe@fh-wedel.de) @@ -21,15 +21,14 @@ ) where +import Data.Maybe import Data.Tree.NTree.TypeDefs import Text.XML.HXT.DOM.TypeDefs -- XML Tree types import Text.XML.HXT.DOM.XmlKeywords -import Text.XML.HXT.DOM.XmlNode - ( mkDTDElem - , getDTDAttrl - ) -import Data.Maybe +import Text.XML.HXT.DOM.XmlNode ( mkDTDElem + , getDTDAttrl + ) -- ----------------------------------------------------------------------------- -- diff --git a/src/Text/XML/HXT/DOM/TypeDefs.hs b/src/Text/XML/HXT/DOM/TypeDefs.hs --- a/src/Text/XML/HXT/DOM/TypeDefs.hs +++ b/src/Text/XML/HXT/DOM/TypeDefs.hs @@ -29,7 +29,7 @@ import Data.Tree.NTree.TypeDefs import Data.Typeable -import Text.XML.HXT.DOM.QualifiedName hiding ( QN ) +import Text.XML.HXT.DOM.QualifiedName -- ----------------------------------------------------------------------------- -- @@ -126,15 +126,6 @@ -- used for storing option lists and features of DTD parts type Attributes = AssocList String String - --- ----------------------------------------------------------------------------- --- - --- | --- Type for the namespace association list, used when propagating namespaces by --- modifying the 'QName' values in a tree - -type NsEnv = AssocList String String -- ----------------------------------------------------------------------------- -- diff --git a/src/Text/XML/HXT/DOM/Unicode.hs b/src/Text/XML/HXT/DOM/Unicode.hs --- a/src/Text/XML/HXT/DOM/Unicode.hs +++ b/src/Text/XML/HXT/DOM/Unicode.hs @@ -2,13 +2,12 @@ {- | Module : Text.XML.HXT.DOM.Unicode - Copyright : Copyright (C) 2005 Uwe Schmidt + Copyright : Copyright (C) 2005-2008 Uwe Schmidt License : MIT Maintainer : Uwe Schmidt (uwe@fh-wedel.de) Stability : experimental Portability: portable - Version : $Id$ Unicode and UTF-8 Conversion Functions @@ -279,9 +278,9 @@ isXmlPubidChar :: Unicode -> Bool isXmlPubidChar c - = isInList c [ ('A', 'Z') + = isInList c [ ('0', '9') + , ('A', 'Z') , ('a', 'z') - , ('0', '9') ] || ( c `elem` " \r\n-'()+,./:=?;!*#@$_%" ) diff --git a/src/Text/XML/HXT/DOM/XmlKeywords.hs b/src/Text/XML/HXT/DOM/XmlKeywords.hs --- a/src/Text/XML/HXT/DOM/XmlKeywords.hs +++ b/src/Text/XML/HXT/DOM/XmlKeywords.hs @@ -56,6 +56,7 @@ a_module, a_modifier, a_name, + a_no_empty_elements, a_no_xml_pi, a_options_curl, a_output_encoding, @@ -75,6 +76,7 @@ a_source, a_status, a_standalone, + a_strict_input, a_tagsoup, a_trace, a_type, @@ -162,6 +164,7 @@ a_module = "module" a_modifier = "modifier" a_name = "name" +a_no_empty_elements = "no-empty-elements" a_no_xml_pi = "no-xml-pi" a_options_curl = "options-curl" a_output_file = "output-file" @@ -181,6 +184,7 @@ a_source = "source" a_standalone = "standalone" a_status = "status" +a_strict_input = "strict-input" a_tagsoup = "tagsoup" a_trace = "trace" a_type = "type" diff --git a/src/Text/XML/HXT/DOM/XmlNode.hs b/src/Text/XML/HXT/DOM/XmlNode.hs --- a/src/Text/XML/HXT/DOM/XmlNode.hs +++ b/src/Text/XML/HXT/DOM/XmlNode.hs @@ -303,7 +303,7 @@ mkElement n al = mkTree (mkElementNode n al) mkRoot :: XmlTrees -> XmlTrees -> XmlTree -mkRoot al = mkTree (mkElementNode (mkSNsName t_root) al) +mkRoot al = mkTree (mkElementNode (mkName t_root) al) mkAttr :: QName -> XmlTrees -> XmlTree mkAttr n = mkTree (mkAttrNode n) diff --git a/src/Text/XML/HXT/DOM/XmlOptions.hs b/src/Text/XML/HXT/DOM/XmlOptions.hs --- a/src/Text/XML/HXT/DOM/XmlOptions.hs +++ b/src/Text/XML/HXT/DOM/XmlOptions.hs @@ -58,6 +58,7 @@ , Option "H" [a_parse_html] (NoArg (att a_parse_html v_1)) "parse input as HTML, try to interprete everything as HTML, no validation" , Option "M" [a_parse_by_mimetype] (NoArg (att a_parse_by_mimetype v_1)) "parse dependent on mime type: text/html as HTML, text/xml and text/xhtml and others as XML, else no parse" , Option "" [a_parse_xml] (NoArg (att a_parse_html v_0)) "parse input as XML, (default)" + , Option "" [a_strict_input] (NoArg (att a_strict_input v_1)) "read input files strictly, this ensures closing the files correctly even if not read completely" , Option "T" [a_tagsoup] (NoArg (att a_tagsoup v_1)) "lasy tagsoup parser, for HTML and XML, no DTD, no validation, no PIs, only XHTML entityrefs" , Option "" [a_issue_warnings] (NoArg (att a_issue_warnings v_1)) "issue warnings, when parsing HTML (default)" , Option "Q" [a_do_not_issue_warnings] (NoArg (att a_issue_warnings v_0)) "ignore warnings, when parsing HTML" @@ -112,6 +113,7 @@ , Option "f" [a_output_file] (ReqArg (att a_output_file) "FILE") "output file for resulting document (default: stdout)" , Option "" [a_output_html] (NoArg (att a_output_html v_1)) "output of none ASCII chars as HTMl entity references" , Option "" [a_no_xml_pi] (NoArg (att a_no_xml_pi v_1)) ("output without <?xml ...?> processing instruction, useful in combination with --" ++ show a_output_html) + , Option "" [a_no_empty_elements] (NoArg (att a_no_empty_elements v_1)) "output of empty elements done in format <elem...></elem> instead of <elem/>" ] where att n v = (n, v) diff --git a/src/Text/XML/HXT/DOM/XmlTreeTypes.hs b/src/Text/XML/HXT/DOM/XmlTreeTypes.hs deleted file mode 100644 --- a/src/Text/XML/HXT/DOM/XmlTreeTypes.hs +++ /dev/null @@ -1,77 +0,0 @@ --- | --- exports the core data types --- and some additional types and functions --- for compatibility with none arrow modules --- --- Version : $Id: XmlTreeTypes.hs,v 1.6 2006/05/09 15:30:43 hxml Exp $ - -module Text.XML.HXT.DOM.XmlTreeTypes - ( module Data.Tree.NTree.Filter - , module Text.XML.HXT.DOM.TypeDefs - , module Text.XML.HXT.DOM.XmlTreeTypes - ) - -where - -import Data.Tree.NTree.Filter -import Text.XML.HXT.DOM.TypeDefs - --- aliases for compatiblility reasons - -mkNode :: node -> NTrees node -> NTree node -mkNode = mkTree - -formatNTree :: (node -> String) -> NTree node -> String -formatNTree = formatTree - -foldNTree :: (a -> [b] -> b) -> NTree a -> b -foldNTree = foldTree - -mapNTree :: (a -> b) -> NTree a -> NTree b -mapNTree = fmap - -nTreeToList :: NTree a -> [a] -nTreeToList = nodesTree - -depthNTree :: NTree a -> Int -depthNTree = depthTree - -cardNTree :: NTree a -> Int -cardNTree = cardNTree - --- ----------------------------------------------------------------------------- --- --- Basic types for filters - --- | A functions that takes a node and returns a list of nodes - -type XmlFilter = TFilter XNode - --- | A function that takes a list of nodes and returns a list of nodes - -type XmlSFilter = TSFilter XNode - - --- ----------------------------------------------------------------------------- --- - --- | Tag name -type TagName = QName - --- | Attribute name -type AttrName = QName - --- ----------------------------------------------------------------------------- - --- | shortcut for 'qualifiedName' - -tName :: QName -> String -tName = qualifiedName - --- | shortcut for 'qualifiedName' - -aName :: QName -> String -aName = qualifiedName - --- ----------------------------------------------------------------------------- - diff --git a/src/Text/XML/HXT/IO/GetFILE.hs b/src/Text/XML/HXT/IO/GetFILE.hs --- a/src/Text/XML/HXT/IO/GetFILE.hs +++ b/src/Text/XML/HXT/IO/GetFILE.hs @@ -1,40 +1,55 @@ -- ------------------------------------------------------------ --- --- GET for local file access --- --- Version : $Id: GetFILE.hs,v 1.6 2006/09/04 06:03:03 hxml Exp $ +{- | + Module : Text.XML.HXT.IO.GetFILE + Copyright : Copyright (C) 2008 Uwe Schmidt + License : MIT + + Maintainer : Uwe Schmidt (uwe@fh-wedel.de) + Stability : stable + Portability: portable + + The GET method for file protocol + +-} + +-- ------------------------------------------------------------ + module Text.XML.HXT.IO.GetFILE - ( module Text.XML.HXT.IO.GetFILE + ( getStdinCont + , getCont ) where -import System.IO - ( IOMode(..) - , openFile - -- , getContents is defined in the prelude - , hGetContents - ) +import qualified Data.ByteString as B +import qualified Data.ByteString.Char8 as C -import System.IO.Error - ( ioeGetErrorString - , try - ) +import System.IO ( IOMode(..) + , openFile + -- , getContents is defined in the prelude + , hGetContents + ) -import System.Directory - ( doesFileExist - , getPermissions - , readable - ) +import System.IO.Error ( ioeGetErrorString + , try + ) +import System.Directory ( doesFileExist + , getPermissions + , readable + ) + -- ------------------------------------------------------------ -getStdinCont :: IO (Either String String) -getStdinCont +getStdinCont :: Bool -> IO (Either String String) +getStdinCont strictInput = do - c <- try ( do - getContents + c <- try ( if strictInput + then do + cb <- B.getContents + return (C.unpack cb) + else getContents ) return (either readErr Right c) where @@ -43,8 +58,8 @@ ++ ioeGetErrorString e ) -getCont :: String -> IO (Either String String) -getCont source +getCont :: Bool -> String -> IO (Either String String) +getCont strictInput source = do -- preliminary exists <- doesFileExist source' if not exists @@ -54,12 +69,17 @@ if not (readable perm) then return (Left ("file " ++ show source' ++ " not readable")) else do - c <- try ( do - h <- openFile source' ReadMode - hGetContents h + c <- try ( if strictInput + then do + cb <- B.readFile source + return (C.unpack cb) + else do + h <- openFile source' ReadMode + hGetContents h ) return (either readErr Right c) where + -- please NO call of unEscapeString for file names, NOT: source' = drivePath . unEscapeString $ source source' = drivePath $ source readErr e diff --git a/src/Text/XML/HXT/Parser/TagSoup.hs b/src/Text/XML/HXT/Parser/TagSoup.hs --- a/src/Text/XML/HXT/Parser/TagSoup.hs +++ b/src/Text/XML/HXT/Parser/TagSoup.hs @@ -2,7 +2,7 @@ {- | Module : Text.XML.HXT.Parser.TagSoup - Copyright : Copyright (C) 2005 Uwe Schmidt + Copyright : Copyright (C) 2005-2008 Uwe Schmidt License : MIT Maintainer : Uwe Schmidt (uwe@fh-wedel.de) @@ -23,60 +23,41 @@ -- ------------------------------------------------------------ -import Data.Char (toLower) -import Data.Maybe -import qualified Data.Map as M - +import Data.Char (toLower) +import Data.Maybe import Text.HTML.TagSoup -import Text.HTML.TagSoup.Entity - ( lookupNumericEntity - ) - -import Text.XML.HXT.DOM.Unicode - ( isXmlSpaceChar - ) - -import Text.XML.HXT.DOM.NamespacePredicates - ( isWellformedQualifiedName - ) - -import Text.XML.HXT.Parser.XmlEntities - ( -- xmlEntities - ) - +import Text.HTML.TagSoup.Entity ( lookupNumericEntity + ) +import Text.XML.HXT.DOM.Unicode ( isXmlSpaceChar + ) +import Text.XML.HXT.Parser.HtmlParsec ( isEmptyHtmlTag + , isInnerHtmlTagOf + , closesHtmlTag + ) import Text.XML.HXT.Parser.XhtmlEntities - ( xhtmlEntities - ) - -import Text.XML.HXT.Parser.HtmlParsec - ( isEmptyHtmlTag - , isInnerHtmlTagOf - , closesHtmlTag - ) - -import Text.XML.HXT.DOM.Interface - ( XmlTrees - , QName - , NsEnv - , mkQName - , mkName - , mkPrefixLocalPart - , c_warn - , a_xml - , a_xmlns - , xmlNamespace - , xmlnsNamespace - ) - -import Text.XML.HXT.DOM.XmlNode - ( isElem - , mkError - , mkCmt - , mkText - , mkElement - , mkAttr - ) +import Text.XML.HXT.DOM.Interface ( XmlTrees + , QName + , NsEnv + , toNsEnv + , newXName + , nullXName + , mkQName' + , mkName + , isWellformedQualifiedName + , c_warn + , a_xml + , a_xmlns + , xmlNamespace + , xmlnsNamespace + ) +import Text.XML.HXT.DOM.XmlNode ( isElem + , mkError + , mkCmt + , mkText + , mkElement + , mkAttr + ) -- ---------------------------------------- @@ -84,15 +65,13 @@ -- the first time they are ecountered, and later always this name is used, -- not a string built by the parser. -type Tags = [Tag] - -type NameTable = M.Map QName QName +type Tags = [Tag] -type Context = ([String], NsEnv) +type Context = ([String], NsEnv) -data State = S !Tags !NameTable -- the name table must be evaluated striktly, else a stack overflow occurs +type State = Tags -newtype Parser a = P { parse :: State -> (a, State)} +newtype Parser a = P { parse :: State -> (a, State)} instance Monad Parser where return x = P $ \ ts -> (x, ts) @@ -102,7 +81,7 @@ parse (f res) ts' runParser :: Parser a -> Tags -> a -runParser p ts = fst . parse p $ S ts M.empty +runParser p ts = fst . parse p $ ts -- ---------------------------------------- @@ -112,13 +91,13 @@ if p then t else e lookAhead :: (Tag -> Bool) -> Parser Bool -lookAhead p = P $ \ s@(S ts _) -> (not (null ts) && p (head ts), s) +lookAhead p = P $ \ s -> (not (null s) && p (head s), s) -- ---------------------------------------- -- primitive look ahead tests isEof :: Parser Bool -isEof = P $ \ s@(S ts _) -> (null ts, s) +isEof = P $ \ s -> (null s, s) isText :: Parser Bool isText = lookAhead is @@ -160,7 +139,7 @@ -- primitive symbol parsers getTag :: Parser Tag -getTag = P $ \ (S (t1:ts1) nt) -> (t1, S ts1 nt) +getTag = P $ \ (t1:ts1) -> (t1, ts1) getSym :: (Tag -> a) -> Parser a getSym f = do @@ -207,7 +186,7 @@ -- pushback parsers for inserting missing tags pushBack :: Tag -> Parser () -pushBack t = P $ \ (S ts nt) -> ((), S (t:ts) nt) +pushBack t = P $ \ ts -> ((), t:ts) insCls :: String -> Parser () insCls n = pushBack (TagClose n) @@ -217,43 +196,31 @@ -- ---------------------------------------- -insertQName :: QName -> Parser QName -insertQName n = P $ \ (S ts nt) -> let - (n', nt') = insert n nt - in - (n', S ts nt') - where - insert s nt - | isJust r = (fromJust r, nt) - | otherwise = (s, M.insert s s nt) - where - r = M.lookup s nt - mkQN :: Bool -> Bool -> NsEnv -> String -> Parser QName mkQN withNamespaces isAttr env s | withNamespaces - = insertQName qn1 + = return qn1 | otherwise - = insertQName qn0 + = return qn0 where qn1 - | isAttr && isSimpleName = mkName s - | isSimpleName = mkQName "" s (nsUri "") - | isWellformedQualifiedName s = mkQName px lp (nsUri px) - | otherwise = mkName s - qn0 - | isSimpleName = mkName s - | isWellformedQualifiedName s = mkPrefixLocalPart px lp - | otherwise = mkName s + | isAttr && isSimpleName = s' + | isSimpleName = mkQName' nullXName (newXName s) (nsUri nullXName) + | isWellformedQualifiedName s = mkQName' px' lp' (nsUri px') + | otherwise = s' + qn0 = s' - nsUri x = fromMaybe "" . lookup x $ env - isSimpleName = all (/= ':') s - (px, (_ : lp)) = span(/= ':') s + nsUri x = fromMaybe nullXName . lookup x $ env + isSimpleName = all (/= ':') s + (px, (_ : lp)) = span(/= ':') s + px' = newXName px + lp' = newXName lp + s' = mkName s extendNsEnv :: Bool -> [(String, String)] -> NsEnv -> NsEnv extendNsEnv withNamespaces al1 env | withNamespaces - = concatMap (uncurry addNs) al1 ++ env + = toNsEnv (concatMap (uncurry addNs) al1) ++ env | otherwise = env where @@ -336,7 +303,8 @@ = take 1 . filter isElem initContext = ( [] - , [ (a_xml, xmlNamespace) + , toNsEnv $ + [ (a_xml, xmlNamespace) , (a_xmlns, xmlnsNamespace) ] ) diff --git a/src/Text/XML/HXT/RelaxNG/Simplification.hs b/src/Text/XML/HXT/RelaxNG/Simplification.hs --- a/src/Text/XML/HXT/RelaxNG/Simplification.hs +++ b/src/Text/XML/HXT/RelaxNG/Simplification.hs @@ -89,7 +89,7 @@ ( processHref $< getBaseURI ) >>> -- 4.10 QNames - processWithNsEnv processEnvNames [("xml",xmlNamespace)] + processWithNsEnv processEnvNames (toNsEnv [("xml",xmlNamespace)]) >>> -- 4.4 For any data or value element that does not have a datatypeLibrary attribute, -- a datatypeLibrary attribute is added. @@ -229,7 +229,7 @@ ) ) - processEnvNames :: [(String, String)] -> IOSArrow XmlTree XmlTree + processEnvNames :: NsEnv -> IOSArrow XmlTree XmlTree processEnvNames env = ( ( (replaceQNames env $< getAttrValue "name") `when` @@ -252,29 +252,29 @@ = setBaseUri &&& constA (map createAttr env) >>> arr2L (:) where - createAttr :: (String, String) -> XmlTree + createAttr :: (XName, XName) -> XmlTree createAttr (pre, uri) - = XN.mkAttr (mkName nm) [XN.mkText uri] + = XN.mkAttr (mkName nm) [XN.mkText (show uri)] where - nm | null pre = "RelaxContextDefault" - | otherwise = contextAttributes ++ pre + nm | isNullXName pre = "RelaxContextDefault" + | otherwise = contextAttributes ++ show pre setBaseUri :: IOSArrow String XmlTree setBaseUri = mkAttr (mkName contextBaseAttr) (txt $< this) - replaceQNames :: [(String, String)] -> String -> IOSArrow XmlTree XmlTree + replaceQNames :: NsEnv -> String -> IOSArrow XmlTree XmlTree replaceQNames e name | isNothing uri = mkRelaxError "" ( "No Namespace-Mapping for the prefix " ++ show pre ++ " in the Context of Element: " ++ show name ) | otherwise - = addAttr "name" ( "{" ++ (fromJust uri) ++ "}" ++ local ) + = addAttr "name" ( "{" ++ (show . fromJust $ uri) ++ "}" ++ local ) where (pre, local') = span (/= ':') name local = tail local' - uri :: Maybe String - uri = lookup pre e + uri :: Maybe XName + uri = lookup (newXName pre) e -- The value of the added datatypeLibrary attribute is the value of the -- datatypeLibrary attribute of the nearest ancestor element that diff --git a/src/Text/XML/HXT/RelaxNG/XmlSchema/DataTypeLibW3C.hs b/src/Text/XML/HXT/RelaxNG/XmlSchema/DataTypeLibW3C.hs --- a/src/Text/XML/HXT/RelaxNG/XmlSchema/DataTypeLibW3C.hs +++ b/src/Text/XML/HXT/RelaxNG/XmlSchema/DataTypeLibW3C.hs @@ -54,25 +54,21 @@ ) where -import Text.XML.HXT.RelaxNG.DataTypeLibUtils - -import Network.URI - ( isURIReference ) +import Data.Maybe +import Data.Ratio -import Text.XML.HXT.DOM.NamespacePredicates - ( isWellformedQualifiedName - , isNCName - ) +import Network.URI ( isURIReference ) -import Text.XML.HXT.RelaxNG.XmlSchema.Regex - ( Regex - , matchWithRE - ) +import Text.XML.HXT.DOM.QualifiedName ( isWellformedQualifiedName + , isNCName + ) +import Text.XML.HXT.RelaxNG.DataTypeLibUtils +import Text.XML.HXT.RelaxNG.XmlSchema.Regex ( Regex + , matchWithRE + ) import Text.XML.HXT.RelaxNG.XmlSchema.RegexParser - ( parseRegex ) - -import Data.Maybe -import Data.Ratio + ( parseRegex + ) -- ------------------------------------------------------------ diff --git a/src/Text/XML/HXT/RelaxNG/XmlSchema/Regex.hs b/src/Text/XML/HXT/RelaxNG/XmlSchema/Regex.hs --- a/src/Text/XML/HXT/RelaxNG/XmlSchema/Regex.hs +++ b/src/Text/XML/HXT/RelaxNG/XmlSchema/Regex.hs @@ -39,6 +39,8 @@ , nullable , delta , matchWithRE + , (<&&>) + , (<||>) ) where @@ -80,68 +82,74 @@ inv (Dif e1 e2) = inv e1 && inv e2 -} --- ------------------------------------------------------------ --- --- smart constructors +-- ------------------------------------------------------------ -- | enumerate all chars specified by a predicate -- -- this function is expensive, it should only be used for testing -chars :: (Char -> Bool) -> [Char] -chars p = filter p $ [minBound .. maxBound] +chars :: (Char -> Bool) -> [Char] +chars p = filter p $ [minBound .. maxBound] -charRngs :: [Char] -> [(Char, Char)] -charRngs [] = [] -charRngs (x:xs) = charRng x xs - where - charRng y [] = (x,y) : [] - charRng y xs'@(x1:xs1) - | x1 == succ y = charRng x1 xs1 - | otherwise = (x,y) : charRngs xs' +charRngs :: [Char] -> [(Char, Char)] +charRngs [] = [] +charRngs (x:xs) = charRng x xs + where + charRng y [] = (x,y) : [] + charRng y xs'@(x1:xs1) + | x1 == succ y = charRng x1 xs1 + | otherwise = (x,y) : charRngs xs' -mkZero :: String -> Regex -mkZero = Zero +-- ------------------------------------------------------------ +-- +-- smart constructors -mkUnit :: Regex -mkUnit = Unit +mkZero :: String -> Regex +mkZero = Zero +{-# INLINE mkZero #-} -mkSym :: (Char -> Bool) -> Regex -mkSym = Sym +mkUnit :: Regex +mkUnit = Unit +{-# INLINE mkUnit #-} -mkSym1 :: Char -> Regex -mkSym1 c = mkSym (==c) +mkSym :: (Char -> Bool) -> Regex +mkSym = Sym +{-# INLINE mkSym #-} -mkSymRng :: Char -> Char -> Regex +mkSym1 :: Char -> Regex +mkSym1 c = mkSym (==c) + +mkSymRng :: Char -> Char -> Regex mkSymRng c1 c2 | c1 == minBound && - c2 == maxBound = mkDot - | c1 <= c2 = mkSym $ ( \ x -> x >= c1 && x<= c2 ) - | otherwise = mkZero $ "empty char range" + c2 == maxBound = mkDot + | c1 <= c2 = mkSym $ (>= c1) <&&> (<= c2) + | otherwise = mkZero $ "empty char range" -mkDot :: Regex -mkDot = Dot +mkDot :: Regex +mkDot = Dot +{-# INLINE mkDot #-} -mkStar :: Regex -> Regex -mkStar (Zero _) = mkUnit -- {}* == () -mkStar e@Unit = e -- ()* == () -mkStar e@(Star _e1) = e -- (r*)* == r* -mkStar (Rep 1 e1) = mkStar e1 -- (r+)* == r* -mkStar e@(Alt _ _) = Star (rmStar e) -- (a*|b)* == (a|b)* -mkStar e = Star e +mkStar :: Regex -> Regex +mkStar (Zero _) = mkUnit -- {}* == () +mkStar e@Unit = e -- ()* == () +mkStar e@(Star _e1) = e -- (r*)* == r* +mkStar (Rep 1 e1) = mkStar e1 -- (r+)* == r* +mkStar e@(Alt _ _) = Star (rmStar e) -- (a*|b)* == (a|b)* +mkStar e = Star e -rmStar :: Regex -> Regex -rmStar (Alt e1 e2) = mkAlt (rmStar e1) (rmStar e2) -rmStar (Star e1) = rmStar e1 -rmStar (Rep 1 e1) = rmStar e1 -rmStar e1 = e1 +rmStar :: Regex -> Regex +rmStar (Alt e1 e2) = mkAlt (rmStar e1) (rmStar e2) +rmStar (Star e1) = rmStar e1 +rmStar (Rep 1 e1) = rmStar e1 +rmStar e1 = e1 mkAlt :: Regex -> Regex -> Regex mkAlt e1 (Zero _) = e1 -- e1 u {} = e1 mkAlt (Zero _) e2 = e2 -- {} u e2 = e2 mkAlt e1@(Star Dot) _e2 = e1 -- A* u e1 = A* mkAlt _e1 e2@(Star Dot) = e2 -- e1 u A* = A* -mkAlt (Sym p1) (Sym p2) = mkSym $ \ x -> p1 x || p2 x -- melting of predicates +mkAlt (Sym p1) (Sym p2) = mkSym $ p1 <||> p2 -- melting of predicates mkAlt e1 e2@(Sym _) = mkAlt e2 e1 -- symmetry: predicates always first mkAlt e1@(Sym _) (Alt e2@(Sym _) e3) = mkAlt (mkAlt e1 e2) e3 -- prepare melting of predicates mkAlt (Alt e1 e2) e3 = mkAlt e1 (mkAlt e2 e3) -- associativity @@ -172,8 +180,8 @@ mkRng _l _u e@Unit = e mkRng lb ub e = Rng lb ub e -mkOpt :: Regex -> Regex -mkOpt = mkRng 0 1 +mkOpt :: Regex -> Regex +mkOpt = mkRng 0 1 mkDif :: Regex -> Regex -> Regex mkDif e1@(Zero _) _e2 = e1 @@ -186,8 +194,8 @@ = mkZero "empty set of chars in difference expr" mkDif e1 e2 = Dif e1 e2 -mkCompl :: Regex -> Regex -mkCompl = mkDif mkDot +mkCompl :: Regex -> Regex +mkCompl = mkDif mkDot -- ------------------------------------------------------------ @@ -231,6 +239,7 @@ isZero :: Regex -> Bool isZero (Zero _) = True isZero _ = False +{-# INLINE isZero #-} nullable :: Regex -> Bool nullable (Zero _) = False @@ -291,5 +300,18 @@ res re | nullable re = Nothing -- o.k. | otherwise = Just $ "input does not match " ++ show e + +-- ------------------------------------------------------------ + +(<&&>) :: (Char -> Bool) -> (Char -> Bool) -> (Char -> Bool) +f <&&> g = \ x -> f x && g x -- liftA2 (&&) + +{-# INLINE (<&&>) #-} + + +(<||>) :: (Char -> Bool) -> (Char -> Bool) -> (Char -> Bool) +f <||> g = \ x -> f x || g x -- liftA2 (||) + +{-# INLINE (<||>) #-} -- ------------------------------------------------------------ diff --git a/src/Text/XML/HXT/RelaxNG/XmlSchema/RegexMatch.hs b/src/Text/XML/HXT/RelaxNG/XmlSchema/RegexMatch.hs --- a/src/Text/XML/HXT/RelaxNG/XmlSchema/RegexMatch.hs +++ b/src/Text/XML/HXT/RelaxNG/XmlSchema/RegexMatch.hs @@ -37,8 +37,11 @@ import Text.XML.HXT.RelaxNG.XmlSchema.Regex import Text.XML.HXT.RelaxNG.XmlSchema.RegexParser --- ------------------------------------------------------------ +{- +import qualified Debug.Trace as T +-} +-- ------------------------------------------------------------ splitRegex :: Regex -> String -> Maybe (String, String) splitRegex re "" @@ -47,14 +50,16 @@ splitRegex re inp@(c : inp') | isZero re = Nothing - | otherwise = evalRes . splitRegex (delta re c) $ inp' + | otherwise = evalRes . splitRegex {- (T.trace (show re') re') -} re' $ inp' where + re' = delta re c evalRes Nothing | nullable re = Just ("", inp) | otherwise = Nothing evalRes (Just (tok, rest)) = Just (c : tok, rest) + -- ------------------------------------------------------------ -- | split a string by taking the longest prefix matching a regular expression @@ -65,7 +70,8 @@ -- examples: -- -- > splitRE "a*b" "abc" = Just ("ab","c") --- > splitRE "a*" "bc" = Just ("", "bc) +-- > splitRE "a*" "bc" = Just ("", "bc") +-- > splitRE "a+" "bc" = Nothing -- > splitRE "[" "abc" = Nothing splitRE :: String -> String -> Maybe (String, String) @@ -116,10 +122,11 @@ | null inp = [] | otherwise = evalRes . splitRegex re $ inp where - evalRes Nothing = token' re (tail inp) -- re does not match any prefix + token'' = token' re + evalRes Nothing = token'' (tail inp) -- re does not match any prefix evalRes (Just (tok, rest)) - | null tok = token' re (tail rest) -- re is nullable and only the empty prefix matches - | otherwise = tok : token' re rest -- token found, tokenize the rest + | null tok = token'' (tail rest) -- re is nullable and only the empty prefix matches + | otherwise = tok : token'' rest -- token found, tokenize the rest -- | convenient function for tokenizeRE a string -- @@ -229,4 +236,3 @@ -- ------------------------------------------------------------ --- ------------------------------------------------------------ diff --git a/src/Text/XML/HXT/RelaxNG/XmlSchema/RegexParser.hs b/src/Text/XML/HXT/RelaxNG/XmlSchema/RegexParser.hs --- a/src/Text/XML/HXT/RelaxNG/XmlSchema/RegexParser.hs +++ b/src/Text/XML/HXT/RelaxNG/XmlSchema/RegexParser.hs @@ -22,8 +22,8 @@ ( parseRegex ) where -import Control.Applicative ( liftA2 ) import Data.Maybe + import Text.ParserCombinators.Parsec import Text.XML.HXT.DOM.Unicode @@ -176,9 +176,9 @@ , ('w', not . isNotWord ) , ('W', isNotWord ) ] - isDigit = ('0' <=) &&& (<= '9') - isNotWord = isUnicodeP ||| - isUnicodeZ ||| + isDigit = ('0' <=) <&&> (<= '9') + isNotWord = isUnicodeP <||> + isUnicodeZ <||> isUnicodeC catEsc :: Parser Regex @@ -204,7 +204,7 @@ then return $ let (lb, ub) = fromJust b in - (lb <=) &&& (<= ub) + (lb <=) <&&> (<= ub) else fail $ "unknown Unicode code block " ++ show name where legalChar c = 'A' <= c && c <= 'Z' || @@ -350,13 +350,5 @@ char '.' return $ mkSym (`notElem` "\n\r") - --- ------------------------------------------------------------ - -(&&&) :: (Char -> Bool) -> (Char -> Bool) -> (Char -> Bool) -(&&&) = liftA2 (&&) - -(|||) :: (Char -> Bool) -> (Char -> Bool) -> (Char -> Bool) -(|||) = liftA2 (||) -- ------------------------------------------------------------ diff --git a/src/Text/XML/HXT/Version.hs b/src/Text/XML/HXT/Version.hs --- a/src/Text/XML/HXT/Version.hs +++ b/src/Text/XML/HXT/Version.hs @@ -1,4 +1,4 @@ module Text.XML.HXT.Version where hxt_version :: String -hxt_version = "8.2.0" +hxt_version = "8.3.0" diff --git a/src/Text/XML/HXT/XPath/XPathEval.hs b/src/Text/XML/HXT/XPath/XPathEval.hs --- a/src/Text/XML/HXT/XPath/XPathEval.hs +++ b/src/Text/XML/HXT/XPath/XPathEval.hs @@ -95,10 +95,10 @@ -- Works like 'getXPath' but the prefix:localpart names in the XPath expression -- are interpreted with respect to the given namespace environment -getXPathWithNsEnv :: NsEnv -> String -> XmlTree -> XmlTrees +getXPathWithNsEnv :: Attributes -> String -> XmlTree -> XmlTrees getXPathWithNsEnv env s = runLA ( canonicalizeForXPath >>> - arrL (getXPathValues xPValue2XmlTrees xPathErr env s) + arrL (getXPathValues xPValue2XmlTrees xPathErr (toNsEnv env) s) ) -- | @@ -119,9 +119,9 @@ -- | Same as 'getXPathSubTrees' but with namespace aware XPath expression -getXPathSubTreesWithNsEnv :: NsEnv -> String -> XmlTree -> XmlTrees +getXPathSubTreesWithNsEnv :: Attributes -> String -> XmlTree -> XmlTrees getXPathSubTreesWithNsEnv nsEnv xpStr - = getXPathValues xPValue2XmlTrees xPathErr nsEnv xpStr + = getXPathValues xPValue2XmlTrees xPathErr (toNsEnv nsEnv) xpStr -- | compute the node set of an XPath query @@ -130,9 +130,9 @@ -- | compute the node set of a namespace aware XPath query -getXPathNodeSetWithNsEnv :: NsEnv -> String -> XmlTree -> XmlNodeSet +getXPathNodeSetWithNsEnv :: Attributes -> String -> XmlTree -> XmlNodeSet getXPathNodeSetWithNsEnv nsEnv xpStr - = getXPathValues xPValue2NodeSet (const (const emptyNodeSet)) nsEnv xpStr + = getXPathValues xPValue2NodeSet (const (const emptyNodeSet)) (toNsEnv nsEnv) xpStr -- | parse xpath, evaluate xpath expr and prepare results diff --git a/src/Text/XML/HXT/XPath/XPathParser.hs b/src/Text/XML/HXT/XPath/XPathParser.hs --- a/src/Text/XML/HXT/XPath/XPathParser.hs +++ b/src/Text/XML/HXT/XPath/XPathParser.hs @@ -2,13 +2,12 @@ {- | Module : Text.XML.HXT.XPath.XPathParser - Copyright : Copyright (C) 2006 Uwe Schmidt + Copyright : Copyright (C) 2006-2008 Uwe Schmidt License : MIT Maintainer : Uwe Schmidt (uwe@fh-wedel.de) Stability : experimental Portability: portable - Version : $Id: XPathParser.hs,v 1.6 2006/10/12 11:51:29 hxml Exp $ the XPath Parser @@ -39,27 +38,26 @@ , qName ) -lookupNs :: NsEnv -> String -> String +lookupNs :: NsEnv -> XName -> XName lookupNs uris prefix - -- downwards compatibility: if namespace env is not supported - -- no error is raised, but the uri remains empty - -- not conformant to XPath spec: If namespaces are used, an complete env must be supported, - -- but we don't care about this - - = lookup1 prefix uris + -- downwards compatibility: if namespace env is not supported + -- no error is raised, but the uri remains empty + -- not conformant to XPath spec: + -- If namespaces are used, a complete env must be supported, + -- but we don't care about this + = fromMaybe nullXName $ lookup prefix uris -enhanceAttrQName :: NsEnv -> QName -> QName +enhanceAttrQName :: NsEnv -> QName -> QName enhanceAttrQName uris qn - | null (namePrefix qn) = qn - | otherwise = enhanceQName uris qn + | isNullXName (namePrefix' qn) = qn + | otherwise = enhanceQName uris qn -enhanceQName :: NsEnv -> QName -> QName -enhanceQName uris qn - = qn {namespaceUri = lookupNs uris (namePrefix qn)} +enhanceQName :: NsEnv -> QName -> QName +enhanceQName uris qn = setNamespaceUri' ( lookupNs uris (namePrefix' qn) ) qn -enhanceQN :: AxisSpec -> NsEnv -> QName -> QName -enhanceQN Attribute = enhanceAttrQName -enhanceQN _ = enhanceQName +enhanceQN :: AxisSpec -> NsEnv -> QName -> QName +enhanceQN Attribute = enhanceAttrQName +enhanceQN _ = enhanceQName type XParser a = GenParser Char NsEnv a @@ -591,7 +589,9 @@ = try ( do (p, n) <- qName uris <- getState - u <- return $ if null p then "" else '{' : lookupNs uris p ++ "}" + u <- return $ if null p + then "" + else '{' : show (lookupNs uris (newXName p)) ++ "}" let fn = (u ++ n) in if fn `elem` ["processing-instruction", "comment", "text", "node"] then fail ("function name: " ++ fn ++ "not allowed") @@ -607,29 +607,27 @@ tokenParser (symbol "$") (p,n) <- qName uris <- getState - return (lookupNs uris p, n) + return (show (lookupNs uris (newXName p)), n) <?> "variableReference" -- [37] NameTest nameTest :: AxisSpec -> XParser QName nameTest as - = do - tokenParser (symbol "*") - uris <- getState - return (enhanceQN as uris $ mkName "*") - <|> try ( do - pre <- ncName - symbol ":*" - uris <- getState - return (enhanceQN as uris $ mkNsName (pre ++ ":*") "") - ) + = do tokenParser (symbol "*") + uris <- getState + return (enhanceQN as uris $ mkPrefixLocalPart "" "*") <|> - do - (pre,local) <- qName - uris <- getState - return (enhanceQN as uris $ mkNsName (pre ++ ":" ++ local) "") - <?> "nameTest" + try ( do pre <- ncName + symbol ":*" + uris <- getState + return (enhanceQN as uris $ mkPrefixLocalPart pre "*") + ) + <|> + do (pre,local) <- qName + uris <- getState + return (enhanceQN as uris $ mkPrefixLocalPart pre local) + <?> "nameTest" -- [38] NodeType @@ -650,3 +648,5 @@ , symbolParser (n_node, XPNode) ] <?> "nodeType" + +-- ------------------------------------------------------------ diff --git a/src/Text/XML/HXT/XSLT/Common.hs b/src/Text/XML/HXT/XSLT/Common.hs --- a/src/Text/XML/HXT/XSLT/Common.hs +++ b/src/Text/XML/HXT/XSLT/Common.hs @@ -2,13 +2,12 @@ {- | Module : Text.XML.HXT.XSLT.Application - Copyright : Copyright (C) 2006 Tim Walkenhorst, Uwe Schmidt + Copyright : Copyright (C) 2006-2008 Tim Walkenhorst, Uwe Schmidt License : MIT Maintainer : Uwe Schmidt (uwe\@fh-wedel.de) Stability : experimental Portability: portable - Version : $Id: Common.hs,v 1.5 2007/05/02 06:41:05 hxml Exp $ Common imports and functions for HXSLT @@ -87,69 +86,73 @@ import Control.Arrow.ListArrow import Control.Arrow.ArrowList -import Text.XML.HXT.Arrow.XmlArrow - ( xshow - ) -import Text.XML.HXT.DOM.XmlNode - ( XmlNode (..) - , mkElement - , mkRoot - , mkAttr - , mergeAttrl - ) +import Text.XML.HXT.Arrow.XmlArrow ( xshow + ) import Text.XML.HXT.DOM.XmlKeywords - -import Text.XML.HXT.DOM.TypeDefs - ( XmlTree - , XNode(XTag, XAttr) - , QName(namePrefix, localPart, namespaceUri) - , equivQName - , mkName - , mkQName - ) - -import Text.XML.HXT.DOM.FormatXmlTree - ( formatXmlTree ) - -import Text.XML.HXT.XPath.XPathDataTypes - ( Expr(LiteralExpr, FctExpr, GenExpr, PathExpr) - , Op(Union) - , LocationPath (LocPath) - , Path (Rel) - , XStep (Step) - , NodeTest (NameTest, PI, TypeTest) - , NavXmlTree - , XPathValue(XPVNode, XPVBool, XPVString, XPVError) - ) - -import Text.XML.HXT.XPath.XPathParser - ( parseXPath ) - -import Text.XML.HXT.XPath.XPathEval - ( evalExpr ) +import Text.XML.HXT.DOM.XmlNode ( XmlNode (..) + , mkElement + , mkRoot + , mkAttr + , mergeAttrl + ) -import Text.XML.HXT.XPath.XPathFct - ( isNotInNodeList ) +import Text.XML.HXT.DOM.TypeDefs ( XmlTree + , XNode(XTag, XAttr) + , QName + , toNsEnv + , namePrefix + , localPart + , namespaceUri + , equivQName + , mkName + , mkQName + ) +import Text.XML.HXT.DOM.FormatXmlTree ( formatXmlTree + ) -import Text.XML.HXT.XPath.XPathToString - ( xPValue2XmlTrees ) +import Text.XML.HXT.XPath.XPathDataTypes( Expr ( LiteralExpr + , FctExpr + , GenExpr + , PathExpr + ) + , Op ( Union ) + , LocationPath ( LocPath ) + , Path ( Rel ) + , XStep ( Step ) + , NodeTest ( NameTest + , PI + , TypeTest + ) + , NavXmlTree + , XPathValue ( XPVNode + , XPVBool + , XPVString + , XPVError + ) + ) +import Text.XML.HXT.XPath.XPathParser ( parseXPath + ) +import Text.XML.HXT.XPath.XPathEval ( evalExpr + ) +import Text.XML.HXT.XPath.XPathFct ( isNotInNodeList + ) +import Text.XML.HXT.XPath.XPathToString ( xPValue2XmlTrees + ) -import Data.Map (Map) +import Data.Map (Map) import qualified Data.Map as Map hiding (Map) import Data.Tree.Class -import Data.NavTree - ( NavTree - , ntree - , subtreeNT - , upNT - , downNT - , rightNT - , leftNT - , getChildrenNT - ) - +import Data.NavTree ( NavTree + , ntree + , subtreeNT + , upNT + , downNT + , rightNT + , leftNT + , getChildrenNT + ) import Data.Maybe import Data.List import Data.Char diff --git a/src/Text/XML/HXT/XSLT/Compilation.hs b/src/Text/XML/HXT/XSLT/Compilation.hs --- a/src/Text/XML/HXT/XSLT/Compilation.hs +++ b/src/Text/XML/HXT/XSLT/Compilation.hs @@ -8,7 +8,6 @@ Maintainer : Uwe Schmidt (uwe\@fh-wedel.de) Stability : experimental Portability: portable - Version : $Id: Compilation.hs,v 1.7 2007/05/02 06:41:05 hxml Exp $ The compilation functions for XSLT stylesheets @@ -22,19 +21,19 @@ ) where -import Control.Monad +import Control.Monad -import Data.Maybe -import Data.Either -import Data.List +import Data.Maybe +import Data.Either +import Data.List import qualified Data.Map as Map hiding (Map) -import Data.Map(Map) +import Data.Map(Map) -import Text.ParserCombinators.Parsec.Prim(runParser) +import Text.ParserCombinators.Parsec.Prim ( runParser ) -import Text.XML.HXT.XSLT.Common -import Text.XML.HXT.XSLT.Names -import Text.XML.HXT.XSLT.CompiledStylesheet +import Text.XML.HXT.XSLT.Common +import Text.XML.HXT.XSLT.Names +import Text.XML.HXT.XSLT.CompiledStylesheet -- No deep meaning just a shortcut notation for a *very* common expression... @@ -50,7 +49,7 @@ parseExpr uris selectStr = either (error.show) id parseResult where - parseResult = runParser parseXPath (Map.toList uris) ("select-expr:"++selectStr) selectStr + parseResult = runParser parseXPath (toNsEnv . Map.toList $ uris) ("select-expr:"++selectStr) selectStr parseSelect :: UriMapping -> String -> SelectExpr parseSelect uris diff --git a/src/hxt-package.hs b/src/hxt-package.hs --- a/src/hxt-package.hs +++ b/src/hxt-package.hs @@ -61,7 +61,7 @@ , "depends: base-4.0.0.0," , " haskell98-1.0.1.0," , " bytestring-0.9.1.4," - , " parallel-1.0.0.1," + , " parallel-1.1.0.0," , " parsec-2.1.0.1," , " network-2.2.0.1," , " containers-0.2.0.0,"