src/stc/scintilla/src/LexKix.cxx

   1 // Scintilla source code edit control
   2 /** @file LexKix.cxx
   3  ** Lexer for KIX-Scripts.
   4  **/
   5 // Copyright 2004 by Manfred Becker <manfred@becker-trdf.de>
   6 // The License.txt file describes the conditions under which this software may be distributed.
   7
   8 #include <stdlib.h>
   9 #include <string.h>
  10 #include <ctype.h>
  11 #include <stdio.h>
  12 #include <stdarg.h>
  13
  14 #include "Platform.h"
  15
  16 #include "PropSet.h"
  17 #include "Accessor.h"
  18 #include "StyleContext.h"
  19 #include "KeyWords.h"
  20 #include "Scintilla.h"
  21 #include "SciLexer.h"
  22
  23 #ifdef SCI_NAMESPACE
  24 using namespace Scintilla;
  25 #endif
  26
  27 // Extended to accept accented characters
  28 static inline bool IsAWordChar(int ch) {
  29         return ch >= 0x80 || isalnum(ch) || ch == '_';
  30 }
  31
  32 static inline bool IsOperator(const int ch) {
  33         return (ch == '+' || ch == '-' || ch == '*' || ch == '/' || ch == '&' || ch == '|' || ch == '<' || ch == '>' || ch == '=');
  34 }
  35
  36 static void ColouriseKixDoc(unsigned int startPos, int length, int initStyle,
  37                            WordList *keywordlists[], Accessor &styler) {
  38
  39         WordList &keywords = *keywordlists[0];
  40         WordList &keywords2 = *keywordlists[1];
  41         WordList &keywords3 = *keywordlists[2];
  42 //      WordList &keywords4 = *keywordlists[3];
  43
  44         styler.StartAt(startPos);
  45
  46         StyleContext sc(startPos, length, initStyle, styler);
  47
  48         for (; sc.More(); sc.Forward()) {
  49
  50                 if (sc.state == SCE_KIX_COMMENT) {
  51                         if (sc.atLineEnd) {
  52                                 sc.SetState(SCE_KIX_DEFAULT);
  53                         }
  54                 } else if (sc.state == SCE_KIX_STRING1) {
  55                         // This is a doubles quotes string
  56                         if (sc.ch == '\"') {
  57                                 sc.ForwardSetState(SCE_KIX_DEFAULT);
  58                         }
  59                 } else if (sc.state == SCE_KIX_STRING2) {
  60                         // This is a single quote string
  61                         if (sc.ch == '\'') {
  62                                 sc.ForwardSetState(SCE_KIX_DEFAULT);
  63                         }
  64                 } else if (sc.state == SCE_KIX_NUMBER) {
  65                         if (!IsADigit(sc.ch)) {
  66                                 sc.SetState(SCE_KIX_DEFAULT);
  67                         }
  68                 } else if (sc.state == SCE_KIX_VAR) {
  69                         if (!IsAWordChar(sc.ch)) {
  70                                 sc.SetState(SCE_KIX_DEFAULT);
  71                         }
  72                 } else if (sc.state == SCE_KIX_MACRO) {
  73                         if (!IsAWordChar(sc.ch) && !IsADigit(sc.ch)) {
  74                                 char s[100];
  75                                 sc.GetCurrentLowered(s, sizeof(s));
  76
  77                                 if (!keywords3.InList(&s[1])) {
  78                                         sc.ChangeState(SCE_KIX_DEFAULT);
  79                                 }
  80                                 sc.SetState(SCE_KIX_DEFAULT);
  81                         }
  82                 } else if (sc.state == SCE_KIX_OPERATOR) {
  83                         if (!IsOperator(sc.ch)) {
  84                                 sc.SetState(SCE_KIX_DEFAULT);
  85                         }
  86                 } else if (sc.state == SCE_KIX_IDENTIFIER) {
  87                         if (!IsAWordChar(sc.ch)) {
  88                                 char s[100];
  89                                 sc.GetCurrentLowered(s, sizeof(s));
  90
  91                                 if (keywords.InList(s)) {
  92                                         sc.ChangeState(SCE_KIX_KEYWORD);
  93                                 } else if (keywords2.InList(s)) {
  94                                         sc.ChangeState(SCE_KIX_FUNCTIONS);
  95                                 }
  96                                 sc.SetState(SCE_KIX_DEFAULT);
  97                         }
  98                 }
  99
 100                 // Determine if a new state should be entered.
 101                 if (sc.state == SCE_KIX_DEFAULT) {
 102                         if (sc.ch == ';') {
 103                                 sc.SetState(SCE_KIX_COMMENT);
 104                         } else if (sc.ch == '\"') {
 105                                 sc.SetState(SCE_KIX_STRING1);
 106                         } else if (sc.ch == '\'') {
 107                                 sc.SetState(SCE_KIX_STRING2);
 108                         } else if (sc.ch == '$') {
 109                                 sc.SetState(SCE_KIX_VAR);
 110                         } else if (sc.ch == '@') {
 111                                 sc.SetState(SCE_KIX_MACRO);
 112                         } else if (IsADigit(sc.ch) || ((sc.ch == '.' || sc.ch == '&') && IsADigit(sc.chNext))) {
 113                                 sc.SetState(SCE_KIX_NUMBER);
 114                         } else if (IsOperator(sc.ch)) {
 115                                 sc.SetState(SCE_KIX_OPERATOR);
 116                         } else if (IsAWordChar(sc.ch)) {
 117                                 sc.SetState(SCE_KIX_IDENTIFIER);
 118                         }
 119                 }
 120         }
 121         sc.Complete();
 122 }
 123
 124
 125 LexerModule lmKix(SCLEX_KIX, ColouriseKixDoc, "kix");
 126