glaemscribe 1.0.0

data/glaemresources/modes/mercian.glaem

@@ -0,0 +1,419 @@
+\**
+
+Glǽmscribe (also written Glaemscribe) is a software dedicated to
+the transcription of texts between writing systems, and more 
+specifically dedicated to the transcription of J.R.R. Tolkien's 
+invented languages to some of his devised writing systems.
+
+Copyright (C) 2015 Benjamin Babut (Talagan).
+
+This program is free software: you can redistribute it and/or modify
+it under the terms of the GNU Affero General Public License as published by
+the Free Software Foundation, either version 3 of the License, or
+any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU Affero General Public License for more details.
+
+You should have received a copy of the GNU Affero General Public License
+along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+**\
+
+\language "Old English"
+\writing  "Tengwar"
+\mode     "Mercian"
+\version  "0.0.1"
+\authors  "Talagan (Benjamin Babut)"
+
+\charset  tengwar_ds true
+
+\beg      preprocessor
+  \** Work exclusively downcase **\
+  \downcase
+  
+  \** Simplify trema vowels **\
+  \substitute ä a
+  \substitute ë e
+  \substitute ï i
+  \substitute ö o
+  \substitute ü u
+  \substitute ÿ y
+
+  \substitute "ae"  "æ"
+  \substitute "ea"  "æa"
+  \substitute "éa"  "ǽa"
+  \substitute "7"   "⁊"
+  
+  \** Dis-ambiguate long vowels **\
+  \rxsubstitute "(ā|â|aa)" "á"
+  \rxsubstitute "(ē|ê|ee)" "é"
+  \rxsubstitute "(ī|î|ii)" "í"
+  \rxsubstitute "(ō|ô|oo)" "ó"
+  \rxsubstitute "(ū|û|uu)" "ú"
+  \rxsubstitute "(ȳ|ŷ|yy)" "ý"
+\end
+  
+\beg      processor
+
+  \beg    rules litteral
+    {A}   === a
+    {AA}  === á
+    {E}   === e
+    {EE}  === é
+    {I}   === i
+    {II}  === í
+    {O}   === o
+    {OO}  === ó
+    {U}   === u
+    {UU}  === ú
+    {Y}   === y
+    {YY}  === ý
+
+    {AE}    === (æ,ae)
+    {AEAE}  === (ǽ,ǣ)
+
+    {OE}    === (ø,œ)
+    {OEOE}  === (ǿ,œ́)
+
+    \** Diphtongs are always splitted, so consider we don't have any. **\
+    \** @ is the phantom vowel added by the preprocessor **\
+
+    {S_VOWELS_NP}   === {A} * {AE} * {OE} * {E} * {I}   * {O} * {U} * {Y}
+    {S_VOWELS}      === {S_VOWELS_NP} * @                           
+
+    \** UP TEHTAS **\    
+    {UTEHTA_NP_XS}  === A_TEHTA_XS    * Y_TEHTA_XS     * E_TEHTA_DOUBLE_XS   * E_TEHTA_XS   *   I_TEHTA_XS    * O_TEHTA_XS    * U_TEHTA_XS    * THSUP_SEV_XS  
+    {UTEHTA_NP__S}  === A_TEHTA_S     * Y_TEHTA_S      * E_TEHTA_DOUBLE_S    * E_TEHTA_S    *   I_TEHTA_S     * O_TEHTA_S     * U_TEHTA_S     * THSUP_SEV_S 
+    {UTEHTA_NP__L}  === A_TEHTA_L     * Y_TEHTA_L      * E_TEHTA_DOUBLE_L    * E_TEHTA_L    *   I_TEHTA_L     * O_TEHTA_L     * U_TEHTA_L     * THSUP_SEV_L 
+    {UTEHTA_NP_XL}  === A_TEHTA_XL    * Y_TEHTA_XL     * E_TEHTA_DOUBLE_XL   * E_TEHTA_XL   *   I_TEHTA_XL    * O_TEHTA_XL    * U_TEHTA_XL    * THSUP_SEV_XL 
+    {UTEHTA_XS}     === {UTEHTA_NP_XS}  * {NULL}
+    {UTEHTA__S}     === {UTEHTA_NP__S}  * {NULL}  
+    {UTEHTA__L}     === {UTEHTA_NP__L}  * {NULL}  
+    {UTEHTA_XL}     === {UTEHTA_NP_XL}  * {NULL}
+
+    \** FOR LONG VOWELS **\
+    {L_VOWELS}      === {AA}              * {AEAE}          * {OEOE}                * {EE}            * {II}            * {OO}              * {UU}            * {YY}  
+    {L_PTEHTAS}     === ARA A_TEHTA_XS    * ARA Y_TEHTA_XS  * ARA E_TEHTA_DOUBLE_XS * ARA E_TEHTA_XS  * ARA I_TEHTA_XS  * ARA O_TEHTA_XS    * ARA U_TEHTA_XS  * ARA THSUP_SEV_XS    
+
+    {LVOWEL_MARKER_XS}  === THINF_STROKE_XS
+    {LVOWEL_MARKER__S}  === THINF_STROKE_S
+    {LVOWEL_MARKER__L}  === THINF_STROKE_L
+    {LVOWEL_MARKER_XL}  === THINF_STROKE_XL
+
+    \** DOWN TEHTAS **\
+    {DTEHTA_XS}         === THINF_TDOT_XS   * THINF_DDOT_XS    * TH_SUB_CIRC_XS    * THINF_ACCENT_XS  * THINF_DOT_XS  * THINF_CURL_XS   * THINF_CURL_INV_XS   * THINF_STROKE_XS   * {NULL}
+    {DTEHTA__S}         === THINF_TDOT_S    * THINF_DDOT_S     * TH_SUB_CIRC_S     * THINF_ACCENT_S   * THINF_DOT_S   * THINF_CURL_S    * THINF_CURL_INV_S    * THINF_STROKE_S    * {NULL}  
+    {DTEHTA__L}         === THINF_TDOT_L    * THINF_DDOT_L     * TH_SUB_CIRC_L     * THINF_ACCENT_L   * THINF_DOT_L   * THINF_CURL_L    * THINF_CURL_INV_L    * THINF_STROKE_L    * {NULL}  
+    {DTEHTA_XL}         === THINF_TDOT_XL   * THINF_DDOT_XL    * TH_SUB_CIRC_XL    * THINF_ACCENT_XL  * THINF_DOT_XL  * THINF_CURL_XL   * THINF_CURL_INV_XL   * THINF_STROKE_XL   * {NULL}  
+
+    {S_VOWELS_NP_KER}       === [ {S_VOWELS_NP} ]
+    {S_VOWELS_NP_KER_WN}    === [ {S_VOWELS_NP} * {NULL} ]
+    {S_VOWELS_KER}          === [ {S_VOWELS} ]
+    {S_VOWELS_KER_WN}       === [ {S_VOWELS} * {NULL} ]
+
+    \** IMG Sheaves for all vowels **\
+    {SU_VOWELS_IMG_XS}        === [ {UTEHTA_XS} ]
+    {SU_VOWELS_IMG__S}        === [ {UTEHTA__S} ]
+    {SU_VOWELS_IMG__L}        === [ {UTEHTA__L} ]
+    {SU_VOWELS_IMG_XL}        === [ {UTEHTA_XL} ]
+    {SD_VOWELS_IMG_XS}        === [ {DTEHTA_XS} ]
+    {SD_VOWELS_IMG__S}        === [ {DTEHTA__S} ]
+    {SD_VOWELS_IMG__L}        === [ {DTEHTA__L} ]
+    {SD_VOWELS_IMG_XL}        === [ {DTEHTA_XL} ]
+
+    {SU_VOWELS_IMG_XS_WN}     === [ {UTEHTA_XS} * {NULL} ]
+    {SU_VOWELS_IMG__S_WN}     === [ {UTEHTA__S} * {NULL} ]
+    {SU_VOWELS_IMG__L_WN}     === [ {UTEHTA__L} * {NULL} ]
+    {SU_VOWELS_IMG_XL_WN}     === [ {UTEHTA_XL} * {NULL} ]
+    {SD_VOWELS_IMG_XS_WN}     === [ {DTEHTA_XS} * {NULL} ]
+    {SD_VOWELS_IMG__S_WN}     === [ {DTEHTA__S} * {NULL} ]
+    {SD_VOWELS_IMG__L_WN}     === [ {DTEHTA__L} * {NULL} ]
+    {SD_VOWELS_IMG_XL_WN}     === [ {DTEHTA_XL} * {NULL} ]
+
+    \** Fallback rule for all vowels **\
+    [ {L_VOWELS} ] --> [ {L_PTEHTAS} ]            \** If found alone, long vowel will have a long carrier **\
+
+    \** Fallback rule for short vowels **\
+    @                   --> {NULL}                     \**  If found alone, put nothing **\
+    [ {S_VOWELS_NP} ]   --> TELCO [ {UTEHTA_NP_XS} ]   \**  If found alone, a vowel will have a short carrier **\
+    _{A}                --> VILYA                      \**  We don't want a short carrier for _a **\
+    (w,u)_              --> VALA                       \**  Only resolved after vowels **\
+
+    \** Next rule not valid in mercian mode **\
+    \** {UU} -> yU - Nope in mercian **\
+
+
+    \** ========== **\
+    \** CONSONANTS **\
+    \** ========== **\
+
+    \** ========== **\
+    \** 1st Line (Voiceless occlusives) **\
+    \** Short upper dash for nasalisation **\
+
+    {L1_KER_1}      === t     * p 
+    {L1_IMG_1}      === TINCO * PARMA
+
+    {L1_KER_2}      === ċ     * c       * k
+    {L1_IMG_2}      === CALMA * QUESSE  * QUESSE
+    
+    {L1_KER_1_GEMS} === tt                      * pp   
+    {L1_IMG_1_GEMS} === TINCO THINF_DSTROKE_XS  * PARMA THINF_DSTROKE_XS
+
+    {L1_KER_2_GEMS} === ċċ                      * cc                      * kk 
+    {L1_IMG_2_GEMS} === CALMA THINF_DSTROKE_XL  * QUESSE THINF_DSTROKE_XL * QUESSE THINF_DSTROKE_XL
+  
+    \** C, CV, CVV. Rules are declared to avoid conflicts between [C, NULLV, V] and [C, V, NULLV] **\
+    \** We also have rules for long vowels **\
+    [{L1_KER_1}]                                  --> [{L1_IMG_1}]
+    [{L1_KER_2}]                                  --> [{L1_IMG_2}]
+    [{L1_KER_1}]{S_VOWELS_KER}{S_VOWELS_KER_WN}   --> [{L1_IMG_1}]{SU_VOWELS_IMG__L}{SD_VOWELS_IMG__S_WN}
+    [{L1_KER_2}]{S_VOWELS_KER}{S_VOWELS_KER_WN}   --> [{L1_IMG_2}]{SU_VOWELS_IMG__L}{SD_VOWELS_IMG_XL_WN}
+    [{L1_KER_1}][{L_VOWELS}]                      --> [{L1_IMG_1}][{UTEHTA_NP__L}]{LVOWEL_MARKER__S}
+    [{L1_KER_2}][{L_VOWELS}]                      --> [{L1_IMG_2}][{UTEHTA_NP__L}]{LVOWEL_MARKER_XL}
+
+    \** Geminateds (double sign below) **\
+    \** C², C²V **\
+    \** NOT C²V² (cannot put second tehta below due to gemination sign) **\
+    \** NOT C²L (long vowel not possible with gemination sign) **\
+    [{L1_KER_1_GEMS}]{S_VOWELS_KER_WN}          --> [{L1_IMG_1_GEMS}]{SU_VOWELS_IMG__L_WN}
+    [{L1_KER_2_GEMS}]{S_VOWELS_KER_WN}          --> [{L1_IMG_2_GEMS}]{SU_VOWELS_IMG__L_WN}
+
+    \** Nasals (tild above) **\
+    \** nC, nCV, nCVV **\
+    \** We also have rules for long vowels **\
+    [ nt * mp ]                                       -->  [ TINCO TILD_SUP_S * PARMA TILD_SUP_S ]
+    [ nċ * nc ]                                       -->  [ CALMA TILD_SUP_S * QUESSE TILD_SUP_S ]
+    [ nt * mp ]{S_VOWELS_KER}{S_VOWELS_KER_WN}        -->  [ TINCO TILD_SUP_S * PARMA TILD_SUP_S ]{SU_VOWELS_IMG__L}{SD_VOWELS_IMG__S_WN}
+    [ nċ * nc ]{S_VOWELS_KER}{S_VOWELS_KER_WN}        -->  [ CALMA TILD_SUP_S * QUESSE TILD_SUP_S ]{SU_VOWELS_IMG__L}{SD_VOWELS_IMG_XL_WN}
+    [ nt * mp ][{L_VOWELS}]                           -->  [ TINCO TILD_SUP_S * PARMA TILD_SUP_S ][{UTEHTA_NP__L}]{LVOWEL_MARKER__S}
+    [ nċ * nc ][{L_VOWELS}]                           -->  [ CALMA TILD_SUP_S * QUESSE TILD_SUP_S ][{UTEHTA_NP__L}]{LVOWEL_MARKER_XL}
+
+    \** ========== **\
+    \** 2nd Line (Voiced occlusives) **\
+    \** Long upper dash for nasalisation **\
+
+    {L2_KER}        === d     * b     * ġ     * g
+    {L2_IMG}        === ANDO  * UMBAR * ANGA  * UNGWE
+    
+    {L2_KER_GEMS}   === dd                    * bb                    * (ċġ,ġġ)               * (cg,gg)
+    {L2_IMG_GEMS}   === ANDO THINF_DSTROKE_L  * UMBAR THINF_DSTROKE_L * ANGA THINF_DSTROKE_L  * UNGWE THINF_DSTROKE_L
+
+    \** C, CV, CVV **\
+    [{L2_KER}]                                        --> [{L2_IMG}]
+    [{L2_KER}]{S_VOWELS_KER}{S_VOWELS_KER_WN}         --> [{L2_IMG}]{SU_VOWELS_IMG_XL}{SD_VOWELS_IMG_XL_WN}
+    [{L2_KER}][{L_VOWELS}]                            --> [{L2_IMG}][{UTEHTA_NP_XL}]{LVOWEL_MARKER_XL}
+
+    \** Geminated sign below, cannot treat diphthongs or long vowels **\
+    [{L2_KER_GEMS}]{S_VOWELS_KER_WN}                  --> [{L2_IMG_GEMS}]{SU_VOWELS_IMG_XL_WN}
+
+    \** Nasals, with diphthongs! **\
+    [ nd * mb * nġ * ng ]                                   -->  [ ANDO TILD_SUP_L * UMBAR TILD_SUP_L * ANGA TILD_SUP_L * UNGWE TILD_SUP_L ]
+    [ nd * mb * nġ * ng ]{S_VOWELS_KER}{S_VOWELS_KER_WN}    -->  [ ANDO TILD_SUP_L * UMBAR TILD_SUP_L * ANGA TILD_SUP_L * UNGWE TILD_SUP_L ]{SU_VOWELS_IMG_XL}{SD_VOWELS_IMG_XL_WN}
+    [ nd * mb * nġ * ng ][{L_VOWELS}]                       -->  [ ANDO TILD_SUP_L * UMBAR TILD_SUP_L * ANGA TILD_SUP_L * UNGWE TILD_SUP_L ][{UTEHTA_NP_XL}]{LVOWEL_MARKER_XL}
+
+    \** ========== **\
+    \** 3rd Line (Voiceless fricatives) **\
+    \** Short upper dash for nasalisation **\
+    {L3_KER_1}      === þ     * f
+    {L3_IMG_1}      === SULE  * FORMEN
+    
+    {L3_KER_2}      === ç     * (χ,ħ)
+    {L3_IMG_2}      === AHA   * HWESTA
+    
+    {L3_KER_1_GEMS} === þþ                    * ff
+    {L3_IMG_1_GEMS} === SULE THINF_DSTROKE_XS * FORMEN THINF_DSTROKE_XS
+    
+    {L3_KER_2_GEMS} === çç                    * (χχ,ħħ)
+    {L3_IMG_2_GEMS} === AHA THINF_DSTROKE_XS  * HWESTA THINF_DSTROKE_XS
+
+    [{L3_KER_1}]                                      --> [{L3_IMG_1}]
+    [{L3_KER_2}]                                      --> [{L3_IMG_2}]
+    [{L3_KER_1}]{S_VOWELS_KER}{S_VOWELS_KER_WN}       --> [{L3_IMG_1}]{SU_VOWELS_IMG__S}{SD_VOWELS_IMG__L_WN}
+    [{L3_KER_2}]{S_VOWELS_KER}{S_VOWELS_KER_WN}       --> [{L3_IMG_2}]{SU_VOWELS_IMG__L}{SD_VOWELS_IMG_XL_WN}
+    [{L3_KER_1}][{L_VOWELS}]                           --> [{L3_IMG_1}][{UTEHTA_NP__S}]{LVOWEL_MARKER__L}
+    [{L3_KER_2}][{L_VOWELS}]                           --> [{L3_IMG_2}][{UTEHTA_NP__L}]{LVOWEL_MARKER_XL}
+
+    \** Geminated sign below, cannot treat diphthongs or long vowels **\
+    [{L3_KER_1_GEMS}]{S_VOWELS_KER_WN}                --> [{L3_IMG_1_GEMS}]{SU_VOWELS_IMG__S_WN}
+    [{L3_KER_2_GEMS}]{S_VOWELS_KER_WN}                --> [{L3_IMG_2_GEMS}]{SU_VOWELS_IMG__L_WN}
+  
+  
+    \** ========== **\
+    \** 4th Line (Voiced fricatives) **\
+    \** Long upper dash for nasalisation **\
+
+    {L4_KER}        === ð     * v     * j     * ȝ
+    {L4_IMG}        === ANTO  * AMPA  * ANCA  * UNQUE
+    
+    {L4_KER_GEMS}   === ðð                    * vv                    * jj                    * ȝȝ
+    {L4_IMG_GEMS}   === ANTO THINF_DSTROKE_L  * AMPA THINF_DSTROKE_L  * ANCA THINF_DSTROKE_L  * UNQUE THINF_DSTROKE_L
+
+    [{L4_KER}]                                        --> [{L4_IMG}]
+    [{L4_KER}]{S_VOWELS_KER}{S_VOWELS_KER_WN}         --> [{L4_IMG}]{SU_VOWELS_IMG_XL}{SD_VOWELS_IMG_XL_WN}
+    [{L4_KER}][{L_VOWELS}]                            --> [{L4_IMG}][{UTEHTA_NP_XL}]{LVOWEL_MARKER_XL}
+
+    \** Geminated sign below, cannot treat diphthongs or long vowels **\
+    [{L4_KER_GEMS}]{S_VOWELS_KER_WN}                  --> [{L4_IMG_GEMS}]{SU_VOWELS_IMG_XL_WN}
+
+
+    \** ========== **\
+    \** 5th Line (Nasals) **\
+    \** Long upper dash for nasalisation (wins on gemination) **\
+
+    {L5_KER}        === n * m
+    {L5_IMG}        === NUMEN * MALTA
+
+    [{L5_KER}]                                        --> [{L5_IMG}]
+    [{L5_KER}]{S_VOWELS_KER}{S_VOWELS_KER_WN}         --> [{L5_IMG}]{SU_VOWELS_IMG_XL}{SD_VOWELS_IMG_XL_WN}
+    [{L5_KER}][{L_VOWELS}]                            --> [{L5_IMG}][{UTEHTA_NP_XL}]{LVOWEL_MARKER_XL}
+
+    \** Gemination === nasalisation **\
+    \** So prefer using tild to put tehtas up and down for diphthongs and long vowels **\
+
+    [ nn * mm ]                                       --> [ NUMEN TILD_SUP_L * MALTA TILD_SUP_L ]
+    [ nn * mm ]{S_VOWELS_KER}{S_VOWELS_KER_WN}        --> [ NUMEN TILD_SUP_L * MALTA TILD_SUP_L ]{SU_VOWELS_IMG_XL}{SD_VOWELS_IMG_XL_WN}
+    [ nn * mm ][{L_VOWELS}]                           --> [ NUMEN TILD_SUP_L * MALTA TILD_SUP_L ][{UTEHTA_NP_XL}]{LVOWEL_MARKER_XL}
+
+    \** ========== **\
+    \** 6th Line (Approximants == fr : Spirantes) **\
+    \** Short upper dash for nasalisation **\
+
+    {L6_KER}        === r * ĭ
+    {L6_IMG}        === ORE * ANNA
+    {L6_KER_GEMS}   === rr * ĭĭ
+    {L6_IMG_GEMS}   === ORE THINF_DSTROKE_XS * ANNA THINF_DSTROKE_XS
+
+    [{L6_KER}]                                        --> [{L6_IMG}]
+    [{L6_KER}]{S_VOWELS_KER}{S_VOWELS_KER_WN}         --> [{L6_IMG}]{SU_VOWELS_IMG__S}{SD_VOWELS_IMG__L_WN}
+    [{L6_KER}][{L_VOWELS}]                            --> [{L6_IMG}][{UTEHTA_NP__S}]{LVOWEL_MARKER__L}
+
+    \** Geminated sign below, cannot treat diphthongs or long vowels **\
+    [{L6_KER_GEMS}]{S_VOWELS_KER_WN}                  --> [{L6_IMG_GEMS}]{SU_VOWELS_IMG__S_WN}
+
+    \** ========== **\
+    \** Liquids **\
+
+    w                                                      --> ROMEN
+    w{S_VOWELS_KER}{S_VOWELS_KER_WN}                       --> ROMEN {SU_VOWELS_IMG__L}{SD_VOWELS_IMG_XS_WN}
+    w[{L_VOWELS}]                                          --> ROMEN [{UTEHTA_NP__L}]{LVOWEL_MARKER_XS}
+
+    \** Geminated sign below, cannot treat diphthongs or long vowels **\
+    ww{S_VOWELS_KER_WN}                                    --> ROMEN THINF_DSTROKE_XS {SU_VOWELS_IMG__L_WN}
+
+    \** L and LL and ld are too big to receive tehtas under, so no diphthongs, no long vowels **\
+    [l * ll * ld] {S_VOWELS_KER_WN}                        --> [LAMBE * LAMBE THINF_DSTROKE_FOR_LAMBE * ALDA] {SU_VOWELS_IMG__L_WN}
+
+    \** ========== **\
+    \** Alveolar (sifflantes) **\
+    
+    {L8_KER}      ===  s * z 
+    {L8_IMG}      ===  SILME_NUQUERNA * ESSE_NUQUERNA 
+    {L8_KER_GEMS} ===  ss * zz 
+    {L8_IMG_GEMS} ===  SILME_NUQUERNA THINF_DSTROKE_XS * ESSE_NUQUERNA THINF_DSTROKE_L
+
+    [{L8_KER}]                                       --> [{L8_IMG}]
+    [{L8_KER}]{S_VOWELS_KER}{S_VOWELS_KER_WN}        --> [{L8_IMG}]{SU_VOWELS_IMG__S}{SD_VOWELS_IMG__S_WN}
+    [{L8_KER}][{L_VOWELS}]                           --> [{L8_IMG}][{UTEHTA_NP__S}]{LVOWEL_MARKER__S}
+
+    \** Geminated sign under, cannot treat diphthongs or long vowels **\
+    [{L8_KER_GEMS}]{S_VOWELS_KER_WN}                 --> [{L8_IMG_GEMS}]{SU_VOWELS_IMG__S_WN}
+
+    \**  Final s (Challenging!) **\
+    s_                --> SHOOK_BEAUTIFUL                             \** Final rule for s **\
+    {S_VOWELS_KER}s_  --> TELCO {SU_VOWELS_IMG_XS} SILME_NUQUERNA     \** Rule es_ **\
+    [{L_VOWELS}]s_    --> [{L_PTEHTAS}] SILME_NUQUERNA                \** Rule és_ **\
+
+    s --> SILME    \** Overload lonely s **\
+    z --> ESSE    \** Overload lonely z **\
+
+    \** ========== **\
+    \** Ligatures **\
+    
+    {LINE_VARIOUS_1_KER}      ===  sċ 
+    {LINE_VARIOUS_1_IMG}      ===  ANCA_CLOSED  
+    {LINE_VARIOUS_2_KER}      ===  hw * çt * (χt,ħt)
+    {LINE_VARIOUS_2_IMG}      ===  HARP_SHAPED  * AHA_TINCO  * HWESTA_TINCO  
+
+    [{LINE_VARIOUS_1_KER}]                                 --> [{LINE_VARIOUS_1_IMG}]
+    [{LINE_VARIOUS_2_KER}]                                 --> [{LINE_VARIOUS_2_IMG}]
+    [{LINE_VARIOUS_1_KER}]{S_VOWELS_KER}{S_VOWELS_KER_WN}  --> [{LINE_VARIOUS_1_IMG}]{SU_VOWELS_IMG_XL}{SD_VOWELS_IMG_XL_WN}
+    [{LINE_VARIOUS_2_KER}]{S_VOWELS_KER}{S_VOWELS_KER_WN}  --> [{LINE_VARIOUS_2_IMG}]{SU_VOWELS_IMG__S}{SD_VOWELS_IMG__S_WN}
+    [{LINE_VARIOUS_1_KER}][{L_VOWELS}]                     --> [{LINE_VARIOUS_1_IMG}][{UTEHTA_NP_XL}]{LVOWEL_MARKER_XL}
+    [{LINE_VARIOUS_2_KER}][{L_VOWELS}]                     --> [{LINE_VARIOUS_2_IMG}][{UTEHTA_NP__S}]{LVOWEL_MARKER__S}
+
+    \** No nasals, no geminated **\
+
+    \** ========== **\
+    \** Various **\
+   
+    h                                                    --> HYARMEN
+    h{S_VOWELS_KER}{S_VOWELS_KER_WN}                     --> HYARMEN {SU_VOWELS_IMG_XS}{SD_VOWELS_IMG__L_WN}
+    h[{L_VOWELS}]                                        --> HYARMEN [{UTEHTA_NP_XS}]{LVOWEL_MARKER__L}
+
+    \** Geminated sign below, cannot treat diphthongs or long vowels **\
+    hh{S_VOWELS_KER_WN}                                  --> HYARMEN THINF_DSTROKE_XL {SU_VOWELS_IMG_XS_WN}
+
+    \** ========== **\
+    \** X **\
+    \** For x, due to the cedilla, we cannot put tehtas under the tengwa (so no need to treat diphthongs or long vowels) **\
+
+    x{S_VOWELS_KER_WN}                                  --> QUESSE SHOOK_LEFT_L {SU_VOWELS_IMG__S_WN}
+    xx{S_VOWELS_KER_WN}                                 --> QUESSE SHOOK_LEFT_L THINF_DSTROKE_XL {SU_VOWELS_IMG__S_WN}
+    nx{S_VOWELS_KER_WN}                                 --> QUESSE SHOOK_LEFT_L TILD_SUP_S {SU_VOWELS_IMG__S_WN}     
+  \end
+  
+  \beg    rules punctuation 
+    ⁊ --> OLD_ENGLISH_AND
+
+    . --> PUNCT_DDOT
+    .. --> PUNCT_DOT PUNCT_DDOT PUNCT_DOT
+    …  --> PUNCT_TILD
+    ... --> PUNCT_TILD
+    .... --> PUNCT_TILD
+    ..... --> PUNCT_TILD
+    ...... --> PUNCT_TILD
+    ....... --> PUNCT_TILD
+
+    , --> PUNCT_DOT
+    : --> PUNCT_DOT
+    ; --> PUNCT_DOT
+    ! --> PUNCT_EXCLAM
+    ? --> PUNCT_INTERR
+    · --> PUNCT_DOT
+
+    \** Apostrophe **\
+
+    ' --> {NULL}
+    ’ --> {NULL}
+
+    \** Quotes **\
+
+    “ --> DQUOT_OPEN
+    ” --> DQUOT_CLOSE
+    « --> DQUOT_OPEN 
+    » --> DQUOT_CLOSE 
+
+    - --> PUNCT_DOT    
+    – --> PUNCT_TILD  
+    — --> PUNCT_TILD
+
+    [ --> PUNCT_PAREN_L
+    ] --> PUNCT_PAREN_R
+    ( --> PUNCT_PAREN_L_ALT \** TODO : Remove alt ? **\
+    ) --> PUNCT_PAREN_R_ALT \** TODO : Remove alt ? **\
+    { --> PUNCT_PAREN_L
+    } --> PUNCT_PAREN_R
+    < --> PUNCT_PAREN_L
+    > --> PUNCT_PAREN_R  
+
+    \** Not universal between fonts ... **\
+    $ --> BOOKMARK_SIGN
+    ≤ --> RING_MARK_L \** Ring inscription left beautiful stuff **\
+    ≥ --> RING_MARK_R \** Ring inscription right beautiful stuff **\
+  \end  
+\end
+

