-- |
-- UTF-8 character parser and simple XML token parsers
--
-- Version : $Id: XmlCharParser.hs,v 1.8 2004/03/19 19:09:40 hxml Exp $

module XmlCharParser
    ( xmlChar			-- xml char parsers
    , xmlNameChar
    , xmlNameStartChar
    , xmlNCNameChar
    , xmlNCNameStartChar
    , xmlLetter
    , xmlSpaceChar
    )
where

import Unicode
import Text.ParserCombinators.Parsec

-- ------------------------------------------------------------
--
-- Char (2.2)
--

-- |
-- parse a single Unicode character

xmlChar			:: Parser Unicode
xmlChar			= satisfy isXmlChar <?> "legal XML character"

-- |
-- parse a XML name character

xmlNameChar		:: Parser Unicode
xmlNameChar		= satisfy isXmlNameChar <?> "legal XML name character"
 
-- |
-- parse a XML name start character

xmlNameStartChar	:: Parser Unicode
xmlNameStartChar	= satisfy isXmlNameStartChar <?> "legal XML name start character"
 
-- |
-- parse a XML NCName character

xmlNCNameChar		:: Parser Unicode
xmlNCNameChar		= satisfy isXmlNCNameChar <?> "legal XML NCName character"
 
-- |
-- parse a XML NCName start character

xmlNCNameStartChar	:: Parser Unicode
xmlNCNameStartChar	= satisfy isXmlNCNameStartChar <?> "legal XML NCName start character"
 
-- |
-- parse a XML letter character

xmlLetter		:: Parser Unicode
xmlLetter		= satisfy isXmlLetter <?> "legal XML letter"

-- |
-- White Space (2.3)
--
-- end of line handling (2.11)
-- \#x0D and \#x0D\#x0A are mapped to \#x0A
-- is done in XmlInput before parsing
-- otherwise \#x0D in internal parsing, e.g. for entities would normalize,
-- would be transformed

xmlSpaceChar		:: Parser Char
xmlSpaceChar		= satisfy isXmlSpaceChar <?> "white space"

-- ------------------------------------------------------------