File Coverage

blib/lib/Biblio/bp/lib/bp-cs-8859-1.pl

Criterion	Covered	Total	%
statement	0	19	0.0
branch	0	6	0.0
condition	0	6	0.0
subroutine	0	2	0.0
pod			n/a
total	0	33	0.0

#
# bibliography package for Perl
#
# ISO-8859-1 character set.
#
# This is really easy since this is the canonical character set, with the
# exception of the escape character.
#
# Dana Jacobsen ([e-mail])
# 18 November 1995

package bp_cs_88591;

######

$bib'charsets{'8859-1', 'i_name'} = '8859-1';

$bib'charsets{'8859-1', 'tocanon'}  = "bp_cs_88591'tocanon";
$bib'charsets{'8859-1', 'fromcanon'} = "bp_cs_88591'fromcanon";

$bib'charsets{'8859-1', 'toesc'}   = "[\000]";  # we'd prefer to never call it
$bib'charsets{'8859-1', 'fromesc'} = "${bib'cs_ext}|${bib'cs_meta}";
######

#####################


sub tocanon {

  # We're eight bit ISO-8859-1, so there isn't anything for us to do.
  # We assume here that the escape character is already done.

  $_[0];
}

######

sub fromcanon {
  local($_, $protect) = @_;
  local($repl, $unicode, $can);

  return $_ unless /$bib'cs_escape/o;

  1 while s/${bib'cs_ext}00(..)/&bib'unicode_to_canon('00'.$1)/ge;

  while (/${bib'cs_ext}(....)/) {
    $unicode = $1;
    $can = &bib'unicode_approx($unicode);
    defined $can  &&  s/$bib'cs_ext$unicode/$can/g  &&  next;
    &bib'gotwarn("Can't convert ".&bib'unicode_name($unicode)." to ISO-8859-1");
    s/${bib'cs_ext}$unicode//g;
  }
  while (/${bib'cs_meta}(....)/) {
    $repl = $1;
    $can = &bib'meta_approx($repl);
    defined $can  &&  s/$bib'cs_meta$repl/$can/g  &&  next;
    &bib'gotwarn("Can't convert ".&bib'meta_name($repl)." to ISO-8859-1");
    s/${bib'cs_meta}$repl//g;
  }

  $_;
}

#######################
# end of package
#######################

1;