Commit 749cf824 authored by Gérard Huet's avatar Gérard Huet

Fix ppftm vac

parent f2761630
......@@ -277,8 +277,8 @@ morpho.cmx segmenter1.cmx tagger1.cmx -o tagger1
# NB best used by first hiding all .mli, make clean, make depend
debug: gen.cmo version.cmo date.cmo word.cmo zen_lexer.cmo order.cmo \
canon.cmo phonetics.cmo transduction.cmo padapatha.cmo sanskrit.cmo \
sandhi.cmo share.cmo trie.cmo deco.cmo skt_lexer.cmo \
encode.cmo order.cmo lexmap.cmo sandhi.cmo \
sandhi.cmo int_sandhi.cmo share.cmo trie.cmo deco.cmo skt_lexer.cmo \
encode.cmo order.cmo lexmap.cmo inflected.cmo parts.cmo verbs.cmo \
morpho_html.cmo cgi.cmo html.cmo web.cmo indexer.cmo declension.cmo
(cat debug.ml ; cat -) | ocaml -I +camlp4 -I . -I $(ZEN)
......
......@@ -29,9 +29,9 @@ open Gen;
open Version;
#load "date.cmo";
#load "html.cmo";
#load "web.cmo";
(* #load "web.cmo";
open Web;
#load "cgi.cmo";
#load "cgi.cmo"; *)
#load "canon.cmo";
open Canon;
#load "phonetics.cmo";
......
......@@ -3154,11 +3154,14 @@ value compute_perfect_c strong weak olengthened eweak iopt entry =
match voices_of entry with
[ Para -> do
{ compute_perfecta Primary strong weak olengthened eweak iopt entry
; if entry = "cit#1" then do
; match entry with
[ "cit#1" -> do
{ compute_perfectm Primary weak entry
; compute_perfectm Primary (revcode "cikitr") entry (* WR *)
}
else ()
| "vac" -> record_part_m_ath ppftm weak entry (* anuucaana *)
| _ -> ()
]
}
| Atma -> let stem = match entry with
[ "cak.s" | "ba.mh" -> strong
......
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