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

Correcting subhruu naama -vatup ajaa

parent 7b63a4d3
......@@ -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
......
......@@ -15,8 +15,8 @@
open List; (* exists, iter *)
open Word; (* mirror *)
open Skt_morph;
open Phonetics; (* [finalize, finalize_r] *)
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,8 +3208,9 @@ value build_mono_uu g stem entry =
[ Declined Noun g
[ (Singular,
[ decline Voc "uus"
; decline Nom "uus"
; decline Acc "uvam"
; decline Voc "u" (* alternative Renou §234 MW gram §126h Vopadeva *)
; decline Nom "uus"
; decline Acc "uvam"
; decline Ins "uvaa"
; decline Dat "uve"
; decline Dat "uvai"
......@@ -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
......
......@@ -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"
......
......@@ -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";
......@@ -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
......
VERSION='3.09'
DATE='2018-09-09'
DATE='2018-09-19'
......@@ -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 -->
......
......@@ -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> -->
......
......@@ -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
......
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