GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-21 09:02:50 -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" 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 { concrete SymbolFin of Symbol = CatFin ** open Prelude, NounFin, ResFin, MorphoFin in {
lin lin
SymbPN i = {s = \\c => i.s ++ BIND ++ defaultCaseEnding c} ; --- c SymbPN i = {s = \\c => i.s ++ bindIf c ++ defaultCaseEnding c} ; --- c
IntPN i = {s = \\c => i.s ++ BIND ++ ":" ++ BIND ++ defaultCaseEnding c} ; --- c IntPN i = {s = \\c => i.s ++ bindColonIf c ++ defaultCaseEnding c} ; --- c
FloatPN i = {s = \\c => i.s ++ BIND ++ ":" ++ BIND ++ defaultCaseEnding c} ; --- c FloatPN i = {s = \\c => i.s ++ bindColonIf c ++ defaultCaseEnding c} ; --- c
NumPN i = {s = \\c => i.s!Sg!Nom } ; --- c NumPN i = {s = \\c => i.s!Sg!Nom } ; --- c
CNIntNP cn i = { CNIntNP cn i = {