alias catscan {
if !$file($1-) { echo -aict info * /catscan: Unable to open $+(',$1-.') | return }
.fopen catscan $qt($1-)
if $ferr {
.fclose catscan
echo -aict info $!fopen error
return
}
while !$feof {
if $fread(catscan) {
inc -u $+(%,cats.,$v1)
noop $fread(catscan) $fread(catscan)
}
}
.fclose catscan
var %i = 1,%a
while $var($+(%,cats.,*),%i) {
%a = %a $gettok($v1,2,46) - $($v1,2) :
inc %i
}
echo -a Categories: %a
unset %cats.*
}