| blob | ddb9621050f804262b84b642859de19867991725 |
1 // Scintilla source code edit control
2 /** @file LexLua.cxx
3 ** Lexer for Lua language.
4 **
5 ** Written by Paul Winwood.
6 ** Folder by Alexey Yutkin.
7 ** Modified by Marcos E. Wurzius & Philippe Lhoste
8 **/
10 #include <stdlib.h>
11 #include <string.h>
12 #include <stdio.h>
13 #include <stdarg.h>
14 #include <assert.h>
15 #include <ctype.h>
17 #include <string>
33 // Test for [=[ ... ]=] delimiters, returns 0 if it's only a [ or ],
34 // return 1 for [[ or ]], returns >=2 for [=[ or ]=] and so on.
35 // The maximum number of '=' characters allowed is 254.
39 sep++;
43 }
46 Sci_PositionU startPos,
47 Sci_Position length,
61 // Accepts accented characters
64 // Not exactly following number definition (several dots are seen as OK, etc.)
65 // but probably enough in most cases. [pP] is for hex floats.
72 // Initialize long string [[ ... ]] or block comment --[[ ... ]] nesting level,
73 // if we are inside such a string. Block comment was introduced in Lua 5.0,
74 // blocks with separators [=[ ... ]=] in Lua 5.1.
75 // Continuation of a string (\z whitespace escaping) is controlled by stringWs.
85 }
87 // results of identifier/keyword matching
93 // Do not leak onto next line
94 if (initStyle == SCE_LUA_STRINGEOL || initStyle == SCE_LUA_COMMENTLINE || initStyle == SCE_LUA_PREPROCESSOR) {
96 }
100 // shbang line: "#!" is a comment only if located at the start of the script
102 }
105 // Update the line state, so it can be seen by next line
112 // Inside a literal string, block comment or string, we set the line state
116 // Reset the line state
119 }
120 }
122 // Prevent SCE_LUA_STRINGEOL from leaking back to previous line
124 }
126 // Handle string line continuation
133 }
135 }
136 }
138 // Determine if the current state should terminate.
144 ln++;
152 ln++;
153 }
157 ln++;
160 // final :: found, complete valid label construct
165 }
171 }
174 }
175 }
176 }
177 }
180 // We stop the number definition on non-numerical non-dot non-eEpP non-sign non-hexdigit char
186 }
190 idenWordPos--;
197 }
200 }
214 }
216 }
220 }
225 }
232 }
238 }
243 }
250 }
256 }
261 nestLevel++;
263 }
267 nestLevel--;
271 }
275 }
276 }
277 }
279 // Determine if a new state should be entered.
285 }
287 // For matching various identifiers with dots and colons, multiple
288 // matches are done as identifier segments are added. Longest match is
289 // set to a word style. The non-matched part is in identifier style.
303 idenPos++;
304 }
309 }
329 }
333 }
339 idenPos++;
342 }
346 }
362 }
372 }
375 }
380 }
381 }
382 }
385 }
387 static void FoldLuaDoc(Sci_PositionU startPos, Sci_Position length, int /* initStyle */, WordList *[],
410 }
413 }
415 if ((strcmp(s, "if") == 0) || (strcmp(s, "do") == 0) || (strcmp(s, "function") == 0) || (strcmp(s, "repeat") == 0)) {
416 levelCurrent++;
417 }
419 levelCurrent--;
420 }
421 }
424 levelCurrent++;
426 levelCurrent--;
427 }
430 levelCurrent++;
432 levelCurrent--;
433 }
434 }
440 }
443 }
446 }
447 lineCurrent++;
450 }
452 visibleChars++;
453 }
454 }
455 // Fill in the real level of the next line, keeping the current flags as they will be filled in later
459 }
470 0
471 };
475 LexicalClass lexicalClasses[] = {
476 // Lexer Lua SCLEX_LUA SCE_LUA_:
477 0, "SCE_LUA_DEFAULT", "default", "White space: Visible only in View Whitespace mode (or if it has a back colour)",
498 };
500 }
502 LexerModule lmLua(SCLEX_LUA, ColouriseLuaDoc, "lua", FoldLuaDoc, luaWordListDesc, lexicalClasses, ELEMENTS(lexicalClasses));