main,Zsh: detect zsh in the parser guessing based on emacs modelines (thelist at EOF)

For an example:

    ...
    # Local Variables:
    # mode: sh
    # eval: (sh-set-shell "zsh")
    # End:

    The original code tells that ctags should use "sh" parser for
    processing the input.

    With this change, ctags can detect "zsh" passed as an argument to
    sh-set-shell function.

Signed-off-by: Masatake YAMATO <[email protected]>

Author: masatake

Tmain/emacs-modline-shell-script-zsh.d/input-lastlist0.unknown

@@ -0,0 +1,4 @@
+# Local Variables:
+# mode: sh
+# eval: (sh-set-shell "zsh")
+# End:

Tmain/emacs-modline-shell-script-zsh.d/input-lastlist1.unknown

@@ -0,0 +1,4 @@
+# Local Variables:
+# mode: sh
+# eval: (sh-set-shell "bash")
+# End:

Tmain/emacs-modline-shell-script-zsh.d/input-lastlist2.unknown

@@ -0,0 +1,3 @@
+# Local Variables:
+# mode: sh
+# End:

Tmain/emacs-modline-shell-script-zsh.d/run.sh

@@ -9,6 +9,9 @@ for f in input-firstline0.unknown \
 			 input-firstline3.unknown \
 			 input-firstline4.unknown \
 			 input-firstline5.unknown \
+			 input-lastlist0.unknown  \
+			 input-lastlist1.unknown  \
+			 input-lastlist2.unknown  \
 		 ; do
 	$CTAGS --quiet --options=NONE -G --print-language $f
 done

Tmain/emacs-modline-shell-script-zsh.d/stdout-expected.txt

@@ -4,3 +4,6 @@ input-firstline2.unknown: Sh
 input-firstline3.unknown: Sh
 input-firstline4.unknown: Sh
 input-firstline5.unknown: Sh
+input-lastlist0.unknown: Zsh
+input-lastlist1.unknown: Sh
+input-lastlist2.unknown: Sh

main/parse.c

@@ -875,6 +875,7 @@ static vString* determineEmacsModeAtEOF (MIO* const fp)
 	bool headerFound = false;
 	const char* p;
 	vString* mode = vStringNew ();
+	bool is_shell_mode = false;
 
 	while ((line = readLineRaw (vLine, fp)) != NULL)
 	{
@@ -888,11 +889,22 @@ static vString* determineEmacsModeAtEOF (MIO* const fp)
 				;  /* no-op */
 			for ( ;  *p != '\0'  &&  isLanguageNameChar ((int) *p)  ;  ++p)
 				vStringPut (mode, (int) *p);
+
+			is_shell_mode = ((strcasecmp (vStringValue (mode), "sh") == 0
+								 || strcasecmp (vStringValue (mode), "shell-script") == 0));
 		}
 		else if (headerFound && (p = strstr(line, "End:")))
 			headerFound = false;
 		else if (strstr (line, "Local Variables:"))
 			headerFound = true;
+		else if (is_shell_mode && (p = strstr (line, "sh-set-shell")))
+		{
+			p += strlen("sh-set-shell");
+			while (isspace ((int) *p))
+				p++;
+			if (strncmp (p, "\"zsh\"", 5) == 0)
+				vStringCopyS (mode, "Zsh");
+		}
 	}
 	vStringDelete (vLine);
 	return mode;