glaemscribe 1.2.0 → 1.3.1

data/glaemresources/modes/japanese-tengwar.glaem

@@ -22,11 +22,16 @@ along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 **\
 
+\beg changelog 
+  \entry "0.0.1" "Initial version"
+  \entry "0.0.2" "Corrected 億 to 10^8, added support for セィ and ゼィ. Thanks to Roman Rausch for this feedback!"
+\end
+
 \language "Japanese"
 \writing  "Tengwar"
 \mode			"Japanese Tengwar - G*"
 \authors	"Talagan (Benjamin Babut)"
-\version	"0.0.1"
+\version	"0.0.2"
  
 \world      primary
 \invention  experimental 
@@ -531,14 +536,14 @@ along with this program.  If not, see <http://www.gnu.org/licenses/>.
     \deploy serie {SERIE}  {TENGWA} {_PALATAL_}  {__SV__} {__LV__} {NULL}
   
     \** si **\
-		{SERIE}     === [(スィ,si)] 
+		{SERIE}     === [(スィ,セィ,si)] 
 		{TENGWA}    === SILME_NUQUERNA
     {__SV__} === [{_I_}]
     {__LV__} === [{_II_}]
     \deploy serie {SERIE}  {TENGWA} {_CANCELLER_}  {__SV__} {__LV__} {NULL}
 	
     \** zi **\
-		{SERIE}   === [(ズィ,zi)] 
+		{SERIE}   === [(ズィ,ゼィ,zi)] 
 		{TENGWA}  === ESSE_NUQUERNA
     {__SV__}  === [{_I_}]
     {__LV__}  === [{_II_}]
@@ -749,7 +754,7 @@ along with this program.  If not, see <http://www.gnu.org/licenses/>.
     百 --> NUM_2 CIRC_TEHTA_INF
     千 --> NUM_3 CIRC_TEHTA_INF
     万 --> NUM_4 CIRC_TEHTA_INF
-    億 --> NUM_9 CIRC_TEHTA_INF
+    億 --> NUM_8 CIRC_TEHTA_INF
     0 --> NUM_0
     1 --> NUM_1
     2 --> NUM_2

data/glaemresources/modes/lang_belta-tengwar-dadef.glaem

