;   $wc2re(<wildcard text>).cs
;     -Converts <wildcard text> to a regex pattern
;     -if .cs is specified, the match is case sensative
;
; How to do it:

;declare the alias
alias wc2re {

  ;setup variable to be used when formatting
  var %subbed

  ;Using $regsubex(), replace all "special" regex characters with their escaped values then fill %subbed with the replaced text.
  ;Special characters being: |[]{}()\/.
  %subbed = $regsubex($1-,/([|\[\]{}()\\\/.])/g,\\t)

  ;After subbing the regex special characters, replace ?'s with .'s and *'s with .*'s
  %subbed = $replace(%subbed,?,.,*,.*)

  ;Once we have everything substituted, we need to wrap the pattern with /^$/ so the pattern will try to match the whole string, instead of just parts of it
  %subbed = /^ $+ %subbed $+ $/

  ;Check to see if the $prop was "cs" and if not tack "i" onto the end of the pattern to make it case insensative
  if ($prop != cs) { %subbed = %subbed $+ i }

  ;now return the result
  return %subbed
}