glaemscribe 1.0.19 → 1.1.0

data/glaemresources/modes/blackspeech.glaem

@@ -27,18 +27,56 @@ along with this program.  If not, see <http://www.gnu.org/licenses/>.
 \beg changelog
   \entry 0.0.1 "First version"
   \entry 0.0.2 "Ported to virtual chars."
+  \entry 0.0.3 "Merging with blackspeech Annatar".
+  \entry 0.0.4 "Adding double tehtar handling."
+  \entry 0.0.5 "Fixing ORE/ROMEN, refactoring."
+  \entry 0.0.6 "Added support for the FreeMonoTengwar font"
+  \entry "0.1.0" "Added support for the Tengwar Elfica font"
 \end
 
 \language "Black Speech"
 \writing  "Tengwar"
 \mode     "General Use"
-\version  "0.0.2"
-\authors  "Talagan (Benjamin Babut)"
+\version  "0.1.0"
+\authors  "J.R.R. Tolkien, impl. Talagan (Benjamin Babut)"
  
-\charset  tengwar_ds         true
-\charset  tengwar_ds_eldamar false
+\charset  tengwar_ds_sindarin false
+\charset  tengwar_ds_parmaite false
+\charset  tengwar_ds_eldamar  false
+\charset  tengwar_ds_annatar  true
+\charset  tengwar_ds_elfica   false
+\charset  tengwar_freemono    false
 
 \beg      options
+
+  \beg option reverse_o_u_tehtar O_UP_U_DOWN
+    \value O_UP_U_DOWN 1
+    \value U_UP_O_DOWN 2
+  \end
+
+  \beg option long_vowels_format LONG_VOWELS_USE_DOUBLE_TEHTAR
+    \value LONG_VOWELS_USE_LONG_CARRIER 1
+    \value LONG_VOWELS_USE_DOUBLE_TEHTAR 2
+  \end  
+  
+  \beg option double_tehta_e true
+    \visible_when 'long_vowels_format == LONG_VOWELS_USE_DOUBLE_TEHTAR'
+  \end
+  \beg option double_tehta_i true
+    \visible_when 'long_vowels_format == LONG_VOWELS_USE_DOUBLE_TEHTAR'
+  \end
+  \beg option double_tehta_o true
+    \visible_when 'long_vowels_format == LONG_VOWELS_USE_DOUBLE_TEHTAR'
+  \end
+  \beg option double_tehta_u true
+    \visible_when 'long_vowels_format == LONG_VOWELS_USE_DOUBLE_TEHTAR'
+  \end
+  
+  \beg option consonant_modification_style CONSONANT_MODIFICATION_STYLE_WAVE
+    \value CONSONANT_MODIFICATION_STYLE_WAVE 0
+    \value CONSONANT_MODIFICATION_STYLE_BAR 1
+  \end
+  
   \option reverse_numbers true
   \beg option numbers_base BASE_12
     \value    BASE_10 10
@@ -65,6 +103,9 @@ along with this program.  If not, see <http://www.gnu.org/licenses/>.
   \rxsubstitute "(ō|ô|oo)" "ó"
   \rxsubstitute "(ū|û|uu)" "ú"
 
+  \** For ORE/ROMEN **\
+  \rxsubstitute "r(a|e|i|o|u|á|é|í|ó|ú)" "R\\1"
+
   \** Preprocess numbers **\
   \elvish_numbers "\\eval numbers_base" "\\eval reverse_numbers"
 \end
@@ -72,118 +113,151 @@ along with this program.  If not, see <http://www.gnu.org/licenses/>.
 \beg      processor
 
   \beg    rules litteral
-    {A}                 === a
-    {AA}                === á
-    {E}                 === e
-    {EE}                === é
-    {I}                 === i
-    {II}                === í
-    {O}                 === o
-    {OO}                === ó
-    {U}                 === u
-    {UU}                === ú
-    
-    {AI}                === {A}{I} \** attested **\
-    {AU}                === {A}{U} \** attested **\
-    {OI}                === {O}{I} \** Not quite sure (dushgoi) **\
-    
+     
     {K}                 === (c,k)
     
-    {VOWELS}            === {A}          * {E}          * {I}         * {O}       * {U}
-    {LVOWELS}           === {AA}         * {EE}         * {II}        * {OO}      * {UU}
+    \if "consonant_modification_style == CONSONANT_MODIFICATION_STYLE_WAVE"
+      {GEMINATE} === GEMINATE_SIGN_TILD
+      {NASAL}    === NASALIZE_SIGN_TILD
+    \else
+      {GEMINATE} === GEMINATE_SIGN
+      {NASAL}    === NASALIZE_SIGN
+    \endif
+    
+    {VOWELS}            === a               *  e              * i              * o              *  u
+    {LVOWELS}           === á               *  é              * í              * ó              *  ú
     
