<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">### File: latin2.pl
### Version 0.1,  October 25, 1997
### Written by Ross Moore &lt;ross@mpce.mq.edu.au&gt;
### Version 0.2,  November 1, 1997
###   extended to include macros in LaTeX's  latin2.def
### Version 0.3,  December 12, 1997
###   includes lower --&gt; uppercase conversion tables
###
### ISO_8859-2 encoding information
###
### extracted from  i18n.pl  contains...
### Language definitions for HTML 2.1 (I18N, Internationalization)
### Written by Marcus E. Hennecke &lt;marcush@leland.stanford.edu&gt;
### Version 0.3,  March 6, 1996
### Version 0.2,  February 2, 1996

## Copyright (C) 1995 by Marcus E. Hennecke
## This program is free software; you can 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 of the License, or
## (at your option) any later version.

## This program is distributed in the hope that it will be useful,
## but WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
## GNU General Public License for more details.
## You should have received a copy of the GNU General Public License
## along with this program; if not, write to the Free Software
## Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.


$CHARSET = "iso-8859-2";
$INPUTENC = 'latin2';


#Character ranges for lower --&gt; upper-case conversion

$sclower = "\\261\\263\\265\\266\\271-\\274\\276\\277\\340-\\366\\370-\\376";
$scupper = "\\241\\243\\245\\246\\251-\\254\\256\\257\\300-\\326\\330-\\336";

#extra pattern match preceding  lower --&gt; upper-case conversion
$scextra = "s/\\337/ss/g";

%extra_small_caps = ( '223' , 'ss' );

%low_entities = ( '177', '161'
#	     ,'178', '162'
                 ,'179', '163'
#	     ,'180', '164'
                 ,'181', '165'
                 ,'182', '166'
#	     ,'183', '167'
#	     ,'184', '168'
                 ,'185', '169'
                 ,'186', '170'
                 ,'187', '171'
                 ,'188', '172'
#	     ,'189', '173'
                 ,'190', '174'
                 ,'191', '175'
                 ,'224', '192'
                 ,'225', '193'
                 ,'226', '194'
                 ,'227', '195'
                 ,'228', '196'
                 ,'229', '197'
                 ,'230', '198'
                 ,'231', '199'
                 ,'232', '200'
                 ,'233', '201'
                 ,'234', '202'
                 ,'235', '203'
                 ,'236', '204'
                 ,'237', '205'
                 ,'238', '206'
                 ,'239', '207'
                 ,'240', '208'
                 ,'241', '209'
                 ,'242', '210'
                 ,'243', '211'
                 ,'244', '212'
                 ,'245', '213'
                 ,'246', '214'
#	     ,'247', '215'
                 ,'248', '216'
                 ,'249', '217'
                 ,'250', '218'
                 ,'251', '219'
                 ,'252', '220'
                 ,'253', '221'
                 ,'254', '222'
#	     ,'255', '223'
);


sub do_cmd_l { join('', &amp;iso_map("l", "strok"), $_[0]);}
sub do_cmd_L { join('', &amp;iso_map("L", "strok"), $_[0]);}
# inhibit later wrapping for an image
$raw_arg_cmds{'l'} = $raw_arg_cmds{'L'} = -1 ;

sub do_cmd_dh { join('', &amp;iso_map("d", "strok"), $_[0]);}
sub do_cmd_DH { join('', &amp;iso_map("D", "strok"), $_[0]);}
sub do_cmd_ss { join('', &amp;iso_map("sz", "lig"), $_[0]);}

sub do_cmd_textcurrency { join('', &amp;iso_map("curren", ""), $_[0]);}

sub do_cmd_mathdegree { join('', &amp;iso_map("deg", ""), $_[0]);}

sub do_cmd_S { join('', &amp;iso_map("sect", ""), $_[0]);}
sub do_cmd_div { join('', &amp;iso_map("divide", ""), $_[0]);}
sub do_cmd_times { join('', &amp;iso_map("times", ""), $_[0]);}
sub do_cmd_minus { join('', &amp;iso_map("shy", ""), $_[0]);}
sub do_cmd_cdot { join('', &amp;iso_map("middot", ""), $_[0]);}


