[Qemacs-commit] qemacs Makefile ebnf.c

[Charlie Gordon]

CVSROOT:        /sources/qemacs
Module name:    qemacs
Changes by:     Charlie Gordon <chqrlie>        15/06/19 21:42:59

Modified files:
        .              : Makefile 
Added files:
        .              : ebnf.c 

Log message:
        added simplistic colorizer for EBNF and AntLR syntax

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/qemacs/Makefile?cvsroot=qemacs&r1=1.73&r2=1.74
http://cvs.savannah.gnu.org/viewcvs/qemacs/ebnf.c?cvsroot=qemacs&rev=1.1

Patches:
Index: Makefile
===================================================================
RCS file: /sources/qemacs/qemacs/Makefile,v
retrieving revision 1.73
retrieving revision 1.74
diff -u -b -r1.73 -r1.74
--- Makefile    19 Jun 2015 14:51:17 -0000      1.73
+++ Makefile    19 Jun 2015 21:42:58 -0000      1.74
@@ -118,7 +118,8 @@
 
 ifdef CONFIG_ALL_MODES
   OBJS+= unihex.o bufed.o clang.o xml.o htmlsrc.o forth.o arm.o \
-         lisp.o makemode.o markdown.o orgmode.o perl.o script.o extra-modes.o
+         lisp.o makemode.o markdown.o orgmode.o perl.o script.o \
+         ebnf.o extra-modes.o
   ifndef CONFIG_WIN32
     OBJS+= shell.o dired.o latex-mode.o archive.o
   endif

