forked from GitHub/gf-core
53 lines
1.1 KiB
Plaintext
53 lines
1.1 KiB
Plaintext
--# -path=../common:prelude
|
|
|
|
resource PhonoCat = open Prelude in {
|
|
|
|
flags
|
|
coding = utf8 ;
|
|
|
|
--3 Elision
|
|
--
|
|
-- The phonological rule of *elision* can be defined as follows in GF.
|
|
-- In Catalan it includes both vowels and 'h'.
|
|
|
|
---TODO: L'elisió depén de la tonicitat.
|
|
|
|
oper
|
|
vocal : Strs = strs {
|
|
"a" ; "à" ;
|
|
"e" ; "è" ; "é" ; "o" ; "ò" ; "ó" ;
|
|
"i" ; "í" ; "ï" ; "u" ; "ú" ; "ü" ; "h"
|
|
} ;
|
|
|
|
vocalForta : Strs = strs {
|
|
"a" ; "à" ; "ha" ; "hà" ;
|
|
"e" ; "è" ; "é" ; "he" ; "hè" ; "hé" ;
|
|
"o" ; "ò" ; "ó" ; "ho" ; "hò" ; "hó" ;
|
|
"í" ; "ú" ; "hí" ; "hú" ;
|
|
} ;
|
|
|
|
vocalFeble : Strs = strs {
|
|
"i" ; "ï" ; "u" ; "ü" ;
|
|
"hi" ; "hï" ; "hu" ; "hü" ;
|
|
} ;
|
|
|
|
|
|
elisDe = pre { "de" ; "d'" / vocal };
|
|
elisEl = pre { "el" ; "l'" / vocal } ;
|
|
elisLa = pre { "la" ; "l'" / vocalForta } ;
|
|
elisEm = pre { "em" ; "m'" / vocal } ;
|
|
elisEt = pre { "et" ; "t'" / vocal } ;
|
|
|
|
-- AR after pre syntax change 25/5/2009
|
|
elisEs = pre {
|
|
vocal => "s'" ;
|
|
"s" => "se" ;
|
|
_ => "es"
|
|
} ;
|
|
|
|
--elisEs = pre {
|
|
-- pre { "es" ; "s'" / vocal} ;
|
|
-- "se" / strs { "s" } } ;
|
|
|
|
}
|