Commit ca029a0d authored by Gérard Huet's avatar Gérard Huet
Browse files

gam pada correction for sam- also pra-mii and Pan{8,4,15}

parent 6e93e725
......@@ -13,8 +13,8 @@
\begin{center}
\vspace*{24pt}
{\Large The Sanskrit Platform Documentation}\\[10pt]
{\Large (Sanskrit Library V3.03; Zen toolkit V3.1)}\\[15pt]
{\large 2017-11-14}\\[15pt]
{\Large (Sanskrit Library V3.04; Zen toolkit V3.1)}\\[15pt]
{\large 2018-01-08}\\[15pt]
{\large G\'erard Huet \& Pawan Goyal}\\[10pt]
{\large Copyright \copyright ~2000-2017 Inria}\\[20pt]
\end{center}
......@@ -99,7 +99,7 @@ Generated by make version - see main Makefile
\label{version.ml:671}%
\medskip
\ocwbegincode{}\ocwindent{0.00em}
$\ocwlowerid{value}~\ocwlowerid{version}=$\ocwstring{"3.03"}~\ocwkw{and}~$\ocwlowerid{version\_date}=$\ocwstring{"2017\symbol{45}11\symbol{45}14"};\ocweol
$\ocwlowerid{value}~\ocwlowerid{version}=$\ocwstring{"3.04"}~\ocwkw{and}~$\ocwlowerid{version\_date}=$\ocwstring{"2018\symbol{45}01\symbol{45}08"};\ocweol
\ocweol
\ocwendcode{}\typeout{OcamlWeb file Date.ml}
\ocwmodule{Date}
......@@ -21277,7 +21277,7 @@ $[~[\,]~\rightarrow{}~\ocwlowerid{acc}$\ocweol
\ocwindent{2.50em}
$\mid{}~[~(\ocwlowerid{s},\ocwupperid{Gender}~\ocwupperid{Fem})~::~\ocwlowerid{rest}~]~\rightarrow{}~\ocwlowerid{extract\_rec}~[~\ocwlowerid{s}~::~\ocwlowerid{acc}~]~\ocwlowerid{rest}$\ocweol
\ocwindent{2.50em}
$\mid{}~[~\ocwlowerid{\_}~::~\ocwlowerid{rest}~]~\rightarrow{}~[\,]$\ocweol
$\mid{}~[~\ocwlowerid{\_}~::~\ocwlowerid{rest}~]~\rightarrow{}~[\,]~$\ocwbc{} Beware: ind subentry of fstem will kill its iic \ocwec{}\ocweol
\ocwindent{2.50em}
$]$\ocweol
\ocwindent{0.00em}
......@@ -21395,7 +21395,9 @@ $[~$\ocwstring{"abalaa"}~\ocwbc{} a-bala with fem abalaa \ocwec{}~\ocweol
\ocwindent{1.00em}
;~\ocwstring{"kaantaa"}~\ocwbc{} kaanta pp \ocwec{}\ocweol
\ocwindent{1.00em}
$]$\ocweol
;~\ocwstring{"jihvaa"}~\ocwbc{} since jihva mas skips it \ocwec{}\ocweol
\ocwindent{1.00em}
$]~$\ocweol
\ocwindent{0.00em}
;\ocweol
\ocwindent{0.00em}
......@@ -21701,7 +21703,7 @@ $\ocwlowerid{value}~\ocwlowerid{fake\_compute\_decls}~((\ocwlowerid{s},\ocwlower
\ocwendcode{}\ocwindent{0.00em}
For Interface - cache management
\ocweol
\label{nouns.ml:181182}%
\label{nouns.ml:181281}%
\medskip
\ocwbegincode{}\ocwindent{0.00em}
\ocwkw{open}~$\ocwupperid{Bank\_lexer};~$\ocweol
......@@ -21714,7 +21716,7 @@ For Interface - cache management
\ocwindent{0.00em}
\ocwkw{open}~$\ocwupperid{Skt\_morph};$\medskip
\label{nouns.ml:181292}%
\label{nouns.ml:181391}%
\ocwindent{0.00em}
$\ocwlowerid{value}~\ocwlowerid{full\_entry}~=~\ocwupperid{Gram.Entry.}\ocwlowerid{mk}~$\ocwstring{"full\_entry"}\ocweol
\ocwindent{0.00em}
......@@ -33098,6 +33100,8 @@ $\ocwlowerid{value}~\ocwlowerid{compute\_extra}~()~=~$\ocwkw{do}\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{compute\_perfect}~$\ocwstring{"ghas"}~\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{compute\_perfect}~$\ocwstring{"ta.d"}~\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{compute\_perfect}~$\ocwstring{"spaz\#1"}~\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{compute\_aorist}~$\ocwstring{"spaz\#1"}~\ocweol
......@@ -35221,45 +35225,45 @@ $]$\ocweol
\ocwindent{0.00em}
$\ocwlowerid{value}~\ocwlowerid{display\_title}~\ocwlowerid{font}~=~$\ocwkw{do}\ocweol
\ocwindent{1.00em}
\{~$\ocwlowerid{pl}~\ocwlowerid{html\_paragraph}$\ocweol
\{~$\ocwlowerid{html\_paragraph}~|\ensuremath{>}~\ocwlowerid{pl}$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{pl}~(\ocwlowerid{table\_begin}~(\ocwlowerid{centered}~\ocwupperid{Mauve}))$\ocweol
;~$\ocwlowerid{table\_begin}~(\ocwlowerid{centered}~\ocwupperid{Mauve})~|\ensuremath{>}~\ocwlowerid{pl}$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{ps}~\ocwlowerid{tr\_begin}$\ocweol
;~$\ocwlowerid{tr\_begin}~|\ensuremath{>}~\ocwlowerid{ps}$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{ps}~\ocwlowerid{th\_begin}$\ocweol
;~$\ocwlowerid{th\_begin}~|\ensuremath{>}~\ocwlowerid{ps}$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{ps}~(\ocwlowerid{dtitle}~\ocwlowerid{font})$\ocweol
;~$\ocwlowerid{dtitle}~\ocwlowerid{font}~|\ensuremath{>}~\ocwlowerid{ps}$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{ps}~\ocwlowerid{th\_end}~$\ocweol
;~$\ocwlowerid{th\_end}~|\ensuremath{>}~\ocwlowerid{ps}$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{ps}~\ocwlowerid{tr\_end}~$\ocweol
;~$\ocwlowerid{tr\_end}~|\ensuremath{>}~\ocwlowerid{ps}~$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{pl}~\ocwlowerid{table\_end}~$\ocwbc{} Mauve \ocwec{}\ocweol
;~$\ocwlowerid{table\_end}~|\ensuremath{>}~\ocwlowerid{pl}~$\ocwbc{} Mauve \ocwec{}\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{pl}~\ocwlowerid{html\_paragraph}$\ocweol
;~$\ocwlowerid{html\_paragraph}~|\ensuremath{>}~\ocwlowerid{pl}$\ocweol
\ocwindent{1.00em}
\}\ocweol
\ocwindent{0.00em}
\ocwkw{and}~$\ocwlowerid{display\_subtitle}~\ocwlowerid{title}~=~$\ocwkw{do}\ocweol
\ocwindent{1.00em}
\{~$\ocwlowerid{pl}~\ocwlowerid{html\_paragraph}$\ocweol
\{~$\ocwlowerid{html\_paragraph}~|\ensuremath{>}~\ocwlowerid{pl}$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{pl}~(\ocwlowerid{table\_begin}~(\ocwlowerid{centered}~\ocwupperid{Deep\_sky}))$\ocweol
;~$\ocwlowerid{table\_begin}~(\ocwlowerid{centered}~\ocwupperid{Deep\_sky})~|\ensuremath{>}~\ocwlowerid{pl}$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{ps}~\ocwlowerid{tr\_begin}$\ocweol
;~$\ocwlowerid{tr\_begin}~|\ensuremath{>}~\ocwlowerid{ps}$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{ps}~\ocwlowerid{th\_begin}$\ocweol
;~$\ocwlowerid{th\_begin}~|\ensuremath{>}~\ocwlowerid{ps}$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{ps}~\ocwlowerid{title}$\ocweol
;~$\ocwlowerid{title}~|\ensuremath{>}~\ocwlowerid{ps}$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{ps}~\ocwlowerid{th\_end}~$\ocweol
;~$\ocwlowerid{th\_end}~|\ensuremath{>}~\ocwlowerid{ps}~$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{ps}~\ocwlowerid{tr\_end}~$\ocweol
;~$\ocwlowerid{tr\_end}~|\ensuremath{>}~\ocwlowerid{ps}~$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{pl}~\ocwlowerid{table\_end}~$\ocwbc{} Centered \ocwec{}\ocweol
;~$\ocwlowerid{table\_end}~|\ensuremath{>}~\ocwlowerid{pl}~$\ocwbc{} Centered \ocwec{}\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{pl}~\ocwlowerid{html\_paragraph}$\ocweol
;~$\ocwlowerid{html\_paragraph}~|\ensuremath{>}~\ocwlowerid{pl}$\ocweol
\ocwindent{1.00em}
\}\ocweol
\ocwindent{0.00em}
......@@ -35295,27 +35299,27 @@ $]$\ocweol
\ocwindent{0.00em}
$\ocwlowerid{value}~\ocwlowerid{print\_ro1}~\ocwlowerid{caption}~\ocwlowerid{s}~\ocwlowerid{d}~\ocwlowerid{p}~=~$\ocwkw{do}\ocweol
\ocwindent{1.00em}
\{~$\ocwlowerid{ps}~\ocwlowerid{tr\_begin}$\ocweol
\{~$\ocwlowerid{tr\_begin}~|\ensuremath{>}~\ocwlowerid{ps}$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{ps}~\ocwlowerid{th\_begin}$\ocweol
;~$\ocwlowerid{th\_begin}~|\ensuremath{>}~\ocwlowerid{ps}$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{ps}~\ocwlowerid{caption}$\ocweol
;~$\ocwlowerid{caption}~|\ensuremath{>}~\ocwlowerid{ps}$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{ps}~(\ocwlowerid{xml\_next}~$\ocwstring{"th"}$)~$\ocweol
;~$\ocwlowerid{xml\_next}~$\ocwstring{"th"}~|\ensuremath{>}~$\ocwlowerid{ps}$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{ps}~\ocwlowerid{s}$\ocweol
;~$\ocwlowerid{s}~|\ensuremath{>}~\ocwlowerid{ps}$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{ps}~(\ocwlowerid{xml\_next}~$\ocwstring{"th"}$)~$\ocweol
;~$\ocwlowerid{xml\_next}~$\ocwstring{"th"}~|\ensuremath{>}~$\ocwlowerid{ps}$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{ps}~\ocwlowerid{d}$\ocweol
;~$\ocwlowerid{d}~|\ensuremath{>}~\ocwlowerid{ps}$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{ps}~(\ocwlowerid{xml\_next}~$\ocwstring{"th"}$)~$\ocweol
;~$\ocwlowerid{xml\_next}~$\ocwstring{"th"}~|\ensuremath{>}~$\ocwlowerid{ps}$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{ps}~\ocwlowerid{p}$\ocweol
;~$\ocwlowerid{p}~|\ensuremath{>}~\ocwlowerid{ps}$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{ps}~\ocwlowerid{th\_end}$\ocweol
;~$\ocwlowerid{th\_end}~|\ensuremath{>}~\ocwlowerid{ps}$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{pl}~\ocwlowerid{tr\_end}$\ocweol
;~$\ocwlowerid{tr\_end}~|\ensuremath{>}~\ocwlowerid{ps}$\ocweol
\ocwindent{1.00em}
\}\ocweol
\ocwindent{0.00em}
......@@ -35325,27 +35329,27 @@ $\ocwlowerid{value}~\ocwlowerid{print\_row\_font}~\ocwlowerid{font}~\ocwlowerid{
\ocwindent{1.00em}
\ocwkw{let}~$\ocwlowerid{prlist}~=~\ocwlowerid{prlist\_font}~\ocwlowerid{font}~$\ocwkw{in}~\ocwkw{do}\ocweol
\ocwindent{1.00em}
\{~$\ocwlowerid{ps}~(\ocwlowerid{tr\_mouse\_begin}~(\ocwlowerid{color}~\ocwupperid{Light\_blue})~(\ocwlowerid{color}~\ocwupperid{Pale\_yellow}))$\ocweol
\{~$\ocwlowerid{tr\_mouse\_begin}~(\ocwlowerid{color}~\ocwupperid{Light\_blue})~(\ocwlowerid{color}~\ocwupperid{Pale\_yellow})~|\ensuremath{>}~\ocwlowerid{ps}$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{ps}~\ocwlowerid{th\_begin}~$\ocweol
;~$\ocwlowerid{th\_begin}~|\ensuremath{>}~\ocwlowerid{ps}$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{ps}~\ocwlowerid{case}$\ocweol
;~$\ocwlowerid{case}~|\ensuremath{>}~\ocwlowerid{ps}$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{ps}~(\ocwlowerid{xml\_next}~$\ocwstring{"th"}$)~$\ocweol
;~$\ocwlowerid{xml\_next}~$\ocwstring{"th"}~|\ensuremath{>}~$\ocwlowerid{ps}$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{prlist}~\ocwlowerid{s}$\ocweol
;~$\ocwlowerid{s}~|\ensuremath{>}~\ocwlowerid{prlist}$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{ps}~(\ocwlowerid{xml\_next}~$\ocwstring{"th"}$)~$\ocweol
;~$\ocwlowerid{xml\_next}~$\ocwstring{"th"}~|\ensuremath{>}~$\ocwlowerid{ps}$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{prlist}~\ocwlowerid{d}$\ocweol
;~$\ocwlowerid{d}~|\ensuremath{>}~\ocwlowerid{prlist}$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{ps}~(\ocwlowerid{xml\_next}~$\ocwstring{"th"}$)~$\ocweol
;~$\ocwlowerid{xml\_next}~$\ocwstring{"th"}~|\ensuremath{>}~$\ocwlowerid{ps}$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{prlist}~\ocwlowerid{p}$\ocweol
;~$\ocwlowerid{p}~|\ensuremath{>}~\ocwlowerid{prlist}$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{ps}~\ocwlowerid{th\_end}$\ocweol
;~$\ocwlowerid{th\_end}~|\ensuremath{>}~\ocwlowerid{ps}$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{pl}~\ocwlowerid{tr\_end}$\ocweol
;~$\ocwlowerid{tr\_end}~|\ensuremath{>}~\ocwlowerid{pl}$\ocweol
\ocwindent{1.00em}
\}\ocweol
\ocwindent{0.00em}
......@@ -35425,17 +35429,17 @@ $[~[\,]~\rightarrow{}~()$\ocweol
\ocwindent{1.00em}
$\mid{}~\ocwlowerid{l}~\rightarrow{}~$\ocwkw{do}~\ocweol
\ocwindent{2.00em}
\{~$\ocwlowerid{pl}~\ocwlowerid{html\_paragraph}$\ocweol
\{~$\ocwlowerid{html\_paragraph}~|\ensuremath{>}~\ocwlowerid{pl}$\ocweol
\ocwindent{2.00em}
;~$\ocwlowerid{ps}~(\ocwlowerid{h3\_begin}~\ocwupperid{C3})$\ocweol
;~$\ocwlowerid{h3\_begin}~\ocwupperid{C3}~|\ensuremath{>}~\ocwlowerid{ps}$\ocweol
\ocwindent{2.00em}
;~$\ocwlowerid{ps}~(\ocwlowerid{compound\_name}~\ocwlowerid{font});~\ocwlowerid{ps}~$\ocwstring{"\ocwvspace{}"}\ocweol
;~$\ocwlowerid{compound\_name}~\ocwlowerid{font}~|\ensuremath{>}~\ocwlowerid{ps};~\ocwlowerid{ps}~$\ocwstring{"\ocwvspace{}"}\ocweol
\ocwindent{2.00em}
;~\ocwkw{let}~$\ocwlowerid{print\_iic}~\ocwlowerid{w}~=~\ocwlowerid{pr\_i}~\ocwlowerid{font}~\ocwlowerid{w}~$\ocwkw{in}\ocweol
\ocwindent{3.00em}
$\ocwupperid{List.}\ocwlowerid{iter}~\ocwlowerid{print\_iic}~\ocwlowerid{l}$\ocweol
\ocwindent{2.00em}
;~$\ocwlowerid{ps}~\ocwlowerid{h3\_end}$\ocweol
;~$\ocwlowerid{h3\_end}~|\ensuremath{>}~\ocwlowerid{ps}$\ocweol
\ocwindent{2.00em}
\}\ocweol
\ocwindent{1.00em}
......@@ -35449,11 +35453,11 @@ $[~[\,]~\rightarrow{}~()$\ocweol
\ocwindent{1.00em}
$\mid{}~\ocwlowerid{l}~\rightarrow{}~$\ocwkw{do}~\ocweol
\ocwindent{2.00em}
\{~$\ocwlowerid{pl}~\ocwlowerid{html\_paragraph}$\ocweol
\{~$\ocwlowerid{html\_paragraph}~|\ensuremath{>}~\ocwlowerid{pl}$\ocweol
\ocwindent{2.00em}
;~$\ocwlowerid{ps}~(\ocwlowerid{h3\_begin}~\ocwupperid{C3})$\ocweol
;~$\ocwlowerid{h3\_begin}~\ocwupperid{C3}~|\ensuremath{>}~\ocwlowerid{ps}$\ocweol
\ocwindent{2.00em}
;~$\ocwlowerid{ps}~(\ocwlowerid{avyaya\_name}~\ocwlowerid{font});~\ocwlowerid{ps}~$\ocwstring{"\ocwvspace{}"}\ocweol
;~$\ocwlowerid{avyaya\_name}~\ocwlowerid{font}~|\ensuremath{>}~\ocwlowerid{ps};~\ocwlowerid{ps}~$\ocwstring{"\ocwvspace{}"}\ocweol
\ocwindent{2.00em}
;~\ocwkw{let}~$\ocwlowerid{ifc\_form}~\ocwlowerid{w}~=~[~0~]~$\ocwbc{} - \ocwec{}~@~$\ocwlowerid{w}~$\ocwkw{in}\ocweol
\ocwindent{3.00em}
......@@ -35461,7 +35465,7 @@ $\mid{}~\ocwlowerid{l}~\rightarrow{}~$\ocwkw{do}~\ocweol
\ocwindent{3.00em}
$\ocwupperid{List.}\ocwlowerid{iter}~\ocwlowerid{print\_iic}~\ocwlowerid{l}$\ocweol
\ocwindent{2.00em}
;~$\ocwlowerid{ps}~\ocwlowerid{h3\_end}$\ocweol
;~$\ocwlowerid{h3\_end}~|\ensuremath{>}~\ocwlowerid{ps}$\ocweol
\ocwindent{2.00em}
\}\ocweol
\ocwindent{1.00em}
......@@ -35523,7 +35527,7 @@ $\ocwlowerid{value}~\ocwlowerid{display\_inflected}~\ocwlowerid{font}~(\ocwlower
\ocwindent{1.00em}
\ocwkw{and}~$\ocwlowerid{avy}~=~\ocwupperid{List.}\ocwlowerid{map}~\ocwlowerid{fst}~(\ocwupperid{Deco.}\ocwlowerid{contents}~\ocwlowerid{avy\_deco})~$\ocwkw{in}~\ocwkw{do}\ocweol
\ocwindent{1.00em}
\{~$\ocwlowerid{pl}~\ocwlowerid{center\_begin}$\ocweol
\{~$\ocwlowerid{center\_begin}~|\ensuremath{>}~\ocwlowerid{pl}$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{display\_gender}~\ocwlowerid{font}~\ocwupperid{Mas}~\ocwlowerid{mas}~$\ocweol
\ocwindent{1.00em}
......@@ -35537,9 +35541,9 @@ $\ocwlowerid{value}~\ocwlowerid{display\_inflected}~\ocwlowerid{font}~(\ocwlower
\ocwindent{1.00em}
;~$\ocwlowerid{display\_avy}~\ocwlowerid{font}~\ocwlowerid{avy}~$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{pl}~\ocwlowerid{center\_end}~$\ocweol
;~$\ocwlowerid{center\_end}~|\ensuremath{>}~\ocwlowerid{pl}~$\ocweol
\ocwindent{1.00em}
;~$\ocwlowerid{pl}~\ocwlowerid{html\_paragraph}$\ocweol
;~$\ocwlowerid{html\_paragraph}~|\ensuremath{>}~\ocwlowerid{pl}$\ocweol
\ocwindent{1.00em}
\}\ocweol
\ocwindent{0.00em}
......@@ -43154,9 +43158,9 @@ $\ocwlowerid{segment\_chunks\_filter}~\ocwlowerid{filter\_mode}~\ocwlowerid{chun
\ocwendcode{}\typeout{OcamlWeb file Scl_parser.ml}
\ocwmodule{Scl\_parser}
\label{scl_parser.ml:0}%
Interface with UoH dependency parser
Module \ocwbegindcode{}$\ocwupperid{Scl\_parser}$\ocwenddcode{} used as interface with UoH dependency parser
\ocweol
\label{scl_parser.ml:663}%
\label{scl_parser.ml:691}%
\medskip
\ocwbegincode{}\ocwindent{0.00em}
\ocwkw{open}~$\ocwupperid{Html};~$\ocweol
......@@ -43169,9 +43173,9 @@ Interface with UoH dependency parser
\ocwindent{0.00em}
\ocwkw{open}~$\ocwupperid{Dispatcher};~$\ocwbc{} Dispatch \ocwec{}\ocweol
\ocwindent{0.00em}
\ocwkw{open}~$\ocwupperid{SCLpaths};~$\ocwbc{} \ocwbegindcode{}$\ocwlowerid{scl\_url}~\ocwlowerid{scl\_cgi}$\ocwenddcode{} \ocwec{}\medskip
\ocwkw{open}~$\ocwupperid{SCLpaths};~$\ocwbc{} \ocwbegindcode{}$\ocwlowerid{scl\_url}~\ocwlowerid{scl\_cgi}~\ocwlowerid{default\_output\_font}$\ocwenddcode{} \ocwec{}\medskip
\label{scl_parser.ml:852}%
\label{scl_parser.ml:900}%
\ocwindent{0.00em}
\ocwkw{module}~$\ocwupperid{Prel}~=~$\ocwkw{struct}~\ocweol
\ocwindent{0.50em}
......@@ -53053,7 +53057,7 @@ Specific HTML scripting
\ocwbegincode{}\ocwindent{0.00em}
$\ocwlowerid{value}~\ocwlowerid{start\_year}~=~$\ocwstring{"\ocwvspace{}1994\symbol{45}"}\ocweol
\ocwindent{0.00em}
\ocwkw{and}~$\ocwlowerid{current\_year}~=~$\ocwstring{"2017"}\ocweol
\ocwkw{and}~$\ocwlowerid{current\_year}~=~$\ocwstring{"2018"}\ocweol
\ocwindent{0.00em}
\ocwkw{and}~$\ocwlowerid{author\_name}~=~$\ocwstring{"G\&\#233;rard\ocwvspace{}Huet"}\ocweol
\ocwindent{0.00em}
......@@ -5,7 +5,7 @@
# Gérard Huet & Pawan Goyal #
# #
############################################################################
# Makefile of Sanskrit Heritage Software 02-06-2017 Copyright INRIA 2017 #
# Makefile of Sanskrit Heritage Software 08-01-2018 Copyright INRIA 2018 #
############################################################################
# Prerequisites: Ocaml and Camlp4 preprocessor
......
......@@ -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 utilities *)
......
......@@ -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 *)
(**************************************************************************)
(*i module Conj_infos : sig 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 conjugation for computing root conjugations. *)
......
......@@ -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 declension for computing declensions. *)
......@@ -63,26 +63,26 @@ value prlist_font font =
]
;
value display_title font = do
{ pl html_paragraph
; pl (table_begin (centered Mauve))
; ps tr_begin
; ps th_begin
; ps (dtitle font)
; ps th_end
; ps tr_end
; pl table_end (* Mauve *)
; pl html_paragraph
{ html_paragraph |> pl
; table_begin (centered Mauve) |> pl
; tr_begin |> ps
; th_begin |> ps
; dtitle font |> ps
; th_end |> ps
; tr_end |> ps
; table_end |> pl (* Mauve *)
; html_paragraph |> pl
}
and display_subtitle title = do
{ pl html_paragraph
; pl (table_begin (centered Deep_sky))
; ps tr_begin
; ps th_begin
; ps title
; ps th_end
; ps tr_end
; pl table_end (* Centered *)
; pl html_paragraph
{ html_paragraph |> pl
; table_begin (centered Deep_sky) |> pl
; tr_begin |> ps
; th_begin |> ps
; title |> ps
; th_end |> ps
; tr_end |> ps
; table_end |> pl (* Centered *)
; html_paragraph |> pl
}
;
value cases_of decls =
......@@ -100,32 +100,32 @@ value cases_of decls =
in List.fold_left reorg init decls (* (v,n,a,i,d,ab,g,l) *)
;
value print_ro1 caption s d p = do
{ ps tr_begin
; ps th_begin
; ps caption
; ps (xml_next "th")
; ps s
; ps (xml_next "th")
; ps d
; ps (xml_next "th")
; ps p
; ps th_end
; pl tr_end
{ tr_begin |> ps
; th_begin |> ps
; caption |> ps
; xml_next "th" |> ps
; s |> ps
; xml_next "th" |> ps
; d |> ps
; xml_next "th" |> ps
; p |> ps
; th_end |> ps
; tr_end |> ps
}
;
value print_row_font font case s d p =
let prlist = prlist_font font in do
{ ps (tr_mouse_begin (color Light_blue) (color Pale_yellow))
; ps th_begin
; ps case
; ps (xml_next "th")
; prlist s
; ps (xml_next "th")
; prlist d
; ps (xml_next "th")
; prlist p
; ps th_end
; pl tr_end
{ tr_mouse_begin (color Light_blue) (color Pale_yellow) |> ps
; th_begin |> ps
; case |> ps
; xml_next "th" |> ps
; s |> prlist
; xml_next "th" |> ps
; d |> prlist
; xml_next "th" |> ps
; p |> prlist
; th_end |> ps
; tr_end |> pl
}
;
value display_gender font gender = fun
......@@ -165,25 +165,25 @@ value display_gender font gender = fun
value display_iic font = fun
[ [] -> ()
| l -> do
{ pl html_paragraph
; ps (h3_begin C3)
; ps (compound_name font); ps " "
{ html_paragraph |> pl
; h3_begin C3 |> ps
; compound_name font |> ps; ps " "
; let print_iic w = pr_i font w in
List.iter print_iic l
; ps h3_end
; h3_end |> ps
}
]
;
value display_avy font = fun
[ [] -> ()
| l -> do
{ pl html_paragraph
; ps (h3_begin C3)
; ps (avyaya_name font); ps " "
{ html_paragraph |> pl
; h3_begin C3 |> ps
; avyaya_name font |> ps; ps " "
; let ifc_form w = [ 0 ] (* - *) @ w in
let print_iic w = pr_f font (ifc_form w) in
List.iter print_iic l
; ps h3_end
; h3_end |> ps
}
]
;
......@@ -214,15 +214,15 @@ value display_inflected font (gen_deco,pn_deco,voca_deco,iic_deco,avy_deco) =
let (mas,fem,neu,any,_,_) = Deco.fold sort_out non_vocas voca_deco
and iic = List.map fst (Deco.contents iic_deco)
and avy = List.map fst (Deco.contents avy_deco) in do
{ pl center_begin
{ center_begin |> pl
; display_gender font Mas mas
; display_gender font Fem fem
; display_gender font Neu neu
; display_gender font (Deictic Numeral) any (* arbitrary *)
; display_iic font iic
; display_avy font avy
; pl center_end
; pl html_paragraph
; center_end |> pl
; html_paragraph |> pl
}
;
(* [entry:skt] [part:string] *)
......
......@@ -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 *)
(**************************************************************************)
(* Dispatcher: Sanskrit Engine in 53 phases automaton (plus 2 fake ones) *)
......
......@@ -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 *)
(**************************************************************************)
(* This segmenter is inspired from old module Segmenter, but uses a graph
......
......@@ -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. *)
......
......@@ -37,7 +37,7 @@ value voices_of = fun
| "k.rz" | "krand" | "krii.d" | "kru~nc#1" | "krudh#1" | "kruz" | "klam"
| "klid" | "kliz" | "kvath" | "k.sar" | "k.sal" | "k.si" | "k.sii" | "k.su"
| "k.sudh#1" | "k.subh" | "k.svi.d" | "khaad" | "khid" | "khel" | "khyaa"
| "gaj" | "gad" | "gam" | "garj" | "gard" | "gal" | "gaa#1" | "gaa#2" | "gu~nj"
| "gaj" | "gad" | "garj" | "gard" | "gal" | "gaa#1" | "gaa#2" | "gu~nj"
| "gu.n.th" | "gup" | "gumph" | "g.rdh" | "g.rr#1" | "g.rr#2" | "granth"
| "grah" | "glai" | "ghas" | "ghu.s" | "gh.r" | "gh.r.s" | "ghraa" | "cakaas"
| "ca.t" | "cand" | "cam" | "car" | "cal" | "cit#1" | "cumb" | "chur"
......@@ -75,6 +75,7 @@ value voices_of = fun
(*| "ji" Atma needed for eg vijayate paraajayate \Pan{1,3,19} *)
(*| "jyaa#1" Atma needed for jiiyate *)
(*| "kan" Atma needed for kaayamaana *)
(*| "gam" Atma needed for sa.mgacchate *)
(*| "van" Atma needed for vanute *)
(*| "mah" also Atma for pft. maamahe *)
(*| "cit#1" also Atma for pft. cikite *)
......@@ -103,7 +104,7 @@ value voices_of = fun
[ "a~nc" | "arh" | "i" | "i.s#1" | "uurj#1" | "uuh" | ".r" | ".rj"
| "ka.n.d" | "kal" | "ka.s" | "ku.t.t" | "ku.n.d" | "k.r#1" | "k.r#2"
| "kram" | "krii" | "k.san" | "k.sap#1" | "k.sal" | "k.sip" | "k.sud" | "khan"
| "garh" | "guh" | "gras" | "gha.t.t" | "cat" | "carc" | "ci"
| "gam" | "garh" | "guh" | "gras" | "gha.t.t" | "cat" | "carc" | "ci"
| "cint" | "cud" | "ce.s.t" | "cyu" | "chad#1" | "chand" | "chid#1" | "jan"
| "juu" | "j~naa#1" | "jyaa#1" | "jyut" | "ta.d" | "tan#1" | "tan#2"
| "tud#1" | "tul" | "t.rd" | "daaz#1" | "diz#1" | "dih" | "duh#1"
......@@ -236,7 +237,7 @@ value voices_of_gana g root = match g with
value voices_of_pv upasarga gana = fun (* gana only used for "tap" "i" *)
(* Paninian requirements *)
[ "zru" | ".r" | "gam" | "svar" | "vid#1" (* | "praz" *) ->
if upasarga = "sam" then Ubha else Para (* \Pan{1,3,29} *)
if upasarga = "sam" then Atma else Para (* \Pan{1,3,29} *)
(* "praz" used in Atma with aa- but also without pv in epics (MW) *)
| "car" -> if upasarga = "sam" then Ubha else Para (* \Pan{1,3,54} *)
| "viz#1" -> if upasarga = "ni" then Atma else Para (* \Pan{1,3,17} *)
......
......@@ -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 callback for shallow syntax analysis *)
......
......@@ -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 Parts = 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 *)
(**************************************************************************)
module Phases = struct
......
......@@ -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 *)
(**************************************************************************)
(* CGI-bin sktreader alias Reader for segmentation, tagging and parsing.
......
......@@ -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 *)
(**************************************************************************)
(* The Sanskrit lexical processor *)
......
......@@ -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 *)
(**************************************************************************)
(* A simple lexer recognizing idents, integers, punctuation symbols,
......