<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">### File: latin8.pl
### Version 0.1,  September 10, 1999
### Written by Ross Moore &lt;ross@maths.mq.edu.au&gt;
###
### ISO_8859-14 encoding information
###
### based on latin1.pl

## Copyright (C) 1999 by Ross Moore
## 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.
#
#&lt;!-- (C) International Organization for Standardization 1986
#     Permission to copy in any form is granted for use with
#     conforming SGML systems and applications as defined in
#     ISO 8879, provided this notice is included in all copies.
#     This has been extended for use with HTML to cover the full
#     set of codes in the range 160-255 decimal.
#--&gt;
#&lt;!-- Character entity set. Typical invocation:
#     &lt;!ENTITY % ISOlat1 PUBLIC
#       "ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML"&gt;
#     %ISOlat1;
#--&gt;

$CHARSET = "iso-8859-14";
$INPUTENC='latin8';  # empty implies 'latin1'

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

$sclower = "\\242\\245\\253\\270\\272\\274\\261\\263\\265\\271\\277\\276\\340-\\376\\377";
$scupper = "\\241\\244\\246\\250\\252\\254\\260\\262\\264\\267\\273\\275\\300-\\336\\257";

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

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

%low_entities = ( '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', '175'
	     ,'162', '161'
	     ,'165', '164'
	     ,'171', '166'
	     ,'184', '168'
	     ,'186', '170'
	     ,'188', '172'
	     ,'177', '176'
	     ,'179', '178'
	     ,'181', '180'
	     ,'185', '183'
	     ,'191', '187'
	     ,'190', '189'
);



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


sub do_cmd_textregistered { join('', &amp;iso_map("reg", ""), $_[0]);}
sub do_cmd_P { join('', &amp;iso_map("para", ""), $_[0]);}
sub do_cmd_S { join('', &amp;iso_map("sect", ""), $_[0]);}
#sub do_cmd_minus { join('', &amp;iso_map("shy", ""), $_[0]);}
sub do_cmd_copyright { join('', &amp;iso_map("copy", ""), $_[0]);}
sub do_cmd_pounds { join('', &amp;iso_map("pound", ""), $_[0]);}

