old:
alias qbase_validate_alphabet { var %pattern $+(^[,$2,]+$) | return $regex(foo,$1,%pattern) }
new:
alias qbase_validate_alphabet { var %pattern $+(^[\Q,$replacexcs($2,\E,\E\\E\Q),\E]+$) | return $regex(foo,$1,%pattern) }
old:
elseif (%inbase isnum 37-62) var %alphabet.in %alphabet.85 , %fake.base 85
new:
elseif (%inbase isnum 85) var %alphabet.in %alphabet.85 , %fake.base 85
old:
if (!$regex(foo,%num %inbase %outbase %pad,^[A-Za-z0-9/+]+ [0-9]+ [0-9]+ [0-9]+)) goto syntax
new:
if (!$regex(foo,%num %inbase %outbase %pad,^\S+ [0-9]+ [0-9]+ [0-9]+)) goto syntax