//--------------------------------------------------------------------
// Copyright (c) 2001, CrossWire Bible Society
//--------------------------------------------------------------------

// BETA-Greek

beta {
  Rule {
    // ==============================================
    // Variables, used to make the rules more comprehensible
    // and for conditionals.
    // ==============================================

    "$letter=[a-zA-Z];"    
    "$quote='\"';"
    
    // Greek Letters
    
    "$ALPHA=\u0391;"
    "$BETA=\u0392;"
    "$GAMMA=\u0393;"
    "$DELTA=\u0394;"
    "$EPSILON=\u0395;"
    "$ZETA=\u0396;"
    "$ETA=\u0397;"
    "$THETA=\u0398;"
    "$IOTA=\u0399;"
    "$KAPPA=\u039A;"
    "$LAMBDA=\u039B;"
    "$MU=\u039C;"
    "$NU=\u039D;"
    "$XI=\u039E;"
    "$OMICRON=\u039F;"
    "$PI=\u03A0;"
    "$RHO=\u03A1;"
    "$SIGMA=\u03A3;"
    "$TAU=\u03A4;"
    "$YPSILON=\u03A5;"
    "$PHI=\u03A6;"
    "$CHI=\u03A7;"
    "$PSI=\u03A8;"
    "$OMEGA=\u03A9;"
    
    "$ALPHA2=\u0386;"
    "$EPSILON2=\u0388;"
    "$ETA2=\u0389;"
    "$IOTA2=\u038A;"
    "$OMICRON2=\u038C;"
    "$YPSILON2=\u038E;"
    "$OMEGA2=\u038F;"

    "$IOTA_DIAERESIS=\u03AA;"
    "$YPSILON_DIAERESIS=\u03AB;"
    
    "$alpha=\u03B1;"
    "$beta=\u03B2;"
    "$gamma=\u03B3;"
    "$delta=\u03B4;"
    "$epsilon=\u03B5;"
    "$zeta=\u03B6;"
    "$eta=\u03B7;"
    "$theta=\u03B8;"
    "$iota=\u03B9;"
    "$kappa=\u03BA;"
    "$lambda=\u03BB;"
    "$mu=\u03BC;"
    "$nu=\u03BD;"
    "$xi=\u03BE;"
    "$omicron=\u03BF;"
    "$pi=\u03C0;"
    "$rho=\u03C1;"
    "$sigma=\u03C3;"
    "$tau=\u03C4;"
    "$ypsilon=\u03C5;"
    "$phi=\u03C6;"
    "$chi=\u03C7;"
    "$psi=\u03C8;"
    "$omega=\u03C9;"
    
    //forms
    
    "$alpha2=\u03AC;"
    "$epsilon2=\u03AD;"
    "$eta2=\u03AE;"
    "$iota2=\u03AF;"
    "$omicron2=\u03CC;"
    "$ypsilon2=\u03CD;"
    "$omega2=\u03CE;"

    "$iota_diaeresis=\u03CA;"
    "$ypsilon_diaeresis=\u03CB;"

    "$iota_diaeresis2=\u0390;"
    "$ypsilon_diaeresis2=\u03B0;"

    "$sigma2=\u03C2;"

    "$iota_subscript=\u037A;"

    "$semicolon=\u0387;"

    "$comb_rough_breathing=\u0314;"
    "$rough_breathing=\u02BD;"

    "$comb_smooth_breathing=\u0313;"
    "$smooth_breathing=\u02BC;"

    "$comb_acute_accent=\u0301;"
    "$acute_accent=\u00B4;"
    "$mod_acute_accent=\u02CA;"
    "$tonos=\u0384;"

    "$comb_circumflex=\u0302;"
    "$circumflex=\u005E;"
    "$mod_circumflex=\u02C6;"

    "$comb_grave_accent=\u0300;"
    "$grave_accent=\u0060;"
    "$mod_grave_accent=\u02CB;"

    "$comb_diaresis=\u0308;"
    "$diaresis=\u00A8;"
    
    "$comb_dot_above=\u0307;"
    "$dot_above=\u02D9;"

    // Variables for conditional mappings
    
    // ==============================================
    // Rules
    // ==============================================
    // The following are special titlecases, and should
    // not be copied when duplicating the lowercase
    // ==============================================
    
    // Remember to insert ' to preserve round trip, for double letters
    // don't need to do this for the digraphs with h,
    // since it is not created when mapping back from greek
    
    // use special form for s
    
    "S1>$sigma;"
    "S2>$sigma2;"

    "*S<>$SIGMA;"    
    "S{$letter>$sigma2;"
    "S<>$sigma;"
    "S<$sigma2;"
    "s{$letter>$sigma2;"
    "s>$sigma;"
    
    // because there are no uppercase forms, had to move these up too.
    
    "I+/<>$iota_diaeresis2;"
    "U+/<>$ypsilon_diaeresis2;"
    
    // ==============================================
    // Uppercase Forms.
    // To make lowercase forms, just copy and lowercase below
    // ==============================================
    
    // Basic Letters

    "*A/<>$ALPHA2;"
    "*E/<>$EPSILON2;"
    "*H/<>$ETA2;"
    "*I/<>$IOTA2;"
    "*O/<>$OMICRON2;"
    "*U/<>$YPSILON2;"
    "*W/<>$OMEGA2;"

    "*I+<>$IOTA_DIAERESIS;"
    "*U+<>$YPSILON_DIAERESIS;"

    "*A<>$ALPHA;"
    "*B<>$BETA;"
    "*G<>$GAMMA;"
    "*D<>$DELTA;"
    "*E<>$EPSILON;"
    "*Z<>$ZETA;"
    "*H<>$ETA;"
    "*Q<>$THETA;"
    "*I<>$IOTA;"
    "*K<>$KAPPA;"
    "*L<>$LAMBDA;"
    "*M<>$MU;"
    "*N<>$NU;"
    "*C<>$XI;"
    "*O<>$OMICRON;"
    "*F<>$PHI;"
    "*Y<>$PSI;"
    "*P<>$PI;"
    "*R<>$RHO;"
    "*T<>$TAU;"
    "*U<>$YPSILON;"
    "*X<>$CHI;"
    "*W<>$OMEGA;"
    

    
    // ==============================================
    // Lowercase Forms. Just copy above and lowercase
    // ==============================================
    
    // basic letters
    "A/<>$alpha2;"
    "E/<>$epsilon2;"
    "H/<>$eta2;"
    "I/<>$iota2;"
    "O/<>$omicron2;"
    "U/<>$ypsilon2;"
    "W/<>$omega2;"

    "I+<>$iota_diaresis;"
    "U+<>$ypsilon_diaresis;"       

    "A<>$alpha;"
    "B<>$beta;"
    "G<>$gamma;"
    "D<>$delta;"
    "E<>$epsilon;"
    "Z<>$zeta;"
    "H<>$eta;"
    "Q<>$theta;"
    "I<>$iota;"
    "K<>$kappa;"
    "L<>$lambda;"
    "M<>$mu;"
    "N<>$nu;"
    "C<>$xi;"
    "O<>$omicron;"
    "F<>$phi;"
    "Y<>$psi;"
    "P<>$pi;"
    "R<>$rho;"
    "T<>$tau;"
    "U<>$ypsilon;"
    "X<>$chi;"
    "W<>$omega;"

    "a/>$alpha2;"
    "e/>$epsilon2;"
    "h/>$eta2;"
    "i/>$iota2;"
    "o/>$omicron2;"
    "u/>$ypsilon2;"
    "w/>$omega2;"

    "i+>$iota_diaresis;"
    "u+>$ypsilon_diaresis;"   

    "a>$alpha;"
    "b>$beta;"
    "g>$gamma;"
    "d>$delta;"
    "e>$epsilon;"
    "z>$zeta;"
    "h>$eta;"
    "q>$theta;"
    "i>$iota;"
    "k>$kappa;"
    "l>$lambda;"
    "m>$mu;"
    "n>$nu;"
    "c>$xi;"
    "o>$omicron;"
    "f>$phi;" // needs ordering before p
    "y>$psi;" // needs ordering before p
    "p>$pi;"
    "r>$rho;"
    "t>$tau;"
    "u>$ypsilon;"
    "x>$chi;"
    "w>$omega;"

    // Non-letter characters    

    "|<>$iota_subscript;"
    "(<>$comb_rough_breathing;"
    "(<$rough_breathing;"
    ":<>$semicolon;"
    ")<>$comb_smooth_breathing;"
    ")<$smooth_breathing;"
    "/<>$comb_acute_accent;"
    "/<$acute_accent;"
    "/<$mod_acute_accent;"
    "/<$tonos;"
    "=<>$comb_circumflex;"
    "=<$circumflex;"
    "=<$mod_circumflex;"
    "\\<>$comb_grave_accent;"
    "\\<$grave_accent;"
    "\\<$mod_grave_accent;"
    "+<>$comb_diaresis;"
    "+<$diaresis;"
    "?<>$comb_dot_above;"
    "?<$dot_above;"

    }
}