Ticket #53089: patch-options-contains.diff

src/port1.0/portutil.tcl

@@ -97 +97 @@
 }
 
 ##
+# Handle option-contains
+#
+# @param option name of the option
+# @param args arguments, can contain one of lsearch's options
+proc handle_option-contains {option args} {
+    global $option user_options option_procs
+
+    if {![info exists user_options($option)] && [info exists $option]} {
+        set arg0 [lindex $args 0]
+        if {[string index $arg0 0] eq "-"} {
+            set searchopt $arg0
+            set args [lrange $args 1 end]
+        } else {
+            set searchopt "-exact"
+        }
+        if {[lsearch $searchopt [set $option] $args] >= 0} {
+            return yes
+        }
+    }
+    return no
+}
+
+##
 # Handle option-append
 #
 # @param option name of the option
@@ -204 +220 @@
 proc options {args} {
     foreach option $args {
         interp alias {} $option {} handle_option $option
+        interp alias {} $option-contains {} handle_option-contains $option
         interp alias {} $option-append {} handle_option-append $option
         interp alias {} $option-prepend {} handle_option-prepend $option
         interp alias {} $option-delete {} handle_option-delete $option