mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-10-25 09:13:18 -06:00
(Ara) Add ExistIP
This commit is contained in:
1 parent
9fd88554ee
commit
ee092b0042
2 files changed
+4
-3
No files matched your search
@@ -31,7 +31,10 @@ concrete IdiomAra of Idiom = CatAra ** open
|
||||
ExistNP np =
|
||||
predVP (emptyNP ** {s=\\c=>"هُنَاكَ"}) (UseComp (CompNP np)) ; -- IL
|
||||
|
||||
-- ExistIP : IP -> QCl ; -- which houses are there
|
||||
-- : IP -> QCl ; -- which houses are there
|
||||
ExistIP ip = let cl = ExistNP (ip2np ip False) in {
|
||||
s = \\t,p,q => cl.s ! t ! p ! Nominal -- IL guessed
|
||||
} ;
|
||||
|
||||
-- 7/12/2012 generalizations of these
|
||||
|
||||
|
||||
@@ -11,8 +11,6 @@ oper ComparAdvAdj : CAdv -> A -> NP -> Adv = notYet "ComparAdvAdj" ;
|
||||
oper ComparAdvAdjS : CAdv -> A -> S -> Adv = notYet "ComparAdvAdjS" ;
|
||||
oper ConjRS : Conj -> ListRS -> RS = notYet "ConjRS" ;
|
||||
oper ConsRS : RS -> ListRS -> ListRS = notYet "ConsRS" ;
|
||||
oper DetNP : Det -> NP = notYet "DetNP" ;
|
||||
oper ExistIP : IP -> QCl = notYet "ExistIP" ;
|
||||
oper FunRP : Prep -> NP -> RP -> RP = notYet "FunRP" ;
|
||||
oper ImpPl1 : VP -> Utt = notYet "ImpPl1" ;
|
||||
oper PConjConj : Conj -> PConj = notYet "PConjConj" ;
|
||||
|
||||
Reference in new issue
Block a user