Contents of /manuals/trunk/dictionary/make_dict

#! /usr/bin/perl

while (<>) { $dict{$1}=$2 if /\s*(.+?)\t+(.+)$/ }
&begin;
@sortedkeys=sort { lc $a cmp lc $b } keys %dict;
my $a;
foreach (@sortedkeys)
{
  if ( $a ne lc(substr($_,0,1)) )
  {
    print "      </taglist>\n      </p>\n    </chapt>\n\n" if (defined $a);
    $a=lc substr($_,0,1);
    print "    <chapt id=\"dgl-dic_$a\">\n\n      <heading>";
    print uc $a, "</heading>\n\n      <p>\n      <taglist>\n";
  }
  print "        <tag>", $_,"\n          <item>", $dict{$_}, "\n";
}
print "      </taglist>\n\n    </chapt>\n\n";

&end;

####################################################################

sub begin
{

print <<End_Of_Text;
<!doctype debiandoc system>

<!--
 Debian GNU/Linux Dctionary 
 Copyright (C) 1997 Ardo van Rangelrooij 
 Released under the terms of the GNU General Public License, 
 version 2 or (at your option) any later. 
 -->

<debiandoc>

  <book>

    <titlepag>

      <title>Словарь Debian GNU/Linux</title>

      <author>
        <name>Ardo van Rangelrooij</name>
        <email>ardo.van.rangelrooij\@tip.nl</email>
      </author>
      <author>
        <name>Oliver Elphick - Maintainer</name>
        <email>olly\@lfix.co.uk</email>
      </author>

      <version>версия 0.1, <date></version>

      <abstract>
        В Словаре Debian GNU/Linux описываются и определяются термины,
        используемые в руководствах Debian GNU/Linux. 
      </abstract>

      <copyright>

        <copyrightsummary>
          Copyright &copy; 1997 Ardo van Rangelrooij
        </copyrightsummary>

        <p>
          This manual is free software; you may redistribute it and/or
          modify it under the terms of the GNU General Public License
          as published by the Free Software Foundation; either version
          2, or (at your option) any later version. 
        </p>

        <p>
          This is distributed in the hope that it will be useful, but
          <em>without any warranty</em>; without even the implied
          warranty of merchantability or fitness for a particular
          purpose.  See the GNU General Public License for more
          details. 
        </p>

        <p>
          You should have received a copy of the GNU General Public
          License with your Debian GNU/Linux system, in
          <tt>/usr/doc/copyright/GPL</tt>, or with the
          <prgn>debiandoc-sgml</prgn> source package as the file
          <tt>COPYING</tt>.  If not, write to the Free Software
          Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. 
        </p>

      </copyright>

    </titlepag>

    <toc sect>

    <chapt id="dgl-dic_int">

      <heading>Введение</heading>

      <p>
        "об этом руководстве"
      </p>

      <p>
        "где искать более новые версии"
      </p>

      <p>
        "как возникло это руководство"
      </p>

      <p>
        Пожалуйста, все комментарии, критику, предложения, ошибки и т.д. посылайте на 
        <email>olly\@lfix.co.uk</email>.
       Замечания о русском переводе посылайте на <email>paul\@justnews.ru</email>.
      </p>

    </chapt>
End_Of_Text

}

