diff --git a/ML/conj_infos.mli b/ML/conj_infos.mli index 69ee524bb8cde9bdd56891ae99272b93aed72d95..b308504c856d01494e9076557db156d491a03af8 100644 --- a/ML/conj_infos.mli +++ b/ML/conj_infos.mli @@ -14,9 +14,10 @@ type vmorph = [ Prim of int and bool and Word.word (* primary conjugation *) (* gana pada form of present 3rd sg for checking *) - | Causa of Word.word (* causative 3rd sg conjugation *) - | Inten of Word.word (* intensive 3rd sg conjugation *) - | Desid of Word.word (* desiderative 3rd sg conjugation *) + (* pada=True Paradmaipada pada=False AAtmanepada *) + | Causa of Word.word (* causative 3rd sg form *) + | Inten of Word.word (* intensive 3rd sg form *) + | Desid of Word.word (* desiderative 3rd sg form *) ] ; type root_infos = (vmorph * bool) (* [True] means root admits preverb aa- *) diff --git a/ML/verbs.ml b/ML/verbs.ml index 3e1e0508d0503de4ccafd72416e7aab8cd3f358e..540657173dfbb097574b90b751c791965f4e7d13 100644 --- a/ML/verbs.ml +++ b/ML/verbs.ml @@ -2469,11 +2469,11 @@ value intercalate_pp root rstem = | "ghu.s" (* \Pan{7,2,23} *) | "ka.s" (* \Pan{7,2,22} *) | "dh.r.s" (* \Pan{7,2,19} *) | "am" | "tvar" (* \Pan{7,2,28} *) -> vet (* but only set for -tvaa *) - | "gup" | "dyut#1" | "dham" | "nud" | "m.rj" -> vet + | "kas" | "gup" | "dyut#1" | "dham" | "nud" | "m.rj" -> vet (* NB zaas vet for stem zaas but admits also zi.s only anit *) | "aj" | "a.t" | "at" | "an#2" | "az#2" | "aas#2" | "i.s#2" | "ii.d" | "iir" | "iiz#1" | "ii.s" | "iih" | "uc" | ".rc#1" | ".rj" - | "ej" | "edh" | "kath" | "kal" | "kas" | "kaaz" | "kiil" | "kuc" + | "ej" | "edh" | "kath" | "kal" | "kaaz" | "kiil" | "kuc" | "kup" | "kuuj" | "k.rz" | "krii.d" | "klav" | "kvath" | "k.sam" | "k.sar" | "k.sudh#1" | "k.svi.d" | "khaad" | "ga.n" | "gad" | "gal" | "granth" | "gha.t" | "ghaat" | "cak" | "ca.t" | "car" | "cal"