forked from GitHub/gf-rgl
(Som) Lincats for V2* + SlashV2A + new unittest for V2A and QuestIAdv
This commit is contained in:
@@ -93,18 +93,18 @@ concrete CatSom of Cat = CommonX - [Adv,IAdv] ** open ResSom, Prelude in {
|
||||
-- These are constructed in LexiconSom and in
|
||||
-- additional lexicon modules.
|
||||
|
||||
V,
|
||||
VS, -- sentence-complement verb e.g. "claim"
|
||||
-- TODO: eventually different lincats
|
||||
VQ, -- question-complement verb e.g. "wonder"
|
||||
VA, -- adjective-complement verb e.g. "look"
|
||||
V2V, -- verb with NP and V complement e.g. "cause"
|
||||
V2S, -- verb with NP and S complement e.g. "tell"
|
||||
V2Q, -- verb with NP and Q complement e.g. "ask"
|
||||
V2A = ResSom.Verb ; -- verb with NP and AP complement e.g. "paint"
|
||||
V = ResSom.Verb ;
|
||||
|
||||
VV = ResSom.VV ; -- verb-phrase-complement verb e.g. "want"
|
||||
|
||||
V2A, -- verb with NP and AP complement e.g. "paint"
|
||||
V2V, -- verb with NP and V complement e.g. "cause"
|
||||
V2S, -- verb with NP and S complement e.g. "tell"
|
||||
V2Q, -- verb with NP and Q complement e.g. "ask"
|
||||
V2 = ResSom.Verb2 ;
|
||||
V3 = ResSom.Verb3 ;
|
||||
|
||||
@@ -123,5 +123,5 @@ linref
|
||||
-- Cl = linCl ;
|
||||
VP = infVP ;
|
||||
CN = linCN ;
|
||||
Prep = \prep -> prep.s ! P3_Prep ++ prep.sii ++ prep.dhex ++ prep.miscAdv ! Sg3 Masc ;
|
||||
Prep = \prep -> prep.s ! P3_Prep ++ prep.sii ++ prep.dhex ++ prep.hoostiisa ! Sg3 Masc ;
|
||||
}
|
||||
|
||||
@@ -253,7 +253,7 @@ lin name_N = mkN "magac" ;
|
||||
-- lin oil_N = mkN "" ;
|
||||
-- lin old_A = mkA "" ;
|
||||
-- lin open_V2 = mkV2 "" ;
|
||||
-- lin paint_V2A = mkV2 "" ;
|
||||
lin paint_V2A = mkV2 "rinjiyee" ;
|
||||
-- lin paper_N = mkN "" ;
|
||||
-- lin paris_PN = mkPN "Paris" ;
|
||||
-- lin peace_N = mkN "" ;
|
||||
|
||||
@@ -75,12 +75,13 @@ lin
|
||||
|
||||
-- : V2Q -> QS -> VPSlash ; -- ask (him) who came
|
||||
SlashV2Q v2q qs = ;
|
||||
|
||||
-- : V2A -> AP -> VPSlash ; -- paint (it) red
|
||||
SlashV2A v2a ap = slashDObj v2a **
|
||||
{ comp = (CompAP ap).s } ;
|
||||
|
||||
-}
|
||||
-- : V2A -> AP -> VPSlash ; -- paint (it) red
|
||||
-- TODO: is "red" plural in "paint them red"?
|
||||
SlashV2A v2a ap = useVc v2a ** {
|
||||
comp = \\_ => (CompAP ap).comp ! Sg3 Masc
|
||||
} ;
|
||||
|
||||
-- : VPSlash -> NP -> VP
|
||||
ComplSlash = insertComp ;
|
||||
|
||||
|
||||
@@ -85,3 +85,7 @@ Lang: PhrUtt NoPConj (UttS (UseCl (TTAnt TPres ASimul) PPos (PredVP (RelNP (UseP
|
||||
-- LangEng: which cat teaches him
|
||||
LangSom: bisad BIND dee baa ku bartaa
|
||||
Lang: PhrUtt NoPConj (UttQS (UseQCl (TTAnt TPres ASimul) PPos (QuestVP (IdetCN (IdetQuant which_IQuant NumSg) (UseN cat_N)) (ComplSlash (SlashV2a teach_V2) (UsePron he_Pron))))) NoVoc
|
||||
|
||||
-- LangEng: how does your mother paint the house black
|
||||
LangSom: sidee baa ay hooya BIND daa madow u rinjiyeysaa guri BIND ga
|
||||
Lang: PhrUtt NoPConj (UttQS (UseQCl (TTAnt TPres ASimul) PPos (QuestIAdv how_IAdv (PredVP (DetCN (DetQuant (PossPron youSg_Pron) NumSg) (UseN2 mother_N2)) (ComplSlash (SlashV2A paint_V2A (PositA black_A)) (DetCN (DetQuant DefArt NumSg) (UseN house_N))))))) NoVoc
|
||||
|
||||
Reference in New Issue
Block a user