mirror of
https://github.com/NohamR/Reclass.git
synced 2026-05-10 19:59:21 +00:00
Initial commit: ReclassX structured binary editor
This commit is contained in:
sysadmin
523
third_party/qscintilla/scintilla/lexers/LexOpal.cpp
vendored
Normal file
523
third_party/qscintilla/scintilla/lexers/LexOpal.cpp
vendored
Normal file
@@ -0,0 +1,523 @@
|
||||
// Scintilla source code edit control
|
||||
/** @file LexOpal.cxx
|
||||
** Lexer for OPAL (functional language similar to Haskell)
|
||||
** Written by Sebastian Pipping <webmaster@hartwork.org>
|
||||
**/
|
||||
|
||||
#include <stdlib.h>
|
||||
#include <string.h>
|
||||
#include <stdio.h>
|
||||
#include <stdarg.h>
|
||||
#include <assert.h>
|
||||
#include <ctype.h>
|
||||
|
||||
#include "ILexer.h"
|
||||
#include "Scintilla.h"
|
||||
#include "SciLexer.h"
|
||||
|
||||
#include "WordList.h"
|
||||
#include "LexAccessor.h"
|
||||
#include "Accessor.h"
|
||||
#include "StyleContext.h"
|
||||
#include "CharacterSet.h"
|
||||
#include "LexerModule.h"
|
||||
|
||||
using namespace Scintilla;
|
||||
|
||||
inline static void getRange( Sci_PositionU start, Sci_PositionU end, Accessor & styler, char * s, Sci_PositionU len )
|
||||
{
|
||||
Sci_PositionU i = 0;
|
||||
while( ( i < end - start + 1 ) && ( i < len - 1 ) )
|
||||
{
|
||||
s[i] = static_cast<char>( styler[ start + i ] );
|
||||
i++;
|
||||
}
|
||||
s[ i ] = '\0';
|
||||
}
|
||||
|
||||
inline bool HandleString( Sci_PositionU & cur, Sci_PositionU one_too_much, Accessor & styler )
|
||||
{
|
||||
char ch;
|
||||
|
||||
// Wait for string to close
|
||||
bool even_backslash_count = true; // Without gaps in between
|
||||
cur++; // Skip initial quote
|
||||
for( ; ; )
|
||||
{
|
||||
if( cur >= one_too_much )
|
||||
{
|
||||
styler.ColourTo( cur - 1, SCE_OPAL_STRING );
|
||||
return false; // STOP
|
||||
}
|
||||
|
||||
ch = styler.SafeGetCharAt( cur );
|
||||
if( ( ch == '\015' ) || ( ch == '\012' ) ) // Deny multi-line strings
|
||||
{
|
||||
styler.ColourTo( cur - 1, SCE_OPAL_STRING );
|
||||
styler.StartSegment( cur );
|
||||
return true;
|
||||
}
|
||||
else
|
||||
{
|
||||
if( even_backslash_count )
|
||||
{
|
||||
if( ch == '"' )
|
||||
{
|
||||
styler.ColourTo( cur, SCE_OPAL_STRING );
|
||||
cur++;
|
||||
if( cur >= one_too_much )
|
||||
{
|
||||
return false; // STOP
|
||||
}
|
||||
else
|
||||
{
|
||||
styler.StartSegment( cur );
|
||||
return true;
|
||||
}
|
||||
}
|
||||
else if( ch == '\\' )
|
||||
{
|
||||
even_backslash_count = false;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
even_backslash_count = true;
|
||||
}
|
||||
}
|
||||
|
||||
cur++;
|
||||
}
|
||||
}
|
||||
|
||||
inline bool HandleCommentBlock( Sci_PositionU & cur, Sci_PositionU one_too_much, Accessor & styler, bool could_fail )
|
||||
{
|
||||
char ch;
|
||||
|
||||
if( could_fail )
|
||||
{
|
||||
cur++;
|
||||
if( cur >= one_too_much )
|
||||
{
|
||||
styler.ColourTo( cur - 1, SCE_OPAL_DEFAULT );
|
||||
return false; // STOP
|
||||
}
|
||||
|
||||
ch = styler.SafeGetCharAt( cur );
|
||||
if( ch != '*' )
|
||||
{
|
||||
styler.ColourTo( cur - 1, SCE_OPAL_DEFAULT );
|
||||
styler.StartSegment( cur );
|
||||
return true;
|
||||
}
|
||||
}
|
||||
|
||||
// Wait for comment close
|
||||
cur++;
|
||||
bool star_found = false;
|
||||
for( ; ; )
|
||||
{
|
||||
if( cur >= one_too_much )
|
||||
{
|
||||
styler.ColourTo( cur - 1, SCE_OPAL_COMMENT_BLOCK );
|
||||
return false; // STOP
|
||||
}
|
||||
|
||||
ch = styler.SafeGetCharAt( cur );
|
||||
if( star_found )
|
||||
{
|
||||
if( ch == '/' )
|
||||
{
|
||||
styler.ColourTo( cur, SCE_OPAL_COMMENT_BLOCK );
|
||||
cur++;
|
||||
if( cur >= one_too_much )
|
||||
{
|
||||
return false; // STOP
|
||||
}
|
||||
else
|
||||
{
|
||||
styler.StartSegment( cur );
|
||||
return true;
|
||||
}
|
||||
}
|
||||
else if( ch != '*' )
|
||||
{
|
||||
star_found = false;
|
||||
}
|
||||
}
|
||||
else if( ch == '*' )
|
||||
{
|
||||
star_found = true;
|
||||
}
|
||||
cur++;
|
||||
}
|
||||
}
|
||||
|
||||
inline bool HandleCommentLine( Sci_PositionU & cur, Sci_PositionU one_too_much, Accessor & styler, bool could_fail )
|
||||
{
|
||||
char ch;
|
||||
|
||||
if( could_fail )
|
||||
{
|
||||
cur++;
|
||||
if( cur >= one_too_much )
|
||||
{
|
||||
styler.ColourTo( cur - 1, SCE_OPAL_DEFAULT );
|
||||
return false; // STOP
|
||||
}
|
||||
|
||||
ch = styler.SafeGetCharAt( cur );
|
||||
if( ch != '-' )
|
||||
{
|
||||
styler.ColourTo( cur - 1, SCE_OPAL_DEFAULT );
|
||||
styler.StartSegment( cur );
|
||||
return true;
|
||||
}
|
||||
|
||||
cur++;
|
||||
if( cur >= one_too_much )
|
||||
{
|
||||
styler.ColourTo( cur - 1, SCE_OPAL_DEFAULT );
|
||||
return false; // STOP
|
||||
}
|
||||
|
||||
ch = styler.SafeGetCharAt( cur );
|
||||
if( ( ch != ' ' ) && ( ch != '\t' ) )
|
||||
{
|
||||
styler.ColourTo( cur - 1, SCE_OPAL_DEFAULT );
|
||||
styler.StartSegment( cur );
|
||||
return true;
|
||||
}
|
||||
}
|
||||
|
||||
// Wait for end of line
|
||||
bool fifteen_found = false;
|
||||
|
||||
for( ; ; )
|
||||
{
|
||||
cur++;
|
||||
|
||||
if( cur >= one_too_much )
|
||||
{
|
||||
styler.ColourTo( cur - 1, SCE_OPAL_COMMENT_LINE );
|
||||
return false; // STOP
|
||||
}
|
||||
|
||||
ch = styler.SafeGetCharAt( cur );
|
||||
if( fifteen_found )
|
||||
{
|
||||
/*
|
||||
if( ch == '\012' )
|
||||
{
|
||||
// One newline on Windows (015, 012)
|
||||
}
|
||||
else
|
||||
{
|
||||
// One newline on MAC (015) and another char
|
||||
}
|
||||
*/
|
||||
cur--;
|
||||
styler.ColourTo( cur - 1, SCE_OPAL_COMMENT_LINE );
|
||||
styler.StartSegment( cur );
|
||||
return true;
|
||||
}
|
||||
else
|
||||
{
|
||||
if( ch == '\015' )
|
||||
{
|
||||
fifteen_found = true;
|
||||
}
|
||||
else if( ch == '\012' )
|
||||
{
|
||||
// One newline on Linux (012)
|
||||
styler.ColourTo( cur - 1, SCE_OPAL_COMMENT_LINE );
|
||||
styler.StartSegment( cur );
|
||||
return true;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
inline bool HandlePar( Sci_PositionU & cur, Accessor & styler )
|
||||
{
|
||||
styler.ColourTo( cur, SCE_OPAL_PAR );
|
||||
|
||||
cur++;
|
||||
|
||||
styler.StartSegment( cur );
|
||||
return true;
|
||||
}
|
||||
|
||||
inline bool HandleSpace( Sci_PositionU & cur, Sci_PositionU one_too_much, Accessor & styler )
|
||||
{
|
||||
char ch;
|
||||
|
||||
cur++;
|
||||
for( ; ; )
|
||||
{
|
||||
if( cur >= one_too_much )
|
||||
{
|
||||
styler.ColourTo( cur - 1, SCE_OPAL_SPACE );
|
||||
return false;
|
||||
}
|
||||
|
||||
ch = styler.SafeGetCharAt( cur );
|
||||
switch( ch )
|
||||
{
|
||||
case ' ':
|
||||
case '\t':
|
||||
case '\015':
|
||||
case '\012':
|
||||
cur++;
|
||||
break;
|
||||
|
||||
default:
|
||||
styler.ColourTo( cur - 1, SCE_OPAL_SPACE );
|
||||
styler.StartSegment( cur );
|
||||
return true;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
inline bool HandleInteger( Sci_PositionU & cur, Sci_PositionU one_too_much, Accessor & styler )
|
||||
{
|
||||
char ch;
|
||||
|
||||
for( ; ; )
|
||||
{
|
||||
cur++;
|
||||
if( cur >= one_too_much )
|
||||
{
|
||||
styler.ColourTo( cur - 1, SCE_OPAL_INTEGER );
|
||||
return false; // STOP
|
||||
}
|
||||
|
||||
ch = styler.SafeGetCharAt( cur );
|
||||
if( !( IsASCII( ch ) && isdigit( ch ) ) )
|
||||
{
|
||||
styler.ColourTo( cur - 1, SCE_OPAL_INTEGER );
|
||||
styler.StartSegment( cur );
|
||||
return true;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
inline bool HandleWord( Sci_PositionU & cur, Sci_PositionU one_too_much, Accessor & styler, WordList * keywordlists[] )
|
||||
{
|
||||
char ch;
|
||||
const Sci_PositionU beg = cur;
|
||||
|
||||
cur++;
|
||||
for( ; ; )
|
||||
{
|
||||
ch = styler.SafeGetCharAt( cur );
|
||||
if( ( ch != '_' ) && ( ch != '-' ) &&
|
||||
!( IsASCII( ch ) && ( islower( ch ) || isupper( ch ) || isdigit( ch ) ) ) ) break;
|
||||
|
||||
cur++;
|
||||
if( cur >= one_too_much )
|
||||
{
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
const Sci_Position ide_len = cur - beg + 1;
|
||||
char * ide = new char[ ide_len ];
|
||||
getRange( beg, cur, styler, ide, ide_len );
|
||||
|
||||
WordList & keywords = *keywordlists[ 0 ];
|
||||
WordList & classwords = *keywordlists[ 1 ];
|
||||
|
||||
if( keywords.InList( ide ) ) // Keyword
|
||||
{
|
||||
delete [] ide;
|
||||
|
||||
styler.ColourTo( cur - 1, SCE_OPAL_KEYWORD );
|
||||
if( cur >= one_too_much )
|
||||
{
|
||||
return false; // STOP
|
||||
}
|
||||
else
|
||||
{
|
||||
styler.StartSegment( cur );
|
||||
return true;
|
||||
}
|
||||
}
|
||||
else if( classwords.InList( ide ) ) // Sort
|
||||
{
|
||||
delete [] ide;
|
||||
|
||||
styler.ColourTo( cur - 1, SCE_OPAL_SORT );
|
||||
if( cur >= one_too_much )
|
||||
{
|
||||
return false; // STOP
|
||||
}
|
||||
else
|
||||
{
|
||||
styler.StartSegment( cur );
|
||||
return true;
|
||||
}
|
||||
}
|
||||
else if( !strcmp( ide, "true" ) || !strcmp( ide, "false" ) ) // Bool const
|
||||
{
|
||||
delete [] ide;
|
||||
|
||||
styler.ColourTo( cur - 1, SCE_OPAL_BOOL_CONST );
|
||||
if( cur >= one_too_much )
|
||||
{
|
||||
return false; // STOP
|
||||
}
|
||||
else
|
||||
{
|
||||
styler.StartSegment( cur );
|
||||
return true;
|
||||
}
|
||||
}
|
||||
else // Unknown keyword
|
||||
{
|
||||
delete [] ide;
|
||||
|
||||
styler.ColourTo( cur - 1, SCE_OPAL_DEFAULT );
|
||||
if( cur >= one_too_much )
|
||||
{
|
||||
return false; // STOP
|
||||
}
|
||||
else
|
||||
{
|
||||
styler.StartSegment( cur );
|
||||
return true;
|
||||
}
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
inline bool HandleSkip( Sci_PositionU & cur, Sci_PositionU one_too_much, Accessor & styler )
|
||||
{
|
||||
cur++;
|
||||
styler.ColourTo( cur - 1, SCE_OPAL_DEFAULT );
|
||||
if( cur >= one_too_much )
|
||||
{
|
||||
return false; // STOP
|
||||
}
|
||||
else
|
||||
{
|
||||
styler.StartSegment( cur );
|
||||
return true;
|
||||
}
|
||||
}
|
||||
|
||||
static void ColouriseOpalDoc( Sci_PositionU startPos, Sci_Position length, int initStyle, WordList *keywordlists[], Accessor & styler )
|
||||
{
|
||||
styler.StartAt( startPos );
|
||||
styler.StartSegment( startPos );
|
||||
|
||||
Sci_PositionU & cur = startPos;
|
||||
const Sci_PositionU one_too_much = startPos + length;
|
||||
|
||||
int state = initStyle;
|
||||
|
||||
for( ; ; )
|
||||
{
|
||||
switch( state )
|
||||
{
|
||||
case SCE_OPAL_KEYWORD:
|
||||
case SCE_OPAL_SORT:
|
||||
if( !HandleWord( cur, one_too_much, styler, keywordlists ) ) return;
|
||||
state = SCE_OPAL_DEFAULT;
|
||||
break;
|
||||
|
||||
case SCE_OPAL_INTEGER:
|
||||
if( !HandleInteger( cur, one_too_much, styler ) ) return;
|
||||
state = SCE_OPAL_DEFAULT;
|
||||
break;
|
||||
|
||||
case SCE_OPAL_COMMENT_BLOCK:
|
||||
if( !HandleCommentBlock( cur, one_too_much, styler, false ) ) return;
|
||||
state = SCE_OPAL_DEFAULT;
|
||||
break;
|
||||
|
||||
case SCE_OPAL_COMMENT_LINE:
|
||||
if( !HandleCommentLine( cur, one_too_much, styler, false ) ) return;
|
||||
state = SCE_OPAL_DEFAULT;
|
||||
break;
|
||||
|
||||
case SCE_OPAL_STRING:
|
||||
if( !HandleString( cur, one_too_much, styler ) ) return;
|
||||
state = SCE_OPAL_DEFAULT;
|
||||
break;
|
||||
|
||||
default: // SCE_OPAL_DEFAULT:
|
||||
{
|
||||
char ch = styler.SafeGetCharAt( cur );
|
||||
|
||||
switch( ch )
|
||||
{
|
||||
// String
|
||||
case '"':
|
||||
if( !HandleString( cur, one_too_much, styler ) ) return;
|
||||
break;
|
||||
|
||||
// Comment block
|
||||
case '/':
|
||||
if( !HandleCommentBlock( cur, one_too_much, styler, true ) ) return;
|
||||
break;
|
||||
|
||||
// Comment line
|
||||
case '-':
|
||||
if( !HandleCommentLine( cur, one_too_much, styler, true ) ) return;
|
||||
break;
|
||||
|
||||
// Par
|
||||
case '(':
|
||||
case ')':
|
||||
case '[':
|
||||
case ']':
|
||||
case '{':
|
||||
case '}':
|
||||
if( !HandlePar( cur, styler ) ) return;
|
||||
break;
|
||||
|
||||
// Whitespace
|
||||
case ' ':
|
||||
case '\t':
|
||||
case '\015':
|
||||
case '\012':
|
||||
if( !HandleSpace( cur, one_too_much, styler ) ) return;
|
||||
break;
|
||||
|
||||
default:
|
||||
{
|
||||
// Integer
|
||||
if( IsASCII( ch ) && isdigit( ch ) )
|
||||
{
|
||||
if( !HandleInteger( cur, one_too_much, styler ) ) return;
|
||||
}
|
||||
|
||||
// Keyword
|
||||
else if( IsASCII( ch ) && ( islower( ch ) || isupper( ch ) ) )
|
||||
{
|
||||
if( !HandleWord( cur, one_too_much, styler, keywordlists ) ) return;
|
||||
|
||||
}
|
||||
|
||||
// Skip
|
||||
else
|
||||
{
|
||||
if( !HandleSkip( cur, one_too_much, styler ) ) return;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
break;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
static const char * const opalWordListDesc[] = {
|
||||
"Keywords",
|
||||
"Sorts",
|
||||
0
|
||||
};
|
||||
|
||||
LexerModule lmOpal(SCLEX_OPAL, ColouriseOpalDoc, "opal", NULL, opalWordListDesc);
|
||||
Reference in New Issue
Block a user