#!/bin/sh

/bin/rm -f *@
gawkstra=`find /usr/bin -name 'gawk' -print`
gawkstrb=`find /bin -name 'gawk' -print`
gawkstrc=`find /usr/local/bin -name 'gawk' -print`

if test "$gawkstra" = "" -a "$gawkstrb" = "" -a "$gawkstrc" = ""; then
   alias gawk='awk'
fi

SAVEPWD=`pwd`

clear
echo " ";echo " ";echo " "
echo " "
echo "         *************************************************"
echo "         *                                               *"
echo "         *   {NAMAƱM tfm/pk   *"
echo "         *   تOMª ttf2pk ͪ tfm/pk     *"
echo "         *   HϩҦrΤ@P                            *"
echo "         *                                               *"
echo "         *************************************************"
echo " "
echo -n "         Press enter key to continue"
read inkey



clear
echo " ";echo " ";echo " "
echo " "
echo "          Wait! It may take time to detect your environment"
echo " ";echo " ";echo " "

echo -n .
find /usr/lib -name "latex.fmt" -print > plain@
if test ! -s plain@; then
   find /usr/local/lib -name "latex.fmt" -print > plain@
else
    echo -n .
    if test ! -s plain@; then
       find /usr/local/share -name "latex.fmt" -print > plain@
    else
     echo -n .
     if test ! -s plain@; then
        echo -n .
        find /usr -name "latex.fmt" -print > plain@
     fi
    fi
fi   

echo "."

if test -s plain@; then
  fmtname=`
  gawk ' 
  BEGIN{}
  {  l1=index($0,"latex.fmt")
     fmtname=substr($0,1,l1-2)
     print fmtname
  }
  END{}' plain@`
else
  fmtname=`find /usr -name "web2c"`
#  if test "$fmtname" = ""; then
#     fmtname=`find /usr -name "ini"`
#  fi
fi
#echo "directory of chitex*.fmt: "  $fmtname " found"

echo "yes" > tmpf@

if test $fmtname != ""; then
  texmf=`
  gawk -v fmtname=$fmtname ' 
  BEGIN{}
  {
     l1=index(fmtname,"web2c")
#     fmtnameb=substr(fmtname,1,l1-1)
     texmf=substr(fmtname,1,l1-1)
#     l3=index(fmtnameb,"texmf")
#     if (l3 == 0)
#        {texmf=substr(fmtname,1,l2+4)}
#     else
#        {texmf=substr(fmtname,1,l2+l3+8)}
     print texmf
  }
  END{}' tmpf@`
fi
echo "directory of 'texmf': " $texmf " found"


# ****************
inkeyno="0"
inkeytmp="0"
while test "$inkeyno" = "0"
do
clear
    echo " ";echo " "
    echo " "
    echo "       ҧΧA s teTeX ؿ(@W٬ texmf, Ulؿ "
    echo "        tex, web2c, fonts ):  "
    echo "                  $texmf  "
    echo " "
    echo "       T{Wz줧ؿ, J 'y', _hJ 'n' HKsJ"
    echo "         Ctrl C { (YDťؿݭsJ)" 
    echo " " 
    echo -n "       J 'y' T{Wz, J 'n' HKsJ  ,,,: "
    read inkey

  if test "$inkey" != "y" -a "$inkey" != "n"; then
        inkeyno="0"
        inkeytmp="1"
  else
        inkeytmp="0"   
        if test "$inkey" = "n"; then
           echo " "; echo " "
           echo " "
           echo    "       s teTeX ؿ "
           echo -n "       :  "
           read texmftmp
           if test "$texmftmp" != "";then
              texmf=$texmftmp 
           fi
       else
         inkeyno=1
       fi
        inkeyno="1"
  fi

done

rm -f tmpfmark@

inkeyno="0"
while test "$inkeyno" = "0"
do
    clear
    echo " "; echo " "
#    echo "        1. MҦrΤ tfm "
#    echo " "
#    echo "        2. MҦrΤ pk "
#    echo "  "
    echo "        1. ܩҭnM tfm ɤ r" 
    echo " "
    echo "        2. ܩҭnM pk ɤ r" 
    echo " "
    echo "        q. 楻{"
    echo " "

    echo -n "       J '1', '2'  'q' : " 
    read inkey
