You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
458 lines
10 KiB
458 lines
10 KiB
// 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"
|