Unnamed

alias ' noop $1
alias &regex { 
  if ($com(regex)) .comclose regex
  .comopen regex VBScript.RegExp
  if (!$comerr) { 
    if ($2 isnum 0-1) { 
      if ($3 isnum 0-1) { 
        if ($4 isnum 0-1) { 
          ' Regex Pattern Setting 
          ' $com(regex,pattern,5,bstr*,$1) 
          ' zero value returns 1 as COM RESULT
          ' $com(regex,ignorecase,5,bool,$2)
          ' zero value returns 1 as COM RESULT
          ' $com(regex,global,5,bool,$3) 
          ' one value returns 1 as COM RESULT
          ' $com(regex,multiline,5,bool,$4)
          ' test string $5 with pattern
          ' $com(regex,test,3,bstr*,$iif($isid,$5,$5-))
          var %return $com(regex).result
          .comclose regex
          $iif($isid,return,echo -a) %return
        }
      }
    }
  }
}