summaryrefslogtreecommitdiffstats
path: root/tqt/tqextscintillalexersql.cpp
blob: 7d296eae0f5f2857e64000f49b0b5660123401e5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
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"