Index: ebnf.c
===================================================================
RCS file: ebnf.c
diff -N ebnf.c
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ ebnf.c      19 Jun 2015 21:42:58 -0000      1.1
@@ -0,0 +1,215 @@
+/*
+ * EBNF and AntLR language mode for QEmacs.
+ *
+ * Copyright (c) 2015 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"
+
+/*---------------- EBNF coloring ----------------*/
+
+#define MAX_KEYWORD_SIZE  16
+
+static char const ebnf_keywords[] = {
+    "|all|assert|attr|by|comments|compounds|construct|deconstruct"
+    "|define|each|end|export|external|function|import|include"
+    "|keys|list|match|not|opt|push|pop|redefine|repeat|replace"
+    "|rule|see|skipping|tokens|where"
+};
+
+static char const ebnf_types[] = {
+    "|"
+};
+
+enum {
+    EBNF_STYLE_TEXT =        QE_STYLE_DEFAULT,
+    EBNF_STYLE_COMMENT =     QE_STYLE_COMMENT,
+    EBNF_STYLE_CHARCONST =   QE_STYLE_STRING,
+    EBNF_STYLE_STRING =      QE_STYLE_STRING,
+    EBNF_STYLE_KEYWORD =     QE_STYLE_KEYWORD,
+    EBNF_STYLE_NUMBER =      QE_STYLE_NUMBER,
+    EBNF_STYLE_TYPE =        QE_STYLE_TYPE,
+    EBNF_STYLE_PREPROCESS =  QE_STYLE_PREPROCESS,
+    EBNF_STYLE_IDENTIFIER =  QE_STYLE_KEYWORD,
+};
+
+enum {
+    IN_EBNF_COMMENT1 = 0x01,
+    IN_EBNF_COMMENT2 = 0x02,
+    IN_EBNF_COMMENT3 = 0x04,
+};
+
+#define U_HORIZONTAL_ELLIPSIS          0x2026
+#define U_LEFT_SINGLE_QUOTATION_MARK   0x2018
+#define U_RIGHT_SINGLE_QUOTATION_MARK  0x2019
+
+static void ebnf_colorize_line(QEColorizeContext *cp,
+                               unsigned int *str, int n, ModeDef *syn)
+{
+    char keyword[MAX_KEYWORD_SIZE];
+    int i = 0, start, c, style, len;
+    int colstate = cp->colorize_state;
+
+    if (colstate & IN_EBNF_COMMENT1)
+        goto in_comment1;
+
+    if (colstate & IN_EBNF_COMMENT2)
+        goto in_comment2;
+
+    if (colstate & IN_EBNF_COMMENT3)
+        goto in_comment3;
+
+    while (i < n) {
+        start = i;
+        c = str[i++];
+        switch (c) {
+        case '%':
+            if (str[i] == '(') {
+                colstate = IN_EBNF_COMMENT1;
+                i++;
+            in_comment1:
+                while (i < n) {
+                    if (str[i++] == ')' && str[i] == '%') {
+                        i++;
+                        colstate = 0;
+                        break;
+                    }
+                }
+            } else
+            if (str[i] == '{') {
+                colstate = IN_EBNF_COMMENT2;
+                i++;
+            in_comment2:
+                while (i < n) {
+                    if (str[i++] == '}' && str[i] == '%') {
+                        i++;
+                        colstate = 0;
+                        break;
+                    }
+                }
+            } else {
+                i = n;
+            }
+            style = EBNF_STYLE_COMMENT;
+            SET_COLOR(str, start, i, style);
+            continue;
+        case '/':
+            if (str[i] == '*') {  /* C block comment */
+                colstate |= IN_EBNF_COMMENT3;
+                i++;
+            in_comment3:
+                while (i < n) {
+                    if (str[i++] == '*' && str[i] == '/') {
+                        i++;
+                        colstate &= ~IN_EBNF_COMMENT3;
+                        break;
+                    }
+                }
+                SET_COLOR(str, start, i, EBNF_STYLE_COMMENT);
+                continue;
+            } else
+            if (str[i] == '/') { /* line comment */
+                i = n;
+                SET_COLOR(str, start, i, EBNF_STYLE_COMMENT);
+                continue;
+            } else {
+                break;
+            }
+        case '\'':
+        case '`':
+        case U_LEFT_SINGLE_QUOTATION_MARK:
+            /* parse quoted token */
+            while (i < n) {
+                int c = str[i++];
+                if (c == '\'' || c == U_RIGHT_SINGLE_QUOTATION_MARK)
+                    break;
+            }
+            SET_COLOR(str, start, i, EBNF_STYLE_CHARCONST);
+            continue;
+        case '\"':
+            /* parse quoted token */
+            while (i < n) {
+                int c = str[i++];
+                if (c == '\"')
+                    break;
+            }
+            SET_COLOR(str, start, i, EBNF_STYLE_STRING);
+            continue;
+        default:
+            break;
+        }
+        /* parse numbers */
+        if (qe_isdigit(c)) {
+            for (; i < n; i++) {
+                if (!qe_isalnum(str[i]) && str[i] != '.')
+                    break;
+            }
+            SET_COLOR(str, start, i, EBNF_STYLE_NUMBER);
+            continue;
+        }
+        /* parse identifiers and keywords */
+        if (qe_isalpha_(c) || c == U_HORIZONTAL_ELLIPSIS) {
+            len = 0;
+            keyword[len++] = c;
+            for (; i < n; i++) {
+                if (qe_isalnum_(str[i])) {
+                    if (len < countof(keyword) - 1)
+                        keyword[len++] = c;
+                } else {
+                    break;
+                }
+            }
+            keyword[len] = '\0';
+            if (strfind(syn->keywords, keyword)) {
+                SET_COLOR(str, start, i, EBNF_STYLE_KEYWORD);
+                continue;
+            }
+            if (strfind(syn->types, keyword)) {
+                SET_COLOR(str, start, i, EBNF_STYLE_TYPE);
+                continue;
+            }
+            SET_COLOR(str, start, i, EBNF_STYLE_IDENTIFIER);
+            continue;
+        }
+    }
+}
+
+ModeDef ebnf_mode = {
+    .name = "ebnf",
+    .extensions = "ebnf",
+    .keywords = ebnf_keywords,
+    .types = ebnf_types,
+    .colorize_func = ebnf_colorize_line,
+};
+
+ModeDef antlr_mode = {
+    .name = "antlr",
+    .extensions = "antlr",
+    .keywords = ebnf_keywords,
+    .types = ebnf_types,
+    .colorize_func = ebnf_colorize_line,
+};
+
+static int ebnf_init(void)
+{
+    qe_register_mode(&antlr_mode, MODEF_SYNTAX);
+    qe_register_mode(&ebnf_mode, MODEF_SYNTAX);
+
+    return 0;
+}
+
+qe_module_init(ebnf_init);