match a list

set match "foo,bar,baz"

set inclusion [list]
foreach term [split $match ,] {
    lappend inclusion *$term* -
}

set inclusion [lreplace $inclusion end end {return 1}]
proc matches {s} {
    switch -glob $s {*}$::inclusion default {return 0}
}
proc ckmatch {s} {
    if [matches $s] {puts "$s matches"} else {puts "$s nomatch"}
}

ckmatch "hi, foo"
ckmatch "hi, baz"
ckmatch "hi, there"