Commit 1bc19764 authored by Gérard Huet's avatar Gérard Huet

Paths.default_display_font used in declension and conjugation servives

parent 37f7d316
This diff is collapsed.
...@@ -40,7 +40,7 @@ value print_scl_output output = ...@@ -40,7 +40,7 @@ value print_scl_output output =
List.fold_left Lex.print_scl_segment 1 (List.rev output) List.fold_left Lex.print_scl_segment 1 (List.rev output)
; ;
value print_scl_solutions s = value print_scl_solutions s =
let _ = print_scl_output s in () let _ = print_scl_output s in ()
; ;
(* Invocation of UoH's CSL parser for dependency graph display *) (* Invocation of UoH's CSL parser for dependency graph display *)
value print_scl1 (solutions : list (Phases.phase * Word.word)) = value print_scl1 (solutions : list (Phases.phase * Word.word)) =
......
...@@ -356,6 +356,7 @@ value weak_stem entry rstem = (* rstem = revstem entry *) ...@@ -356,6 +356,7 @@ value weak_stem entry rstem = (* rstem = revstem entry *)
| "nij" -> revcode "ni~nj" (* nasalisation *) | "nij" -> revcode "ni~nj" (* nasalisation *)
| "vaz" -> revcode "uz" (* but not vac ! *) | "vaz" -> revcode "uz" (* but not vac ! *)
| "zaas" -> revcode "zi.s" | "zaas" -> revcode "zi.s"
| "myak.s" -> revcode "mik.s"
| _ -> rstem | _ -> rstem
] ]
; ;
...@@ -3026,7 +3027,7 @@ value redup_perf root = ...@@ -3026,7 +3027,7 @@ value redup_perf root =
else match root with else match root with
[ "maa#3" -> 3 (* i *) (* analogy with present *) [ "maa#3" -> 3 (* i *) (* analogy with present *)
| "vyath" | "vyadh" | "vyaa" | "jyaa#1" | "pyaa" | "syand" | "dyut#1" | "vyath" | "vyadh" | "vyaa" | "jyaa#1" | "pyaa" | "syand" | "dyut#1"
-> 3 | "myak.s" -> 3
(* Whitney§785 also "vyac" and ved. "tyaj#1"; "vyaa" treated other *) (* Whitney§785 also "vyac" and ved. "tyaj#1"; "vyaa" treated other *)
| "kan" | "mah" -> 2 (* ved lengthened redup vow Whitney§786a *) | "kan" | "mah" -> 2 (* ved lengthened redup vow Whitney§786a *)
| _ -> short v (* reduplicated vowel is short *) | _ -> short v (* reduplicated vowel is short *)
...@@ -3079,7 +3080,7 @@ value redup_perf root = ...@@ -3079,7 +3080,7 @@ value redup_perf root =
] in (glue short,False,iopt) ] in (glue short,False,iopt)
] ]
and strong = glue (if p then revw else revs) and strong = glue (if p then revw else revs)
and longifvr = if vriddhi then revl else revs in and longifvr = if vriddhi then revl else revs in
let olong = if p then None else Some (glue longifvr) in let olong = if p then None else Some (glue longifvr) in
(strong, weak, olong, eweak, iopt) (strong, weak, olong, eweak, iopt)
] ]
...@@ -5714,6 +5715,7 @@ value compute_extra () = do ...@@ -5714,6 +5715,7 @@ value compute_extra () = do
; compute_aorist "kan" ; compute_aorist "kan"
; compute_perfect "kam" ; compute_perfect "kam"
; compute_perfect "ghas" ; compute_perfect "ghas"
; compute_perfect "ta.d"
; compute_perfect "spaz#1" ; compute_perfect "spaz#1"
; compute_aorist "spaz#1" ; compute_aorist "spaz#1"
; compute_aorist "k.r#2" ; compute_aorist "k.r#2"
......
...@@ -8,4 +8,4 @@ ...@@ -8,4 +8,4 @@
(**************************************************************************) (**************************************************************************)
(* Generated by make version - see main Makefile *) (* Generated by make version - see main Makefile *)
value version="3.03" and version_date="2017-10-29"; value version="3.03" and version_date="2017-11-24";
VERSION='3.03' VERSION='3.03'
DATE='2017-10-29' DATE='2017-11-24'
No preview for this file type
...@@ -2473,6 +2473,20 @@ Le titre de la conférence du mois d’octobre est « Un outil incomparable pour ...@@ -2473,6 +2473,20 @@ Le titre de la conférence du mois d’octobre est « Un outil incomparable pour
<hr /> <hr />
From: kaivalya@nordnet.fr<br />
À : GH<br />
Date: 08 novembre 2017<br />
Félicitations et une question<br />
<p />
Il y a longtemps que je voulais vous féliciter pour votre site "The Sanskrit Heritage" qui est tout à fait remarquable et d'une grande utilité.<br />
...<br />
Pour quelqu'un comme moi qui traduit, translittère et commente de nombreux textes sanskrits, c'est un véritable bonheur de naviguer sur votre site pour vérifier une déclinaison, une liaison, une conjugaison, etc.<br />
Bien cordialement à vous,<br />
Swami Yogananda Sarasvati<br />
<hr />
</td></tr> </td></tr>
</table> <!-- body --> </table> <!-- body -->
......
...@@ -183,6 +183,7 @@ Metrically Restored Text by Karen Thomson and Jonathan Slocum</a><br> ...@@ -183,6 +183,7 @@ Metrically Restored Text by Karen Thomson and Jonathan Slocum</a><br>
<!-- stale <a href="http://ia700103.us.archive.org/8/items/ValmikiRamayanaWithThreeCommentaries/">Valmiki Ramayana with three commentaries</a><br>--> <!-- stale <a href="http://ia700103.us.archive.org/8/items/ValmikiRamayanaWithThreeCommentaries/">Valmiki Ramayana with three commentaries</a><br>-->
<a href="http://homepage.mac.com/somadevah/">Sanskrit Etexts (Somadeva Vasudeva)</a><br> <a href="http://homepage.mac.com/somadevah/">Sanskrit Etexts (Somadeva Vasudeva)</a><br>
<!-- stale <a href="http://www.bl.uk/collections/sanskrit.html">Sanskrit Collections of the British Library</a><br>--> <!-- stale <a href="http://www.bl.uk/collections/sanskrit.html">Sanskrit Collections of the British Library</a><br>-->
<a href="https://www.sringeri.net/2017/02/02/news/advaita-sharada-project-second-release.htm">Advaita Sharada Project from Sringeri Math</a><br>
<a href="http://asj.ioc.u-tokyo.ac.jp/eng/html/guide/india/i_l1_f.html">Guide to manuscript libraries in India</a><br> <a href="http://asj.ioc.u-tokyo.ac.jp/eng/html/guide/india/i_l1_f.html">Guide to manuscript libraries in India</a><br>
<a href="http://www.il.proquest.com/products_umi/descriptions/buddhist-sanskrit.shtml">Rare Buddhist Sanskrit Manuscripts</a><br> <a href="http://www.il.proquest.com/products_umi/descriptions/buddhist-sanskrit.shtml">Rare Buddhist Sanskrit Manuscripts</a><br>
<a href="http://indepigr.narod.ru/index_1.htm">Indian Epigraphy site of Dmitriy Lielukhine</a><br> <a href="http://indepigr.narod.ru/index_1.htm">Indian Epigraphy site of Dmitriy Lielukhine</a><br>
...@@ -960,7 +961,8 @@ from Vojko (Ljubljana, Slovenia)</a><br> ...@@ -960,7 +961,8 @@ from Vojko (Ljubljana, Slovenia)</a><br>
<a href="http://en.wikipedia.org/wiki/Sanskrit_in_the_West">Sanskrit in the West on Wikipedia</a><br> <a href="http://en.wikipedia.org/wiki/Sanskrit_in_the_West">Sanskrit in the West on Wikipedia</a><br>
<a href="http://sa.wikipedia.org/wiki/मुख्यपृष्ठम">Sanskrit Wikipedia</a><br> <a href="http://sa.wikipedia.org/wiki/मुख्यपृष्ठम">Sanskrit Wikipedia</a><br>
<a href="http://sanskritpromotion.in">Sanskrit Promotion</a><br> <a href="http://sanskritpromotion.in">Sanskrit Promotion</a><br>
<a href="http://sanskrittutorial.in">Sanskrit Tutorial</a><br> <!-- stale <a href="http://sanskrittutorial.in">Sanskrit Tutorial</a><br> -->
<a href="http://samskrittutorial.in">Sanskrit Tutorial</a><br>
<a href="http://ancientvoice.wikidot.com/">Ancient Voice Wiki</a><br> <a href="http://ancientvoice.wikidot.com/">Ancient Voice Wiki</a><br>
<a href="http://www.indopedia.org/Sanskrit.html">Sanskrit on Indopedia</a><br> <a href="http://www.indopedia.org/Sanskrit.html">Sanskrit on Indopedia</a><br>
<a href="http://encycl.opentopia.com/term/Sanskrit">Sanskrit on Opentopia</a><br> <a href="http://encycl.opentopia.com/term/Sanskrit">Sanskrit on Opentopia</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