Commit d578a9a1 authored by Gérard Huet's avatar Gérard Huet

Cleanups

parent 397a5e8e
......@@ -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- *)
......
......@@ -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"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment