1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
# $Id: turkish.perl,v 1.1 1998/08/25 01:59:11 RRM Exp $
#
# turkish.perl for turkish babel, inspired heavily by finnish.perl
# by H. Turgut Uyar <uyar@cs.itu.edu.tr>
#
# Change Log:
# ===========
# $Log: turkish.perl,v $
# Revision 1.1 1998/08/25 01:59:11 RRM
# Babel language support
#
# Revision 1.1 1998/08/10 09:46:51 latex2html ,
# -- added translation for the info page (from finnish.perl)
# -- removed french-specific commands
# Revision 1.0 1998/08/07 09:46:51 latex2html
# -- first pass
#
package turkish;
sub main'turkish_translation {
@_[0];
}
package main;
if (defined &addto_languages) { &addto_languages('turkish') };
&do_require_extension('latin5');
sub turkish_titles {
$toc_title = '\.Içindekiler'; # "indekiler";
$lof_title = '\c Sekil Listesi'; # "ekil Listesi";
$lot_title = "Tablo Listesi";
$idx_title = "Dizin";
$ref_title = "Kaynaklar";
$bib_title = 'Kaynakça'; # "Kaynaka";
$abs_title = 'Özet'; # "zet";
$app_title = "Ek";
$pre_title = 'Önsöz'; # "nsz";
## $foot_title = "";
$fig_name = '\c Sekil'; # "ekil";
$tab_name = "Tablo";
$prf_name = 'Kan\i t'; # "Kant";
$page_name = 'Sayfa';
# Sectioning-level titles
$part_name = 'K\i s\i m'; # "Ksm";
$chapter_name = 'Bölüm';
## $section_name = '';
## $subsection_name = '';
## $subsubsection_name = '';
## $paragraph_name = '';
$subject_name = '\.Ilgili';
# Misc. strings
$child_name = "Altblümler"; # "Altblmler";
$info_title = "Bu belge üzerine..."; # "Bu belge zerine...";
$also_name = 'ayr\i ca bkz.';
$see_name = 'bkz.';
# names in navigation panels
## $next_name = "Next";
## $up_name = "Up";
## $prev_name = "Previous";
## $group_name = "Group";
# mail fields
$encl_name = '\.Ili\c sik';
$headto_name = 'Al\i c\i';
$cc_name = 'Di\u ger Al\i c\i lar';
@Month = ('', 'Ocak', '\c Subat', 'Mart', 'Nisan', 'May\i s',
'Haziran', 'Temmuz', 'A\v gustos', 'Eylül', 'Ekim',
'Kas\i m', "Aral\i k");
# @Month = ('', 'Ocak', "ubat", 'Mart', 'Nisan', 'Mays',
# 'Haziran', 'Temmuz', "Austos", 'Eyll', 'Ekim',
# 'Kasm', "Aralk");
$GENERIC_WORDS = "ve|ile|ki|de|da|mi|m|mu|m|ise";
}
#AYS(JKR): Replace do_cmd_today (\today) with a nicer one, which is more
# similar to the original.
#JCL introduced &get_date.
sub turkish_today {
local($today) = &get_date();
$today =~ s|(\d+)/0?(\d+)/|$2. $Month[$1] |;
join('',$today,$_[0]);
}
sub turkish_infopage {
local($_) = @_;
( ($INFO == 1)
? join('', $close_all
, "<STRONG>$t_title</STRONG><P>\nBu belge\n"
, "<A
HREF=\"$TEX2HTMLADDRESS\"><STRONG>LaTeX</STRONG>2<tt>HTML</tt></A>"
, " Sürüm $TEX2HTMLVERSION ile hazrlanmtr.\n"
, "<P>Copyright © 1993, 1994, 1995, 1996,\n"
, "<A HREF=\"$AUTHORADDRESS\">Nikos Drakos</A>, \n"
, "Computer Based Learning Unit, University of Leeds.\n"
, "<BR>Copyright © 1997, 1998,\n"
, "<A HREF=\"$AUTHORADDRESS2\">Ross Moore</A>, \n"
, "Mathematics Department, Macquarie University, Sydney.\n"
, "<P>Belgenin oluturulmasnda kullanlan komut: <BR>\n "
, "<STRONG>latex2html</STRONG> <tt>$argv</tt>.\n"
, (($INIT_FILE ne '')?
"\n<P><TT>$INIT_FILE</TT>\n$init_file_mark\n" :'')
, "<P>Belgeyi oluturan: $address_data[0] $address_data[1]"
, $open_all, $_)
: join('', $close_all, $INFO,"\n", $open_all, $_))
}
# use'em
&turkish_titles;
$default_language = 'turkish';
$TITLES_LANGUAGE = "turkish";
$turkish_encoding = 'iso-8859-9';
1; # Not really necessary...
|
