diff options
Diffstat (limited to 'tqt/tqextscintillalexersql.cpp')
| -rw-r--r-- | tqt/tqextscintillalexersql.cpp | 457 |
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" |