summaryrefslogtreecommitdiff
path: root/info/lshort/polish/src/iso-cp.sh
blob: c9ef3e0e8849576f13ff359badb9404a68625f1d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
#!/bin/bash
# Ten skrypt przekodowuje pliki pomidzy iso8859-cp1250
# Mona rozpowszechnia na licencji GNU. 
#
# Ten plik moe si przyda do przekodowania 'Wprowadzenia'
# z ISO8859-2 na CP1250
USAGE="Przekodowanie plikw TeXowych pomidzy ISO-8859-2 a CP1250
Pliki winny mie oznaczenie strony kodowej w postaci 
odpowiedniego wpisu: translate-file=il2-pl lub translate-file=cp1250pl

Sposb wykorzystania: $0 pliki... "

if test $# = 0 ; then echo "$USAGE" ; fi

for i in $*;
do  perl -i.bak -e 'undef $/; $_ = <>;
      if (/translate-file=il2-pl/) { 
        print STDERR "Przekodowanie iso8859 -> cp1250\n";
        # zmienia tylko pierwsze wystpienie
        s/translate-file=il2-pl/translate-file=cp1250pl/ ;
        tr/ʳӦ󶼿/ʳӌ󜟿/ ;
        s/\n/\r\n/gm; # unix2dos
      }
      elsif (/translate-file=cp1250pl/) { 
        print STDERR "Przekodowanie cp1250 -> iso8859\n";
        # zmienia tylko pierwsze wystpienie
        s/translate-file=cp1250pl/translate-file=il2-pl/ ;
        tr/ʳӌ󜟿/ʳӦ󶼿/ ;
        s/\r//g; # dos2unix
      }
      else { print STDERR "Nieustalona strona kodowa *** nic nie robi\n"; }
      print "$_"; ' $i;
done