1
0
forked from GitHub/gf-core

disabled binding of elision in Ita and Fre, temporarily, to make more inputs parsable

This commit is contained in:
aarne
2014-04-15 21:26:58 +00:00
parent 8873582fde
commit 7527edf2d5
4 changed files with 26 additions and 8 deletions

View File

@@ -12,12 +12,14 @@ oper
"I" ; "Î" ; "O" ; "Ô" ; "U" ; "Û" ; "Y"
} ;
elision : Str -> Str = \d -> d + pre {"e" ; ("'" ++ Predef.BIND) / voyelle} ;
elision : Str -> Str = \d -> d + pre {"e" ; "'" / voyelle} ;
---- elision : Str -> Str = \d -> d + pre {"e" ; ("'" ++ Predef.SOFT_BIND) / voyelle} ;
-- The following morphemes are the most common uses of elision.
elisDe = elision "d" ;
elisLa = pre {"la" ; ("l'" ++ Predef.BIND) / voyelle} ;
elisLa = pre {"la" ; ("l'") / voyelle} ;
---- elisLa = pre {"la" ; ("l'" ++ Predef.SOFT_BIND) / voyelle} ; --- doesn't work properly 15/4/2014
elisLe = elision "l" ;
elisNe = elision "n" ;
elisQue = elision "qu" ;

View File

@@ -17,7 +17,7 @@ oper
} ;
elision : (_,_,_ : Str) -> Str = \il, l', lo ->
pre {il ; (l' ++ Predef.BIND) / vocale ; lo / sImpuro} ;
--- pre {vocale => l' ; sImpuro => lo ; _ => il} ;
---- pre {il ; (l' ++ Predef.SOFT_BIND) / vocale ; lo / sImpuro} ;
pre {vocale => l' ; sImpuro => lo ; _ => il} ; --- doesn't work properly 15/4/2014
}

View File

@@ -2,7 +2,10 @@
concrete TranslateIta of Translate =
TenseIta,
NounIta - [PPartNP],
NounIta - [
PPartNP
,UsePron -- override with a prodrop variant
],
AdjectiveIta,
NumeralIta,
SymbolIta [
@@ -26,10 +29,15 @@ concrete TranslateIta of Translate =
ExtensionsIta [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
DictionaryIta **
open MorphoIta, ResIta, ParadigmsIta, SyntaxIta, CommonScand, (E = ExtraIta), Prelude in {
open MorphoIta, ResIta, ParadigmsIta, SyntaxIta, (E = ExtraIta), (G = GrammarIta), Prelude in {
flags
literal=Symb ;
-- the overrides -----
lin
UsePron p = G.UsePron p | G.UsePron (E.ProDrop p) ;
}

View File

@@ -2,7 +2,10 @@
concrete TranslateSpa of Translate =
TenseSpa,
NounSpa - [PPartNP],
NounSpa - [
PPartNP
,UsePron -- override with a prodrop variant
],
AdjectiveSpa,
NumeralSpa,
SymbolSpa [
@@ -26,10 +29,15 @@ concrete TranslateSpa of Translate =
ExtensionsSpa [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
DictionarySpa **
open MorphoSpa, ResSpa, ParadigmsSpa, SyntaxSpa, CommonScand, (E = ExtraSpa), Prelude in {
open MorphoSpa, ResSpa, ParadigmsSpa, SyntaxSpa, (E = ExtraSpa), (G = GrammarSpa), Prelude in {
flags
literal=Symb ;
-- the overrides -----
lin
UsePron p = G.UsePron p | G.UsePron (E.ProDrop p) ;
}