#! /bin/csh -f
# Last edited on 2025-05-01 18:48:53 by stolfi

set usage = "$0 LANG ABBR TITLE"

set lang = "$1"; shift;
set abbr = "$1"; shift;
set title = "$1"; shift;

if ( $#argv != 0 ) then
  echo "usage: ${usage}" ; exit 1
endif

set psfile = "zipf/${lang}/${abbr}.eps"
set tmpfiles = ( )
set keys = ( )
set tmp = "/tmp/$$"
foreach sec ( tot `cat wfreqs/${lang}/all.names` )
  set ifile = "${sec}.frq"
  set abbr = "cat"; if ( "$abbr" == "szu" ) set abbr = "abbrev-${lang}"
  set tfile = "${tmp}.${sec}.frq"
  echo "${ifile} -> ${tfile}"
  ( cd wfreqs/${lang} && cat ${ifile} ) \
    | egrep -v '[?*]' \
    | gawk '/./{print $1, $3; }' \
    | combine-counts \
    | ${abbr} \
    | compute-freqs \
    | sort -b -k1nr \
    > ${tfile}
  set tmpfiles = ( $tmpfiles  "${tfile}" )
  set keys = ( $keys ${sec} )
end
echo "${tmpfiles} -> ${psfile}"
make-zipf-plot \
    -keys "${keys}" \
    ${tmpfiles} \
  > ${psfile}

ghostview ${psfile} &

/bin/rm -f ${tmpfiles}