%D \module
%D   [       file=enco-grk,
%D        version=2003.03.01,
%D          title=\CONTEXT\ Encoding Macros,
%D       subtitle=Greek,
%D         author=Apostolos Syropoulos,
%D           date=\currentdate,
%D      copyright=PRAGMA-ADE]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.


\startencoding[default]

%
% Uppercase Greek letters
%

\definecharacter GreekAlpha        {A}
\definecharacter GreekBeta         {B}
\definecharacter GreekGamma        {G}
\definecharacter GreekDelta        {D}
\definecharacter GreekEpsilon      {E}
\definecharacter GreekZeta         {Z}
\definecharacter GreekEta          {H}
\definecharacter GreekTheta        {J}
\definecharacter GreekIota         {I}
\definecharacter GreekKappa        {K}
\definecharacter GreekLamda        {L}
\definecharacter GreekMu           {M}
\definecharacter GreekNu           {N}
\definecharacter GreekXi           {X}
\definecharacter GreekOmicron      {O}
\definecharacter GreekPi           {P}
\definecharacter GreekRho          {R}
\definecharacter GreekSigma        {S}
\definecharacter GreekTau          {T}
\definecharacter GreekUpsilon      {U}
\definecharacter GreekPhi          {F}
\definecharacter GreekChi          {Q}
\definecharacter GreekPsi          {Y}
\definecharacter GreekOmega        {W}

%
% Lowercase Greek letters
%

\definecharacter Greekalpha        {a}
\definecharacter Greekbeta         {b}
\definecharacter Greekgamma        {g}
\definecharacter Greekdelta        {d}
\definecharacter Greekepsilon      {e}
\definecharacter Greekzeta         {z}
\definecharacter Greeketa          {h}
\definecharacter Greektheta        {j}
\definecharacter Greekiota         {i}
\definecharacter Greekkappa        {k}
\definecharacter Greeklamda        {l}
\definecharacter Greekmu           {m}
\definecharacter Greeknu           {n}
\definecharacter Greekxi           {x}
\definecharacter Greekomicron      {o}
\definecharacter Greekpi           {p}
\definecharacter Greekrho          {r}
\definecharacter Greekfinalsigma   {c}
\definecharacter Greeksigma        {s}
\definecharacter Greektau          {t}
\definecharacter Greekupsilon      {u}
\definecharacter Greekphi          {f}
\definecharacter Greekchi          {q}
\definecharacter Greekpsi          {y}
\definecharacter Greekomega        {w}

%
% Accented Uppercase Greek letters
%

