# An archive lister, provide it with the name of an archive.
if (!$?argv[1]) then
  secho "arl <archive file>"
  exit
endif
switch $argv[1]
  case *.zoo
    zoo l $argv[1]
    break
  case *.lzh
  case *.lha
    lha l $argv[1]
    break
  case *.arc
    arc l $argv[1]
    break
  case *.tar
    tar tf $argv[1]
    break
  case *.tar.Z
    zcat $argv[1] | tar tf -
    break
  case *.tar.z
    gzcat $argv[1] | tar tf -
    break
  default
    secho "arl: not a valid archive file: $argv[1]."
endsw
