[wxWidgets.git] / src / stc / scintilla / lexers / LexCsound.cxx

// Scintilla source code edit control
/** @file LexCsound.cxx
 ** Lexer for Csound (Orchestra & Score)
 ** Written by Georg Ritter - <ritterfuture A T gmail D O T com>
 **/
// Copyright 1998-2003 by Neil Hodgson <neilh@scintilla.org>
// The License.txt file describes the conditions under which this software may be distributed.

#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"

#ifdef SCI_NAMESPACE
using namespace Scintilla;
#endif

static inline bool IsAWordChar(const int ch) {
	return (ch < 0x80) && (isalnum(ch) || ch == '.' ||
		ch == '_' || ch == '?');
}

static inline bool IsAWordStart(const int ch) {
	return (ch < 0x80) && (isalnum(ch) || ch == '_' || ch == '.' ||
		ch == '%' || ch == '@' || ch == '$' || ch == '?');
}

static inline bool IsCsoundOperator(char ch) {
	if (isascii(ch) && isalnum(ch))
		return false;
	// '.' left out as it is used to make up numbers
	if (ch == '*' || ch == '/' || ch == '-' || ch == '+' ||
		ch == '(' || ch == ')' || ch == '=' || ch == '^' ||
		ch == '[' || ch == ']' || ch == '<' || ch == '&' ||
		ch == '>' || ch == ',' || ch == '|' || ch == '~' ||
		ch == '%' || ch == ':')
		return true;
	return false;
}

static void ColouriseCsoundDoc(unsigned int startPos, int length, int initStyle, WordList *keywordlists[],
				Accessor &styler) {

	WordList &opcode = *keywordlists[0];
	WordList &headerStmt = *keywordlists[1];
	WordList &otherKeyword = *keywordlists[2];

	// Do not leak onto next line
	if (initStyle == SCE_CSOUND_STRINGEOL)
		initStyle = SCE_CSOUND_DEFAULT;

	StyleContext sc(startPos, length, initStyle, styler);

	for (; sc.More(); sc.Forward())
	{
		// Handle line continuation generically.
		if (sc.ch == '\\') {
			if (sc.chNext == '\n' || sc.chNext == '\r') {
				sc.Forward();
				if (sc.ch == '\r' && sc.chNext == '\n') {
					sc.Forward();
				}
				continue;
			}
		}

		// Determine if the current state should terminate.
		if (sc.state == SCE_CSOUND_OPERATOR) {
			if (!IsCsoundOperator(static_cast<char>(sc.ch))) {
			    sc.SetState(SCE_CSOUND_DEFAULT);
			}
		}else if (sc.state == SCE_CSOUND_NUMBER) {
			if (!IsAWordChar(sc.ch)) {
				sc.SetState(SCE_CSOUND_DEFAULT);
			}
		} else if (sc.state == SCE_CSOUND_IDENTIFIER) {
			if (!IsAWordChar(sc.ch) ) {
				char s[100];
				sc.GetCurrent(s, sizeof(s));

				if (opcode.InList(s)) {
					sc.ChangeState(SCE_CSOUND_OPCODE);
				} else if (headerStmt.InList(s)) {
					sc.ChangeState(SCE_CSOUND_HEADERSTMT);
				} else if (otherKeyword.InList(s)) {
					sc.ChangeState(SCE_CSOUND_USERKEYWORD);
				} else if (s[0] == 'p') {
					sc.ChangeState(SCE_CSOUND_PARAM);
				} else if (s[0] == 'a') {
					sc.ChangeState(SCE_CSOUND_ARATE_VAR);
				} else if (s[0] == 'k') {
					sc.ChangeState(SCE_CSOUND_KRATE_VAR);
				} else if (s[0] == 'i') { // covers both i-rate variables and i-statements
					sc.ChangeState(SCE_CSOUND_IRATE_VAR);
				} else if (s[0] == 'g') {
					sc.ChangeState(SCE_CSOUND_GLOBAL_VAR);
				}
				sc.SetState(SCE_CSOUND_DEFAULT);
			}
		}
		else if (sc.state == SCE_CSOUND_COMMENT ) {
			if (sc.atLineEnd) {
				sc.SetState(SCE_CSOUND_DEFAULT);
			}
		}
		else if ((sc.state == SCE_CSOUND_ARATE_VAR) ||
			(sc.state == SCE_CSOUND_KRATE_VAR) ||
		(sc.state == SCE_CSOUND_IRATE_VAR)) {
			if (!IsAWordChar(sc.ch)) {
				sc.SetState(SCE_CSOUND_DEFAULT);
			}
		}

		// Determine if a new state should be entered.
		if (sc.state == SCE_CSOUND_DEFAULT) {
			if (sc.ch == ';'){
				sc.SetState(SCE_CSOUND_COMMENT);
			} else if (isdigit(sc.ch) || (sc.ch == '.' && isdigit(sc.chNext))) {
				sc.SetState(SCE_CSOUND_NUMBER);
			} else if (IsAWordStart(sc.ch)) {
				sc.SetState(SCE_CSOUND_IDENTIFIER);
			} else if (IsCsoundOperator(static_cast<char>(sc.ch))) {
				sc.SetState(SCE_CSOUND_OPERATOR);
			} else if (sc.ch == 'p') {
				sc.SetState(SCE_CSOUND_PARAM);
			} else if (sc.ch == 'a') {
				sc.SetState(SCE_CSOUND_ARATE_VAR);
			} else if (sc.ch == 'k') {
				sc.SetState(SCE_CSOUND_KRATE_VAR);
			} else if (sc.ch == 'i') { // covers both i-rate variables and i-statements
				sc.SetState(SCE_CSOUND_IRATE_VAR);
			} else if (sc.ch == 'g') {
				sc.SetState(SCE_CSOUND_GLOBAL_VAR);
			}
		}
	}
	sc.Complete();
}

