#!/usr/bin/perl
# uni2iso.pl -- Version 0.01 98.02.22 02:58
# Converts UTF-8 to ISO-8859-7
# Encodings: ftp://ftp.unicode.org/Public/MAPPINGS/ISO8859/8859-7.TXT
# Algorithm: http://www.talisman.org/utf8.html
# (c) 1998 Hellenic Resources Institute, Inc.

while(<>) {

s/\xE2\x40\x55/\xAF/g;	#	HORIZONTAL BAR
s/\xC2\xA0/\xA0/g;	#	NO-BREAK SPACE
s/\xC2\xA3/\xA3/g;	#	POUND SIGN
s/\xC2\xA6/\xA6/g;	#	BROKEN BAR
s/\xC2\xA7/\xA7/g;	#	SECTION SIGN
s/\xC2\xA8/\xA8/g;	#	DIAERESIS
s/\xC2\xA9/\xA9/g;	#	COPYRIGHT SIGN
s/\xC2\xAB/\xAB/g;	#	LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
s/\xC2\xAC/\xAC/g;	#	NOT SIGN
s/\xC2\xAD/\xAD/g;	#	SOFT HYPHEN
s/\xC2\xB0/\xB0/g;	#	DEGREE SIGN
s/\xC2\xB1/\xB1/g;	#	PLUS-MINUS SIGN
s/\xC2\xB2/\xB2/g;	#	SUPERSCRIPT TWO
s/\xC2\xB3/\xB3/g;	#	SUPERSCRIPT THREE
s/\xC2\xB7/\xB7/g;	#	MIDDLE DOT
s/\xC2\xBB/\xBB/g;	#	RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
s/\xC2\xBD/\xBD/g;	#	VULGAR FRACTION ONE HALF
s/\xCA\xBC/\xA2/g;	#	MODIFIER LETTER APOSTROPHE
s/\xCA\xBD/\xA1/g;	#	MODIFIER LETTER REVERSED COMMA
s/\xCE\x84/\xB4/g;	#	GREEK TONOS
s/\xCE\x85/\xB5/g;	#	GREEK DIALYTIKA TONOS
s/\xCE\x86/\xB6/g;	#	GREEK CAPITAL LETTER ALPHA WITH TONOS
s/\xCE\x88/\xB8/g;	#	GREEK CAPITAL LETTER EPSILON WITH TONOS
s/\xCE\x89/\xB9/g;	#	GREEK CAPITAL LETTER ETA WITH TONOS
s/\xCE\x8A/\xBA/g;	#	GREEK CAPITAL LETTER IOTA WITH TONOS
s/\xCE\x8C/\xBC/g;	#	GREEK CAPITAL LETTER OMICRON WITH TONOS
s/\xCE\x8E/\xBE/g;	#	GREEK CAPITAL LETTER UPSILON WITH TONOS
s/\xCE\x8F/\xBF/g;	#	GREEK CAPITAL LETTER OMEGA WITH TONOS
s/\xCE\x90/\xC0/g;	#	GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS
s/\xCE\x91/\xC1/g;	#	GREEK CAPITAL LETTER ALPHA
s/\xCE\x93/\xC3/g;	#	GREEK CAPITAL LETTER GAMMA
s/\xCE\x94/\xC4/g;	#	GREEK CAPITAL LETTER DELTA
s/\xCE\x95/\xC5/g;	#	GREEK CAPITAL LETTER EPSILON
s/\xCE\x96/\xC6/g;	#	GREEK CAPITAL LETTER ZETA
s/\xCE\x97/\xC7/g;	#	GREEK CAPITAL LETTER ETA
s/\xCE\x98/\xC8/g;	#	GREEK CAPITAL LETTER THETA
s/\xCE\x99/\xC9/g;	#	GREEK CAPITAL LETTER IOTA
s/\xCE\x9B/\xCB/g;	#	GREEK CAPITAL LETTER LAMDA
s/\xCE\x9C/\xCC/g;	#	GREEK CAPITAL LETTER MU
s/\xCE\x9D/\xCD/g;	#	GREEK CAPITAL LETTER NU
s/\xCE\x9E/\xCE/g;	#	GREEK CAPITAL LETTER XI
s/\xCE\xA0/\xD0/g;	#	GREEK CAPITAL LETTER PI
s/\xCE\xA1/\xD1/g;	#	GREEK CAPITAL LETTER RHO
s/\xCE\xA3/\xD3/g;	#	GREEK CAPITAL LETTER SIGMA
s/\xCE\xA4/\xD4/g;	#	GREEK CAPITAL LETTER TAU
s/\xCE\xA5/\xD5/g;	#	GREEK CAPITAL LETTER UPSILON
s/\xCE\xA6/\xD6/g;	#	GREEK CAPITAL LETTER PHI
s/\xCE\xA7/\xD7/g;	#	GREEK CAPITAL LETTER CHI
s/\xCE\xA8/\xD8/g;	#	GREEK CAPITAL LETTER PSI
s/\xCE\xA9/\xD9/g;	#	GREEK CAPITAL LETTER OMEGA
s/\xCE\xAA/\xDA/g;	#	GREEK CAPITAL LETTER IOTA WITH DIALYTIKA
s/\xCE\xAB/\xDB/g;	#	GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA
s/\xCE\xAC/\xDC/g;	#	GREEK SMALL LETTER ALPHA WITH TONOS
s/\xCE\xAD/\xDD/g;	#	GREEK SMALL LETTER EPSILON WITH TONOS
s/\xCE\xAE/\xDE/g;	#	GREEK SMALL LETTER ETA WITH TONOS
s/\xCE\xAF/\xDF/g;	#	GREEK SMALL LETTER IOTA WITH TONOS
s/\xCE\xB0/\xE0/g;	#	GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS
s/\xCE\xB1/\xE1/g;	#	GREEK SMALL LETTER ALPHA
s/\xCE\xB2/\xE2/g;	#	GREEK SMALL LETTER BETA
s/\xCE\xB3/\xE3/g;	#	GREEK SMALL LETTER GAMMA
s/\xCE\xB4/\xE4/g;	#	GREEK SMALL LETTER DELTA
s/\xCE\xB5/\xE5/g;	#	GREEK SMALL LETTER EPSILON
s/\xCE\xB6/\xE6/g;	#	GREEK SMALL LETTER ZETA
s/\xCE\xB7/\xE7/g;	#	GREEK SMALL LETTER ETA
s/\xCE\xB8/\xE8/g;	#	GREEK SMALL LETTER THETA
s/\xCE\xB9/\xE9/g;	#	GREEK SMALL LETTER IOTA
s/\xCE\xBA/\xEA/g;	#	GREEK SMALL LETTER KAPPA
s/\xCE\xBB/\xEB/g;	#	GREEK SMALL LETTER LAMDA
s/\xCE\xBC/\xEC/g;	#	GREEK SMALL LETTER MU
s/\xCE\xBD/\xED/g;	#	GREEK SMALL LETTER NU
s/\xCE\xBE/\xEE/g;	#	GREEK SMALL LETTER XI
s/\xCE\xBF/\xEF/g;	#	GREEK SMALL LETTER OMICRON
s/\xCF\xC0/\xF0/g;	#	GREEK SMALL LETTER PI
s/\xCF\xC1/\xF1/g;	#	GREEK SMALL LETTER RHO
s/\xCF\xC2/\xF2/g;	#	GREEK SMALL LETTER FINAL SIGMA
s/\xCF\xC3/\xF3/g;	#	GREEK SMALL LETTER SIGMA
s/\xCF\xC4/\xF4/g;	#	GREEK SMALL LETTER TAU
s/\xCF\xC5/\xF5/g;	#	GREEK SMALL LETTER UPSILON
s/\xCF\xC6/\xF6/g;	#	GREEK SMALL LETTER PHI
s/\xCF\xC7/\xF7/g;	#	GREEK SMALL LETTER CHI
s/\xCF\xC8/\xF8/g;	#	GREEK SMALL LETTER PSI
s/\xCF\xC9/\xF9/g;	#	GREEK SMALL LETTER OMEGA
s/\xCF\xCA/\xFA/g;	#	GREEK SMALL LETTER IOTA WITH DIALYTIKA
s/\xCF\xCB/\xFB/g;	#	GREEK SMALL LETTER UPSILON WITH DIALYTIKA
s/\xCF\xCC/\xFC/g;	#	GREEK SMALL LETTER OMICRON WITH TONOS
s/\xCF\xCD/\xFD/g;	#	GREEK SMALL LETTER UPSILON WITH TONOS
s/\xCF\xCE/\xFE/g;	#	GREEK SMALL LETTER OMEGA WITH TONOS
s/\xCE\x92/\xC2/g;	#	GREEK CAPITAL LETTER BETA
s/\xCE\x9A/\xCA/g;	#	GREEK CAPITAL LETTER KAPPA
s/\xCE\x9F/\xCF/g;	#	GREEK CAPITAL LETTER OMICRON

    print;
}
