1 // Scintilla source code edit control
\r
3 ** Lexer for KIX-Scripts.
\r
5 // Copyright 2004 by Manfred Becker <manfred@becker-trdf.de>
\r
6 // The License.txt file describes the conditions under which this software may be distributed.
\r
14 #include "Platform.h"
\r
16 #include "PropSet.h"
\r
17 #include "Accessor.h"
\r
18 #include "StyleContext.h"
\r
19 #include "KeyWords.h"
\r
20 #include "Scintilla.h"
\r
21 #include "SciLexer.h"
\r
23 #ifdef SCI_NAMESPACE
\r
24 using namespace Scintilla;
\r
27 // Extended to accept accented characters
\r
28 static inline bool IsAWordChar(int ch) {
\r
29 return ch >= 0x80 || isalnum(ch) || ch == '_';
\r
32 static inline bool IsOperator(const int ch) {
\r
33 return (ch == '+' || ch == '-' || ch == '*' || ch == '/' || ch == '&' || ch == '|' || ch == '<' || ch == '>' || ch == '=');
\r
36 static void ColouriseKixDoc(unsigned int startPos, int length, int initStyle,
\r
37 WordList *keywordlists[], Accessor &styler) {
\r
39 WordList &keywords = *keywordlists[0];
\r
40 WordList &keywords2 = *keywordlists[1];
\r
41 WordList &keywords3 = *keywordlists[2];
\r
42 // WordList &keywords4 = *keywordlists[3];
\r
44 styler.StartAt(startPos);
\r
46 StyleContext sc(startPos, length, initStyle, styler);
\r
48 for (; sc.More(); sc.Forward()) {
\r
50 if (sc.state == SCE_KIX_COMMENT) {
\r
52 sc.SetState(SCE_KIX_DEFAULT);
\r
54 } else if (sc.state == SCE_KIX_STRING1) {
\r
55 // This is a doubles quotes string
\r
56 if (sc.ch == '\"') {
\r
57 sc.ForwardSetState(SCE_KIX_DEFAULT);
\r
59 } else if (sc.state == SCE_KIX_STRING2) {
\r
60 // This is a single quote string
\r
61 if (sc.ch == '\'') {
\r
62 sc.ForwardSetState(SCE_KIX_DEFAULT);
\r
64 } else if (sc.state == SCE_KIX_NUMBER) {
\r
65 if (!IsADigit(sc.ch)) {
\r
66 sc.SetState(SCE_KIX_DEFAULT);
\r
68 } else if (sc.state == SCE_KIX_VAR) {
\r
69 if (!IsAWordChar(sc.ch)) {
\r
70 sc.SetState(SCE_KIX_DEFAULT);
\r
72 } else if (sc.state == SCE_KIX_MACRO) {
\r
73 if (!IsAWordChar(sc.ch) && !IsADigit(sc.ch)) {
\r
75 sc.GetCurrentLowered(s, sizeof(s));
\r
77 if (!keywords3.InList(&s[1])) {
\r
78 sc.ChangeState(SCE_KIX_DEFAULT);
\r
80 sc.SetState(SCE_KIX_DEFAULT);
\r
82 } else if (sc.state == SCE_KIX_OPERATOR) {
\r
83 if (!IsOperator(sc.ch)) {
\r
84 sc.SetState(SCE_KIX_DEFAULT);
\r
86 } else if (sc.state == SCE_KIX_IDENTIFIER) {
\r
87 if (!IsAWordChar(sc.ch)) {
\r
89 sc.GetCurrentLowered(s, sizeof(s));
\r
91 if (keywords.InList(s)) {
\r
92 sc.ChangeState(SCE_KIX_KEYWORD);
\r
93 } else if (keywords2.InList(s)) {
\r
94 sc.ChangeState(SCE_KIX_FUNCTIONS);
\r
96 sc.SetState(SCE_KIX_DEFAULT);
\r
100 // Determine if a new state should be entered.
\r
101 if (sc.state == SCE_KIX_DEFAULT) {
\r
102 if (sc.ch == ';') {
\r
103 sc.SetState(SCE_KIX_COMMENT);
\r
104 } else if (sc.ch == '\"') {
\r
105 sc.SetState(SCE_KIX_STRING1);
\r
106 } else if (sc.ch == '\'') {
\r
107 sc.SetState(SCE_KIX_STRING2);
\r
108 } else if (sc.ch == '$') {
\r
109 sc.SetState(SCE_KIX_VAR);
\r
110 } else if (sc.ch == '@') {
\r
111 sc.SetState(SCE_KIX_MACRO);
\r
112 } else if (IsADigit(sc.ch) || ((sc.ch == '.' || sc.ch == '&') && IsADigit(sc.chNext))) {
\r
113 sc.SetState(SCE_KIX_NUMBER);
\r
114 } else if (IsOperator(sc.ch)) {
\r
115 sc.SetState(SCE_KIX_OPERATOR);
\r
116 } else if (IsAWordChar(sc.ch)) {
\r
117 sc.SetState(SCE_KIX_IDENTIFIER);
\r
125 LexerModule lmKix(SCLEX_KIX, ColouriseKixDoc, "kix");
\r