| blob | f1e828dc87d968b37acecdd133da1a81350f48ca |
1 // Scintilla source code edit control
2 /** @file LexOthers.cxx
3 ** Lexers for batch files, diff results, properties files, make files and error lists.
4 **/
5 // Copyright 1998-2001 by Neil Hodgson <neilh@scintilla.org>
6 // The License.txt file describes the conditions under which this software may be distributed.
8 #include <stdlib.h>
9 #include <string.h>
10 #include <stdio.h>
11 #include <stdarg.h>
12 #include <assert.h>
13 #include <ctype.h>
26 #ifdef SCI_NAMESPACE
28 #endif
32 }
36 }
40 }
44 }
49 }
51 // Tests for BATCH Operators
55 }
57 // Tests for BATCH Separators
61 }
79 // CHOICE, ECHO, GOTO, PROMPT and SET have Default Text that may contain Regular Keywords
80 // Toggling Regular Keyword Checking off improves readability
81 // Other Regular Keywords and External Commands / Programs might also benefit from toggling
82 // Need a more robust algorithm to properly toggle Regular Keyword Checking
84 // Special Keywords are those that allow certain characters without whitespace after the command
85 // Examples are: cd. cd\ md. rd. dir| dir> echo: echo. path=
86 // Special Keyword Buffer used to determine if the first n characters is a Keyword
90 // Skip initial spaces
92 offset++;
93 }
94 // Colorize Default Text
96 // Set External Command / Program Location
99 // Check for Fake Label (Comment) or Real Label - return if found
102 // Colorize Fake Label (Comment) - :: is similar to REM, see http://content.techweb.com/winmag/columns/explorer/2000/21.htm
105 // Colorize Real Label
107 }
109 // Check for Drive Change (Drive Change is internal command) - return if found
115 // Colorize Regular Keyword
118 }
120 // Check for Hide Command (@ECHO OFF/ON)
123 offset++;
124 }
125 // Skip next spaces
127 offset++;
128 }
130 // Read remainder of line word-at-a-time or remainder-of-word-at-a-time
133 // Colorize Default Text
135 }
136 // Copy word from Line Buffer into Word Buffer
141 }
145 // Check for Comment - return if found
149 }
150 // Check for Separator
152 // Check for External Command / Program
157 // Reset Offset to re-process remainder of word
159 // Colorize External Command / Program
166 }
167 // Reset External Command / Program Location
170 // Reset Offset to re-process remainder of word
172 // Colorize Default Text
174 }
175 // Check for Regular Keyword in list
178 // ECHO, GOTO, PROMPT and SET require no further Regular Keyword Checking
184 }
185 // Identify External Command / Program Location for ERRORLEVEL, and EXIST
188 // Reset External Command / Program Location
190 // Skip next spaces
193 cmdLoc++;
194 }
195 // Skip comparison
198 cmdLoc++;
199 }
200 // Skip next spaces
203 cmdLoc++;
204 }
205 // Identify External Command / Program Location for CALL, DO, LOADHIGH and LH
210 // Reset External Command / Program Location
212 // Skip next spaces
215 cmdLoc++;
216 }
217 }
218 // Colorize Regular keyword
220 // No need to Reset Offset
221 // Check for Special Keyword in list, External Command / Program, or Default Text
226 // Check for Special Keyword
227 // Affected Commands are in Length range 2-6
228 // Good that ERRORLEVEL, EXIST, CALL, DO, LOADHIGH, and LH are unaffected
230 for (unsigned int keywordLength = 2; keywordLength < wbl && keywordLength < 7 && !sKeywordFound; keywordLength++) {
232 // Copy Keyword Length from Word Buffer into Special Keyword Buffer
235 }
237 // Check for Special Keyword in list
242 // ECHO requires no further Regular Keyword Checking
245 }
246 // Colorize Special Keyword as Regular Keyword
248 // Reset Offset to re-process remainder of word
250 }
251 }
252 // Check for External Command / Program or Default Text
255 // Check for External Command / Program
257 // Read up to %, Operator or Separator
263 wbo++;
264 }
265 // Reset External Command / Program Location
267 // Reset Offset to re-process remainder of word
269 // CHOICE requires no further Regular Keyword Checking
272 }
273 // Check for START (and its switches) - What follows is External Command \ Program
275 // Reset External Command / Program Location
277 // Skip next spaces
280 cmdLoc++;
281 }
282 // Reset External Command / Program Location if command switch detected
284 // Skip command switch
287 cmdLoc++;
288 }
289 // Skip next spaces
292 cmdLoc++;
293 }
294 }
295 }
296 // Colorize External Command / Program
303 }
304 // No need to Reset Offset
305 // Check for Default Text
307 // Read up to %, Operator or Separator
313 wbo++;
314 }
315 // Colorize Default Text
317 // Reset Offset to re-process remainder of word
319 }
320 }
321 // Check for Argument (%n), Environment Variable (%x...%) or Local Variable (%%a)
323 // Colorize Default Text
325 wbo++;
326 // Search to end of word for second % (can be a long path)
331 wbo++;
332 }
333 // Check for Argument (%n) or (%*)
336 // Check for External Command / Program
339 }
340 // Colorize Argument
342 // Reset Offset to re-process remainder of word
344 // Check for Expanded Argument (%~...) / Variable (%%~...)
347 // Check for External Command / Program
350 }
351 // Colorize Expanded Argument / Variable
353 // Reset Offset to re-process remainder of word
355 // Check for Environment Variable (%x...%)
358 wbo++;
359 // Check for External Command / Program
362 }
363 // Colorize Environment Variable
365 // Reset Offset to re-process remainder of word
367 // Check for Local Variable (%%a)
374 // Check for External Command / Program
377 }
378 // Colorize Local Variable
380 // Reset Offset to re-process remainder of word
382 }
383 // Check for Environment Variable (!x...!)
385 // Colorize Default Text
387 wbo++;
388 // Search to end of word for second ! (can be a long path)
393 wbo++;
394 }
396 wbo++;
397 // Check for External Command / Program
400 }
401 // Colorize Environment Variable
403 // Reset Offset to re-process remainder of word
405 }
406 // Check for Operator
408 // Colorize Default Text
410 // Check for Comparison Operator
412 // Identify External Command / Program Location for IF
414 // Skip next spaces
417 cmdLoc++;
418 }
419 // Colorize Comparison Operator
421 // Reset Offset to re-process remainder of word
423 // Check for Pipe Operator
425 // Reset External Command / Program Location
427 // Skip next spaces
430 cmdLoc++;
431 }
432 // Colorize Pipe Operator
434 // Reset Offset to re-process remainder of word
436 // Check for Other Operator
438 // Check for > Operator
440 // Turn Keyword and External Command / Program checking back on
442 }
443 // Colorize Other Operator
445 // Reset Offset to re-process remainder of word
447 }
448 // Check for Default Text
450 // Read up to %, Operator or Separator
456 wbo++;
457 }
458 // Colorize Default Text
460 // Reset Offset to re-process remainder of word
462 }
463 // Skip next spaces - nothing happens if Offset was Reset
465 offset++;
466 }
467 }
468 // Colorize Default Text for remainder of line - currently not lexed
470 }
488 // End of line (or of line buffer) met, colourise it
493 }
494 }
499 }
500 }
502 #define DIFF_BUFFER_START_SIZE 16
503 // Note that ColouriseDiffLine analyzes only the first DIFF_BUFFER_START_SIZE
504 // characters of each line to classify the line.
507 // It is needed to remember the current state to recognize starting
508 // comment lines before the first "diff " or "--- ". If a real
509 // difference starts then each line starting with ' ' is a whitespace
510 // otherwise it is considered a comment (Only in..., Binary file...)
516 // In a context diff, --- appears in both the header and the position markers
521 else
524 // I don't know of any diff where "+++ " is a position marker, but for
525 // consistency, do the same as with "--- " and "*** ".
528 else
533 // In a context diff, *** appears in both the header and the position markers.
534 // Also ******** is a chunk header, but here it's treated as part of the
535 // position marker since there is no separate style for a chunk header.
540 else
558 }
559 }
561 static void ColouriseDiffDoc(unsigned int startPos, int length, int, WordList *[], Accessor &styler) {
570 }
577 }
578 }
582 }
584 }
585 }
587 static void FoldDiffDoc(unsigned int startPos, int length, int, WordList *[], Accessor &styler) {
603 else
614 }
618 }
631 i++;
635 }
648 // Search for the '=' character
650 i++;
657 }
658 }
661 }
662 }
664 static void ColourisePropsDoc(unsigned int startPos, int length, int, WordList *[], Accessor &styler) {
671 // property lexer.props.allow.initial.spaces
672 // For properties files, set to 0 to style all lines that start with whitespace in the default style.
673 // This is not suitable for SciTE .properties files which use indentation for flow control but
674 // can be used for RFC2822 text where indentation is used for continuation lines.
680 // End of line (or of line buffer) met, colourise it
685 }
686 }
688 ColourisePropsLine(lineBuffer, linePos, startLine, startPos + length - 1, styler, allowInitialSpaces);
689 }
690 }
692 // adaption by ksc, using the "} else {" trick of 1.53
693 // 030721
694 static void FoldPropsDoc(unsigned int startPos, int length, int, WordList *[], Accessor &styler) {
716 }
728 }
729 }
733 }
739 }
742 }
744 lineCurrent++;
747 }
749 visibleChars++;
750 }
758 }
761 }
764 }
778 // check for a tab character in column 0 indicating a command
783 // Skip initial spaces
785 i++;
786 }
791 }
795 }
796 }
802 varCount++;
807 }
808 }
810 // skip identifier and target styling if this is a command line
814 // it's a ':=', so style as an identifier
820 // We should check that no colouring was made since the beginning of the line,
821 // to avoid colouring stuff like /OUT:file
826 }
836 }
837 }
840 }
841 i++;
842 }
847 }
848 }
850 static void ColouriseMakeDoc(unsigned int startPos, int length, int, WordList *[], Accessor &styler) {
859 // End of line (or of line buffer) met, colourise it
864 }
865 }
868 }
869 }
871 static int RecogniseErrorListLine(const char *lineBuffer, unsigned int lengthLine, int &startValue) {
873 // Command or return status
876 // Diff removal.
885 }
891 }
893 // Absoft Pro Fortran 90/95 v8.2 error and/or warning message
896 // Intel Fortran Compiler v8.0 error/warning message
907 // Intel Fortran Compiler error/warning message
910 // Borland error message
913 // Borland warning message
919 // Lua 4 error message
926 // perl error message:
927 // <message> at <file> line <line>
931 // A .NET traceback
935 // Essential Lahey Fortran error message
939 // HTML tidy style: line 42 column 1
944 // Java stack back trace
948 // GCC showing include path to following error
951 // Look for one of the following formats:
952 // GCC: <filename>:<line>:<message>
953 // Microsoft: <filename>(<line>) :<message>
954 // Common: <filename>(<line>): warning|error|note|remark|catastrophic|fatal
955 // Common: <filename>(<line>) warning|error|note|remark|catastrophic|fatal
956 // Microsoft: <filename>(<line>,<column>)<message>
957 // CTags: <identifier>\t<filename>\t<message>
958 // Lua 5 traceback: \t<filename>:<line>:<message>
959 // Lua 5.1: <exe>: <filename>:<line>:<message>
967 stUnrecognized
976 // May be GCC, or might be Lua 5 (Lua traceback same but with tab prefix)
978 // This check is not completely accurate as may be on
979 // GTK+ with a file name that includes ':'.
983 }
985 // May be Microsoft
986 // Check against '0' often removes phone numbers
989 // May be CTags
993 }
1002 }
1009 }
1019 }
1024 // Possibly Delphi.. don't test against chNext as it's one of the strings below.
1031 else
1033 for (j = i + numstep; j < lengthLine && IsAlphabetic(lineBuffer[j]) && chPos < sizeof(word) - 1; j++)
1042 }
1045 }
1052 }
1056 }
1064 }
1065 } else if ((state == stCtagsStartString) && ((lineBuffer[i] == '$') && (lineBuffer[i + 1] == '/'))) {
1068 }
1069 }
1078 }
1079 }
1080 }
1095 }
1096 }
1098 static void ColouriseErrorListDoc(unsigned int startPos, int length, int, WordList *[], Accessor &styler) {
1104 // property lexer.errorlist.value.separate
1105 // For lines in the output pane that are matches from Find in Files or GCC-style
1106 // diagnostics, style the path and line number separately from the rest of the
1107 // line with style 21 used for the rest of the line.
1108 // This allows matched text to be more easily distinguished from its location.
1113 // End of line (or of line buffer) met, colourise it
1117 }
1118 }
1121 }
1122 }
1127 0
1128 };
1131 0
1132 };
1136 // Null language means all style bytes are 0 so just mark the end - no need to fill in.
1141 }
1142 }
1146 LexerModule lmProps(SCLEX_PROPERTIES, ColourisePropsDoc, "props", FoldPropsDoc, emptyWordListDesc);
1148 LexerModule lmErrorList(SCLEX_ERRORLIST, ColouriseErrorListDoc, "errorlist", 0, emptyWordListDesc);