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

Norwegian

Browse Source
This commit is contained in:
aarne
2006-01-26 13:57:22 +00:00
parent 8f0cbfcc00
commit 1ea78bd1fe
30 changed files with 1265 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
lib/resource-1.0/swedish/ParadigmsSwe.gf
View File

@@ -78,6 +78,11 @@ oper
mk2N : (nyckel,nycklar : Str) -> N ;
-- This heuristic takes just the plural definite form and infers the others.
-- It does not work if there are changes in the stem.
mk1N : (bilarna : Str) -> N ;
--3 Compound nouns
--
@@ -296,6 +301,14 @@ oper
}
} ** {lock_N = <>} ;
mk1N bilarna = case bilarna of {
ap + "orna" => decl1Noun (ap + "a") ;
bil + "arna" => decl2Noun bil ;
rad + "erna" => decl3Noun rad ;
rik + "ena" => decl4Noun (rik + "e") ;
husen => decl5Noun (Predef.tk 2 husen)
} ;
mk2N bil bilar =
ifTok N bil bilar (decl5Noun bil) (
case Predef.dp 2 bilar of {
@@ -442,14 +455,13 @@ oper
depV v = {s = v.s ; vtype = VPass ; lock_V = <>} ;
reflV v = {s = v.s ; vtype = VRefl ; lock_V = <>} ;
mkV2 v p = v ** {s = v.s ; c2 = p ; lock_V2 = <>} ;
mkV2 v p = v ** {c2 = p ; lock_V2 = <>} ;
dirV2 v = mkV2 v [] ;
mkV3 v p q = v ** {s = v.s ; c2 = p ; c3 = q ; lock_V3 = <>} ;
mkV3 v p q = v ** {c2 = p ; c3 = q ; lock_V3 = <>} ;
dirV3 v p = mkV3 v [] p ;
dirdirV3 v = dirV3 v [] ;
mkV0 v = v ** {lock_V0 = <>} ;
mkVS v = v ** {lock_VS = <>} ;
mkVV v = v ** {c2 = "att" ; lock_VV = <>} ;