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

Fix bug reduplicating consonant of perfect for roots consonant+nasal eg smi

parent a2111408
This diff is collapsed.
......@@ -5,7 +5,7 @@
# Gérard Huet #
# #
############################################################################
# Installation instructions Copyright Gérard Huet 2017 #
# Installation instructions Copyright Gérard Huet 2018 #
############################################################################
This is just a reminder for quick installation.
......@@ -20,7 +20,11 @@ If OCaml has been installed through the OPAM package manager, then:
opam install camlp4
should do the job. Alternatively, see https://github.com/ocaml/camlp4
for download and installation instructions.
for download and installation instructions.
Beware: camlp4 is not updated at every Ocaml distribution, so you may have
to settle for a somewhat ancient version of Ocaml, such as 4.02.2, which is
the one I use myself.
1) Install the Heritage_resources package:
......
......@@ -644,6 +644,7 @@ value look_up_and_display font gana entry =
;
value in_lexicon entry = (* entry as a string in VH transliteration *)
Index.is_in_lexicon (Encode.code_string entry)
(* Problem: may give link to a non-root entry if called from Grammar service *)
and doubt s = "?" ^ s
;
(* Compute homonym index for a given present class. *)
......
......@@ -369,9 +369,12 @@ type nominal =
| Krid of verbal and string (* kridantas of roots *)
]
;
type sup = (number * list (case * word (* stem *))) (* nominal generators *)
and tin = (number * list (person * word (* root *))) (* verbal generators *)
;
type flexion =
[ Declined of nominal and gender and list (number * list (case * word))
| Conju of finite and list (number * list (person * word))
[ Declined of nominal and gender and list sup
| Conju of finite and list tin
| Indecl of ind_kind and word (* avyaya, particle, interjection, nota *)
| Bare of nominal and word (* Iic *)
| Avyayai of word (* Iic of avyayiibhaava cpd *)
......@@ -383,19 +386,21 @@ type flexion =
| Absotvaa of conjugation and word (* abs-tvaa *)
]
;
value is_taddhita = fun (* OBSOLETE - see [Subst.taddhitas] *)
(*i OBSOLETE for NN - see [Subst.taddhitas]
[value is_taddhita = fun
[ "taa" | "tva" | "vat" | "mat" | "tas"
| "kataa" | "katva" (* -ka-taa -ka-tva *)
| "vattva" | "tvavat"-> True
| _ -> False
]
;
value sort_taddhita s = s (*i OBS: [if is_taddhita s then "-" ^ s else s] i*)
;
value sort_taddhita s = if is_taddhita s then "-" ^ s else s
;] OBS i*)
(* Now functions that populate the inflected treebanks from the lexemes *)
(* enter1: string -> flexion -> unit *)
value enter1 entry =
let lexeme = sort_taddhita entry in
let delta = Encode.diff_str lexeme (* partial application *)
let delta = Encode.diff_str entry (* partial application for patching *)
and aapv = admits_aa.val (* for phantom forms generation *) in fun
[ Declined Noun g lg -> List.iter enterg lg (* nouns *)
where enterg (n,ln) = List.iter entern ln
......
......@@ -69,8 +69,9 @@ and print_scl_tense = fun
| Perfect -> ps "<pft/>"
| Aorist k -> do { ps "<aor gana="; pr_scl_gana k; ps "/>" }
| Injunctive k -> do { ps "<inj gana="; pr_scl_gana k; ps "/>" }
| Conditional -> ps "<cond/>"
| Benedictive -> ps "<ben/>"
| Conditional -> ps "<cond/>"
| Subjunctive -> ps "<subj/>"
]
;
value print_scl_paradigm = fun
......
......@@ -50,6 +50,7 @@ and string_tense = fun
| Injunctive k -> "inj." ^ (gana_str k)
| Conditional -> "cond."
| Benedictive -> "ben."
| Subjunctive -> "subj."
]
and string_case = fun
[ Nom -> "nom."
......
......@@ -105,6 +105,7 @@ value western_tense = fun
| Injunctive _ -> "Injunctive"
| Conditional -> "Conditional"
| Benedictive -> "Benedictive"
| Subjunctive -> "Subjunctive"
]
and indian_tense = fun
[ Future -> "l.r.t"
......@@ -113,7 +114,7 @@ and indian_tense = fun
| Injunctive _ -> "aagamaabhaavayuktaluf"
| Conditional -> "l.rf"
| Benedictive -> "aaziirlif"
(*| Subjunctive -> "le.t" *)
| Subjunctive -> "le.t"
]
;
type gentense =
......
......@@ -42,12 +42,12 @@ and paradigm =
[ Presenta of gana and pr_mode (* parasmaipade *)
| Presentm of gana and pr_mode (* aatmanepade *)
| Presentp of pr_mode (* passive of present system *)
| Conjug of tense and voice (* other tenses/aspects *)
| Conjug of tense and voice (* other tenses/modes/aspects *)
| Perfut of voice (* periphrastic futur (lu.t) *)
]
and voice = [ Active | Middle | Passive ] (* diathesis (pada: Para Atma Ubha) *)
and pr_mode =
[ Present (* (la.t) *)
[ Present (* Indicative (la.t) *)
| Imperfect (* Preterit (laf) *)
| Imperative (* (lo.t) *)
| Optative (* Potential (lif) *)
......@@ -55,11 +55,11 @@ and pr_mode =
and tense =
[ Future (* (l.r.t) *)
| Perfect (* Remote past - resultative aspect (li.t) *)
| Aorist of aor_class (* Immediate past or future - perfective aspect (luf) *)
| Injunctive of aor_class (* (le.t) - also Prohibitive with maa *)
| Aorist of aor_class (* Immediate past or future with perfective aspect (luf) *)
| Injunctive of aor_class (* (le.t) - injunctions also Prohibitive with maa *)
| Benedictive (* Precative: optative aorist (aazirlif) *)
| Conditional (* Preterit of future (l.rf) *)
(*| Subjunctive (* le.t *) TODO *)
| Subjunctive (* le.t *) (* Rare subjunctive, intermediate between Optative and Imperative *)
]
;
(* NB from Indo-European: the present stem has the imperfective aspect,
......
This diff is collapsed.
......@@ -8,4 +8,4 @@
(**************************************************************************)
(* Generated by make version - see main Makefile *)
value version="3.07" and version_date="2018-05-12";
value version="3.07" and version_date="2018-05-17";
VERSION='3.07'
DATE='2018-05-12'
DATE='2018-05-17'
......@@ -2579,7 +2579,7 @@ From Edmond.Differding@XXX.com<br />
À : GH<br />
Date: 16 Avril 2018<br />
Accès interrompu au 'Sanskrit Heritage Site'?<br />
<hr />
<br />
Cher Monsieur Huet,<br />
je suis un utilisateur assidu de votre dictionnaire depuis que je me suis mis à apprendre le sanskrit il y a près de trois ans à l’UCL (en Belgique) avec le Professeur Vielle. Je dois vous remercier pour avoir mis en place cet outil formidable ! Et absolument indispensable ! Ce dont je me suis rendu compte hier quand je n’ai pas pu y accéder (tout d’ailleurs que d’autres condisciples....)<br />
......@@ -2592,6 +2592,25 @@ Très cordialement,<br />
Edmond Differding<br />
<hr />
From XXX@gmail.com<br />
À : GH<br />
Date: 11 Mai 2018<br />
Quelques coquilles dans le dictionnaire sanskrit-français<br />
Cher M. Huet,<br />
Tout d'abord, je tiens à vous féliciter, comme bien d'autres avant moi, pour le magnifique outil que vous avez réalisé. Une mine de ressources moderne et en français... C'est merveilleux ! <br />
Permettez-moi de me présenter : ...<br />
Quelqu'un m'avait donné votre dictionnaire il y a des années, mais je l'avais oublié depuis le temps. Pour la petite histoire, c'est une amie italienne qui m'en a reparlé voici quelques mois car elle-même l'utilisait et l'appréciait beaucoup, même sans parler français (l'anglais n'étant pas son fort). Le PDF que j'avais jusqu'alors comportait dans les 300 pages... Quel ne fut pas mon émerveillement en découvrant que l'ouvrage avait triplé de volume !<br />
Puisque vous invitez le lecteur à vous signaler les éventuelles erreurs dans
votre dictionnaire, me voici. Je le consulte presque quotidiennement, et
jusqu'ici ce ne sont que 3 coquilles que j'ai repérées: ...<br />
Au plaisir d'échanger avec vous,<br />
Ilya Comet.<br />
<hr />
</td></tr>
</table> <!-- body -->
......
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