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

support for measurement units

Browse Source
This commit is contained in:
Krasimir Angelov
2023-07-25 19:38:43 +02:00
parent 5d912f78a4
commit 22a168198b
39 changed files with 198 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/finnish/NounFin.gf
View File

@@ -296,6 +296,20 @@ concrete NounFin of Noun = CatFin ** open ResFin, MorphoFin, StemFin, Prelude in
DetDAP d = d ;
QuantityNP n m = {
s = \\c => preOrPost m.isPre m.s (n.s ! NCard (NCase Sg Nom)) ;
a = agrP3 n.n ;
isPron = False ;
isNeg = False
} ;
QuantityFloatNP n1 n2 m = {
s = \\role => preOrPost m.isPre m.s (n1.s ! NCard (NCase Sg Nom) ++ BIND ++ "." ++ BIND ++ n2.s ! NCard (NCase Sg Nom)) ;
a = agrP3 Pl ;
isPron = False ;
isNeg = False
} ;
oper
numN : NForm -> Number = \nf -> case nf of {
NCase n _ => n ;

2
src/finnish/ParadigmsFin.gf
View File

@@ -1050,4 +1050,6 @@ mkVS = overload {
mkAV v = v ** {lock_A = <>} ;
--- mkA2V v p = mkA2 <v : A> p ** {lock_A2 = <>} ;
mkMU : Str -> MU = \s -> lin MU {s=s; isPre=False} ;
} ;