%iso_8859_2_character_map
     = (
	'Aacute', '&amp;#193;', 	# capital A, acute accent 
	'Abreve', '&amp;#195;', 	# capital A, breve accent
	'Acirc', '&amp;#194;', 	# capital A, circumflex accent 
	'Aogon', '&amp;#161;',	# capital A, ogonek accent
	'Auml', '&amp;#196;', 	# capital A, dieresis or umlaut mark   
	'Cacute', '&amp;#198;', 	# capital C, acute accent
	'Ccaron', '&amp;#200;', 	# capital C, caron accent 
	'Ccedil', '&amp;#199;', 	# capital C, cedilla 
	'Dcaron', '&amp;#207;', 	# capital D, caron accent
	'Dstrok', '&amp;#208;', 	# capital D, stroke
	'ETH', '&amp;#208;', 	# capital Eth, Icelandic 
	'Eacute', '&amp;#201;', 	# capital E, acute accent 
	'Ecaron', '&amp;#204;', 	# capital E, caron accent 
	'Eogon', '&amp;#202;', 	# capital E, ogonek accent 
	'Euml', '&amp;#203;', 	# capital E, dieresis or umlaut mark 
	'Iacute', '&amp;#205;', 	# capital I, acute accent 
	'Icirc', '&amp;#206;', 	# capital I, circumflex accent 
	'Lacute', '&amp;#197;', 	# capital L, acute accent 
	'Lcaron', '&amp;#165;', 	# capital L, caron accent 
	'Lstrok', '&amp;#163;',	# capital L, stroke
	'Nacute', '&amp;#209;', 	# capital N, acute accent 
	'Ncaron', '&amp;#210;', 	# capital N, caron accent 
	'Oacute', '&amp;#211;', 	# capital O, acute accent 
	'Ocirc', '&amp;#212;', 	# capital O, circumflex accent 
	'Odblac', '&amp;#213;', 	# capital O, double accute accent
	'Ouml', '&amp;#214;', 	# capital O, dieresis or umlaut mark
	'Racute', '&amp;#192;', 	# capital R, acute accent 
	'Rcaron', '&amp;#216;', 	# capital R, caron accent
	'Sacute', '&amp;#166;',	# capital S, acute accent
	'Scaron', '&amp;#169;',	# capital S, caron accent
	'Scedil', '&amp;#170;',	# capital S, cedil accent
	'Tcaron', '&amp;#171;',	# capital T, caron accent
	'Tcedil', '&amp;#222;',	# capital T, cedil accent
	'Uacute', '&amp;#218;', 	# capital U, acute accent 
	'Udblac', '&amp;#219;', 	# capital U, double acute accent 
	'Uring', '&amp;#217;', 	# capital U, ring
	'Uuml', '&amp;#220;', 	# capital U, dieresis or umlaut mark 
	'Yacute', '&amp;#221;', 	# capital Y, acute accent 
	'Zacute', '&amp;#172;',	# capital Z, acute accent
	'Zdot', '&amp;#175;',	# capital Z, dot above
	'Zcaron', '&amp;#174;',	# capital Z, caron accent
	'aacute', '&amp;#225;', 	# small a, acute accent 
	'abreve', '&amp;#227;', 	# small a, breve accent
	'acirc', '&amp;#226;', 	# small a, circumflex accent 
	'amp', '&amp;amp;', 	# ampersand 
	'aogon', '&amp;#177;',	# small a, ogonek accent
	'auml', '&amp;#228;', 	# small a, dieresis or umlaut mark   
	'cacute', '&amp;#230;', 	# small c, acute accent
	'ccaron', '&amp;#232;', 	# small c, caron accent 
	'ccedil', '&amp;#231;', 	# small c, cedilla 
	'dcaron', '&amp;#239;', 	# small d, caron accent
	'dstrok', '&amp;#240;', 	# small d, stroke
	'eacute', '&amp;#233;', 	# small e, acute accent 
	'ecaron', '&amp;#236;', 	# small e, caron accent 
	'eogon', '&amp;#234;', 	# small e, ogonek accent 
	'eth', '&amp;#240;', 	# small eth, Icelandic
	'euml', '&amp;#235;', 	# small e, dieresis or umlaut mark 
	'gt', '&amp;#62;',		# greater than 
	'iacute', '&amp;#237;', 	# small i, acute accent 
	'icirc', '&amp;#238;', 	# small i, circumflex accent 
	'lacute', '&amp;#229;', 	# small l, acute accent 
	'lcaron', '&amp;#181;', 	# small l, caron accent 
	'lstrok', '&amp;#179;',	# small l, stroke
	'lt', '&amp;lt;',		# less than 
	'nacute', '&amp;#241;', 	# small n, acute accent 
	'ncaron', '&amp;#242;', 	# small n, caron accent 
	'oacute', '&amp;#243;', 	# small o, acute accent 
	'ocirc', '&amp;#244;', 	# small o, circumflex accent 
	'odblac', '&amp;#245;', 	# small o, double accute accent
	'ouml', '&amp;#246;', 	# small o, dieresis or umlaut mark
	'quot', '&amp;quot;',	# double quote
	'racute', '&amp;#224;', 	# small r, acute accent 
	'rcaron', '&amp;#248;', 	# small r, caron accent
	'sacute', '&amp;#182;',	# small s, acute accent
	'scaron', '&amp;#185;',	# small s, caron accent
	'scedil', '&amp;#186;',	# small s, cedil accent
	'szlig', '&amp;#223;', 	# small sharp s, German (sz ligature) 
	'tcaron', '&amp;#187;',	# small t, caron accent
	'tcedil', '&amp;#254;',	# small t, cedil accent
	'uacute', '&amp;#250;', 	# small u, acute accent 
	'udblac', '&amp;#251;', 	# small u, double acute accent 
	'uring', '&amp;#249;', 	# small u, ring
	'uuml', '&amp;#252;', 	# small u, dieresis or umlaut mark 
	'yacute', '&amp;#253;', 	# small y, acute accent 
	'zacute', '&amp;#188;',	# small z, acute accent
	'zdot', '&amp;#191;',	# small z, dot above
	'zcaron', '&amp;#190;',	# small z, caron accent

# These do not have HTML mnemonic names ...
       'nbsp', '&amp;#160;',      # non-breaking space
       'curren', '&amp;#164;',    # currency sign
       'sect', '&amp;#167;',      # section mark
       'times', '&amp;#215;',
       'divide', '&amp;#247;',

# These are character types without arguments ...
	'grave' , "`",
	'circ', '^',
	'tilde', '&amp;#126;',
	'breve', '&amp;#162;',
	'uml', '&amp;#168;',
	'deg', '&amp;#176;',
	'ogon', '&amp;#178;',
	'acute' , "&amp;#180;",
	'caron', '&amp;#183;',
	'cedil', "&amp;#184;",
	'dblac', "&amp;#189;",
	'dot', '&amp;#255;'
	);


