From 471b22dea3eab3e4eb1900686f98c4c1aaabd4af Mon Sep 17 00:00:00 2001
From: apn <apn@opencascade.com>
Date: Fri, 16 Dec 2016 12:20:05 +0300
Subject: [PATCH] Added procedure lmatch for test case in branch CR28196_1

---
 src/DrawResources/StandardCommands.tcl | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/src/DrawResources/StandardCommands.tcl b/src/DrawResources/StandardCommands.tcl
index 737cdc3cb5..29971320aa 100644
--- a/src/DrawResources/StandardCommands.tcl
+++ b/src/DrawResources/StandardCommands.tcl
@@ -369,3 +369,28 @@ proc don { args } {
     uplevel #0 eval donly $res
     return $res
 }
+
+# The following commands (definitions are surrounded by if) are
+# available in extended Tcl (Tclx).
+# These procedures are added just to make full-working simulations of them.
+
+if {[info commands lmatch] == ""} {
+    proc lmatch args {
+	set mode [switch -- [lindex $args 0] {
+	    -exact {format 0}
+	    -glob {format 1}
+	    -regexp {format 2}}]
+	if {$mode == ""} {set mode 1} else {lvarpop args}
+	if {[llength $args] < 2} {puts "usage: lmatch ?mode? list pattern";return}
+	set list [lindex $args 0]
+	set pattern [lindex $args 1]
+	set res {}
+	foreach a $list {
+	    if [switch $mode {
+		0 {expr [string compare $a $pattern] == 0}
+		1 {string match $pattern $a}
+		2 {regexp $pattern $a}}] {lappend res $a}
+	}
+	return $res
+    }
+}