upcase.fish: converts strings to uppercase

gistpkg.zpl

name = upcase

author = Chris Olstrom

license = MIT

provides = fish/functions/upcase

requires
    command/tr
    fish/builtin/case
    fish/builtin/count
    fish/builtin/echo
    fish/builtin/else
    fish/builtin/end
    fish/builtin/function
    fish/builtin/if
    fish/builtin/read
    fish/builtin/return
    fish/builtin/string
    fish/builtin/switch
    fish/builtin/while
    fish/functions/isatty
    fish/functions/list
    fish/functions/upcase

upcase.fish

function upcase
  if isatty stdin
    switch (count $argv)
      case 0
        echo 'usage: upcase <string> [string ...]'
        return 100
      case '*'
        list $argv | upcase
    end
  else
    while read string
      echo $string | tr [:lower:] [:upper:]
    end
  end
end