Commit d578a9a1 by Gérard Huet

### Cleanups

parent 397a5e8e
 ... @@ -14,9 +14,10 @@ ... @@ -14,9 +14,10 @@ type vmorph = type vmorph = [ Prim of int and bool and Word.word (* primary conjugation *) [ Prim of int and bool and Word.word (* primary conjugation *) (* gana pada form of present 3rd sg for checking *) (* gana pada form of present 3rd sg for checking *) | Causa of Word.word (* causative 3rd sg conjugation *) (* pada=True Paradmaipada pada=False AAtmanepada *) | Inten of Word.word (* intensive 3rd sg conjugation *) | Causa of Word.word (* causative 3rd sg form *) | Desid of Word.word (* desiderative 3rd sg conjugation *) | 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- *) type root_infos = (vmorph * bool) (* [True] means root admits preverb aa- *) ... ...
 ... @@ -2469,11 +2469,11 @@ value intercalate_pp root rstem = ... @@ -2469,11 +2469,11 @@ value intercalate_pp root rstem = | "ghu.s" (* \Pan{7,2,23} *) | "ka.s" (* \Pan{7,2,22} *) | "ghu.s" (* \Pan{7,2,23} *) | "ka.s" (* \Pan{7,2,22} *) | "dh.r.s" (* \Pan{7,2,19} *) | "dh.r.s" (* \Pan{7,2,19} *) | "am" | "tvar" (* \Pan{7,2,28} *) -> vet (* but only set for -tvaa *) | "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 *) (* 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" | "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" | "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" | "kup" | "kuuj" | "k.rz" | "krii.d" | "klav" | "kvath" | "k.sam" | "k.sar" | "k.sudh#1" | "k.svi.d" | "khaad" | "ga.n" | "gad" | "gal" | "k.sar" | "k.sudh#1" | "k.svi.d" | "khaad" | "ga.n" | "gad" | "gal" | "granth" | "gha.t" | "ghaat" | "cak" | "ca.t" | "car" | "cal" | "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!