-    \** Revers o and u **\
-    {TEHTAR}            === A_TEHTA      * E_TEHTA      * I_TEHTA     *  U_TEHTA  * O_TEHTA      
+    \if "reverse_o_u_tehtar == U_UP_O_DOWN"
+      {O_LOOP}        === O_TEHTA
+      {O_LOOP_DOUBLE} === O_TEHTA_DOUBLE
+      {U_LOOP}        === U_TEHTA
+      {U_LOOP_DOUBLE} === U_TEHTA_DOUBLE
+    \else
+      {O_LOOP}        === U_TEHTA
+      {O_LOOP_DOUBLE} === U_TEHTA_DOUBLE
+      {U_LOOP}        === O_TEHTA
+      {U_LOOP_DOUBLE} === O_TEHTA_DOUBLE
+    \endif   
+       
+    {_TEHTAR_}          === A_TEHTA         * E_TEHTA         * I_TEHTA       *  {O_LOOP}  * {U_LOOP}      
      
-    {DIPHTHONGS}         === {AI}            * {AU}            *  {OI}              
-    {_DIPHTHONGS_}         === YANTA A_TEHTA   * URE A_TEHTA     * YANTA U_TEHTA  
+    {DIPHTHONGS}        === ai              * au              * oi          
+    {_DIPHTHONGS_}      === YANTA A_TEHTA   * URE A_TEHTA     * YANTA {O_LOOP}  
+    {WDIPHTHONGS}       === * {DIPHTHONGS}
+    {_WDIPHTHONGS_}     === * {_DIPHTHONGS_}
+      
+		{WLONG}     === {NULL} \** long vowels that can be used as tehtar **\
+    {_WLONG_}   === {NULL} \** tehtar of long vowels that can be used as tehtar **\
+		
+		{_LONG_A_}      === ARA A_TEHTA
+		{_LONG_E_}      === ARA E_TEHTA	
+		{_LONG_I_}      === ARA I_TEHTA
+		{_LONG_O_}      === ARA {O_LOOP}	
+		{_LONG_U_}      === ARA {U_LOOP}
+		{_LONE_LONG_A_} === {_LONG_A_}
+		{_LONE_LONG_E_} === {_LONG_E_}
+		{_LONE_LONG_I_} === {_LONG_I_}
+		{_LONE_LONG_O_} === {_LONG_O_}
+		{_LONE_LONG_U_} === {_LONG_U_}
+    
+		\if "long_vowels_format == LONG_VOWELS_USE_DOUBLE_TEHTAR"
+	    \if double_tehta_e
+		    {_LONG_E_}       === E_TEHTA_DOUBLE
+		    {_LONE_LONG_E_}  === TELCO {_LONG_E_}
+				{WLONG}          === {WLONG}   * é
+        {_WLONG_}        === {_WLONG_} * {_LONG_E_}
+			\endif
+		  \if double_tehta_i
+		    {_LONG_I_}       === I_TEHTA_DOUBLE
+		    {_LONE_LONG_I_}  === TELCO {_LONG_I_}
+				{WLONG}          === {WLONG}   * í             
+        {_WLONG_}        === {_WLONG_} * {_LONG_I_}
+		  \endif
+		  \if double_tehta_o
+		    {_LONG_O_}       === {O_LOOP_DOUBLE}
+		    {_LONE_LONG_O_}  === TELCO {_LONG_O_}
+				{WLONG}          === {WLONG}   * ó             
+        {_WLONG_}        === {_WLONG_} * {_LONG_O_}
+		  \endif
+		  \if double_tehta_u
+		    {_LONG_U_}       === {U_LOOP_DOUBLE}
+		    {_LONE_LONG_U_}  === TELCO {_LONG_U_}
+				{WLONG}          === {WLONG}   * ú            
+        {_WLONG_}        === {_WLONG_} * {_LONG_U_}
+		  \endif
+    \endif  
+			
+		{_LTEHTAR_}     === {_LONG_A_} * {_LONG_E_} * {_LONG_I_} * {_LONG_O_} * {_LONG_U_}
          
