#!/bin/sh
#


  /bin/rm -f nextrun@ ch@* HaveBg5@ HaveCJK@

  echo "yes" > tmp@
  FFname=`echo $1`

  extname=`gawk -v Fname=$FFname '
  {LLen=length(Fname)
   for (i; i<=Llen; i++)
       {dot=index(Fname,".")
        if (dot>0)
           {ddot=dot}
        else
           {break}   
       }
   if (ddot>0)
      {extname=substr(Fname,ddot+1)}    
   if (extname>0)
      {print extname}   
  } ' tmp@ `

  
  if test "$extname" = ""; then
     if test -s $1; then
         Fname=$1
     else
         Fname=$1".tex"
         if test -s $Fname; then
           :          
         else
           Fname=""
           exit 
         fi
     fi
  else
     Fname=$FFname   
  fi

  gawk '
  {inline=$0
   if (usepkg == 0)
      {usepkg=index(inline,"\\usepackage{")}
   if (usepkg==0)
      {usepkg=index(inline,"\\usepackage {")
       if (usepkg==0)
          {usepkg=index(inline,"\\usepackage  {")
           if (usepkg>0)
              {add=14}
          }
       else
          {add=13}   
      }
   else
      {add=12}  

   if (usepkg>0 && CJKutf8==0)
     {Rline=substr(inline,usepkg+add-1)
      rbr=index(Rline,"}")
      if (rbr>0)
         {inrbr=substr(Rline,1,rbr)
          CJKutf8=index(inrbr,"{CJKutf8}")
          if (CJKutf8==0)
             {CJKutf8=index(inrbr,"{CJKutf8,")}
          if (CJKutf8==0)
             {CJKutf8=index(inrbr,",CJKutf8,")}             
          if (CJKutf8==0)
             {CJKutf8=index(inrbr,",CJKutf8}")}             
          if (CJKutf8>0)
             {print "y"> "HaveCJKutf8@"}   
         }
     }
   
   if (usepkg>0 && CJK==0)
     {Rline=substr(inline,usepkg+add-1)
      rbr=index(Rline,"}")
      if (rbr>0)
         {inrbr=substr(Rline,1,rbr)
          CJK=index(inrbr,"{CJK}")
          if (CJK==0)
             {CJK=index(inrbr,"{CJK,")}
          if (CJK==0)
             {CJK=index(inrbr,",CJK,")}             
          if (CJK==0)
             {CJK=index(inrbr,",CJK}")}             
          if (CJK>0)
             {print "y"> "HaveCJK@"}   
         }
     }

   if (CJK>0)
     {if (bgCJK==0)
          {bgCJK=index(inline,"\\begin{CJK")}
      if (bgCJK==0)
         {bgCJK=index(inline,"\\begin {CJK")
          if (bgCJK==0)
            {bgCJK=index(inline,"\\begin  {CJK")
             if (bgCJK>0)
                {add=12}
            }
          else
            {add=11}   
         }
      else
        {add=10}
     }   
   
   if (bgCJK>0)
      {if (HaveBg5=="")
          {Rline=substr(inline,bgCJK+add)
           lrbr=index(Rline,"}{")
           if (lrbr>0)
              {RRline=substr(Rline,lrbr+1)
               rbr=index(RRline,"}")
               if (rbr>0)
                  {inrbr=substr(RRline,2,rbr-2)
                   if (inrbr=="Bg5")
                      {HaveBg5="y"
                       print "y" > "HaveBg5@"
                      }  
                  }
              }           
          } 
      }   
         
  } ' $Fname


  if test -s HaveCJKutf8@; then
     HaveCJK="y"
     export HaveCJK
  fi

  if test -s HaveCJK@; then
     HaveCJK="y"
     export HaveCJK
  fi
#
  if test -s HaveBg5@; then
     HaveBg5="y"
     export HaveBg5
  fi

exit
