#! /usr/bin/gawk -f
# Last edited on 2003-10-12 12:35:09 by stolfi

# Filter that converts ISO Latin-1 to 
# some standard(?) encoding used in TTF fonts

/^[ \177]*$/ { print; next; }
//{
  # ISO Latin-1 symbols without TTF equivalent
  # Mapped randomly to undefined TTF positions
  #gsub(/[\240]/, "\240", $0); # non-breaking space -> dagger
  gsub(/[¦]/, "\255", $0); # 
  gsub(/[­]/, "\260", $0); # soft hyphen
  gsub(/[¯]/, "\262", $0); # macron accent
  gsub(/[²]/, "\263", $0); #
  gsub(/[³]/, "\266", $0); #
  gsub(/[¹]/, "\267", $0); #
  gsub(/[¼]/, "\270", $0); #
  gsub(/[½]/, "\271", $0); #
  gsub(/[¾]/, "\272", $0); #
  gsub(/[Ð]/, "\275", $0); #
  gsub(/[×]/, "\303", $0); #
  gsub(/[Ý]/, "\305", $0); #
  gsub(/[Þ]/, "\306", $0); #
  gsub(/[ð]/, "\312", $0); #
  gsub(/[þ]/, "\327", $0); #
  gsub(/[ý]/, "\332", $0); #

  gsub(/[Ä]/, "\200", $0);
  gsub(/[Å]/, "\201", $0);
  gsub(/[Ç]/, "\202", $0);
  gsub(/[É]/, "\203", $0);
  gsub(/[Ñ]/, "\204", $0);
  gsub(/[Ö]/, "\205", $0);
  gsub(/[Ü]/, "\206", $0);
  gsub(/[á]/, "\207", $0);

  gsub(/[à]/, "\210", $0);
  gsub(/[â]/, "\211", $0);
  gsub(/[ä]/, "\212", $0);
  gsub(/[ã]/, "\213", $0);
  gsub(/[å]/, "\214", $0);
  gsub(/[ç]/, "\215", $0);
  gsub(/[é]/, "\216", $0);
  gsub(/[è]/, "\217", $0);

  gsub(/[ê]/, "\220", $0);
  gsub(/[ë]/, "\221", $0);
  gsub(/[í]/, "\222", $0);
  gsub(/[ì]/, "\223", $0);
  gsub(/[î]/, "\224", $0);
  gsub(/[ï]/, "\225", $0);
  gsub(/[ñ]/, "\226", $0);
  gsub(/[ó]/, "\227", $0);

  gsub(/[ò]/, "\230", $0);
  gsub(/[ô]/, "\231", $0);
  gsub(/[ö]/, "\232", $0);
  gsub(/[õ]/, "\233", $0);
  gsub(/[ú]/, "\234", $0);
  gsub(/[ù]/, "\235", $0);
  gsub(/[û]/, "\236", $0);
  gsub(/[ü]/, "\237", $0);

  #gsub(/[]/, "\240", $0);  dagger
  gsub(/[°]/, "\241", $0);
  gsub(/[¢]/, "\242", $0);
  gsub(/[£]/, "\243", $0);
  gsub(/[§]/, "\244", $0);
  #gsub(/[]/, "\245", $0);  bullet
  gsub(/[¶]/, "\246", $0);
  gsub(/[ß]/, "\247", $0);

  gsub(/[®]/, "\250", $0);
  gsub(/[©]/, "\251", $0);
  #gsub(/[]/, "\252", $0);  TM
  gsub(/[´]/, "\253", $0);  acute
  gsub(/[¨]/, "\254", $0);  
  #gsub(/[]/, "\255", $0);  undef
  gsub(/[Æ]/, "\256", $0);  
  gsub(/[Ø]/, "\257", $0);  
  
  #gsub(/[]/, "\260", $0);  undef
  gsub(/[±]/, "\261", $0);
  #gsub(/[]/, "\262", $0);  undef
  #gsub(/[]/, "\263", $0);  undef
  gsub(/[¥]/, "\264", $0);
  gsub(/[µ]/, "\265", $0);
  #gsub(/[]/, "\266", $0);  undef
  #gsub(/[]/, "\267", $0);  undef

  #gsub(/[]/, "\270", $0);  undef
  #gsub(/[]/, "\271", $0);  undef
  #gsub(/[]/, "\272", $0);  undef
  gsub(/[ª]/, "\273", $0);
  gsub(/[º]/, "\274", $0);
  #gsub(/[]/, "\275", $0);  undef
  gsub(/[æ]/, "\276", $0);
  gsub(/[ø]/, "\277", $0);
  
  gsub(/[¿]/, "\300", $0);
  gsub(/[¡]/, "\301", $0);
  gsub(/[¬]/, "\302", $0);
  #gsub(/[]/, "\303", $0);  undef
  #gsub(/[]/, "\304", $0);  math-f
  #gsub(/[]/, "\305", $0);  undef
  #gsub(/[]/, "\306", $0);  undef
  gsub(/[«]/, "\307", $0);
  
  gsub(/[»]/, "\310", $0);
  #gsub(/[]/, "\311", $0);  ...
  #gsub(/[]/, "\312", $0);  undef
  gsub(/[À]/, "\313", $0); 
  gsub(/[Ã]/, "\314", $0); 
  gsub(/[Õ]/, "\315", $0); 
  #gsub(/[]/, "\316", $0);  OE-lig
  #gsub(/[]/, "\317", $0);  oe-lig
  
  #gsub(/[]/, "\320", $0);  en-dash
  #gsub(/[]/, "\321", $0);  em-dash
  #gsub(/[]/, "\322", $0);  left dbl quote
  #gsub(/[]/, "\323", $0);  right dbl quote
  #gsub(/[]/, "\324", $0);  left sgl quote
  #gsub(/[]/, "\325", $0);  right sgl quote
  gsub(/[÷]/, "\326", $0);
  #gsub(/[]/, "\327", $0);  undef
  
  gsub(/[\377]/, "\330", $0); umlaut-y
  #gsub(/[]/, "\331", $0);  umlaut-Y
  #gsub(/[]/, "\332", $0);  undef
  gsub(/[¤]/, "\333", $0);
  #gsub(/[]/, "\334", $0);  left half guillemot
  #gsub(/[]/, "\335", $0);  right half guillemot
  #gsub(/[]/, "\336", $0);  undef
  #gsub(/[]/, "\337", $0);  undef
  
  #gsub(/[]/, "\340", $0);  double dagger
  gsub(/[·]/, "\341", $0);
  #gsub(/[]/, "\342", $0);  lower right sgl quote
  #gsub(/[]/, "\343", $0);  lower right dbl quote
  #gsub(/[]/, "\344", $0);  per-thousand
  gsub(/[Â]/, "\345", $0);
  gsub(/[Ê]/, "\346", $0);
  gsub(/[Á]/, "\347", $0);
  
  gsub(/[Ë]/, "\350", $0);
  gsub(/[È]/, "\351", $0);
  gsub(/[Í]/, "\352", $0);
  gsub(/[Î]/, "\353", $0);
  gsub(/[Ï]/, "\354", $0);
  gsub(/[Ì]/, "\355", $0);
  gsub(/[Ó]/, "\356", $0);
  gsub(/[Ô]/, "\357", $0);
  
  #gsub(/[]/, "\360", $0); undef
  gsub(/[Ò]/, "\361", $0);
  gsub(/[Ú]/, "\362", $0);
  gsub(/[Û]/, "\363", $0);
  gsub(/[Ù]/, "\364", $0);
  #gsub(/[]/, "\365", $0); low half vert
  #gsub(/[]/, "\366", $0); circumflex accent
  #gsub(/[]/, "\367", $0); tilde accent
  
  #gsub(/[]/, "\370", $0); undef
  #gsub(/[]/, "\371", $0); undef
  #gsub(/[]/, "\372", $0); undef
  #gsub(/[]/, "\373", $0); ring accent
  gsub(/[¸]/, "\374", $0); 
  #gsub(/[]/, "\375", $0); undef
  #gsub(/[]/, "\376", $0); undef
  #gsub(/[]/, "\377", $0); caron accent
  
  print;
}