msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

added a case to MakeStructuralFre.mkDet

Browse Source
This commit is contained in:
Aarne Ranta
2024-07-29 18:03:09 +02:00
parent 710e73688d
commit 78f333e79e
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/french/MakeStructuralFre.gf
View File

@@ -44,6 +44,11 @@ oper
spn = \\c => prepCase c ++ s ;
n = Sg ; s2 = \\g => [] ; isNeg = False
} ;
mkDet : Str -> Number -> Det = \s, n -> lin Det {
s,sp = \\_,c => prepCase c ++ s ;
spn = \\c => prepCase c ++ s ;
n = n ; s2 = \\g => [] ; isNeg = False
} ;
mkDet : Str -> Str -> Number -> Det = \m,f,n -> lin Det {
s,sp = \\g,c => prepCase c ++ case g of {Masc => m ; Fem => f} ;
spn = \\c => prepCase c ++ m ;