started hungarian project

2026-06-28 20:36:29 -06:00 · 2012-03-30 09:22:52 +00:00
parent 993b536403
commit 59d78d25fa
29 changed files with 3596 additions and 0 deletions
@@ -0,0 +1,32 @@
+concrete PhraseHun of Phrase = CatHun ** open Prelude, ResHun in 
+{
+--{
+--
+--  lin
+--    PhrUtt pconj utt voc = {s = pconj.s ++ utt.s ++ voc.s} ;
+--
+--    UttS s = s ;
+--    UttQS qs = {s = qs.s ! QDir} ;
+--    UttImpSg pol imp = {s = pol.s ++ imp.s ! pol.p ! ImpF Sg False} ;
+--    UttImpPl pol imp = {s = pol.s ++ imp.s ! pol.p ! ImpF Pl False} ;
+--    UttImpPol pol imp = {s = pol.s ++ imp.s ! pol.p ! ImpF Sg True} ;
+--
+--    UttIP ip = {s = ip.s ! npNom} ; --- Acc also
+--    UttIAdv iadv = iadv ;
+--    UttNP np = {s = np.s ! npNom} ;
+--    UttVP vp = {s = infVP VVInf vp (agrP3 Sg)} ;
+--    UttAdv adv = adv ;
+--    UttCN n = {s = n.s ! Sg ! Nom} ;
+--    UttCard n = {s = n.s ! Nom} ;
+--    UttAP ap = {s = ap.s ! agrP3 Sg} ;
+--    UttInterj i = i ;
+--
+--    NoPConj = {s = []} ;
+--    PConjConj conj = {s = conj.s2} ; ---
+--
+--    NoVoc = {s = []} ;
+--    VocNP np = {s = "," ++ np.s ! npNom} ;
+--
+--}
+
+}