-    [{VOWELS}]        -->   TELCO [{TEHTAR}]  \** Replace isolated short vowels **\
-    [{LVOWELS}]       -->   ARA [{TEHTAR}]  \**  Replace long vowels **\
-    [{DIPHTHONGS}]    -->  [{_DIPHTHONGS_}]  \**  Replace diphthongs **\
-
-    b             --> UMBAR
-    [{VOWELS}] b  --> UMBAR [{TEHTAR}]
-
-    d             --> ANDO
-    [{VOWELS}] d  --> ANDO [{TEHTAR}]
+    {V_D}           === [ {VOWELS} {WLONG}  ]
+    {V_D_WN}        === [ {VOWELS} {WLONG} * {NULL} ]
+
+    {_V_D_}         === [ {_TEHTAR_} {_WLONG_} ]
+    {_V_D_WN_}      === [ {_TEHTAR_} {_WLONG_} * {NULL} ]
+		
+		\** LONE SHORT VOWELS **\
+    [{VOWELS}]    --> TELCO [{_TEHTAR_}]  \** Replace isolated short vowels **\
     
-    f             --> FORMEN 
-    [{VOWELS}] f  --> FORMEN_EXT [{TEHTAR}] \** Beware. **\ 
-
-    g             --> UNGWE
-    [{VOWELS}] g  --> UNGWE [{TEHTAR}]
-
-    gh            --> UNGWE_EXT
-    [{VOWELS}] gh --> UNGWE_EXT [{TEHTAR}]
-
-    h             --> HYARMEN
-    [{VOWELS}] h  --> HYARMEN [{TEHTAR}]
+		\** LONE LONG VOWELS **\	
+		[{LVOWELS}]   --> [{_LONE_LONG_A_} * {_LONE_LONG_E_} * {_LONE_LONG_I_} * {_LONE_LONG_O_} * {_LONE_LONG_U_}]
+    
+    [{DIPHTHONGS}] -->   [{_DIPHTHONGS_}]     \**  Replace diphthongs **\
+    
+    \** ========================= **\
+    
+    {V_D_WN}p     --> PARMA {_V_D_WN_}
+    {V_D_WN}t     --> TINCO {_V_D_WN_}
+    {V_D_WN}{K}   --> QUESSE {_V_D_WN_}
+  
+    {V_D_WN} b  --> UMBAR {_V_D_WN_}
+    {V_D_WN} d  --> ANDO {_V_D_WN_}
+    {V_D_WN} f  --> FORMEN_EXT {_V_D_WN_} \** Beware. **\ 
+    {V_D_WN} g  --> UNGWE {_V_D_WN_}
+    {V_D_WN} gh --> UNGWE_EXT {_V_D_WN_}
+    {V_D_WN} h  --> HYARMEN {_V_D_WN_}
 
     \** ======================== **\
 
-    {K}             --> QUESSE
-    [{VOWELS}]{K}   --> QUESSE [{TEHTAR}] 
-
-    {K}h            --> HWESTA
-    [{VOWELS}]{K}h  --> HWESTA_EXT [{TEHTAR}] \** Take care. **\  
+    {K}h          --> HWESTA
+    {V_D}{K}h     --> HWESTA_EXT {_V_D_} \** Take care. **\  
 
     \** ======================== **\
 
-    l             --> LAMBE
-    [{VOWELS}] l  --> LAMBE [{TEHTAR}] 
+    {V_D_WN} l  --> LAMBE {_V_D_WN_} 
 
     \** ======================== **\
 
-    m             --> MALTA
-    [{VOWELS}] m  --> MALTA [{TEHTAR}]
-
-    mb            --> UMBAR NASALIZE_SIGN_TILD
-    [{VOWELS}] mb --> UMBAR NASALIZE_SIGN_TILD [{TEHTAR}]
-
-    mp            --> PARMA NASALIZE_SIGN_TILD
-    [{VOWELS}] mp --> PARMA NASALIZE_SIGN_TILD [{TEHTAR}]
+    {V_D_WN} m  --> MALTA {_V_D_WN_}
+    {V_D_WN} mb --> UMBAR {NASAL} {_V_D_WN_}
+    {V_D_WN} mp --> PARMA {NASAL} {_V_D_WN_}
 
     \** ======================== **\
     
-    n               --> NUMEN
-    [{VOWELS}]n     --> NUMEN [{TEHTAR}] 
-
-    n{K}            --> QUESSE NASALIZE_SIGN_TILD
-    [{VOWELS}]n{K}  --> QUESSE NASALIZE_SIGN_TILD [{TEHTAR}] 
+    {V_D_WN}n   --> NUMEN {_V_D_WN_} 
+    {V_D_WN}n{K}  --> QUESSE {NASAL} {_V_D_WN_} 
 
     \** ======================== **\
     
