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

Finnish SDP paradigm ported to lower-case by using Predef.toUpper

Browse Source
This commit is contained in:
aarne
2011-06-02 16:12:01 +00:00
parent 7d3949a270
commit 525bf8f410
3 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -277,7 +277,7 @@ resource MorphoFin = ResFin ** open Prelude in {
dSDP : Str -> NForms = \SDP ->
let
c = case last SDP of {
c = case Predef.toUpper (last SDP) of {
"A" =>
<"n","ta","na","han","iden","ita","ina","issa","ihin"> ;
"B" | "C" | "D" | "E" | "G" | "P" | "T" | "V" | "W" =>
@@ -296,6 +296,8 @@ resource MorphoFin = ResFin ** open Prelude in {
<"n","tä","nä","hän","iden","itä","inä","issä","ihin"> ;
"Ö" =>
<"n","tä","nä","hön","iden","itä","inä","issä","ihin"> ;
"Y" =>
<"n","tä","nä","hyn","iden","itä","inä","issä","ihin"> ;
_ => Predef.error (["illegal abbreviation"] ++ SDP)
} ;
in nForms10