markmental/evil-qemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
evil-qemacs/clang.c
Charlie Gordon da7db82cb7 updated copyrights, changed version to 5.0beta
2018-04-11 13:46:03 +00:00

3129 lines
97 KiB
C
Raw Blame History

/*
* C mode for QEmacs.
*
* Copyright (c) 2001-2002 Fabrice Bellard.
* Copyright (c) 2002-2018 Charlie Gordon.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
#include "qe.h"
/* C mode flavors */
enum {
CLANG_C,
CLANG_CPP,
CLANG_C2,
CLANG_OBJC,
CLANG_CSHARP,
CLANG_AWK,
CLANG_CSS,
CLANG_JSON,
CLANG_JS,
CLANG_TS,
CLANG_JSPP,
CLANG_KOKA,
CLANG_AS,
CLANG_JAVA,
CLANG_SCALA,
CLANG_PHP,
CLANG_GO,
CLANG_D,
CLANG_LIMBO,
CLANG_CYCLONE,
CLANG_CH,
CLANG_SQUIRREL,
CLANG_ICI,
CLANG_JSX,
CLANG_HAXE,
CLANG_DART,
CLANG_PIKE,
CLANG_IDL,
CLANG_CALC,
CLANG_ENSCRIPT,
CLANG_QSCRIPT,
CLANG_ELASTIC,
CLANG_JED,
CLANG_CSL,
CLANG_NEKO,
CLANG_NML,
CLANG_ALLOY,
CLANG_SCILAB,
CLANG_KOTLIN,
CLANG_CBANG,
CLANG_VALA,
CLANG_PAWN,
CLANG_CMINUS,
CLANG_GMSCRIPT,
CLANG_WREN,
CLANG_RUST,
CLANG_SWIFT,
CLANG_ICON,
CLANG_GROOVY,
CLANG_VIRGIL,
CLANG_FLAVOR = 0x3F,
};
/* C mode options */
#define CLANG_LEX 0x00200
#define CLANG_YACC 0x00400
#define CLANG_REGEX 0x00800
#define CLANG_WLITERALS 0x01000
#define CLANG_PREPROC 0x02000
#define CLANG_CAP_TYPE 0x04000 /* Mixed case initial cap is type */
#define CLANG_STR3 0x08000 /* Support """strings""" */
#define CLANG_LINECONT 0x10000 /* support \<newline> as line continuation */
#define CLANG_CC 0x13100 /* all C language features */
static const char c_keywords[] = {
"auto|break|case|const|continue|default|do|else|enum|extern|for|goto|"
"if|inline|register|restrict|return|sizeof|static|struct|switch|"
"typedef|union|volatile|while|"
};
static const char c_types[] = {
"char|double|float|int|long|unsigned|short|signed|void|va_list|"
"_Bool|_Complex|_Imaginary|FILE|"
};
static const char c_extensions[] = {
"c|h|i|C|H|I|" /* C language */
/* Other C flavors */
"e|" /* EEL */
"ecp|" /* Informix embedded C */
"pgc|" /* Postgres embedded C */
"pcc|" /* Oracle C++ */
};
/* grab a C identifier from a uint buf, stripping color.
* return char count.
*/
static int get_c_identifier(char *buf, int buf_size, unsigned int *p,
int flavor)
{
unsigned int c;
int i, j;
i = j = 0;
c = p[i];
if (qe_isalpha_(c)
|| c == '$'
|| (c == '@' && flavor != CLANG_PIKE)
|| (flavor == CLANG_RUST && c >= 128)) {
for (;;) {
if (j < buf_size - 1) {
/* XXX: utf-8 bug */
buf[j++] = (c < 0xFF) ? c : 0xFF;
}
i++;
c = p[i];
if (c == '-' && flavor == CLANG_CSS)
continue;
if (qe_isalnum_(c))
continue;
if (flavor == CLANG_RUST && c >= 128)
continue;
if (c == ':' && p[i + 1] == ':'
&& flavor == CLANG_CPP
&& qe_isalpha_(p[i + 2])) {
if (j < buf_size - 2) {
buf[j++] = c;
buf[j++] = c;
}
i += 2;
c = p[i];
continue;
}
break;
}
}
buf[j] = '\0';
return i;
}
static int qe_haslower(const char *str) {
while (*str) {
if (qe_islower(*str++)) return 1;
}
return 0;
}
enum {
C_STYLE_DEFAULT = 0,
C_STYLE_PREPROCESS = QE_STYLE_PREPROCESS,
C_STYLE_COMMENT = QE_STYLE_COMMENT,
C_STYLE_REGEX = QE_STYLE_STRING_Q,
C_STYLE_STRING = QE_STYLE_STRING,
C_STYLE_STRING_Q = QE_STYLE_STRING_Q,
C_STYLE_STRING_BQ = QE_STYLE_STRING,
C_STYLE_NUMBER = QE_STYLE_NUMBER,
C_STYLE_KEYWORD = QE_STYLE_KEYWORD,
C_STYLE_TYPE = QE_STYLE_TYPE,
C_STYLE_FUNCTION = QE_STYLE_FUNCTION,
C_STYLE_VARIABLE = QE_STYLE_VARIABLE,
};
/* c-mode colorization states */
enum {
IN_C_COMMENT = 0x01, /* multiline comment */
IN_C_COMMENT1 = 0x02, /* single line comment with \ at EOL */
IN_C_STRING = 0x04, /* double-quoted string */
IN_C_STRING_Q = 0x08, /* single-quoted string */
IN_C_STRING_BQ = 0x10, /* back-quoted string (go's multi-line string) */
/* """ multiline quoted string (dart, scala) */
IN_C_PREPROCESS = 0x20, /* preprocessor directive with \ at EOL */
IN_C_REGEX = 0x40, /* regex */
IN_C_CHARCLASS = 0x80, /* regex char class */
IN_C_COMMENT_D = 0x700, /* nesting D comment level (max 7 deep) */
IN_C_COMMENT_D_SHIFT = 8,
};
static void c_colorize_line(QEColorizeContext *cp,
unsigned int *str, int n, ModeDef *syn)
{
int i = 0, start, i1, i2, indent, level;
int c, style, style0, style1, type_decl, klen, delim, prev, tag;
char kbuf[64];
int mode_flags = syn->colorize_flags;
int flavor = (mode_flags & CLANG_FLAVOR);
int state = cp->colorize_state;
for (indent = 0; qe_isblank(str[indent]); indent++)
continue;
tag = !indent && cp->s->mode == syn;
start = i;
type_decl = 0;
c = 0;
style0 = style = C_STYLE_DEFAULT;
if (i >= n)
goto the_end;
if (state) {
/* if already in a state, go directly in the code parsing it */
if (state & IN_C_PREPROCESS)
style0 = style = C_STYLE_PREPROCESS;
if (state & IN_C_COMMENT)
goto parse_comment;
if (state & IN_C_COMMENT1)
goto parse_comment1;
if (state & IN_C_COMMENT_D)
goto parse_comment_d;
if (state & IN_C_STRING)
goto parse_string;
if (state & IN_C_STRING_Q)
goto parse_string_q;
if ((state & IN_C_STRING_BQ)
&& (flavor == CLANG_SCALA || flavor == CLANG_DART))
goto parse_string3;
if (state & IN_C_STRING_BQ)
goto parse_string_bq;
if (state & IN_C_REGEX) {
delim = '/';
goto parse_regex;
}
}
while (i < n) {
start = i;
c = str[i++];
switch (c) {
case '/':
if (str[i] == '*') {
/* normal comment */
/* XXX: support nested comments for Scala */
i++;
parse_comment:
style = C_STYLE_COMMENT;
state |= IN_C_COMMENT;
for (; i < n; i++) {
if (str[i] == '*' && str[i + 1] == '/') {
i += 2;
state &= ~IN_C_COMMENT;
style = style0;
break;
}
}
SET_COLOR(str, start, i, C_STYLE_COMMENT);
continue;
} else
if (str[i] == '/') {
/* line comment */
parse_comment1:
style = C_STYLE_COMMENT;
state |= IN_C_COMMENT1;
i = n;
SET_COLOR(str, start, i, C_STYLE_COMMENT);
continue;
}
if (flavor == CLANG_D && (str[i] == '+')) {
/* D language nesting long comment */
i++;
state |= (1 << IN_C_COMMENT_D_SHIFT);
parse_comment_d:
style = C_STYLE_COMMENT;
level = (state & IN_C_COMMENT_D) >> IN_C_COMMENT_D_SHIFT;
while (i < n) {
if (str[i] == '/' && str[i + 1] == '+') {
i += 2;
level++;
} else
if (str[i] == '+' && str[i + 1] == '/') {
i += 2;
level--;
if (level == 0) {
style = style0;
break;
}
} else {
i++;
}
}
state = (state & ~IN_C_COMMENT_D) |
(min(level, 7) << IN_C_COMMENT_D_SHIFT);
SET_COLOR(str, start, i, C_STYLE_COMMENT);
continue;
}
/* XXX: should use more context to tell regex from divide */
prev = ' ';
for (i1 = start; i1 > indent; ) {
prev = str[--i1] & CHAR_MASK;
if (!qe_isblank(prev))
break;
}
if ((mode_flags & CLANG_REGEX)
&& (qe_findchar(" [({},;=<>!~^&|*/%?:", prev)
|| (str[i1] >> STYLE_SHIFT) == C_STYLE_KEYWORD
|| (str[i] != ' ' && (str[i] != '=' || str[i + 1] != ' ')
&& !(qe_isalnum(prev) || prev == ')')))) {
/* parse regex */
state |= IN_C_REGEX;
delim = '/';
parse_regex:
style = C_STYLE_REGEX;
while (i < n) {
c = str[i++];
if (c == '\\') {
if (i < n) {
i += 1;
}
} else
if (state & IN_C_CHARCLASS) {
if (c == ']') {
state &= ~IN_C_CHARCLASS;
}
/* ECMA 5: ignore '/' inside char classes */
} else {
if (c == '[') {
state |= IN_C_CHARCLASS;
} else
if (c == delim) {
while (qe_isalnum_(str[i])) {
i++;
}
state &= ~IN_C_REGEX;
style = style0;
break;
}
}
}
SET_COLOR(str, start, i, C_STYLE_REGEX);
continue;
}
break;
case '%':
if (flavor == CLANG_JED) {
goto parse_comment1;
}
break;
case '#': /* preprocessor */
if (start == 0 && str[i] == '!') {
/* recognize a shebang comment line */
style = style0 = C_STYLE_PREPROCESS;
i = n;
SET_COLOR(str, start, i, C_STYLE_PREPROCESS);
break;
}
if (mode_flags & CLANG_PREPROC) {
state |= IN_C_PREPROCESS;
style = style0 = C_STYLE_PREPROCESS;
}
if (flavor == CLANG_D) {
/* only #line is supported, but can occur anywhere */
state |= IN_C_PREPROCESS;
style = style0 = C_STYLE_PREPROCESS;
}
if (flavor == CLANG_PHP || flavor == CLANG_LIMBO || flavor == CLANG_SQUIRREL) {
goto parse_comment1;
}
if (flavor == CLANG_ICI) {
delim = '#';
goto parse_regex;
}
if (flavor == CLANG_HAXE || flavor == CLANG_CBANG) {
i += get_c_identifier(kbuf, countof(kbuf), str + i, flavor);
// XXX: check for proper preprocessor directive?
SET_COLOR(str, start, i, C_STYLE_PREPROCESS);
continue;
}
if (flavor == CLANG_PIKE) {
if (str[i] == '\"') {
i++;
goto parse_string;
}
state |= IN_C_PREPROCESS;
style = style0 = C_STYLE_PREPROCESS;
}
break;
case 'L': /* wide character and string literals */
if (mode_flags & CLANG_WLITERALS) {
if (str[i] == '\'') {
i++;
goto parse_string_q;
}
if (str[i] == '\"') {
i++;
goto parse_string;
}
}
goto normal;
// case 'r':
/* XXX: D language r" wysiwyg chars " */
// case 'X':
/* XXX: D language X" hex string chars " */
// case 'q':
/* XXX: D language q" delim wysiwyg chars delim " */
/* XXX: D language q{ tokens } */
case '\'': /* character constant */
if (flavor == CLANG_SCILAB)
goto normal;
parse_string_q:
state |= IN_C_STRING_Q;
style1 = C_STYLE_STRING_Q;
delim = '\'';
goto string;
case '`':
if (flavor == CLANG_SCALA || flavor == CLANG_GMSCRIPT) {
/* scala quoted identifier */
while (i < n) {
c = str[i++];
if (c == '`')
break;
}
SET_COLOR(str, start, i, C_STYLE_VARIABLE);
continue;
}
if (flavor == CLANG_GO || flavor == CLANG_D) {
/* go language multi-line string, no escape sequences */
parse_string_bq:
state |= IN_C_STRING_BQ;
style1 = C_STYLE_STRING_BQ;
delim = '`';
while (i < n) {
c = str[i++];
if (c == delim) {
state &= ~IN_C_STRING_BQ;
break;
}
}
if (state & IN_C_PREPROCESS)
style1 = C_STYLE_PREPROCESS;
SET_COLOR(str, start, i, style1);
continue;
}
break;
case '@':
if (flavor == CLANG_C2) {
// XXX: should colorize attributes as C_STYLE_PREPROC
// @(...)
}
if (flavor == CLANG_CSHARP || flavor == CLANG_SQUIRREL) {
if (str[i] == '\"') {
/* Csharp and Squirrel Verbatim strings */
/* ignore escape sequences and newlines */
state |= IN_C_STRING; // XXX: IN_RAW_STRING
style1 = C_STYLE_STRING;
delim = str[i];
style = style1;
for (i++; i < n;) {
c = str[i++];
if (c == delim) {
if (str[i] == (unsigned int)c) {
i++;
continue;
}
state &= ~(IN_C_STRING | IN_C_STRING_Q | IN_C_STRING_BQ);
style = style0;
break;
}
}
SET_COLOR(str, start, i, style1);
continue;
}
}
if ((flavor == CLANG_JAVA || flavor == CLANG_SCALA) && qe_isalpha(str[i])) {
/* Java annotations */
while (qe_isalnum_(str[i]) || str[i] == '.')
i++;
if (start == 0 || str[start - 1] != '.')
SET_COLOR(str, start, i, C_STYLE_PREPROCESS);
continue;
}
goto normal;
case '\"': /* string literal */
if ((mode_flags & CLANG_STR3)
&& (str[i] == '\"' && str[i + 1] == '\"')) {
/* multiline """ quoted string */
i += 2;
parse_string3:
state |= IN_C_STRING_BQ;
style1 = C_STYLE_STRING;
while (i < n) {
c = str[i++];
if (c == '\\' && flavor != CLANG_KOTLIN) {
if (i < n)
i++;
} else
if (c == '\"' && str[i] == '\"' && str[i + 1] == '\"') {
state &= ~IN_C_STRING_BQ;
style = style0;
break;
}
}
SET_COLOR(str, start, i, style1);
continue;
}
parse_string:
state |= IN_C_STRING;
style1 = C_STYLE_STRING;
delim = '\"';
string:
style = style1;
while (i < n) {
c = str[i++];
if (c == '\\' && flavor != CLANG_SCILAB) {
if (i >= n)
break;
i++;
} else
if (c == delim) {
if (flavor == CLANG_SCILAB && (int)str[i] == delim) {
i++;
continue;
}
state &= ~(IN_C_STRING | IN_C_STRING_Q | IN_C_STRING_BQ);
style = style0;
break;
}
}
if (flavor == CLANG_D) {
/* ignore optional string postfix */
if (qe_findchar("cwd", str[i]))
i++;
}
if (state & IN_C_PREPROCESS)
style1 = C_STYLE_PREPROCESS;
SET_COLOR(str, start, i, style1);
continue;
case '=':
/* exit type declaration */
/* does not handle this: int i = 1, j = 2; */
type_decl = 0;
break;
case '<': /* JavaScript extension */
if (flavor == CLANG_JS) {
if (str[i] == '!' && str[i + 1] == '-' && str[i + 2] == '-')
goto parse_comment1;
}
break;
case '(':
case '{':
tag = 0;
break;
default:
normal:
if (state & IN_C_PREPROCESS)
break;
if (qe_isdigit(c)) {
/* XXX: should parse actual number syntax */
/* XXX: D ignores embedded '_' and accepts l,u,U,f,F,i suffixes */
/* XXX: Java accepts 0b prefix for binary literals,
* ignores '_' between digits and accepts 'l' or 'L' suffixes */
/* scala ignores '_' in integers */
/* XXX: should parse decimal and hex floating point syntaxes */
/* 2 dots in a row are a range operator, not a decimal point */
while (qe_isalnum_(str[i]) || (str[i] == '.' && str[i + 1] != '.')) {
i++;
}
SET_COLOR(str, start, i, C_STYLE_NUMBER);
continue;
}
if (qe_isalpha_(c) || c == '$' || (c == '@' && flavor != CLANG_PIKE)) {
/* XXX: should support :: */
klen = get_c_identifier(kbuf, countof(kbuf), str + start, flavor);
i = start + klen;
if (strfind(syn->keywords, kbuf)
|| ((mode_flags & CLANG_CC) && strfind(c_keywords, kbuf))
|| ((flavor == CLANG_CSS) && str[i] == ':')) {
SET_COLOR(str, start, i, C_STYLE_KEYWORD);
continue;
}
i1 = i;
while (qe_isblank(str[i1]))
i1++;
i2 = i1;
while (str[i2] == '*' || qe_isblank(str[i2]))
i2++;
if (tag && qe_findchar("({[,;=", str[i1])) {
eb_add_property(cp->b, cp->offset + start,
QE_PROP_TAG, qe_strdup(kbuf));
}
if ((start == 0 || str[start - 1] != '.')
&& (!qe_findchar(".(:", str[i]) || flavor == CLANG_PIKE)
&& (strfind(syn->types, kbuf)
|| ((mode_flags & CLANG_CC) && strfind(c_types, kbuf))
|| (((mode_flags & CLANG_CC) || (flavor == CLANG_D)) &&
strend(kbuf, "_t", NULL))
|| ((mode_flags & CLANG_CAP_TYPE) &&
qe_isupper(c) && qe_haslower(kbuf))
|| (flavor == CLANG_HAXE && qe_isupper(c) && qe_haslower(kbuf) &&
(start == 0 || !qe_findchar("(", str[start - 1]))))) {
/* if not cast, assume type declaration */
if (str[i2] != ')') {
type_decl = 1;
}
style1 = C_STYLE_TYPE;
if (str[i1] == '(' && flavor != CLANG_PIKE) {
/* function style cast */
style1 = C_STYLE_FUNCTION; //C_STYLE_KEYWORD;
}
SET_COLOR(str, start, i, style1);
continue;
}
if (str[i1] == '(') {
/* function call */
/* XXX: different styles for call and definition */
SET_COLOR(str, start, i, C_STYLE_FUNCTION);
continue;
}
if ((mode_flags & CLANG_CC) || flavor == CLANG_JAVA) {
/* assume typedef if starting at first column */
if (start == 0 && qe_isalpha_(str[i]))
type_decl = 1;
if (type_decl) {
if (start == 0) {
/* assume type if first column */
SET_COLOR(str, start, i, C_STYLE_TYPE);
} else {
SET_COLOR(str, start, i, C_STYLE_VARIABLE);
}
}
}
continue;
}
break;
}
SET_COLOR1(str, start, style);
}
the_end:
if (state & (IN_C_COMMENT | IN_C_COMMENT1 | IN_C_COMMENT_D |
IN_C_PREPROCESS |
IN_C_STRING | IN_C_STRING_Q | IN_C_STRING_BQ)) {
/* set style on eol char */
SET_COLOR1(str, n, style);
}
/* strip state if not overflowing from a comment */
if (!(state & IN_C_COMMENT) &&
(!(mode_flags & CLANG_LINECONT) || n <= 0 || (str[n - 1] & CHAR_MASK) != '\\')) {
state &= ~(IN_C_COMMENT1 | IN_C_PREPROCESS);
}
cp->colorize_state = state;
}
#define MAX_STACK_SIZE 64
/* gives the position of the first non white space character in
buf. TABs are counted correctly */
static int find_indent1(EditState *s, unsigned int *buf)
{
unsigned int *p;
int pos, c, tw;
tw = s->b->tab_width > 0 ? s->b->tab_width : 8;
p = buf;
pos = 0;
for (;;) {
c = *p++;
if (c == '\t')
pos += tw - (pos % tw);
else if (c == ' ')
pos++;
else
break;
}
return pos;
}
static int find_pos(EditState *s, unsigned int *buf, int size)
{
int pos, c, tw, i;
tw = s->b->tab_width > 0 ? s->b->tab_width : 8;
pos = 0;
for (i = 0; i < size; i++) {
c = buf[i];
if (c == '\t') {
pos += tw - (pos % tw);
} else {
/* simplistic case: assume single width characters */
pos++;
}
}
return pos;
}
enum {
INDENT_NORM,
INDENT_FIND_EQ,
};
/* Check if indentation is already what it should be */
static int check_indent(EditState *s, int offset, int i, int *offset_ptr)
{
int tw, col, ntabs, nspaces, bad;
int offset1;
tw = s->b->tab_width > 0 ? s->b->tab_width : 8;
col = ntabs = nspaces = bad = 0;
for (;;) {
int c = eb_nextc(s->b, offset1 = offset, &offset);
if (c == '\t') {
col += tw - col % tw;
bad |= nspaces;
ntabs += 1;
} else
if (c == ' ') {
col += 1;
nspaces += 1;
} else {
break;
}
}
*offset_ptr = offset1;
if (col != i || bad)
return 0;
/* check tabs */
if (s->indent_tabs_mode) {
return (nspaces >= tw) ? 0 : 1;
} else {
return (ntabs > 0) ? 0 : 1;
}
}
/* Insert n spaces at beginning of line at <offset>.
* Store new offset after indentation to <*offset_ptr>.
* Tabs are inserted if s->indent_tabs_mode is true.
*/
static void insert_indent(EditState *s, int offset, int i, int *offset_ptr)
{
/* insert tabs */
if (s->indent_tabs_mode) {
int tw = s->b->tab_width > 0 ? s->b->tab_width : 8;
while (i >= tw) {
offset += eb_insert_uchar(s->b, offset, '\t');
i -= tw;
}
}
/* insert needed spaces */
offset += eb_insert_spaces(s->b, offset, i);
*offset_ptr = offset;
}
/* indent a line of C code starting at <offset> */
static void c_indent_line(EditState *s, int offset0)
{
int offset, offset1, offsetl, c, pos, line_num, col_num;
int i, j, eoi_found, len, pos1, lpos, style, line_num1, state;
unsigned int buf[COLORED_MAX_LINE_SIZE], *p;
QETermStyle sbuf[COLORED_MAX_LINE_SIZE];
unsigned char stack[MAX_STACK_SIZE];
char buf1[64], *q;
int stack_ptr;
/* find start of line */
eb_get_pos(s->b, &line_num, &col_num, offset0);
line_num1 = line_num;
offset = eb_goto_bol(s->b, offset0);
/* now find previous lines and compute indent */
pos = 0;
lpos = -1; /* position of the last instruction start */
offsetl = offset;
eoi_found = 0;
stack_ptr = 0;
state = INDENT_NORM;
for (;;) {
if (offsetl == 0)
break;
line_num--;
offsetl = eb_prev_line(s->b, offsetl);
/* XXX: deal with truncation */
/* XXX: should only query the syntax colorizer */
len = s->get_colorized_line(s, buf, countof(buf), sbuf,
offsetl, &offset1, line_num);
/* store indent position */
pos1 = find_indent1(s, buf);
p = buf + len;
while (p > buf) {
p--;
c = *p;
style = sbuf[p - buf];
/* skip strings or comments */
if (style == C_STYLE_COMMENT
|| style == C_STYLE_STRING
|| style == C_STYLE_PREPROCESS) {
continue;
}
if (state == INDENT_FIND_EQ) {
/* special case to search '=' or ; before { to know if
we are in data definition */
if (c == '=') {
/* data definition case */
pos = lpos;
goto end_parse;
} else if (c == ';') {
/* normal instruction case */
goto check_instr;
}
} else {
switch (c) {
case '}':
if (stack_ptr >= MAX_STACK_SIZE)
return;
stack[stack_ptr++] = c;
goto check_instr;
case '{':
if (stack_ptr == 0) {
if (lpos == -1) {
pos = pos1 + s->indent_size;
eoi_found = 1;
goto end_parse;
} else {
state = INDENT_FIND_EQ;
}
} else {
if (stack[--stack_ptr] != '}') {
/* XXX: syntax check ? */
/* XXX: should set mark and complain */
goto check_instr;
}
goto check_instr;
}
break;
case ')':
case ']':
if (stack_ptr >= MAX_STACK_SIZE)
return;
stack[stack_ptr++] = c;
break;
case '(':
case '[':
if (stack_ptr == 0) {
pos = find_pos(s, buf, p - buf) + 1;
goto end_parse;
} else {
if (stack[--stack_ptr] != (c == '(' ? ')' : ']')) {
/* XXX: syntax check ? */
/* XXX: should set mark and complain */
}
}
break;
case ' ':
case '\t':
case '\n':
break;
case ';':
/* level test needed for 'for(;;)' */
if (stack_ptr == 0) {
/* ; { or } are found before an instruction */
check_instr:
if (lpos >= 0) {
/* start of instruction already found */
pos = lpos;
if (!eoi_found)
pos += s->indent_size;
goto end_parse;
}
eoi_found = 1;
}
break;
case ':':
/* a label line is ignored: regular, case and default labels
* are assumed to have no preceding space
*/
if (style == C_STYLE_DEFAULT
&& (p == buf || !qe_isspace(p[-1])))
goto prev_line;
break;
default:
if (stack_ptr == 0) {
if (style == C_STYLE_KEYWORD) {
unsigned int *p1, *p2;
/* special case for if/for/while */
p1 = p;
while (p > buf && sbuf[p - buf - 1] == C_STYLE_KEYWORD)
p--;
p2 = p;
q = buf1;
while (q < buf1 + countof(buf1) - 1 && p2 <= p1) {
*q++ = *p2++;
}
*q = '\0';
if (!eoi_found && strfind("if|for|while", buf1)) {
/* XXX: do/while? switch? foreach? */
pos = pos1 + s->indent_size;
goto end_parse;
}
}
lpos = pos1;
}
break;
}
}
}
prev_line: ;
}
end_parse:
/* compute special cases which depend on the chars on the current line */
/* XXX: deal with truncation */
/* XXX: should only query the syntax colorizer */
len = s->get_colorized_line(s, buf, countof(buf), sbuf,
offset, &offset1, line_num1);
if (stack_ptr == 0) {
if (!pos && lpos >= 0) {
/* start of instruction already found */
pos = lpos;
if (!eoi_found)
pos += s->indent_size;
}
}
for (i = 0; i < len; i++) {
c = buf[i];
style = sbuf[i];
if (qe_isblank(c))
continue;
/* if preprocess, no indent */
/* XXX: should indent macro definitions and align continuation marks */
if (style == C_STYLE_PREPROCESS) {
pos = 0;
break;
}
if (style == C_STYLE_COMMENT) {
if (c == '/') {
break;
}
if (c == '*') {
pos += 1;
break;
}
/* comment paragraph alignment should depend on previous line */
pos += 3;
break;
}
if (qe_isalpha_(c)) {
j = get_c_identifier(buf1, countof(buf1), buf + i, CLANG_C);
if (style == C_STYLE_KEYWORD) {
if (strfind("case|default", buf1))
goto unindent;
}
for (j += i; qe_isblank(buf[j]); j++)
continue;
if (buf[j] == ':')
goto unindent;
}
/* NOTE: strings & comments are correctly ignored there */
if ((c == '&' || c == '|') && buf[i + 1] == (unsigned int)c)
goto unindent;
if (c == '}') {
unindent:
pos -= s->indent_size;
if (pos < 0)
pos = 0;
break;
}
if (c == '{' && pos == s->indent_size && !eoi_found) {
pos = 0;
break;
}
break;
}
// if (i == len && state is IN_COMMENT) {
// /* XXX: should indent comment paragraphs */
// pos += 3;
// }
/* the computed indent is in 'pos' */
/* if on a blank line, reset indent to 0 unless point is on it */
if (eb_is_blank_line(s->b, offset, NULL)
&& !(s->offset >= offset && s->offset <= eb_goto_eol(s->b, offset))) {
pos = 0;
}
/* Do not modify buffer if indentation in correct */
if (!check_indent(s, offset, pos, &offset1)) {
/* simple approach to normalization of indentation */
eb_delete_range(s->b, offset, offset1);
insert_indent(s, offset, pos, &offset1);
}
#if 0
if (s->mode->auto_indent > 1) { /* auto format */
/* recompute colorization of the current line (after re-indentation) */
len = s->get_colorized_line(s, buf, countof(buf), sbuf,
offset, &offset1, line_num1);
/* skip indentation */
for (pos = 0; qe_isblank(buf[pos]); pos++)
continue;
/* XXX: keywords "if|for|while|switch -> one space before `(` */
/* XXX: keyword "return" -> one space before expression */
/* XXX: keyword "do" -> one space before '{' */
/* XXX: other words -> no space before '(', '[', `++`, `--`, `->`, `.` */
/* XXX: other words and sequences -> space before `*`, but not after */
/* XXX: unary prefix operators: ! ~ - + & * ++ -- */
/* XXX: postfix operators: ++ -- -> . [ */
/* XXX: grouping operators: ( ) [ ] */
/* XXX: binary operators: = == === != !== < > <= >= && ||
^ & | + - * / % << >> ^= &= |= += -= *= /= %= <<= >>= ? : */
/* XXX: sequence operators: , ; */
}
#endif
/* move to the indentation if point was in indent space */
if (s->offset >= offset && s->offset < offset1) {
s->offset = offset1;
}
}
static void do_c_indent(EditState *s)
{
if (eb_is_in_indentation(s->b, s->offset)
&& s->qe_state->last_cmd_func != (CmdFunc)do_c_indent) {
c_indent_line(s, s->offset);
} else {
do_tab(s, 1);
}
}
static void do_c_electric(EditState *s, int key)
{
int offset = s->offset;
int was_preview = s->b->flags & BF_PREVIEW;
do_char(s, key, 1);
if (was_preview)
return;
/* reindent line at original point */
if (s->mode->auto_indent && s->mode->indent_func)
(s->mode->indent_func)(s, eb_goto_bol(s->b, offset));
}
static void do_c_return(EditState *s)
{
int offset = s->offset;
int was_preview = s->b->flags & BF_PREVIEW;
/* XXX: should also remove trailing spaces on current line */
do_return(s, 1);
if (was_preview)
return;
/* reindent line to remove indent on blank line */
if (s->mode->auto_indent && s->mode->indent_func) {
/* delete blanks at end of line (necessary for non blank lines) */
/* XXX: should factorize with do_delete_horizontal_space() */
int from = offset, to = offset;
while (qe_isblank(eb_prevc(s->b, from, &offset)))
from = offset;
eb_delete_range(s->b, from, to);
offset = from;
(s->mode->indent_func)(s, eb_goto_bol(s->b, offset));
(s->mode->indent_func)(s, s->offset);
}
}
/* forward / backward preprocessor */
static void do_c_forward_conditional(EditState *s, int dir)
{
unsigned int buf[COLORED_MAX_LINE_SIZE], *p;
QETermStyle sbuf[COLORED_MAX_LINE_SIZE];
int line_num, col_num, sharp, level;
int offset, offset0, offset1;
offset = offset0 = eb_goto_bol(s->b, s->offset);
eb_get_pos(s->b, &line_num, &col_num, offset);
level = 0;
for (;;) {
/* XXX: should only query the syntax colorizer */
s->get_colorized_line(s, buf, countof(buf), sbuf,
offset, &offset1, line_num);
sharp = 0;
for (p = buf; *p; p++) {
int c = *p;
int style = sbuf[p - buf];
if (qe_isblank(c))
continue;
if (c == '#' && style == C_STYLE_PREPROCESS)
sharp++;
else
break;
}
if (sharp == 1) {
if (ustrstart(p, dir < 0 ? "endif" : "if", NULL)) {
if (level || offset == offset0)
level++;
else
break;
} else
if (ustrstart(p, "el", NULL)) {
if (offset == offset0)
level++;
else
if (level <= 1)
break;
} else
if (ustrstart(p, dir > 0 ? "endif" : "if", NULL)) {
if (level)
level--;
if (!level && offset != offset0)
break;
}
}
if (dir > 0) {
line_num++;
offset = offset1;
if (offset >= s->b->total_size)
break;
} else {
if (offset <= 0)
break;
line_num--;
offset = eb_prev_line(s->b, offset);
}
}
s->offset = offset;
}
static void do_c_list_conditionals(EditState *s)
{
unsigned int buf[COLORED_MAX_LINE_SIZE], *p;
QETermStyle sbuf[COLORED_MAX_LINE_SIZE];
int line_num, col_num, sharp, level;
int offset, offset1;
EditBuffer *b;
b = eb_scratch("Preprocessor conditionals", BF_UTF8);
if (!b)
return;
offset = eb_goto_bol(s->b, s->offset);
eb_get_pos(s->b, &line_num, &col_num, offset);
level = 0;
while (offset > 0) {
line_num--;
offset = eb_prev_line(s->b, offset);
/* XXX: should only query the syntax colorizer */
s->get_colorized_line(s, buf, countof(buf), sbuf,
offset, &offset1, line_num);
sharp = 0;
for (p = buf; *p; p++) {
int c = *p;
int style = sbuf[p - buf];
if (qe_isblank(c))
continue;
if (c == '#' && style == C_STYLE_PREPROCESS)
sharp++;
else
break;
}
if (sharp == 1) {
if (ustrstart(p, "endif", NULL)) {
level++;
} else
if (ustrstart(p, "el", NULL)) {
if (level == 0) {
eb_insert_buffer_convert(b, 0, s->b, offset, offset1 - offset);
}
} else
if (ustrstart(p, "if", NULL)) {
if (level) {
level--;
} else {
eb_insert_buffer_convert(b, 0, s->b, offset, offset1 - offset);
}
}
}
}
if (b->total_size > 0) {
show_popup(s, b);
} else {
eb_free(&b);
put_status(s, "Not in a #if conditional");
}
}
/* C mode specific commands */
static CmdDef c_commands[] = {
CMD2( KEY_CTRL('i'), KEY_NONE,
"c-indent-command", do_c_indent, ES, "*")
/* should map to KEY_META + KEY_CTRL_LEFT ? */
CMD3( KEY_META('['), KEY_NONE,
"c-backward-conditional", do_c_forward_conditional, ESi, -1, "*v")
CMD3( KEY_META(']'), KEY_NONE,
"c-forward-conditional", do_c_forward_conditional, ESi, 1, "*v")
CMD2( KEY_META('i'), KEY_NONE,
"c-list-conditionals", do_c_list_conditionals, ES, "")
CMD2( '{', '}',
"c-electric-key", do_c_electric, ESi, "*ki")
CMD2( KEY_RET, KEY_NONE,
"c-newline", do_c_return, ES, "*v")
CMD_DEF_END,
};
static int c_mode_probe(ModeDef *mode, ModeProbeData *p)
{
/* trust the file extension and/or shell handler */
if (match_extension(p->filename, mode->extensions)
|| match_shell_handler(cs8(p->buf), mode->shell_handlers)) {
return 80;
}
/* weaker match on C comment start */
if (p->buf[0] == '/' && p->buf[1] == '*')
return 60;
/* even weaker match on C++ comment start */
if (p->buf[0] == '/' && p->buf[1] == '/')
return 50;
if (p->buf[0] == '#') {
/* same for files starting with a preprocessor directive */
if (strstart(cs8(p->buf), "#include", NULL)
|| strstart(cs8(p->buf), "#ifndef", NULL)
|| strstart(cs8(p->buf), "#define", NULL)
|| strstart(cs8(p->buf), "#pragma", NULL)) {
return 50;
}
}
return 1;
}
ModeDef c_mode = {
.name = "C",
.extensions = c_extensions,
.shell_handlers = "tcc",
.mode_probe = c_mode_probe,
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_C | CLANG_CC,
.keywords = c_keywords,
.types = c_types,
.indent_func = c_indent_line,
.auto_indent = 1,
};
/* XXX: support Yacc / Bison syntax extensions */
static ModeDef yacc_mode = {
.name = "Yacc",
.extensions = "y|yacc",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_C | CLANG_CC | CLANG_YACC,
.keywords = c_keywords,
.types = c_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/* XXX: support Lex / Flex syntax extensions */
static ModeDef lex_mode = {
.name = "Lex",
.extensions = "l|lex",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_C | CLANG_CC | CLANG_LEX,
.keywords = c_keywords,
.types = c_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- C++ programming language ----------------*/
static const char cpp_keywords[] = {
"asm|catch|class|delete|friend|inline|namespace|new|operator|"
"private|protected|public|template|try|this|virtual|throw|"
"explicit|override|mutable|using|assert|true|false|nullptr|"
// XXX: many missing keywords
};
static const char cpp_types[] = {
"bool|exception|istream|ostream|ofstream|string|vector|map|set|stack|"
"std::istream|std::ostream|std::ofstream|std::string|"
"std::vector|std::unique_ptr|std::map|std::set|std::stack|"
"std::hash|std::unordered_set|std::unordered_map|std::exception|"
"std::string::iterator|std::stringstream|std::ostringstream|"
};
static int cpp_mode_probe(ModeDef *mode, ModeProbeData *p)
{
int score;
/* trust the file extension */
if (match_extension(p->filename, mode->extensions))
return 80;
score = c_mode_probe(&c_mode, p);
if (score > 5) {
if (strstr(cs8(p->buf), "namespace")
|| strstr(cs8(p->buf), "class")
|| strstr(cs8(p->buf), "::")) {
return score + 5;
}
return score - 5;
}
return 1;
}
ModeDef cpp_mode = {
.name = "C++",
.alt_name = "cpp",
.extensions = "cc|hh|cpp|hpp|cxx|hxx|CPP|CC|c++|lzz",
.mode_probe = cpp_mode_probe,
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_CPP | CLANG_CC,
.keywords = cpp_keywords,
.types = cpp_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- C2 language ----------------*/
static const char c2_keywords[] = {
// should remove C keywords:
//"extern|static|typedef|long|short|signed|unsigned|"
/* new C2 keywords */
"module|import|as|public|local|type|func|nil|elemsof|"
/* boolean values */
"false|true|"
};
static const char c2_types[] = {
"bool|int8|int16|int32|int64|uint8|uint16|uint32|uint64|"
"float32|float64|"
};
static ModeDef c2_mode = {
.name = "C2",
.extensions = "c2|c2h|c2t",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_C2 | CLANG_CC,
.keywords = c2_keywords,
.types = c2_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- Objective C programming language ----------------*/
static const char objc_keywords[] = {
"self|super|class|nil|YES|NO|"
"@class|@interface|@implementation|@public|@private|@protected|"
"@try|@catch|@throw|@finally|@end|@protocol|@selector|@synchronized|"
"@encode|@defs|@optional|@required|@property|@dynamic|@synthesize|"
"@compatibility_alias|"
// context sensitive keywords
"in|out|inout|bycopy|byref|oneway|"
"getter|setter|readwrite|readonly|assign|retain|copy|nonatomic|"
};
static const char objc_types[] = {
"id|BOOL|SEL|Class|Object|"
};
static int objc_mode_probe(ModeDef *mode, ModeProbeData *mp)
{
const char *p = cs8(mp->buf);
if (match_extension(mp->filename, mode->extensions)) {
/* favor Objective C over Limbo for .m extension
* if file is empty, starts with a comment or a #import
*/
if (*p == '/' || *p == '\0'
|| strstart(p, "#import", NULL)) {
return 81;
} else {
return 80;
}
}
if (match_extension(mp->filename, "h")) {
/* favor Objective C over C/C++ for .h extension
* if file has #import or @keyword at the beginning of a line
*/
const char *q;
for (q = p;; q++) {
if ((*q == '@' && qe_isalpha(q[1]))
|| (*q == '#' && strstart(p, "#import", NULL))) {
return 85;
}
q = strchr(q, '\n');
if (q == NULL)
break;
}
}
return 1;
}
static ModeDef objc_mode = {
.name = "Objective C",
.alt_name = "objc",
.extensions = "m|mm",
.mode_probe = objc_mode_probe,
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_OBJC | CLANG_CC,
.keywords = objc_keywords,
.types = objc_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- C# programming language ----------------*/
static const char csharp_keywords[] = {
"abstract|as|base|break|case|catch|checked|class|const|continue|"
"default|delegate|do|else|enum|event|explicit|extern|false|finally|"
"fixed|for|foreach|goto|if|implicit|in|interface|internal|is|lock|"
"namespace|new|null|operator|out|override|params|private|protected|"
"public|readonly|ref|return|sealed|sizeof|stackalloc|static|"
"struct|switch|template|this|throw|true|try|typeof|unchecked|unsafe|"
"using|virtual|volatile|while|"
/* contextual keywords */
"add|remove|yield|partial|get|set|where|"
};
static const char csharp_types[] = {
"bool|byte|char|decimal|double|float|int|long|object|sbyte|short|"
"string|uint|ulong|ushort|void|"
"Boolean|Byte|DateTime|Exception|Int32|Int64|Object|String|Thread|"
"UInt32|UInt64|"
};
ModeDef csharp_mode = {
.name = "C#", /* C Sharp */
.alt_name = "csharp",
.extensions = "cs",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_CSHARP | CLANG_PREPROC,
.keywords = csharp_keywords,
.types = csharp_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- AWK programming language ----------------*/
static const char awk_keywords[] = {
"BEGIN|break|case|continue|default|do|else|for|if|next|switch|while|"
"print|printf|split|"
};
static const char awk_types[] = {
"char|double|float|int|long|unsigned|short|signed|void|"
};
static ModeDef awk_mode = {
.name = "awk",
.extensions = "awk",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_AWK | CLANG_REGEX,
.keywords = awk_keywords,
.types = awk_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- CSS syntax ----------------*/
static const char css_keywords[] = {
"|"
};
static const char css_types[] = {
"|"
};
ModeDef css_mode = {
.name = "CSS",
.extensions = "css",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_CSS,
.keywords = css_keywords,
.types = css_types,
.indent_func = c_indent_line,
.fallback = &c_mode,
};
/*---------------- less css preprocessor ----------------*/
static const char less_keywords[] = {
"|"
};
static const char less_types[] = {
"|"
};
static ModeDef less_mode = {
.name = "less",
.extensions = "less",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_CSS,
.keywords = less_keywords,
.types = less_types,
.indent_func = c_indent_line,
.fallback = &c_mode,
};
/*---------------- Javascript programming language ----------------*/
static const char js_keywords[] = {
"break|case|catch|continue|debugger|default|delete|do|"
"else|finally|for|function|if|in|instanceof|new|"
"return|switch|this|throw|try|typeof|while|with|"
/* FutureReservedWord */
"class|const|enum|import|export|extends|super|"
/* The following tokens are also considered to be
* FutureReservedWords when parsing strict mode code */
"implements|interface|let|package|private|protected|"
"public|static|yield|"
/* constants */
"undefined|null|true|false|Infinity|NaN|"
/* strict mode quasi keywords */
"eval|arguments|"
/* ES6 extra keywords */
"await|"
};
static const char js_types[] = {
"void|var|"
};
static void js_colorize_line(QEColorizeContext *cp,
unsigned int *str, int n, ModeDef *syn)
{
int i = 0, start, i1, indent;
int c, style, delim, prev, tag;
char kbuf[64];
int mode_flags = syn->colorize_flags;
int flavor = (mode_flags & CLANG_FLAVOR);
int state = cp->colorize_state;
//int type_decl; /* unused */
indent = 0;
//for (; qe_isblank(str[indent]); indent++) continue;
tag = !qe_isblank(str[0]) && (cp->s->mode == syn || cp->s->mode == &htmlsrc_mode);
start = i;
//type_decl = 0;
c = 0;
style = 0;
if (i >= n)
goto the_end;
if (state) {
/* if already in a state, go directly in the code parsing it */
if (state & IN_C_COMMENT)
goto parse_comment;
if (state & IN_C_STRING)
goto parse_string;
if (state & IN_C_STRING_Q)
goto parse_string_q;
if (state & IN_C_STRING_BQ)
goto parse_string_bq;
if (state & IN_C_REGEX) {
delim = '/';
goto parse_regex;
}
}
while (i < n) {
start = i;
c = str[i++];
switch (c) {
case '/':
if (str[i] == '*') {
/* C style multi-line comment */
i++;
parse_comment:
style = C_STYLE_COMMENT;
state |= IN_C_COMMENT;
for (; i < n; i++) {
if (str[i] == '*' && str[i + 1] == '/') {
i += 2;
state &= ~IN_C_COMMENT;
break;
}
}
break;
} else
if (str[i] == '/') {
/* line comment */
parse_comment1:
style = C_STYLE_COMMENT;
state |= IN_C_COMMENT1;
i = n;
break;
}
/* XXX: should use more context to tell regex from divide */
prev = ' ';
for (i1 = start; i1 > indent; ) {
prev = str[--i1] & CHAR_MASK;
if (!qe_isblank(prev))
break;
}
if ((mode_flags & CLANG_REGEX)
&& (qe_findchar(" [({},;=<>!~^&|*/%?:", prev)
|| (str[i1] >> STYLE_SHIFT) == C_STYLE_KEYWORD
|| (str[i] != ' ' && (str[i] != '=' || str[i + 1] != ' ')
&& !(qe_isalnum(prev) || prev == ')')))) {
/* parse regex */
state |= IN_C_REGEX;
delim = '/';
parse_regex:
style = C_STYLE_REGEX;
while (i < n) {
c = str[i++];
if (c == '\\') {
if (i < n) {
i += 1;
}
} else
if (state & IN_C_CHARCLASS) {
if (c == ']') {
state &= ~IN_C_CHARCLASS;
}
/* ECMA 5: ignore '/' inside char classes */
} else {
if (c == '[') {
state |= IN_C_CHARCLASS;
} else
if (c == delim) {
while (qe_isalnum_(str[i])) {
i++;
}
state &= ~IN_C_REGEX;
break;
}
}
}
break;
}
continue;
case '#': /* preprocessor */
if (start == 0 && str[i] == '!') {
/* recognize a shebang comment line */
style = C_STYLE_PREPROCESS;
i = n;
break;
}
continue;
case '`': /* ECMA 6 template strings */
parse_string_bq:
state |= IN_C_STRING_BQ;
style = C_STYLE_STRING_BQ;
while (i < n) {
c = str[i++];
if (c == '`') {
state &= ~IN_C_STRING_BQ;
break;
}
}
break;
case '\'': /* character constant */
parse_string_q:
state |= IN_C_STRING_Q;
style = C_STYLE_STRING_Q;
delim = '\'';
goto string;
case '\"': /* string literal */
parse_string:
state |= IN_C_STRING;
style = C_STYLE_STRING;
delim = '\"';
string:
while (i < n) {
c = str[i++];
if (c == '\\') {
if (i >= n)
break;
i++;
} else
if (c == delim) {
state &= ~(IN_C_STRING | IN_C_STRING_Q);
break;
}
}
break;
case '=':
/* exit type declaration */
/* does not handle this: int i = 1, j = 2; */
//type_decl = 0;
continue;
case '<': /* JavaScript extension */
if (flavor == CLANG_JS) {
if (str[i] == '!' && str[i + 1] == '-' && str[i + 2] == '-')
goto parse_comment1;
}
continue;
case '(':
case '{':
tag = 0;
continue;
default:
if (qe_isdigit(c)) {
/* XXX: should parse actual number syntax */
/* decimal, binary, octal and hexadecimal literals:
* 1 0b1 0o1 0x1, case insensitive. 01 is a syntax error */
/* maybe ignore '_' in integers */
/* XXX: should parse decimal and hex floating point syntaxes */
while (qe_isalnum_(str[i]) || (str[i] == '.' && str[i + 1] != '.')) {
i++;
}
style = C_STYLE_NUMBER;
break;
}
if (qe_isalpha_(c) || c == '$') {
i += ustr_get_identifier(kbuf, countof(kbuf), c, str, i, n);
if (cp->state_only && !tag)
continue;
/* keywords used as object property tags are regular identifiers */
if (strfind(syn->keywords, kbuf) &&
str[i] != ':' && (start == 0 || str[start - 1] != '.')) {
style = C_STYLE_KEYWORD;
break;
}
i1 = i;
while (qe_isblank(str[i1]))
i1++;
if (str[i1] == '(') {
/* function call or definition */
style = C_STYLE_FUNCTION;
if (tag) {
/* tag function definition */
eb_add_property(cp->b, cp->offset + start,
QE_PROP_TAG, qe_strdup(kbuf));
tag = 0;
}
break;
} else
if (tag && qe_findchar("(,;=", str[i1])) {
/* tag variable definition */
eb_add_property(cp->b, cp->offset + start,
QE_PROP_TAG, qe_strdup(kbuf));
}
if ((start == 0 || str[start - 1] != '.')
&& !qe_findchar(".(:", str[i])
&& strfind(syn->types, kbuf)) {
/* if not cast, assume type declaration */
//type_decl = 1;
style = C_STYLE_TYPE;
break;
}
if (qe_isupper((unsigned char)kbuf[0])
&& (start >= 2 && str[start - 1] == ' ' && str[start - 2] == ':')) {
/* if type annotation and capitalized assume type name */
style = C_STYLE_TYPE;
break;
}
continue;
}
continue;
}
if (style) {
if (!cp->state_only) {
SET_COLOR(str, start, i, style);
}
style = 0;
}
}
the_end:
if (state & (IN_C_COMMENT | IN_C_COMMENT1 | IN_C_STRING | IN_C_STRING_Q)) {
/* set style on eol char */
SET_COLOR1(str, n, style);
}
/* strip state if not overflowing from a comment */
state &= ~IN_C_COMMENT1;
cp->colorize_state = state;
}
ModeDef js_mode = {
.name = "Javascript",
.alt_name = "js",
.extensions = "js",
.shell_handlers = "node",
.colorize_func = js_colorize_line,
.colorize_flags = CLANG_JS | CLANG_REGEX,
.keywords = js_keywords,
.types = js_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- Typescript programming language ----------------*/
static const char ts_keywords[] = {
/* keywords */
"break|case|catch|class|const|continue|debugger|default|"
"delete|do|else|enum|export|extends|false|finally|"
"for|function|if|import|in|instanceof|new|null|"
"return|super|switch|this|throw|true|try|typeof|"
"var|void|while|with|"
/* keywords in strict mode */
"implements|interface|let|package|"
"private|protected|public|static|yield|"
/* special names */
"abstract|as|async|await|constructor|declare|from|"
"get|is|module|namespace|of|require|set|type|"
/* other names? */
"readonly|"
/* constants */
"undefined|Infinity|NaN|"
/* strict mode quasi keywords */
"eval|arguments|"
};
static const char ts_types[] = {
"any|boolean|number|string|symbol|"
};
ModeDef ts_mode = {
.name = "TypeScript",
.alt_name = "ts",
.extensions = "ts|tsx",
//.shell_handlers = "ts",
.colorize_func = js_colorize_line,
.colorize_flags = CLANG_TS | CLANG_REGEX,
.keywords = ts_keywords,
.types = ts_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- Onux JS++ programming language ----------------*/
/* triple quoted strings
'''
"""
numeric: /0[Xx][A-Fa-f\d]+|[-+]?(?:\.\d+|\d+\.?\d*)(?:[Ee][-+]?\d+|[FfDdL]|UL)?/
*/
static const char jspp_keywords[] = {
// JavaScript keywords
"if|in|do|for|new|try|this|else|case|with|while|"
"break|catch|throw|return|typeof|delete|switch|"
"default|finally|continue|debugger|instanceof|"
"true|false|null|"
// JS++ warning keywords
"let|const|yield|export|extends|implements|package|"
// JS++ basic keywords
"import|external|module|foreach|typeid|enum|interface|class|"
"super|implicit|explicit|undefined|"
// JS++ modifiers
"private|protected|public|static|final|inline|property|abstract|"
"optional|virtual|override|"
// type keywords
"var|void|function|"
// JS++ operators
//"; [ ] ( ) . , : === == = !== != ! <<= << <= < >>>= >>> >>= >> >= > "
//"+= ++ + -= -- - *= * /= / %= % &&= && &= & ||= || |= | ^= ^ ~ ?=|"
/* constants */
"Infinity|NaN|"
/* strict mode quasi keywords */
"eval|arguments|"
};
static const char jspp_types[] = {
"bool|string|byte|char|double|float|int|"
"long|short|unsigned|signed|"
//"var|void|function|"
};
ModeDef jspp_mode = {
.name = "JS++",
.alt_name = "jspp",
.extensions = "jspp|jpp",
.shell_handlers = "js++",
.colorize_func = js_colorize_line,
.colorize_flags = CLANG_JSPP | CLANG_REGEX,
.keywords = jspp_keywords,
.types = jspp_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- Microsoft Koka programming language ----------------*/
/* triple quoted strings
'''
"""
numeric: /0[Xx][A-Fa-f\d]+|[-+]?(?:\.\d+|\d+\.?\d*)(?:[Ee][-+]?\d+|[FfDdL]|UL)?/
- in identifiers
' is not a string delimiter, but a name modifier?
digits.string -> unit literal
hex escapes: \x## \u#### \U######
raw string: @" ... "" ... "
string: " ... escapes ... "
char: ' ... escapes ... '
line comment: // ...
block comment: / * ... * / (nested)
line directive: # ...
identifier: [a-zA-Z][a-zA-Z0-9_]+ embedded -, trailing [?]? and [']*
*/
static const char koka_keywords[] = {
"fun|function|"
"infix|infixr|infixl|prefix|type|cotype|rectype|alias|"
"forall|exists|some|fun|function|val|var|con|"
"if|then|else|elif|match|return|import|as|"
"public|private|abstract|interface|instance|with|"
"external|inline|include|effect|handle|handler|linear|"
"yield|qualified|hiding|"
"interleaved|catch|raise|resume|amb|for|foreach|"
"module|not|open|extend|struct|linear|extern|"
"False|True|Nothing|Nil|"
};
static const char koka_types[] = {
"bool|int|double|string|"
//"byte|char|float|long|short|unsigned|signed|"
};
ModeDef koka_mode = {
.name = "Koka",
.extensions = "kk",
//.shell_handlers = "koka",
.colorize_func = js_colorize_line,
.colorize_flags = CLANG_KOKA | CLANG_REGEX,
.keywords = koka_keywords,
.types = koka_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- JSON data format ----------------*/
static const char json_keywords[] = {
"null|true|false|NaN"
};
static const char json_types[] = {
""
};
static int json_mode_probe(ModeDef *mode, ModeProbeData *pd)
{
const char *p = cs8(pd->buf);
if (match_extension(pd->filename, mode->extensions))
return 80;
if (*p == '{' && p[1] == '\n') {
while (qe_isspace((unsigned char)*++p))
continue;
if (*p == '\"')
return 50;
}
return 1;
}
static ModeDef json_mode = {
.name = "json",
.extensions = "json",
.mode_probe = json_mode_probe,
.colorize_func = js_colorize_line,
.colorize_flags = CLANG_JSON,
.keywords = json_keywords,
.types = json_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- ActioScript programming language ----------------*/
static const char as_keywords[] = {
"as|break|case|catch|class|continue|default|do|else|false|"
"finally|for|function|if|import|interface|internal|is|new|null|"
"package|private|protected|public|return|super|switch|this|throw|"
"true|try|while|"
// The following AS3 keywords are no longer in AS4:
"delete|include|instanceof|namespace|typeof|use|with|in|const|"
// other constants
"undefined|Infinity|NaN|"
// introduced in AS4 (spec abandoned in december 2012)
//"let|defer|get|set|override|native|extends|implements|"
};
static const char as_types[] = {
"void|var|bool|byte|int|uint|long|ulong|float|double|"
"Array|Boolean|Number|Object|String|Function|Event|RegExp|"
"Class|Interface|"
};
static ModeDef as_mode = {
.name = "Actionscript",
.alt_name = "as",
.extensions = "as",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_AS | CLANG_REGEX,
.keywords = as_keywords,
.types = as_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- Java programming language ----------------*/
static const char java_keywords[] = {
/* language keywords */
"abstract|assert|break|case|catch|class|const|continue|"
"default|do|else|enum|extends|final|finally|for|goto|"
"if|implements|import|instanceof|interface|native|new|"
"package|private|protected|public|return|"
"static|strictfp|super|switch|synchronized|threadsafe|"
"this|throw|throws|transient|try|volatile|while|"
/* boolean and null literals */
"false|null|true|"
};
static const char java_types[] = {
"boolean|byte|char|double|float|int|long|short|void|"
};
static ModeDef java_mode = {
.name = "Java",
.extensions = "jav|java",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_JAVA | CLANG_CAP_TYPE,
.keywords = java_keywords,
.types = java_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- Scala programming language ----------------*/
static const char scala_keywords[] = {
/* language keywords */
"abstract|case|catch|class|def|do|else|extends|final|"
"finally|for|forSome|if|implicit|import|lazy|match|new|"
"object|override|package|private|protected|return|sealed|super|this|throw|"
"trait|try|type|val|var|while|with|yield|"
/* boolean and null literals */
"false|null|true|_|"
};
static const char scala_types[] = {
/* all mixed case identifiers starting with an uppercase letter are types */
};
static ModeDef scala_mode = {
.name = "Scala",
.extensions = "scala|sbt",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_SCALA | CLANG_CAP_TYPE | CLANG_STR3,
.keywords = scala_keywords,
.types = scala_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- PHP programming language ----------------*/
static const char php_keywords[] = {
"abstract|as|assert|break|case|catch|class|clone|const|continue|"
"declare|default|elseif|else|enddeclare|endif|endswitch|end|exit|"
"extends|false|final|foreach|for|function|goto|if|implements|"
"include_once|include|instanceof|interface|list|namespace|new|"
"overload|parent|private|protected|public|require_once|require|return|"
"self|sizeof|static|switch|throw|trait|true|try|use|var|while|"
"NULL|null|$this"
// built-in pseudo functions
"array|count|defined|echo|empty|"
};
static const char php_types[] = {
"array|boolean|bool|double|float|integer|int|object|real|string|"
};
ModeDef php_mode = {
.name = "PHP",
.extensions = "php|php3|php4",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_PHP | CLANG_REGEX,
.keywords = php_keywords,
.types = php_types,
.fallback = &c_mode,
};
/*---------------- Go programming language ----------------*/
static const char go_keywords[] = {
/* keywords */
"break|case|chan|const|continue|default|defer|else|fallthrough|"
"for|func|go|goto|if|import|interface|map|package|range|"
"return|select|struct|switch|type|var|"
/* builtins */
"append|cap|close|complex|copy|delete|imag|len|make|new|panic|"
"print|println|real|recover|"
/* Constants */
"false|iota|nil|true|"
};
static const char go_types[] = {
"bool|byte|complex128|complex64|error|float32|float64|"
"int|int16|int32|int64|int8|rune|string|"
"uint|uint16|uint32|uint64|uint8|uintptr|"
};
/* Go identifiers start with a Unicode letter or _ */
static ModeDef go_mode = {
.name = "Go",
.extensions = "go",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_GO,
.keywords = go_keywords,
.types = go_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- D programming language ----------------*/
static const char d_keywords[] = {
"abstract|alias|align|asm|assert|auto|body|break|"
"case|cast|catch|class|const|continue|debug|default|"
"delegate|deprecated|do|else|enum|export|extern|false|"
"final|finally|for|foreach|foreach_reverse|function|goto|"
"if|immutable|import|in|inout|int|interface|invariant|is|"
"lazy|mixin|module|new|nothrow|null|out|override|package|"
"pragma|private|protected|public|pure|ref|return|scope|shared|"
"static|struct|super|switch|synchronized|template|this|throw|"
"true|try|typeid|typeof|union|unittest|version|while|with|"
"delete|typedef|volatile|" /* deprecated */
"macro|" /* reserved, unused */
"__FILE__|__MODULE__|__LINE__|__FUNCTION__|__PRETTY_FUNCTION__|"
"__gshared|__traits|__vector|__parameters|"
"__DATE__|__EOF__|__TIME__|__TIMESPAMP__|__VENDOR__|__VERSION__|"
};
static const char d_types[] = {
"bool|byte|ubyte|short|ushort|int|uint|long|ulong|char|wchar|dchar|"
"float|double|real|ifloat|idouble|ireal|cfloat|cdouble|creal|void|"
"|cent|ucent|string|wstring|dstring|size_t|ptrdiff_t|"
};
static ModeDef d_mode = {
.name = "D",
.extensions = "d|di",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_D,
.keywords = d_keywords,
.types = d_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- Limbo programming language ----------------*/
static const char limbo_keywords[] = {
"adt|alt|array|break|case|chan|con|continue|cyclic|do|else|exit|"
"fn|for|hd|if|implement|import|include|len|list|load|module|nil|"
"of|or|pick|ref|return|self|spawn|tagof|tl|to|type|while|"
};
static const char limbo_types[] = {
"big|byte|int|real|string|"
};
static ModeDef limbo_mode = {
.name = "Limbo",
.extensions = "m",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_LIMBO,
.keywords = limbo_keywords,
.types = limbo_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- Cyclone programming language ----------------*/
static const char cyclone_keywords[] = {
"auto|break|case|const|continue|default|do|else|enum|extern|for|goto|"
"if|inline|register|restrict|return|sizeof|static|struct|switch|"
"typedef|union|volatile|while|"
"abstract|alias|as|catch|datatype|export|fallthru|inject|let|"
"namespace|new|numelts|offsetof|region|regions|reset_region|rnew|"
"tagcheck|throw|try|using|valueof|"
"calloc|malloc|rcalloc|rmalloc|"
"NULL|"
};
static const char cyclone_types[] = {
"char|double|float|int|long|unsigned|short|signed|void|"
"_Bool|_Complex|_Imaginary|"
"bool|dynregion_t|region_t|tag_t|valueof_t|"
"@numelts|@region|@thin|@fat|@zeroterm|@nozeroterm|@notnull|@nullable|"
"@extensible|@tagged"
};
static ModeDef cyclone_mode = {
.name = "Cyclone",
.extensions = "cyc|cyl|cys",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_CYCLONE | CLANG_CC,
.keywords = cyclone_keywords,
.types = cyclone_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- Ch programming language ----------------*/
static const char ch_keywords[] = {
"local|offsetof|Inf|NaN|"
};
static const char ch_types[] = {
"complex|"
};
static ModeDef ch_mode = {
.name = "Ch",
.extensions = "chf",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_CH | CLANG_CC,
.keywords = ch_keywords,
.types = ch_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- Squirrel programming language ----------------*/
static const char squirrel_keywords[] = {
"base|break|continue|const|extends|for|null|throw|try|instanceof|true|"
"case|catch|class|clone|default|delete|else|enum|foreach|function|if|in|"
"resume|return|switch|this|typeof|while|yield|constructor|false|static|"
};
static const char squirrel_types[] = {
"local|"
};
static ModeDef squirrel_mode = {
.name = "Squirrel",
.extensions = "nut",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_SQUIRREL,
.keywords = squirrel_keywords,
.types = squirrel_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- ICI programming language ----------------*/
static const char ici_keywords[] = {
"array|break|case|class|continue|default|do|else|extern|float|"
"for|forall|func|if|in|module|NULL|onerror|return|set|static|struct|"
"switch|try|while|"
};
static const char ici_types[] = {
"auto|"
};
static ModeDef ici_mode = {
.name = "ICI",
.extensions = "ici",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_ICI,
.keywords = ici_keywords,
.types = ici_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- JSX programming language ----------------*/
static const char jsx_keywords[] = {
// literals shared with ECMA 262
"null|true|false|NaN|Infinity|"
// keywords shared with ECMA 262
"break|case|const|do|else|finally|for|function|if|in|"
"instanceof|new|return|switch|this|throw|try|typeof|var|while|"
// JSX keywords
"class|extends|super|import|implements|static|"
"__FILE__|__LINE__|undefined|"
// contextual keywords
// "assert|log|catch|continue|default|delete|interface",
// ECMA 262 literals but not used by JSX
"debugger|with|"
// ECMA 262 future reserved words
"export|"
// ECMA 262 strict mode future reserved words
"let|private|public|yield|protected|"
// JSX specific reserved words
"extern|native|as|operator|abstract|"
};
static const char jsx_types[] = {
"void|variant|boolean|int|number|string|Error|"
};
static ModeDef jsx_mode = {
.name = "JSX",
.extensions = "jsx",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_JSX | CLANG_REGEX,
.keywords = jsx_keywords,
.types = jsx_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- Haxe programming language ----------------*/
static const char haxe_keywords[] = {
"abstract|break|case|cast|catch|class|continue|default|do|dynamic|else|"
"enum|extends|extern|false|for|function|if|implements|import|inline|"
"interface|in|macro|new|null|override|package|private|public|return|"
"static|switch|this|throw|true|try|typedef|untyped|using|var|while|"
};
static const char haxe_types[] = {
"Void|Array|Bool|Int|Float|Class|Enum|Dynamic|String|Date|Null|"
"Iterator|"
};
static ModeDef haxe_mode = {
.name = "Haxe",
.extensions = "hx",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_HAXE | CLANG_REGEX,
.keywords = haxe_keywords,
.types = haxe_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- Dart programming language ----------------*/
static const char dart_keywords[] = {
"abstract|as|assert|break|call|case|catch|class|const|continue|default|do|"
"else|equals|extends|external|factory|false|final|finally|for|"
"get|if|implements|in|interface|is|negate|new|null|on|operator|return|"
"set|show|static|super|switch|this|throw|true|try|typedef|while|"
// should match only at line start
"import|include|source|library|"
"@observable|@published|@override|@runTest|"
// XXX: should colorize is! as a keyword
};
static const char dart_types[] = {
"bool|double|dynamic|int|num|var|void|"
"String|StringBuffer|Object|RegExp|Function|"
"Date|DateTime|TimeZone|Duration|Stopwatch|DartType|"
"Collection|Comparable|Completer|Future|Match|Options|Pattern|"
"HashMap|HashSet|Iterable|Iterator|LinkedHashMap|List|Map|Queue|Set|"
"Dynamic|Exception|Error|AssertionError|TypeError|FallThroughError|"
};
static ModeDef dart_mode = {
.name = "Dart",
.extensions = "dart",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_DART | CLANG_STR3,
.keywords = dart_keywords,
.types = dart_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- Pike programming language ----------------*/
static const char pike_keywords[] = {
"break|case|catch|class|constant|continue|default|do|else|enum|extern|"
"final|for|foreach|gauge|global|if|import|inherit|inline|"
"lambda|local|nomask|optional|predef|"
"private|protected|public|return|sscanf|static|switch|typedef|typeof|"
"while|__attribute__|__deprecated__|__func__|"
};
static const char pike_types[] = {
"array|float|int|string|function|mapping|multiset|mixed|object|program|"
"variant|void|"
};
static ModeDef pike_mode = {
.name = "Pike",
.extensions = "pike",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_PIKE,
.keywords = pike_keywords,
.types = pike_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- IDL syntax ----------------*/
static const char idl_keywords[] = {
"abstract|attribute|case|component|const|consumes|context|custom|"
"default|emits|enum|eventtype|exception|factory|finder|"
"fixed|getraises|home|import|in|inout|interface|local|module|multiple|"
"native|oneway|out|primarykey|private|provides|public|publishes|raises|"
"readonly|setraises|struct|supports|switch|"
"typedef|typeid|typeprefix|union|uses|ValueBase|valuetype|"
"sequence|iterable|truncatable|"
"unrestricted|namespace|dictionary|or|implements|optional|partial|required|"
"getter|setter|creator|deleter|callback|legacycaller|"
"false|true|null|FALSE|TRUE|"
};
static const char idl_types[] = {
"unsigned|short|long|float|double|char|wchar|string|wstring|octet|any|void|"
"byte|boolean|object|"
};
static ModeDef idl_mode = {
.name = "IDL",
.extensions = "idl",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_IDL | CLANG_PREPROC | CLANG_WLITERALS |
CLANG_REGEX | CLANG_CAP_TYPE,
.keywords = idl_keywords,
.types = idl_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- GNU Calc syntax ----------------*/
static const char calc_keywords[] = {
"if|else|for|while|do|continue|break|goto|return|local|global|static|"
"switch|case|default|quit|exit|define|read|show|help|write|mat|obj|"
"print|cd|undefine|abort|"
};
static const char calc_types[] = {
"|"
};
static ModeDef calc_mode = {
.name = "calc", /* GNU Calc */
.extensions = "cal|calc",
.shell_handlers = "calc",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_CALC | CLANG_CC,
.keywords = calc_keywords,
.types = calc_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- GNU Enscript programming language ----------------*/
static const char enscript_keywords[] = {
"if|else|return|state|extends|BEGIN|END|forever|continue|do|"
"not|and|or|orelse|switch|case|default|true|false|"
};
static const char enscript_types[] = {
"|"
};
static int enscript_mode_probe(ModeDef *mode, ModeProbeData *pd)
{
if (match_extension(pd->filename, mode->extensions)) {
if (*cs8(pd->buf) == '/')
return 80;
else
return 50;
}
return 1;
}
static ModeDef enscript_mode = {
.name = "Enscript", /* GNU Enscript */
.extensions = "st", /* syntax files */
.mode_probe = enscript_mode_probe,
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_ENSCRIPT | CLANG_REGEX,
.keywords = enscript_keywords,
.types = enscript_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- QuickScript programming language ----------------*/
static const char qs_keywords[] = {
"break|case|class|continue|def|default|del|delete|do|else|for|"
"function|if|module|new|return|self|string|struct|switch|this|"
"typeof|while|"
};
static const char qs_types[] = {
"char|int|var|void|Array|Char|Function|Number|Object|String|"
};
static int qs_mode_probe(ModeDef *mode, ModeProbeData *p)
{
if (match_extension(p->filename, mode->extensions)
|| match_shell_handler(cs8(p->buf), mode->shell_handlers)) {
return 80;
}
if (!strcmp(p->filename, ".qerc")
|| strstr(p->real_filename, "/.qe/config"))
return 80;
return 1;
}
static ModeDef qscript_mode = {
.name = "QScript",
.alt_name = "qs",
.extensions = "qe|qs",
.shell_handlers = "qscript|qs",
.mode_probe = qs_mode_probe,
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_QSCRIPT | CLANG_REGEX,
.keywords = qs_keywords,
.types = qs_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- Elastic C like language ----------------*/
static const char ec_keywords[] = {
"@false|@nil|@true|new|self|"
"break|catch|class|continue|do|else|extends|for|from|function|goto|if|"
"import|in|local|method|package|private|public|return|static|super|"
"throw|try|while|"
};
static const char ec_types[] = {
"none|short|ushort|int|uint|long|ulong|char|uchar|float|double|bool|"
"string|static_string|array|callback|symbol|"
};
static ModeDef ec_mode = {
.name = "elastiC",
.alt_name = "ec",
.extensions = "ec",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_ELASTIC,
.keywords = ec_keywords,
.types = ec_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- Jed's S-Lang extension language ----------------*/
static const char sl_keywords[] = {
"define|if|else|return|static|while|break|do|"
};
static const char sl_types[] = {
"variable|"
};
static ModeDef sl_mode = {
.name = "Jed", /* S-Lang */
.extensions = "sl",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_JED | CLANG_PREPROC,
.keywords = sl_keywords,
.types = sl_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- Peter Koch's CSL C Scripting Language ----------------*/
static const char csl_keywords[] = {
"const|sizeof|try|catch|throw|static|extern|resize|exists|if|else|"
"switch|case|default|while|do|break|continue|for|trace|true|false|"
};
static const char csl_types[] = {
"var|void|string|int|"
};
static ModeDef csl_mode = {
.name = "CSL",
.extensions = "csl",
.shell_handlers = "csl",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_CSL | CLANG_PREPROC,
.keywords = csl_keywords,
.types = csl_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- Neko programming language ----------------*/
static const char neko_keywords[] = {
"function|if|else|return|while|do|switch|default|"
"try|catch|break|continue|"
"this|null|true|false|"
};
static const char neko_types[] = {
"var|"
};
static ModeDef neko_mode = {
.name = "Neko",
.extensions = "neko",
.shell_handlers = NULL,
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_NEKO,
.keywords = neko_keywords,
.types = neko_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- NekoML programming language ----------------*/
static const char nml_keywords[] = {
"function|rec|if|then|else|return|while|do|switch|default|"
"try|catch|break|continue|when|"
"this|null|true|false|or|and|xor|"
"match|type|exception|throw|mutable|list|"
};
static const char nml_types[] = {
"var|int|float|string|bool|char|void|"
};
static ModeDef nml_mode = {
.name = "NekoML",
.extensions = "nml",
.shell_handlers = NULL,
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_NML,
.keywords = nml_keywords,
.types = nml_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- Alloy programming language ----------------*/
static const char alloy_keywords[] = {
"if|else|do|for|loop|while|break|continue|match|return|use|"
"mut|_|true|false|"
"struct|enum|fn|func|self|impl"
};
static const char alloy_types[] = {
"void|bool|char|int|float|double|usize|string|"
"u8|u16|u32|u64|i8|i16|i32|i64|f64|f32|"
};
static ModeDef alloy_mode = {
.name = "Alloy",
.extensions = "ay",
.shell_handlers = NULL,
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_ALLOY,
.keywords = alloy_keywords,
.types = alloy_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- SCILab programming language ----------------*/
static const char scilab_keywords[] = {
"if|else|for|while|end|select|case|quit|return|help|what|who|"
"pause|clear|resume|then|do|apropos|abort|break|elseif|pwd|"
"function|endfunction|clc|continue|try|catch|exit|"
"global|local|get|sorted|"
};
static const char scilab_types[] = {
};
static int scilab_mode_probe(ModeDef *mode, ModeProbeData *p)
{
if (match_extension(p->filename, mode->extensions)
|| match_shell_handler(cs8(p->buf), mode->shell_handlers)) {
return 80;
}
if (match_extension(p->filename, "start|quit")
&& (p->buf[0] == '/' && p->buf[1] == '/')) {
return 80;
}
return 1;
}
static ModeDef scilab_mode = {
.name = "SciLab",
.extensions = "sce|sci",
.shell_handlers = NULL,
.mode_probe = scilab_mode_probe,
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_SCILAB,
.keywords = scilab_keywords,
.types = scilab_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- Kotlin programming language ----------------*/
static const char kotlin_keywords[] = {
/* language keywords */
"package|import|as|fun|val|var|if|else|is|return|for|do|while|"
"break|continue|when|it|to|by|in|out|try|catch|throw|finally|"
"class|object|interface|public|private|protected|internal|inner|"
"constructor|this|super|open|override|final|abstract|enum|companion|"
"vararg|inline|reified|annotation|data|"
//"get|set|" // do not colorize as keyword because used as function
//"case|def|extends|forSome|implicit|lazy|" // unused java keywords
//"match|new|sealed|trait|type|with|yield|" // unused java keywords
/* boolean and null literals */
"false|true|null|"
};
/* numbers: hex, binary, L suffix for Long, f/F suffix for Float */
/* escape keywords as identifiers with backticks: a.`if` */
static const char kotlin_types[] = {
/* all mixed case identifiers starting with an uppercase letter are types */
"dynamic|"
};
static ModeDef kotlin_mode = {
.name = "Kotlin",
.extensions = "kt",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_KOTLIN | CLANG_CAP_TYPE | CLANG_STR3,
.keywords = kotlin_keywords,
.types = kotlin_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- C! (cbang) from EPITA's LSE laboratory ----------------*/
static const char cbang_keywords[] = {
/* language keywords */
"enum|struct|union|packed|sizeof|static|volatile|"
"const|local|inline|if|else|while|do|for|switch|case|break|continue|"
"default|typedef|class|macro|init|del|return|import|include|open_import|"
"goto|as|interface|support|property|"
/* Builtins */
"false|true|NULL|"
};
/* integers: hex, octal, binary */
/* floats: [0-9]+([.][0-9]*)?([eE][+-]?[0-9]+)? */
static const char cbang_types[] = {
/* all mixed case identifiers starting with an uppercase letter are types */
"int|char|float|void|"
};
static ModeDef cbang_mode = {
.name = "C!",
.alt_name = "cbang",
.extensions = "cb|cbi",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_CBANG | CLANG_CAP_TYPE,
.keywords = cbang_keywords,
.types = cbang_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- Gnome's Vala language ----------------*/
static const char vala_keywords[] = {
//"asm|catch|delete|friend|inline|namespace|operator|"
//"private|protected|template|try|virtual|throw|"
//"explicit|mutable|assert|"
"do|if|for|case|else|enum|break|const|while|extern|public|"
"sizeof|static|struct|switch|default|continue|volatile|"
"using|private|public|protected|class|override|abstract|weak|base|"
"foreach|in|is|as|new|this|try|lock|async|catch|throw|yield|"
"signal|throws|typeof|dynamic|ensures|finally|abstract|delegate|"
"internal|requires|construct|interface|namespace|errordomain|"
"var|get|set|out|ref|owned|inline|params|sealed|unowned|virtual|"
"null|true|false|"
};
static const char vala_types[] = {
//"void|"
"bool|string|int|uint|uchar|nt8|short|ushort|long|ulong|size_t|ssize_t|"
"double|va_list|unichar|"
};
static ModeDef vala_mode = {
.name = "Vala",
.extensions = "vala|vapi",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_VALA | CLANG_CC | CLANG_REGEX |
CLANG_CAP_TYPE | CLANG_STR3,
.keywords = vala_keywords,
.types = vala_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- Compuphase's Pawn language ----------------*/
static const char pawn_keywords[] = {
"assert|break|case|const|continue|default|defined|do|else|exit|"
"for|forward|goto|if|native|new|operator|public|return|sizeof|sleep|"
"state|static|stock|switch|tagof|while|",
};
//static const char pawn_preprocessor_keywords[] = {
// "assert|define|else|elseif|endif|endinput|error|file|if|include|"
// "line|pragma|tryinclude|undef"
//};
static const char pawn_types[] = {
//"void|"
//"bool|string|int|uint|uchar|nt8|short|ushort|long|ulong|size_t|ssize_t|"
//"double|va_list|unichar|"
};
static int pawn_mode_probe(ModeDef *mode, ModeProbeData *p)
{
if (match_shell_handler(cs8(p->buf), mode->shell_handlers))
return 81;
if (match_extension(p->filename, mode->extensions)) {
/* disambiguate .p extension, can be Pascal too. */
#define NUL "\0"
static const char pawn_checks[] =
"@" NUL "//" NUL "/*" NUL
"#include" NUL "#define" NUL "#if" NUL
"forward" NUL "new" NUL "main()" NUL
NUL;
const char *pref;
const char *cp = cs8(p->buf);
while (qe_isspace(*cp))
cp++;
for (pref = pawn_checks; *pref; pref += strlen(pref) + 1) {
if (strstart(cp, pref, NULL))
return 81;
}
return 79;
}
return 1;
}
static ModeDef pawn_mode = {
.name = "Pawn",
.extensions = "p",
.mode_probe = pawn_mode_probe,
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_PAWN | CLANG_CC, // needs '' delimited strings
.keywords = pawn_keywords,
.types = pawn_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- Kenneth Louden's C-minus language ----------------*/
/* C minus supports a very crude subset of C:
*
* numbers: [0-9]+
* identifiers: [a-zA-Z]+
* comments: multi-line C comments
* keywords: if else return while
* types: int void
* operators: = ( ) { } [ ] \ . ; - + * / > < >= <= == !=
* no strings, charconst, pointers, preproc...
*/
static const char cminus_keywords[] = {
"if|else|return|while|",
};
static const char cminus_types[] = {
"int|void|"
};
static ModeDef cminus_mode = {
.name = "C-minus",
.alt_name = "cminus",
.extensions = "cm",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_CMINUS,
.keywords = cminus_keywords,
.types = cminus_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- Game Monkey scripting language ----------------*/
/* Simple C like syntax with some extensions:
c = "My " "house"; // creates the string 'My house'
d = `c:\windows\sys`; // d is a string
c = `Chris``s bike`; // creates the string 'Chris`s bike'
c = 2.4f // c is a float
a = 'BLCK'; // characters as four bytes making integer
a = 179; // decimal
a = 0xB3; // hexadecimal
a = 0b10110011; // binary
myRect = CreateRect(0, 0, 5, 10); // Construct a table that describes
// a rectangle
area = myRect.Area(); // myRect is automatically assigned to 'this'
// within the area method.
Size = function() { return .width * .height; };
s = myRect:Size(); // Calls Size function passing 'myRect' as 'this'
*/
static const char gmscript_keywords[] = {
"if|else|for|while|foreach|in|and|or|function|"
"dowhile|break|continue|return|"
"array|table|global|local|member|this|"
"true|false|null|",
};
static const char gmscript_types[] = {
""
};
static ModeDef gmscript_mode = {
.name = "Game Monkey",
.alt_name = "gmscript",
.extensions = "gm",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_GMSCRIPT,
.keywords = gmscript_keywords,
.types = gmscript_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- Wren embeddable scripting language ----------------*/
/* Simple C like syntax with some extensions:
XXX: block comments **do** nest!
*/
static const char wren_keywords[] = {
"break|class|construct|else|false|for|foreign|if|import|"
"in|is|null|return|static|super|this|true|while|"
};
static const char wren_types[] = {
"var|"
};
static ModeDef wren_mode = {
.name = "Wren",
.extensions = "wren",
.shell_handlers = "wren",
.colorize_func = c_colorize_line,
.colorize_flags = CLANG_WREN | CLANG_CAP_TYPE,
.keywords = wren_keywords,
.types = wren_types,
.indent_func = c_indent_line,
.auto_indent = 1,
.fallback = &c_mode,
};
/*---------------- Other C based syntax modes ----------------*/
#include "rust.c"
#include "swift.c"
#include "icon.c"
#include "groovy.c"
#include "virgil.c"
/*---------------- Common initialization code ----------------*/
static int c_init(void)
{
const char *p;
qe_register_mode(&c_mode, MODEF_SYNTAX);
qe_register_cmd_table(c_commands, &c_mode);
for (p = ";:#&|*"; *p; p++) {
qe_register_binding(*p, "c-electric-key", &c_mode);
}
qe_register_mode(&idl_mode, MODEF_SYNTAX);
qe_register_mode(&yacc_mode, MODEF_SYNTAX);
qe_register_mode(&lex_mode, MODEF_SYNTAX);
qe_register_mode(&cpp_mode, MODEF_SYNTAX);
qe_register_mode(&c2_mode, MODEF_SYNTAX);
qe_register_mode(&objc_mode, MODEF_SYNTAX);
qe_register_mode(&csharp_mode, MODEF_SYNTAX);
qe_register_mode(&awk_mode, MODEF_SYNTAX);
qe_register_mode(&css_mode, MODEF_SYNTAX);
qe_register_mode(&less_mode, MODEF_SYNTAX);
qe_register_mode(&json_mode, MODEF_SYNTAX);
qe_register_mode(&js_mode, MODEF_SYNTAX);
qe_register_mode(&ts_mode, MODEF_SYNTAX);
qe_register_mode(&jspp_mode, MODEF_SYNTAX);
qe_register_mode(&koka_mode, MODEF_SYNTAX);
qe_register_mode(&as_mode, MODEF_SYNTAX);
qe_register_mode(&java_mode, MODEF_SYNTAX);
qe_register_mode(&scala_mode, MODEF_SYNTAX);
qe_register_mode(&php_mode, MODEF_SYNTAX);
qe_register_mode(&go_mode, MODEF_SYNTAX);
qe_register_mode(&d_mode, MODEF_SYNTAX);
qe_register_mode(&limbo_mode, MODEF_SYNTAX);
qe_register_mode(&cyclone_mode, MODEF_SYNTAX);
qe_register_mode(&ch_mode, MODEF_SYNTAX);
qe_register_mode(&squirrel_mode, MODEF_SYNTAX);
qe_register_mode(&ici_mode, MODEF_SYNTAX);
qe_register_mode(&jsx_mode, MODEF_SYNTAX);
qe_register_mode(&haxe_mode, MODEF_SYNTAX);
qe_register_mode(&dart_mode, MODEF_SYNTAX);
qe_register_mode(&pike_mode, MODEF_SYNTAX);
qe_register_mode(&idl_mode, MODEF_SYNTAX);
qe_register_mode(&calc_mode, MODEF_SYNTAX);
qe_register_mode(&enscript_mode, MODEF_SYNTAX);
qe_register_mode(&qscript_mode, MODEF_SYNTAX);
qe_register_mode(&ec_mode, MODEF_SYNTAX);
qe_register_mode(&sl_mode, MODEF_SYNTAX);
qe_register_mode(&csl_mode, MODEF_SYNTAX);
qe_register_mode(&neko_mode, MODEF_SYNTAX);
qe_register_mode(&nml_mode, MODEF_SYNTAX);
qe_register_mode(&alloy_mode, MODEF_SYNTAX);
qe_register_mode(&scilab_mode, MODEF_SYNTAX);
qe_register_mode(&kotlin_mode, MODEF_SYNTAX);
qe_register_mode(&cbang_mode, MODEF_SYNTAX);
qe_register_mode(&vala_mode, MODEF_SYNTAX);
qe_register_mode(&pawn_mode, MODEF_SYNTAX);
qe_register_mode(&cminus_mode, MODEF_SYNTAX);
qe_register_mode(&gmscript_mode, MODEF_SYNTAX);
qe_register_mode(&wren_mode, MODEF_SYNTAX);
rust_init();
swift_init();
icon_init();
groovy_init();
virgil_init();
return 0;
}
qe_module_init(c_init);
Reference in a new issue View git blame Copy permalink