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

Cleanups

parent 34183ebe
This diff is collapsed.
......@@ -422,8 +422,8 @@ value look_up_and_display font gana entry =
[ [] -> acc
| [ x :: rest ] -> match x with
[ Parts.Pppa_ con stem _ when con=conj ->
let sm = Parts.fix stem "at"
and sf = Parts.fix stem "atii" in do
let sm = Parts.fix stem "vat"
and sf = Parts.fix stem "vatii" in do
{ display_part font entry Pppa sm sf
; p acc rest
}
......
......@@ -472,7 +472,7 @@ value enter1 entry =
| _ -> failwith "Unexpected arg to enter"
]
;
(* [enter_form]: word -> flexion -> unit *)
(* [enter_form: word -> flexion -> unit] *)
(* 1st argument is a stem generated by derivational morphology,
it may have a homo index computed by [Parts.gen_stem]. *)
(* [enter_form] enters in the relevant data bank one of its inflected forms. *)
......
......@@ -147,7 +147,7 @@ value call_parser text cpts =
";cpts=" ^ string_points cpts ^ ";n=1" in
anchor Green_ (invoke cgi) check_sign
;
(* Legacy interface with Sanskrit Library [
(*i Legacy interface with Sanskrit Library [
value call_SL text cpts mode corpus solutions sent_id link_num =
let cgi = tomcat ^ corpus ^ "/SaveTagging?slp1Sentence="
^ text ^ "&numSolutions=" ^ (string_of_int solutions)
......@@ -160,7 +160,7 @@ value call_SL text cpts mode corpus solutions sent_id link_num =
value invoke_SL text cpts corpus_id count sent_id link_num =
ps (td_wrap (call_SL text cpts "t" corpus_id count sent_id link_num
^ "Sanskrit Library Interface"))
;] *)
;] i*)
value sort_check cpts =
let compare_index (a,_,_) (b,_,_) = compare a b in
List.sort compare_index cpts
......@@ -440,11 +440,6 @@ value check_sentence translit us text_orig checkpoints sentence
; table_end |> pl
; div_end |> ps (* Latin12 *)
; html_break |> pl
; reset_graph ()
; reset_visual ()
; set_cur_offset 0
; chkpts.segment_checks := []
; max_col.val := 0
}
;
value arguments trans lex cache st us cp input topic abs sol_num corpus id ln
......@@ -569,10 +564,10 @@ value graph_engine () = do
and rev_ind = int_of_string (get "rev_ind" env "-1") in
try do
{ match (revised,rev_off,rev_ind) with
[ ("",-1,-1) -> (* Standard input processing *** main call *** *)
[ ("",-1,-1) -> (* Standard input processing *** Main call *** *)
check_sentence translit uns text checkpoints input sol_num
corpus sent_id link_num
| (new_word,word_off,chunk_ind) (* User-aid revision *) ->
| (new_word,word_off,chunk_ind) (* User-aid revision mode *) ->
let chunks = Sanskrit.read_sanskrit (Encode.switch_code translit) input in
let rec decoded init ind = fun
[ [] -> String.sub init 0 ((String.length init)-1)
......@@ -601,6 +596,7 @@ value graph_engine () = do
check_sentence translit uns updated_text revised_check
new_input sol_num corpus sent_id link_num
]
(* Rest of the code concerns Corpus mode *)
(* automatically refreshing the page only if guess parameter *)
; if String.length guess_morph > 0 then
ps ("<script>\nwindow.onload = function () {window.location=\"" ^
......
......@@ -5900,6 +5900,8 @@ value compute_extra iic_only_stems = do
; compute_extra_iic iic_only_stems (* aajaanu etc. *)
; compute_extra_iic iicf_extra (* abalaa etc. *)
; compute_extra_iiv iiv_krids (* zuddhii *)
; enter1 "u" (* Vedic *) decl
where decl = Indecl Interj [ 5 ] (* u *)
(* Unplugged presently because of overgeneration
; [compute_extra_iic gen_prefixes]
; [compute_extra_ifc bahu_suffixes] eg Fem -padaa for meter formation *)
......
......@@ -231,7 +231,8 @@ value light = fun (* light roots end in short vowel Pan{6,1,69} *)
| [ c :: _ ] -> short_vowel c
]
;
value light_10 = fun (* light roots end in short vowel Pan{1,4,11} *)
(* For absolutives of roots gana 10 *)
value light_10 = fun (* light roots end in short vowel Pan{1,4,11} *)
[ [] -> failwith "light_10"
| [ c :: r ] -> if vowel c then False (* ? *) else match r with
[ [] -> failwith "light_10_1"
......
This diff is collapsed.
......@@ -8,4 +8,4 @@
(**************************************************************************)
(* Generated by make version - see main Makefile *)
value version="3.16" and version_date="2019-05-09";
value version="3.16" and version_date="2019-05-22";
VERSION='3.16'
DATE='2019-05-09'
DATE='2019-05-22'
No preview for this file type
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