mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-28 01:18:57 -06:00
'how many' has correct standalone form and plural noun
This commit is contained in:
@@ -7,12 +7,12 @@ concrete PhraseMay of Phrase = CatMay ** open Prelude, ResMay in {
|
|||||||
UttQS qs = qs ;
|
UttQS qs = qs ;
|
||||||
UttIAdv iadv = iadv ;
|
UttIAdv iadv = iadv ;
|
||||||
UttNP np = {s = np.s ! Bare} ;
|
UttNP np = {s = np.s ! Bare} ;
|
||||||
|
UttIP ip = {s = ip.sp ! NF Sg Bare} ;
|
||||||
{-
|
{-
|
||||||
UttImpSg pol imp =
|
UttImpSg pol imp =
|
||||||
UttImpPl pol imp =
|
UttImpPl pol imp =
|
||||||
UttImpPol = UttImpSg ;
|
UttImpPol = UttImpSg ;
|
||||||
|
|
||||||
UttIP ip = {s = ip.s ! } ;
|
|
||||||
UttVP vp = {s = } ;
|
UttVP vp = {s = } ;
|
||||||
UttAdv adv = {s = } ;
|
UttAdv adv = {s = } ;
|
||||||
UttCN n = {s = } ;
|
UttCN n = {s = } ;
|
||||||
|
|||||||
@@ -8,7 +8,9 @@ concrete QuestionMay of Question = CatMay ** open
|
|||||||
-- determiners, with or without a noun.
|
-- determiners, with or without a noun.
|
||||||
lin
|
lin
|
||||||
-- : IDet -> CN -> IP ; -- which five songs
|
-- : IDet -> CN -> IP ; -- which five songs
|
||||||
IdetCN idet cn = NM.DetCN idet cn ** {sp = idet.sp} ;
|
IdetCN idet cn = NM.DetCN idet cn ** {
|
||||||
|
sp = \\nf => idet.sp ! nf ++ cn.s ! nf
|
||||||
|
} ;
|
||||||
|
|
||||||
-- : IDet -> IP ; -- which five
|
-- : IDet -> IP ; -- which five
|
||||||
IdetIP idet = NM.DetNP idet ** {sp = idet.sp};
|
IdetIP idet = NM.DetNP idet ** {sp = idet.sp};
|
||||||
|
|||||||
@@ -115,11 +115,12 @@ oper
|
|||||||
n = NoNum num ;
|
n = NoNum num ;
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
mkIdet : Str -> Number -> Bool -> Determiner = \str, num, isPre -> mkDet str num ** {
|
mkIdet : Str -> Str -> Number -> Bool -> Determiner = \str, standalone, num, isPre -> mkDet str num ** {
|
||||||
pr = case isPre of {True => str ; False => [] } ;
|
pr = case isPre of {True => str ; False => [] } ;
|
||||||
-- if isPre is True, then: "berapa kucing"
|
-- if isPre is True, then: "berapa kucing"
|
||||||
s = case isPre of { False => str ; True => [] };
|
s = case isPre of { False => str ; True => [] };
|
||||||
|
|
||||||
|
sp = \\_ => standalone ;
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
--------------------------------------------------------------------------------
|
--------------------------------------------------------------------------------
|
||||||
|
|||||||
@@ -53,7 +53,7 @@ lin and_Conj = {s2 = "dan" ; s1 = [] ; n = Pl} ;
|
|||||||
-- *Det and Quant
|
-- *Det and Quant
|
||||||
|
|
||||||
|
|
||||||
lin how8many_IDet = mkIdet "berapa banyak" Pl True;
|
lin how8many_IDet = mkIdet "berapa" "berapa banyak" Sg True;
|
||||||
{-}
|
{-}
|
||||||
lin all_Predet = {s = ""} ;
|
lin all_Predet = {s = ""} ;
|
||||||
lin not_Predet = { s = "" } ;
|
lin not_Predet = { s = "" } ;
|
||||||
|
|||||||
Reference in New Issue
Block a user