#!/bin/sh
#
#  This is a part of ChiTeX.
#  This script is created by 
#    Hung-Yih Chen ()  (yih@math.ncu.edu.tw)
#               (Dept. of Mathematics, National Central Univ.)
#           Last updated  April. 19, 2000
# 
#                All rights preserved   
#

 if test -s tmpfile@; then
    rm -f tmpfile@
 fi

 
gawk -v docu=$DOCU -v omega=$OMEGA -v utf8=$UTF8 '
   function instr(bgpos,str,findstr,  objpos){
      if (bgpos > 1)
         {LLline=substr(str,1,bgpos-1)
          RRline=substr(str,bgpos,length(str)-bgpos+1)
         }
      else
         {LLline="";RRline=str}

      objpos=index(RRline,findstr)
      if (objpos>0)
        {if (LLline != "")
           {objpos=objpos+length(LLline)}
        }   
      return objpos
   }

   function instrrev(strr,findstrr,  findpos,findpostmp){
      findpos=-1
      while (findpos !=0 )
       {if (findpos < 0){findpos=0}
        findpos=instr(findpos+1,strr,findstrr)
        if (findpos>0){findpostmp=findpos}
       }
      return findpostmp
   }    

{inline=$0
 k=k+1
 if (k<=30)
    {if (GB==0)
        {GB=index(inline,"\\GBchinese")
         if (GB>0)
            {print "\\let\\GBchinese\\relax" > "tmpfile@"}
        }
    }

 if (docu == "latex"|| docu == "komascript")
    {if (docum == 0)
        {docum=index(inline,"\\documentclass")}
     if (docum>0 && found=="" && frbrno<2)
        {if (frbrno==0)
            {rbr=instr(docum+1,inline,"}")}
         else
            {rbr=index(inline,"}")}
            
         frbrno=frbrno+1
         if (rbr>0)
            {if (omega=="")
                {if (utf8=="")
                   {if (docu == "komascript")
                      {inline=substr(inline,1,rbr) "\\input chitexls.tex " substr(inline,rbr+1)}
                    else
                      {if (GB==0)
                         {inline=substr(inline,1,rbr) "\\input chitexl.tex " substr(inline,rbr+1)}
                       else   
                         {inline=substr(inline,1,rbr) "\\input chitexlg.tex " substr(inline,rbr+1)}
                      }   
                   }
                 else
                   {if (docu == "komascript")
                       {inline=substr(inline,1,rbr) "\\input chitexlsu.tex " substr(inline,rbr+1)}
                    else
                       {inline=substr(inline,1,rbr) "\\input chitexlu.tex " substr(inline,rbr+1)}
                   }
                }
             else
                {
                 if (GB==0)                
                     {add="\\input ochitexlu.tex\\input ochitexu.fdf \\noInputTranslation currentfile\\ocp\\Bigv=inutf8ch\\InputTranslation currentfile \\Bigv\\edverb"}
                 else
                     {add="\\input ochtexlg.tex"}   
                 inline=substr(inline,1,rbr) add substr(inline,rbr+1)
                }
             found="y"
            }
        }
    }
 else
    {if (found=="")
      {if (omega=="")
         {if (utf8=="")
             {if (GB==0)                         
                 {inline="\\input chitex.tex " inline}
              else
                 {inline="\\input chitexg.tex " inline}
             }    
          else
             {inline="\\input chitexu.tex " inline}   
         }
       else
         {
          if (GB==0)                                  
              {add="\\input ochitex.tex\\input ochitex.fdf \\noInputTranslation currentfile\\ocp\\Bigv=inbig\\InputTranslation currentfile \\Bigv"}
          else
              {add="\\input ochtexg.tex\\input ochtexg.fdf \\noInputTranslation currentfile\\ocp\\GB=ingbo\\InputTranslation currentfile \\GB"}              
          inline=add inline
         }
       found="y"
      }
    } 
    print inline > "tmpfile@"
}' $CVFNAME

#}' $FILENAME

   
#  if test -s $filename"@.bak"; then
#     mv -f $filename"@.bak" $filename
#  fi 

#   cp $FILENAME $FILENAME".bak.bak"
#   cp tmpfile@ $FILENAME
#   cp tmpfile@ $FILENAME".tmp"

   cp tmpfile@ $CVFNAME

exit
