more constructions

src/hungarian/AdjectiveHun.gf

@@ -54,7 +54,9 @@ concrete AdjectiveHun of Adjective = CatHun ** open ResHun, Prelude in {
 -- phrases, although the semantics is only clear for some adjectives.
 
   -- : AP -> SC -> AP ;  -- good that she is here
-  -- SentAP ap sc = ap ** {} ;
+  SentAP ap sc = ap ** {
+    compl = \\n => ap.compl ! n ++ SOFT_BIND ++ "," ++ "hogy" ++ sc.s ;
+    } ;
 
 -- An adjectival phrase can be modified by an *adadjective*, such as "very".
 

src/hungarian/ExtendHun.gf

@@ -11,6 +11,19 @@ lin
     CompoundN n1 n2 =
       n2 ** {s = \\nc => n1.s ! SgNom ++ BIND ++ n2.s ! nc} ;
 
+    GenModNP num np cn =
+      let det : Determiner = DetQuant DefArt num ;
+          pron : Pronoun = pronTable ! np.agr ;
+       in emptyNP ** cn ** det ** {
+            s = \\_,c =>
+              np.s ! NoPoss ! Nom
+              ++ np.postmod
+              ++ caseFromPossStem cn (DetQuant (PossPron pron) num) c
+              ++ cn.compl ! det.n ! c ;
+            agr = <P3,det.n> ;
+            objdef = Def ;
+            } ;
+
     UseDAP = DetNP ;
     UseDAPMasc,
     UseDAPFem = \dap -> DetNP dap ** {g = Human} ;

src/hungarian/SentenceHun.gf

@@ -47,6 +47,9 @@ lin
 -}
 --2 Sentences
 
+  -- : S  -> SC ;
+  EmbedS s = {s = s.s} ;
+
   -- : Temp -> Pol -> Cl -> S ;
   UseCl t p cl = {
     s = t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p

src/hungarian/VerbHun.gf

@@ -112,7 +112,9 @@ lin
     s = \\vf => case vf of {
                   VPres P3 n => ap.s ! n ! Nom ++ ap.compl ! n ;
                   VPres _  n => ap.s ! n ! Nom ++ copula.s ! vf ++ ap.compl ! n ;
-                  _         => ap.s ! Sg ! Nom ++ copula.s ! vf ++ ap.compl ! Sg } ;
+                  VPast _  n => ap.s ! n ! Nom ++ copula.s ! vf ++ ap.compl ! n ;
+                  _          => ap.s ! Sg ! Nom ++ copula.s ! vf ++ ap.compl ! Sg
+                } ;
     } ;
 
   -- : CN  -> Comp ;