hxt-8.0.0: doc/hdoc/src/Text-XML-HXT-Parser-ProtocolHandlerUtil.html
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html>
<head>
<!-- Generated by HsColour, http://www.cs.york.ac.uk/fp/darcs/hscolour/ -->
<title>Haskell Code by HsColour</title>
<link type='text/css' rel='stylesheet' href='hscolour.css' />
</head>
<body>
<pre><a name="line-1"></a><span class='comment'>-- ------------------------------------------------------------</span>
<a name="line-2"></a><span class='comment'>--</span>
<a name="line-3"></a><span class='comment'>-- protocol handler utility functions</span>
<a name="line-4"></a><span class='comment'>--</span>
<a name="line-5"></a><span class='comment'>-- Version : $Id: ProtocolHandlerUtil.hs,v 1.4 2005/04/14 12:52:53 hxml Exp $</span>
<a name="line-6"></a>
<a name="line-7"></a><span class='keyword'>module</span> <span class='conid'>Text</span><span class='varop'>.</span><span class='conid'>XML</span><span class='varop'>.</span><span class='conid'>HXT</span><span class='varop'>.</span><span class='conid'>Parser</span><span class='varop'>.</span><span class='conid'>ProtocolHandlerUtil</span>
<a name="line-8"></a> <span class='layout'>(</span> <span class='varid'>parseContentType</span>
<a name="line-9"></a> <span class='layout'>)</span>
<a name="line-10"></a>
<a name="line-11"></a><span class='keyword'>where</span>
<a name="line-12"></a>
<a name="line-13"></a><span class='keyword'>import</span> <span class='conid'>Text</span><span class='varop'>.</span><span class='conid'>XML</span><span class='varop'>.</span><span class='conid'>HXT</span><span class='varop'>.</span><span class='conid'>DOM</span><span class='varop'>.</span><span class='conid'>XmlKeywords</span>
<a name="line-14"></a>
<a name="line-15"></a><span class='keyword'>import</span> <span class='conid'>Text</span><span class='varop'>.</span><span class='conid'>XML</span><span class='varop'>.</span><span class='conid'>HXT</span><span class='varop'>.</span><span class='conid'>DOM</span><span class='varop'>.</span><span class='conid'>Util</span>
<a name="line-16"></a> <span class='layout'>(</span> <span class='varid'>stringToUpper</span>
<a name="line-17"></a> <span class='layout'>)</span>
<a name="line-18"></a>
<a name="line-19"></a><span class='keyword'>import</span> <span class='keyword'>qualified</span> <span class='conid'>Text</span><span class='varop'>.</span><span class='conid'>ParserCombinators</span><span class='varop'>.</span><span class='conid'>Parsec</span> <span class='keyword'>as</span> <span class='conid'>P</span>
<a name="line-20"></a>
<a name="line-21"></a><span class='comment'>-- ------------------------------------------------------------</span>
<a name="line-22"></a><span class='comment'>--</span>
<a name="line-23"></a><span class='comment'>-- try to extract charset spec from Content-Type header</span>
<a name="line-24"></a><span class='comment'>-- e.g. "text/html; charset=ISO-8859-1"</span>
<a name="line-25"></a>
<a name="line-26"></a><span class='comment'>-- sometimes the server deliver the charset spec in quotes</span>
<a name="line-27"></a><span class='comment'>-- these are removed</span>
<a name="line-28"></a>
<a name="line-29"></a><a name="parseContentType"></a><span class='definition'>parseContentType</span> <span class='keyglyph'>::</span> <span class='conid'>P</span><span class='varop'>.</span><span class='conid'>Parser</span> <span class='keyglyph'>[</span><span class='layout'>(</span><span class='conid'>String</span><span class='layout'>,</span> <span class='conid'>String</span><span class='layout'>)</span><span class='keyglyph'>]</span>
<a name="line-30"></a><span class='definition'>parseContentType</span>
<a name="line-31"></a> <span class='keyglyph'>=</span> <span class='conid'>P</span><span class='varop'>.</span><span class='varid'>try</span> <span class='layout'>(</span> <span class='keyword'>do</span>
<a name="line-32"></a> <span class='varid'>mimeType</span> <span class='keyglyph'><-</span> <span class='layout'>(</span> <span class='keyword'>do</span>
<a name="line-33"></a> <span class='varid'>mt</span> <span class='keyglyph'><-</span> <span class='conid'>P</span><span class='varop'>.</span><span class='varid'>many</span> <span class='layout'>(</span><span class='conid'>P</span><span class='varop'>.</span><span class='varid'>noneOf</span> <span class='str'>";"</span><span class='layout'>)</span>
<a name="line-34"></a> <span class='varid'>return</span> <span class='keyglyph'>[</span> <span class='layout'>(</span><span class='varid'>transferMimeType</span><span class='layout'>,</span> <span class='varid'>mt</span><span class='layout'>)</span> <span class='keyglyph'>]</span>
<a name="line-35"></a> <span class='layout'>)</span>
<a name="line-36"></a> <span class='varid'>charset</span> <span class='keyglyph'><-</span> <span class='layout'>(</span> <span class='keyword'>do</span>
<a name="line-37"></a> <span class='conid'>P</span><span class='varop'>.</span><span class='varid'>char</span> <span class='chr'>';'</span>
<a name="line-38"></a> <span class='conid'>P</span><span class='varop'>.</span><span class='varid'>many</span> <span class='layout'>(</span><span class='conid'>P</span><span class='varop'>.</span><span class='varid'>oneOf</span> <span class='str'>" \t'"</span><span class='layout'>)</span>
<a name="line-39"></a> <span class='conid'>P</span><span class='varop'>.</span><span class='varid'>string</span> <span class='str'>"charset="</span>
<a name="line-40"></a> <span class='conid'>P</span><span class='varop'>.</span><span class='varid'>option</span> <span class='chr'>'"'</span> <span class='layout'>(</span><span class='conid'>P</span><span class='varop'>.</span><span class='varid'>oneOf</span> <span class='str'>"\"'"</span><span class='layout'>)</span>
<a name="line-41"></a> <span class='varid'>cs</span> <span class='keyglyph'><-</span> <span class='conid'>P</span><span class='varop'>.</span><span class='varid'>many1</span> <span class='layout'>(</span><span class='conid'>P</span><span class='varop'>.</span><span class='varid'>noneOf</span> <span class='str'>"\"'"</span><span class='layout'>)</span>
<a name="line-42"></a> <span class='varid'>return</span> <span class='keyglyph'>[</span> <span class='layout'>(</span><span class='varid'>transferEncoding</span><span class='layout'>,</span> <span class='varid'>stringToUpper</span> <span class='varid'>cs</span><span class='layout'>)</span> <span class='keyglyph'>]</span>
<a name="line-43"></a> <span class='layout'>)</span>
<a name="line-44"></a> <span class='varid'>return</span> <span class='layout'>(</span><span class='varid'>mimeType</span> <span class='varop'>++</span> <span class='varid'>charset</span><span class='layout'>)</span>
<a name="line-45"></a> <span class='layout'>)</span>
<a name="line-46"></a> <span class='conid'>P</span><span class='varop'>.<|></span>
<a name="line-47"></a> <span class='layout'>(</span> <span class='keyword'>do</span>
<a name="line-48"></a> <span class='varid'>mimeType</span> <span class='keyglyph'><-</span> <span class='conid'>P</span><span class='varop'>.</span><span class='varid'>many</span> <span class='layout'>(</span><span class='conid'>P</span><span class='varop'>.</span><span class='varid'>noneOf</span> <span class='str'>";"</span><span class='layout'>)</span>
<a name="line-49"></a> <span class='varid'>return</span> <span class='keyglyph'>[</span> <span class='layout'>(</span><span class='varid'>transferMimeType</span><span class='layout'>,</span> <span class='varid'>mimeType</span><span class='layout'>)</span> <span class='keyglyph'>]</span>
<a name="line-50"></a> <span class='layout'>)</span>
<a name="line-51"></a>
<a name="line-52"></a><span class='comment'>-- ------------------------------------------------------------</span>
<a name="line-53"></a>
</pre></body>
</html>