fixed infinitives and imperatives

2005-01-24 15:56:28 +00:00
parent 8425fe4a87
commit e96a410e74
12 changed files with 120 additions and 94 deletions
--- a/lib/resource/danish/SyntaxDan.gf
+++ b/lib/resource/danish/SyntaxDan.gf
@@ -118,9 +118,16 @@ instance SyntaxDan of SyntaxScand = TypesDan **

  reflPron : Number -> Person -> Str = \n,p -> case <n,p> of {
    <Sg,P1> => "mig" ;
-    <Sg,P2> => "mig" ;
+    <Sg,P2> => "dig" ;
    <Pl,P1> => "os" ;
    <Pl,P2> => "seg" ; --- ? dere ?
    _ => "seg"
    } ;
+
+  progressiveVerbPhrase : VerbPhrase -> VerbGroup =
+    complVerbVerb
+      (verbVara **
+       {s3 = ["ved at"]}
+      ) ;
+
 }