sub end
{
print <<End_Of_Text;
  </book>

</debiandoc>

<!-- Keep this comment at the end of the file
Local variables:
mode: sgml
sgml-omittag:nil
sgml-shorttag:t
sgml-minimize-attributes:nil
sgml-always-quote-attributes:t
sgml-indent-step:2
sgml-indent-data:t
sgml-parent-document:nil
sgml-exposed-tags:nil
sgml-local-catalogs:nil
sgml-local-ecat-files:nil
End:
-->

End_Of_Text
}
1	#! /usr/bin/perl
2
3	while (<>) { $dict{$1}=$2 if /\s*(.+?)\t+(.+)$/ }
4	&begin;
5	@sortedkeys=sort { lc $a cmp lc $b } keys %dict;
6	my $a;
7	foreach (@sortedkeys)
8	{
9	if ( $a ne lc(substr($_,0,1)) )
10	{
11	print " </taglist>\n </p>\n </chapt>\n\n" if (defined $a);
12	$a=lc substr($_,0,1);
13	print " <chapt id=\"dgl-dic_$a\">\n\n <heading>";
14	print uc $a, "</heading>\n\n <p>\n <taglist>\n";
15	}
16	print " <tag>", $_,"\n <item>", $dict{$_}, "\n";
17	}
18	print " </taglist>\n\n </chapt>\n\n";
19
20	&end;
21
22	####################################################################
23
24	sub begin
25	{
26
27	print <<End_Of_Text;
28	<!doctype debiandoc system>
29
30	<!--
31	Debian GNU/Linux Dctionary
32	Copyright (C) 1997 Ardo van Rangelrooij
33	Released under the terms of the GNU General Public License,
34	version 2 or (at your option) any later.
35	-->
36
37	<debiandoc>
38
39	<book>
40
41	<titlepag>
42
43	<title>Словарь Debian GNU/Linux</title>
44
45	<author>
46	<name>Ardo van Rangelrooij</name>
47	<email>ardo.van.rangelrooij\@tip.nl</email>
48	</author>
49	<author>
50	<name>Oliver Elphick - Maintainer</name>
51	<email>olly\@lfix.co.uk</email>
52	</author>
53
54	<version>версия 0.1, <date></version>
55
56	<abstract>
57	В Словаре Debian GNU/Linux описываются и определяются термины,
58	используемые в руководствах Debian GNU/Linux.
59	</abstract>
60
61	<copyright>
62
63	<copyrightsummary>
64	Copyright © 1997 Ardo van Rangelrooij
65	</copyrightsummary>
66
67	<p>
68	This manual is free software; you may redistribute it and/or
69	modify it under the terms of the GNU General Public License
70	as published by the Free Software Foundation; either version
71	2, or (at your option) any later version.
72	</p>
73
74	<p>
75	This is distributed in the hope that it will be useful, but
76	<em>without any warranty</em>; without even the implied
77	warranty of merchantability or fitness for a particular
78	purpose. See the GNU General Public License for more
79	details.
80	</p>
81
82	<p>
83	You should have received a copy of the GNU General Public
84	License with your Debian GNU/Linux system, in
85	<tt>/usr/doc/copyright/GPL</tt>, or with the
86	<prgn>debiandoc-sgml</prgn> source package as the file
87	<tt>COPYING</tt>. If not, write to the Free Software
88	Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
89	</p>
90
91	</copyright>
92
93	</titlepag>
94
95	<toc sect>
96
97	<chapt id="dgl-dic_int">
98
99	<heading>Введение</heading>
100
101	<p>
102	"об этом руководстве"
103	</p>
104
105	<p>
106	"где искать более новые версии"
107	</p>
108
109	<p>
110	"как возникло это руководство"
111	</p>
112
113	<p>
114	Пожалуйста, все комментарии, критику, предложения, ошибки и т.д. посылайте на
115	<email>olly\@lfix.co.uk</email>.
116	Замечания о русском переводе посылайте на <email>paul\@justnews.ru</email>.
117	</p>
118
119	</chapt>
120	End_Of_Text
121
122	}
123
124	sub end
125	{
126	print <<End_Of_Text;
127	</book>
128
129	</debiandoc>
130
131	<!-- Keep this comment at the end of the file
132	Local variables:
133	mode: sgml
134	sgml-omittag:nil
135	sgml-shorttag:t
136	sgml-minimize-attributes:nil
137	sgml-always-quote-attributes:t
138	sgml-indent-step:2
139	sgml-indent-data:t
140	sgml-parent-document:nil
141	sgml-exposed-tags:nil
142	sgml-local-catalogs:nil
143	sgml-local-ecat-files:nil
144	End:
145	-->
146
147	End_Of_Text
148	}