static void FoldCsoundInstruments(unsigned int startPos, int length, int /* initStyle */, WordList *[],
		Accessor &styler) {
	unsigned int lengthDoc = startPos + length;
	int visibleChars = 0;
	int lineCurrent = styler.GetLine(startPos);
	int levelPrev = styler.LevelAt(lineCurrent) & SC_FOLDLEVELNUMBERMASK;
	int levelCurrent = levelPrev;
	char chNext = styler[startPos];
	int stylePrev = 0;
	int styleNext = styler.StyleAt(startPos);
	for (unsigned int i = startPos; i < lengthDoc; i++) {
		char ch = chNext;
		chNext = styler.SafeGetCharAt(i + 1);
		int style = styleNext;
		styleNext = styler.StyleAt(i + 1);
		bool atEOL = (ch == '\r' && chNext != '\n') || (ch == '\n');
		if ((stylePrev != SCE_CSOUND_OPCODE) && (style == SCE_CSOUND_OPCODE)) {
			char s[20];
			unsigned int j = 0;
			while ((j < (sizeof(s) - 1)) && (iswordchar(styler[i + j]))) {
				s[j] = styler[i + j];
				j++;
			}
			s[j] = '\0';

			if (strcmp(s, "instr") == 0)
				levelCurrent++;
			if (strcmp(s, "endin") == 0)
				levelCurrent--;
		}

		if (atEOL) {
			int lev = levelPrev;
			if (visibleChars == 0)
				lev |= SC_FOLDLEVELWHITEFLAG;
			if ((levelCurrent > levelPrev) && (visibleChars > 0))
				lev |= SC_FOLDLEVELHEADERFLAG;
			if (lev != styler.LevelAt(lineCurrent)) {
				styler.SetLevel(lineCurrent, lev);
			}
			lineCurrent++;
			levelPrev = levelCurrent;
			visibleChars = 0;
		}
		if (!isspacechar(ch))
			visibleChars++;
		stylePrev = style;
	}
	// Fill in the real level of the next line, keeping the current flags as they will be filled in later
	int flagsNext = styler.LevelAt(lineCurrent) & ~SC_FOLDLEVELNUMBERMASK;
	styler.SetLevel(lineCurrent, levelPrev | flagsNext);
}


static const char * const csoundWordListDesc[] = {
	"Opcodes",
	"Header Statements",
	"User keywords",
	0
};

LexerModule lmCsound(SCLEX_CSOUND, ColouriseCsoundDoc, "csound", FoldCsoundInstruments, csoundWordListDesc);
Commit	Line	Data
1e9bafca RD	1	// Scintilla source code edit control
	2	/** @file LexCsound.cxx
	3	** Lexer for Csound (Orchestra & Score)
	4	** Written by Georg Ritter - <ritterfuture A T gmail D O T com>
	5	**/
	6	// Copyright 1998-2003 by Neil Hodgson <neilh@scintilla.org>
	7	// The License.txt file describes the conditions under which this software may be distributed.
	8
	9	#include <stdlib.h>
	10	#include <string.h>
1e9bafca RD	11	#include <stdio.h>
1e9bafca RD	12	#include <stdarg.h>
1dcf666d RD	13	#include <assert.h>
1dcf666d RD	14	#include <ctype.h>
1e9bafca	15
1dcf666d	16	#include "ILexer.h"
1e9bafca RD	17	#include "Scintilla.h"
	18	#include "SciLexer.h"
	19
