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

almost completed Swedish

Browse Source
This commit is contained in:
aarne
2005-12-08 15:40:50 +00:00
parent 89423c7ad3
commit 203fc87319
9 changed files with 465 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/resource-1.0/scandinavian/ResScand.gf
View File

@@ -18,7 +18,7 @@ resource ResScand = ParamScand ** open Prelude in {
-- But $mkNoun$ is fully defined only for each language, since
-- $Gender$ varies.
nounForms : (_,_,_,_ : Str) -> (Number => Species => Case => Str) =
nounForms : (x1,_,_,x4 : Str) -> (Number => Species => Case => Str) =
\man,mannen,men,mennen -> \\n,d,c => case <n,d> of {
<Sg,Indef> => mkCase c man ;
<Sg,Def> => mkCase c mannen ;
@@ -26,7 +26,9 @@ resource ResScand = ParamScand ** open Prelude in {
<Pl,Def> => mkCase c mennen
} ;
mkAdjective : (s1,_,_,_,_,_,s7 : Str) -> {s : AForm => Str} =
Adjective : Type = {s : AForm => Str} ;
mkAdjective : (x1,_,_,_,_,_,x7 : Str) -> {s : AForm => Str} =
\liten, litet, lilla, sma, mindre, minst, minsta -> {
s = table {
AF (APosit a) c => mkCase c (mkAdjPos a liten litet lilla sma) ;
@@ -45,7 +47,7 @@ resource ResScand = ParamScand ** open Prelude in {
VF (VImper v) => mkVoice v finn ;
VI (VInfin v) => mkVoice v finna ;
VI (VSupin v) => mkVoice v funnit ;
VI (VPtPret a c) => mkCase c (mkAdjPos a funnen funnet funna funna)
VI (VPtPret a c)=> mkCase c (mkAdjPos a funnen funnet funna funna)
}
} ;