Commit 3481f227 authored by Sriram Krishnan's avatar Sriram Krishnan
Browse files

Minor Corrections in Pipeline with Samsaadhanii

parent b7842826
......@@ -573,7 +573,7 @@ value write_sol_to_std_out solution_list selected_segments =
let final_segments = List.map snd selected_segments
and seg_sols = List.map get_string solution_list in do
{ ("sentence: " ^ (replace_plus (List.hd seg_sols))) |> ps
; "\n" |> ps
; "\nmorph: " |> ps
; Scl_parser.post_best_segments_scl final_segments
}
;
......@@ -817,7 +817,7 @@ value graph_engine () =
let url_encoded_input = get "text" env ""
and url_encoded_topic = get "topic" env "" (* topic carry-over *)
and url_encoded_mode = get "mode" env "b"
and ppl = get "pipeline" env "false"
and ppl = get "pipeline" env "f"
and st = get "st" env "t" (* sentence parse default *)
and us = get "us" env "f" (* sandhied text default *)
and translit = get "t" env Paths.default_transliteration (* translit input *)
......@@ -837,7 +837,7 @@ value graph_engine () =
else () (* word vs sentence stemmer *)
and () = Lexer_control.transducers_ref.val:=Transducers.mk_transducers ()
and mode = mode_of_mode_id (decode_url url_encoded_mode)
and pipeline = (ppl = "true")
and pipeline = (ppl = "t")
and () = assign_freq_info
and url_enc_corpus_permission = (* Corpus mode *)
get Params.corpus_permission env "true" in
......
......@@ -618,9 +618,7 @@ value print_scl_segment counter (phase,rword) =
(* Called from [Scl_parser.post_best_segments_scl] *)
value best_segments_for_scl counter (phase,rword) =
let word = Morpho_html.visargify rword in do
{ let ic = string_of_int counter in
"morph: <form wx=\""
^ Canon.decode_WX word ^ "\"/>" |> ps
{ "<form wx=\"" ^ Canon.decode_WX word ^ "\"/>" |> ps
; match tags_of phase (mirror rword) with
[ Atomic tags ->
print_scl_tags [] phase word tags
......
Supports Markdown
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