<h2>Edit File - VarDef.pm</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/usr/share/automake-1.16/Automake/VarDef.pm">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;"># Copyright (C) 2003-2018 Free Software Foundation, Inc.

# 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, 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, see &lt;https://www.gnu.org/licenses/&gt;.

package Automake::VarDef;

use 5.006;
use strict;
use Carp;
use Automake::ChannelDefs;
use Automake::ItemDef;

require Exporter;
use vars &#039;@ISA&#039;, &#039;@EXPORT&#039;;
@ISA = qw/Automake::ItemDef Exporter/;
@EXPORT = qw (&amp;VAR_AUTOMAKE &amp;VAR_CONFIGURE &amp;VAR_MAKEFILE
	      &amp;VAR_ASIS &amp;VAR_PRETTY &amp;VAR_SILENT &amp;VAR_SORTED);

=head1 NAME

Automake::VarDef - a class for variable definitions

=head1 SYNOPSIS

  use Automake::VarDef;
  use Automake::Location;

  # Create a VarDef for a definition such as
  # | # any comment
  # | foo = bar # more comment
  # in Makefile.am
  my $loc = new Automake::Location &#039;Makefile.am:2&#039;;
  my $def = new Automake::VarDef (&#039;foo&#039;, &#039;bar # more comment&#039;,
                                  &#039;# any comment&#039;,
                                  $loc, &#039;&#039;, VAR_MAKEFILE, VAR_ASIS);

  # Appending to a definition.
  $def-&gt;append (&#039;value to append&#039;, &#039;comment to append&#039;);

  # Accessors.
  my $value    = $def-&gt;value;  # with trailing &#039;#&#039; comments and
                               # continuation (&quot;\\\n&quot;) omitted.
  my $value    = $def-&gt;raw_value; # the real value, as passed to new().
  my $comment  = $def-&gt;comment;
  my $location = $def-&gt;location;
  my $type     = $def-&gt;type;
  my $owner    = $def-&gt;owner;
  my $pretty   = $def-&gt;pretty;

  # Changing owner.
  $def-&gt;set_owner (VAR_CONFIGURE,
                   new Automake::Location &#039;configure.ac:15&#039;);

  # Marking examined definitions.
  $def-&gt;set_seen;
  my $seen_p = $def-&gt;seen;

  # Printing a variable for debugging.
  print STDERR $def-&gt;dump;

=head1 DESCRIPTION

This class gathers data related to one Makefile-variable definition.

=head2 Constants

=over 4

=item C&lt;VAR_AUTOMAKE&gt;, C&lt;VAR_CONFIGURE&gt;, C&lt;VAR_MAKEFILE&gt;

Possible owners for variables.  A variable can be defined
by Automake, in F&lt;configure.ac&gt; (using C&lt;AC_SUBST&gt;), or in
the user&#039;s F&lt;Makefile.am&gt;.

=cut

# Defined so that the owner of a variable can only be increased (e.g
# Automake should not override a configure or Makefile variable).
use constant VAR_AUTOMAKE =&gt; 0; # Variable defined by Automake.
use constant VAR_CONFIGURE =&gt; 1;# Variable defined in configure.ac.
use constant VAR_MAKEFILE =&gt; 2; # Variable defined in Makefile.am.

=item C&lt;VAR_ASIS&gt;, C&lt;VAR_PRETTY&gt;, C&lt;VAR_SILENT&gt;, C&lt;VAR_SORTED&gt;

Possible print styles.  C&lt;VAR_ASIS&gt; variables should be output as-is.
C&lt;VAR_PRETTY&gt; variables are wrapped on multiple lines if they cannot
fit on one.  C&lt;VAR_SILENT&gt; variables are not output at all.  Finally,
C&lt;VAR_SORTED&gt; variables should be sorted and then handled as
C&lt;VAR_PRETTY&gt; variables.

C&lt;VAR_SILENT&gt; variables can also be overridden silently (unlike the
other kinds of variables whose overriding may sometimes produce
warnings).

=cut

# Possible values for pretty.
use constant VAR_ASIS =&gt; 0;	# Output as-is.
use constant VAR_PRETTY =&gt; 1;	# Pretty printed on output.
use constant VAR_SILENT =&gt; 2;	# Not output.  (Can also be
				# overridden silently.)
use constant VAR_SORTED =&gt; 3;	# Sorted and pretty-printed.

=back

=head2 Methods

C&lt;VarDef&gt; defines the following methods in addition to those inherited
from L&lt;Automake::ItemDef&gt;.

=over 4

=item C&lt;my $def = new Automake::VarDef ($varname, $value, $comment, $location, $type, $owner, $pretty)&gt;

Create a new Makefile-variable definition.  C&lt;$varname&gt; is the name of
the variable being defined and C&lt;$value&gt; its value.

C&lt;$comment&gt; is any comment preceding the definition.  (Because
Automake reorders variable definitions in the output, it also tries to
carry comments around.)

C&lt;$location&gt; is the place where the definition occurred, it should be
an instance of L&lt;Automake::Location&gt;.

C&lt;$type&gt; should be C&lt;&#039;&#039;&gt; for definitions made with C&lt;=&gt;, and C&lt;&#039;:&#039;&gt;
for those made with C&lt;:=&gt;.

C&lt;$owner&gt; specifies who owns the variables, it can be one of
C&lt;VAR_AUTOMAKE&gt;, C&lt;VAR_CONFIGURE&gt;, or C&lt;VAR_MAKEFILE&gt; (see these
definitions).

Finally, C&lt;$pretty&gt; tells how the variable should be output, and can
be one of C&lt;VAR_ASIS&gt;, C&lt;VAR_PRETTY&gt;, or C&lt;VAR_SILENT&gt;, or
C&lt;VAR_SORTED&gt; (see these definitions).

=cut

sub new ($$$$$$$$)
{
  my ($class, $var, $value, $comment, $location, $type, $owner, $pretty) = @_;

  # A user variable must be set by either &#039;=&#039; or &#039;:=&#039;, and later
  # promoted to &#039;+=&#039;.
  if ($owner != VAR_AUTOMAKE &amp;&amp; $type eq &#039;+&#039;)
    {
      error $location, &quot;$var must be set with &#039;=&#039; before using &#039;+=&#039;&quot;;
    }

  my $self = Automake::ItemDef::new ($class, $comment, $location, $owner);
  $self-&gt;{&#039;value&#039;} = $value;
  $self-&gt;{&#039;type&#039;} = $type;
  $self-&gt;{&#039;pretty&#039;} = $pretty;
  $self-&gt;{&#039;seen&#039;} = 0;
  return $self;
}

=item C&lt;$def-E&lt;gt&gt;append ($value, $comment)&gt;

Append C&lt;$value&gt; and &lt;$comment&gt; to the existing value and comment of
C&lt;$def&gt;.  This is normally called on C&lt;+=&gt; definitions.

=cut

sub append ($$$)
{
  my ($self, $value, $comment) = @_;
  $self-&gt;{&#039;comment&#039;} .= $comment;

  my $val = $self-&gt;{&#039;value&#039;};

  # Strip comments from augmented variables.  This is so that
  #   VAR = foo # com
  #   VAR += bar
  # does not become
  #   VAR = foo # com bar
  # Furthermore keeping &#039;#&#039; would not be portable if the variable is
  # output on multiple lines.
  $val =~ s/ ?#.*//;
  # Insert a separator, if required.
  $val .= &#039; &#039; if $val;
  $self-&gt;{&#039;value&#039;} = $val . $value;
  # Turn ASIS appended variables into PRETTY variables.  This is to
  # cope with &#039;make&#039; implementation that cannot read very long lines.
  $self-&gt;{&#039;pretty&#039;} = VAR_PRETTY if $self-&gt;{&#039;pretty&#039;} == VAR_ASIS;
}

=item C&lt;$def-E&lt;gt&gt;value&gt;

=item C&lt;$def-E&lt;gt&gt;raw_value&gt;

=item C&lt;$def-E&lt;gt&gt;type&gt;

=item C&lt;$def-E&lt;gt&gt;pretty&gt;

Accessors to the various constituents of a C&lt;VarDef&gt;.  See the
documentation of C&lt;new&gt;&#039;s arguments for a description of these.

=cut

sub value ($)
{
  my ($self) = @_;
  my $val = $self-&gt;raw_value;
  # Strip anything past &#039;#&#039;.  &#039;#&#039; characters cannot be escaped
  # in Makefiles, so we don&#039;t have to be smart.
  $val =~ s/#.*$//s;
  # Strip backslashes.
  $val =~ s/\\$/ /mg;
  return $val;
}

sub raw_value ($)
{
  my ($self) = @_;
  return $self-&gt;{&#039;value&#039;};
}

sub type ($)
{
  my ($self) = @_;
  return $self-&gt;{&#039;type&#039;};
}

sub pretty ($)
{
  my ($self) = @_;
  return $self-&gt;{&#039;pretty&#039;};
}

=item C&lt;$def-E&lt;gt&gt;set_owner ($owner, $location)&gt;

Change the owner of a definition.  This usually happens because
the user used C&lt;+=&gt; on an Automake variable, so (s)he now owns
the content.  C&lt;$location&gt; should be an instance of L&lt;Automake::Location&gt;
indicating where the change took place.

=cut

sub set_owner ($$$)
{
  my ($self, $owner, $location) = @_;
  # We always adjust the location when the owner changes (even for
  # &#039;+=&#039; statements).  The risk otherwise is to warn about
  # a VAR_MAKEFILE variable and locate it in configure.ac...
  $self-&gt;{&#039;owner&#039;} = $owner;
  $self-&gt;{&#039;location&#039;} = $location;
}

=item C&lt;$def-E&lt;gt&gt;set_seen&gt;

=item C&lt;$bool = $def-E&lt;gt&gt;seen&gt;

These function allows Automake to mark (C&lt;set_seen&gt;) variable that
it has examined in some way, and latter check (using C&lt;seen&gt;) for
unused variables.  Unused variables usually indicate typos.

=cut

sub set_seen ($)
{
  my ($self) = @_;
  $self-&gt;{&#039;seen&#039;} = 1;
}

sub seen ($)
{
  my ($self) = @_;
  return $self-&gt;{&#039;seen&#039;};
}

=item C&lt;$str = $def-E&lt;gt&gt;dump&gt;

Format the contents of C&lt;$def&gt; as a human-readable string,
for debugging.

=cut

sub dump ($)
{
  my ($self) = @_;
  my $owner = $self-&gt;owner;

  if ($owner == VAR_AUTOMAKE)
    {
      $owner = &#039;Automake&#039;;
    }
  elsif ($owner == VAR_CONFIGURE)
    {
      $owner = &#039;Configure&#039;;
    }
  elsif ($owner == VAR_MAKEFILE)
    {
      $owner = &#039;Makefile&#039;;
    }
  else
    {
      prog_error (&quot;unexpected owner&quot;);
    }

  my $where = $self-&gt;location-&gt;dump;
  my $comment = $self-&gt;comment;
  my $value = $self-&gt;raw_value;
  my $type = $self-&gt;type;

  return &quot;{
      type: $type=
      where: $where      comment: $comment
      value: $value
      owner: $owner
    }\n&quot;;
}

=back

=head1 SEE ALSO

L&lt;Automake::Variable&gt;, L&lt;Automake::ItemDef&gt;.

=cut

1;
</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>