Commit 0af044f0 authored by Gérard Huet's avatar Gérard Huet

tasil of subst in -as -is -us, eg manastas; enii fem of eta

parent 89ae184c
......@@ -1247,7 +1247,7 @@ value build_mas_in stem entry =
;
value build_as gen stem entry =
let decline case suff = (case,fix stem suff)
and bare = mirror [ 48 :: [ 1 :: stem ] ] in
and rstem = [ 48 :: [ 1 :: stem ] ] in
enter entry (
[ Declined Noun gen
[ (Singular, let l =
......@@ -1305,7 +1305,8 @@ value build_as gen stem entry =
; decline Loc "a.hsu" (* decline Loc "assu" *)
])
]
; Bare Noun bare (* as *)
; Bare Noun (mirror rstem) (* as *)
; Indecl Tas (fix rstem "tas") (* eg manastas *)
]
@ (match entry with
["uras" | "manas" -> [ Bare Noun (wrap stem 1) ] (* ura- mana- *)
......@@ -1372,7 +1373,8 @@ value build_nas entry =
;
value build_is gen stem entry =
let decline case suff = (case,fix stem suff)
and bare = mirror [ 48 :: [ 3 :: stem ] ] in
and rstem = [ 48 :: [ 3 :: stem ] ] in
let bare = mirror rstem in
enter entry
[ Declined Noun gen
[ (Singular,
......@@ -1421,12 +1423,14 @@ value build_is gen stem entry =
])
]
; Bare Noun bare (* is *)
; Indecl Tas (fix rstem "tas")
; Avyayaf bare
]
;
value build_us gen stem entry =
let decline case suff = (case,fix stem suff)
and bare = mirror [ 48 :: [ 5 :: stem ] ] in
and rstem = [ 48 :: [ 5 :: stem ] ] in
let bare = mirror rstem in
enter entry
[ Declined Noun gen
[ (Singular,
......@@ -1476,6 +1480,7 @@ value build_us gen stem entry =
]
; Bare Noun bare (* us *)
; Cvi (wrap stem 6) (* arus cak.sus *)
; Indecl Tas (fix rstem "tas")
; Avyayaf bare
]
;
......@@ -3321,7 +3326,7 @@ value build_fem_ri_v stem entry = (* vriddhi in strong cases *)
; Avyayaf bare
]
;
value build_fem_ri_g stem entry = (* parenté avec gu.na *)
value build_fem_ri_g stem entry = (* lien de parenté avec gu.na *)
let decline case suff = (case,fix stem suff)
and bare = wrap stem 7 in
enter entry
......@@ -4908,7 +4913,7 @@ value compute_nouns_stem_form e stem d p =
| [ 2; 41; 2; 24 ] (* jaamaat.r *)
| [ 36; 1; 42; 1; 37; 3 ] (* upayant.r *)
| [ 2; 43; 40 ] (* bhraat.r *) -> build_mas_ri_g r1 e
(* napt.r bhart.r pari.net.r - parenthood exceptions, follow: *)
(* napt.r bhart.r pari.net.r dev.r: parenthood relation follow: *)
| _ -> (* dhaat.r general agent paradigm *) build_mas_ri_v r1 e
]
| [ 36 ] (* n.r *) -> build_nri r1 e
......
......@@ -5287,7 +5287,7 @@ value den_stem_a entry = (* in general transitive Whitney§1059c *)
| "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" | "nuutana" | "pa.tapa.taa" | "pallava"
| "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.08" and version_date="2018-06-24";
value version="3.08" and version_date="2018-07-07";
VERSION='3.08'
DATE='2018-06-24'
DATE='2018-07-07'
......@@ -704,7 +704,9 @@ by ind.senz</a><br>
<a href="http://www.imn.htwk-leipzig.de/~bunk/sanskrit.htm">The Sanskrit Declension Trainer from Leipzig by Michael Bunk</a><br>
<a href="http://sarovar.org/projects/sandhiprogram/">Sandhi program according to Laghu Siddhanta by Chetan Pandey</a><br>
<a href="http://www.aupasana.com/software">Aupasana site of Ajit Krishnan</a><br>
<a href="https://sites.google.com/site/sanskritcode/">Sanskrit Programmers Site</a><br>
<!-- OLD <a href="https://sites.google.com/site/sanskritcode/">Sanskrit Programmers Site</a><br> -->
<a href="https://sanskrit-coders.github.io/site/">Sanskrit Programmers
Site</a><br>
<a href="http://www.chitrapurmath.net/sanskrit/sanskrit.htm">A Sanskrit tutor by the Chitrapur math</a><br>
<a href="http://spokensanskrit.de/">A translator between Sanskrit and English</a><br>
<a href="http://www.iit.edu/~laksvij/language/">Indian Language Converter by Vijay Lakshminarayanan</a><br>
......
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