#!/bin/bash
# (C) Antonis Tsolomitis
# University of the Aegean
# Department of Mathematics
# 83200 Karlovassi, Samos
# Greece
#
# simply run babel7toUTF8 yourfilename
# to get utf8-youfilename converted to proper Unicode Greek
#
mkdir -p ~/tmp
#get a random number
tmpfile=$RANDOM-$1
#check if iconv is in PATH
type iconv >/dev/null 2>/dev/null
if [ $? = 1 ]; then
    echo " "
    echo "iconv not found in PATH. Install iconv first."
    echo " "
    exit
else
    type sed >/dev/null 2>/dev/null
    if [ $? = 1 ]; then
	echo " "
	echo "sed not found in PATH. Install sed first."
	echo " "
	exit
	else
    iconv -f ISO8859-7 -t UTF-8 $1 > ~/tmp/0-$tmpfile
    fi
    fi
sed "
s/>\'/῎/g
s/>\`/῍/g
s/<\'/῞/g
s/<\`/῝/g
s/>~/῏/g
s/<~/῟/g
s/\'>/῎/g
s/\`>/῍/g
s/\'</῞/g
s/\`</῝/g
s/~>/῏/g
s/~</῟/g
" ~/tmp/0-$tmpfile > ~/tmp/1-$tmpfile

sed "
s/\'α/ά/g
s/\`α/ὰ/g
s/>α/ἀ/g
s/>ά/ἄ/g
s/<ά/ἅ/g
s/<α/ἁ/g
s/῎α/ἄ/g
s/῍α/ἂ/g
s/῝α/ἃ/g
s/῞α/ἅ/g
s/῏α/ἆ/g
s/῟α/ἇ/g
s/~α/ᾶ/g
s/\'ε/έ/g
s/\`ε/ὲ/g
s/>ε/ἐ/g
s/<ε/ἑ/g
s/>έ/ἔ/g
s/<έ/ἕ/g
s/῍ε/ἒ/g
s/῝ε/ἓ/g
s/῎ε/ἔ/g
s/῞ε/ἕ/g
s/\'η/ή/g
s/\`η/ὴ/g
s/>η/ἠ/g
s/<η/ἡ/g
s/>ή/ἤ/g
s/<ή/ἥ/g
s/῍η/ἢ/g
s/῝η/ἣ/g
s/῎η/ἤ/g
s/῞η/ἥ/g
s/῏η/ἦ/g
s/῟η/ἧ/g
s/~η/ῆ/g
s/\'ι/ί/g
s/\`ι/ὶ/g
s/>ι/ἰ/g
s/<ι/ἱ/g
s/>ί/ἴ/g
s/<ί/ἵ/g
s/῍ι/ἲ/g
s/῝ι/ἳ/g
s/῎ι/ἴ/g
s/῞ι/ἵ/g
s/῏ι/ἶ/g
s/῟ι/ἷ/g
s/~ι/ῖ/g
s/῁ι/ῒ/g
s/῭ι/ΐ/g
s/΅ι/ῗ/g
s/\"ι/ϊ/g
s/\'ο/ό/g
s/\`ο/ὸ/g
s/>ό/ὄ/g
s/<ό/ὅ/g
s/>ο/ὀ/g
s/<ο/ὁ/g
s/῍ο/ὂ/g
s/῝ο/ὃ/g
s/῎ο/ὄ/g
s/῞ο/ὅ/g
s/\'υ/ύ/g
s/\`υ/ὺ/g
s/>υ/ὐ/g
s/<υ/ὑ/g
s/>ύ/ὔ/g
s/<ύ/ὕ/g
s/῍υ/ὒ/g
s/῝υ/ὓ/g
s/῎υ/ὔ/g
s/῞υ/ὕ/g
s/῏υ/ὖ/g
s/῟υ/ὗ/g
s/~υ/ῦ/g
s/῁υ/ῧ/g
s/῭υ/ῢ/g
s/΅υ/ΰ/g
s/\"υ/ϋ/g
s/\'ω/ώ/g
s/\`ω/ὼ/g
s/>ώ/ὤ/g
s/<ώ/ὥ/g
s/>ω/ὠ/g
s/<ω/ὡ/g
s/῍ω/ὢ/g
s/῝ω/ὣ/g
s/῎ω/ὤ/g
s/῞ω/ὥ/g
s/῏ω/ὦ/g
s/῟ω/ὧ/g
s/~ω/ῶ/g
s/>ρ/ῤ/g
s/<ρ/ῥ/g
s/\'Α/Ά/g
s/\`Α/Ὰ/g
s/>Α/Ἀ/g
s/>Ά/Ἄ/g
s/<Ά/Ἅ/g
s/<Α/Ἁ/g
s/῎Α/Ἄ/g
s/῍Α/Ἂ/g
s/῝Α/Ἃ/g
s/῞Α/Ἅ/g
s/῏Α/Ἆ/g
s/῟Α/Ἇ/g
s/\'Ε/Έ/g
s/\`Ε/Ὲ/g
s/>Ε/Ἐ/g
s/<Ε/Ἑ/g
s/>Έ/Ἔ/g
s/<Έ/Ἕ/g
s/῍Ε/Ἒ/g
s/῝Ε/Ἓ/g
s/῎Ε/Ἔ/g
s/῞Ε/Ἕ/g
s/\'Η/Ή/g
s/\`Η/Ὴ/g
s/>Η/Ἠ/g
s/<Η/Ἡ/g
s/>Ή/Ἤ/g
s/<Ή/Ἥ/g
s/῍Η/Ἢ/g
s/῝Η/Ἣ/g
s/῎Η/Ἤ/g
s/῞Η/Ἥ/g
s/῏Η/Ἦ/g
s/῟Η/Ἧ/g
s/\'Ι/Ί/g
s/\`Ι/Ὶ/g
s/>Ι/Ἰ/g
s/<Ι/Ἱ/g
s/>Ί/Ἴ/g
s/<Ί/Ἵ/g
s/῍Ι/Ἲ/g
s/῝Ι/Ἳ/g
s/῎Ι/Ἴ/g
s/῞Ι/Ἵ/g
s/῏Ι/Ἶ/g
s/῟Ι/Ἷ/g
s/\"Ι/Ϊ/g
s/\'Ο/Ό/g
s/\`Ο/Ὸ/g
s/>Ό/Ὄ/g
s/<Ό/Ὅ/g
s/>Ο/Ὀ/g
s/<Ο/Ὁ/g
s/῍Ο/Ὂ/g
s/῝Ο/Ὃ/g
s/῎Ο/Ὄ/g
s/῞Ο/Ὅ/g
s/\'Υ/Ύ/g
s/\`Υ/Ὺ/g
s/<Υ/Ὑ/g
s/<Ύ/Ὕ/g
s/῝Υ/Ὓ/g
s/῞Υ/Ὕ/g
s/῟Υ/Ὗ/g
s/\"Υ/Ϋ/g
s/\'Ω/Ώ/g
s/\`Ω/Ὼ/g
s/>Ώ/Ὤ/g
s/<Ώ/Ὥ/g
s/>Ω/Ὠ/g
s/<Ω/Ὡ/g
s/῍Ω/Ὢ/g
s/῝Ω/Ὣ/g
s/῎Ω/Ὤ/g
s/῞Ω/Ὥ/g
s/῏Ω/Ὦ/g
s/῟Ω/Ὧ/g
" ~/tmp/1-$tmpfile > ~/tmp/2-$tmpfile

sed "
s/α|/ᾳ/g
s/ά|/ᾴ/g
s/ὰ|/ᾲ/g
s/ἀ|/ᾀ/g
s/ἁ|/ᾁ/g
s/ἄ|/ᾄ/g
s/ἂ|/ᾂ/g
s/ἃ|/ᾃ/g
s/ἅ|/ᾅ/g
s/ἆ|/ᾆ/g
s/ἇ|/ᾇ/g
s/ᾶ|/ᾷ/g
s/η|/ῃ/g
s/ή|/ῄ/g
s/ὴ|/ῂ/g
s/>η|/ᾐ/g
s/<η|/ᾑ/g
s/῍η|/ᾒ/g
s/῝η|/ᾓ/g
s/῎η|/ᾔ/g
s/῞η|/ᾕ/g
s/῏η|/ᾖ/g
s/῟η|/ᾗ/g
s/~η|/ῇ/g
s/ω|/ῳ/g
s/ώ|/ῴ/g
s/ὼ|/ῲ/g
s/ὠ|/ᾠ/g
s/ὡ|/ᾡ/g
s/ὢ|/ᾢ/g
s/ὣ|/ᾣ/g
s/ὤ|/ᾤ/g
s/ὥ|/ᾥ/g
s/ὦ|/ᾦ/g
s/ὧ|/ᾧ/g
s/ῶ|/ῷ/g
s/Α|/ᾼ/g
s/Ἀ|/ᾈ/g
s/Ἁ|/ᾉ/g
s/Ἄ|/ᾊ/g
s/Ἂ|/ᾋ/g
s/Ἃ|/ᾌ/g
s/Ἅ|/ᾍ/g
s/Ἆ|/ᾎ/g
s/Ἇ|/ᾏ/g
s/Η|/ῌ/g
s/>Η|/ᾘ/g
s/<Η|/ᾙ/g
s/῍Η|/ᾚ/g
s/῝Η|/ᾛ/g
s/῎Η|/ᾜ/g
s/῞Η|/ᾝ/g
s/῏Η|/ᾞ/g
s/῟Η|/ᾟ/g
s/Ω|/ῼ/g
s/Ὠ|/ᾨ/g
s/Ὡ|/ᾩ/g
s/Ὢ|/ᾪ/g
s/Ὣ|/ᾫ/g
s/Ὤ|/ᾬ/g
s/Ὥ|/ᾭ/g
s/Ὦ|/ᾮ/g
s/Ὧ|/ᾯ/g
s/<Ρ/Ῥ/g
" ~/tmp/2-$tmpfile > utf8-$1
/bin/rm -f ~/tmp/?-$tmpfile