data/glaemresources/modes/oldnorse-medieval.glaem

@@ -0,0 +1,127 @@
+\**
+
+Glǽmscribe (also written Glaemscribe) is a software dedicated to
+the transcription of texts between writing systems, and more 
+specifically dedicated to the transcription of J.R.R. Tolkien's 
+invented languages to some of his devised writing systems.
+
+Copyright (C) 2015 Benjamin Babut (Talagan).
+
+This program is free software: you can redistribute it and/or modify
+it under the terms of the GNU Affero General Public License as published by
+the Free Software Foundation, either version 3 of the License, or
+any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU Affero General Public License for more details.
+
+You should have received a copy of the GNU Affero General Public License
+along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+**\
+
+\language "Old Norse"
+\writing  "Runes"
+\mode     "Futhark Codex Runicus"
+\version  "0.0.1"
+\authors  "Talagan (Benjamin Babut)"
+
+\charset  unicode_runes true
+
+\beg      preprocessor
+  \downcase
+\end
+
+\beg      processor
+    
+  \beg    rules litteral
+    {A}       === (a,á) 
+    {E}       === (e,é) 
+    {I}       === (i,í,j)
+    {O}       === (o,ó)
+    {U}       === (u,ú)
+    {Y}       === (y,ý)
+
+    {AE}      === (æ,ǽ,ę)
+    {OE}      === (ø,ǿ,œ)
+    {OTREM}   === (ö,ǫ)
+    {AEI}     === (æi,ei)
+
+    \**  VOWELS **\
+    
+    \**  ą (> a, o, á, ó plus tard)   **\
+
+    {A}       --> SHORT_TWIG_AR
+    {E}       --> RUNIC_E
+    {I}       --> ISS 
+    {O}       --> RUNIC_O
+    {U}       --> UR
+    {Y}       --> LONG_BRANCH_YR
+    {AE}      --> LONG_BRANCH_AR
+    {OE}      --> RUNIC_OE
+    {OTREM}   --> RUNIC_O       \** # ö en islandais **\
+    ǭ         --> SHORT_TWIG_AR \** # á en islandais  **\
+    {AEI}     --> LONG_BRANCH_AR ISS    
+    
+    \**  au: ok    **\
+    {E}{Y}    --> LONG_BRANCH_AR LONG_BRANCH_YR
+    {OE}{Y}   --> LONG_BRANCH_AR LONG_BRANCH_YR                       
+
+    \**  CONSONANTS **\
+  
+    b         --> BJARKAN
+    c         --> RUNIC_C
+    \**  bb: ok **\
+    \**  mb: ok **\
+    d         --> RUNIC_D
+    \**  dd: ok **\
+    \**  nd: ok **\
+    ð         --> THORN
+    (f,f_)    --> FEHU \** # Second part is unuseful but exists in other modes **\
+    _g        --> RUNIC_G \** # Initial / After prefix **\
+    (g,g_)    --> LONG_BRANCH_HAGALL \** # Median / Final Spirant **\
+    gg        --> RUNIC_G RUNIC_G
+    ng        --> SHORT_TWIG_NAUD RUNIC_G
+    h         --> LONG_BRANCH_HAGALL
+    k         --> KAUN
+    \**  kk: ok **\
+    \**  nk: ok **\
+    l         --> LOGR
+    \**  ll: ok **\
+    m         --> LONG_BRANCH_MADR
+    \**  mm: ok **\
+    n         --> SHORT_TWIG_NAUD
+    \**  nn: ok **\
+    p         --> DOTTED_P
+    \**  pp: ok **\
+    \**  mp: ok **\
+    r         --> REID
+    \**  rr: ok **\
+    \**  ř < z = rune ýr, none in this mode **\
+    s         --> SIGEL
+    \**  ss: ok **\
+    t         --> SHORT_TWIG_TYR
+    nt        --> SHORT_TWIG_TYR
+    \**  tt: ok **\
+    þ        --> THORN
+    vv       --> FEHU  \** # v (< f) **\
+    v        --> URUZ  \** # v (< w)  **\
+    w        --> URUZ  \** # Should not exist but let's handle it **\
+    x        --> RUNIC_X                 
+    z        --> RUNIC_Z
+  \end
+  
+  \beg    rules  punctuation
+    , --> RUNIC_SINGLE_PUNCTUATION
+    ; --> RUNIC_SINGLE_PUNCTUATION
+    : --> RUNIC_MULTIPLE_PUNCTUATION
+    . --> RUNIC_MULTIPLE_PUNCTUATION
+    ! --> RUNIC_MULTIPLE_PUNCTUATION
+    ? --> RUNIC_CROSS_PUNCTUATION	
+  \end
+\end
+  
+    
+