@@ -0,0 +1,248 @@
+\**
+
+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/>.
+
+**\
+
+\beg changelog
+  \entry "0.0.1" "Ported from Westron"
+  \entry "0.0.2" "Simplified"
+  \entry "0.0.3" "Yaterash poetic forms"
+  \entry "0.0.4" "English numeric defaults, use lsd for nasal, poetic finals"
+  \entry "0.0.5" "Bikang option: beacon final hints"
+  \entry "0.0.6" "Lowng & kuwendi options"
+  \entry "0.1.0" "clean up pass"
+\end
+\version  "0.1.0"
+
+\** Lang Belta mode for glaemscribe **\
+\language "Lang Belta"
+\writing  Tengwar
+\mode     "Lang Belta (The Expanse) Tengwar - G*"
+\authors  "Da Def, based on Talagan's Westron"
+
+\world     other_world
+\invention experimental
+
+\raw_mode "raw-tengwar"
+
+\charset  tengwar_ds_sindarin false
+\charset  tengwar_ds_parmaite false
+\charset  tengwar_ds_eldamar  false
+\charset  tengwar_ds_annatar  false
+\charset  tengwar_ds_elfica   false
+
+\charset  tengwar_guni_sindarin false
+\charset  tengwar_guni_parmaite false
+\charset  tengwar_guni_eldamar  false
+\charset  tengwar_guni_annatar  true
+\charset  tengwar_guni_elfica   false
+
+\charset  tengwar_freemono    false
+\charset  tengwar_telcontar   false
+
+\beg      options
+  \option wit_yaterash false
+  
+  \beg option bikang true 
+    \visible_when "wit_yaterash == true"
+  \end
+  
+  \beg option lowng false
+  	\visible_when "wit_yaterash == true"
+  \end
+  
+  \beg option kuwendi false
+  	\visible_when "wit_yaterash == true && lowng == false"
+  \end
+  
+  \option implicit_a false
+  \option reverse_numbers false
+  \beg option numbers_base BASE_10
+    \value    BASE_10 10
+    \value    BASE_12 12
+  \end
+\end
+
+\beg      preprocessor
+  \** Work exclusively downcase **\
+  \downcase
+
+  \** protect NOLDO and NWALME **\
+  \rxsubstitute "(ny)" "ɲ"
+  \rxsubstitute "(ng)" "ŋ"
+
+  \** Preprocess numbers **\
+  \elvish_numbers "\\eval numbers_base" "\\eval reverse_numbers"
+\end
+
+\beg      processor
+  \beg    rules literal
+
+    \if implicit_a
+        {_A_} === {NULL}
+        {_X_} === NO_VOWEL_DOT
+    \else
+        {_A_} === A_TEHTA
+        {_X_} === {NULL}
+    \endif
+      
+    {PENNAR}  === a     * e       * i       * ow               * o       * u
+    {TEHTAR}  === {_A_} * E_TEHTA * I_TEHTA * A_TEHTA_REVERSED * O_TEHTA * U_TEHTA
+    
+    \** For now, shãsa is a hapax **\
+    {PENNAR}  === {PENNAR} * ã  
+    {TEHTAR}  === {TEHTAR} * E_TEHTA_GRAVE
+
+    \** tentative 
+    {PENNAR}  === {PENNAR} * ẽ               * ĩ              * õw       * õ               * ũ
+    {TEHTAR}  === {TEHTAR} * E_TEHTA_DOUBLE  * I_TEHTA_DOUBLE * WA_TEHTA * O_TEHTA_DOUBLE  * U_TEHTA_DOUBLE
+    **\
+
+    {L1_S}    === t     * p      * ch    * k
+    {L1_T}    === TINCO * PARMA  * CALMA * QUESSE
+    {L2_S}    === d     * b      * dzh   * g
+    {L2_T}    === ANDO  * UMBAR  * ANGA  * UNGWE
+    {L3_S}    ===         f      * sh    * x
+    {L3_T}    ===         FORMEN * AHA   * HWESTA
+    {L4_S}    ===         v
+    {L4_T}    ===         AMPA
+    {L5_S}    === n     * m      * ɲ     * ŋ
+    {L5_T}    === NUMEN * MALTA  * NOLDO * NWALME
+    {L6_S}    ===         w      * y
+    {L6_T}    ===         VALA   * ANNA
+    {IR_S}    === r     * l     * s              * z
+    {IR_T}    === ROMEN * LAMBE * SILME_NUQUERNA * ESSE_NUQUERNA
+
+    {TAPTAR}  === {L1_S} * {L2_S} * {L3_S} * {L4_S} * {L5_S} * {L6_S} * {IR_S}
+    {TENGWAR} === {L1_T} * {L2_T} * {L3_T} * {L4_T} * {L5_T} * {L6_T} * {IR_T}
+
+    [{TAPTAR}]           --> [{TENGWAR}] {_X_}
+    [{TAPTAR}][{PENNAR}] --> [{TENGWAR}][{TEHTAR}]
+              [{PENNAR}] -->   TELCO    [{TEHTAR}]
+
+    \if wit_yaterash
+      
+      \if lowng
+        {TAPTARN}  === nt        * nd        * mp        * mb        * nsh     * ns
+        {TENGWARN} === TINCO_EXT * ANDO_EXT  * PARMA_EXT * UMBAR_EXT * AHA_EXT * TW_HW_LOWDHAM
+
+      	tn[{PENNAR}] --> TW_MH [{TEHTAR}]
+      	lt[{PENNAR}] --> ALDA  [{TEHTAR}]
+      	
+        [{TAPTARN}][{PENNAR}] --> [{TENGWARN}][{TEHTAR}]
+      \else
+      	tn[{PENNAR}]              -->             NUMEN THINNAS  [{TEHTAR}]
+      	l[{TAPTAR}][{PENNAR}]     --> [{TENGWAR}] PALATAL_SIGN   [{TEHTAR}]
+      	
+        \if kuwendi
+          {NASAL} === NASALIZE_SIGN_TILD
+        \else
+          {NASAL} === CIRC_TEHTA_INF
+        \endif
+      
+        (m,n)[{TAPTAR}][{PENNAR}] --> [{TENGWAR}] {NASAL}        [{TEHTAR}]
+      \endif
+
+      \if bikang
+        (m,t)_    --> O_TEHTA_INF
+        (ŋ)_      --> E_TEHTA_DOUBLE_INF
+        (f,k,p)_  --> U_TEHTA_INF
+        (l,x,sh)_ --> E_TEHTA_INF
+      \else
+        (t,k,p,f,x,sh,m,ŋ,l)_ --> GEMINATE_SIGN_TILD
+      \endif
+      
+    \endif
+    
+  \end
+
+  \beg rules punctutation
+    . --> 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}
+
+    \** NBSP **\
+    {NBSP} --> NBSP
+
+    \** Quotes **\
+
+    “ --> DQUOT_OPEN
+    ” --> DQUOT_CLOSE
+    « --> DQUOT_OPEN
+    » --> DQUOT_CLOSE
+
+    - --> PUNCT_DOT
+    – --> PUNCT_TILD
+    — --> PUNCT_DTILD
+
+    [ --> PUNCT_PAREN_L
+    ] --> PUNCT_PAREN_R
+    ( --> PUNCT_PAREN_L
+    ) --> PUNCT_PAREN_R
+    { --> PUNCT_PAREN_L
+    } --> PUNCT_PAREN_R
+    < --> PUNCT_PAREN_L
+    > --> PUNCT_PAREN_R
+
+    \** Not universal between fonts ... **\
+    $ --> ELVISH_PAREN
+    ≤ --> RING_MARK_L \** Ring inscription left beautiful stuff **\
+    ≥ --> RING_MARK_R \** Ring inscription right beautiful stuff **\
+  \end
+
+  \beg rules numbers
+    0 --> NUM_0
+    1 --> NUM_1
+    2 --> NUM_2
+    3 --> NUM_3
+    4 --> NUM_4
+    5 --> NUM_5
+    6 --> NUM_6
+    7 --> NUM_7
+    8 --> NUM_8
+    9 --> NUM_9
+    A --> NUM_10
+    B --> NUM_11
+  \end
+
+\end
+
+\beg postprocessor
+  \resolve_virtuals
+\end

