copy files over from GF-latin

src/latin/PhraseLat.gf

@@ -1,24 +1,37 @@
 concrete PhraseLat of Phrase = CatLat ** open Prelude, ResLat in {
-  
   lin
     PhrUtt pconj utt voc = {s = pconj.s ++ utt.s ++ voc.s} ;
     --
 -- UttS : S -> Utt
-    UttS s = { s = s.s };
+    UttS s = { s = combineSentence s ! SPreS ! PreS ! SOV };
 
 --  UttQS : QS -> Utt
     UttQS qs = {s = qs.s ! QDir } ;
+--  UttImpSg : Pol -> Imp -> Utt
+    UttImpSg pol imp = {s = pol.s ++ imp.s ! pol.p ! VImp1 Sg } ;
+--  UttImpPl : Pol -> Imp -> Utt 
+    UttImpPl pol imp = {s = pol.s ++ imp.s ! pol.p ! VImp1 Pl } ;
+--  UttImpPol : Pol -> Imp -> Utt
+    UttImpPol pol imp = UttImpSg pol imp ;
+--  UttIP : IP -> Utt
+    UttIP ip = {s = ip.s ! Nom} ; --- Acc also
+--  UttIAdv : IAdv -> Utt
+    UttIAdv iadv = iadv ;
+--  UttNP : NP -> Utt
+    UttNP np = {s = np.adv ++ np.det.s  ! np.g ! Nom ++ np.preap.s ! (Ag np.g np.n Nom) ++ np.s ! Nom ++ np.postap.s ! (Ag np.g np.n Nom) ++ np.det.sp ! np.g ! Nom} ;
+--  UttVP : VP -> Utt
+    UttVP vp = ss (vp.inf ! VInfActPres) ;
 
---    UttImpSg pol imp = {s = pol.s ++ imp.s ! contrNeg True pol.p ! ImpF Sg False} ;
---    UttImpPl pol imp = {s = pol.s ++ imp.s ! contrNeg True pol.p ! ImpF Pl False} ;
---    UttImpPol pol imp = {s = pol.s ++ imp.s ! contrNeg True pol.p ! ImpF Sg True} ;
---
---    UttIP ip = {s = ip.s ! Nom} ; --- Acc also
---    UttIAdv iadv = iadv ;
---    UttNP np = {s = np.s ! Nom} ;
---    UttVP vp = {s = infVP False vp (agrP3 Sg)} ;
---    UttAdv adv = adv ;
---
+--  UttAdv : Adv -> Utt
+    UttAdv adv = ss (adv.s ! Posit) ;
+--  UttAP : AP -> Utt
+    UttAP ap = ss (ap.s ! Ag Masc Sg Nom );
+--  UttCard : Card -> Utt
+    UttCard card = ss (card.s ! Masc ! Nom);
+--  UttCN : CN -> Utt
+    UttCN cn = ss (cn.s ! Sg ! Nom) ;
+--  UttInterj : Interj -> Utt
+    UttInterj interj = interj ;
     NoPConj = {s = []} ;
     PConjConj conj = {s = conj.s2} ; ---
 --