mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 08:58:55 -06:00
(Fao) add particle to verbs e.g. "fara út"
This commit is contained in:
@@ -16,4 +16,5 @@ lincat S = {s : Str} ;
|
||||
|
||||
lincat LN,SN,GN,PN = {s : Str} ;
|
||||
|
||||
linref V = \v -> v.Nonfinite ++ v.particle ;
|
||||
}
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@@ -501,7 +501,9 @@ oper
|
||||
|
||||
mkV = overload {
|
||||
mkV : Str -> V = regV; -- Nonfinite
|
||||
mkV : Str -> Str -> V = reg2V -- Nonfinite Indicative;Pres;('PSg', P2)
|
||||
mkV : Str -> Str -> V = reg2V ; -- Nonfinite Indicative;Pres;('PSg', P2)
|
||||
mkV : V -> Str -> V -- particle verb
|
||||
= \v,p -> v ** {particle = p}
|
||||
} ;
|
||||
|
||||
mkVV : V -> VV = \v -> lin VV v ;
|
||||
|
||||
@@ -92,7 +92,7 @@ oper mkAdj : (_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_ : Str) -> Adj =
|
||||
param Tense = Past | Pres ;
|
||||
param PersNum = PSg Person | PPl ;
|
||||
param Person = P1 | P3 | P2 ;
|
||||
oper Verb = {Converb: Str; Imperative_Jussive: Number => Str; Indicative: Tense => PersNum => Str; Nonfinite: Str; Participle: Tense => Str} ; -- 596
|
||||
oper Verb = {Converb: Str; Imperative_Jussive: Number => Str; Indicative: Tense => PersNum => Str; Nonfinite: Str; Participle: Tense => Str ; particle : Str} ; -- 596
|
||||
oper mkVerb : (_,_,_,_,_,_,_,_,_,_,_,_,_,_ : Str) -> Verb =
|
||||
\f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14 ->
|
||||
{ Converb = f1 ;
|
||||
@@ -118,7 +118,8 @@ oper mkVerb : (_,_,_,_,_,_,_,_,_,_,_,_,_,_ : Str) -> Verb =
|
||||
Participle = table {
|
||||
Pres => f13 ;
|
||||
Past => f14
|
||||
}
|
||||
} ;
|
||||
particle = []
|
||||
} ;
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user