1 files changed, 457 insertions, 0 deletions
diff --git a/tqt/tqextscintillalexersql.cpp b/tqt/tqextscintillalexersql.cpp
new file mode 100644
index 0000000..7d296ea
--- /dev/null
+++ b/tqt/tqextscintillalexersql.cpp
@@ -0,0 +1,457 @@
+// This module implements the TQextScintillaLexerSQL 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.
+
+#ifdef HAVE_CONFIG_H
+#  include "config.h"
+#endif
+
+#include <tqcolor.h>
+#include <tqfont.h>
+#include <tqsettings.h>
+
+#include "tqextscintillalexersql.h"
+
+
+// The ctor.
+TQextScintillaLexerSQL::TQextScintillaLexerSQL(TQObject *parent,const char *name)
+	: TQextScintillaLexer(parent,name), fold_comments(FALSE),
+	  fold_compact(TRUE), backslash_escapes(FALSE)
+{
+}
+
+
+// The dtor.
+TQextScintillaLexerSQL::~TQextScintillaLexerSQL()
+{
+}
+
+
+// Returns the language name.
+const char *TQextScintillaLexerSQL::language() const
+{
+	return "SQL";
+}
+
+
+// Returns the lexer name.
+const char *TQextScintillaLexerSQL::lexer() const
+{
+	return "sql";
+}
+
+
+// Return the style used for braces.
+int TQextScintillaLexerSQL::braceStyle() const
+{
+	return Operator;
+}
+
+
+// Returns the foreground colour of the text for a style.
+TQColor TQextScintillaLexerSQL::color(int style) const
+{
+	switch (style)
+	{
+	case Default:
+		return TQColor(0x80,0x80,0x80);
+
+	case Comment:
+	case CommentLine:
+	case PlusPrompt:
+	case PlusComment:
+	case CommentLineHash:
+		return TQColor(0x00,0x7f,0x00);
+
+	case CommentDoc:
+		return TQColor(0x7f,0x7f,0x7f);
+
+	case Number:
+		return TQColor(0x00,0x7f,0x7f);
+
+	case Keyword:
+		return TQColor(0x00,0x00,0x7f);
+
+	case DoubleQuotedString:
+	case SingleQuotedString:
+		return TQColor(0x7f,0x00,0x7f);
+
+	case PlusKeyword:
+		return TQColor(0x7f,0x7f,0x00);
+
+	case Operator:
+	case Identifier:
+		break;
+
+	case CommentDocKeyword:
+		return TQColor(0x30,0x60,0xa0);
+
+	case CommentDocKeywordError:
+		return TQColor(0x80,0x40,0x20);
+
+	case KeywordSet5:
+		return TQColor(0x4b,0x00,0x82);
+
+	case KeywordSet6:
+		return TQColor(0xb0,0x00,0x40);
+
+	case KeywordSet7:
+		return TQColor(0x8b,0x00,0x00);
+
+	case KeywordSet8:
+		return TQColor(0x80,0x00,0x80);
+	}
+
+	return TQextScintillaLexer::color(style);
+}
+
+
+// Returns the end-of-line fill for a style.
+bool TQextScintillaLexerSQL::eolFill(int style) const
+{
+	return (style == PlusPrompt);
+}
+
+
+// Returns the font of the text for a style.
+TQFont TQextScintillaLexerSQL::font(int style) const
+{
+	TQFont f;
+
+	switch (style)
+	{
+	case Comment:
+	case CommentLine:
+	case PlusComment:
+	case CommentLineHash:
+	case CommentDocKeyword:
+	case CommentDocKeywordError:
+#if defined(Q_OS_WIN)
+		f = TQFont("Comic Sans MS",9);
+#else
+		f = TQFont("Bitstream Vera Serif",9);
+#endif
+		break;
+
+	case Keyword:
+	case Operator:
+		f = TQextScintillaLexer::font(style);
+		f.setBold(TRUE);
+		break;
+
+	case DoubleQuotedString:
+	case SingleQuotedString:
+	case PlusPrompt:
+#if defined(Q_OS_WIN)
+		f = TQFont("Courier New",10);
+#else
+		f = TQFont("Bitstream Vera Sans Mono",9);
+#endif
+		break;
+
+	default:
+		f = TQextScintillaLexer::font(style);
+	}
+
+	return f;
+}
+
+
+// Returns the set of keywords.
+const char *TQextScintillaLexerSQL::keywords(int set) const
+{
+	if (set == 1)
+		return
+			"absolute action add admin after aggregate alias all "
+			"allocate alter and any are array as asc assertion "
+			"at authorization before begin binary bit blob "
+			"boolean both breadth by call cascade cascaded case "
+			"cast catalog char character check class clob close "
+			"collate collation column commit completion connect "
+			"connection constraint constraints constructor "
+			"continue corresponding create cross cube current "
+			"current_date current_path current_role current_time "
+			"current_timestamp current_user cursor cycle data "
+			"date day deallocate dec decimal declare default "
+			"deferrable deferred delete depth deref desc "
+			"describe descriptor destroy destructor "
+			"deterministic dictionary diagnostics disconnect "
+			"distinct domain double drop dynamic each else end "
+			"end-exec equals escape every except exception exec "
+			"execute external false fetch first float for "
+			"foreign found from free full function general get "
+			"global go goto grant group grouping having host "
+			"hour identity if ignore immediate in indicator "
+			"initialize initially inner inout input insert int "
+			"integer intersect interval into is isolation "
+			"iterate join key language large last lateral "
+			"leading left less level like limit local localtime "
+			"localtimestamp locator map match minute modifies "
+			"modify module month names national natural nchar "
+			"nclob new next no none not null numeric object of "
+			"off old on only open operation option or order "
+			"ordinality out outer output pad parameter "
+			"parameters partial path postfix precision prefix "
+			"preorder prepare preserve primary prior privileges "
+			"procedure public read reads real recursive ref "
+			"references referencing relative restrict result "
+			"return returns revoke right role rollback rollup "
+			"routine row rows savepoint schema scroll scope "
+			"search second section select sequence session "
+			"session_user set sets size smallint some| space "
+			"specific specifictype sql sqlexception sqlstate "
+			"sqlwarning start state statement static structure "
+			"system_user table temporary terminate than then "
+			"time timestamp timezone_hour timezone_minute to "
+			"trailing transaction translation treat trigger "
+			"true under union unique unknown unnest update usage "
+			"user using value values varchar variable varying "
+			"view when whenever where with without work write "
+			"year zone";
+
+	if (set == 4)
+		return
+			"acc~ept a~ppend archive log attribute bre~ak "
+			"bti~tle c~hange cl~ear col~umn comp~ute conn~ect "
+			"copy def~ine del desc~ribe disc~onnect e~dit "
+			"exec~ute exit get help ho~st i~nput l~ist passw~ord "
+			"pau~se pri~nt pro~mpt quit recover rem~ark "
+			"repf~ooter reph~eader r~un sav~e set sho~w shutdown "
+			"spo~ol sta~rt startup store timi~ng tti~tle "
+			"undef~ine var~iable whenever oserror whenever "
+			"sqlerror";
+
+	return 0;
+}
+
+
+// Returns the user name of a style.
+TQString TQextScintillaLexerSQL::description(int style) const
+{
+	switch (style)
+	{
+	case Default:
+		return tr("Default");
+
+	case Comment:
+		return tr("Comment");
+
+	case CommentLine:
+		return tr("Comment line");
+
+	case CommentDoc:
+		return tr("JavaDoc style comment");
+
+	case Number:
+		return tr("Number");
+
+	case Keyword:
+		return tr("Keyword");
+
+	case DoubleQuotedString:
+		return tr("Double-quoted string");
+
+	case SingleQuotedString:
+		return tr("Single-quoted string");
+
+	case PlusKeyword:
+		return tr("SQL*Plus keyword");
+
+	case PlusPrompt:
+		return tr("SQL*Plus prompt");
+
+	case Operator:
+		return tr("Operator");
+
+	case Identifier:
+		return tr("Identifier");
+
+	case PlusComment:
+		return tr("SQL*Plus comment");
+
+	case CommentLineHash:
+		return tr("# comment line");
+
+	case CommentDocKeyword:
+		return tr("JavaDoc keyword");
+
+	case CommentDocKeywordError:
+		return tr("JavaDoc keyword error");
+
+	case KeywordSet5:
+		return tr("User defined 1");
+
+	case KeywordSet6:
+		return tr("User defined 2");
+
+	case KeywordSet7:
+		return tr("User defined 3");
+
+	case KeywordSet8:
+		return tr("User defined 4");
+	}
+
+	return TQString();
+}
+
+
+// Returns the background colour of the text for a style.
+TQColor TQextScintillaLexerSQL::paper(int style) const
+{
+	if (style == PlusPrompt)
+		return TQColor(0xe0,0xff,0xe0);
+
+	return TQextScintillaLexer::paper(style);
+}
+
+
+// Refresh all properties.
+void TQextScintillaLexerSQL::refreshProperties()
+{
+	setCommentProp();
+	setCompactProp();
+	setBackslashEscapesProp();
+}
+
+
+// Read properties from the settings.
+bool TQextScintillaLexerSQL::readProperties(TQSettings &qs,const TQString &prefix)
+{
+	int rc = TRUE;
+	bool ok, flag;
+
+	// Read the fold comments flag.
+	flag = qs.readBoolEntry(prefix + "foldcomments",FALSE,&ok);
+
+	if (ok)
+		fold_comments = flag;
+	else
+		rc = FALSE;
+
+	// Read the fold compact flag.
+	flag = qs.readBoolEntry(prefix + "foldcompact",TRUE,&ok);
+
+	if (ok)
+		fold_compact = flag;
+	else
+		rc = FALSE;
+
+	// Read the backslash escapes flag.
+	flag = qs.readBoolEntry(prefix + "backslashescapes",FALSE,&ok);
+
+	if (ok)
+		backslash_escapes = flag;
+	else
+		rc = FALSE;
+
+	return rc;
+}
+
+
+// Write properties to the settings.
+bool TQextScintillaLexerSQL::writeProperties(TQSettings &qs,const TQString &prefix) const
+{
+	int rc = TRUE;
+
+	// Write the fold comments flag.
+	if (!qs.writeEntry(prefix + "foldcomments",fold_comments))
+		rc = FALSE;
+
+	// Write the fold compact flag.
+	if (!qs.writeEntry(prefix + "foldcompact",fold_compact))
+		rc = FALSE;
+
+	// Write the backslash escapes flag.
+	if (!qs.writeEntry(prefix + "backslashescapes",backslash_escapes))
+		rc = FALSE;
+
+	return rc;
+}
+
+
+// Return TRUE if comments can be folded.
+bool TQextScintillaLexerSQL::foldComments() const
+{
+	return fold_comments;
+}
+
+
+// Set if comments can be folded.
+void TQextScintillaLexerSQL::setFoldComments(bool fold)
+{
+	fold_comments = fold;
+
+	setCommentProp();
+}
+
+
+// Set the "fold.comment" property.
+void TQextScintillaLexerSQL::setCommentProp()
+{
+	emit propertyChanged("fold.comment",(fold_comments ? "1" : "0"));
+}
+
+
+// Return TRUE if folds are compact.
+bool TQextScintillaLexerSQL::foldCompact() const
+{
+	return fold_compact;
+}
+
+
+// Set if folds are compact
+void TQextScintillaLexerSQL::setFoldCompact(bool fold)
+{
+	fold_compact = fold;
+
+	setCompactProp();
+}
+
+
+// Set the "fold.compact" property.
+void TQextScintillaLexerSQL::setCompactProp()
+{
+	emit propertyChanged("fold.compact",(fold_compact ? "1" : "0"));
+}
+
+
+// Return TRUE if backslash escapes are enabled.
+bool TQextScintillaLexerSQL::backslashEscapes() const
+{
+	return backslash_escapes;
+}
+
+
+// Enable/disable backslash escapes.
+void TQextScintillaLexerSQL::setBackslashEscapes(bool enable)
+{
+	backslash_escapes = enable;
+
+	setBackslashEscapesProp();
+}
+
+
+// Set the "sql.backslash.escapes" property.
+void TQextScintillaLexerSQL::setBackslashEscapesProp()
+{
+	emit propertyChanged("sql.backslash.escapes",(backslash_escapes ? "1" : "0"));
+}
+
+#include "tqextscintillalexersql.moc"