Swedish almost complete

This commit is contained in:
aarne
2005-12-08 16:56:17 +00:00
parent a35dbbeeb8
commit ec86cc8966
6 changed files with 85 additions and 161 deletions

View File

@@ -129,9 +129,10 @@ resource ResScand = ParamScand ** open Prelude in {
_ => de
} ;
-- regNP : Str -> Number -> {s : Case => Str ; a : Agr} = \that,n ->
-- mkNP that that (that + "'s") n P3 ;
--
regNP : Str -> Str -> GenNum -> {s : NPForm => Str ; a : Agr} =
\det,dess,gn ->
mkNP det det dess dess dess gn P3 ;
-- For $Verb$.

View File

@@ -1,4 +1,5 @@
incomplete concrete TensedScand of Tensed = CatScand, TenseX ** open ResScand in {
incomplete concrete TensedScand of Tensed = CatScand, TenseX **
open ResScand in {
flags optimize=all_subs ;