1dcf666d RD	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
7e0c58e9 RD	27	#ifdef SCI_NAMESPACE
	28	using namespace Scintilla;
	29	#endif
1e9bafca RD	30
	31	static inline bool IsAWordChar(const int ch) {
	32	return (ch < 0x80) && (isalnum(ch) \|\| ch == '.' \|\|
	33	ch == '_' \|\| ch == '?');
	34	}
	35
	36	static inline bool IsAWordStart(const int ch) {
	37	return (ch < 0x80) && (isalnum(ch) \|\| ch == '_' \|\| ch == '.' \|\|
	38	ch == '%' \|\| ch == '@' \|\| ch == '$' \|\| ch == '?');
	39	}
	40
	41	static inline bool IsCsoundOperator(char ch) {
1dcf666d	42	if (isascii(ch) && isalnum(ch))
1e9bafca RD	43	return false;
	44	// '.' left out as it is used to make up numbers
	45	if (ch == '*' \|\| ch == '/' \|\| ch == '-' \|\| ch == '+' \|\|
	46	ch == '(' \|\| ch == ')' \|\| ch == '=' \|\| ch == '^' \|\|
	47	ch == '[' \|\| ch == ']' \|\| ch == '<' \|\| ch == '&' \|\|
	48	ch == '>' \|\| ch == ',' \|\| ch == '\|' \|\| ch == '~' \|\|
	49	ch == '%' \|\| ch == ':')
	50	return true;
	51	return false;
	52	}
	53
	54	static void ColouriseCsoundDoc(unsigned int startPos, int length, int initStyle, WordList *keywordlists[],
	55	Accessor &styler) {
	56
	57	WordList &opcode = *keywordlists[0];
	58	WordList &headerStmt = *keywordlists[1];
	59	WordList &otherKeyword = *keywordlists[2];
	60
	61	// Do not leak onto next line
	62	if (initStyle == SCE_CSOUND_STRINGEOL)
	63	initStyle = SCE_CSOUND_DEFAULT;
	64
	65	StyleContext sc(startPos, length, initStyle, styler);
	66
	67	for (; sc.More(); sc.Forward())
	68	{
	69	// Handle line continuation generically.
	70	if (sc.ch == '\\') {
	71	if (sc.chNext == '\n' \|\| sc.chNext == '\r') {
	72	sc.Forward();
	73	if (sc.ch == '\r' && sc.chNext == '\n') {
	74	sc.Forward();
	75	}
	76	continue;
	77	}
	78	}
1dcf666d	79
1e9bafca RD	80	// Determine if the current state should terminate.
	81	if (sc.state == SCE_CSOUND_OPERATOR) {
	82	if (!IsCsoundOperator(static_cast<char>(sc.ch))) {
	83	sc.SetState(SCE_CSOUND_DEFAULT);
	84	}
	85	}else if (sc.state == SCE_CSOUND_NUMBER) {
	86	if (!IsAWordChar(sc.ch)) {
	87	sc.SetState(SCE_CSOUND_DEFAULT);
	88	}
	89	} else if (sc.state == SCE_CSOUND_IDENTIFIER) {
	90	if (!IsAWordChar(sc.ch) ) {
	91	char s[100];
	92	sc.GetCurrent(s, sizeof(s));
	93
	94	if (opcode.InList(s)) {
	95	sc.ChangeState(SCE_CSOUND_OPCODE);
	96	} else if (headerStmt.InList(s)) {
	97	sc.ChangeState(SCE_CSOUND_HEADERSTMT);
	98	} else if (otherKeyword.InList(s)) {
	99	sc.ChangeState(SCE_CSOUND_USERKEYWORD);
	100	} else if (s[0] == 'p') {
	101	sc.ChangeState(SCE_CSOUND_PARAM);
	102	} else if (s[0] == 'a') {
	103	sc.ChangeState(SCE_CSOUND_ARATE_VAR);
	104	} else if (s[0] == 'k') {
	105	sc.ChangeState(SCE_CSOUND_KRATE_VAR);
	106	} else if (s[0] == 'i') { // covers both i-rate variables and i-statements
	107	sc.ChangeState(SCE_CSOUND_IRATE_VAR);
	108	} else if (s[0] == 'g') {
	109	sc.ChangeState(SCE_CSOUND_GLOBAL_VAR);
	110	}
	111	sc.SetState(SCE_CSOUND_DEFAULT);
	112	}
	113	}
	114	else if (sc.state == SCE_CSOUND_COMMENT ) {
	115	if (sc.atLineEnd) {
	116	sc.SetState(SCE_CSOUND_DEFAULT);
	117	}
	118	}
	119	else if ((sc.state == SCE_CSOUND_ARATE_VAR) \|\|
	120	(sc.state == SCE_CSOUND_KRATE_VAR) \|\|
	121	(sc.state == SCE_CSOUND_IRATE_VAR)) {
	122	if (!IsAWordChar(sc.ch)) {
	123	sc.SetState(SCE_CSOUND_DEFAULT);
	124	}
	125	}
1dcf666d	126
1e9bafca RD	127	// Determine if a new state should be entered.
	128	if (sc.state == SCE_CSOUND_DEFAULT) {
	129	if (sc.ch == ';'){
	130	sc.SetState(SCE_CSOUND_COMMENT);
	131	} else if (isdigit(sc.ch) \|\| (sc.ch == '.' && isdigit(sc.chNext))) {
	132	sc.SetState(SCE_CSOUND_NUMBER);
	133	} else if (IsAWordStart(sc.ch)) {
	134	sc.SetState(SCE_CSOUND_IDENTIFIER);
	135	} else if (IsCsoundOperator(static_cast<char>(sc.ch))) {
	136	sc.SetState(SCE_CSOUND_OPERATOR);
	137	} else if (sc.ch == 'p') {
	138	sc.SetState(SCE_CSOUND_PARAM);
	139	} else if (sc.ch == 'a') {
	140	sc.SetState(SCE_CSOUND_ARATE_VAR);
	141	} else if (sc.ch == 'k') {
	142	sc.SetState(SCE_CSOUND_KRATE_VAR);
	143	} else if (sc.ch == 'i') { // covers both i-rate variables and i-statements
	144	sc.SetState(SCE_CSOUND_IRATE_VAR);
	145	} else if (sc.ch == 'g') {
	146	sc.SetState(SCE_CSOUND_GLOBAL_VAR);
	147	}
	148	}
	149	}
	150	sc.Complete();
	151	}
	152
