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

set usage = "$0 ABBR TITLE LANG..."

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

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

set langs = ( $* )

set psfile = "zipf/${abbr}.eps"
set tmpfiles = ( )
set keys = ( )
set tmp = "/tmp/$$"
foreach lang ( ${langs} )
  set ifile = "tot.frq"
  set tfile = "${tmp}.${lang}.frq"
  set abbr = "cat"; if ( "$abbr" == "szu" ) set abbr = "abbrev-${lang}"
  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 ${lang} )
end

echo "${tmpfiles} -> ${psfile}"
make-zipf-plot \
    -keys "${keys}" \
    ${tmpfiles} \
  > ${psfile}

ghostview ${psfile} &

/bin/rm -f ${tmpfiles}