### File: cp1255.pl ### Version 0.1, September 15, 2002 ### Written by Ross Moore ### ### CP-1255 encoding, windows adaptation of ISO_8859-8 ### ### based on hebrew.pl ### includes macros in Babel's 8859-8.def (hebrew_p) ### information provided bty Arie Folger ### ## 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'; $LR_CHARSET = 'cp1255'; #$BIDI_CHARSET = 'iso-8859-8-i'; $BIDI_CHARSET = 'cp1255'; $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] } %cp1255_character_map = ( 'sheva', 'À', # Hebrew point SHEVA 'hatafsegol', 'Á', # Hebrew point HATAF SEGOL 'hatafpatah', 'Â', # Hebrew point HATAF PATAH 'hatafqamats', 'Ã', # Hebrew point HATAF QAMATS 'hiriq', 'Ä', # Hebrew point HIRIQ 'tzere', 'Å', # Hebrew point TZERE 'segol', 'Æ', # Hebrew point SEGOL 'patah', 'Ç', # Hebrew point PATAH 'qamats', 'È', # Hebrew point QAMATS 'holam', 'É', # Hebrew point HOLAM 'qubuts', 'Ë', # Hebrew point QUBUTS 'dagesh', 'Ì', # Hebrew point DAGESH 'meteg', 'Í', # Hebrew point METEG 'maqaf', 'Î', # Hebrew punctuation MAQAF 'rafe', 'Ï', # Hebrew point RAFE 'paseq', 'Ð', # Hebrew punctuation PASEQ 'sofpasuq', 'Ó', # Hebrew punctuation SOF PASUQ 'doublevav', 'Ô', # Hebrew ligature yiddish DOUBLE VAV 'vavyod', 'Õ', # Hebrew ligature yiddish VAV YOD 'doubleyod', 'Ö', # Hebrew ligature yiddish DOUBLE YOD 'geresh', '×', # Hebrew punctuation GERESH 'gershayim', 'Ø', # Hebrew punctuation GERSHAYIM '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', "¸", ); %cp1255_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}}', '¿' , '', 'À' , '\\sheva{}', 'Á' , '\\hatafsegol{}', 'Â' , '\\hatafpatah{}', 'Ã' , '\\hatafqamats{}', 'Ä' , '\\hiriq{}', 'Å' , '\\tzere{}', 'Æ' , '\\segol{}', 'Ç' , '\\patah{}', 'È' , '\\qamats{}', 'É' , '\\holam{}', 'Ê' , '', 'Ë' , '\\qubuts{}', 'Ì' , '\\dagesh{}', 'Í' , '\\meteg{}', 'Î' , '\\maqaf{}', 'Ï' , '\\rafe{}', 'Ð' , '\\paseq{}', 'Ñ' , '', 'Ò' , '', 'Ó' , '\\sofpusuq{}', 'Ô' , '\\doublevav{}', 'Õ' , '\\vavyod{}', 'Ö' , '\\doubleyod{}', '×' , '\\geresh{}', 'Ø' , '\\gershsyim{}', 'Ù' , '', 'Ú' , '', 'Û' , '', 'Ü' , '', 'Ý' , '', 'Þ' , '', 'ß' , '\\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;