#!/bin/sh 
  
for i in *.tex 
do 
    echo $i pasat a $1 
    case $1 in 
        7bits) cat $i | sed "s/à/\\\\\`{a}/g; \ 
                             s/á/\\\\\'{a}/g; \ 
                             s/è/\\\\\`{e}/g; \ 
                             s/é/\\\\\'{e}/g; \ 
                             s/í/\\\\\'{\\\i}/g; \ 
                             s/ò/\\\\\`{o}/g; \ 
                             s/ó/\\\\\'{o}/g; \ 
                             s/ú/\\\\\'{u}/g" > $i.$1 
               ;; 
  
        8bits) cat $i | sed "s/\\\\\`{a}/à/g; \ 
                             s/\\\\'{a}/á/g; \ 
                             s/\\\\\`{e}/è/g; \ 
                             s/\\\\'{e}/é/g; \ 
                             s/\\\\'{\\\i}/í/g; \ 
                             s/\\\\\`{o}/ò/g; \ 
                             s/\\\\'{o}/ó/g; \ 
                             s/\\\\'{u}/ú/g" > $i.$1 
               ;; 
     esac 
done 

 
#!/bin/sh 
  
cat $1 | awk '{ accents="òóàáèéí"; 
                cars["ò"]="\\`{o}"; 
                cars["ó"]=sprintf("\\%c{o}",39); 
                cars["à"]="\\`{a}"; 
                cars["á"]=sprintf("\\%c{a}",39); 
                cars["è"]="\\`{e}"; 
                cars["é"]=sprintf("\\%c{e}",39); 
                cars["í"]=sprintf("\\%c{\i}",39); 
  
                i = 1; 
                while(i<=length()) { 
                      c = substr($0,i,1); 
                      for(ci=0;ci<=length(accents);ci++) { 
                          if(c==substr(accents,ci,1)) { 
                             printf("%s",cars[substr(accents,ci,1)]); 
                             break; 
                          } 
                      } 
                      if(c!=substr(accents,ci,1)) printf("%c",c); 
                      i++; 
                 } printf("\n"); 
               }' > $2