1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
|
package LatexIndent::Command;
# 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 3 of the License, 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.
#
# See http://www.gnu.org/licenses/.
#
# Chris Hughes, 2017
#
# For all communication, please visit: https://github.com/cmhughes/latexindent.pl
use strict;
use warnings;
use LatexIndent::Tokens qw/%tokens/;
use LatexIndent::TrailingComments qw/$trailingCommentRegExp/;
use LatexIndent::Switches qw/$is_t_switch_active $is_tt_switch_active/;
use LatexIndent::GetYamlSettings qw/%masterSettings/;
use LatexIndent::LogFile qw/$logger/;
use Data::Dumper;
use Exporter qw/import/;
our @ISA = "LatexIndent::Document"; # class inheritance, Programming Perl, pg 321
our @EXPORT_OK = qw/construct_command_regexp $commandRegExp $commandRegExpTrailingComment $optAndMandAndRoundBracketsRegExpLineBreaks/;
our $commandCounter;
our $commandRegExp;
our $commandRegExpTrailingComment;
our $optAndMandAndRoundBracketsRegExp;
our $optAndMandAndRoundBracketsRegExpLineBreaks;
# store the regular expresssion for matching and replacing
sub construct_command_regexp{
my $self = shift;
$optAndMandAndRoundBracketsRegExp = $self->get_arguments_regexp(
roundBrackets=>${$masterSettings{commandCodeBlocks}}{roundParenthesesAllowed},
stringBetweenArguments=>1);
$optAndMandAndRoundBracketsRegExpLineBreaks = $self->get_arguments_regexp(
roundBrackets=>${$masterSettings{commandCodeBlocks}}{roundParenthesesAllowed},
mode=>"lineBreaksAtEnd",
stringBetweenArguments=>1);
# put together a list of the special command names (this was mostly motivated by the \@ifnextchar[ issue)
my $commandNameSpecialRegExp = q();
if(ref(${$masterSettings{commandCodeBlocks}}{commandNameSpecial}) eq "ARRAY"){
my @commandNameSpecial = @{${$masterSettings{commandCodeBlocks}}{commandNameSpecial}};
$logger->trace("*Looping through array for commandCodeBlocks->commandNameSpecial") if $is_t_switch_active ;
# note that the zero'th element in this array contains the amalgamate switch, which we don't want!
foreach (@commandNameSpecial[1 .. $#commandNameSpecial]) {
$logger->trace("$_") if $is_t_switch_active ;
$commandNameSpecialRegExp .= ($commandNameSpecialRegExp eq ""?q():"|").$_;
}
# turn the above into a regexp
$commandNameSpecialRegExp = qr/$commandNameSpecialRegExp/;
}
# details to log file
$logger->trace("*The special command names regexp is: $commandNameSpecialRegExp (see commandNameSpecial)") if $is_t_switch_active;
# construct the command regexp
$commandRegExp = qr/
(\\|\\@|@)
(
[+a-zA-Z@\*0-9_\:]+?|$commandNameSpecialRegExp # lowercase|uppercase letters, @, *, numbers
)
(\h*)
(\R*)?
($optAndMandAndRoundBracketsRegExp)
(\R)?
/sx;
# command regexp with trailing comment
$commandRegExpTrailingComment = qr/$commandRegExp(\h*)((?:$trailingCommentRegExp\h*)*)/;
}
sub tasks_particular_to_each_object{
my $self = shift;
# check for adding/removing linebreaks before =
$self->check_linebreaks_before_equals;
# search for arguments
$self->find_opt_mand_arguments;
# situation: ${${$self}{linebreaksAtEnd}}{end} == 1, and the argument container object
# still contains a linebreak at the end; in this case, we need to remove the linebreak from
# the container object
if(${${$self}{linebreaksAtEnd}}{end} == 1
and ${${${$self}{children}}[0]}{body} =~ m/\R$/s
and !${$self}{endImmediatelyFollowedByComment}){
$logger->trace("Removing linebreak from argument container of ${$self}{name}") if $is_t_switch_active;
${${${$self}{children}}[0]}{body} =~ s/\R$//s;
${${${${$self}{children}}[0]}{linebreaksAtEnd}}{body} = 0;
}
# situation: ${${$self}{linebreaksAtEnd}}{end} == 1 and the last argument specifies
# EndFinishesWithLineBreaks = 0 (see test-cases/commands/just-one-command-mod10.tex)
if(${${$self}{linebreaksAtEnd}}{end} == 1
and defined ${${${${$self}{children}}[0]}{children}[-1]}{EndFinishesWithLineBreak}
and ${${${${$self}{children}}[0]}{children}[-1]}{EndFinishesWithLineBreak} == -1
){
$logger->trace("Switching linebreaksAtEnd{end} to be 0 in command ${$self}{name} as last argument specifies EndFinishesWithLineBreak == 0") if $is_t_switch_active;
${${$self}{linebreaksAtEnd}}{end} = 0;
${$self}{EndFinishesWithLineBreak} = -1;
}
# if the last argument finishes with a linebreak, it won't get interpreted at
# the right time (see test-cases/commands/commands-one-line-nested-simple-mod1.tex for example)
# so this little bit fixes it
if(${${${${${$self}{children}}[0]}{children}[-1]}{linebreaksAtEnd}}{end} and ${${$self}{linebreaksAtEnd}}{end} == 0
and defined ${${${${$self}{children}}[0]}{children}[-1]}{EndFinishesWithLineBreak}
and ${${${${$self}{children}}[0]}{children}[-1]}{EndFinishesWithLineBreak} >= 1
and !${$self}{endImmediatelyFollowedByComment}){
# update the Command object
$logger->trace("Adjusting linebreaksAtEnd in command ${$self}{name}") if $is_t_switch_active;
${${$self}{linebreaksAtEnd}}{end} = ${${${${${$self}{children}}[0]}{children}[-1]}{linebreaksAtEnd}}{end};
${$self}{replacementText} .= "\n";
# if the last argument has EndFinishesWithLineBreak == 3
if (${${${${$self}{children}}[0]}{children}[-1]}{EndFinishesWithLineBreak} == 3 ){
my $EndStringLogFile = ${${${${$self}{children}}[0]}{children}[-1]}{aliases}{EndFinishesWithLineBreak}||"EndFinishesWithLineBreak";
$logger->trace("Adding another blank line to replacement text for ${$self}{name} as last argument has $EndStringLogFile == 3 ") if $is_t_switch_active;
${$self}{replacementText} .= (${$masterSettings{modifyLineBreaks}}{preserveBlankLines}?$tokens{blanklines}:"\n")."\n";
}
# update the argument object
$logger->trace("Adjusting argument object in command, ${$self}{name}") if $is_t_switch_active;
${${${${$self}{children}}[0]}{linebreaksAtEnd}}{body} = 0;
${${${$self}{children}}[0]}{body} =~ s/\R$//s;
# update the last mandatory/optional argument
$logger->trace("Adjusting last argument in command, ${$self}{name}") if $is_t_switch_active;
${${${${${$self}{children}}[0]}{children}[-1]}{linebreaksAtEnd}}{end} = 0;
${${${${$self}{children}}[0]}{children}[-1]}{EndFinishesWithLineBreak} = -1;
${${${${$self}{children}}[0]}{children}[-1]}{replacementText} =~ s/\R$//s;
# output to log file
$logger->trace(Dumper(${${${$self}{children}}[0]}{children}[-1])) if $is_tt_switch_active;
}
# situation: ${${$self}{linebreaksAtEnd}}{end} == 1 and the last argument has added
# a line break, which can result in a bogus blank line (see test-cases/commands/just-one-command.tex with mand-args-mod1.yaml)
if(${${$self}{linebreaksAtEnd}}{end} == 1
and defined ${${${${$self}{children}}[0]}{children}[-1]}{EndFinishesWithLineBreak}
and ${${${${$self}{children}}[0]}{children}[-1]}{EndFinishesWithLineBreak} >= 1
and ${${${${$self}{children}}[0]}{children}[-1]}{replacementText}=~m/\R$/s
and !${$self}{endImmediatelyFollowedByComment}){
# last argument adjustment
$logger->trace("Adjusting last argument in command, ${$self}{name} to avoid double line break") if $is_t_switch_active;
${${${${$self}{children}}[0]}{children}[-1]}{replacementText}=~s/\R$//s;
${${${${${$self}{children}}[0]}{children}[-1]}{linebreaksAtEnd}}{end} = 0;
# argument object adjustment
$logger->trace("Adjusting argument object in command, ${$self}{name} to avoid double line break") if $is_t_switch_active;
${${${${$self}{children}}[0]}{linebreaksAtEnd}}{body} = 0;
${${${$self}{children}}[0]}{body}=~s/\R$//s;
}
# the arguments body might finish with horizontal space, in which case, we need to transfer this
# to the parent object replacement text.
#
# see ../test-cases/texexchange/5461.tex which was the first example to demonstrate the need for this
if(!${${${$self}{children}}[0]}{endImmediatelyFollowedByComment} and ${${${$self}{children}}[0]}{body} =~ m/\h*$/ and ${$self}{replacementText} !~ m/\R$/){
$logger->trace("${$self}{name}: trailling horizontal space found in arguments -- removing it from arguments, adding to replacement text") if $is_t_switch_active;
${${${$self}{children}}[0]}{body} =~ s/(\h*)$//s;
${$self}{replacementText} .= "$1";
}
# search for ifElseFi blocks
$self->find_ifelsefi;
# search for special begin/end
$self->find_special;
}
sub check_linebreaks_before_equals{
# empty routine, which allows the above routine to function (this routine kicks in for KeyEqualsValuesBraces)
return;
}
sub create_unique_id{
my $self = shift;
$commandCounter++;
${$self}{id} = "$tokens{commands}$commandCounter";
return;
}
sub align_at_ampersand{
# need an empty routine here for commands; see
# test-cases/matrix1.tex for example
return;
}
1;
|