1dcf666d	153	static void FoldCsoundInstruments(unsigned int startPos, int length, int /* initStyle /, WordList [],
1e9bafca RD	154	Accessor &styler) {
	155	unsigned int lengthDoc = startPos + length;
	156	int visibleChars = 0;
	157	int lineCurrent = styler.GetLine(startPos);
	158	int levelPrev = styler.LevelAt(lineCurrent) & SC_FOLDLEVELNUMBERMASK;
	159	int levelCurrent = levelPrev;
	160	char chNext = styler[startPos];
	161	int stylePrev = 0;
	162	int styleNext = styler.StyleAt(startPos);
	163	for (unsigned int i = startPos; i < lengthDoc; i++) {
	164	char ch = chNext;
	165	chNext = styler.SafeGetCharAt(i + 1);
	166	int style = styleNext;
	167	styleNext = styler.StyleAt(i + 1);
	168	bool atEOL = (ch == '\r' && chNext != '\n') \|\| (ch == '\n');
	169	if ((stylePrev != SCE_CSOUND_OPCODE) && (style == SCE_CSOUND_OPCODE)) {
	170	char s[20];
	171	unsigned int j = 0;
	172	while ((j < (sizeof(s) - 1)) && (iswordchar(styler[i + j]))) {
	173	s[j] = styler[i + j];
	174	j++;
	175	}
	176	s[j] = '\0';
	177
	178	if (strcmp(s, "instr") == 0)
	179	levelCurrent++;
	180	if (strcmp(s, "endin") == 0)
	181	levelCurrent--;
	182	}
	183
	184	if (atEOL) {
	185	int lev = levelPrev;
	186	if (visibleChars == 0)
	187	lev \|= SC_FOLDLEVELWHITEFLAG;
	188	if ((levelCurrent > levelPrev) && (visibleChars > 0))
	189	lev \|= SC_FOLDLEVELHEADERFLAG;
	190	if (lev != styler.LevelAt(lineCurrent)) {
	191	styler.SetLevel(lineCurrent, lev);
	192	}
	193	lineCurrent++;
	194	levelPrev = levelCurrent;
	195	visibleChars = 0;
	196	}
	197	if (!isspacechar(ch))
	198	visibleChars++;
	199	stylePrev = style;
	200	}
	201	// Fill in the real level of the next line, keeping the current flags as they will be filled in later
	202	int flagsNext = styler.LevelAt(lineCurrent) & ~SC_FOLDLEVELNUMBERMASK;
	203	styler.SetLevel(lineCurrent, levelPrev \| flagsNext);
	204	}
	205
	206
	207	static const char * const csoundWordListDesc[] = {
	208	"Opcodes",
	209	"Header Statements",
	210	"User keywords",
	211	0
	212	};
	213
	214	LexerModule lmCsound(SCLEX_CSOUND, ColouriseCsoundDoc, "csound", FoldCsoundInstruments, csoundWordListDesc);