/**
 * Haskell Brush for Code Syntax Highlighter Version 1.5.1
 * Version 0.1
 * Copyright (C) 2008 Cristiano Paris <cristiano.paris@gmail.com>
 *
 *  This program is free software: you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation, version 3 of the License.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */

dp.sh.Brushes.Haskell = function()
{
        var _split = function(str)
                     {
                       return "\\s"+str.replace(/ /g,"\\s|\\s").replace(/>/g, '&gt;').replace(/</g, '&lt;')+"\\s";
                     }

        var keywords = 'case class data deriving do else if in infixl infixr instance let module of' +
                       'primitive then type where import as hiding qualified newtype default';

        var syntax_operators = '=> -> <- ::';

        var common_operators = "\\$ \\. >>= >>";

        this.regexList = [
                { regex: /--.*$/gm, css: 'comments' },                      			// one line comments
                { regex: /{-[\s\S]*?-}/gm, css: 'comments' },                      	        // multiline comments
                { regex: dp.sh.RegexLib.DoubleQuotedString,  css: 'string' },   		// double quoted strings
                { regex: dp.sh.RegexLib.SingleQuotedString,  css: 'string' },   		// single quoted strings
                { regex: new RegExp('^ *#.*', 'gm'), css: 'preprocessor' },			// preprocessor
                { regex: new RegExp(this.GetKeywords(keywords), 'g'), css: 'keyword' },     	// keyword
                { regex: new RegExp(_split(syntax_operators), 'g'), css: 'syntax_operators' },  // syntax operators
                { regex: new RegExp(_split(common_operators), 'g'), css: 'common_operators' },  // common operators
                { regex: /`\w+`/g, css: 'common_operators' },  					// common operators
                { regex: /\b[A-Z]\w*\b/g, css: 'type_constructors' },  				// type constructors
                         ];

        this.CssClass = 'dp-hs';

        this.Style = '.dp-hs .syntax_operators { color: #993300; }' +
                     '.dp-hs .common_operators { color: #993300; }' +
                     '.dp-hs .type_constructors { font-style: italic; }';
};

dp.sh.Brushes.Haskell.prototype     = new dp.sh.Highlighter();
dp.sh.Brushes.Haskell.Aliases       = ['Haskell', 'haskell', 'hsk'];