### 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;