From ca9de69638b6ab07666d90656b6b224c0dd7435a Mon Sep 17 00:00:00 2001
From: Eliran Wong <hkwebtech@gmail.com>
Date: Fri, 24 Aug 2018 23:21:33 +0100
Subject: [PATCH] Add files via upload

---
 Script/pronunce_modern_Greek.sh       | 67 +++++++++++++++++++++++++++
 Script/unicode2transliteration_SBL.sh | 35 ++++++++++++++
 2 files changed, 102 insertions(+)
 create mode 100644 Script/pronunce_modern_Greek.sh
 create mode 100644 Script/unicode2transliteration_SBL.sh

diff --git a/Script/pronunce_modern_Greek.sh b/Script/pronunce_modern_Greek.sh
new file mode 100644
index 0000000..49925b4
--- /dev/null
+++ b/Script/pronunce_modern_Greek.sh
@@ -0,0 +1,67 @@
+#! /usr/bin/sed -E -i .bak -f
+# depends on what you need, the following first command may not be necessary in your case, please check
+s/$/ /g
+# convert diaeresis
+s/[ϊΐῒϋΰῢ]/＊/g
+# alphabet
+s/[αΑἀἈἄἌᾄἂἆἎἁἉἅἍᾅἃἋάᾴὰᾶᾷᾳ]/a/g
+s/[βΒ]/v/g
+s/[γΓ]/g/g
+s/[δΔ]/ð/g
+s/[εΕἐἘἔἜἑἙἕἝἓἛέὲ]/e/g
+s/[ζΖ]/z/g
+s/[ηΗἠἨἤἬᾔἢἪἦἮᾖᾐἡἩἥἭἣἧᾗᾑήῄὴῆῇῃ]/iy/g
+s/[θΘ]/θ/g
+s/[ιἰἸἴἼἶἱἹἵἽἳἷίὶῖ]/iy/g
+s/[κΚ]/k/g
+s/[λΛ]/l/g
+s/[μΜ]/m/g
+s/[νΝ]/n/g
+s/[ξΞ]/ks/g
+s/[οΟὀὈὄὌὂὁὉὅὍὃὋόὸ]/o/g
+s/[πΠ]/p/g
+s/[ρΡῥῬ]/r/g
+s/	r/	rh/g
+s/[σςΣ]/s/g
+s/s([vgðmnr])/z\1/g
+# check if you need the following command
+# s/s ([vgðmnr])/z \1/g
+# check the word at the end of a line and the word at the beginning of next line, if necessary
+s/[τΤ]/t/g
+s/[υΥὐὔὒὖὑὙὕὝὓὗὟύὺῦ]/IY/g
+s/[φΦ]/f/g
+s/[χΧ]/kh/g
+s/[ψΨ]/ps/g
+s/[ωὠὤὬὢὦὮᾠὡὩὥὭὧὯᾧώῴὼῶῷῳ]/o/g
+# diphthongs
+s/aiy/e/g
+s/eiy/iy/g
+s/oiy/iy/g
+s/IYiy/iy/g
+s/oIY/u/g
+s/aIY([pktfkθsz])/af\1/g
+s/aIY/av/g
+s/eIY([pktfkθsz])/ef\1/g
+s/eIY/ev/g
+s/iyIY([pktfkθsz])/iyf\1/g
+s/iyIY/iyv/g
+# change IY to small letter
+s/IY/iy/g
+# consonant clusters
+s/gg/ngG/g
+s/gk/ngG/g
+s/gkh/ngkh/g
+s/gks/ngks/g
+s/mp([^ \.\(\)\[\]—,;·’⟦⟧⸂⸃⸄⸅⸀⸁12])/mb\1/g
+s/nt([^ \.\(\)\[\]—,;·’⟦⟧⸂⸃⸄⸅⸀⸁12])/nd/g
+# deal with letter ghama
+s/ge/ye/g
+s/giy/yiy/g
+# change G to small letter
+s/G/g/g
+# restore diaeresis
+s/＊/iy/g
+s/ $//g
+s/᾽//g
+# reminder: read line 29
+# replace s( \r[0-9]+?\t[vgðmnr]) with z\1 if necessary
diff --git a/Script/unicode2transliteration_SBL.sh b/Script/unicode2transliteration_SBL.sh
new file mode 100644
index 0000000..e074341
--- /dev/null
+++ b/Script/unicode2transliteration_SBL.sh
@@ -0,0 +1,35 @@
+#!/usr/bin/sed -E -i .bak -f
+s/ΰ/ΰ/g
+s/ΐ/ΐ/g
+s/[Ῥῥ]/rh/g
+s/[ρΡ]/r/g
+s/	([^	][ἁἉἅἍᾅἃἋἑἙἕἝἓἛἱἹἵἽἳἷὁὉὅὍὃὋὑὙὕὝὓὗὟἡἩἥἭἣἧᾗᾑὡὩὥὭὣὧὯᾧ]|[ἁἉἅἍᾅἃἋἑἙἕἝἓἛἱἹἵἽἳἷὁὉὅὍὃὋὑὙὕὝὓὗὟἡἩἥἭἣἧᾗᾑὡὩὥὭὣὧὯᾧ])/	h\1/g
+s/[ϋΰῢ]/Y/g
+s/[υΥὐὔὒὖύύὺῦὑὙὕὝὓὗὟ]/y/g
+s/[αΑἀἈἄἌᾄἂἆἎᾆᾀάάᾴὰᾶᾷᾳἁἉἅἍᾅἃἋ]/a/g
+s/[εΕἐἘἔἜέέὲἑἙἕἝἓἛ]/e/g
+s/[ηΗἠἨἤἬᾔἢἪἦἮᾖᾐήήῄὴῆῇῃἡἩἥἭἣἧᾗᾑ]/ē/g
+s/[ιΙἰἸἴἼἶίίὶῖϊΐῒἱἹἵἽἳἷ]/i/g
+s/[οΟὀὈὄὌὂόόὸὁὉὅὍὃὋ]/o/g
+s/[ωΩὠὨὤὬᾤὢὦὮᾠώώῴὼῶῷῳὡὩὥὭὣὧὯᾧ]/ō/g
+s/([aeēo])y/\1u/g
+s/yi/ui/g
+s/Y/y/g
+s/[γΓ]([γΓκΚξΞχΧ])/ν\1/g
+s/[βΒ]/b/g
+s/[γΓ]/g/g
+s/[δΔ]/d/g
+s/[ζΖ]/z/g
+s/[θΘ]/th/g
+s/[κΚ]/k/g
+s/[λΛ]/l/g
+s/[μΜ]/m/g
+s/[νΝ]/n/g
+s/[ξΞ]/x/g
+s/[πΠ]/p/g
+s/[σςϛΣ]/s/g
+s/[τΤ]/t/g
+s/[φΦ]/ph/g
+s/[χΧ]/ch/g
+s/[ψΨ]/ps/g
+s/᾽//g