%iso_8859_14_character_map
     = (
       'AElig', '&amp;#198;',       # capital AE diphthong (ligature)
       'Aacute', '&amp;#193;',      # capital A, acute accent
       'Acirc', '&amp;#194;',       # capital A, circumflex accent
       'Agrave', '&amp;#192;',      # capital A, grave accent
       'Aring', '&amp;#197;',       # capital A, ring
       'Atilde', '&amp;#195;',      # capital A, tilde
       'Auml', '&amp;#196;',        # capital A, dieresis or umlaut mark
       'Bdot', '&amp;#161;',        # capital B, with dot
       'Ccedil', '&amp;#199;',      # capital C, cedilla
       'Cdot', '&amp;#164;',        # capital C, with dot
       'Ddot', '&amp;#166;',        # capital D, with dot
       'Eacute', '&amp;#201;',      # capital E, acute accent
       'Ecirc', '&amp;#202;',       # capital E, circumflex accent
       'Egrave', '&amp;#200;',      # capital E, grave accent
       'Euml', '&amp;#203;',        # capital E, dieresis or umlaut mark
       'Fdot', '&amp;#176;',        # capital F, with dot
       'Gdot', '&amp;#178;',        # capital G, with dot
       'Iacute', '&amp;#205;',      # capital I, acute accent
       'Icirc', '&amp;#206;',       # capital I, circumflex accent
       'Igrave', '&amp;#204;',      # capital I, grave accent
       'Iuml', '&amp;#207;',        # capital I, dieresis or umlaut mark
       'Mdot', '&amp;#180;',        # capital M, with dot
       'Ntilde', '&amp;#209;',      # capital N, tilde
       'Oacute', '&amp;#211;',      # capital O, acute accent
       'Ocirc', '&amp;#212;',       # capital O, circumflex accent
       'Ograve', '&amp;#210;',      # capital O, grave accent
       'Oslash', '&amp;#216;',      # capital O, slash
       'Otilde', '&amp;#213;',      # capital O, tilde
       'Ouml', '&amp;#214;',        # capital O, dieresis or umlaut mark
       'Pdot', '&amp;#183;',        # capital P, with dot
       'Sdot', '&amp;#187;',        # capital S, with dot
       'Tdot', '&amp;#215;',        # capital T, with dot
       'Uacute', '&amp;#218;',      # capital U, acute accent
       'Ucirc', '&amp;#219;',       # capital U, circumflex accent
       'Ugrave', '&amp;#217;',      # capital U, grave accent
       'Uuml', '&amp;#220;',        # capital U, dieresis or umlaut mark
       'Wacute', '&amp;#170;',      # capital W, acute accent
       'Wcirc', '&amp;#208;',       # capital W, circumflex accent
       'Wgrave', '&amp;#168;',      # capital W, grave accent
       'Wuml', '&amp;#189;',        # capital W, dieresis or umlaut mark
       'Yacute', '&amp;#221;',      # capital Y, acute accent
       'Ygrave', '&amp;#172;',      # capital Y, grave accent
       'Ycirc', '&amp;#222;',       # capital Y, circumflex accent
       'Yuml', '&amp;#175;',        # capital Y, dieresis or umlaut mark
#
       'aacute', '&amp;#225;',      # small a, acute accent
       'acirc', '&amp;#226;',       # small a, circumflex accent
       'aelig', '&amp;#230;',       # small ae diphthong (ligature)
       'agrave', '&amp;#224;',      # small a, grave accent
       'amp', '&amp;amp;',  # ampersand
       'aring', '&amp;#229;',       # small a, ring
       'atilde', '&amp;#227;',      # small a, tilde
       'auml', '&amp;#228;',        # small a, dieresis or umlaut mark
       'bdot', '&amp;#162;',        # small b, with dot
       'cdot', '&amp;#165;',        # small c, with dot
       'ccedil', '&amp;#231;',      # small c, cedilla
       'ddot', '&amp;#171;',        # small d, with dot
       'eacute', '&amp;#233;',      # small e, acute accent
       'ecirc', '&amp;#234;',       # small e, circumflex accent
       'egrave', '&amp;#232;',      # small e, grave accent
       'eth', '&amp;#240;',         # small eth, Icelandic
       'euml', '&amp;#235;',        # small e, dieresis or umlaut mark
       'fdot', '&amp;#177;',        # small f, with dot
       'gdot', '&amp;#179;',        # small g, with dot
       'gt', '&amp;#62;',   # greater than
       'iacute', '&amp;#237;',      # small i, acute accent
       'icirc', '&amp;#238;',       # small i, circumflex accent
       'igrave', '&amp;#236;',      # small i, grave accent
       'iuml', '&amp;#239;',        # small i, dieresis or umlaut mark
       'lt', '&amp;lt;',    # less than
       'mdot', '&amp;#181;',        # small m, with dot
       'ntilde', '&amp;#241;',      # small n, tilde
       'oacute', '&amp;#243;',      # small o, acute accent
       'ocirc', '&amp;#244;',       # small o, circumflex accent
       'ograve', '&amp;#242;',      # small o, grave accent
       'oslash', '&amp;#248;',      # small o, slash
       'otilde', '&amp;#245;',      # small o, tilde
       'ouml', '&amp;#246;',        # small o, dieresis or umlaut mark
       'pdot', '&amp;#185;',        # small p, with dot
       'sdot', '&amp;#191;',        # small s, with dot
       'szlig', '&amp;#223;',       # small sharp s, German (sz ligature)
       'tdot', '&amp;#247;',        # small t, with dot
       'uacute', '&amp;#250;',      # small u, acute accent
       'ucirc', '&amp;#251;',       # small u, circumflex accent
       'ugrave', '&amp;#249;',      # small u, grave accent
       'uuml', '&amp;#252;',        # small u, dieresis or umlaut mark
       'wacute', '&amp;#186;',      # small w, acute accent
       'wcirc', '&amp;#240;',       # small w, circumflex accent
       'wgrave', '&amp;#184;',      # small w, grave accent
       'wuml', '&amp;#190;',        # small w, dieresis or umlaut mark
       'yacute', '&amp;#253;',      # small y, acute accent
       'ycirc', '&amp;#254;',       # small y, circumflex accent
       'ygrave', '&amp;#188;',      # small y, grave accent
       'yuml', '&amp;#255;',        # small y, dieresis or umlaut mark
       'quot', '&amp;quot;',        # double quote

# These have HTML mnemonic names for HTML 4.0 ...
       'nbsp', '&amp;#160;',       # non-breaking space
       'pound', '&amp;#163;',      # pound sign
       'sect', '&amp;#167;',       # section mark
       'copy', '&amp;#169;',       # copyright mark
       'shy', '&amp;#173;',
       'reg', '&amp;#174;',
       'para', '&amp;#182;',   # paragraph mark

# These are character types without arguments ...
       'grave' , "`",
	);


