[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Qemacs-commit] qemacs swift.c
|
From: |
Charlie Gordon |
|
Subject: |
[Qemacs-commit] qemacs swift.c |
|
Date: |
Sun, 08 Jun 2014 12:59:01 +0000 |
CVSROOT: /sources/qemacs
Module name: qemacs
Changes by: Charlie Gordon <chqrlie> 14/06/08 12:59:01
Added files:
. : swift.c
Log message:
add swift-mode as c-mode flavor
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/qemacs/swift.c?cvsroot=qemacs&rev=1.1
Patches:
Index: swift.c
===================================================================
RCS file: swift.c
diff -N swift.c
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ swift.c 8 Jun 2014 12:59:00 -0000 1.1
@@ -0,0 +1,347 @@
+/*
+ * Swift mode for QEmacs.
+ *
+ * Copyright (c) 2002-2014 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
+ */
+
+#define R(a, b) a, b
+#define S(a) a, a
+#define E() 0x110000, 0
+
+static int const swift_identifier_head[] = {
+ R('A', 'Z'), R('a', 'z'),
+ S(0x00A8), S(0x00AA), S(0x00AD), S(0x00AF),
+ R(0x00B2, 0x00B5), R(0x00B7, 0x00BA),
+ R(0x00BC, 0x00BE), R(0x00C0, 0x00D6),
+ R(0x00D8, 0x00F6), R(0x00F8, 0x00FF),
+ R(0x0100, 0x02FF), R(0x0370, 0x167F),
+ R(0x1681, 0x180D), R(0x180F, 0x1DBF),
+ R(0x1E00, 0x1FFF), R(0x200B, 0x200D),
+ R(0x202A, 0x202E), R(0x203F, 0x2040),
+ S(0x2054), R(0x2060, 0x206F),
+ R(0x2070, 0x20CF), R(0x2100, 0x218F),
+ R(0x2460, 0x24FF), R(0x2776, 0x2793),
+ R(0x2C00, 0x2DFF), R(0x2E80, 0x2FFF),
+ R(0x3004, 0x3007), R(0x3021, 0x302F),
+ R(0x3031, 0x303F), R(0x3040, 0xD7FF),
+ R(0xF900, 0xFD3D), R(0xFD40, 0xFDCF),
+ R(0xFDF0, 0xFE1F), R(0xFE30, 0xFE44),
+ R(0xFE47, 0xFFFD), R(0x10000, 0x1FFFD),
+ R(0x20000, 0x2FFFD), R(0x30000, 0x3FFFD),
+ R(0x40000, 0x4FFFD), R(0x50000, 0x5FFFD),
+ R(0x60000, 0x6FFFD), R(0x70000, 0x7FFFD),
+ R(0x80000, 0x8FFFD), R(0x90000, 0x9FFFD),
+ R(0xA0000, 0xAFFFD), R(0xB0000, 0xBFFFD),
+ R(0xC0000, 0xCFFFD), R(0xD0000, 0xDFFFD),
+ R(0xE0000, 0xEFFFD), E(),
+};
+
+static int const swift_identifier_other_chars[] = {
+ R(0x0300, 0x036F), R(0x1DC0, 0x1DFF),
+ R(0x20D0, 0x20FF), R(0xFE20, 0xFE2F),
+ E(),
+};
+
+#undef R
+#undef S
+#undef E
+
+static int qe_find_range(int c, const int *rangep)
+{
+ if (c > 0x10FFFF)
+ return 0;
+
+ for (;;) {
+ if (c < *rangep++)
+ return 0;
+ if (c <= *rangep++)
+ return 1;
+ }
+}
+
+static int is_swift_identifier_head(int c)
+{
+ return qe_find_range(c, swift_identifier_head);
+}
+
+static int is_swift_identifier_char(int c)
+{
+ if (qe_isalnum_(c)) {
+ return 1;
+ } else {
+ return qe_find_range(c, swift_identifier_head)
+ || qe_find_range(c, swift_identifier_other_chars);
+ }
+}
+
+static int swift_parse_identifier(char *buf, int buf_size, unsigned int *p)
+{
+ buf_t outbuf, *out;
+ int i = 0;
+
+ out = buf_init(&outbuf, buf, buf_size);
+
+ buf_putc_utf8(out, p[i++]);
+ for (; is_swift_identifier_char(p[i]); i++) {
+ buf_putc_utf8(out, p[i]);
+ }
+ if (p[i] == '`' && buf[0] == '`')
+ buf_put_byte(out, p[i++]);
+
+ return i;
+}
+
+static int swift_parse_number(unsigned int *p)
+{
+ int i = 0, j;
+
+ if (*p == '0') {
+ if (p[1] == 'b') {
+ if (qe_isbindigit(p[2])) {
+ for (i = 3; qe_isbindigit_(p[i]); i++)
+ continue;
+ return i;
+ }
+ return 1;
+ } else
+ if (p[1] == 'o') {
+ if (qe_isoctdigit(p[2])) {
+ for (i = 3; qe_isoctdigit_(p[i]); i++)
+ continue;
+ return i;
+ }
+ return 1;
+ } else
+ if (p[1] == 'x') {
+ if (qe_isxdigit(p[2])) {
+ for (i = 3; qe_isxdigit_(p[i]); i++)
+ continue;
+ if (p[i] == '.' && qe_isxdigit(p[i + 1])) {
+ for (i += 2; qe_isxdigit_(p[i]); i++)
+ continue;
+ }
+ if (p[i] == 'p' || p[i] == 'P') {
+ j = i + 1;
+ if (p[j] == '-' || p[j] == '+')
+ j++;
+ /* There is a bug in the Swift Programming Language
+ * book, page 665:
+ * hexadecimal-exponent ->
+ * floating-point-p sign(opt) hexadecimal-literal
+ * should be decimal-literal instead
+ */
+ if (qe_isdigit(p[j])) {
+ for (i = j + 1; qe_isdigit_(p[i]); i++)
+ continue;
+ }
+ }
+ return i;
+ }
+ return 1;
+ }
+ }
+ if (qe_isdigit(p[0])) {
+ for (i = 1; qe_isdigit_(p[i]); i++)
+ continue;
+ /* floats require digits before and after . */
+ if (p[i] == '.' && qe_isdigit(p[i + 1])) {
+ for (i += 2; qe_isdigit_(p[i]); i++)
+ continue;
+ }
+ if (p[i] == 'e' || p[i] == 'E') {
+ j = i + 1;
+ if (p[j] == '-' || p[j] == '+')
+ j++;
+ if (qe_isdigit(p[j])) {
+ for (i = j + 1; qe_isdigit_(p[i]); i++)
+ continue;
+ }
+ }
+ return i;
+ }
+ return 0;
+}
+
+static void swift_colorize_line(QEColorizeContext *cp,
+ unsigned int *str, int n, ModeDef *syn)
+{
+ int i = 0, start, i1, level;
+ int c, state, style, klen, flavor;
+ int mode_flags;
+ char kbuf[32];
+
+ mode_flags = syn->colorize_flags;
+ flavor = (mode_flags & CLANG_FLAVOR);
+
+ state = cp->colorize_state;
+ start = i;
+
+ c = 0;
+
+ if (state) {
+ /* if already in a state, go directly in the code parsing it */
+ if (state & IN_C_COMMENT_D)
+ goto parse_comment_d;
+ }
+
+ while (i < n) {
+ start = i;
+ c = str[i++];
+
+ switch (c) {
+ case '/':
+ if (str[i] == '*') {
+ /* Swift multi-line comments can nest */
+ i++;
+ state |= (1 << IN_C_COMMENT_D_SHIFT);
+ parse_comment_d:
+ 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) {
+ state &= ~IN_C_COMMENT_D;
+ break;
+ }
+ } else {
+ i++;
+ }
+ }
+ state = (state & ~IN_C_COMMENT_D) |
+ (min(level, 7) << IN_C_COMMENT_D_SHIFT);
+ if (level) {
+ /* set style on eol char to allow skip block from
+ * end of comment line.
+ */
+ i++;
+ }
+ SET_COLOR(str, start, i, C_STYLE_COMMENT);
+ continue;
+ }
+ if (str[i] == '/') {
+ /* end of line comment (include eol char, see above) */
+ i = n + 1;
+ SET_COLOR(str, start, i, C_STYLE_COMMENT);
+ continue;
+ }
+ break;
+ case '`': /* `symbol` for reserved words */
+ case '@': /* @attribute */
+ goto identifier;
+
+ case '\"': /* string literal */
+ while (i < n) {
+ c = str[i++];
+ if (c == '\\') {
+ /* Should colorize \(expr) interpolation */
+ if (i >= n)
+ break;
+ i++;
+ } else
+ if (c == '\"') {
+ break;
+ }
+ }
+ SET_COLOR(str, start, i, C_STYLE_STRING);
+ continue;
+ default:
+ if (qe_isdigit(c)) {
+ i -= 1;
+ i += swift_parse_number(str + i);
+ SET_COLOR(str, start, i, C_STYLE_NUMBER);
+ continue;
+ }
+ if (is_swift_identifier_head(c)) {
+ identifier:
+ klen = swift_parse_identifier(kbuf, countof(kbuf), str +
start);
+ i = start + klen;
+
+ if (strfind(syn->keywords, kbuf)) {
+ SET_COLOR(str, start, i, C_STYLE_KEYWORD);
+ continue;
+ }
+ i1 = i;
+ if (qe_isblank(str[i1]))
+ i1++;
+
+ if (strfind(syn->types, kbuf)) {
+ style = C_STYLE_TYPE;
+ if (str[i1] == '(' && flavor != CLANG_PIKE) {
+ /* function style cast */
+ style = C_STYLE_KEYWORD;
+ }
+ SET_COLOR(str, start, i, style);
+ continue;
+ }
+ if (str[i1] == '(') {
+ /* function call */
+ SET_COLOR(str, start, i, C_STYLE_FUNCTION);
+ continue;
+ }
+ continue;
+ }
+ }
+ }
+ cp->colorize_state = state;
+}
+
+static const char swift_keywords[] = {
+ "var|let|for|in|do|while|if|else|switch|nil|case|default|where|func|"
+ "return|class|override|self|super|init|deinit|get|set|willSet|didSet|"
+ "enum|struct|protocol|mutating|extension|typealias|true|false|_|"
+ "break|continue|fallthrough|inout|static|subscript|convenience|"
+ "weak|unowned|is|as|import|dynamicType|new|nonmutating|associativity|"
+ "safe|unsafe|precedence|"
+ "@lazy|@final|@objc|@optional|@infix|@prefix|@postfix|@assignment|"
+ "@auto_closure|@required|@noreturn|@class_protocol|@exported|"
+ "@NSCopying|@NSManaged|"
+ "operator|infix|prefix|postfix|"
+ "__COLUMN__|__FILE__|__FUNCTION__|__LINE__|"
+};
+
+static const char swift_types[] = {
+ "Bool|Int|Uint|Float|Double|Character|String|Array|Dictionary|"
+ "Int8|Int16|Int32|Int64|UInt8|UInt16|UInt32|UInt64|Void|"
+ "Any|AnyObject|Self|Type|"
+
+ "CBool|CChar|CUnsignedChar|CShort|CUnsignedShort|CInt|CUnsignedInt|"
+ "CLong|CUnsignedLong|CLongLong|CUnsignedLongLong|CWideChar|CChar16|"
+ "CChar32|CFloat|CDouble|"
+};
+
+ModeDef swift_mode = {
+ .name = "Swift",
+ .extensions = "swift",
+ .shell_handlers = "swift",
+ .colorize_func = swift_colorize_line,
+ .colorize_flags = CLANG_SWIFT,
+ .keywords = swift_keywords,
+ .types = swift_types,
+ .fallback = &c_mode,
+};
+
+static int swift_init(void)
+{
+ qe_register_mode(&swift_mode, MODEF_SYNTAX);
+
+ return 0;
+}
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Qemacs-commit] qemacs swift.c,
Charlie Gordon <=