-    p             --> PARMA
-
-    r             --> ROMEN
-    r_            --> ORE
-    [{VOWELS}]r   --> ORE [{TEHTAR}]
-
-    [{VOWELS}]rb  --> ORE [{TEHTAR}] UMBAR
-    [{LVOWELS}]rb --> ARA [{TEHTAR}] ORE UMBAR
-
-    [{VOWELS}]rz  --> ORE [{TEHTAR}] ESSE
-    [{LVOWELS}]rz --> ARA [{TEHTAR}] ORE ESSE
+    \** ROMEN / ORE handling probably not accurate **\
+    {V_D_WN}r   --> ORE   {_V_D_WN_}
+    {V_D_WN}R   --> ROMEN {_V_D_WN_}
     
     \** ======================== **\
 
     s             --> SILME
+    {V_D} s       --> SILME_NUQUERNA {_V_D_}
+    z             --> ESSE    
+    {V_D} z       --> ESSE_NUQUERNA {_V_D_}
 
     \** ======================== **\
 
     sh            --> AHA             
-    [{VOWELS}] sh --> AHA_EXT [{TEHTAR}] \** BEWARE. **\
+    {V_D} sh      --> AHA_EXT {_V_D_} \** BEWARE. **\
     
-    t             --> TINCO
-    [{VOWELS}]t   --> TINCO [{TEHTAR}]
 
     th            --> SULE
     
     y             --> ANNA
-    
-    z             --> ESSE    
-    [{VOWELS}] z  --> ESSE_NUQUERNA [{TEHTAR}]
 
   \end
   

data/glaemresources/modes/english-ipa.glaem

@@ -0,0 +1,49 @@
+\**
+
+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/>.
+
+**\
+
+\** FOR NOW THIS IS JUST A TEMPLATE **\
+
+\beg changelog
+\end
+
+\language "English"
+\writing  "Tengwar"
+\mode     "Phonemic IPA"
+\version  "0.0.1"
+\authors  "J.R.R. Tolkien, impl. Talagan (Benjamin Babut)"
+ 
+\charset  tengwar_ds_sindarin false
+\charset  tengwar_ds_parmaite false
+\charset  tengwar_ds_eldamar  false
+\charset  tengwar_ds_annatar  true
+\charset  tengwar_freemono    false
+
+\beg  preprocessor
+\end
+
+\beg  processor
+\end
+
+\beg  postprocessor
+\end

data/glaemresources/modes/french-ipa.glaem

@@ -0,0 +1,49 @@
+\**
+
+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/>.
+
+**\
+
+\** FOR NOW THIS IS JUST A TEMPLATE **\
+
+\beg changelog
+\end
+
+\language "French"
+\writing  "Tengwar"
+\mode     "Phonemic IPA"
+\version  "0.0.1"
+\authors  "J.R.R. Tolkien, impl. Talagan (Benjamin Babut)"
+ 
+\charset  tengwar_ds_sindarin false
+\charset  tengwar_ds_parmaite false
+\charset  tengwar_ds_eldamar  false
+\charset  tengwar_ds_annatar  true
+\charset  tengwar_freemono    false
+
+\beg  preprocessor
+\end
+
+\beg  processor
+\end
+
+\beg  postprocessor
+\end

data/glaemresources/modes/{oldnorse-medieval.glaem → futhark-runicus.glaem}

@@ -26,7 +26,7 @@ along with this program.  If not, see <http://www.gnu.org/licenses/>.
 \writing  "Runes"
 \mode     "Futhark Codex Runicus"
 \version  "0.0.1"
-\authors  "Talagan (Benjamin Babut)"
+\authors  "Historical, impl. Talagan (Benjamin Babut)"
 
 \charset  unicode_runes true
 
@@ -40,13 +40,13 @@ along with this program.  If not, see <http://www.gnu.org/licenses/>.
     {A}       === (a,á) 
     {E}       === (e,é) 
     {I}       === (i,í,j)
-    {O}       === (o,ó)
+    {O}       === (o,ó,ą,ą́)
     {U}       === (u,ú)
     {Y}       === (y,ý)
 
     {AE}      === (æ,ǽ,ę)
     {OE}      === (ø,ǿ,œ)
-    {OTREM}   === (ö,ǫ,ǫ́)
+    {OTREM}   === (ö,ǫ,ǫ́,ǭ)
     {AEI}     === (æi,ei)
 
     \**  VOWELS **\
@@ -97,7 +97,7 @@ along with this program.  If not, see <http://www.gnu.org/licenses/>.
     p         --> DOTTED_P
     \**  pp: ok **\
     \**  mp: ok **\
-    r         --> REID
+    (r,ř)     --> REID
     \**  rr: ok **\
     \**  ř < z = rune ýr, none in this mode **\
     s         --> SIGEL

