1
0
forked from GitHub/gf-rgl

'how many' has correct standalone form and plural noun

This commit is contained in:
Meowyam
2021-11-15 13:49:39 +08:00
parent 7daf14378d
commit 4394c8f979
4 changed files with 7 additions and 4 deletions

View File

@@ -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 = } ;

View File

@@ -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};

View File

@@ -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 ;
} ; } ;
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------

View File

@@ -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 = "" } ;