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

German numerals and almost all Basic

Browse Source
This commit is contained in:
aarne
2006-01-17 19:15:13 +00:00
parent b80f737013
commit 89cd3d352d
10 changed files with 187 additions and 176 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/resource-1.0/german/NounGer.gf
View File

@@ -37,7 +37,7 @@ concrete NounGer of Noun = CatGer ** open ResGer, Prelude in {
a = quant.a
in {
s = \\g,c => quant.s ! g ! c ++
num.s ! g ! c ++ ord.s ! agrAdj g (adjfCase a c) n c ;
num.s ++ ord.s ! agrAdj g (adjfCase a c) n c ;
n = n ;
a = a
} ;
@@ -54,16 +54,16 @@ concrete NounGer of Noun = CatGer ** open ResGer, Prelude in {
a = Weak
} ;
NoNum = {s = \\_,_ => []} ;
NoNum = {s = []} ;
NoOrd = {s = \\_ => []} ;
NumInt n = {s = \\_,_ => n.s} ;
NumInt n = {s = n.s} ;
OrdInt n = {s = \\_ => n.s ++ "."} ;
NumNumeral numeral = {s = \\_,_ => numeral.s ! NCard} ;
NumNumeral numeral = {s = numeral.s ! NCard} ;
OrdNumeral numeral = {s = \\af => numeral.s ! NOrd af} ;
AdNum adn num = {s = \\g,c => adn.s ++ num.s ! g ! c} ;
AdNum adn num = {s = adn.s ++ num.s} ;
OrdSuperl a = {s = a.s ! Superl} ;