From 3a760d6b29853eacf7b12d9ee5ada130974a92ad Mon Sep 17 00:00:00 2001 From: Inari Listenmaa Date: Mon, 19 Aug 2019 17:44:00 +0200 Subject: [PATCH] (Som) Fix bug in ordinals --- src/somali/NounSom.gf | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/somali/NounSom.gf b/src/somali/NounSom.gf index 00c1753d6..3f3f0da09 100644 --- a/src/somali/NounSom.gf +++ b/src/somali/NounSom.gf @@ -121,7 +121,8 @@ concrete NounSom of Noun = CatSom ** open ResSom, Prelude in { -- Independent form uses plural morpheme, not gender-flipped allomorph => num.s ! indep ++ quant.sp ! PlInv ! c ++ num.thousand } ; isNum = num.isNum ; - n = num.n + n = num.n ; + shortPoss = \\da => quant.shortPoss ! da ++ num.s ! indep } ; -- d = case of { -- => Numerative ; @@ -132,7 +133,8 @@ concrete NounSom of Noun = CatSom ** open ResSom, Prelude in { DetQuantOrd quant num ord = let theseFive = DetQuant quant num in theseFive ** { s = \\g,c => theseFive.s ! g ! c ++ ord.s ; - sp = \\g,c => theseFive.sp ! g ! c ++ ord.s + sp = \\g,c => theseFive.sp ! g ! c ++ ord.s ; + shortPoss = \\da => theseFive.shortPoss ! da ++ ord.s } ; -- Whether the resulting determiner is singular or plural depends on the @@ -178,7 +180,7 @@ concrete NounSom of Noun = CatSom ** open ResSom, Prelude in { DefArt = defQuant "a" "kan" "tan" "kuwan" False ; -- : Quant - IndefArt = indefQuant ** {sp = \\gn,c => "1"} ; -- TODO sp forms + IndefArt = indefQuant ; -- TODO sp forms -- : Pron -> Quant PossPron pron =