Skip to content

Commit

Permalink
More wide_to
Browse files Browse the repository at this point in the history
  • Loading branch information
@nigelhorne
nigelhorne committed Jun 18, 2024
1 parent f8c140f commit b91bf3d
Showing 1 changed file with 23 additions and 5 deletions.
28 changes: 23 additions & 5 deletions ged2site
View file
Original file line number Diff line number Diff line change
Expand Up @@ -14036,7 +14036,10 @@ sub wide_to_html

$string =~ s/\xc2\xa3/£/g;
$string =~ s/\xc2\xa9/©/g;
$string =~ s/\xc2\xab/"/g; # «
$string =~ s/\xc2\xae/®/g;
$string =~ s/\xc2\xbb/"/g; # »
$string =~ s/\xc3\x81/Á/g; # Á
$string =~ s/\xc3\x83/Î/g; # Î
$string =~ s/\xc3\x9e/Þ/g; # Þ
$string =~ s/\xc3\xa1/á/g;
Expand All @@ -14053,6 +14056,7 @@ sub wide_to_html
$string =~ s/\xc5\xbe/ž/g;
$string =~ s/\xc3\xa5/å/g; # å
$string =~ s/\xc3\xa7/ç/g;
$string =~ s/\xc3\xaf/ï/g; # ï
$string =~ s/\xc3\xb3/ó/g;
$string =~ s/\xc3\x96/Ö/g; # Ö
$string =~ s/\xc3\xa8/è/g;
Expand All @@ -14076,7 +14080,9 @@ sub wide_to_html
$string =~ s/\N{U+00A0}/ /g;
$string =~ s/\N{U+00A3}/£/g,
$string =~ s/\N{U+00A9}/©/g;
$string =~ s/\N{U+00AB}/"/g; # «
$string =~ s/\N{U+00AE}/®/g;
$string =~ s/\N{U+00BB}/"/g; # »
$string =~ s/\N{U+00CE}/Î/g; # Î
$string =~ s/\N{U+00DE}/Þ/g; # Þ
$string =~ s/\N{U+0161}/š/g;
Expand All @@ -14088,17 +14094,19 @@ sub wide_to_html
$string =~ s/\N{U+00E2}/â/g;
$string =~ s/\N{U+00E4}/ä/g;
$string =~ s/\N{U+00E5}/å/g; # å
$string =~ s/\N{U+00E7}/ç/g; # ç
$string =~ s/\N{U+00E8}/è/g;
$string =~ s/\N{U+00E9}/é/g;
$string =~ s/\N{U+00ED}/í/g; # í
$string =~ s/\N{U+00EE}/î/g;
$string =~ s/\N{U+00E7}/ç/g; # ç
$string =~ s/\N{U+00EF}/ï/g; # ï
$string =~ s/\N{U+00F0}/ð/g; # ð
$string =~ s/\N{U+00F4}/ô/g; # ô
$string =~ s/\N{U+00F6}/ö/g;
$string =~ s/\N{U+00F8}/ø/g; # ø
$string =~ s/\N{U+00FC}/ü/g; # ü
$string =~ s/\N{U+00FE}/þ/g; # þ
$string =~ s/\N{U+00C1}/Á/g; # Á
$string =~ s/\N{U+00C9}/É/g;
$string =~ s/\N{U+00CA}/ê/g;
$string =~ s/\N{U+00EB}/ë/g;
Expand Down Expand Up @@ -14157,6 +14165,7 @@ sub wide_to_html
# $string =~ s/\N{U+0160}/Š/g; # FIXME: also above
# $string =~ s/\N{U+2013}/-/g;

$string =~ s/Á/Á/g;
$string =~ s/å/å/g;
$string =~ s/š/š/g;
$string =~ s/Š/Š/g;
Expand All @@ -14171,6 +14180,7 @@ sub wide_to_html
$string =~ s/ë/ë/g;
$string =~ s/ð/ð/g;
$string =~ s/í/í/g;
$string =~ s/ï/ï/g;
$string =~ s/Î/&Iicrc;/g;
$string =~ s/©/©/g;
$string =~ s/®/®/g;
Expand All @@ -14188,8 +14198,7 @@ sub wide_to_html
$string =~ s/–/–/g;
$string =~ s/—/—/g;
$string =~ s/ñ/ñ/g;
$string =~ s/“/"/g;
$string =~ s/”/"/g;
$string =~ s/[“”«»]/"/g;
$string =~ s/…/.../g;
$string =~ tr/\x80/ /;