data/glaemresources/modes/futhark-younger.glaem

@@ -0,0 +1,129 @@
+\**
+
+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     "Younger Futhark"
+\version  "0.0.1"
+\authors  "Historical impl. Bertrand Bellet"
+
+\charset  unicode_runes true
+
+\beg options 
+  \beg option runic_style RUNIC_STYLE_LONG_BRANCH 
+    \value RUNIC_STYLE_LONG_BRANCH 0
+    \value RUNIC_STYLE_SHORT_TWIG  1
+  \end
+\end
+
+\beg      preprocessor
+  \downcase
+  
+  \** Dis-ambiguate q,c,k **\
+  \rxsubstitute "(q|c|k)" "k"
+\end
+
+\beg      processor
+    
+  \beg    rules litteral
+    {A}       === (a,á,æ,ǽ,ę) 
+    {I}       === (i,í,j,e,é)
+    {O}       === (ą,ą́,ö,ǫ,ǫ́,ǭ)
+    {U}       === (u,ú,o,ó,y,ý,ø,ǿ,œ)
+    {AI}      === (æi,ei)
+  	{AU}      === (au,ǫu,ey,æy,øy,œy)
+
+    \**  VOWELS **\
+    \if "runic_style == RUNIC_STYLE_LONG_BRANCH"
+      {AR}      === LONG_BRANCH_AR
+      {OSS}     === LONG_BRANCH_OSS     
+    \else
+      {AR}      === SHORT_TWIG_AR
+      {OSS}     === SHORT_TWIG_OSS
+    \endif
+    
+    {A}       --> {AR}
+    {I}       --> ISS 
+    {O}       --> {OSS}
+    {U}       --> UR
+    {AI}      --> {AR} ISS 
+	  {AU}      --> {OSS} UR
+    
+    \** CONSONANTS **\
+    \if "runic_style == RUNIC_STYLE_LONG_BRANCH"
+      {BJARKAN} === BJARKAN
+      {HAGALL}  === LONG_BRANCH_HAGALL
+      {MADR}    === LONG_BRANCH_MADR
+      {NAUD}    === NAUD
+      {YR}      === LONG_BRANCH_YR
+      {SOL}     === LONG_BRANCH_SOL
+      {TYR}     === TYR
+    \else
+      {BJARKAN} === SHORT_TWIG_BJARKAN
+      {HAGALL}  === SHORT_TWIG_HAGALL
+      {MADR}    === SHORT_TWIG_MADR
+      {NAUD}    === SHORT_TWIG_NAUD
+      {YR}      === SHORT_TWIG_YR
+      {SOL}     === SHORT_TWIG_SOL
+      {TYR}     === SHORT_TWIG_TYR
+    \endif
+    
+    (b,bb,mb,p,pp,mp) --> {BJARKAN}
+    (f,ff)            --> FE
+    _g                --> KAUN      \** # Initial / After prefix **\
+    (g,g_)            --> {HAGALL}  \** # Median or final spirant **\
+    (h,hh)            --> {HAGALL}
+    (k,nk,kk,gg,ng)   --> KAUN
+    (l,ll)            --> LOGR
+    (m,mm)            --> {MADR}
+    (n,nn)            --> {NAUD}
+    (r,rr)            --> REID
+    (ř)               --> {YR} \**  ř < Germanic z **\
+    (s,ss)            --> {SOL}
+	  (t,tt,nt,d,dd,nd) --> {TYR}
+    (þ,þþ,ð,ðð)       --> THURS
+    (v,vv,w,ww)       --> URUZ
+    x                 --> KAUN {SOL}                 
+    z                 --> {TYR} {SOL}
+	
+    \**  nasalization of a **\
+		{A}(m,mm)        --> {OSS} {MADR}
+		{A}(n,nn)        --> {OSS} {NAUD}
+		{A}(mp,mb)       --> {OSS} {BJARKAN}
+		{A}(nt,nd)       --> {OSS} {TYR}
+		{A}(nk,ng)       --> {OSS} KAUN				
+  \end
+  
+  \beg    rules  punctuation
+    , --> RUNIC_SINGLE_PUNCTUATION
+    ; --> RUNIC_SINGLE_PUNCTUATION
+    : --> RUNIC_MULTIPLE_PUNCTUATION
+    . --> RUNIC_MULTIPLE_PUNCTUATION
+    ! --> RUNIC_MULTIPLE_PUNCTUATION
+    ? --> RUNIC_CROSS_PUNCTUATION	
+  \end
+\end
+  
+    
+