// This defines the interface to the QextScintillaLexerPerl class.
//
// Copyright (c) 2006
// 	Riverbank Computing Limited <info@riverbankcomputing.co.uk>
// 
// This file is part of TQScintilla.
// 
// This copy of TQScintilla 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; either version 2, or (at your option) any
// later version.
// 
// TQScintilla is supplied 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
// TQScintilla; see the file LICENSE.  If not, write to the Free Software
// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.


#ifndef TQEXTSCINTILLALEXERPERL_H
#define TQEXTSCINTILLALEXERPERL_H


#include <tqobject.h>

#include <qextscintillaglobal.h>
#include <qextscintillalexer.h>


//! \brief The QextScintillaLexerPerl class encapsulates the Scintilla Perl
//! lexer.
class TQEXTSCINTILLA_EXPORT QextScintillaLexerPerl : public QextScintillaLexer
{
	Q_OBJECT
  

public:
	//! This enum defines the meanings of the different styles used by the
	//! Perl lexer.
	enum {
		//! The default.
		Default = 0,

		//! \deprecated White space.
		WhiteSpace = Default,

		//! An error.
		Error = 1,

		//! A comment.
		Comment = 2,

		//! A POD.
		POD = 3,

		//! A number.
		Number = 4,

		//! A keyword.
		Keyword = 5,

		//! A double-quoted string.
		DoubleQuotedString = 6,

		//! A single-quoted string.
		SingleQuotedString = 7,

		//! An operator.
		Operator = 10,

		//! An identifier
		Identifier = 11,

		//! A scalar.
		Scalar = 12,

		//! An array.
		Array = 13,

		//! A hash.
		Hash = 14,

		//! A symbol table.
		SymbolTable = 15,

		//! A regular expression.
		Regex = 17,

		//! A substitution.
		Substitution = 18,

		//! Backticks.
		Backticks = 20,

		//! A data section.
		DataSection = 21,

		//! A here document delimiter.
		HereDocumentDelimiter = 22,

		//! A single quoted here document.
		SingleQuotedHereDocument = 23,

		//! A double quoted here document.
		DoubleQuotedHereDocument = 24,

		//! A backtick here document.
		BacktickHereDocument = 25,

		//! A quoted string (q).
		QuotedStringQ = 26,

		//! A quoted string (qq).
		QuotedStringQQ = 27,

		//! A quoted string (qx).
		QuotedStringQX = 28,

		//! A quoted string (qr).
		QuotedStringQR = 29,

		//! A quoted string (qw).
		QuotedStringQW = 30,

		//! A verbatim POD.
		PODVerbatim = 31
	};

	//! Construct a QextScintillaLexerPerl with parent \a parent and name
	//! \a name.  \a parent is typically the QextScintilla instance.
	QextScintillaLexerPerl(TQObject *parent = 0,const char *name = 0);

	//! Destroys the QextScintillaLexerPerl instance.
	virtual ~QextScintillaLexerPerl();

	//! Returns the name of the language.
	const char *language() const;

	//! Returns the name of the lexer.  Some lexers support a number of
	//! languages.
	const char *lexer() const;

	//! \internal Returns the style used for braces for brace matching.
	int braceStyle() const;

	//! \internal Returns the string of characters that comprise a word.
	const char *wordCharacters() const;

	//! Returns the foreground colour of the text for style number
	//! \a style.
	//!
	//! \sa paper()
	TQColor color(int style) const;

	//! Returns the end-of-line fill for style number \a style.
	bool eolFill(int style) const;

	//! Returns the font for style number \a style.
	TQFont font(int style) const;

	//! Returns the set of keywords for the keyword set \a set recognised
	//! by the lexer as a space separated string.
	const char *keywords(int set) const;

	//! Returns the descriptive name for style number \a style.  If the
	//! style is invalid for this language then TQString() is returned.
	//! This is intended to be used in user preference dialogs.
	TQString description(int style) const;

	//! Returns the background colour of the text for style number
	//! \a style.
	//!
	//! \sa color()
	TQColor paper(int style) const;

	//! Causes all properties to be refreshed by emitting the
	//! propertyChanged() signal as required.
	void refreshProperties();

	//! Returns TRUE if multi-line comment blocks can be folded.
	//!
	//! \sa setFoldComments()
	bool foldComments() const;

	//! Returns TRUE if trailing blank lines are included in a fold block.
	//!
	//! \sa setFoldCompact()
	bool foldCompact() const;

public slots:
	//! If \a fold is TRUE then multi-line comment blocks can be folded.
	//! The default is FALSE.
	//!
	//! \sa foldComments()
	virtual void setFoldComments(bool fold);

	//! If \a fold is TRUE then trailing blank lines are included in a fold
	//! block. The default is TRUE.
	//!
	//! \sa foldCompact()
	virtual void setFoldCompact(bool fold);

protected:
	//! The lexer's properties are read from the settings \a qs.  \a prefix
	//! (which has a trailing '/') should be used as a prefix to the key of
	//! each setting.  TRUE is returned if there is no error.
	//!
	bool readProperties(TQSettings &qs,const TQString &prefix);

	//! The lexer's properties are written to the settings \a qs.
	//! \a prefix (which has a trailing '/') should be used as a prefix to
	//! the key of each setting.  TRUE is returned if there is no error.
	//!
	bool writeProperties(TQSettings &qs,const TQString &prefix) const;

private:
	void setCommentProp();
	void setCompactProp();

	bool fold_comments;
	bool fold_compact;

#if defined(TQ_DISABLE_COPY)
	QextScintillaLexerPerl(const QextScintillaLexerPerl &);
	QextScintillaLexerPerl &operator=(const QextScintillaLexerPerl &);
#endif
};

#endif