GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-07-03 04:28:33 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Por) add ter as optional auxiliary verb

Browse Source 
- make it the default
- add paradigm to pick verb type (pick auxiliary verb or make it
  reflexive)

(Por,Spa) fix lexicon entry
This commit is contained in:
odanoburu
2019-02-14 10:23:10 -02:00
parent 60a750f1bc
commit b825c0e14a
4 changed files with 26 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/portuguese/DiffPor.gf
+9 -3
View File
@@ -8,7 +8,7 @@ instance DiffPor of DiffRomance - [iAdvQuestionInv,chooseTA,otherInv,partAgr,sta
param
Prepos = P_de | P_a | P_em | P_por ;
VType = VHabere | VRefl ;
VType = VTer | VHaver | VRefl ;
oper
partAgr : VType -> Bool ;
@@ -159,7 +159,12 @@ instance DiffPor of DiffRomance - [iAdvQuestionInv,chooseTA,otherInv,partAgr,sta
possCase = \_,_,c -> prepCase c ;
oper
auxVerb : VType -> (VF => Str) = \_ -> haver_V.s ;
auxVerb : VType -> (VF => Str) ;
auxVerb vt = case vt of {
VTer => ter_V.s ;
VHaver => haver_V.s ;
_ => ter_V.s
} ;
negation : RPolarity => (Str * Str) = table {
RPos => <[],[]> ;
@@ -266,11 +271,12 @@ instance DiffPor of DiffRomance - [iAdvQuestionInv,chooseTA,otherInv,partAgr,sta
essere_V : Verb = verboV (ser_Besch "ser") ;
stare_V : Verb = verboV (estar_Besch "estar") ;
ter_V : Verb = verboV (ter_Besch "ter") ;
haver_V : Verb = verboV (haver_Besch "haver") ;
ficar_V : Verb = verboV (ficar_Besch "ficar") ;
verboV : Verbum -> Verb ;
-- make a verb of type haver
verboV v = verbBesch v ** {vtyp = VHabere ; p = [] ; lock_V = <>} ;
verboV v = verbBesch v ** {vtyp = VTer ; p = [] } ;
} ;