Discussion:
lsearch proposed option
Add Reply
Rich
2025-01-02 21:39:32 UTC
Reply
Permalink
aotto1968 <***@t-online.de> wrote:

It is preferable to start a new thread for a new topic.
other stuff
# OLD
proc ::myoo::ClassIs {myR cls} {
upvar $myR my
expr {[llength [lsearch -exact -sorted [set $my(__CLASS__)::__SUPER__SORTED__] $cls]] > 0}
}
# want to have
proc ::myoo::ClassIs {myR cls} {
upvar $myR my
lsearch -exists -exact -sorted [set $my(__CLASS__)::__SUPER__SORTED__] $cls
}
ONE simple FLAG erase a lot of code.
Write up a TIP, and supply an implementation, and the maintainers just
might add your feature.
Emiliano
2025-01-02 23:28:54 UTC
Reply
Permalink
On Thu, 2 Jan 2025 21:39:32 -0000 (UTC)
Post by Rich
It is preferable to start a new thread for a new topic.
other stuff
# OLD
proc ::myoo::ClassIs {myR cls} {
upvar $myR my
expr {[llength [lsearch -exact -sorted [set $my(__CLASS__)::__SUPER__SORTED__] $cls]] > 0}
}
# want to have
proc ::myoo::ClassIs {myR cls} {
upvar $myR my
lsearch -exists -exact -sorted [set $my(__CLASS__)::__SUPER__SORTED__] $cls
}
ONE simple FLAG erase a lot of code.
Write up a TIP, and supply an implementation, and the maintainers just
might add your feature.
Or simply use

proc ::myoo::ClassIs {myR cls} {
upvar $myR my
expr {$cls in [set $my(__CLASS__)::__SUPER__SORTED__]}
}
--
Emiliano
aotto1968
2025-01-03 07:15:13 UTC
Reply
Permalink
Post by Emiliano
On Thu, 2 Jan 2025 21:39:32 -0000 (UTC)
Post by Rich
It is preferable to start a new thread for a new topic.
other stuff
# OLD
proc ::myoo::ClassIs {myR cls} {
upvar $myR my
expr {[llength [lsearch -exact -sorted [set $my(__CLASS__)::__SUPER__SORTED__] $cls]] > 0}
}
# want to have
proc ::myoo::ClassIs {myR cls} {
upvar $myR my
lsearch -exists -exact -sorted [set $my(__CLASS__)::__SUPER__SORTED__] $cls
}
ONE simple FLAG erase a lot of code.
Write up a TIP, and supply an implementation, and the maintainers just
might add your feature.
Or simply use
proc ::myoo::ClassIs {myR cls} {
upvar $myR my
expr {$cls in [set $my(__CLASS__)::__SUPER__SORTED__]}
}
you just missing the "-sorted".

Loading...