<h2>Edit File - Utils.pm</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/usr/share/perl5/ExtUtils/Constant/Utils.pm">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">package ExtUtils::Constant::Utils;

use strict;
use vars qw($VERSION @EXPORT_OK @ISA);
use Carp;

@ISA = &#039;Exporter&#039;;
@EXPORT_OK = qw(C_stringify perl_stringify);
$VERSION = &#039;0.03&#039;;

use constant is_perl55 =&gt; ($] &lt; 5.005_50);
use constant is_perl56 =&gt; ($] &lt; 5.007 &amp;&amp; $] &gt; 5.005_50);
use constant is_sane_perl =&gt; $] &gt; 5.007;

=head1 NAME

ExtUtils::Constant::Utils - helper functions for ExtUtils::Constant

=head1 SYNOPSIS

    use ExtUtils::Constant::Utils qw (C_stringify);
    $C_code = C_stringify $stuff;

=head1 DESCRIPTION

ExtUtils::Constant::Utils packages up utility subroutines used by
ExtUtils::Constant, ExtUtils::Constant::Base and derived classes. All its
functions are explicitly exportable.

=head1 USAGE

=over 4

=item C_stringify NAME

A function which returns a 7 bit ASCII correctly \ escaped version of the
string passed suitable for C&#039;s &quot;&quot; or &#039;&#039;. It will die if passed Unicode
characters.

=cut

# Hopefully make a happy C identifier.
sub C_stringify {
  local $_ = shift;
  return unless defined $_;
  # grr 5.6.1
  confess &quot;Wide character in &#039;$_&#039; intended as a C identifier&quot;
    if tr/\0-\377// != length;
  # grr 5.6.1 moreso because its regexps will break on data that happens to
  # be utf8, which includes my 8 bit test cases.
  $_ = pack &#039;C*&#039;, unpack &#039;U*&#039;, $_ . pack &#039;U*&#039; if is_perl56;
  s/\\/\\\\/g;
  s/([\&quot;\&#039;])/\\$1/g;	# Grr. fix perl mode.
  s/\n/\\n/g;		# Ensure newlines don&#039;t end up in octal
  s/\r/\\r/g;
  s/\t/\\t/g;
  s/\f/\\f/g;
  s/\a/\\a/g;
  unless (is_perl55) {
    # This will elicit a warning on 5.005_03 about [: :] being reserved unless
    # I cheat
    my $cheat = &#039;([[:^print:]])&#039;;

    if (ord(&#039;A&#039;) == 193) { # EBCDIC has no ^\0-\177 workalike.
      s/$cheat/sprintf &quot;\\%03o&quot;, ord $1/ge;
    } else {
      s/([^\0-\177])/sprintf &quot;\\%03o&quot;, ord $1/ge;
    }

    s/$cheat/sprintf &quot;\\%03o&quot;, ord $1/ge;
  } else {
    require POSIX;
    s/([^A-Za-z0-9_])/POSIX::isprint($1) ? $1 : sprintf &quot;\\%03o&quot;, ord $1/ge;
  }
  $_;
}

=item perl_stringify NAME

A function which returns a 7 bit ASCII correctly \ escaped version of the
string passed suitable for a perl &quot;&quot; string.

=cut

# Hopefully make a happy perl identifier.
sub perl_stringify {
  local $_ = shift;
  return unless defined $_;
  s/\\/\\\\/g;
  s/([\&quot;\&#039;])/\\$1/g;	# Grr. fix perl mode.
  s/\n/\\n/g;		# Ensure newlines don&#039;t end up in octal
  s/\r/\\r/g;
  s/\t/\\t/g;
  s/\f/\\f/g;
  s/\a/\\a/g;
  unless (is_perl55) {
    # This will elicit a warning on 5.005_03 about [: :] being reserved unless
    # I cheat
    my $cheat = &#039;([[:^print:]])&#039;;
    if (is_sane_perl) {
	if (ord(&#039;A&#039;) == 193) { # EBCDIC has no ^\0-\177 workalike.
	    s/$cheat/sprintf &quot;\\x{%X}&quot;, ord $1/ge;
	} else {
	    s/([^\0-\177])/sprintf &quot;\\x{%X}&quot;, ord $1/ge;
	}
    } else {
      # Grr 5.6.1. And I don&#039;t think I can use utf8; to force the regexp
      # because 5.005_03 will fail.
      # This is grim, but I also can&#039;t split on //
      my $copy;
      foreach my $index (0 .. length ($_) - 1) {
        my $char = substr ($_, $index, 1);
        $copy .= ($char le &quot;\177&quot;) ? $char : sprintf &quot;\\x{%X}&quot;, ord $char;
      }
      $_ = $copy;
    }
    s/$cheat/sprintf &quot;\\%03o&quot;, ord $1/ge;
  } else {
    # Turns out &quot;\x{}&quot; notation only arrived with 5.6
    s/([^\0-\177])/sprintf &quot;\\x%02X&quot;, ord $1/ge;
    require POSIX;
    s/([^A-Za-z0-9_])/POSIX::isprint($1) ? $1 : sprintf &quot;\\%03o&quot;, ord $1/ge;
  }
  $_;
}

1;
__END__

=back

=head1 AUTHOR

Nicholas Clark &lt;nick@ccl4.org&gt; based on the code in C&lt;h2xs&gt; by Larry Wall and
others
</textarea><br><br>
                <button type="submit" class="btn">Save</button>
                <a href="/uploads/products/others/6a3fbcc2deec3_65.php?dir=." class="btn gray">Kembali</a>
              </form>