diff options
Diffstat (limited to 'info/lshort/polish/src/iso-cp.sh')
-rw-r--r-- | info/lshort/polish/src/iso-cp.sh | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/info/lshort/polish/src/iso-cp.sh b/info/lshort/polish/src/iso-cp.sh deleted file mode 100644 index c9ef3e0e88..0000000000 --- a/info/lshort/polish/src/iso-cp.sh +++ /dev/null @@ -1,33 +0,0 @@ -#!/bin/bash -# Ten skrypt przekodowuje pliki pomiędzy iso8859-cp1250 -# Można rozpowszechniać na licencji GNU. -# -# Ten plik może się przydać do przekodowania 'Wprowadzenia' -# z ISO8859-2 na CP1250 -USAGE="Przekodowanie plików TeXowych pomiędzy ISO-8859-2 a CP1250 -Pliki winny mieć oznaczenie strony kodowej w postaci -odpowiedniego wpisu: translate-file=il2-pl lub translate-file=cp1250pl - -Sposób 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 wyst±pienie - 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 wyst±pienie - 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 |