Commit 45e67c65 authored by Gérard Huet's avatar Gérard Huet

Fix infinitives

parent e5093f15
......@@ -4,7 +4,7 @@
(* *)
(* Gérard Huet *)
(* *)
(* ©2017 Institut National de Recherche en Informatique et en Automatique *)
(* ©2018 Institut National de Recherche en Informatique et en Automatique *)
(**************************************************************************)
(*i module Canon = struct i*)
......
......@@ -4,7 +4,7 @@
(* *)
(* Gérard Huet *)
(* *)
(* ©2017 Institut National de Recherche en Informatique et en Automatique *)
(* ©2018 Institut National de Recherche en Informatique et en Automatique *)
(**************************************************************************)
(* CGI-bin indexer for indexing in sanskrit dictionary. *)
......@@ -71,20 +71,20 @@ value try_declensions word before =
[ [] -> (* Not found; we try vocative forms *)
let inflectedv = load_vocas () in
match Deco.assoc word inflectedv with
[ [] -> (* Not found; we try root forms *)
let inflectedr = load_roots () in
match Deco.assoc word inflectedr with
[ [] -> (* Not found; we try adverbial forms *)
let inflecteda = load_indecls () in
match Deco.assoc word inflecteda with
[ [] -> report_failure before
(* NB - no look-up in parts forms since big and partly lexicalized *)
| l -> display word l
]
| l -> display word l
]
| l -> display word l
]
[ [] -> (* Not found; we try root forms *)
let inflectedr = load_roots () in
match Deco.assoc word inflectedr with
[ [] -> (* Not found; we try adverbial forms *)
let inflecteda = load_indecls () in
match Deco.assoc word inflecteda with
[ [] -> report_failure before
(* NB - no look-up in parts forms since big and partly lexicalized *)
| l -> display word l
]
| l -> display word l
]
| l -> display word l
]
| l -> display word l
]
;
......
......@@ -378,9 +378,9 @@ type flexion =
| Avyayaf of word (* Ifc of avyayiibhaava cpd *)
| Cvi of word (* -cvi suffixed stem (iiv) for inchoative compound verbs *)
| Preverb of word and list word
| Invar of modal and word (* inf abs-ya perpft *)
| Inftu of conjugation and Word.word (* infinitive in -tu *)
| Absotvaa of conjugation and word (* abs-tvaa *)
| Invar of modal and word (* infinitive abs-ya perpft *)
| Inftu of conjugation and Word.word (* infinitive in -tu *)
| Absotvaa of conjugation and word (* abs-tvaa *)
]
;
value is_taddhita = fun (* unused at present - see [Subst.taddhitas] *)
......@@ -450,8 +450,8 @@ value enter1 entry =
match vi with
[ Infi -> do (* 2 cases: with and without preverbs - saves one phase *)
{ add_morphabsya w delta f aapv
; add_morphin w delta f
; if auxiliary entry then add_morphauxi w delta f else ()
; add_morphabstvaa w delta f
; if auxiliary entry then add_morphauxi w delta f else ()
}
(*i was [add_morphc w delta f] but prevents being in same chunk as finite
verb. PB : infinitives with preverbs are in diff category (Absoya);
......
......@@ -4,7 +4,7 @@
(* *)
(* Gérard Huet *)
(* *)
(* ©2017 Institut National de Recherche en Informatique et en Automatique *)
(* ©2018 Institut National de Recherche en Informatique et en Automatique *)
(**************************************************************************)
(*i module Int_sandhi = struct i*)
......
......@@ -4,7 +4,7 @@
(* *)
(* Gérard Huet *)
(* *)
(* ©2017 Institut National de Recherche en Informatique et en Automatique *)
(* ©2018 Institut National de Recherche en Informatique et en Automatique *)
(**************************************************************************)
(* Sanskrit Phrase Lexer in 40 phases version. *)
......
......@@ -4,7 +4,7 @@
(* *)
(* Gérard Huet *)
(* *)
(* ©2017 Institut National de Recherche en Informatique et en Automatique *)
(* ©2018 Institut National de Recherche en Informatique et en Automatique *)
(**************************************************************************)
(* [Load_morphs] *)
......
......@@ -4,7 +4,7 @@
(* *)
(* Gérard Huet *)
(* *)
(* ©2017 Institut National de Recherche en Informatique et en Automatique *)
(* ©2018 Institut National de Recherche en Informatique et en Automatique *)
(**************************************************************************)
(* Morphology interface *)
......
......@@ -4,7 +4,7 @@
(* *)
(* Gérard Huet *)
(* *)
(* ©2017 Institut National de Recherche en Informatique et en Automatique *)
(* ©2018 Institut National de Recherche en Informatique et en Automatique *)
(**************************************************************************)
(*i module Multilingual = struct i*)
......@@ -219,14 +219,14 @@ value voice_mark = fun
value participle_name part = fun
[ Deva -> let indian_part = match part with
[ Ppp -> [ "kta" ]
| Pppa -> [ "ktavat" ]
| Pppa -> [ "ktavatu" ]
| Ppra _ -> [ "zat.r" ]
| Pprm _ -> [ "zaanac" ]
| Pprp -> [ "zaanac"; "karma.ni" ]
| Ppfta -> [ "li.daadeza"; voice_mark Active ]
| Ppftm -> [ "li.daadeza"; voice_mark Middle ]
| Pfuta -> [ "lu.taadeza"; voice_mark Active ]
| Pfutm -> [ "lu.taadeza"; voice_mark Middle ]
| Pfuta -> [ "lu.daadeza"; voice_mark Active ]
| Pfutm -> [ "lu.daadeza"; voice_mark Middle ]
| Pfutp k -> match k with
[ 1 -> [ "yat" ]
| 2 -> [ "aniiyar" ]
......
......@@ -4,7 +4,7 @@
(* *)
(* Gérard Huet *)
(* *)
(* ©2017 Institut National de Recherche en Informatique et en Automatique *)
(* ©2018 Institut National de Recherche en Informatique et en Automatique *)
(**************************************************************************)
(*i module Phonetics = struct i*)
......
......@@ -4,11 +4,11 @@
(* *)
(* Gérard Huet *)
(* *)
(* ©2017 Institut National de Recherche en Informatique et en Automatique *)
(* ©2018 Institut National de Recherche en Informatique et en Automatique *)
(**************************************************************************)
(* Sandhi Engine cgi *)
(* It gives the most commun sandhi solution, but not the optional forms *)
(* It gives the most common sandhi solution, but not the optional forms *)
(* This stand-alone module is not used by the rest of the system *)
(*i module Sandhier = struct i*)
......
......@@ -4,7 +4,7 @@
(* *)
(* Gérard Huet *)
(* *)
(* ©2017 Institut National de Recherche en Informatique et en Automatique *)
(* ©2018 Institut National de Recherche en Informatique et en Automatique *)
(**************************************************************************)
(* Sanskrit morphology interface *)
......
......@@ -4,7 +4,7 @@
(* *)
(* Gérard Huet *)
(* *)
(* ©2017 Institut National de Recherche en Informatique et en Automatique *)
(* ©2018 Institut National de Recherche en Informatique et en Automatique *)
(**************************************************************************)
(* Similar to Tagger but returns tagging if unique, fails otherwise.
......
......@@ -4,7 +4,7 @@
(* *)
(* Gérard Huet *)
(* *)
(* ©2017 Institut National de Recherche en Informatique et en Automatique *)
(* ©2018 Institut National de Recherche en Informatique et en Automatique *)
(**************************************************************************)
(*i module Transduction = struct i*)
......
......@@ -4,7 +4,7 @@
(* *)
(* Gérard Huet & Pawan Goyal *)
(* *)
(* ©2017 Institut National de Recherche en Informatique et en Automatique *)
(* ©2018 Institut National de Recherche en Informatique et en Automatique *)
(**************************************************************************)
(* Sanskrit Reader summarizing interface. User aid with unrecognized segs. *)
......
......@@ -2463,7 +2463,8 @@ value intercalate_pp root rstem =
| "la.s" | "las" | "lu.th" | "lul" | "lok" | "loc" | "vad" | "val"
| "vas#2" | "vaaz"| "vaas#3" | "vid#1" | "vip"| "ven" | "vyath"
| "vraj" | "vra.n" | "vrii.d" | "zubh#1" | "zcut#1" | "zrath"
| "zlath" | "zlaagh" | "zvas#1" | ".s.thiiv" | "suuc"| "suud" | "sev" | "skhal" | "stan" | "stim" | "sthag" | "sphu.t" | "sphur" | "svad"
| "zlath" | "zlaagh" | "zvas#1" | ".s.thiiv" | "suuc"| "suud" | "sev"
| "skhal" | "stan" | "stim" | "sthag" | "sphu.t" | "sphur" | "svad"
| "svan" | "svar#1" | "has" | "hras" | "hraad" | "hlaad" | "hval"
-> set
| "palaay" -> set (* very special item *)
......@@ -4417,7 +4418,7 @@ value pfp_ya rstem entry =
[ "st.rr" -> strong (* starya *)
| _ -> long
]
(* now consonant rules *)
(* now consonant rules - order of patterns important *)
| [ 22; 7 ] (* .rc *)
| [ 24; 7 ] (* .rj *) -> strong (* arc arj *)
| [ 24; 7; 41 ] (* m.rj *) -> long (* maarj \Pan{7,2,114} *)
......@@ -5456,7 +5457,8 @@ value compute_conjugs_stems entry (vmorph,aa) = do
}
; (* Ppp computation and recording (together with absolutives) *)
match entry with
[ "bruu" (* vac *)
[ "ad#1" (* jak.s jagdha \Pan{2,4,36} *)
| "bruu" (* vac *)
| "paz" (* d.rz *)
| "zvit" -> ()
| _ -> if gana=10 then
......
......@@ -8,4 +8,4 @@
(**************************************************************************)
(* Generated by make version - see main Makefile *)
value version="3.04" and version_date="2018-01-20";
value version="3.04" and version_date="2018-02-04";
VERSION='3.04'
DATE='2018-01-20'
DATE='2018-02-04'
......@@ -760,7 +760,7 @@ Pascale Ségura.<br />
<hr />
Objet : Quelques conseils pour le sanskrit <br />
De : evelyne.likhtart@wanadoo.fr <br />
De : xxx.yyy@zzz.fr <br />
Date : 25 juillet 2009 10:37:56 HAEC <br />
À : gerard.huet@inria.fr <br />
......@@ -846,10 +846,9 @@ Gérard<br />
<hr />
Objet : alphabet sanskrit <br />
De : agot@ulb.ac.be <br />
De : xxxt@yyy.ac.be <br />
Date : 26 octobre 2009 17:42:32 HNEC <br />
À : Gerard.Huet@inria.fr <br />
Répondre à : agot@ulb.ac.be <br />
J'ai découvert votre dictionnaire encyclopédique sanskrit en ligne il y a peu et désire l'utiliser comme source pour mes étudiants dans le cadre d'un cours qui joint anthropologie, mathématiques et linguistique.<br />
....
......@@ -861,10 +860,9 @@ Université Libre de Bruxelles- Laboratoire de Mathématiques et Sciences Social
<hr />
Objet : sanskrit <br />
De : dimamuzhetsky@catholic.org <br />
De : xxx@yyy.org <br />
Date : 26 octobre 2009 15:23:19 HNEC <br />
À : gerard.huet@inria.fr <br />
Cc : dimamuzhetsky@yahoo.com<br />
Please inform me of any web resources to do splitting of sandhi-ed already
into a junction sanskrit sentences into separate words,from which the
......@@ -880,7 +878,7 @@ thanks for the job & congratulations,Dima<br />
Objet : Chere Monsieur Huet, Je voudais en remerciement pour votre
dictionnaire. <br />
De : sudaporn_khiewngamdee@hotmail.com <br />
De : xxx@hotmail.com <br />
Date : 24 novembre 2009 18:32:00 HNEC <br />
À : gerard.huet@inria.fr <br />
......@@ -898,7 +896,7 @@ Sudaporn Khiew-ngamdee<br />
<hr />
Objet : Sanskrit Grammar - Perfekt of bandh <br />
De : matthias.ahlborn@mail.uni-wuerzburg.de <br />
De : xxx@yyy.de <br />
Date : 14 décembre 2009 12:21:25 HNEC <br />
À : gerard.huet@inria.fr <br />
......@@ -964,10 +962,9 @@ Best regards,<br />
<hr />
Objet : Site de "Sanskrit heritage dictionary" <br />
De : daniele.tremblay@orange.fr <br />
De : xxx@orange.fr <br />
Date : 27 avril 2010 15:06:28 HAEC <br />
À : gerard.huet@inria.fr <br />
Répondre à : daniele.tremblay@orange.fr <br />
Monsieur,<br />
......@@ -991,7 +988,7 @@ Danièle Tremblay<br />
<hr />
Objet : Rép : [INDOLOGY] order of letters <br />
De : hwtull@msn.com <br />
De : xxx@msn.com <br />
Date : 25 mai 2010 13:36:55 HAEC <br />
À : Gerard.Huet@inria.fr <br />
......@@ -1007,7 +1004,7 @@ Herman Tull <br />
<hr />
Objet : Sanskrit Heritage website <br />
De : imurchie@gmail.com <br />
De : xxx@gmail.com <br />
Date : 28 juin 2010 04:42:55 HAEC <br />
À : Gerard.Huet@inria.fr <br />
......@@ -1025,7 +1022,7 @@ Isaac A. Murchie.<br />
<hr />
Objet : translittération <br />
De : laurence.lebail@free.fr <br />
De : xxx@free.fr <br />
Date : 1 août 2010 17:44:00 HAEC <br />
À : Gerard.Huet@inria.fr <br />
......@@ -1043,7 +1040,7 @@ Laurence Le Bail<br />
<hr />
From: Tirumala Kulakarni <tkulakarni@gmail.com> <br />
From: Tirumala Kulakarni <xxx@gmail.com> <br />
Date: 2010/10/7 <br />
Subject: Re: {भारतीयविद्वत्परिषत्} Fwd: About Sanskrit Wikisource <br />
To: bvparishat@googlegroups.com <br />
......@@ -2537,7 +2534,9 @@ Encore bravo!<br />
Guy Fontaine<br />
<hr />
January 2018. The Heritage site is accessible from
<a href="http://spokensanskrit.org">The Spoken Sanskrit Site</a>
<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