#! /usr/bin/gawk -f 
# Last edited on 2003-10-12 15:24:14 by stolfi

# Converts ISO Latin-1 accented letters to plain ASCII using the
# "TT" accent convention (accent before letter):

// {
  gsub(/\300/,   "`A");         
  gsub(/\301/,   "'A");         
  gsub(/\302/,   "^A");        
  gsub(/\303/,   "~A");         
  gsub(/\304/,   "\"A");        
  gsub(/\307/,   ",C");        
  gsub(/\310/,   "`E");         
  gsub(/\311/,   "'E");         
  gsub(/\312/,   "^E");        
  gsub(/\313/,   "\"E");        
  gsub(/\314/,   "`I");         
  gsub(/\315/,   "'I");         
  gsub(/\316/,   "^I");        
  gsub(/\317/,   "\"I");        
  gsub(/\321/,   "~N");         
  gsub(/\322/,   "`O");         
  gsub(/\323/,   "'O");         
  gsub(/\324/,   "^O");        
  gsub(/\325/,   "~O");         
  gsub(/\326/,   "\"O");        
  gsub(/\331/,   "`U");         
  gsub(/\332/,   "'U");         
  gsub(/\333/,   "^U");        
  gsub(/\334/,   "\"U");        
  # gsub(/\335/,   "'Y");
  gsub(/\340/,   "`a");         
  gsub(/\341/,   "'a");         
  gsub(/\342/,   "^a");        
  gsub(/\343/,   "~a");         
  gsub(/\344/,   "\"a");        
  gsub(/\347/,   ",c");       
  gsub(/\350/,   "`e");         
  gsub(/\351/,   "'e");         
  gsub(/\352/,   "^e");        
  gsub(/\353/,   "\"e");        
  gsub(/\354/,   "`i");         
  gsub(/\355/,   "'i");         
  gsub(/\356/,   "^i");        
  gsub(/\357/,   "\"i");  
  gsub(/\361/,   "~n");         
  gsub(/\362/,   "`o");         
  gsub(/\363/,   "'o");         
  gsub(/\364/,   "^o");        
  gsub(/\365/,   "~o");         
  gsub(/\366/,   "\"o");        
  gsub(/\371/,   "`u");         
  gsub(/\372/,   "'u");         
  gsub(/\373/,   "^u");        
  gsub(/\374/,   "\"u");       
  # gsub(/\375/,   "'y");           
  # gsub(/\377/,   "\"y");
  gsub(/ª/,   "a.");       
  gsub(/º/,   "o.");       
  print;
}