data/glaemresources/modes/raw-cirth.glaem

@@ -0,0 +1,154 @@
+\**
+
+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/>.
+
+**\
+
+\** very limited mode, mainly used for writing some doc for glaemscribe. **\
+
+\beg changelog
+  \entry "0.0.1" "Initial version."
+\end
+
+\language "Raw Cirth"
+\writing  "Cirth"
+\mode     "Raw Cirth"
+\version  "0.0.1"
+\authors  "Talagan (Benjamin Babut)"
+
+\world      arda
+\invention  experimental
+
+\metamode true
+
+\charset  cirth_ds true
+
+\beg      preprocessor
+  \** Work exclusively downcase **\
+  \downcase
+\end
+
+\beg processor
+
+  \beg    rules litteral
+    _c1_ --> CIRTH_1
+    _c2_ --> CIRTH_2
+    _c3_ --> CIRTH_3
+    _c4_ --> CIRTH_4
+    _c5_ --> CIRTH_5
+    _c6_ --> CIRTH_6
+    _c7_ --> CIRTH_7
+    _c8_ --> CIRTH_8
+    _c9_ --> CIRTH_9
+    _c10_ --> CIRTH_10
+    _c11_ --> CIRTH_11
+    _c12_ --> CIRTH_12
+    _c13_ --> CIRTH_13
+    _c14_ --> CIRTH_14
+    _c15_ --> CIRTH_15
+    _c16_ --> CIRTH_16
+    _c17_ --> CIRTH_17
+    _c18_ --> CIRTH_18
+    _c19_ --> CIRTH_19
+    _c20_ --> CIRTH_20
+    _c21_ --> CIRTH_21
+    _c22_ --> CIRTH_22
+    _c23_ --> CIRTH_23
+    _c24_ --> CIRTH_24
+    _c25_ --> CIRTH_25
+    _c26_ --> CIRTH_26
+    _c27_ --> CIRTH_27
+    _c28_ --> CIRTH_28
+    _c29_ --> CIRTH_29
+    _c30_ --> CIRTH_30
+    _c31_ --> CIRTH_31
+    _c32_ --> CIRTH_32
+    _c33_ --> CIRTH_33
+    _c34_ --> CIRTH_34
+    _c35_ --> CIRTH_35
+    _c36_ --> CIRTH_36
+    _c37_ --> CIRTH_37
+    _c38_ --> CIRTH_38
+    _c39_ --> CIRTH_39
+    _c40_ --> CIRTH_40
+    _c41_ --> CIRTH_41
+    _c42_ --> CIRTH_42
+    _c43_ --> CIRTH_43
+    _c44_ --> CIRTH_44
+    _c45_ --> CIRTH_45
+    _c46_ --> CIRTH_46
+    _c47_ --> CIRTH_47
+    _c48_ --> CIRTH_48
+    _c49_ --> CIRTH_49
+    _c50_ --> CIRTH_50
+    _c51_ --> CIRTH_51
+    _c52_ --> CIRTH_52
+    _c53_ --> CIRTH_53
+    _c54_ --> CIRTH_54
+    _c55_ --> CIRTH_55
+    _c56_ --> CIRTH_56
+    _c57_ --> CIRTH_57
+    _c58_ --> CIRTH_58
+    _c59_ --> CIRTH_59
+    _c60_ --> CIRTH_60
+
+    _c38alt_ --> CIRTH_38_ALT
+    _c45alt_ --> CIRTH_45_ALT
+    _c51alt_ --> CIRTH_51_ALT
+    _c52alt_ --> CIRTH_52_ALT
+    _c55alt_ --> CIRTH_55_ALT
+    _c56alt_ --> CIRTH_56_ALT
+
+    _ce1_ --> CIRTH_EREB_1
+    _ce2_ --> CIRTH_EREB_2
+    _ce3_ --> CIRTH_EREB_3
+    _ce4_ --> CIRTH_EREB_4
+    _ce5_ --> CIRTH_EREB_5
+    _ce6_ --> CIRTH_EREB_6
+    _ce7_ --> CIRTH_EREB_7
+
+    _1_ --> CIRTH_NUMERAL_1
+    _2_ --> CIRTH_NUMERAL_2
+    _3_ --> CIRTH_NUMERAL_3
+    _4_ --> CIRTH_NUMERAL_4
+    _5_ --> CIRTH_NUMERAL_5
+
+    _{UNDERSCORE}_   --> TEHTA_UNDERLINE
+    _sdot_           --> TEHTA_SUB_DOT
+    _(^,circ)_       --> TEHTA_CIRCUM
+
+    {NBSP}           --> NBSP
+  \end
+
+  \beg rules punctuation
+    , --> CIRTH_PUNCT_DOT
+    . --> CIRTH_PUNCT_MID_DOT
+    (..,:) --> CIRTH_PUNCT_TWO_DOTS
+    ... --> CIRTH_PUNCT_THREE_DOTS
+    (....,::) --> CIRTH_PUNCT_FOUR_DOTS
+  \end
+
+\end
+
+\beg postprocessor
+  \resolve_virtuals
+\end
+