#! /usr/bin/perl
# co129_search - find co129 keywords
# PREAMBLE
use CGI;
use strict;
my ($cgi) = new CGI;
print $cgi->header ();
print $cgi->start_html (-title=>'LATIN DECLENSION',
-author=>'keloon@catholic.org.hk',
-base=>'true',
-meta=>{'keywords'=>'Latin Grammar',
'copyright'=>'copyright 2000, Louis Ha'},
-BGCOLOR=>'#CCCCFF');
print "
";
print "
";
print "FIRST CONJUGATION VERB
";
print "";
# MAIN-BODY
my ($prstem) = $cgi->param ("prstem");
my ($pfstem) = $cgi->param ("pfstem");
my ($sustem) = $cgi->param ("sustem");
my ($instem) = $cgi->param ("instem");
my ($english) = $cgi->param ("english");
declense ($prstem,$pfstem,$sustem,$instem,$english) if ($prstem,$pfstem,$sustem,$instem,$english);
# ending
print $cgi->hr();
print 'Return to Main page
';
print 'The present website is compiled for an introductory Latin course at the Chinese University of Hong Kong by Dr. Louis Ha.
';
print 'Copyright by Louis Ha, 2000.
';
print $cgi->center ('* * *');
print '
';
## MAIN-BODY
# DECLENSE
sub declense{
print "";
# printf "Latin : %s
\n",
# $cgi->escapeHTML ($key_word).", -is, -e";
print $cgi->blockquote(qq{Latin : $prstem-o, $instem, $pfstem-i, $sustem-um });
printf "English : %s
\n",
$cgi->escapeHTML ($english);
print $cgi->hr();
print $cgi->blockquote(qq{
|
ACTIVE |
|
PASSIVE |
|
|
INDICATIVE |
SUBJUNCTIVE |
INDICATIVE |
SUBJUNCTIVE |
|
PRESENT |
|
1.sg |
$prstemo |
$prstemem |
$prstemor |
$prstemer |
2.sg |
$prstemas |
$prstemes |
$prstemáris |
$prsteméris |
3.sg |
$prstemat |
$prstemet |
$prstemátur |
$prstemétur |
1.pl |
$prstemámus |
$prstemémus |
$prstemámur |
$prstemémur |
2.pl |
$prstemátis |
$prstemétis |
$prstemámini |
$prstemémini |
3.pl |
$prstemant |
$prstement |
$prstemántur |
$prsteméntur |
|
IMPERFECT |
|
1.sg |
$prstemábam |
$prstemárem |
$prstemábar |
$prstemárer |
2.sg |
$prstemábas |
$prstemáres |
$prstemabáris |
$prstemaréris |
3.sg |
$prstemábat |
$prstemáret |
$prstemabátur |
$prstemarétur |
1.pl |
$prstemabámus |
$prstemarémus |
$prstemabámur |
$prstemarémur |
2.pl |
$prstemabátis |
$prstemarétis |
$prstemabámini |
$prstemarémini |
3.pl |
$prstemábant |
$prstemárent |
$prstemabántur |
$prstemaréntur |
|
FUTURE |
|
1.sg |
$prstemábo |
|
$prstemábor |
|
2.sg |
$prstemábis |
|
$prstemáberis |
|
3.sg |
$prstemábit |
|
$prstemábitur |
|
1.pl |
$prstemábimus |
|
$prstemábimur |
|
2.pl |
$prstemábitis |
|
$prstemabímini |
|
3.pl |
$prstemábunt |
|
$prstemabúntur |
|
|
PERFECT |
|
1.sg |
$pfstemi |
$pfstemerim |
$sustemus -a um sum |
$sustemus -a um sim |
2.sg |
$pfstemísti |
$pfstemeris |
$sustemus -a um es |
$sustemus -a um sis |
3.sg |
$pfstemit |
$pfstemerit |
$sustemus -a um est |
$sustemus -a um sit |
1.pl |
$pfstemimus |
$pfstemerímus |
$sustemi -ae -a sumus |
$sustemi -ae -a simus |
2.pl |
$pfstemístis |
$pfstemerítis |
$sustemi -ae -a estis |
$sustemi -ae -a sitis |
3.pl |
$pfstemérunt |
$pfstemerint |
$sustemi -ae -a sunt |
$sustemi -ae -a sint |
|
PLUPERFECT |
|
1.sg |
$pfstemeram |
$pfstemíssem |
$sustemus -a um eram |
$sustemus -a um essem |
2.sg |
$pfstemeras |
$pfstemísses |
$sustemus -a um eras |
$sustemus -a um esses |
3.sg |
$pfstemerat |
$pfstemísset |
$sustemus -a um erat |
$sustemus -a um esset |
1.pl |
$pfstemerámus |
$pfstemissémus |
$sustemi -ae -a eramus |
$sustemi -ae -a essemus |
2.pl |
$pfstemerátis |
$pfstemissétis |
$sustemi -ae -a eratis |
$sustemi -ae -a essetis |
3.pl |
$pfstemerant |
$pfstemíssent |
$sustemi -ae -a erant |
$sustemi -ae -a essent |
|
FUTURE PERFECT |
|
1.sg |
$pfstemero |
|
$sustemus -a um ero |
|
2.sg |
$pfstemeris |
|
$sustemus -a um eris |
|
3.sg |
$pfstemerit |
|
$sustemus -a um erit |
|
1.pl |
$pfstemérimus |
|
$sustemi -ae -a erimus |
|
2.pl |
$pfsteméritis |
|
$sustemi -ae -a eritis |
|
3.pl |
$pfstemerint |
|
$sustemi -ae -a erunt |
|
|
ACTIVE |
ACTIVE |
PASSIVE |
|
IMPERATIVE |
INFINITIVE |
INFINITIVE |
present |
$prstema, $prstemáte |
$prstemáre |
$prstemári |
perfect |
|
$pfstemísse |
$sustemus -a -um esse |
future |
|
$sustemúrus -a -um esse |
|
|
PARTICIPLE |
PARTICIPLE |
|
|
GERUND |
SUPINE |
|
ACTIVE |
PASSIVE |
|
Gen. |
$prstemándi |
|
present |
$prstemans, (-tis) |
|
|
Dat. |
$prstemándo |
|
perfect |
|
$sustemus -a -um |
|
Acc. |
$prstemándum |
$sustemum |
future |
$sustemúrus -a -um |
$prstemándus -a -um |
|
Abl. |
$prstemándo |
$sustemu |
});
}
## WEBPAGE OUTPUT