
getman()
{
  oldrep=`pwd`
  cd $1
  whereis -m -M $2 -f * >> "$TMPDIR"/$$_manlist
  cd $oldrep
}

ecritlist()
{
  awk ' BEGIN {present = " "; FS=":" 
       nbman[void] = ""
       printf("\n          LISTE DES UTILITAIRES RPN ET DE LEURS MANPAGES\n\n") 
       printf("\n\nUTILITAIRE                   MANUEL(S)\n\n\n")
      }
    {
       if($1 != present)
       {
          nbman[$1] = 0
          if($2 != "")
          {
             nbman[$1]++
             printf("\n%-15s %s\n",$1,$2)
             present = $1
          }
       }
       else
       {
          if($2 != "")
          {
             nbman[$1]++
             printf("                %s\n",$2)
          }
       }
    }
END {
        printf("\n  LISTE DES UTILITAIRES SANS MANUEL\n\n")
        ncount = 1
        for(name in nbman)
        {
            if(nbman[name] == 0)
            {
                 if(ncount > 4)
                 {
                    printf(" %-15s\n",name)
                    ncount = 1
                 }
                 else
                 { 
                   printf(" %-15s ",name)
                   ncount++
                 }
            }
        }
        printf("\n")
     }' $1
}
  

getman "$ARMNLIB"/bin "$ARMNLIB"/man/u_man/cat1
getman "$ARMNLIB"/bin "$ARMNLIB"/man/u_man/man1
getman "$ARMNLIB"/bin "$ARMNLIB"/man/catman/u_man/man1
getman "$ARMNLIB"/bin "$ARMNLIB"/man/catman/topix
getman "$ARMNLIB"/scripts "$ARMNLIB"/man/u_man/cat1
getman "$ARMNLIB"/scripts "$ARMNLIB"/man/u_man/man1
getman "$ARMNLIB"/scripts "$ARMNLIB"/man/catman/u_man/man1
getman "$ARMNLIB"/scripts "$ARMNLIB"/man/catman/topix

cat "$TMPDIR"/$$_manlist | sort > "$TMPDIR"/$$_sortmanlist
ecritlist $TMPDIR/$$_sortmanlist

/bin/rm "$TMPDIR"/$$_manlist "$TMPDIR"/$$_sortmanlist
