Correcting subhruu naama -vatup ajaa

ML/mk_corpus_page.ml

@@ -17,7 +17,7 @@ value permission_selection =
       List.map select permissions 
       where select permission =
         let permission_str = Web_corpus.string_of_permission permission in
-        (String.capitalize permission_str, permission_str, 
+        (String.capitalize_ascii permission_str, permission_str, 
          permission = Web_corpus.Reader) in
   let read_only_permissions = [ Web_corpus.Reader ] in
   let other_permissions = Web_corpus.[ Annotator; Manager ] in

ML/nouns.ml

@@ -15,7 +15,7 @@
 
 open List; (* exists, iter *)
 open Word; (* mirror *)
-open Skt_morph;
+open Skt_morph (* morphology datatypes *);
 open Phonetics; (* [finalize, finalize_r] *) 
 open Inflected; (* [Declined, Bare, Cvi, enter, enter1, morpho_gen,
 reset_nominal_databases, nominal_databases] *)
@@ -25,9 +25,9 @@ exception Report of string
 ;
 value report revstem gen =
   let stem = Canon.rdecode revstem
-  and gender = match gen with 
+  and gender_str = match gen with 
       [ Mas -> "M" | Neu -> "N" | Fem -> "F" | Deictic _ -> "*" ] in 
-  let message = stem ^ " missing gender " ^ gender in
+  let message = stem ^ " missing gender " ^ gender_str in
   raise (Report message)
 ;
 value warn revstem str =
@@ -108,7 +108,8 @@ value compound_monosyl_ii = fun
 value compound_monosyl_uu = fun
   [ [ 40 :: _ ] (* -bhuu *) -> True (* abhiibhuu (may be too wide) *) 
   | [ 48 :: _ ] (* -suu *) -> True (* prasuu  (may be too wide) *)
-  | _ -> False (* to be completed for other roots *)
+  | [ 43 :: [ 40 ::  _ ] ] (* -bhruu *) -> True (* subhruu (may be too wide) *)
+  | _ -> False (* to be completed for other stems *)
   ]
 ;
 
@@ -461,6 +462,7 @@ value build_mas_ri_g stem entry = (* parenté avec gu.na *)
    ; Bare Noun bare
    ; Bare Noun (wrap stem 2) (* for dvandva eg ved hotaapotarau \Pan{6,3,47} *)
    ; Avyayaf bare
+   ; Indecl Tas (fix stem ".rtas") (* pit.rtas *)
    ]
 ;
 value build_nri stem entry = (* currently disabled by skip in Dico *)
@@ -1048,7 +1050,7 @@ value build_mas_zvan stem entry =  (* \Pan{6,4,133} *)
 ;
 value build_athin stem entry = (* pathin, supathin, mathin *)
   let decline case suff = (case,fix stem suff) 
