GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/src/french/PhonoFre.gf
View File

@@ -12,12 +12,14 @@ oper
"I" ; "Î" ; "O" ; "Ô" ; "U" ; "Û" ; "Y" "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. -- The following morphemes are the most common uses of elision.
elisDe = elision "d" ; 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" ; elisLe = elision "l" ;
elisNe = elision "n" ; elisNe = elision "n" ;
elisQue = elision "qu" ; elisQue = elision "qu" ;

4
lib/src/italian/PhonoIta.gf
View File

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

12
lib/src/translator/TranslateIta.gf
View File

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

12
lib/src/translator/TranslateSpa.gf
View File

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