Expand Down Expand Up @@ -14277,6 +14286,7 @@ sub wide_to_xml
$string =~ s/‘/'/g;
$string =~ s/\x98/'/g;

$string =~ s/Á/Á/g; # Á
$string =~ s/å/å/g; # å
$string =~ s/č/č/g;
$string =~ s/á/á/g; # á
Expand All @@ -14292,6 +14302,7 @@ sub wide_to_xml
$string =~ s/ß/ß/g; # ß
$string =~ s/í/í/g; # í
$string =~ s/î/î/g;
$string =~ s/ï/ï/g; # ï
$string =~ s/ð/ð/g; # ð
$string =~ s/ü/ü/g;
$string =~ s/š/š/g;
Expand Down Expand Up @@ -14319,11 +14330,14 @@ sub wide_to_xml

$string =~ s/\xc2\xa3/£/g; # £
$string =~ s/\xc2\xa9/©/g;
$string =~ s/\xc2\xab/"/g; # «
$string =~ s/\xc2\xae/®/g;
$string =~ s/\xc3\x81/Á/g; # Á
$string =~ s/\xc3\x8e/Î/g; # Î
$string =~ s/\xc3\xa1/á/g;
$string =~ s/\xc3\xa5/å/g; # å
$string =~ s/\xc3\xa9/é/g;
$string =~ s/\xc3\xaf/ï/g; # ï
$string =~ s/\xc3\xb1/ñ/g; # ntilde
$string =~ s/\xc5\xa1/š/g;
$string =~ s/\xc4\x8d/č/g;
Expand Down Expand Up @@ -14363,7 +14377,9 @@ sub wide_to_xml

$string =~ s/\N{U+00A0}/ /g;
$string =~ s/\N{U+010D}/č/g;
$string =~ s/\N{U+00AB}/"/g; # «
$string =~ s/\N{U+00AE}/®/g; # ®
$string =~ s/\N{U+00C1}/Á/g; # Á
$string =~ s/\N{U+00CE}/Î/g; # Î
$string =~ s/\N{U+00DE}/Þ/g; # Þ
$string =~ s/\N{U+00E4}/ä/g; # ä
Expand All @@ -14379,6 +14395,7 @@ sub wide_to_xml
$string =~ s/\N{U+00E1}/á/g; # á - aacute
$string =~ s/\N{U+00E2}/â/g;
$string =~ s/\N{U+00E8}/è/g; # è
$string =~ s/\N{U+00EF}/ï/g; # ï
$string =~ s/\N{U+00F0}/ð/g; # ð
$string =~ s/\N{U+00F1}/ñ/g; # ñ
$string =~ s/\N{U+00F3}/ó/g; # ó
Expand Down Expand Up @@ -14440,6 +14457,7 @@ sub wide_to_xml
$string =~ s/á/á/g; # á
$string =~ s/â/â/g;
$string =~ s/ä/ä/g; # ä
$string =~ s/Á/Á/g; # Á
$string =~ s/Ö/Ö/g;
$string =~ s/ß/ß/g;
$string =~ s/ç/ç/g;
Expand All @@ -14448,6 +14466,7 @@ sub wide_to_xml
$string =~ s/ê/ê/g;
$string =~ s/ë/ë/g;
$string =~ s/í/í/g;
$string =~ s/ï/ï/g;
$string =~ s/Î/Î/g; # Î
$string =~ s/Þ/Þ/g; # Þ
$string =~ s/ð/ð/g; # ð
Expand All @@ -14456,8 +14475,7 @@ sub wide_to_xml
$string =~ s/ñ/ñ/g;
$string =~ s/ü/ü/g;
$string =~ s/þ/þ/g; # þ
$string =~ s/“/"/g;
$string =~ s/”/"/g;
$string =~ s/[“”«»]/"/g;
$string =~ s/—/-/g;
$string =~ s/…/.../g;
$string =~ tr/\x80/ /;
Expand Down

0 comments on commit b91bf3d

Please sign in to comment.