# ConTeXt uc converter / beta version / 2-12-1999 / don't redistribute 

$filename = $ARGV[0] ; 
$recoded  = 0 ; 

sub unirecoded
  { print chr($_[1]) ; ++$recoded ; return chr($_[0]).chr($_[1]) } 

if ((open(INP,"$filename.tex"))&&(open(OUT,">$filename.tmp")))
  { print "processing file $filename.tex " ;
    while (<INP>) 
      { s/\\uc\{(\d*)\}\{(\d*)\}/unirecoded($1,$2)/goe ; print OUT $_ } 
    close(INP) ; 
    close(OUT) ; 
    unlink "$filename.tec" ; 
    rename "$filename.tex", "$filename.tec" ;
    rename "$filename.tmp", "$filename.tex" ; 
    if ($recoded) 
      { print " - $recoded glyphs recoded - original saved as $filename.tec\n" } 
    else
      { print "- no glyphs recoded\n" } }
else 
  { print "invalid filename\n" }