Merge pull request #744 from xdelaruelle/tcl_info_shell_test

Add ability to test a shell name on `module-info shell`
TACC · Jan 10, 2025 · 08b71ad · 08b71ad
2 parents 1f416cc + d245df0
commit 08b71ad
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/src/tcl2lua.tcl b/src/tcl2lua.tcl
@@ -381,7 +381,15 @@ proc module-info {what {more {}}} {
 	}
     }
     "shell" {
-        return $g_shellName
+        if {$more ne {}} {
+            if {$g_shellName eq $more} {
+               return 1
+            } else {
+               return 0
+            }
+        } else {
+            return $g_shellName
+        }
     }
     "shelltype" {
         return $g_shellType