#    if test "$inkey" = "1" -o "$inkey" = "2" -o "$inkey" = "q"; then 
#         inkeyno="1"
#         gawk '
#         BEGIN{}
#         {percent=index($0,"%")
#          if (percent > 1)
#             {inline=substr($0,1,percent-1)
#              chfnt=index(inline, "\\choosechfontadv{")
#              if (chfnt > 0)
#                {rinline=substr(inline,chfnt+17,length(inline)-chfnt-16)       
#                 lbrace=index(rinline,"{")
#                 rbrace=index(rinline,"}")
#                 if (rbrace > lbrace)
#                    {print substr(rinline,lbarce+1,rbrace-1)}
#                }
#             }
#         }
#         END{}' $texmf/tex/chinese/chitex.fdf | \
#         gawk -v texmf=$texmf -v inkey=$inkey '
#         BEGIN{}
#         {pkname=$0
#          if (inkey == "1")
#             {pktfm="tfm"
#              pktfmname="*.tfm"}
#          else
#             {pktfm="pk"
#              pktfmname="*.*pk"}
##          pkfonts=texmf "/fonts/" pktfm "/chinese/" pkname "/*"
##          system("/bin/rm -f " pkfonts)
#          system("find " texmf "/fonts/" pktfm " -name " pkname pktfmname " > tmppka@; echo \"yes\" > tmpfmarka@")            
#          system("find /var -name " pkname pktfmname " > tmppk@; echo \"yes\" > tmpfmark@")
#         }
#         END{}' -
#     
#         while test ! -s tmpfmarka@
#         do
#               echo -n "."
#         done
#         gawk '
#         BEGIN{}
#         {rmfile=$0
#          system("/bin/rm -f " rmfile)
#         }
#         END{}' tmppka@  
#         while test ! -s tmpfmark@
#         do
#               echo -n "."
#         done
#         gawk '
#         BEGIN{}
#         {rmfile=$0
#          system("/bin/rm -f " rmfile)
#         }
#         END{}' tmppk@  
#    fi

  if test "$inkey" = "q"; then
      inkeyno="1"
  else
    if test "$inkey" = "1" -o "$inkey" = "2"; then
#         inkeyno="1"
         clear
         echo " "; echo " "
       if test "$inkey" = "1"; then 
         echo "     JAnM tfm ɤ rΦW, Ҧp"
         echo "     nM tfm ɬ 'ntukai*.tfm' hJ 'ntukai'"
         echo "     (b $texmf/fonts/chinese/ttf ҹ TrueType"
         echo "      rɬ ntukai.ttf) "
         echo " "
         echo -n "     nM tfm ɤ rΦW: "
       else
         echo "     JAnM pk ɤ rΦW, Ҧp"
         echo "     nM pk ɬ 'ntukai*.*pk' hJ 'ntukai'"
         echo "     (b $texmf/fonts/chinese/ttf ҹ TrueType r"
         echo "       ntukai.ttf) "
         echo " "
         echo -n "     nM pk ɤ rΦW: "
       fi

         read pkfont
         if test "$inkey" = "1"; then
            pktfm="tfm"
            pktfmname="*.tfm"
         else 
            pktfm="pk"
            pktfmname="*.*pk"
         fi 
  
         /bin/rm -f $texmf/fonts/$pktfm/chinese/$pkfont/*
         /bin/rm -f tmpfmarka@
         /bin/rm -f tmpfmark@
         echo "yes" > tmp@
         
         gawk -v texmf=$texmf -v pkname=$pkfont -v pktfm=$pktfm -v pktfmname=$pktfmname '
         BEGIN{}
         {print  pkname pktfmname
          abstra="find " texmf "/fonts/" pktfm " -follow -name \47" pkname pktfmname \
            "\47 > tmppka@"
          print abstra > "finda@"
          abstrb="find /var -follow -name " pkname pktfmname " > tmppk@"
          print abstrb > "findb@"
         }
         END{}' tmp@

         chmod +x finda@; finda@
         chmod +x findb@; findb@

         gawk '
         BEGIN{}
         {rmfile=$0
          system("/bin/rm -f " rmfile)
         }
         END{}' tmppka@  

         gawk '
         BEGIN{}
         {rmfile=$0
          system("/bin/rm -f " rmfile)
         }
         END{}' tmppk@  
    fi
  fi
done                 
  
/bin/rm -f *@  *@*
exit

  