;--------------------------
;- $iscaps - Saeed * 2007 -
;--------------------------
;--- Usage ----------------
;--- $iscaps(string).get --
;--- $iscaps(string).non --
;--------------------------
 
alias iscaps { 
  if ($isid) { 
    if ($prop = get) { 
      if ($2-) { 
        var %i $regex($2-,/[A-Z]/g), %t = $len($2-)
        return $calc(%i / %t * 100)
      }
    }
    if ($prop = non) { 
      if ($2-) { 
        var %i = $regex($2-,/[^A-Z]/g),%t = $len($2-)
        return $calc(%i / %t * 100) 
      }
    }
  }
}
 

Commenting Options