Add AutoIt syntax highlighting

ctags/Makefile.am

@@ -14,6 +14,7 @@ parsers = \
 	parsers/actionscript.c \
 	parsers/asciidoc.c \
 	parsers/asm.c \
+	parsers/autoit.c \
 	parsers/basic.c \
 	parsers/c.c \
 	parsers/cobol.c \

ctags/main/parsers.h

@@ -65,6 +65,7 @@
 	GoParser, \
 	JsonParser, \
 	ZephirParser, \
-	PowerShellParser
+	PowerShellParser, \
+	AutoItParser
 
 #endif  /* CTAGS_MAIN_PARSERS_H */

ctags/parsers/autoit.c

@@ -0,0 +1,121 @@
+/*
+*   Copyright (c) 2017, Alexey Olenich
+*
+*   This source code is released for free distribution under the terms of the
+*   GNU General Public License version 2 or (at your option) any later version.
+*
+*   This module contains functions for generating tags for AutoIt functions.
+*   Homepage             https://www.autoitscript.com/site/autoit/
+*   Online Documentation https://www.autoitscript.com/autoit3/docs/
+*
+*   Functions: (?i)^func[ \t]{1,}([a-z0-9_]{1,}) >> \1
+*   Regions:   (?i)^#region[ \t]*(.*?)           >> \1
+*/
+
+/*
+*   INCLUDE FILES
+*/
+#include "general.h"  /* must always come first */
+
+#include <string.h>
+
+#include "parse.h"
+#include "read.h"
+#include "routines.h"
+#include "vstring.h"
+
+/*
+*   DATA DEFINITIONS
+*/
+typedef enum {
+	K_FUNCTION,
+	K_REGION
+} AutoItKind;
+
+static kindOption AutoItKinds [] = {
+	{ true, 'f', "func", "functions" },
+	{ true, 'r', "region", "regions" }
+};
+
+/*
+*   FUNCTION DEFINITIONS
+*/
+static void findAutoItTags (void)
+{
+	vString *name = vStringNew ();
+	const unsigned char *line;
+
+	while ((line = readLineFromInputFile ()) != NULL)
+	{
+		const unsigned char* p = line;
+		if (p [0] == '#')
+		{
+			/* min. string "#region" > 7 */
+			if ((p [1] == 'R' || p [1] == 'r') &&
+				strlen ((const char *) p) > 8 &&
+				(p [2] == 'E' || p [2] == 'e') &&
+				(p [3] == 'G' || p [3] == 'g') &&
+				(p [4] == 'I' || p [4] == 'i') &&
+				(p [5] == 'O' || p [5] == 'o') &&
+				(p [6] == 'N' || p [6] == 'n'))
+			{
+				p += 7;
+				while (isspace ((int) *p))
+					++p;
+				while (*p != '\0')
+				{
+					vStringPut (name, (int) *p);
+					++p;
+				}
+
+				if (vStringLength(name) > 0)
+				{
+					makeSimpleTag (name, AutoItKinds, K_REGION);
+					vStringClear (name);
+				}
+			}
+		}
+		else
+		{
+			/* skip white space */
+			while (isspace ((int) *p))
+				++p;
+			/* min. string "func a()" == 8 */
+			if ((p [0] == 'F' || p [0] == 'f') &&
+				strlen ((const char *) p) >= 8 &&
+				(p [1] == 'U' || p [1] == 'u') &&
+				(p [2] == 'N' || p [2] == 'n') &&
+				(p [3] == 'C' || p [3] == 'c') &&
+				isspace ((int) p [4]))
+			{
+				p += 5;
+				while (isspace ((int) *p))
+					++p;
+				while (isalnum ((int) *p) || *p == '_')
+				{
+					vStringPut (name, (int) *p);
+					++p;
+				}
+				while (isspace ((int) *p))
+					++p;
+				if (*p == '(' && (vStringLength(name) > 0))
+				{
+					makeSimpleTag (name, AutoItKinds, K_FUNCTION);
+					vStringClear (name);
+				}
+			}
+		}
+	}
+	vStringDelete (name);
+}
+
+parserDefinition *AutoItParser (void)
+{
+	static char const *extensions[] = { "au3", "AU3", "aU3", "Au3", NULL };
+	parserDefinition* def = parserNew ("AutoIt");
+	def->kinds      = AutoItKinds;
+	def->kindCount  = ARRAY_SIZE (AutoItKinds);
+	def->extensions = extensions;
+	def->parser     = findAutoItTags;
+	return def;
+}

