GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 01:18:57 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Som) Fix bug in ordinals

Browse Source
This commit is contained in:
Inari Listenmaa
2019-08-19 17:44:00 +02:00
parent 420715b88e
commit 3a760d6b29
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/somali/NounSom.gf
View File

@@ -121,7 +121,8 @@ concrete NounSom of Noun = CatSom ** open ResSom, Prelude in {
-- Independent form uses plural morpheme, not gender-flipped allomorph -- Independent form uses plural morpheme, not gender-flipped allomorph
<Pl,_> => num.s ! indep ++ quant.sp ! PlInv ! c ++ num.thousand } ; <Pl,_> => num.s ! indep ++ quant.sp ! PlInv ! c ++ num.thousand } ;
isNum = num.isNum ; isNum = num.isNum ;
n = num.n n = num.n ;
shortPoss = \\da => quant.shortPoss ! da ++ num.s ! indep
} ; } ;
-- d = case <num.isNum,quant.st> of { -- d = case <num.isNum,quant.st> of {
-- <True,_> => Numerative ; -- <True,_> => Numerative ;
@@ -132,7 +133,8 @@ concrete NounSom of Noun = CatSom ** open ResSom, Prelude in {
DetQuantOrd quant num ord = DetQuantOrd quant num ord =
let theseFive = DetQuant quant num in theseFive ** { let theseFive = DetQuant quant num in theseFive ** {
s = \\g,c => theseFive.s ! g ! c ++ ord.s ; 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 -- 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 ; DefArt = defQuant "a" "kan" "tan" "kuwan" False ;
-- : Quant -- : Quant
IndefArt = indefQuant ** {sp = \\gn,c => "1"} ; -- TODO sp forms IndefArt = indefQuant ; -- TODO sp forms
-- : Pron -> Quant -- : Pron -> Quant
PossPron pron = PossPron pron =