[Qemacs-commit] qemacs extra-modes.c

[Charlie Gordon]

CVSROOT:        /sources/qemacs
Module name:    qemacs
Changes by:     Charlie Gordon <chqrlie>        15/05/09 22:17:07

Modified files:
        .              : extra-modes.c 

Log message:
        improve sql syntax detection for sqlite dumps

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/qemacs/extra-modes.c?cvsroot=qemacs&r1=1.35&r2=1.36

Patches:
Index: extra-modes.c
===================================================================
RCS file: /sources/qemacs/qemacs/extra-modes.c,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -b -r1.35 -r1.36
--- extra-modes.c       9 May 2015 22:15:45 -0000       1.35
+++ extra-modes.c       9 May 2015 22:17:07 -0000       1.36
@@ -1515,9 +1515,22 @@
     cp->colorize_state = state;
 }
 
+static int sql_mode_probe(ModeDef *mode, ModeProbeData *pd)
+{
+    const char *p = cs8(pd->buf);
+
+    if (strstart(p, "PRAGMA foreign_keys=OFF;", NULL))
+        return 80;
+    if (match_extension(pd->filename, mode->extensions))
+        return 60;
+
+    return 1;
+}
+
 static ModeDef sql_mode = {
     .name = "SQL",
     .extensions = "sql|mysql|sqlite|sqlplus|rdb|xdb|db",
+    .mode_probe = sql_mode_probe,
     .keywords = sql_keywords,
     .types = sql_types,
     .colorize_func = sql_colorize_line,