main,Zsh: detect zsh in the parser guessing based on emacs modelines (the first line)

We introduced Zsh parser. To utilize the new paresr, it is not enough
to detect a mode in an emacs modeline.

For an example:

   -*- mode: sh; eval: (sh-set-shell "zsh") -*-
   ...

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-firstline0.unknown

@@ -0,0 +1 @@
+# -*- mode: sh; eval: (sh-set-shell "zsh") -*-

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

@@ -0,0 +1,3 @@
+# -*- mode: shell-script; sh-set-shell: zsh -*-
+# Emacs doesn't understand this notation but I found one in
+# https://github.com/neumachen/dotfiles/blob/3e2b04249f852dbdf7dee1e33e518de61031eb04/private_dot_config/exact_zsh/dot_zprofile

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

@@ -0,0 +1 @@
+# -*- mode: sh; eval: (sh-set-shell "bash") -*-

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

@@ -0,0 +1,3 @@
+# -*- mode: shell-script; sh-set-shell: bash -*-
+# Emacs doesn't understand this notation but I found one in
+# https://github.com/neumachen/dotfiles/blob/3e2b04249f852dbdf7dee1e33e518de61031eb04/private_dot_config/exact_zsh/dot_zprofile

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

@@ -0,0 +1 @@
+# -*- mode: sh -*-

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

@@ -0,0 +1,3 @@
+# -*- mode: shell-script -*-
+# Emacs doesn't understand this notation but I found one in
+# https://github.com/neumachen/dotfiles/blob/3e2b04249f852dbdf7dee1e33e518de61031eb04/private_dot_config/exact_zsh/dot_zprofile

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

@@ -0,0 +1,14 @@
+# Copyright: 2022 Masatake YAMATO
+# License: GPL-2
+
+CTAGS=$1
+
+for f in input-firstline0.unknown \
+			 input-firstline1.unknown \
+			 input-firstline2.unknown \
+			 input-firstline3.unknown \
+			 input-firstline4.unknown \
+			 input-firstline5.unknown \
+		 ; do
+	$CTAGS --quiet --options=NONE -G --print-language $f
+done

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

@@ -0,0 +1,6 @@
+input-firstline0.unknown: Zsh
+input-firstline1.unknown: Zsh
+input-firstline2.unknown: Sh
+input-firstline3.unknown: Sh
+input-firstline4.unknown: Sh
+input-firstline5.unknown: Sh

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

@@ -783,6 +783,24 @@ static vString* extractInterpreter (MIO* input)
 	return interpreter;
 }
 
+static bool isShellZsh (const char *p)
+{
+	p = strstr (p, "sh-set-shell");
+	if (!p)
+		return false;
+	p += strlen("sh-set-shell");
+
+	if (*p == ':')
+		p++;
+	while (isspace ((int) *p))
+		p++;
+
+	if (strncmp (p, "\"zsh\"", 5) == 0
+		|| strncmp (p, "zsh", 3) == 0)
+		return true;
+	return false;
+}
+
 static vString* determineEmacsModeAtFirstLine (const char* const line)
 {
 	vString* mode = vStringNew ();
@@ -803,6 +821,11 @@ static vString* determineEmacsModeAtFirstLine (const char* const line)
 			;  /* no-op */
 		for ( ;  *p != '\0'  &&  isLanguageNameChar ((int) *p)  ;  ++p)
 			vStringPut (mode, (int) *p);
+
+		if ((strcmp(vStringValue (mode), "sh") == 0
+			 || strcmp(vStringValue (mode), "shell-script") == 0)
+			&& isShellZsh (p))
+			vStringCopyS (mode, "Zsh");
 	}
 	else
 	{