Initial Commit
This commit is contained in:
Riley Schneider
77
database/perl/vendor/lib/Perl/Tidy/VerticalAligner/Alignment.pm
vendored
Normal file
77
database/perl/vendor/lib/Perl/Tidy/VerticalAligner/Alignment.pm
vendored
Normal file
@@ -0,0 +1,77 @@
|
||||
#####################################################################
|
||||
#
|
||||
# the Perl::Tidy::VerticalAligner::Alignment class holds information
|
||||
# on a single column being aligned
|
||||
#
|
||||
#####################################################################
|
||||
package Perl::Tidy::VerticalAligner::Alignment;
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
{ #<<< A non-indenting brace
|
||||
|
||||
our $VERSION = '20210111';
|
||||
|
||||
# _column_ # the current column number
|
||||
# _saved_column_ # a place for temporary storage
|
||||
my $i = 0;
|
||||
use constant {
|
||||
_column_ => $i++,
|
||||
_saved_column_ => $i++,
|
||||
};
|
||||
|
||||
sub new {
|
||||
my ( $class, $rarg ) = @_;
|
||||
my $self = bless [], $class;
|
||||
$self->[_column_] = $rarg->{column};
|
||||
$self->[_saved_column_] = $rarg->{saved_column};
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub AUTOLOAD {
|
||||
|
||||
# Catch any undefined sub calls so that we are sure to get
|
||||
# some diagnostic information. This sub should never be called
|
||||
# except for a programming error.
|
||||
our $AUTOLOAD;
|
||||
return if ( $AUTOLOAD =~ /\bDESTROY$/ );
|
||||
my ( $pkg, $fname, $lno ) = caller();
|
||||
my $my_package = __PACKAGE__;
|
||||
print STDERR <<EOM;
|
||||
======================================================================
|
||||
Error detected in package '$my_package', version $VERSION
|
||||
Received unexpected AUTOLOAD call for sub '$AUTOLOAD'
|
||||
Called from package: '$pkg'
|
||||
Called from File '$fname' at line '$lno'
|
||||
This error is probably due to a recent programming change
|
||||
======================================================================
|
||||
EOM
|
||||
exit 1;
|
||||
}
|
||||
|
||||
sub DESTROY {
|
||||
|
||||
# required to avoid call to AUTOLOAD in some versions of perl
|
||||
}
|
||||
|
||||
sub get_column {
|
||||
return $_[0]->[_column_];
|
||||
}
|
||||
|
||||
sub increment_column {
|
||||
$_[0]->[_column_] += $_[1];
|
||||
return;
|
||||
}
|
||||
|
||||
sub save_column {
|
||||
$_[0]->[_saved_column_] = $_[0]->[_column_];
|
||||
return;
|
||||
}
|
||||
|
||||
sub restore_column {
|
||||
$_[0]->[_column_] = $_[0]->[_saved_column_];
|
||||
return;
|
||||
}
|
||||
} ## end of package VerticalAligner::Alignment
|
||||
1;
|
||||
|
||||
249
database/perl/vendor/lib/Perl/Tidy/VerticalAligner/Line.pm
vendored
Normal file
249
database/perl/vendor/lib/Perl/Tidy/VerticalAligner/Line.pm
vendored
Normal file
@@ -0,0 +1,249 @@
|
||||
#####################################################################
|
||||
#
|
||||
# the Perl::Tidy::VerticalAligner::Line class supplies an object to
|
||||
# contain a single output line
|
||||
#
|
||||
#####################################################################
|
||||
|
||||
package Perl::Tidy::VerticalAligner::Line;
|
||||
use strict;
|
||||
use warnings;
|
||||
our $VERSION = '20210111';
|
||||
|
||||
BEGIN {
|
||||
my $i = 0;
|
||||
use constant {
|
||||
_jmax_ => $i++,
|
||||
_rtokens_ => $i++,
|
||||
_rfields_ => $i++,
|
||||
_rfield_lengths_ => $i++,
|
||||
_rpatterns_ => $i++,
|
||||
_indentation_ => $i++,
|
||||
_leading_space_count_ => $i++,
|
||||
_outdent_long_lines_ => $i++,
|
||||
_list_seqno_ => $i++,
|
||||
_list_type_ => $i++,
|
||||
_is_hanging_side_comment_ => $i++,
|
||||
_ralignments_ => $i++,
|
||||
_maximum_line_length_ => $i++,
|
||||
_rvertical_tightness_flags_ => $i++,
|
||||
_is_terminal_ternary_ => $i++,
|
||||
_j_terminal_match_ => $i++,
|
||||
_end_group_ => $i++,
|
||||
_Kend_ => $i++,
|
||||
_ci_level_ => $i++,
|
||||
_imax_pair_ => $i++,
|
||||
};
|
||||
}
|
||||
|
||||
sub AUTOLOAD {
|
||||
|
||||
# Catch any undefined sub calls so that we are sure to get
|
||||
# some diagnostic information. This sub should never be called
|
||||
# except for a programming error.
|
||||
our $AUTOLOAD;
|
||||
return if ( $AUTOLOAD =~ /\bDESTROY$/ );
|
||||
my ( $pkg, $fname, $lno ) = caller();
|
||||
my $my_package = __PACKAGE__;
|
||||
print STDERR <<EOM;
|
||||
======================================================================
|
||||
Error detected in package '$my_package', version $VERSION
|
||||
Received unexpected AUTOLOAD call for sub '$AUTOLOAD'
|
||||
Called from package: '$pkg'
|
||||
Called from File '$fname' at line '$lno'
|
||||
This error is probably due to a recent programming change
|
||||
======================================================================
|
||||
EOM
|
||||
exit 1;
|
||||
}
|
||||
|
||||
{
|
||||
|
||||
##use Carp;
|
||||
|
||||
# Constructor may be called as a class method
|
||||
sub new {
|
||||
my ( $class, $ri ) = @_;
|
||||
my $self = bless [], $class;
|
||||
|
||||
$self->[_jmax_] = $ri->{jmax};
|
||||
$self->[_rtokens_] = $ri->{rtokens};
|
||||
$self->[_rfields_] = $ri->{rfields};
|
||||
$self->[_rfield_lengths_] = $ri->{rfield_lengths};
|
||||
$self->[_rpatterns_] = $ri->{rpatterns};
|
||||
$self->[_indentation_] = $ri->{indentation};
|
||||
$self->[_leading_space_count_] = $ri->{leading_space_count};
|
||||
$self->[_outdent_long_lines_] = $ri->{outdent_long_lines};
|
||||
$self->[_list_type_] = $ri->{list_type};
|
||||
$self->[_list_seqno_] = $ri->{list_seqno};
|
||||
$self->[_is_hanging_side_comment_] = $ri->{is_hanging_side_comment};
|
||||
$self->[_maximum_line_length_] = $ri->{maximum_line_length};
|
||||
$self->[_rvertical_tightness_flags_] = $ri->{rvertical_tightness_flags};
|
||||
$self->[_is_terminal_ternary_] = $ri->{is_terminal_ternary};
|
||||
$self->[_j_terminal_match_] = $ri->{j_terminal_match};
|
||||
$self->[_end_group_] = $ri->{end_group};
|
||||
$self->[_Kend_] = $ri->{Kend};
|
||||
$self->[_ci_level_] = $ri->{ci_level};
|
||||
$self->[_imax_pair_] = $ri->{imax_pair};
|
||||
|
||||
$self->[_ralignments_] = [];
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub get_jmax { return $_[0]->[_jmax_] }
|
||||
|
||||
sub get_rtokens { return $_[0]->[_rtokens_] }
|
||||
sub get_rfields { return $_[0]->[_rfields_] }
|
||||
sub get_rfield_lengths { return $_[0]->[_rfield_lengths_] }
|
||||
sub get_rpatterns { return $_[0]->[_rpatterns_] }
|
||||
sub get_indentation { return $_[0]->[_indentation_] }
|
||||
sub get_Kend { return $_[0]->[_Kend_] }
|
||||
sub get_ci_level { return $_[0]->[_ci_level_] }
|
||||
sub get_list_seqno { return $_[0]->[_list_seqno_] }
|
||||
|
||||
sub get_imax_pair { return $_[0]->[_imax_pair_] }
|
||||
|
||||
sub set_imax_pair {
|
||||
my ( $self, $val ) = @_;
|
||||
$self->[_imax_pair_] = $val;
|
||||
return;
|
||||
}
|
||||
|
||||
sub get_j_terminal_match {
|
||||
return $_[0]->[_j_terminal_match_];
|
||||
}
|
||||
|
||||
sub set_j_terminal_match {
|
||||
my ( $self, $val ) = @_;
|
||||
$self->[_j_terminal_match_] = $val;
|
||||
return;
|
||||
}
|
||||
|
||||
sub get_is_terminal_ternary {
|
||||
return $_[0]->[_is_terminal_ternary_];
|
||||
}
|
||||
|
||||
sub get_leading_space_count {
|
||||
return $_[0]->[_leading_space_count_];
|
||||
}
|
||||
|
||||
sub get_outdent_long_lines {
|
||||
return $_[0]->[_outdent_long_lines_];
|
||||
}
|
||||
sub get_list_type { return $_[0]->[_list_type_] }
|
||||
|
||||
sub get_is_hanging_side_comment {
|
||||
return $_[0]->[_is_hanging_side_comment_];
|
||||
}
|
||||
|
||||
sub get_rvertical_tightness_flags {
|
||||
return $_[0]->[_rvertical_tightness_flags_];
|
||||
}
|
||||
|
||||
sub get_alignment {
|
||||
my ( $self, $j ) = @_;
|
||||
return $self->[_ralignments_]->[$j];
|
||||
}
|
||||
sub get_alignments { return @{ $_[0]->[_ralignments_] } }
|
||||
|
||||
sub get_column {
|
||||
##my ( $self, $j ) = @_;
|
||||
my $alignment = $_[0]->[_ralignments_]->[ $_[1] ];
|
||||
return unless defined($alignment);
|
||||
return $alignment->get_column();
|
||||
}
|
||||
|
||||
sub set_alignments {
|
||||
my ( $self, @args ) = @_;
|
||||
@{ $self->[_ralignments_] } = @args;
|
||||
return;
|
||||
}
|
||||
|
||||
sub current_field_width {
|
||||
my ( $self, $j ) = @_;
|
||||
my $col_j = 0;
|
||||
my $col_jm = 0;
|
||||
|
||||
my $alignment_j = $self->[_ralignments_]->[$j];
|
||||
$col_j = $alignment_j->get_column() if defined($alignment_j);
|
||||
|
||||
if ( $j > 0 ) {
|
||||
my $alignment_jm = $self->[_ralignments_]->[ $j - 1 ];
|
||||
$col_jm = $alignment_jm->get_column() if defined($alignment_jm);
|
||||
}
|
||||
return $col_j - $col_jm;
|
||||
}
|
||||
|
||||
sub increase_field_width {
|
||||
|
||||
my ( $self, $j, $pad ) = @_;
|
||||
my $jmax = $self->[_jmax_];
|
||||
foreach ( $j .. $jmax ) {
|
||||
my $alignment = $self->[_ralignments_]->[$_];
|
||||
if ( defined($alignment) ) {
|
||||
$alignment->increment_column($pad);
|
||||
}
|
||||
}
|
||||
return;
|
||||
}
|
||||
|
||||
sub get_available_space_on_right {
|
||||
my $jmax = $_[0]->[_jmax_];
|
||||
return $_[0]->[_maximum_line_length_] - $_[0]->get_column($jmax);
|
||||
}
|
||||
|
||||
sub set_jmax { my ( $self, $val ) = @_; $self->[_jmax_] = $val; return }
|
||||
|
||||
sub set_rtokens {
|
||||
my ( $self, $val ) = @_;
|
||||
$self->[_rtokens_] = $val;
|
||||
return;
|
||||
}
|
||||
|
||||
sub set_rfields {
|
||||
my ( $self, $val ) = @_;
|
||||
$self->[_rfields_] = $val;
|
||||
return;
|
||||
}
|
||||
|
||||
sub set_rfield_lengths {
|
||||
my ( $self, $val ) = @_;
|
||||
$self->[_rfield_lengths_] = $val;
|
||||
return;
|
||||
}
|
||||
|
||||
sub set_rpatterns {
|
||||
my ( $self, $val ) = @_;
|
||||
$self->[_rpatterns_] = $val;
|
||||
return;
|
||||
}
|
||||
|
||||
sub set_list_type {
|
||||
my ( $self, $val ) = @_;
|
||||
$self->[_list_type_] = $val;
|
||||
return;
|
||||
}
|
||||
|
||||
sub set_is_hanging_side_comment {
|
||||
my ( $self, $val ) = @_;
|
||||
$self->[_is_hanging_side_comment_] = $val;
|
||||
return;
|
||||
}
|
||||
|
||||
sub set_alignment {
|
||||
my ( $self, $j, $val ) = @_;
|
||||
$self->[_ralignments_]->[$j] = $val;
|
||||
return;
|
||||
}
|
||||
|
||||
sub get_end_group { return $_[0]->[_end_group_] }
|
||||
|
||||
sub set_end_group {
|
||||
my ( $self, $val ) = @_;
|
||||
$self->[_end_group_] = $val;
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
Reference in New Issue
Block a user