-# ***************************************************************************
-# *
-# * Copyright (C) 2011, International Business Machines
-# * Corporation; Unicode, Inc.; and others. All Rights Reserved.
-# *
-# ***************************************************************************
+# © 2016 and later: Unicode, Inc. and others.
+# License & terms of use: http://www.unicode.org/copyright.html#License
+#
# File: el_Upper.txt
-# remove \0301 following Greek, with possible intervening 0308 marks
-:: NFD() ;
-[[:Greek:]&[:Ll:]] [\u0308]? { \u0301 → ;
-:: NFC() ;
+# Generated from CLDR
+#
+
+# Copyright (C) 2011-2013, Apple Inc. and others. All Rights Reserved.
+# Remove \0301 following Greek, with possible intervening 0308 marks.
+::NFD();
+# For uppercasing (not titlecasing!) remove all greek accents from greek letters.
+# This is done in two groups, to account for canonical ordering.
+[:Greek:] [^[:ccc=Not_Reordered:][:ccc=Above:]]*? { [\u0313\u0314\u0301\u0300\u0306\u0342\u0308\u0304] → ;
+[:Greek:] [^[:ccc=Not_Reordered:][:ccc=Iota_Subscript:]]*? { \u0345 → ;
+::NFC();
::Any-Upper();
+