Mercurial > hg > egg-tcls

changeset 599:76d19fa28753

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
utillib: Add command matching helper function.
author Matti Hamalainen <ccr@tnsp.org>
date Thu, 04 Feb 2021 12:15:54 +0200
parents 40db54427950
children 90da5691cc81
files utillib.tcl
diffstat 1 files changed, 11 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/utillib.tcl	Wed Feb 03 13:37:10 2021 +0200
+++ b/utillib.tcl	Thu Feb 04 12:15:54 2021 +0200
@@ -128,6 +128,17 @@
 }
 
 
+proc utl_cmd_match { ucommands uid ustr } {
+  upvar $ucommands ucmds
+
+  if {[info exists ucmds($uid)] && [regexp -nocase -- $ucmds($uid) $ustr]} {
+    return 1
+  } else {
+    return 0
+  }
+}
+
+
 ###
 ### SQL database handling
 ###