mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 17:08:54 -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 ;
|
||||
UttIAdv iadv = iadv ;
|
||||
UttNP np = {s = np.s ! Bare} ;
|
||||
UttIP ip = {s = ip.sp ! NF Sg Bare} ;
|
||||
{-
|
||||
UttImpSg pol imp =
|
||||
UttImpPl pol imp =
|
||||
UttImpPol = UttImpSg ;
|
||||
|
||||
UttIP ip = {s = ip.s ! } ;
|
||||
UttVP vp = {s = } ;
|
||||
UttAdv adv = {s = } ;
|
||||
UttCN n = {s = } ;
|
||||
|
||||
@@ -8,7 +8,9 @@ concrete QuestionMay of Question = CatMay ** open
|
||||
-- determiners, with or without a noun.
|
||||
lin
|
||||
-- : 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
|
||||
IdetIP idet = NM.DetNP idet ** {sp = idet.sp};
|
||||
|
||||
@@ -115,11 +115,12 @@ oper
|
||||
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 => [] } ;
|
||||
-- if isPre is True, then: "berapa kucing"
|
||||
s = case isPre of { False => str ; True => [] };
|
||||
|
||||
sp = \\_ => standalone ;
|
||||
} ;
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
|
||||
@@ -53,7 +53,7 @@ lin and_Conj = {s2 = "dan" ; s1 = [] ; n = Pl} ;
|
||||
-- *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 not_Predet = { s = "" } ;
|
||||
|
||||
Reference in New Issue
Block a user