\definecharacter GreekAlphatonos        {'A}
\definecharacter GreekEpsilontonos      {'E}
\definecharacter GreekEtatonos          {'H}
\definecharacter GreekIotatonos         {'I}
\definecharacter GreekOmicrontonos      {'O}
\definecharacter GreekUpsilontonos      {'U}
\definecharacter GreekOmegatonos        {'W}
\definecharacter GreekIotadialytika     {"I}
\definecharacter GreekUpsilondialytika  {"U}

%
% Accented Lowercase Greek letters
%

\definecharacter Greekalphatonos             {'a}
\definecharacter Greekepsilontonos           {'e}
\definecharacter Greeketatonos               {'h}
\definecharacter Greekiotatonos              {'i}
\definecharacter Greekomicrontonos           {'o}
\definecharacter Greekupsilontonos           {'u}
\definecharacter Greekomegatonos             {'w}
\definecharacter Greekiotadialytika          {"i}
\definecharacter Greekupsilondialytika       {"u}
\definecharacter Greekiotadialytikatonos     {'"i}
\definecharacter Greekupsilondialytikatonos  {'"u}

%
% Miscellaneous Greek symbols
%

\definecharacter Greekleftquot               {((}
\definecharacter Greekrightquot              {))}
\definecharacter Greektonos                  {'}
\definecharacter Greekdialytikatonos         {'"}
\definecharacter Greekapostrophos            {''}

\stopencoding 

%%% Note that with the command 
%%% \definecasemap 165 181 165
%%% character 165 becomes 181 in uppercase and 165 in lowercase

\startmapping[iso-8859-7]

%
% Uppercase Greek letters
% 

\definecasemap 193 193 225 % GreekAlpha  
\definecasemap 194 194 226 % GreekBeta   
\definecasemap 195 195 227 % GreekGamma  
\definecasemap 196 196 228 % GreekDelta  
\definecasemap 197 197 229 % GreekEpsilon
\definecasemap 198 198 230 % GreekZeta   
\definecasemap 199 199 213 % GreekEta    
\definecasemap 200 200 232 % GreekTheta  
\definecasemap 201 201 233 % GreekIota   
\definecasemap 202 202 234 % GreekKappa  
\definecasemap 203 203 235 % GreekLamda  
\definecasemap 204 204 236 % GreekMu     
\definecasemap 205 205 237 % GreekNu     
\definecasemap 206 206 238 % GreekXi     
\definecasemap 207 207 239 % GreekOmicron
\definecasemap 208 208 240 % GreekPi     
\definecasemap 209 209 241 % GreekRho    
\definecasemap 211 211 243 % GreekSigma  
\definecasemap 212 212 244 % GreekTau    
\definecasemap 213 213 245 % GreekUpsilon
\definecasemap 214 214 246 % GreekPhi    
\definecasemap 215 215 247 % GreekChi    
\definecasemap 216 216 248 % GreekPsi    
\definecasemap 217 217 249 % GreekOmega  

%
% Lowercase Greek letters
%

\definecasemap 225 193 225 % Greekalpha  
\definecasemap 226 194 226 % Greekbeta   
\definecasemap 227 195 227 % Greekgamma  
\definecasemap 228 196 228 % Greekdelta  
\definecasemap 229 197 229 % Greekepsilon
\definecasemap 230 198 230 % Greekzeta   
\definecasemap 213 199 213 % Greeketa    
\definecasemap 232 200 232 % Greektheta  
\definecasemap 233 201 233 % Greekiota   
\definecasemap 234 202 234 % Greekkappa  
\definecasemap 235 203 235 % Greeklamda  
\definecasemap 236 204 236 % Greekmu     
\definecasemap 237 205 237 % Greeknu     
\definecasemap 238 206 238 % Greekxi     
\definecasemap 239 207 239 % Greekomicron
\definecasemap 240 208 240 % Greekpi     
\definecasemap 241 209 241 % Greekrho
\definecasemap 242 211 242 % Greekfinalsigma    
\definecasemap 243 211 243 % GreekSigma  
\definecasemap 244 212 244 % GreekTau    
\definecasemap 245 213 245 % GreekUpsilon
\definecasemap 246 214 246 % GreekPhi    
\definecasemap 247 215 247 % GreekChi    
\definecasemap 248 216 248 % GreekPsi    
\definecasemap 249 217 249 % GreekOmega  

%
% Accented Uppercase Greek letters
%

\definecasemap 182 193 220  % GreekAlphatonos
\definecasemap 184 197 221  % GreekEpsilontonos
\definecasemap 185 199 222  % GreekEtatonos
\definecasemap 186 201 223  % GreekIotatonos
\definecasemap 188 207 252  % GreekOmicrontonos
\definecasemap 190 213 253  % GreekUpsilontonos
\definecasemap 191 217 254  % GreekOmegatonos
\definecasemap 218 218 250  % GreekIotadialytika
\definecasemap 219 219 251  % GreekUpsilondialytika

%
% Accented Lowercase Greek letters
%

\definecasemap 220 193 220  % Greekalphatonos
\definecasemap 221 197 221  % Greekepsilontonos
\definecasemap 222 199 222  % Greeketatonos
\definecasemap 223 201 223  % Greekiotatonos
\definecasemap 252 207 252  % Greekomicrontonos
\definecasemap 253 213 253  % Greekupsilontonos
\definecasemap 254 217 254  % Greekomegatonos
\definecasemap 250 218 250  % Greekiotadialytika
\definecasemap 251 219 251  % Greekupsilondialytika
\definecasemap 192 218 192  % Greekiotadialytikatonos
\definecasemap 224 219 224  % Greekupsilondialytikatonos


\stopencoding 

\startencoding[iso-8859-7]

%
% Uppercase Greek letters
%

\definecharacter GreekAlpha        193
\definecharacter GreekBeta         194
\definecharacter GreekGamma        195
\definecharacter GreekDelta        196
\definecharacter GreekEpsilon      197
\definecharacter GreekZeta         198
\definecharacter GreekEta          199
\definecharacter GreekTheta        200
\definecharacter GreekIota         201
\definecharacter GreekKappa        202
\definecharacter GreekLamda        203
\definecharacter GreekMu           204
\definecharacter GreekNu           205
\definecharacter GreekXi           206
\definecharacter GreekOmicron      207
\definecharacter GreekPi           208
\definecharacter GreekRho          209
\definecharacter GreekSigma        211
\definecharacter GreekTau          212
\definecharacter GreekUpsilon      213
\definecharacter GreekPhi          214
\definecharacter GreekChi          215
\definecharacter GreekPsi          216
\definecharacter GreekOmega        217

%
% Lowercase Greek letters
%

\definecharacter Greekalpha        225
\definecharacter Greekbeta         226
\definecharacter Greekgamma        227
\definecharacter Greekdelta        228
\definecharacter Greekepsilon      229
\definecharacter Greekzeta         230
\definecharacter Greeketa          231
\definecharacter Greektheta        232
\definecharacter Greekiota         233
\definecharacter Greekkappa        234
\definecharacter Greeklamda        235
\definecharacter Greekmu           236
\definecharacter Greeknu           237
\definecharacter Greekxi           238
\definecharacter Greekomicron      239
\definecharacter Greekpi           240
\definecharacter Greekrho          241
\definecharacter Greekfinalsigma   242
\definecharacter Greeksigma        243
\definecharacter Greektau          244
\definecharacter Greekupsilon      245
\definecharacter Greekphi          246
\definecharacter Greekchi          247
\definecharacter Greekpsi          248
\definecharacter Greekomega        249

%
% Accented Uppercase Greek letters
%

\definecharacter GreekAlphatonos        182
\definecharacter GreekEpsilontonos      184
\definecharacter GreekEtatonos          185
\definecharacter GreekIotatonos         186
\definecharacter GreekOmicrontonos      188
\definecharacter GreekUpsilontonos      190
\definecharacter GreekOmegatonos        191
\definecharacter GreekIotadialytika     218
\definecharacter GreekUpsilondialytika  219

%
% Accented Lowercase Greek letters
%

\definecharacter Greekalphatonos             220   
\definecharacter Greekepsilontonos           221   
\definecharacter Greeketatonos               222   
\definecharacter Greekiotatonos              223   
\definecharacter Greekomicrontonos           252   
\definecharacter Greekupsilontonos           253    
\definecharacter Greekomegatonos             254
\definecharacter Greekiotadialytika          250
\definecharacter Greekupsilondialytika       251
\definecharacter Greekiotadialytikatonos     192
\definecharacter Greekupsilondialytikatonos  224

%
% Miscellaneous Greek symbols
%

\definecharacter Greekleftquot               171
\definecharacter Greekrightquot              187
\definecharacter Greektonos                  180
\definecharacter Greekdialytikatonos         181
\definecharacter Greekapostrophos            162

\stopencoding 
