### File: hebrew.pl
### Version 0.1, June 29, 2002
### Written by Ross Moore <ross@maths.mq.edu.au>
### includes macros in Babel's 8859-8.def (hebrew_p)
###
### ISO_8859-8 encoding information
###
## Copyright (C) 2002 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.
$LR_CHARSET = 'iso-8859-8';
$BIDI_CHARSET = 'iso-8859-8-i';
$INPUTENC = 'hebrew';
$CHARSET=$BIDI_CHARSET;
#Character ranges for lower --> upper-case conversion
$sclower = '';
$scupper = '';
#extra pattern match preceding lower --> upper-case conversion
$scextra = '';
%extra_small_caps = ();
%low_entities = ();
sub do_cmd_textcurrency { join('', &iso_map("curren", ""), $_[0]);}
sub do_cmd_textperiodcentered { join('', &iso_map("middot", ""), $_[0]);}
sub do_cmd_textonequarter { join('', &iso_map("frac14", ""), $_[0]);}
sub do_cmd_textonehalf { join('', &iso_map("frac12", ""), $_[0]);}
sub do_cmd_textthreequarters { join('', &iso_map("frac34", ""), $_[0]);}
sub do_cmd_mathdegree { join('', &iso_map("deg", ""), $_[0]);}
sub do_cmd_mathonesuperior { join('', &iso_map("sup1", ""), $_[0]);}
sub do_cmd_mathtwosuperior { join('', &iso_map("sup2", ""), $_[0]);}
sub do_cmd_maththreesuperior { join('', &iso_map("sup3", ""), $_[0]);}
sub do_cmd_S { join('', &iso_map("sect", ""), $_[0]);}
sub do_cmd_P { join('', &iso_map("para", ""), $_[0]);}
sub do_cmd_div { join('', &iso_map("divide", ""), $_[0]);}
sub do_cmd_times { join('', &iso_map("times", ""), $_[0]);}
sub do_cmd_minus { join('', &iso_map("shy", ""), $_[0]);}
sub do_cmd_pounds { join('', &iso_map("pound", ""), $_[0]);}
sub do_cmd_cdot { join('', &iso_map("middot", ""), $_[0]);}
sub do_cmd_micron { join('', &iso_map("micro", ""), $_[0]);}
sub do_cmd_makafgadol { &do_cmd_textendash(@_) }
sub do_cmd_makafanak { &do_cmd_textemdash(@_) }
sub do_cmd_geresh { &do_cmd_textquoteright(@_) }
sub do_cmd_opengeresh { &do_cmd_textquoteright(@_) }
sub do_cmd_closegeresh { &do_cmd_textquoteleft(@_) }
sub do_cmd_openquote { &do_cmd_textquotedblright(@_) }
sub do_cmd_closequote { &do_cmd_textquotedblleft(@_) }
sub do_cmd_leftquotation { &do_cmd_textquotedblright(@_) }
sub do_cmd_rightquotation { &do_cmd_textquotedblleft(@_) }
# special macros for right-left typesetting
sub do_cmd_L { $_[0] }
sub do_cmd_R { $_[0] }
%iso_8859_8_character_map
= (
'alef', 'à', # Hebrew letter ALEF
'bet', 'á', # Hebrew letter BET
'gimel', 'â', # Hebrew letter GIMEL
'dalet', 'ã', # Hebrew letter DALET
'he', 'ä', # Hebrew letter HE
'vav', 'å', # Hebrew letter VAV
'zayin', 'æ', # Hebrew letter ZAYIN
'het', 'ç', # Hebrew letter HET
'tet', 'è', # Hebrew letter TET
'yod', 'é', # Hebrew letter YOD
'finalkaf', 'ê', # Hebrew letter final KAF
'kaf', 'ë', # Hebrew letter KAF
'lamed', 'ì', # Hebrew letter LAMED
'finalmem', 'í', # Hebrew letter final MEM
'mem', 'î', # Hebrew letter MEM
'finalnun', 'ï', # Hebrew letter final NUN
'nun', 'ð', # Hebrew letter NUN
'samekh', 'ñ', # Hebrew letter SAMEKH
'ayin', 'ò', # Hebrew letter AYIN
'finalpe', 'ó', # Hebrew letter final PE
'pe', 'ô', # Hebrew letter PE
'finaltsadi', 'õ', # Hebrew letter final TSADI
'tsadi', 'ö', # Hebrew letter TSADI
'qof', '÷', # Hebrew letter QOF
'resh', 'ø', # Hebrew letter RESH
'shin', 'ù', # Hebrew letter SHIN
'tav', 'ú', # Hebrew letter TAV
'amp', '&', # ampersand
'gt', '>', # greater than
'lt', '<', # less than
'quot', '"', # double quote
# These have HTML4 mnemonic names ...
'nbsp', ' ', # non-breaking space
'pound', '£', # pound sign
'curren', '¤', # currency sign
'sect', '§', # section mark
'shy', '­',
'sup2', '²',
'sup3', '³',
'micro', 'µ',
'middot', '·',
'sup1', '¹',
'frac14', '¼',
'frac12', '½',
'frac34', '¾',
'times', '×',
# These are character types without arguments ...
'grave' , "`",
'circ', '^',
'tilde', '~',
'uml', '¨',
'breve', '¯',
'deg', '°',
'acute' , "´",
'cedil', "¸",
);
%iso_8859_8_character_map_inv =
(
'>' , '\\ensuremath{>}',
'<' , '\\ensuremath{<}',
'&' , '&',
'^' , '\\^{}',
'~' , '\\~{}',
'"' , '"',
' ' , '\\nobreakspace{}',
'¡' , '',
'¢' , '\\textcent{}',
'£' , '\\pounds{}',
'¤' , '\\textcurrency{}',
'¥' , '\\textyen{}',
'¦' , '\\textbrokenbar',
'§' , '\\S{}',
'¨' , '\\"{}',
'©' , '\\textcopyright{}',
'ª' , '\\ensuremath{\\times}',
'«' , '\\guillemotleft{}',
'¬' , '\\lnot{}',
'­' , '\\-',
'®' , '\\textregistered{}',
'¯' , '\\={}',
'°' , '\\ensuremath{^{\\circ}}',
'±' , '\\ensuremath{\\pm}',
'²' , '\\ensuremath{^{2}}',
'³' , '\\ensuremath{^{3}}',
'´' , '\\\'{}',
'µ' , '\ensuremath{\\micron}',
'¶' , '\\P{}',
'·' , '\\ensuremath{\\cdot{}}',
'¸' , '\\c{}',
'¹' , '\\ensuremath{^{1}}',
'º' , '\\ensuremath{\\div}',
'»' , '\\guillemotright',
# '¼' , '\\textonequarter{}',
'¼' , '\\ensuremath{\\frac{1}{4}}',
# '½' , '\\textonehalf{}',
'½' , '\\ensuremath{\\frac{1}{2}}',
# '¾' , '\\textthreequarters{}',
'¾' , '\\ensuremath{\\frac{3}{4}}',
'¿' , '',
'À' , '',
'Á' , '',
'Â' , '',
'Ã' , '',
'Ä' , '',
'Å' , '',
'Æ' , '',
'Ç' , '',
'È' , '',
'É' , '',
'Ê' , '',
'Ë' , '',
'Ì' , '',
'Í' , '',
'Î' , '',
'Ï' , '',
'Ð' , '',
'Ñ' , '',
'Ò' , '',
'Ó' , '',
'Ô' , '',
'Õ' , '',
'Ö' , '',
'×' , '',
'Ø' , '',
'Ù' , '',
'Ú' , '',
'Û' , '',
'Ü' , '',
'Ý' , '',
'Þ' , '',
'ß' , '\\doubleunderline{}',
'à' , '\\alef{}',
'á' , '\\bet{}',
'â' , '\\gimel{}',
'ã' , '\\dalet{}',
'ä' , '\\he{}',
'å' , '\\vav{}',
'æ' , '\\zayin{}',
'ç' , '\\het{}',
'è' , '\\tet{}',
'é' , '\\yod{}',
'ê' , '\\finalkaf{}',
'ë' , '\\kaf{}',
'ì' , '\\lamed{}',
'í' , '\\finalmem{}',
'î' , '\\mem{}',
'ï' , '\\finalnun{}',
'ð' , '\\nun{}',
'ñ' , '\\samekh{}',
'ò' , '\\ayin{}',
'ó' , '\\finalpe{}',
'ô' , '\\pe{}',
'õ' , '\\finaltsadi{}',
'ö' , '\\tsadi{}',
'÷' , '\\qof{}',
'ø' , '\\resh{}',
'ù' , '\\shin{}',
'ú' , '\\tav{}',
'û' , '',
'ü' , '',
'ý' , '',
'þ' , '',
'ÿ' , ''
);
1;