%iso_8859_14_character_map_inv =
    (
     '^'      , '\\^{}',
     '&amp;#62;'  , '\\ensuremath{&gt;}',
     '&amp;lt;'   , '\\ensuremath{&lt;}',
     '&amp;amp;'  , '\\&amp;',
     '&amp;#126;' , '\\~{}',
	'&amp;#160;' , '\\nobreakspace{}',
     '&amp;#161;' , '\\.{B}',
     '&amp;#162;' , '\\.{b}',
     '&amp;#163;' , '\\pounds{}',
     '&amp;#164;' , '\\.{C}',
     '&amp;#165;' , '\\.{c}',
     '&amp;#166;' , '\\.{D}',
     '&amp;#167;' , '\\S{}',
     '&amp;#168;' , '\\`{W}',
     '&amp;#169;' , '\\copyright{}',
     '&amp;#170;' , '\\\'{W}',
     '&amp;#171;' , '\\.{d}',
     '&amp;#172;' , '\\`{Y}',
	'&amp;#173;' , '\\-',
#	'&amp;#174;' , '\\textregistered{}',
	 '&amp;#174;' , '\\ensuremath{\\circledR}',
     '&amp;#175;' , '\\"{Y}',
     '&amp;#176;' , '\\.{F}',
     '&amp;#177;' , '\\.{f}',
     '&amp;#178;' , '\\.{G}',
     '&amp;#179;' , '\\.{g}',
     '&amp;#180;' , '\\.{M}',
     '&amp;#181;' , '\\.{m}',
     '&amp;#182;' , '\\P{}',
     '&amp;#183;' , '\\.{P}',
     '&amp;#184;' , '\\`{w}',
     '&amp;#185;' , '\\.{p}',
     '&amp;#186;' , '\\\'{w}',
     '&amp;#187;' , '\\.{S}',
     '&amp;#188;' , '\\`{y}',
     '&amp;#189;' , '\\"{W}',
     '&amp;#190;' , '\\"{w}',
     '&amp;#191;' , '\\.{s}',
     '&amp;#192;' , '\\`{A}',
     '&amp;#193;' , '\\\'{A}',
     '&amp;#194;' , '\\^{A}',
     '&amp;#195;' , '\\~{A}',
     '&amp;#196;' , '\\"{A}',
#     '&amp;#197;' , '\\AA{}',
     '&amp;#197;' , '\\r{A}',
     '&amp;#198;' , '\\AE{}',
     '&amp;#199;' , '\\c{C}',
     '&amp;#200;' , '\\`{E}',
     '&amp;#201;' , '\\\'{E}',
     '&amp;#202;' , '\\^{E}',
     '&amp;#203;' , '\\"{E}',
     '&amp;#204;' , '\\`{I}',
     '&amp;#205;' , '\\\'{I}',
     '&amp;#206;' , '\\^{I}',
     '&amp;#207;' , '\\"{I}',
     '&amp;#208;' , '\\^{W}',
     '&amp;#209;' , '\\~{N}',
     '&amp;#210;' , '\\`{O}',
     '&amp;#211;' , '\\\'{O}',
     '&amp;#212;' , '\\^{O}',
     '&amp;#213;' , '\\~{O}',
     '&amp;#214;' , '\\"{O}',
     '&amp;#215;' , '\\.{T}',
     '&amp;#216;' , '\\O{}',
     '&amp;#217;' , '\\`{U}',
     '&amp;#218;' , '\\\'{U}',
     '&amp;#219;' , '\\^{U}',
     '&amp;#220;' , '\\"{U}',
     '&amp;#221;' , '\\\'{Y}',
     '&amp;#222;' , '\\^{Y}',
     '&amp;#223;' , '\\ss{}',
     '&amp;#224;' , '\\`{a}',
     '&amp;#225;' , '\\\'{a}',
     '&amp;#226;' , '\\^{a}',
     '&amp;#227;' , '\\~{a}',
     '&amp;#228;' , '\\"{a}',
#     '&amp;#229;' , '\\aa{}',
     '&amp;#229;' , '\\r{a}',
     '&amp;#230;' , '\\ae{}',
     '&amp;#231;' , '\\c{c}',
     '&amp;#232;' , '\\`{e}',
     '&amp;#233;' , '\\\'{e}',
     '&amp;#234;' , '\\^{e}',
     '&amp;#235;' , '\\"{e}',
     '&amp;#236;' , '\\`{\\i}',
     '&amp;#237;' , '\\\'{\\i}',
     '&amp;#238;' , '\\^{\\i}',
     '&amp;#239;' , '\\"{\\i}',
     '&amp;#240;' , '\\^{w}',
     '&amp;#241;' , '\\~{n}',
     '&amp;#242;' , '\\`{o}',
     '&amp;#243;' , '\\\'{o}',
     '&amp;#244;' , '\\^{o}',
     '&amp;#245;' , '\\~{o}',
     '&amp;#246;' , '\\"{o}',
     '&amp;#247;' , '\\.{t}',
     '&amp;#248;' , '\\o{}',
     '&amp;#249;' , '\\`{u}',
     '&amp;#250;' , '\\\'{u}',
     '&amp;#251;' , '\\^{u}',
     '&amp;#252;' , '\\"{u}',
     '&amp;#253;' , '\\\'{y}',
     '&amp;#254;' , '\\^{y}',
     '&amp;#255;' , '\\"{y}'
);

1;






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