scintilla/lexers/LexNsis.cxx

   1 // Scintilla source code edit control
   2 /** @file LexNsis.cxx
   3  ** Lexer for NSIS
   4  **/
   5 // Copyright 2003 - 2005 by Angelo Mandato <angelo [at] spaceblue [dot] com>
   6 // Last Updated: 03/13/2005
   7 // The License.txt file describes the conditions under which this software may be distributed.
   8
   9 #include <stdlib.h>
  10 #include <string.h>
  11 #include <stdio.h>
  12 #include <stdarg.h>
  13 #include <assert.h>
  14 #include <ctype.h>
  15
  16 #include "ILexer.h"
  17 #include "Scintilla.h"
  18 #include "SciLexer.h"
  19
  20 #include "WordList.h"
  21 #include "LexAccessor.h"
  22 #include "Accessor.h"
  23 #include "StyleContext.h"
  24 #include "CharacterSet.h"
  25 #include "LexerModule.h"
  26
  27 #ifdef SCI_NAMESPACE
  28 using namespace Scintilla;
  29 #endif
  30
  31 /*
  32 // located in SciLexer.h
  33 #define SCLEX_NSIS 43
  34
  35 #define SCE_NSIS_DEFAULT 0
  36 #define SCE_NSIS_COMMENT 1
  37 #define SCE_NSIS_STRINGDQ 2
  38 #define SCE_NSIS_STRINGLQ 3
  39 #define SCE_NSIS_STRINGRQ 4
  40 #define SCE_NSIS_FUNCTION 5
  41 #define SCE_NSIS_VARIABLE 6
  42 #define SCE_NSIS_LABEL 7
  43 #define SCE_NSIS_USERDEFINED 8
  44 #define SCE_NSIS_SECTIONDEF 9
  45 #define SCE_NSIS_SUBSECTIONDEF 10
  46 #define SCE_NSIS_IFDEFINEDEF 11
  47 #define SCE_NSIS_MACRODEF 12
  48 #define SCE_NSIS_STRINGVAR 13
  49 #define SCE_NSIS_NUMBER 14
  50 // ADDED for Scintilla v1.63
  51 #define SCE_NSIS_SECTIONGROUP 15
  52 #define SCE_NSIS_PAGEEX 16
  53 #define SCE_NSIS_FUNCTIONDEF 17
  54 #define SCE_NSIS_COMMENTBOX 18
  55 */
  56
  57 static bool isNsisNumber(char ch)
  58 {
  59   return (ch >= '0' && ch <= '9');
  60 }
  61
  62 static bool isNsisChar(char ch)
  63 {
  64   return (ch == '.' ) || (ch == '_' ) || isNsisNumber(ch) || (ch >= 'A' && ch <= 'Z') || (ch >= 'a' && ch <= 'z');
  65 }
  66
  67 static bool isNsisLetter(char ch)
  68 {
  69   return (ch >= 'A' && ch <= 'Z') || (ch >= 'a' && ch <= 'z');
  70 }
  71
  72 static bool NsisNextLineHasElse(Sci_PositionU start, Sci_PositionU end, Accessor &styler)
  73 {
  74   Sci_Position nNextLine = -1;
  75   for( Sci_PositionU i = start; i < end; i++ )
  76   {
  77     char cNext = styler.SafeGetCharAt( i );
  78     if( cNext == '\n' )
  79     {
  80       nNextLine = i+1;
  81       break;
  82     }
  83   }
  84
  85   if( nNextLine == -1 ) // We never found the next line...
  86     return false;
  87
  88   for( Sci_PositionU firstChar = nNextLine; firstChar < end; firstChar++ )
  89   {
  90     char cNext = styler.SafeGetCharAt( firstChar );
  91     if( cNext == ' ' )
  92       continue;
  93     if( cNext == '\t' )
  94       continue;
  95     if( cNext == '!' )
  96     {
  97       if( styler.Match(firstChar, "!else") )
  98         return true;
  99     }
 100     break;
 101   }
 102
 103   return false;
 104 }
 105
 106 static int NsisCmp( const char *s1, const char *s2, bool bIgnoreCase )
 107 {
 108   if( bIgnoreCase )
 109      return CompareCaseInsensitive( s1, s2);
 110
 111   return strcmp( s1, s2 );
 112 }
 113
 114 static int calculateFoldNsis(Sci_PositionU start, Sci_PositionU end, int foldlevel, Accessor &styler, bool bElse, bool foldUtilityCmd )
 115 {
 116   int style = styler.StyleAt(end);
 117
 118   // If the word is too long, it is not what we are looking for
 119   if( end - start > 20 )
 120     return foldlevel;
 121
 122   if( foldUtilityCmd )
 123   {
 124     // Check the style at this point, if it is not valid, then return zero
 125     if( style != SCE_NSIS_FUNCTIONDEF && style != SCE_NSIS_SECTIONDEF &&
 126         style != SCE_NSIS_SUBSECTIONDEF && style != SCE_NSIS_IFDEFINEDEF &&
 127         style != SCE_NSIS_MACRODEF && style != SCE_NSIS_SECTIONGROUP &&
 128         style != SCE_NSIS_PAGEEX )
 129           return foldlevel;
 130   }
 131   else
 132   {
 133     if( style != SCE_NSIS_FUNCTIONDEF && style != SCE_NSIS_SECTIONDEF &&
 134         style != SCE_NSIS_SUBSECTIONDEF && style != SCE_NSIS_SECTIONGROUP &&
 135         style != SCE_NSIS_PAGEEX )
 136           return foldlevel;
 137   }
 138
 139   int newFoldlevel = foldlevel;
 140   bool bIgnoreCase = false;
 141   if( styler.GetPropertyInt("nsis.ignorecase") == 1 )
 142     bIgnoreCase = true;
 143
 144   char s[20]; // The key word we are looking for has atmost 13 characters
 145   s[0] = '\0';
 146   for (Sci_PositionU i = 0; i < end - start + 1 && i < 19; i++)
 147         {
 148                 s[i] = static_cast<char>( styler[ start + i ] );
 149                 s[i + 1] = '\0';
 150         }
 151
 152   if( s[0] == '!' )
 153   {
 154     if( NsisCmp(s, "!ifndef", bIgnoreCase) == 0 || NsisCmp(s, "!ifdef", bIgnoreCase ) == 0 || NsisCmp(s, "!ifmacrodef", bIgnoreCase ) == 0 || NsisCmp(s, "!ifmacrondef", bIgnoreCase ) == 0 || NsisCmp(s, "!if", bIgnoreCase ) == 0 || NsisCmp(s, "!macro", bIgnoreCase ) == 0 )
 155       newFoldlevel++;
 156     else if( NsisCmp(s, "!endif", bIgnoreCase) == 0 || NsisCmp(s, "!macroend", bIgnoreCase ) == 0 )
 157       newFoldlevel--;
 158     else if( bElse && NsisCmp(s, "!else", bIgnoreCase) == 0 )
 159       newFoldlevel++;
 160   }
 161   else
 162   {
 163     if( NsisCmp(s, "Section", bIgnoreCase ) == 0 || NsisCmp(s, "SectionGroup", bIgnoreCase ) == 0 || NsisCmp(s, "Function", bIgnoreCase) == 0 || NsisCmp(s, "SubSection", bIgnoreCase ) == 0 || NsisCmp(s, "PageEx", bIgnoreCase ) == 0 )
 164       newFoldlevel++;
 165     else if( NsisCmp(s, "SectionGroupEnd", bIgnoreCase ) == 0 || NsisCmp(s, "SubSectionEnd", bIgnoreCase ) == 0 || NsisCmp(s, "FunctionEnd", bIgnoreCase) == 0 || NsisCmp(s, "SectionEnd", bIgnoreCase ) == 0 || NsisCmp(s, "PageExEnd", bIgnoreCase ) == 0 )
 166       newFoldlevel--;
 167   }
 168
 169   return newFoldlevel;
 170 }
 171
 172 static int classifyWordNsis(Sci_PositionU start, Sci_PositionU end, WordList *keywordLists[], Accessor &styler )
 173 {
 174   bool bIgnoreCase = false;
 175   if( styler.GetPropertyInt("nsis.ignorecase") == 1 )
 176     bIgnoreCase = true;
 177
 178   bool bUserVars = false;
 179   if( styler.GetPropertyInt("nsis.uservars") == 1 )
 180     bUserVars = true;
 181
 182         char s[100];
 183         s[0] = '\0';
 184         s[1] = '\0';
 185
 186         WordList &Functions = *keywordLists[0];
 187         WordList &Variables = *keywordLists[1];
 188         WordList &Lables = *keywordLists[2];
 189         WordList &UserDefined = *keywordLists[3];
 190
 191         for (Sci_PositionU i = 0; i < end - start + 1 && i < 99; i++)
 192         {
 193     if( bIgnoreCase )
 194       s[i] = static_cast<char>( tolower(styler[ start + i ] ) );
 195     else
 196                   s[i] = static_cast<char>( styler[ start + i ] );
 197                 s[i + 1] = '\0';
 198         }
 199
 200         // Check for special words...
 201         if( NsisCmp(s, "!macro", bIgnoreCase ) == 0 || NsisCmp(s, "!macroend", bIgnoreCase) == 0 ) // Covers !macro and !macroend
 202                 return SCE_NSIS_MACRODEF;
 203
 204         if( NsisCmp(s, "!ifdef", bIgnoreCase ) == 0 ||  NsisCmp(s, "!ifndef", bIgnoreCase) == 0 ||  NsisCmp(s, "!endif", bIgnoreCase) == 0 ) // Covers !ifdef, !ifndef and !endif
 205                 return SCE_NSIS_IFDEFINEDEF;
 206
 207         if( NsisCmp(s, "!if", bIgnoreCase ) == 0 || NsisCmp(s, "!else", bIgnoreCase )  == 0 ) // Covers !if and else
 208                 return SCE_NSIS_IFDEFINEDEF;
 209
 210         if (NsisCmp(s, "!ifmacrodef", bIgnoreCase ) == 0 || NsisCmp(s, "!ifmacrondef", bIgnoreCase )  == 0 ) // Covers !ifmacrodef and !ifnmacrodef
 211                 return SCE_NSIS_IFDEFINEDEF;
 212
 213   if( NsisCmp(s, "SectionGroup", bIgnoreCase) == 0 || NsisCmp(s, "SectionGroupEnd", bIgnoreCase) == 0 ) // Covers SectionGroup and SectionGroupEnd
 214     return SCE_NSIS_SECTIONGROUP;
 215
 216         if( NsisCmp(s, "Section", bIgnoreCase ) == 0 || NsisCmp(s, "SectionEnd", bIgnoreCase) == 0 ) // Covers Section and SectionEnd
 217                 return SCE_NSIS_SECTIONDEF;
 218
 219         if( NsisCmp(s, "SubSection", bIgnoreCase) == 0 || NsisCmp(s, "SubSectionEnd", bIgnoreCase) == 0 ) // Covers SubSection and SubSectionEnd
 220                 return SCE_NSIS_SUBSECTIONDEF;
 221
 222   if( NsisCmp(s, "PageEx", bIgnoreCase) == 0 || NsisCmp(s, "PageExEnd", bIgnoreCase) == 0 ) // Covers PageEx and PageExEnd
 223     return SCE_NSIS_PAGEEX;
 224
 225         if( NsisCmp(s, "Function", bIgnoreCase) == 0 || NsisCmp(s, "FunctionEnd", bIgnoreCase) == 0 ) // Covers Function and FunctionEnd
 226                 return SCE_NSIS_FUNCTIONDEF;
 227
 228         if ( Functions.InList(s) )
 229                 return SCE_NSIS_FUNCTION;
 230
 231         if ( Variables.InList(s) )
 232                 return SCE_NSIS_VARIABLE;
 233
 234         if ( Lables.InList(s) )
 235                 return SCE_NSIS_LABEL;
 236
 237         if( UserDefined.InList(s) )
 238                 return SCE_NSIS_USERDEFINED;
 239
 240         if( strlen(s) > 3 )
 241         {
 242                 if( s[1] == '{' && s[strlen(s)-1] == '}' )
 243                         return SCE_NSIS_VARIABLE;
 244         }
 245
 246   // See if the variable is a user defined variable
 247   if( s[0] == '$' && bUserVars )
 248   {
 249     bool bHasSimpleNsisChars = true;
 250     for (Sci_PositionU j = 1; j < end - start + 1 && j < 99; j++)
 251           {
 252       if( !isNsisChar( s[j] ) )
 253       {
 254         bHasSimpleNsisChars = false;
 255         break;
 256       }
 257           }
 258
 259     if( bHasSimpleNsisChars )
 260       return SCE_NSIS_VARIABLE;
 261   }
 262
 263   // To check for numbers
 264   if( isNsisNumber( s[0] ) )
 265   {
 266     bool bHasSimpleNsisNumber = true;
 267     for (Sci_PositionU j = 1; j < end - start + 1 && j < 99; j++)
 268           {
 269       if( !isNsisNumber( s[j] ) )
 270       {
 271         bHasSimpleNsisNumber = false;
 272         break;
 273       }
 274           }
 275
 276     if( bHasSimpleNsisNumber )
 277       return SCE_NSIS_NUMBER;
 278   }
 279
 280         return SCE_NSIS_DEFAULT;
 281 }
 282
 283 static void ColouriseNsisDoc(Sci_PositionU startPos, Sci_Position length, int, WordList *keywordLists[], Accessor &styler)
 284 {
 285         int state = SCE_NSIS_DEFAULT;
 286   if( startPos > 0 )
 287     state = styler.StyleAt(startPos-1); // Use the style from the previous line, usually default, but could be commentbox
 288
 289         styler.StartAt( startPos );
 290         styler.GetLine( startPos );
 291
 292         Sci_PositionU nLengthDoc = startPos + length;
 293         styler.StartSegment( startPos );
 294
 295         char cCurrChar;
 296         bool bVarInString = false;
 297   bool bClassicVarInString = false;
 298
 299         Sci_PositionU i;
 300         for( i = startPos; i < nLengthDoc; i++ )
 301         {
 302                 cCurrChar = styler.SafeGetCharAt( i );
 303                 char cNextChar = styler.SafeGetCharAt(i+1);
 304
 305                 switch(state)
 306                 {
 307                         case SCE_NSIS_DEFAULT:
 308                                 if( cCurrChar == ';' || cCurrChar == '#' ) // we have a comment line
 309                                 {
 310                                         styler.ColourTo(i-1, state );
 311                                         state = SCE_NSIS_COMMENT;
 312                                         break;
 313                                 }
 314                                 if( cCurrChar == '"' )
 315                                 {
 316                                         styler.ColourTo(i-1, state );
 317                                         state = SCE_NSIS_STRINGDQ;
 318                                         bVarInString = false;
 319           bClassicVarInString = false;
 320                                         break;
 321                                 }
 322                                 if( cCurrChar == '\'' )
 323                                 {
 324                                         styler.ColourTo(i-1, state );
 325                                         state = SCE_NSIS_STRINGRQ;
 326                                         bVarInString = false;
 327           bClassicVarInString = false;
 328                                         break;
 329                                 }
 330                                 if( cCurrChar == '`' )
 331                                 {
 332                                         styler.ColourTo(i-1, state );
 333                                         state = SCE_NSIS_STRINGLQ;
 334                                         bVarInString = false;
 335           bClassicVarInString = false;
 336                                         break;
 337                                 }
 338
 339                                 // NSIS KeyWord,Function, Variable, UserDefined:
 340                                 if( cCurrChar == '$' || isNsisChar(cCurrChar) || cCurrChar == '!' )
 341                                 {
 342                                         styler.ColourTo(i-1,state);
 343                                   state = SCE_NSIS_FUNCTION;
 344
 345           // If it is a number, we must check and set style here first...
 346           if( isNsisNumber(cCurrChar) && (cNextChar == '\t' || cNextChar == ' ' || cNextChar == '\r' || cNextChar == '\n' ) )
 347               styler.ColourTo( i, SCE_NSIS_NUMBER);
 348
 349                                         break;
 350                                 }
 351
 352         if( cCurrChar == '/' && cNextChar == '*' )
 353         {
 354           styler.ColourTo(i-1,state);
 355           state = SCE_NSIS_COMMENTBOX;
 356           break;
 357         }
 358
 359                                 break;
 360                         case SCE_NSIS_COMMENT:
 361                                 if( cNextChar == '\n' || cNextChar == '\r' )
 362         {
 363           // Special case:
 364           if( cCurrChar == '\\' )
 365           {
 366             styler.ColourTo(i-2,state);
 367             styler.ColourTo(i,SCE_NSIS_DEFAULT);
 368           }
 369           else
 370           {
 371                                     styler.ColourTo(i,state);
 372             state = SCE_NSIS_DEFAULT;
 373           }
 374         }
 375                                 break;
 376                         case SCE_NSIS_STRINGDQ:
 377       case SCE_NSIS_STRINGLQ:
 378       case SCE_NSIS_STRINGRQ:
 379
 380         if( styler.SafeGetCharAt(i-1) == '\\' && styler.SafeGetCharAt(i-2) == '$' )
 381           break; // Ignore the next character, even if it is a quote of some sort
 382
 383         if( cCurrChar == '"' && state == SCE_NSIS_STRINGDQ )
 384                                 {
 385                                         styler.ColourTo(i,state);
 386                                   state = SCE_NSIS_DEFAULT;
 387           break;
 388                                 }
 389
 390         if( cCurrChar == '`' && state == SCE_NSIS_STRINGLQ )
 391         {
 392                                         styler.ColourTo(i,state);
 393                                   state = SCE_NSIS_DEFAULT;
 394           break;
 395                                 }
 396
 397         if( cCurrChar == '\'' && state == SCE_NSIS_STRINGRQ )
 398                                 {
 399                                         styler.ColourTo(i,state);
 400                                   state = SCE_NSIS_DEFAULT;
 401           break;
 402                                 }
 403
 404         if( cNextChar == '\r' || cNextChar == '\n' )
 405         {
 406           Sci_Position nCurLine = styler.GetLine(i+1);
 407           Sci_Position nBack = i;
 408           // We need to check if the previous line has a \ in it...
 409           bool bNextLine = false;
 410
 411           while( nBack > 0 )
 412           {
 413             if( styler.GetLine(nBack) != nCurLine )
 414               break;
 415
 416             char cTemp = styler.SafeGetCharAt(nBack, 'a'); // Letter 'a' is safe here
 417
 418             if( cTemp == '\\' )
 419             {
 420               bNextLine = true;
 421               break;
 422             }
 423             if( cTemp != '\r' && cTemp != '\n' && cTemp != '\t' && cTemp != ' ' )
 424               break;
 425
 426             nBack--;
 427           }
 428
 429           if( bNextLine )
 430           {
 431             styler.ColourTo(i+1,state);
 432           }
 433           if( bNextLine == false )
 434           {
 435             styler.ColourTo(i,state);
 436                                     state = SCE_NSIS_DEFAULT;
 437           }
 438         }
 439                                 break;
 440
 441                         case SCE_NSIS_FUNCTION:
 442
 443                                 // NSIS KeyWord:
 444         if( cCurrChar == '$' )
 445           state = SCE_NSIS_DEFAULT;
 446         else if( cCurrChar == '\\' && (cNextChar == 'n' || cNextChar == 'r' || cNextChar == 't' ) )
 447           state = SCE_NSIS_DEFAULT;
 448                                 else if( (isNsisChar(cCurrChar) && !isNsisChar( cNextChar) && cNextChar != '}') || cCurrChar == '}' )
 449                                 {
 450                                         state = classifyWordNsis( styler.GetStartSegment(), i, keywordLists, styler );
 451                                         styler.ColourTo( i, state);
 452                                         state = SCE_NSIS_DEFAULT;
 453                                 }
 454                                 else if( !isNsisChar( cCurrChar ) && cCurrChar != '{' && cCurrChar != '}' )
 455                                 {
 456           if( classifyWordNsis( styler.GetStartSegment(), i-1, keywordLists, styler) == SCE_NSIS_NUMBER )
 457              styler.ColourTo( i-1, SCE_NSIS_NUMBER );
 458
 459                                         state = SCE_NSIS_DEFAULT;
 460
 461                                         if( cCurrChar == '"' )
 462                                         {
 463                                                 state = SCE_NSIS_STRINGDQ;
 464                                                 bVarInString = false;
 465             bClassicVarInString = false;
 466                                         }
 467                                         else if( cCurrChar == '`' )
 468                                         {
 469                                                 state = SCE_NSIS_STRINGLQ;
 470                                                 bVarInString = false;
 471             bClassicVarInString = false;
 472                                         }
 473                                         else if( cCurrChar == '\'' )
 474                                         {
 475                                                 state = SCE_NSIS_STRINGRQ;
 476                                                 bVarInString = false;
 477             bClassicVarInString = false;
 478                                         }
 479                                         else if( cCurrChar == '#' || cCurrChar == ';' )
 480           {
 481                                                 state = SCE_NSIS_COMMENT;
 482           }
 483                                 }
 484                                 break;
 485       case SCE_NSIS_COMMENTBOX:
 486
 487         if( styler.SafeGetCharAt(i-1) == '*' && cCurrChar == '/' )
 488         {
 489           styler.ColourTo(i,state);
 490           state = SCE_NSIS_DEFAULT;
 491         }
 492         break;
 493                 }
 494
 495                 if( state == SCE_NSIS_COMMENT || state == SCE_NSIS_COMMENTBOX )
 496                 {
 497                         styler.ColourTo(i,state);
 498                 }
 499                 else if( state == SCE_NSIS_STRINGDQ || state == SCE_NSIS_STRINGLQ || state == SCE_NSIS_STRINGRQ )
 500                 {
 501       bool bIngoreNextDollarSign = false;
 502       bool bUserVars = false;
 503       if( styler.GetPropertyInt("nsis.uservars") == 1 )
 504         bUserVars = true;
 505
 506       if( bVarInString && cCurrChar == '$' )
 507       {
 508         bVarInString = false;
 509         bIngoreNextDollarSign = true;
 510       }
 511       else if( bVarInString && cCurrChar == '\\' && (cNextChar == 'n' || cNextChar == 'r' || cNextChar == 't' || cNextChar == '"' || cNextChar == '`' || cNextChar == '\'' ) )
 512       {
 513         styler.ColourTo( i+1, SCE_NSIS_STRINGVAR);
 514         bVarInString = false;
 515         bIngoreNextDollarSign = false;
 516       }
 517
 518       // Covers "$INSTDIR and user vars like $MYVAR"
 519       else if( bVarInString && !isNsisChar(cNextChar) )
 520       {
 521         int nWordState = classifyWordNsis( styler.GetStartSegment(), i, keywordLists, styler);
 522                                 if( nWordState == SCE_NSIS_VARIABLE )
 523                                         styler.ColourTo( i, SCE_NSIS_STRINGVAR);
 524         else if( bUserVars )
 525           styler.ColourTo( i, SCE_NSIS_STRINGVAR);
 526         bVarInString = false;
 527       }
 528       // Covers "${TEST}..."
 529       else if( bClassicVarInString && cNextChar == '}' )
 530       {
 531         styler.ColourTo( i+1, SCE_NSIS_STRINGVAR);
 532                                 bClassicVarInString = false;
 533       }
 534
 535       // Start of var in string
 536                         if( !bIngoreNextDollarSign && cCurrChar == '$' && cNextChar == '{' )
 537                         {
 538                                 styler.ColourTo( i-1, state);
 539                                 bClassicVarInString = true;
 540         bVarInString = false;
 541                         }
 542       else if( !bIngoreNextDollarSign && cCurrChar == '$' )
 543       {
 544         styler.ColourTo( i-1, state);
 545         bVarInString = true;
 546         bClassicVarInString = false;
 547       }
 548                 }
 549         }
 550
 551   // Colourise remaining document
 552         styler.ColourTo(nLengthDoc-1,state);
 553 }
 554
 555 static void FoldNsisDoc(Sci_PositionU startPos, Sci_Position length, int, WordList *[], Accessor &styler)
 556 {
 557         // No folding enabled, no reason to continue...
 558         if( styler.GetPropertyInt("fold") == 0 )
 559                 return;
 560
 561   bool foldAtElse = styler.GetPropertyInt("fold.at.else", 0) == 1;
 562   bool foldUtilityCmd = styler.GetPropertyInt("nsis.foldutilcmd", 1) == 1;
 563   bool blockComment = false;
 564
 565   Sci_Position lineCurrent = styler.GetLine(startPos);
 566   Sci_PositionU safeStartPos = styler.LineStart( lineCurrent );
 567
 568   bool bArg1 = true;
 569   Sci_Position nWordStart = -1;
 570
 571   int levelCurrent = SC_FOLDLEVELBASE;
 572         if (lineCurrent > 0)
 573                 levelCurrent = styler.LevelAt(lineCurrent-1) >> 16;
 574         int levelNext = levelCurrent;
 575   int style = styler.StyleAt(safeStartPos);
 576   if( style == SCE_NSIS_COMMENTBOX )
 577   {
 578     if( styler.SafeGetCharAt(safeStartPos) == '/' && styler.SafeGetCharAt(safeStartPos+1) == '*' )
 579       levelNext++;
 580     blockComment = true;
 581   }
 582
 583   for (Sci_PositionU i = safeStartPos; i < startPos + length; i++)
 584         {
 585     char chCurr = styler.SafeGetCharAt(i);
 586     style = styler.StyleAt(i);
 587     if( blockComment && style != SCE_NSIS_COMMENTBOX )
 588     {
 589       levelNext--;
 590       blockComment = false;
 591     }
 592     else if( !blockComment && style == SCE_NSIS_COMMENTBOX )
 593     {
 594       levelNext++;
 595       blockComment = true;
 596     }
 597
 598     if( bArg1 && !blockComment)
 599     {
 600       if( nWordStart == -1 && (isNsisLetter(chCurr) || chCurr == '!') )
 601       {
 602         nWordStart = i;
 603       }
 604       else if( isNsisLetter(chCurr) == false && nWordStart > -1 )
 605       {
 606         int newLevel = calculateFoldNsis( nWordStart, i-1, levelNext, styler, foldAtElse, foldUtilityCmd );
 607
 608         if( newLevel == levelNext )
 609         {
 610           if( foldAtElse && foldUtilityCmd )
 611           {
 612             if( NsisNextLineHasElse(i, startPos + length, styler) )
 613               levelNext--;
 614           }
 615         }
 616         else
 617           levelNext = newLevel;
 618         bArg1 = false;
 619       }
 620     }
 621
 622     if( chCurr == '\n' )
 623     {
 624       if( bArg1 && foldAtElse && foldUtilityCmd && !blockComment )
 625       {
 626         if( NsisNextLineHasElse(i, startPos + length, styler) )
 627           levelNext--;
 628       }
 629
 630       // If we are on a new line...
 631       int levelUse = levelCurrent;
 632                         int lev = levelUse | levelNext << 16;
 633       if (levelUse < levelNext )
 634                                 lev |= SC_FOLDLEVELHEADERFLAG;
 635                         if (lev != styler.LevelAt(lineCurrent))
 636                                 styler.SetLevel(lineCurrent, lev);
 637
 638                         lineCurrent++;
 639                         levelCurrent = levelNext;
 640       bArg1 = true; // New line, lets look at first argument again
 641       nWordStart = -1;
 642     }
 643   }
 644
 645         int levelUse = levelCurrent;
 646         int lev = levelUse | levelNext << 16;
 647         if (levelUse < levelNext)
 648                 lev |= SC_FOLDLEVELHEADERFLAG;
 649         if (lev != styler.LevelAt(lineCurrent))
 650                 styler.SetLevel(lineCurrent, lev);
 651 }
 652
 653 static const char * const nsisWordLists[] = {
 654         "Functions",
 655         "Variables",
 656         "Lables",
 657         "UserDefined",
 658         0, };
 659
 660
 661 LexerModule lmNsis(SCLEX_NSIS, ColouriseNsisDoc, "nsis", FoldNsisDoc, nsisWordLists);
 662