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

extended Numerals API. moved from the WordNet grammar

Browse Source
This commit is contained in:
Krasimir Angelov
2022-10-21 20:50:49 +02:00
parent 96f4543c4c
commit b066fb4d35
29 changed files with 351 additions and 69 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/slovenian/NumeralSlv.gf
+10 -5
View File
@@ -1,11 +1,13 @@
concrete NumeralSlv of Numeral = CatSlv [Numeral,Digits] ** open Prelude, ResSlv in {
lincat
Digit = {s : DForm => Case => Str; n : NumAgr} ;
Sub10 = {s : Gender => Case => Str; h : Case => Str; e : Str; n : NumAgr} ;
Sub100 = {s : Gender => Case => Str; e : Str; n : NumAgr} ;
Sub1000 = {s : Gender => Case => Str; e : Str; n : NumAgr} ;
Sub1000000 = {s : Gender => Case => Str; n : NumAgr} ;
Digit = {s : DForm => Case => Str; n : NumAgr} ;
Sub10 = {s : Gender => Case => Str; h : Case => Str; e : Str; n : NumAgr} ;
Sub100 = {s : Gender => Case => Str; e : Str; n : NumAgr} ;
Sub1000 = {s : Gender => Case => Str; e : Str; n : NumAgr} ;
Sub1000000 = {s : Gender => Case => Str; n : NumAgr} ;
Sub1000000000 = {s : Gender => Case => Str; n : NumAgr} ;
Sub1000000000000 = {s : Gender => Case => Str; n : NumAgr} ;
lin num x = x ;
@@ -143,6 +145,9 @@ lin pot110 = {s=\\g => table {
n = UseGen
} ;
pot3as4 x = x ;
pot4as5 x = x ;
oper mkDigit : (_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_ : Str) -> Gender => Case => Str;
mkDigit nomMasc nomFem nomNeut accMasc accFem accNeut
genMasc genFem genNeut datMasc datFem datNeut