% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %
%                                                                           %
% File:            palcorad.dtr                                             %
% Purpose:         This program models instances of coradical alternation   %
%                  in Pali nominal declension.                              %
% Author:          Greg Stump, May 2000                                     %
% Address:         Dept. of English, Univ. of Kentucky, Lexington, KY 40506 %
% e-mail:          gstump@pop.uky.edu                                       %
%                                                                           %
%                                                                           %
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %

% Transliteration follows the ITRANS encoding scheme.

#atom M N ~n Ch ~N T Th D Dh Sh L.
#vars $abc: a b bh ch Ch d dh D Dh e g gh h i j jh k kh l L m M n N ~n ~N o p
ph r s sh Sh t th T Th u v y ;.
#vars $vowel: a e i o u.
#vars $part: stem vstem longvstem suff.
#vars $nonfem: masculine neuter.
#vars $direct: nom voc acc.
#vars $oblique: ins dat abl gen loc.

SANDHI:
<endofword> ==
<$abc> == $abc <>
<a i> == <e>
<a u> == <o>
<$vowel ;> == <$vowel $vowel>
.

NOMINAL:
{vstem} == "<root>" "<stemvowel>"
{longvstem} == "<vstem>" ; 
{longnstem} == <longvstem> n
{stem} == "<vstem>"
{suff} == 
{} == SANDHI:<"<stem>" "<suff>" endofword>
{suff sg acc} == M
{suff sg ins} == a a
{suff sg gen} == o
{suff sg loc} == i
{suff pl ins} == h i
{suff pl gen} == a M
{suff pl loc} == s u
{suff pl $direct} == o
{dat} == "<gen>"
{voc} == "<nom>"
{pl abl/ins} =+= "<>"
{$part abl/ins} =+= "<>"
{stem/longnstem pl gen} =+= "<>"
.

VOWEL_STEM:
{} == NOMINAL
{suff sg gen} == s s a
{$nonfem suff sg abl} == a
.

SHORT_A_STEM: 
{} == VOWEL_STEM
{sg voc} == "<stem>"
{stemvowel} == a
{stem sg ins} == "<stem>" i
{stem pl} == "<stem>" i
{suff sg ins} == n a
{masculine stem pl nom} == "<longvstem>"
{masculine suff sg nom} == u
{masculine suff pl $direct} ==
{stem pl gen} == NOMINAL
{$nonfem stem sg abl} == NOMINAL:<stem>
.

CONSONANT_STEM:
{} == NOMINAL
{suff sg acc} == a NOMINAL
. 

NASAL_STEM:
{} == CONSONANT_STEM
{stemvowel} == a
{stem} == "<strongstem>"
{stem $oblique} == "<weakstem>"
{masculine stem sg nom} == "<longvstem>"
. 

NT_STEM:
{} == NASAL_STEM
{strongstem} == "<vstem>" n t
{weakstem} == "<vstem>" t
{longnstem} == <nstem>
{!coradical} == "<coradical>"
{masculine stem pl $direct} == <longnstem>
.

Dhamma:
{meaning} == law
{cat} == noun
{} == SHORT_A_STEM
{gender} == masculine
{root} == dh a m m
.

Arahant:
{meaning} == worthy; having attained nibbaana
{cat} == adjective
{} == NT_STEM
{root} == a r a h
{coradical ins pl} == "Arahanta"
{coradical loc pl} == "Arahanta"
.

Arahanta:
{} == SHORT_A_STEM
{root} == a r a h a n t
.

Nikkhamant:
{meaning} == departing
{cat} == adjective
{} == NT_STEM
{root} == n i k kh a m
{coradical} == "Nikkhamanta"
.

Nikkhamanta:
{} == SHORT_A_STEM
{root} == n i k kh a m a n t
.

Aayasmant:
{meaning} == venerable
{cat} == adjective
{} == NT_STEM
{root} == a a y a s m
{coradical pl} == "Aayasmanta"
.

Aayasmanta:
{} == SHORT_A_STEM
{root} == a a y a s m a n t
.

#hide SANDHI NOMINAL VOWEL_STEM SHORT_A_STEM NT_STEM CONSONANT_STEM NASAL_STEM Nikkhamanta Arahanta Aayasmanta.

#show <meaning>
<cat>
#if <gender> == masculine #then
<gender>
<masculine sg nom>
<masculine sg voc>
<masculine sg acc> 
<masculine sg ins> 
<masculine sg abl>
<masculine sg gen>
<masculine sg dat> 
<masculine sg loc>
<masculine pl nom>
<masculine pl voc>
<masculine pl acc>
<masculine pl ins>
<masculine pl abl>
<masculine pl gen>
<masculine pl dat>
<masculine pl loc>
#elsif <cat> == adjective #then
<masculine sg nom>
<masculine sg voc>
<masculine sg acc> 
<masculine sg ins> 
<masculine sg abl>
<masculine sg gen>
<masculine sg dat> 
<masculine sg loc>
<masculine pl nom>
<masculine pl voc>
<masculine pl acc>
<masculine pl ins>
<masculine pl abl>
<masculine pl gen>
<masculine pl dat>
<masculine pl loc>
#endif.