mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-09-28 21:23:39 -06:00
Merge branch 'master' of github.com:GrammaticalFramework/gf-rgl
This commit is contained in:
@@ -387,7 +387,7 @@ lin uncertain_A = mkA "gezur" ; --Apertium
|
|||||||
lin understand_V2 = mkV2 "aditu" ; --| mkV2 "ulertu" ; --Apertium
|
lin understand_V2 = mkV2 "aditu" ; --| mkV2 "ulertu" ; --Apertium
|
||||||
lin university_N = mkN "unibertsitate" ; --Apertium
|
lin university_N = mkN "unibertsitate" ; --Apertium
|
||||||
lin village_N = mkN "herrixka" ; --Apertium
|
lin village_N = mkN "herrixka" ; --Apertium
|
||||||
lin vomit_V = mkV2 "oka" egin_V ; --Apertium
|
lin vomit_V = mkV "oka" egin_V ; --Apertium
|
||||||
|
|
||||||
--------
|
--------
|
||||||
-- W - Y
|
-- W - Y
|
||||||
|
|||||||
@@ -33,7 +33,7 @@ lin
|
|||||||
is_wrong_VP = mkVP (mkA079 "грешен") ;
|
is_wrong_VP = mkVP (mkA079 "грешен") ;
|
||||||
n_units_AP card cn a = mkAP (lin AdA (mkUtt (mkNP <lin Card card : Card> (lin CN cn)))) (lin A a) ;
|
n_units_AP card cn a = mkAP (lin AdA (mkUtt (mkNP <lin Card card : Card> (lin CN cn)))) (lin A a) ;
|
||||||
n_units_of_NP card cn np =
|
n_units_of_NP card cn np =
|
||||||
let unit = mkNP <lin Card card : Card> (lin CN cn)
|
let unit : NP = mkNP <lin Card card : Card> (lin CN cn)
|
||||||
in {
|
in {
|
||||||
s = \\role => unit.s ! role ++ np.s ! R.RObj R.CPrep ;
|
s = \\role => unit.s ! role ++ np.s ! R.RObj R.CPrep ;
|
||||||
gn = unit.gn ;
|
gn = unit.gn ;
|
||||||
|
|||||||
Reference in New Issue
Block a user