%iso_8859_2_character_map_inv =
    (
     '&amp;#62;'  , '\\ensuremath{&gt;}',
     '&amp;lt;'   , '\\ensuremath{&lt;}',
     '&amp;amp;'  , '&amp;',
     '^'      , '\\^{}',
     '&amp;#126;' , '\\~{}',
     '&amp;quot;' , '"',

     '&amp;#160;' , '\\nobreakspace{}',
     '&amp;#161;' , '\\k{A}',
     '&amp;#162;' , '\\u{}',
     '&amp;#163;' , '\\L{}',
     '&amp;#164;' , '\\textcurrency{}',
     '&amp;#165;' , '\\v{L}',
     '&amp;#166;' , '\\\'{S}',
     '&amp;#167;' , '\\S{}',
     '&amp;#168;' , '\\"{}',
     '&amp;#169;' , '\\v{S}',
     '&amp;#170;' , '\\c{S}',
     '&amp;#171;' , '\\v{T}',
     '&amp;#172;' , '\\\'{Z}',
     '&amp;#173;' , '\\-',
     '&amp;#174;' , '\\v{Z}',
     '&amp;#175;' , '\\.{Z}',
     '&amp;#176;' , '\\r{}',
     '&amp;#177;' , '\\k{a}',
     '&amp;#178;' , '\\k{ }',
     '&amp;#179;' , '\\l{}',
     '&amp;#180;' , '\\\'{}',
     '&amp;#181;' , '\\v{l}',
     '&amp;#182;' , '\\\'{s}',
     '&amp;#183;' , '\\v{}',
     '&amp;#184;' , '\\c{ }',
     '&amp;#185;' , '\\v{s}',
     '&amp;#186;' , '\\c{s}',
     '&amp;#187;' , '\\v{t}',
     '&amp;#188;' , '\\\'{z}',
     '&amp;#189;' , '\\H{}',
     '&amp;#190;' , '\\v{z}',
     '&amp;#191;' , '\\.{z}',
     '&amp;#192;' , '\\\'{R}',
     '&amp;#193;' , '\\\'{A}',
     '&amp;#194;' , '\\^{A}',
     '&amp;#195;' , '\\u{A}',
     '&amp;#196;' , '\\"{A}',
     '&amp;#197;' , '\\\'{L}',
     '&amp;#198;' , '\\\'{C}',
     '&amp;#199;' , '\\c{C}',
     '&amp;#200;' , '\\v{C}',
     '&amp;#201;' , '\\\'{E}',
     '&amp;#202;' , '\\k{E}',
     '&amp;#203;' , '\\"{E}',
     '&amp;#204;' , '\\v{E}',
     '&amp;#205;' , '\\\'{I}',
     '&amp;#206;' , '\\^{I}',
     '&amp;#207;' , '\\v{D}',
     '&amp;#208;' , '\\DH{}',
     '&amp;#209;' , '\\\'{N}',
     '&amp;#210;' , '\\v{N}',
     '&amp;#211;' , '\\\'{O}',
     '&amp;#212;' , '\\^{O}',
     '&amp;#213;' , '\\H{O}',
     '&amp;#214;' , '\\"{O}',
     '&amp;#215;' , '\\ensuremath{\\times}',
     '&amp;#216;' , '\\v{R}',
     '&amp;#217;' , '\\r{U}',
     '&amp;#218;' , '\\\'{U}',
     '&amp;#219;' , '\\H{U}',
     '&amp;#220;' , '\\"{U}',
     '&amp;#221;' , '\\\'{Y}',
     '&amp;#222;' , '\\c{T}',
     '&amp;#223;' , '\\ss{}',
     '&amp;#224;' , '\\\'{r}',
     '&amp;#225;' , '\\\'{a}',
     '&amp;#226;' , '\\^{a}',
     '&amp;#227;' , '\\u{a}',
     '&amp;#228;' , '\\"{a}',
     '&amp;#229;' , '\\\'{l}',
     '&amp;#230;' , '\\\'{c}',
     '&amp;#231;' , '\\c{c}',
     '&amp;#232;' , '\\v{c}',
     '&amp;#233;' , '\\\'{e}',
     '&amp;#234;' , '\\k{e}',
     '&amp;#235;' , '\\"{e}',
     '&amp;#236;' , '\\v{e}',
     '&amp;#237;' , '\\\'{\\i}',
     '&amp;#238;' , '\\^{\\i}',
     '&amp;#239;' , '\\v{d}',
     '&amp;#240;' , '\\dh{}',
     '&amp;#241;' , '\\\'{n}',
     '&amp;#242;' , '\\v{n}',
     '&amp;#243;' , '\\\'{o}',
     '&amp;#244;' , '\\^{o}',
     '&amp;#245;' , '\\H{o}',
     '&amp;#246;' , '\\"{o}',
     '&amp;#247;' , '\\ensuremath{\\div}',
     '&amp;#248;' , '\\v{r}',
     '&amp;#249;' , '\\r{u}',
     '&amp;#250;' , '\\\'{u}',
     '&amp;#251;' , '\\H{u}',
     '&amp;#252;' , '\\"{u}',
     '&amp;#253;' , '\\\'{y}',
     '&amp;#254;' , '\\c{t}',
     '&amp;#255;' , '\\.{}'
);

1;









</pre></body></html>