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

Fix Lexer.print_scl_segment for taddhitas

parent addd0de8
......@@ -264,14 +264,14 @@ value print_scl_segment counter (phase,rword) =
if pvs = [] then tags
else trim_tags (generative phase) form (Canon.decode pvs) tags in
print_scl_tags pvs phase form ok_tags
| Taddhita (ph,form) _ _ sfx_tags ->
match tags_of ph form with
[ Atomic _ -> (* stem, tagged as iic *)
print_scl_tags_tad [] ph form sfx_tags
| Preverbed _ pvs _ _ -> (* stem, tagged as iic *)
print_scl_tags_tad pvs ph form sfx_tags
| _ -> failwith "Anomaly: taddhita recursion"
]
| Taddhita (_,form) sfx sfx_phase sfx_tags ->
let taddhitanta_phase = match sfx_phase with
[ Sfx -> Noun
| Isfx -> Iic
| _ -> failwith "Wrong taddhita structure"
]
and taddhitanta_stem = form @ sfx (* very experimental *) in
print_scl_tags [] taddhitanta_phase taddhitanta_stem sfx_tags
]
; ps "'>" (* closes <input *)
; ps (Canon.unidevcode word)
......
......@@ -145,7 +145,7 @@ value display limit mode text saved = fun
input as a list of words, according to various transliteration schemes.
However, the use of "decode" below to compute the romanisation and devanagari
renderings does a conversion through VH transliteration which may not be
faithful to encodings which represent the sequence of phonemes t and h. *)
faithful to encodings which represent eg the sequence of phonemes t and h. *)
value process_input text us mode topic (input:string) encode cpts =
let pieces = Sanskrit.read_raw_sanskrit encode input in
let romapieces = List.map Canon.uniromcode pieces in
......
......@@ -615,8 +615,10 @@ value javascript_tooltip ="wz_tooltip.js"
(* Maybe should be put back in config? but versioning problem... *)
value remote_server_host = "http://sanskrit.inria.fr/"
;
(* This toogle controls accessibility of University of Hyderabad tools *)
value scl_toggle =
(* This toogle controls accessibility of University of Hyderabad tools.
It is controled by [ML/SCLpaths.ml], which is not part of the git repository,
and is initialised by default to [SETUP/dummy_SCLpaths.ml] at make time. *)
value scl_toggle =
not (SCLpaths.scl_url="") (* True if SCL tools are installed *)
;
value interaction_modes_default mode =
......
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