-  and bare = wrap stem 3 in 
+  and bare = fix stem "thi" in 
   enter entry 
    [ Declined Noun Mas
    [ (Singular,
@@ -3206,6 +3208,7 @@ value build_mono_uu g stem entry =
    [ Declined Noun g
    [ (Singular,
         [ decline Voc "uus"
+        ; decline Voc "u" (* alternative Renou §234 MW gram §126h Vopadeva *)
         ; decline Nom "uus"  
         ; decline Acc "uvam" 
         ; decline Ins "uvaa"
@@ -3365,6 +3368,7 @@ value build_fem_ri_g stem entry = (* lien de parenté avec gu.na *)
    ]             
    ; Bare Noun bare
    ; Avyayaf bare 
+   ; Indecl Tas (fix stem ".rtas") (* maat.rtas *)
    ]
 ;
 value build_fem_ir stem entry = (* gir *)
@@ -5007,7 +5011,7 @@ value compute_nouns_stem_form e stem d p =
                | _  -> build_an Mas r2 e
                ]
             | [ 3 :: r2 ] (* -in *) -> match r2 with
-               [ [ 33 :: r3 ] -> match r3 with
+               [ [ 33 :: r3 ] (* -thin *)-> match r3 with
                   [ [ 1 :: [ 37 :: _ ] ]   (* -pathin *) (* \Pan{7,1,85} *)
                   | [ 1 :: [ 41 :: _ ] ]   (* -mathin *) 
                      -> build_athin r3 e

ML/verbs.ml

@@ -5281,12 +5281,13 @@ value den_stem_a entry = (* in general transitive Whitney§1059c *)
    | "nau#1"  -> [ 45 :: [ 2 :: trunc rstem ] ] (* au -> aav  Kale§642 *)
    | "raajan" -> [ 4 :: trunc (trunc rstem) ]   (* nasal amui Kale§642 *)
      (* now the general case: keep the nominal stem - to cause (transitive) *)
-   | "a.mza" | "afka" | "afkha" | "andha" | "aparok.sa" | "amitra" | "aakar.na"
-   | "aakula" | "aavila" | "i.sa" | "upahasta" | "ka.thora" | "kadartha"
-   | "kar.na" | "kalafka" | "kalu.sa" | "kavala" | "ku.t.ta" | "kusuma" 
-   | "kha.da" | "garva" | "gopaa" | "carca" | "cuur.na" | "chala" | "chidra"
-   | "tantra" | "tarafga" | "taru.na" | "tuhina" | "da.n.da" | "deva" | "dola"
-   | "dravat" | "dhiira#1" | "nirmuula" | "nuutana" | "pa.tapa.taa" | "pallava"
+   | "a.mza" | "afka" | "afkha" | "andha" | "aparok.sa" | "apahasta"
+   | "amitra" | "aakar.na" | "aakula" | "aavila" | "i.sa" | "upahasta" 
+   | "ka.thora" | "kadartha" | "kar.na" | "kalafka" | "kalu.sa" | "kavala"
+   | "ku.t.ta" | "kusuma" | "kha.da" | "garva" | "gopaa" | "carca"
+   | "cuur.na" | "chala" | "chidra" | "tantra" | "tarafga" | "taru.na"
+   | "tuhina" | "da.n.da" | "deva" | "dola" | "dravat" | "dhiira#1"
+   | "nirmuula" | "nuutana" | "pa.tapa.taa" | "pallava"
    | "pavitra" | "paaza" | "pi.n.da" | "pulaka" | "puula" | "pratikuula" 
    | "prati.sedha" | "pradak.si.na" | "prasaada" | "bhi.saj" | "mantra" 
    | "malina" | "mizra" | "mukula" | "mukhara" | "mu.n.da" | "muutra" 

ML/version.ml

@@ -8,4 +8,4 @@
 (**************************************************************************)
 
 (* Generated by make version - see main Makefile *)
-value version="3.09" and version_date="2018-09-09";
+value version="3.09" and version_date="2018-09-19";

SETUP/INSTALL

@@ -25,7 +25,7 @@ sudo make install
 
 Then install package Ocamlbuild from https://github.com/ocaml/ocamlbuild/releases
 for instance OCamlbuild 0.12.0:
-make configure
+make configure # beware: not ./configure
 make
 sudo make install
 

SETUP/version.txt

 VERSION='3.09'
-DATE='2018-09-09'
+DATE='2018-09-19'

SITE/gold.html

@@ -2624,6 +2624,50 @@ Au plaisir d'échanger avec vous,<br />
 Ilya Comet.<br />
 
 <hr />
+From Edgard Bikelis <XXX@gmail.com><br />
+To GH<br />
+Date 18 Septembre 2018<br />
+Error in the Sanskrit Heritage<br />
+
+namo namaḥ :)<br />
+
+Dear Gérard, first, thank you for your most useful site.<br />
+
+I was revising the declension of pathin with a student just now, and I
+noticed the compound form is missing the -th- there
+(http://sanskrit.inria.fr/cgi-bin/SKT/sktdeclin?q=pathin;g=Mas;font=roma).
+Perhaps that’s a symptom of something in the algorithm.<br />
+
+With Sanskritic salutations from Brazil,<br />
+
+Edgard Bikelis<br />
+
+<hr />
+From RamanaMurthy Bathala <XXX@gmail.com><br />
+To Gerard.Huet@inria.fr ambapradeep@gmail.com <br />
+Date 19 Septembre 2018<br />
+Declension of the noun: सुभ्रू subhrū m.f. 'having beautiful brows;'<br />
+
+Respected Scholars,<br />
+Greetings!!!<br />
+
+I am following your tools for noun and verbal form generatins.<br />
+1)http://scl.samsaadhanii.in/scl/<br />
+2)http://sanskrit.inria.fr/<br />
+3)http://ashtadhyayi.com/dhatu/<br />
+
+They help me a lot for student like me. It makes student's life easier and have become indispensable for a student<br />
+
+But sometimes I came across instances, where the forms generated do not match
+with that mentioned in the books. Here is one such an instance to bring it to
+your notice.<br />
+...<br />
+Regards<br />
+Ramana murthy<br />
+
+<hr />
+
+
 
 </td></tr>
 </table> <!-- body -->

SITE/portal.html

@@ -230,8 +230,11 @@ Metrically Restored Text by Karen Thomson and Jonathan Slocum</a><br>
 <!-- ernet obsolete
 <a href="http://sanskrit.uohyd.ernet.in/">Department of Sanskrit Studies, University of Hyderabad</a><br>-->
 <a href="http://sanskrit.uohyd.ac.in/">Department of Sanskrit Studies, University of Hyderabad</a><br>
-<a href="http://www.bhu.ac.in/Sanskrit/">Department of Sanskrit, Faculty of
-Arts, Banaras Hindu University, Varanasi</a><br>
+<a href="http://www.bhu.ac.in/Sanskrit/">Department of Sanskrit, Faculty of Arts, Banaras Hindu University, Varanasi</a><br>
+<a href="http://www.ksu.ac.in/en/">Karnataka Samskrit University, Bangalore</a><br>
+<!-- obsolete <a href="http://www.sanskrituni.net/">Kavikulguru Kalidas Sanskrit University, Ramtek, Maharashtra</a><br>-->
+<a href="http://kksanskrituni.digitaluniversity.ac">Kavikulguru Kalidas Sanskrit
+University, Ramtek, Nagpur, Maharashtra</a>
 <a href="http://ignca.nic.in/welcome.html">Kalakosa, Indira Gandhi National Center for the Arts</a><br>
 <a href="http://www.sanskritacademy.org/">Academy of Sanskrit Research in Melkote</a><br>
 <a href="http://vedavid.org/ASR/">More on Academy of Sanskrit Research</a><br>
@@ -245,8 +248,6 @@ Arts, Banaras Hindu University, Varanasi</a><br>
 Technology, Indian Institute of Technology, Bombay</a><br>-->
 <!-- obsolete<a href="http://www.indiaeducation.ernet.in/insitutions/PROFILENEW.ASP?no=U01763">Lal Bahadur Shastri Rashtriya Sanskrit Vidyapeetha, Delhi</a><br>-->
 <a href="http://www.slbsrsv.ac.in/home.asp">Lal Bahadur Shastri Rashtriya Sanskrit Vidyapeetha, Delhi</a><br>-->
-<!-- obsolete <a href="http://www.sanskrituni.net/">Kavikulguru Kalidas Sanskrit University, Ramtek, Maharashtra</a><br>-->
-<a href="http://kksanskrituni.digitaluniversity.ac">Kavikulguru Kalidas Sanskrit University, Ramtek, Maharashtra</a>
 <a href="http://mpsvvujjain.org/">Panini Sanskrit University, Ujjain</a><br>
 <a href="http://www.shadvala.de/en/center/">Shadvala Center for Sanskrit Studies, Goa</a><br>
 <!-- obsolete <a href="http://www.education.nic.in/htmlweb/prolan.htm">Indian Government Policy on Languages Development</a><br> -->

ZEN/Makefile

@@ -94,7 +94,7 @@ LINK_BYTEG=ocamlc -I +camlp4 dynlink.cma camlp4lib.cma
 all: timeshare unshare make_english_lexicon dagify \
 terdagify test  minimap.cmx lexmap.cmx bintree.cmx \
 deco.cmx zen_lexer.cmx transducer.cmx sharemod.cmx react0.cmx reactt.cmx \
-reacte.cmx regular.cmo #specific_cmx
+reacte.cmx mini.cmx regular.cmo #specific_cmx
 
 problematic: make_french_lexicon list_iso unglue_test.cmx