src/filetypes.c

@@ -186,7 +186,7 @@ static void init_builtin_filetypes(void)
 	FT_INIT( COFFEESCRIPT, NONE,       "CoffeeScript",     NULL,                      SOURCE_FILE, SCRIPT   );
 	FT_INIT( GO,         GO,           "Go",               NULL,                      SOURCE_FILE, COMPILED );
 	FT_INIT( ZEPHIR,     ZEPHIR,       "Zephir",           NULL,                      SOURCE_FILE, COMPILED );
-	FT_INIT( AU3,        NONE,         "AutoIt",           NULL,                      SCRIPT,      SCRIPT   );
+	FT_INIT( AU3,        AUTOIT,       "AutoIt",           NULL,                      SCRIPT,      SCRIPT   );
 }
 
 

src/symbols.c

@@ -831,6 +831,14 @@ static void add_top_level_items(GeanyDocument *doc)
 				&(tv_iters.tag_externvar), _("Extern Variables"), ICON_VAR,
 				&(tv_iters.tag_other), _("Other"), ICON_OTHER, NULL);
 		}
+		case GEANY_FILETYPES_AU3:
+		{
+			tag_list_add_groups(tag_store,
+				&tv_iters.tag_function, _("Functions"), ICON_METHOD,
+				&tv_iters.tag_other, _("Regions"), ICON_OTHER,
+				NULL);
+			break;
+		}
 	}
 }
 

src/tagmanager/tm_parser.c

@@ -488,6 +488,10 @@ static TMParserMapEntry map_POWERSHELL[] = {
 	{'v', tm_tag_variable_t},
 };
 
+static TMParserMapEntry map_AUTOIT[] = {
+	{'f', tm_tag_function_t},
+	{'r', tm_tag_other_t},
+};
 
 typedef struct
 {
@@ -550,6 +554,7 @@ static TMParserMap parser_map[] = {
 	MAP_ENTRY(JSON),
 	MAP_ENTRY(ZEPHIR),
 	MAP_ENTRY(POWERSHELL),
+	MAP_ENTRY(AUTOIT),
 };
 /* make sure the parser map is consistent and complete */
 G_STATIC_ASSERT(G_N_ELEMENTS(parser_map) == TM_PARSER_COUNT);

src/tagmanager/tm_parser.h

@@ -109,6 +109,7 @@ enum
 	TM_PARSER_JSON,
 	TM_PARSER_ZEPHIR,
 	TM_PARSER_POWERSHELL,
+	TM_PARSER_AUTOIT,
 	TM_PARSER_COUNT
 };
 

tests/ctags/Makefile.am

@@ -268,6 +268,7 @@ test_sources = \
 	semicolon.f90					\
 	shebang.js						\
 	signature.cpp					\
+	simple.au3						\
 	simple.bas						\
 	simple.cbl						\
 	simple.d						\

tests/ctags/simple.au3

@@ -0,0 +1,32 @@
+; Taken from https://www.autoitscript.com/autoit3/docs/intro/lang_functions.htm
+
+#include <Constants.au3>
+#include<GUIConstantsEx.au3>
+#include "WindowsConstants.au3"
+
+Local $iNumber = 10
+Local $iDoubled = 0
+
+For $i = 1 To 10
+    $iDoubled = MyDouble($iNumber)
+    MsgBox($MB_OK, "", $iNumber & " doubled is " & $iDoubled)
+    $iNumber = $iDoubled
+Next
+Exit
+
+#Region All functions
+Func MyDouble($iValue)
+    $iValue = $iValue * 2
+    Return $iValue
+EndFunc   ;==>MyDouble
+
+func MyDouble0($iValue)
+    $iValue = $iValue * 2
+    Return $iValue
+EndFunc   ;==>MyDouble
+
+    	FUNC MyDouble1($iValue)
+    $iValue = $iValue * 2
+    Return $iValue
+EndFunc
+#EndRegion All functions

tests/ctags/simple.au3.tags

@@ -0,0 +1,5 @@
+# format=tagmanager
+All functions�524288�0
+MyDouble�16�0
+MyDouble0�16�0
+MyDouble1�16�0