/*  (gH)   --  dico.rex  ;  TimeStamp (unix) : 24 Février 01 22:30 */

rep = "/home/gh/Bin/"

parse arg bn .

if words(bn)=0 then do
  say "    syntaxe : dico nom_de_fichier"
  exit
end

"rm -f tmp.tmp"
"rm -f dico.ocm"
"rm -f dico.ocd"

nbl = lines(bn)
if nbl=0 then do
   say  "  fichier " bn " non vu ou vide."
   exit
end

say
"gawk -f "rep"dicomini.awk" bn

/* tri croissant sur le champ un */

"sort -k 1 tmp.tmp -o dico.ocm"

/* tri décroissant en numérique sur le champ 2 */

"sort -k 2 -n -r tmp.tmp -o dico.ocd"

say
say "    Vous pouvez consulter les fichiers des occurences"
say ""
say "      dico.ocm : trié par ordre décroissant d'occurence"
say "      dico.ocd : trié par ordre alphabétique de mots"
say
"ls -al dico.o*"
say