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

case endings in Fin symbols: Nom is a special case, since there is no ending

Browse Source
This commit is contained in:
aarne
2013-03-12 20:29:31 +00:00
parent 367123c81b
commit f61a013a40
2 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/src/finnish/MorphoFin.gf
View File

@@ -966,5 +966,13 @@ oper
Abess => "tta"
} ;
bindIf : Case -> Str = \c -> case c of {
Nom => [] ;
_ => BIND
} ;
bindColonIf : Case -> Str = \c -> case c of {
Nom => [] ;
_ => BIND ++ ":" ++ BIND
} ;
}

6
lib/src/finnish/SymbolFin.gf
View File

@@ -3,9 +3,9 @@
concrete SymbolFin of Symbol = CatFin ** open Prelude, NounFin, ResFin, MorphoFin in {
lin
SymbPN i = {s = \\c => i.s ++ BIND ++ defaultCaseEnding c} ; --- c
IntPN i = {s = \\c => i.s ++ BIND ++ ":" ++ BIND ++ defaultCaseEnding c} ; --- c
FloatPN i = {s = \\c => i.s ++ BIND ++ ":" ++ BIND ++ defaultCaseEnding c} ; --- c
SymbPN i = {s = \\c => i.s ++ bindIf c ++ defaultCaseEnding c} ; --- c
IntPN i = {s = \\c => i.s ++ bindColonIf c ++ defaultCaseEnding c} ; --- c
FloatPN i = {s = \\c => i.s ++ bindColonIf c ++ defaultCaseEnding c} ; --- c
NumPN i = {s = \\c => i.s!Sg!Nom } ; --- c
CNIntNP cn i = {