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
|
// This module implements the QextScintillaLexerTeX 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.
#include <tqcolor.h>
#include <tqfont.h>
#include <tqsettings.h>
#include "qextscintillalexertex.h"
// The ctor.
QextScintillaLexerTeX::QextScintillaLexerTeX(TQObject *parent,const char *name)
: QextScintillaLexer(parent,name)
{
}
// The dtor.
QextScintillaLexerTeX::~QextScintillaLexerTeX()
{
}
// Returns the language name.
const char *QextScintillaLexerTeX::language() const
{
return "TeX";
}
// Returns the lexer name.
const char *QextScintillaLexerTeX::lexer() const
{
return "tex";
}
// Return the string of characters that comprise a word.
const char *QextScintillaLexerTeX::wordCharacters() const
{
return "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPTQRSTUVWXYZ\\@";
}
// Returns the foreground colour of the text for a style.
TQColor QextScintillaLexerTeX::color(int style) const
{
switch (style)
{
case Default:
return TQColor(0x3f,0x3f,0x3f);
case Special:
return TQColor(0x00,0x7f,0x7f);
case Group:
return TQColor(0x7f,0x00,0x00);
case Symbol:
return TQColor(0x7f,0x7f,0x00);
case Command:
return TQColor(0x00,0x7f,0x00);
}
return QextScintillaLexer::color(style);
}
// Returns the set of keywords.
const char *QextScintillaLexerTeX::keywords(int set) const
{
if (set == 1)
return
"above abovedisplayshortskip abovedisplayskip "
"abovewithdelims accent adjdemerits advance "
"afterassignment aftergroup atop atopwithdelims "
"badness baselineskip batchmode begingroup "
"belowdisplayshortskip belowdisplayskip binoppenalty "
"botmark box boxmaxdepth brokenpenalty catcode char "
"chardef cleaders closein closeout clubpenalty copy "
"count countdef cr crcr csname day deadcycles def "
"defaulthyphenchar defaultskewchar delcode delimiter "
"delimiterfactor delimeters delimitershortfall "
"delimeters dimen dimendef discretionary "
"displayindent displaylimits displaystyle "
"displaywidowpenalty displaywidth divide "
"doublehyphendemerits dp dump edef else "
"emergencystretch end endcsname endgroup endinput "
"endlinechar eqno errhelp errmessage "
"errorcontextlines errorstopmode escapechar everycr "
"everydisplay everyhbox everyjob everymath everypar "
"everyvbox exhyphenpenalty expandafter fam fi "
"finalhyphendemerits firstmark floatingpenalty font "
"fontdimen fontname futurelet gdef global group "
"globaldefs halign hangafter hangindent hbadness "
"hbox hfil horizontal hfill horizontal hfilneg hfuzz "
"hoffset holdinginserts hrule hsize hskip hss "
"horizontal ht hyphenation hyphenchar hyphenpenalty "
"hyphen if ifcase ifcat ifdim ifeof iffalse ifhbox "
"ifhmode ifinner ifmmode ifnum ifodd iftrue ifvbox "
"ifvmode ifvoid ifx ignorespaces immediate indent "
"input inputlineno input insert insertpenalties "
"interlinepenalty jobname kern language lastbox "
"lastkern lastpenalty lastskip lccode leaders left "
"lefthyphenmin leftskip leqno let limits linepenalty "
"line lineskip lineskiplimit long looseness lower "
"lowercase mag mark mathaccent mathbin mathchar "
"mathchardef mathchoice mathclose mathcode mathinner "
"mathop mathopen mathord mathpunct mathrel "
"mathsurround maxdeadcycles maxdepth meaning "
"medmuskip message mkern month moveleft moveright "
"mskip multiply muskip muskipdef newlinechar noalign "
"noboundary noexpand noindent nolimits nonscript "
"scriptscript nonstopmode nulldelimiterspace "
"nullfont number omit openin openout or outer output "
"outputpenalty over overfullrule overline "
"overwithdelims pagedepth pagefilllstretch "
"pagefillstretch pagefilstretch pagegoal pageshrink "
"pagestretch pagetotal par parfillskip parindent "
"parshape parskip patterns pausing penalty "
"postdisplaypenalty predisplaypenalty predisplaysize "
"pretolerance prevdepth prevgraf radical raise read "
"relax relpenalty right righthyphenmin rightskip "
"romannumeral scriptfont scriptscriptfont "
"scriptscriptstyle scriptspace scriptstyle "
"scrollmode setbox setlanguage sfcode shipout show "
"showbox showboxbreadth showboxdepth showlists "
"showthe skewchar skip skipdef spacefactor spaceskip "
"span special splitbotmark splitfirstmark "
"splitmaxdepth splittopskip string tabskip textfont "
"textstyle the thickmuskip thinmuskip time toks "
"toksdef tolerance topmark topskip tracingcommands "
"tracinglostchars tracingmacros tracingonline "
"tracingoutput tracingpages tracingparagraphs "
"tracingrestores tracingstats uccode uchyph "
"underline unhbox unhcopy unkern unpenalty unskip "
"unvbox unvcopy uppercase vadjust valign vbadness "
"vbox vcenter vfil vfill vfilneg vfuzz voffset vrule "
"vsize vskip vsplit vss vtop wd widowpenalty write "
"xdef xleaders xspaceskip year "
"TeX bgroup egroup endgraf space empty null newcount "
"newdimen newskip newmuskip newbox newtoks newhelp "
"newread newwrite newfam newlanguage newinsert newif "
"maxdimen magstephalf magstep frenchspacing "
"nonfrenchspacing normalbaselines obeylines "
"obeyspaces raggedr ight ttraggedright thinspace "
"negthinspace enspace enskip quad qquad smallskip "
"medskip bigskip removelastskip topglue vglue hglue "
"break nobreak allowbreak filbreak goodbreak "
"smallbreak medbreak bigbreak line leftline "
"rightline centerline rlap llap underbar strutbox "
"strut cases matrix pmatrix bordermatrix eqalign "
"displaylines eqalignno leqalignno pageno folio "
"tracingall showhyphens fmtname fmtversion hphantom "
"vphantom phantom smash";
return 0;
}
// Returns the user name of a style.
TQString QextScintillaLexerTeX::description(int style) const
{
switch (style)
{
case Default:
return tr("Default");
case Special:
return tr("Special");
case Group:
return tr("Group");
case Symbol:
return tr("Symbol");
case Command:
return tr("Command");
case Text:
return tr("Text");
}
return TQString();
}
|
