Tcl: don't include '"' char as a part of identifiers

Close #3638. Signed-off-by: Masatake YAMATO <yamato@redhat.com>
universal-ctags · Feb 6, 2023 · e2ac261 · e2ac261
1 parent 555198a
commit e2ac261
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 1 deletion.
diff --git a/Units/parser-tcl.r/tcl-issue-3638.d/args.ctags b/Units/parser-tcl.r/tcl-issue-3638.d/args.ctags
@@ -0,0 +1 @@
+--sort=no
diff --git a/Units/parser-tcl.r/tcl-issue-3638.d/input.tcl b/Units/parser-tcl.r/tcl-issue-3638.d/input.tcl
@@ -0,0 +1,10 @@
+# Taken from https://github.com/universal-ctags/ctags/issues/3638 submitted by @kenifanying
+proc test1 {a} {
+	set i 1
+	set PORT1 Gi0/1
+	set PORT2 Te1/1
+	puts "[format "%10s %10s %10s" "$i |" $PORT1 $PORT2]"
+}
+proc test2 {} {
+	puts "test2"
+}
diff --git a/parsers/tcl.c b/parsers/tcl.c
@@ -177,7 +177,7 @@ static void readIdentifier (vString *string)
 	while (1)
 	{
 		int c = getcFromInputFile ();
-		if (isgraph (c) && (!strchr ("{}[]", c)))
+		if (isgraph (c) && (!strchr ("{}[]\"", c)))
 			vStringPut (string, c);
 		else
 		{