Commit 20708d7f authored by Gérard Huet's avatar Gérard Huet

Interface with UOH tools

parent 5fe67064
This diff is collapsed.
......@@ -180,9 +180,9 @@ rank.cmo : ../ZEN/word.cmo web.cmo phases.cmo morphology.cmi \
rank.cmx : ../ZEN/word.cmx web.cmx phases.cmx morphology.cmi \
../ZEN/list2.cmx lexer.cmx constraints.cmx
uoh_interface.cmo : ../ZEN/word.cmo web.cmo SCLpaths.cmo phases.cmo \
morphology.cmi morpho_html.cmo html.cmo dispatcher.cmi canon.cmo
morphology.cmi load_morphs.cmo html.cmo dispatcher.cmi
uoh_interface.cmx : ../ZEN/word.cmx web.cmx SCLpaths.cmx phases.cmx \
morphology.cmi morpho_html.cmx html.cmx dispatcher.cmx canon.cmx
morphology.cmi load_morphs.cmx html.cmx dispatcher.cmx
reader.cmo : web.cmo uoh_interface.cmo sanskrit.cmi rank.cmo phases.cmo \
paths.cmo html.cmo encode.cmo control.cmo checkpoints.cmo cgi.cmo \
canon.cmo
......@@ -190,13 +190,13 @@ reader.cmx : web.cmx uoh_interface.cmx sanskrit.cmx rank.cmx phases.cmx \
paths.cmx html.cmx encode.cmx control.cmx checkpoints.cmx cgi.cmx \
canon.cmx
parser.cmo : ../ZEN/word.cmo web.cmo uoh_interface.cmo skt_morph.cmi \
sanskrit.cmi paths.cmo paraphrase.cmi ../ZEN/list2.cmo lexer.cmi \
inflected.cmi html.cmo ../ZEN/gen.cmo encode.cmo date.cmo control.cmo \
constraints.cmi checkpoints.cmo cgi.cmo canon.cmo
sanskrit.cmi SCLpaths.cmo paths.cmo paraphrase.cmi ../ZEN/list2.cmo \
lexer.cmi inflected.cmi html.cmo ../ZEN/gen.cmo encode.cmo date.cmo \
control.cmo constraints.cmi checkpoints.cmo cgi.cmo canon.cmo
parser.cmx : ../ZEN/word.cmx web.cmx uoh_interface.cmx skt_morph.cmi \
sanskrit.cmx paths.cmx paraphrase.cmx ../ZEN/list2.cmx lexer.cmx \
inflected.cmx html.cmx ../ZEN/gen.cmx encode.cmx date.cmx control.cmx \
constraints.cmx checkpoints.cmx cgi.cmx canon.cmx
sanskrit.cmx SCLpaths.cmx paths.cmx paraphrase.cmx ../ZEN/list2.cmx \
lexer.cmx inflected.cmx html.cmx ../ZEN/gen.cmx encode.cmx date.cmx \
control.cmx constraints.cmx checkpoints.cmx cgi.cmx canon.cmx
constraints.cmi : skt_morph.cmi morphology.cmi
constraints.cmo : ../ZEN/word.cmo skt_morph.cmi morphology.cmi \
../ZEN/list2.cmo html.cmo canon.cmo constraints.cmi
......@@ -268,8 +268,8 @@ morpho_html.cmx : ../ZEN/word.cmx web.cmx transduction.cmx multilingual.cmx \
chapters.cmx canon.cmx
chapters.cmo : ../ZEN/word.cmo order.cmo encode.cmo ../ZEN/deco.cmo
chapters.cmx : ../ZEN/word.cmx order.cmx encode.cmx ../ZEN/deco.cmx
mk_index_page.cmo : web.cmo html.cmo
mk_index_page.cmx : web.cmx html.cmx
mk_index_page.cmo : web.cmo paths.cmo html.cmo
mk_index_page.cmx : web.cmx paths.cmx html.cmx
mk_grammar_page.cmo : web.cmo paths.cmo html.cmo
mk_grammar_page.cmx : web.cmx paths.cmx html.cmx
mk_reader_page.cmo : web.cmo paths.cmo html.cmo control.cmo cgi.cmo
......
......@@ -42,6 +42,16 @@ value sheets = (* cascading style sheets data *)
; ("table",Carmin_back); ("table",Orange_back); ("table",Red_back)
; ("table",Grey_back); ("table",Pink_back); ("table",Spacing20)
; ("table",Light_blue_back); ("table",Lavender_back); ("table",Lawngreen_back)
; ("td",Yellow_back); ("td",Yellow_cent); ("td",Deep_sky_cent)
; ("td",Salmon_back); ("td",Aquamarine_back)
; ("td",Mauve_back); ("td",Magenta_back); ("td",Mauve_cent)
; ("td",Cyan_back); ("td",Cyan_cent); ("td",Lavender_cent)
; ("td",Gold_back); ("td",Gold_cent); ("td",Inflexion)
; ("td",Chamois_back); ("td",Blue_back) ; ("td",Green_back)
; ("td",Brown_back); ("td",Lime_back); ("td",Deep_sky_back)
; ("td",Carmin_back); ("td",Orange_back); ("td",Red_back)
; ("td",Grey_back); ("td",Pink_back); ("td",Spacing20)
; ("td",Light_blue_back); ("td",Lavender_back); ("td",Lawngreen_back)
; ("th",Cell5); ("th",Cell10); ("th",Border2); ("td",Center_)
; ("table",Centered); ("table",Tcenter)
];
......
......@@ -129,17 +129,17 @@ value rec str_phase = fun
| Tad (ph,_) _ _ -> "taddhita " ^ str_phase ph
]
;
value print_ext_morph pvs ps gen form tag = do
value print_ext_morph pvs gen form tag = do
{ ps (xml_begin "tag")
; Morpho_ext.print_ext_inflected_link pvs ps form gen tag
; Morpho_ext.print_ext_inflected_link pvs form gen tag
; ps (xml_end "tag")
}
;
value print_ext_tags pvs ps phase form tags =
value print_ext_tags pvs phase form tags =
let table_ext phase =
xml_begin_with_att "tags" [ ("phase",str_phase phase) ] in do
{ ps (table_ext phase)
; List.iter (print_ext_morph pvs ps (generative phase) form) tags
; List.iter (print_ext_morph pvs (generative phase) form) tags
; ps (xml_end "tags")
}
;
......@@ -240,28 +240,45 @@ value print_segment offset (phase,rword,transition) = do
}
;
(* Similarly for [Reader_plugin] mode (without offset) *)
value print_ext_segment ps (phase,rword,_) =
value print_ext_segment counter (phase,rword,_) =
let print_pada rword =
let word = Morpho_html.visargify rword in
ps ("<form wx=\"" ^ Canon.decode_WX word ^ "\"/>") in do
{ print_pada rword
let ic = string_of_int counter in
ps ("<input type=\"hidden\" name=\"field"^ ic ^"\" value='<form wx=\"" ^ Canon.decode_WX word ^ "\"/>") in do
{ let solid = background (Disp.color_of_phase phase) in
pl (td_begin_class solid)
(*; ps td_begin*)
; print_pada rword
; let word = mirror rword in
match tags_of phase word with
[ Atomic tags ->
print_ext_tags [] ps phase word tags
print_ext_tags [] phase word tags
| Preverbed (_,phase) pvs form tags ->
let ok_tags =
if pvs = [] then tags
else trim_tags (generative phase) form (Canon.decode pvs) tags in
print_ext_tags pvs ps phase form ok_tags
print_ext_tags pvs phase form ok_tags
| Taddhita _ _ sfx_phase sfx_tags ->
let taddhita_phase = match sfx_phase with
[ Sfx -> Noun
| Isfx -> Iic
| _ -> failwith "Wrong taddhita structure"
] in
print_ext_tags [] ps taddhita_phase word sfx_tags
]
print_ext_tags [] taddhita_phase word sfx_tags
]
; ps ("'>")
(*; let solid = background (Disp.color_of_phase phase) in
pl (table_begin solid)
; ps tr_begin
; ps td_begin *)
; let word = Morpho_html.visargify rword in
ps (Canon.unidevcode word)
(* ; ps td_end
; ps tr_end
; ps table_end *)
; ps td_end
; ps ("\n")
; counter+1
}
;
value cell item = do (* residual of Html *)
......
......@@ -52,8 +52,7 @@ module Lexer : functor (* takes its prelude and iterator control as parameters *
value all_checks : ref (list Viccheda.check);
value un_analyzable : Word.word -> (list Disp.segment * Viccheda.resumption);
value set_offset : (int * list Viccheda.check) -> unit;
value print_ext_segment
: (string -> unit) -> Disp.segment -> unit;
value print_ext_segment : int -> Disp.segment -> int;
value record_tagging : bool -> bool -> string -> int -> string ->
list (Phases.phase * Word.word * 'a) -> list (int * int) -> unit;
value return_tagging :
......
......@@ -17,20 +17,22 @@ open Skt_morph;
open Morphology; (* [inflected] and its constructors [Noun_form], ... *)
open Naming; (* [look_up_homo homo_undo unique_kridantas lexical_kridantas] *)
value pr_ext_gana ps k = ps (string_of_int k)
value ps = print_string
;
value print_ext_number ps = fun
value pr_ext_gana k = ps (string_of_int k)
;
value print_ext_number = fun
[ Singular -> ps "<sg/>"
| Dual -> ps "<du/>"
| Plural -> ps "<pl/>"
]
and print_ext_gender ps = fun
and print_ext_gender = fun
[ Mas -> ps "<m/>"
| Neu -> ps "<n/>"
| Fem -> ps "<f/>"
| Deictic _ -> ps "<d/>"
]
and print_ext_case ps = fun
and print_ext_case = fun
[ Nom -> ps "<nom/>"
| Acc -> ps "<acc/>"
| Ins -> ps "<ins/>"
......@@ -40,73 +42,73 @@ and print_ext_case ps = fun
| Loc -> ps "<loc/>"
| Voc -> ps "<voc/>"
]
and print_ext_person ps = fun
and print_ext_person = fun
[ First -> ps "<fst/>"
| Second -> ps "<snd/>"
| Third -> ps "<thd/>"
]
and print_ext_voice ps = fun
and print_ext_voice = fun
[ Active -> ps "<ac/>"
| Middle -> ps "<md/>"
| Passive -> ps "<ps/>"
]
and print_ext_pr_mode ps = fun
and print_ext_pr_mode = fun
[ Present -> ps "<pr gana="
| Imperative -> ps "<imp gana="
| Optative -> ps "<opt gana="
| Imperfect -> ps "<impft gana="
]
and print_ext_pr_mode_ps ps = fun
and print_ext_pr_mode_ps = fun
[ Present -> ps "<prps/>"
| Imperative -> ps "<impps/>"
| Optative -> ps "<optps/>"
| Imperfect -> ps "<impftps/>"
]
and print_ext_tense ps = fun
and print_ext_tense = fun
[ Future -> ps "<fut/>"
| Perfect -> ps "<pft/>"
| Aorist k -> do { ps "<aor gana="; pr_ext_gana ps k; ps "/>" }
| Injunctive k -> do { ps "<inj gana="; pr_ext_gana ps k; ps "/>" }
| Aorist k -> do { ps "<aor gana="; pr_ext_gana k; ps "/>" }
| Injunctive k -> do { ps "<inj gana="; pr_ext_gana k; ps "/>" }
| Conditional -> ps "<cond/>"
| Benedictive -> ps "<ben/>"
]
;
value print_ext_paradigm ps = fun
[ Conjug t v -> do { print_ext_tense ps t; print_ext_voice ps v }
| Presenta k pr -> do { print_ext_pr_mode ps pr; pr_ext_gana ps k;
value print_ext_paradigm = fun
[ Conjug t v -> do { print_ext_tense t; print_ext_voice v }
| Presenta k pr -> do { print_ext_pr_mode pr; pr_ext_gana k;
ps "/><ac/>" }
| Presentm k pr -> do { print_ext_pr_mode ps pr; pr_ext_gana ps k;
| Presentm k pr -> do { print_ext_pr_mode pr; pr_ext_gana k;
ps "/><md/>" }
| Presentp pr -> print_ext_pr_mode_ps ps pr
| Presentp pr -> print_ext_pr_mode_ps pr
| Perfut v -> ps "<perfut/>" (* TODO: mark voice *)
]
and print_ext_conjugation ps = fun
and print_ext_conjugation = fun
[ Primary -> ()
| Causative -> ps "<ca/>"
| Intensive -> ps "<int/>"
| Desiderative -> ps "<des/>"
]
and print_ext_nominal ps = fun
and print_ext_nominal = fun
[ Ppp -> ps "<pp/>"
| Pppa -> ps "<ppa/>"
| Ppra k -> do { ps "<ppr gana="; pr_ext_gana ps k; ps "/>";
print_ext_voice ps Active }
| Pprm k -> do { ps "<ppr gana="; pr_ext_gana ps k; ps "/>";
print_ext_voice ps Middle }
| Pprp -> do { ps "<ppr/>"; print_ext_voice ps Passive }
| Ppfta -> do { ps "<ppf/>"; print_ext_voice ps Active }
| Ppftm -> do { ps "<ppf/>"; print_ext_voice ps Middle }
| Pfuta -> do { ps "<pfu/>"; print_ext_voice ps Active }
| Pfutm -> do { ps "<pfu/>"; print_ext_voice ps Middle }
| Pfutp k -> do { ps "<pfp/>"; pr_ext_gana ps k }
| Ppra k -> do { ps "<ppr gana="; pr_ext_gana k; ps "/>";
print_ext_voice Active }
| Pprm k -> do { ps "<ppr gana="; pr_ext_gana k; ps "/>";
print_ext_voice Middle }
| Pprp -> do { ps "<ppr/>"; print_ext_voice Passive }
| Ppfta -> do { ps "<ppf/>"; print_ext_voice Active }
| Ppftm -> do { ps "<ppf/>"; print_ext_voice Middle }
| Pfuta -> do { ps "<pfu/>"; print_ext_voice Active }
| Pfutm -> do { ps "<pfu/>"; print_ext_voice Middle }
| Pfutp k -> do { ps "<pfp/>"; pr_ext_gana k }
| _ -> ps "<act/>" (* action verbal nouns *)
]
and print_ext_invar ps = fun
and print_ext_invar = fun
[ Infi -> ps "<inf/>"
| Absoya -> ps "<abs/>"
| Perpft -> ps "<perpft/>"
]
and print_ext_kind ps = fun
and print_ext_kind = fun
[ Part -> ps "<part/>"
| Prep -> ps "<prep/>"
| Conj -> ps "<conj/>"
......@@ -115,43 +117,43 @@ and print_ext_kind ps = fun
| _ -> ps "<und/>"
]
;
value print_ext_finite ps (c,p) =
do { print_ext_conjugation ps c; print_ext_paradigm ps p }
and print_ext_verbal ps (c,n) =
do { print_ext_conjugation ps c; print_ext_nominal ps n }
and print_ext_modal ps (c,i) =
do { print_ext_conjugation ps c; print_ext_invar ps i }
value print_ext_finite (c,p) =
do { print_ext_conjugation c; print_ext_paradigm p }
and print_ext_verbal (c,n) =
do { print_ext_conjugation c; print_ext_nominal n }
and print_ext_modal (c,i) =
do { print_ext_conjugation c; print_ext_invar i }
;
value print_ext_morph ps = fun
value print_ext_morph = fun
[ Noun_form g n c
| Part_form _ g n c -> do
{ print_ext_case ps c
; print_ext_number ps n
; print_ext_gender ps g
{ print_ext_case c
; print_ext_number n
; print_ext_gender g
}
| Bare_stem | Avyayai_form -> ps "<iic/>"
| Verb_form f n p -> do
{ print_ext_finite ps f
; print_ext_number ps n
; print_ext_person ps p
{ print_ext_finite f
; print_ext_number n
; print_ext_person p
}
| Ind_form k -> print_ext_kind ps k
| Ind_form k -> print_ext_kind k
| Avyayaf_form -> ps "<avya/>"
| Abs_root c -> do { print_ext_conjugation ps c; ps "<abs/>" }
| Abs_root c -> do { print_ext_conjugation c; ps "<abs/>" }
| Auxi_form -> ps "<iiv/>"
| Ind_verb m -> print_ext_modal ps m
| Ind_verb m -> print_ext_modal m
| PV _ -> ps "<pv/>"
| Unanalysed -> ps "<unknown/>"
]
;
value print_ext_morphs ps =
value print_ext_morphs =
let choice () = ps "</choice><choice>" in
List2.process_list_sep (print_ext_morph ps) choice
List2.process_list_sep print_ext_morph choice
;
value print_inv_morpho_ext ps pe pne form generative (delta,morphs) =
value print_inv_morpho_ext pe pne form generative (delta,morphs) =
let stem = Word.patch delta form in do (* stem may have homo index *)
{ ps "<morpho_infl><choice>"
; print_ext_morphs ps morphs
; print_ext_morphs morphs
; ps "</choice></morpho_infl>"
; ps "<morpho_gen>"
; if generative then (* interpret stem as unique name *)
......@@ -165,25 +167,25 @@ value print_inv_morpho_ext ps pe pne form generative (delta,morphs) =
then pe stem (* stem with exact homo is lexical entry *)
else pne bare_stem
]
; ps "<krid>"; print_ext_verbal ps verbal
; ps "<krid>"; print_ext_verbal verbal
; ps "</krid><root>"; pe root; ps "</root>"
} with [ _ -> pne bare_stem ]
else pe stem
; ps "</morpho_gen>"
}
;
value print_inv_morpho_link_ext pvs ps pe pne form =
value print_inv_morpho_link_ext pvs pe pne form =
let pv = if Phonetics.phantomatic form then [ 2 ] (* aa- *)
else pvs in
let encaps print e = if pv = [] then print e
else do { ps (Canon.decode_WX pvs ^ "-"); print e } in
print_inv_morpho_ext ps (encaps pe) (encaps pne) form
and print_ext_entry ps w = (* ps offline in WX notation for UoH interface *)
print_inv_morpho_ext (encaps pe) (encaps pne) form
and print_ext_entry w = (* ps offline in WX notation for UoH interface *)
ps ("<entry wx=\"" ^ Canon.decode_WX w ^ "\"/>")
;
(* Used in [Lexer.print_ext_morph] *)
value print_ext_inflected_link pvs ps =
print_inv_morpho_link_ext pvs ps (print_ext_entry ps) (print_ext_entry ps)
value print_ext_inflected_link pvs =
print_inv_morpho_link_ext pvs print_ext_entry print_ext_entry
;
(*i end; i*)
......@@ -130,11 +130,11 @@ value display limit mode text saved = fun
]
}
| Analyse -> match saved with
[ [] -> Ext.print_ext best_sols
| [ (_,min_buck) :: _ ] ->
let zero_pen = List.append best_sols (List.rev min_buck) in
Ext.print_ext zero_pen
]
[ [] -> Ext.print_ext (best_sols:list (int * list Rank.Lex.Disp.segment))
| [ (_,min_buck) :: _ ] ->
let zero_pen = List.append best_sols (List.rev min_buck) in
Ext.print_ext zero_pen
]
| _ -> ()
]
}
......
......@@ -72,10 +72,10 @@ value minimum_penalty output =
(* Same as [UoH_interface.print_ext_output] *)
value print_offline_output cho (n,output) =
let ps = output_string cho in
let print_segment = Lex.print_ext_segment ps in do
let print_segment = Lex.print_ext_segment in do
{ ps (xml_begin_with_att "solution" [ ("num", string_of_int n) ])
; ps "\n"
; List.iter print_segment (List.rev output)
; let _ = List.fold_left Lex.print_ext_segment 1 (List.rev output) in ()
; ps (xml_end "solution")
; ps "\n"
}
......
......@@ -12,25 +12,52 @@
open Html;
open Web; (* ps pl etc. [scl_url] *)
open Morphology; (* inflected lemma morphology *)
open Phases.Phases; (* phase etc. *)
open Dispatcher;
open SCLpaths; (* [svg_interface_url] *)
open Phases; (* Phases *)
open Dispatcher; (* Dispatch *)
open SCLpaths; (* [scl_url scl_cgi] *)
value svg_interface_url = scl_cgi ^ "SHMT/"
and nn_parser_url = scl_cgi ^ "NN/parser/generate.cgi"
and show_parses_path = "prog/interface/call_parser_summary.cgi"
;
module Prel = struct (* similar to Interface's lexer prelude *)
value prelude () = do
{ pl http_header
; page_begin graph_meta_title
; pl (body_begin Chamois_back)
; open_page_with_margin 15
}
;
end (* Prel *)
;
(* Service routines for morphological query, loading the morphology banks *)
module Lemmas = Load_morphs.Morphs Prel Phases
;
open Lemmas (* [tags_of morpho] *)
;
open Phases; (* phase etc. *)
module UOH
(Lex: sig
module Disp :
module Disp :
sig
type transition;
value color_of_phase: phase -> color;
type segment = (phase * Word.word * transition);
end;
value print_ext_segment: (string -> unit) -> Disp.segment -> unit;
value print_ext_segment: int -> Disp.segment -> int;
end) = struct
(****************************************************************)
(* Interface with Amba Kulkarni's parser at UoH - Analysis mode *)
(****************************************************************)
value print_ext_output (_,output) =
List.fold_left Lex.print_ext_segment 1 (List.rev output)
;
(* Delimitor for offline printing and piping into UoH's parser *)
value delimitor = fun
[ Iic | Iic2 | A | An | Iicv | Iicc | Iik | Iikv | Iikc | Iiif | Iiy -> "-"
......@@ -38,84 +65,27 @@ value delimitor = fun
| Pv | Pvk | Pvkc | Pvkv -> failwith "No more Pv segments"
| _ -> " "
]
;
value print_ext_output cho (n,output) =
let ps = output_string cho in
let print_segment = Lex.print_ext_segment ps in do
{ ps (xml_begin_with_att "solution" [ ("num", string_of_int n) ])
; ps "\n"
; List.iter print_segment (List.rev output)
; ps (xml_end "solution")
; ps "\n"
}
;
value print_ext_solutions s =
let _ = print_ext_output s in ()
;
(* Prints a solution with its index, returns the bumped index ignoring sandhi *)
(* Prints on [std_out], as usual for a cgi. *)
value print_callback_solution counter solution =
let print_pada rword =
let word = Morpho_html.visargify rword in
ps (Canon.unidevcode word) in
let print_segment_cbk (phase,rword,_) = do (* follows [Lex.print_segment] *)
{ ps td_begin (* begin segment *)
; let solid = background (Lex.Disp.color_of_phase phase) in
pl (table_begin solid)
; ps tr_begin
; ps td_begin
; print_pada rword
; ps td_end
; ps tr_end
; ps table_end
; ps td_end (* end segment *)
; ps (delimitor phase)
} in do
{ ps tr_begin
; ps td_begin
; List.iter print_segment_cbk solution
; ps td_end
; ps tr_end
; ps (html_latin12 "Verse Order")
; ps table_end
; ps ("<form name=\"word-order\" method=\"get\" action = \""
(* Invocation of UoH's CSL parser for dependency graph display *)
value print_ext1 (solutions : (int * list Lex.Disp.segment)) = do
{ ps ("<script type=\"text/javascript\" src=\"" ^ scl_url ^ "js_files/dragtable.js\"></script>")
; ps ("<form name=\"word-order\" method=\"POST\" action = \""
^ svg_interface_url ^ "prog/Word_order/call_heritage2anu.cgi\">\n")
; ps "<table>"
; ps ("<table class=\"draggable\">")
; ps tr_begin
; ps td_begin
; ps (html_latin12 "Prose Order")
; ps (xml_begin_with_att "textarea"
[ ("name","word-order"); ("rows","1"); ("cols","50") ] ^
xml_end "textarea")
; print_ext_solutions solutions
; ps tr_end
; ps table_end
; ps (submit_input "Submit")
; ps td_end
; ps tr_end
; counter+1
}
;
value print_callback_output counter (_,output) =
let solution = List.rev output in
print_callback_solution counter solution
;
(* Print solutions as call backs to the SCL dependency graph display cgi *)
value print_callback =
List.fold_left print_callback_output 1
}
;
value print_ext_solutions cho = List.iter (print_ext_output cho)
;
(* Prints all segmentations in [offline_file]
and prepares invocation of UoH's CSL parser for dependency graph display *)
value print_ext solutions =
let cmd = "mkdir -p " ^ offline_dir in
let _ = Sys.command cmd in (* call it *)
let cho = open_out offline_file in do
{ print_ext_solutions cho solutions
; close_out cho
(* System call to Amba Kulkarni's parser - fragile *)
; ps table_end
; ps (xml_begin "table")
; let _ = print_callback solutions in () (* print dependency graphs *)
(*[; ps table_end ] (?) *)
}
value print_ext sols = match sols with
[ [] -> failwith "No sol"
| [ s :: _ ] -> print_ext1 s
]
;
end;
......@@ -8,4 +8,4 @@
(**************************************************************************)
(* Generated by make version - see main Makefile *)
value version="2.99" and version_date="2017-05-26";
value version="2.99" and version_date="2017-06-01";
......@@ -68,8 +68,8 @@ SYSTEM_supplements=SETUP/TEX SETUP/wwwcount2.5.tar.gz
# General information
INFOS=README INSTALLATION
INRIA_IMAGES=IMAGES/icon_ocaml.png IMAGES/JoeCaml.png IMAGES/logo_inria.png # C. Inria
# IMAGES/inria.gif # Copyright INRIA (old logo)
INRIA_IMAGES=IMAGES/icon_ocaml.png IMAGES/JoeCaml.png \
IMAGES/logo_inria.png # Copyright Inria
# W3C_IMAGES=IMAGES/valid-xhtml10.png # Copy W3C - obsolete
GH_IMAGES=IMAGES/smallyantra.gif IMAGES/Yantra.jpg IMAGES/favicon.ico \
IMAGES/apple-touch-icon-ipad-76x76.png \
......@@ -82,7 +82,7 @@ DOC_IMAGES=IMAGES/lexer10.jpg IMAGES/lexer17.jpg IMAGES/lexer40.jpg # Copy GH
# NB. Use of gif vs others formats such as jpg is due to browser compatibility
# Scripts
SCRIPTS=JAVA/utf82VH.js
SCRIPTS=JAVASCRIPT/utf82VH.js JAVASCRIPT/dragtable.js
# Next are copyright specific images
SITE_IMAGES=IMAGES/yinyang.gif IMAGES/panini.jpg IMAGES/spin-new.gif \
......@@ -585,13 +585,13 @@ distr_engine: # distribution of packages CORE GRAM abd WEB under SOFT_LICENSE
mkdir DISTR # Distribution directory
mkdir DISTR/ML # Source code library for all packages
mkdir DISTR/SETUP # SETUP directory
mkdir DISTR/JAVA # JAVA scripts directory
mkdir DISTR/JAVASCRIPT # JAVASCRIPT scripts directory
cp -p $(UTIL) DISTR/ML # Skt script utilities
cp -p $(DISTR_CORE) DISTR/ML # Skt Core Engine ML source code
cp -p $(GRAM) DISTR/ML # Skt Grammatical Engine ML source code
cp -p $(WEB) DISTR/ML # Skt Site Manager ML source code
cp -p $(AUT) DISTR/ML # Skt Automaton production source code
cp -p $(SCRIPTS) DISTR/JAVA # Scripts
cp -p $(SCRIPTS) DISTR/JAVASCRIPT # Scripts
cp -Rp $(SYSTEM_SETUP) DISTR/SETUP # SETUP
cp -p $(SYSTEM_configure) DISTR # configure at top level
# cp -Rp $(SYSTEM_supplements) DISTR/SETUP # supplements
......
......@@ -8,21 +8,9 @@
(* This will reside in ML directory at configuration time *)
value scl_url = "http://localhost/SCL/SHMT/"
value scl_url = ""
and scl_cgi = ""
;
(* used in [Uoh_interface] *)
value svg_interface_url = ""
and nn_parser_url = ""
and show_parses_path = ""
;
value scl_install_dir = ""
and offline_dir = "/tmp/" (* vamana *)
and default_output_font = "ROMAN" (* could be "DEV" *)
;
value scl_dir = ""
and offline name = offline_dir ^ name (* problematic file output *)
;
value offline_file = offline "1.txt" (* owner [_www] Apache=httpd *)
and tmp_in = offline "tmp_in"
value default_output_font = "ROMAN" (* could be "DEV" *)
;
VERSION='2.99'
DATE='2017-05-26'
DATE='2017-06-01'
......@@ -84,7 +84,7 @@ preverb sequences, given with their sandhi analysis.
All these linguistic data banks are Copyrighted Gérard Huet 1994-2017.
They are derived from the Sanskrit Heritage Dictionary
version 2.99 dated 2017-05-26.
version 2.99 dated 2017-06-01.
<p>
Use of these linguistic resources is granted according to the
Lesser General Public Licence for Linguistic Resources.
......
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