(Hun) Fresh copypaste from generic dummy template. Compiles, isn't good.

This commit is contained in:
Inari Listenmaa
2020-03-28 15:43:58 +01:00
parent 7fee10e1e0
commit e1a94a0741
22 changed files with 2195 additions and 2627 deletions
+27 -30
View File
@@ -1,32 +1,29 @@
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} ;
--
--}
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 = qs ;
UttIAdv iadv = iadv ;
{-
UttImpSg pol imp =
UttImpPl pol imp =
UttImpPol = UttImpSg ;
UttIP ip = {s = ip.s ! } ;
UttNP np = {s = np.s ! } ;
UttVP vp = {s = } ;
UttAdv adv = {s = } ;
UttCN n = {s = } ;
UttCard n = {s = } ;
UttAP ap = { s = ap.s ! } ;
UttInterj i = i ;
-}
NoPConj = {s = []} ;
-- PConjConj conj = {s = conj.s1 ++ conj.s2 ! …} ;
NoVoc = {s = []} ;
-- VocNP np = { s = "," ++ np.s ! … } ; -}
}