'how many' has correct standalone form and plural noun

This commit is contained in:
Meowyam
2021-11-15 13:49:39 +08:00
committed by Inari Listenmaa
parent b8a1a72cca
commit a0d397bed4
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 ;
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 = } ;

View File

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

View File

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

View File

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