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

Added overloaded mkQuant to ParadigmsEng.

Browse Source
This commit is contained in:
bjorn
2008-11-18 15:30:53 +00:00
parent f3f29a4683
commit bd1417e21a
3 changed files with 18 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
next-lib/src/english/MorphoEng.gf
-7
View File
@@ -21,13 +21,6 @@ resource MorphoEng = open Prelude, (Predef=Predef), ResEng in {
sp = regGenitiveS s ;
n = n} ;
mkQuant : Str -> Str -> {s : Bool => Number => Str; sp : Bool => Number => Case => Str } = \sg,pl -> mkQuant4 sg pl sg pl ;
mkQuant4 : Str -> Str -> Str -> Str -> {s : Bool => Number => Str; sp : Bool => Number => Case => Str } = \sg,pl,sg',pl' -> {
s = \\_ => table { Sg => sg ; Pl => pl } ;
sp = \\_ => table { Sg => regGenitiveS sg' ; Pl => regGenitiveS pl' }
} ;
regGenitiveS : Str -> Case => Str = \s ->
table { Gen => genitiveS s; _ => s } ;