#! /usr/bin/gawk -f
# Last edited on 1998-10-27 20:39:01 by stolfi

BEGIN{
   nl=0; np=0; wmax=1; smax=1;
}

/^[#]/{next;}
/^ *$/{next;}

//{
  sc=$1; pg=$3; lb=$6;
  if(! (lb in lbnum)){ lbnum[lb] = nl; lbtxt[nl]=lb; nl++; }
  if(length(lb) > wmax){ wmax = length(lb); }
  if(! (pg in pgnum)){ pgnum[pg] = np; pgtxt[np]=pg; sctxt[np] = sc; np++; }
  st = (tb[pg,lb] "*");
  if(length(st) > smax){ smax = length(st); }
  tb[pg,lb] = st;
  next;
}

END {
  print_vertically(lbtxt, nl, wmax, smax, 12);
  scprev = "";
  for(i=0;i<np;i++)
    { sc = sctxt[i]; scc = sc;
      if ((scc == "hea") || (scc == "heb")) { scc = "her"; }
      if ((scc == "ast") || (scc == "cos")) { scc = "cos"; }
      if (scc  != scprev) { printf "\n"; scprev = scc; }
      printf "%3s %-6s |", sc, pgtxt[i];
      for(j=0;j<nl;j++)
        {
          st = tb[pgtxt[i],lbtxt[j]];
          printf "%-*s|", smax, st;
        }
      printf "\n";
    }
}

function print_vertically(w, n, wmax, wfld, indent,  i,j,a)
{
  for (i=1;i<=wmax;i++)
    { printf "%*s", indent, "";
      for (j=0;j<nl;j++)
        { a = substr(w[j],i,1);
          printf "%-*s ", wfld, a;
        }
      printf "\n";
    }
}