mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-22 19:22:50 -06:00
path in AllBul to work with Construction ; potential clash in ConstructionHin
This commit is contained in:
@@ -1,4 +1,4 @@
|
|||||||
--# -path=.:../abstract:../common:prelude
|
--# -path=.:../abstract:../common:prelude:../api
|
||||||
--# -coding=cp1251
|
--# -coding=cp1251
|
||||||
|
|
||||||
concrete AllBul of AllBulAbs =
|
concrete AllBul of AllBulAbs =
|
||||||
|
|||||||
@@ -7,7 +7,7 @@ concrete ConstructionHin of Construction = CatHin **
|
|||||||
lin
|
lin
|
||||||
hungry_VP = mkVP (mkA "भूखा") ;
|
hungry_VP = mkVP (mkA "भूखा") ;
|
||||||
thirsty_VP = mkVP (mkA "प्यासा") ;
|
thirsty_VP = mkVP (mkA "प्यासा") ;
|
||||||
has_age_VP card = mkVP (mkNP <card : Card> (mkCN (modN L.year_N))) ;
|
has_age_VP card = mkVP (mkNP <card : Card> (mkCN (mmodN L.year_N))) ;
|
||||||
|
|
||||||
have_name_Cl x y = mkCl (mkNP (E.GenNP x) L.name_N) (lin NP y) ;
|
have_name_Cl x y = mkCl (mkNP (E.GenNP x) L.name_N) (lin NP y) ;
|
||||||
married_Cl x y = mkCl (lin NP x) L.married_A2 (lin NP y) ;
|
married_Cl x y = mkCl (lin NP x) L.married_A2 (lin NP y) ;
|
||||||
@@ -17,7 +17,7 @@ lin
|
|||||||
how_far_QCl x = mkQCl (E.IAdvAdv (ParadigmsHin.mkAdv "दूर")) (lin NP x) ;
|
how_far_QCl x = mkQCl (E.IAdvAdv (ParadigmsHin.mkAdv "दूर")) (lin NP x) ;
|
||||||
|
|
||||||
oper
|
oper
|
||||||
modN : N -> N = \noun -> lin N {s = \\n,c =>noun.s!n!c++"का" ; g =noun.g} ;
|
mmodN : N -> N = \noun -> lin N {s = \\n,c =>noun.s!n!c++"का" ; g =noun.g} ;
|
||||||
|
|
||||||
-- some more things
|
-- some more things
|
||||||
---- weather_adjCl ap = mkCl (mkVP (lin AP ap)) ;
|
---- weather_adjCl ap = mkCl (mkVP (lin AP ap)) ;
|
||||||
|
|||||||
Reference in New Issue
Block a user