linked_scripts/latexindent/latexindent.pl

96 my $logfile;
100 open($logfile,">","$cruftDirectory/indent.log") or die "Can't open indent.log";
104 print $logfile $time;
107 print $logfile <<ENDQUOTE
120 print $logfile <<ENDQUOTE
132     print $logfile "Modules are being loaded from the following directories:\n ";
137             print $logfile "\t",$INC{$file .'.pm'},"\n";
142 print $logfile "Directory for backup files and indent.log: $cruftDirectory\n";
147     print $logfile <<ENDQUOTE
161     for my $fh ($out,$logfile) {print $fh <<ENDQUOTE
180 for my $fh ($out,$logfile) {
199     for my $fh ($out,$logfile) {print $fh <<ENDQUOTE
216 print $logfile "Reading defaultSettings.yaml from $FindBin::RealBin/defaultSettings.yaml\n\n" if($d…
223 …print $logfile "Reading defaultSettings.yaml (2nd attempt, TeXLive, Windows) from $FindBin::RealBi…
229   for my $fh ($out,$logfile) {
299       print $logfile "Reading path information from $indentconfig\n";
303 …print $logfile File::HomeDir->my_home,"/.indentconfig.yaml has been found, but $indentconfig takes…
307 …       print $logfile "Alternatively, ",File::HomeDir->my_home,"/.indentconfig.yaml can be used\n";
312 …        print $logfile "Alternatively, ",File::HomeDir->my_home,"/indentconfig.yaml can be used\n";
322         print $logfile Dump \%dataDump;
323         print $logfile "\n";
328         print $logfile <<ENDQUOTE
340 …  print $logfile "Only default settings requested, not reading USER settings from $indentconfig\n";
341         print $logfile "Ignoring localSettings.yaml\n" if($readLocalSettings);
347         print $logfile "Home directory is ",File::HomeDir->my_home,"\n";
348 …print $logfile "To specify user settings you would put indentconfig.yaml here: \n\t",File::HomeDir…
349 …print $logfile "Alternatively, you can use the hidden file .indentconfig.yaml as: \n\t",File::Home…
359     print $logfile "\nAdding $directoryName/localSettings.yaml to paths\n\n";
364       print $logfile "WARNING\n\t$directoryName/localSettings.yaml not found\n";
365       print $logfile "\tcarrying on without it.\n";
374       print $logfile "Reading USER settings from $settings\n";
382             print $logfile Dump \%dataDump;
383             print $logfile "\n";
435 …    print $logfile "WARNING\n\t$settings \n\t contains invalid yaml format- not reading from it\n";
442       print $logfile "\nWARNING\n\t",File::HomeDir->my_home,"/indentconfig.yaml\n";
445           print $logfile "\tspecifies $settings \n\tbut this file is EMPTY- not reading from it\n\n"
449 …print $logfile "\tspecifies $settings \n\tbut this file does not exist- unable to read settings fr…
459     print $logfile "\nBackup procedure:\n";
473 …print $logfile "\t WARNING: onlyOneBackUp=$onlyOneBackUp and maxNumberOfBackUps: $maxNumberOfBackU…
474 …print $logfile "\t\t setting onlyOneBackUp=0 which will allow you to reach $maxNumberOfBackUps bac…
483         print $logfile "\t FYI: you set maxNumberOfBackUps=1, so I'm setting onlyOneBackUp: 1 \n";
500         print $logfile "\t copying $filename to $backupFile\n";
501         print $logfile "\t $backupFile was overwritten\n\n" if (-e $backupFile);
514                 print $logfile "\t maxNumberOfBackUps reached ($maxNumberOfBackUps)\n";
524                     print $logfile "\t cycleThroughBackUps detected (see cycleThroughBackUps) \n";
538                         print $logfile "\t\t copying $oldBackupFile to $newBackupFile \n";
553             print $logfile "\t $backupFile already exists, incrementing by 1...\n";
557         print $logfile "\n\t copying $filename to $backupFile\n\n";
561     print $logfile "\t Backup file: ",$backupFile,"\n";
562     print $logfile "\t Overwriting file: ",$filename,"\n\n";
568     print $logfile "Just out put to the terminal :)\n\n" if !$silentMode  ;
639     print $logfile "Trace:\tNo documentclass detected, assuming no preamble\n" if($tracingMode);
643     print $logfile "Trace:\t documentclass detected, assuming preamble\n" if($tracingMode);
656     print $logfile "\n" if($tracingMode and !($inpreamble or $inverbatim or $inIndentBlock));
671         print $logfile "Line $lineCounter\t removing leading spaces\n" if($tracingMode);
682             print $logfile "Line $lineCounter\t \\begin{document} found \n" if($tracingMode);
689 …          print $logfile "Line $lineCounter\t still in PREAMBLE, doing nothing\n" if($tracingMode);
693 …print $logfile "Line $lineCounter\t in VERBATIM-LIKE environment, doing nothing\n" if($tracingMode…
697 …         print $logfile "Line $lineCounter\t in NO INDENT BLOCK, doing nothing\n" if($tracingMode);
706 …print $logfile "Line $lineCounter\t << PHASE 1: looking for reasons to DECREASE indentation of CUR…
738 …print $logfile "Line $lineCounter\t Removed trailing comments to count braces and brackets: $1\n" …
767 …         print $logfile "Line $lineCounter\t counting braces/brackets complete\n" if($tracingMode);
768 …print $logfile "Line $lineCounter\t Adding trailing comments back on: $trailingcomments\n" if($tra…
777 …print $logfile "Line $lineCounter\t removing trailing whitespace (see removeTrailingWhitespace)\n"…
805 …print $logfile "Line $lineCounter\t || PHASE 2: Adding current level of indentation: ",join(", ",@…
814 …print $logfile "Line $lineCounter\t In delimeter block, waiting for block formatting\n" if($tracin…
827 …print $logfile "Line $lineCounter\t >> PHASE 3: looking for reasons to INCREASE indentation of SUB…
861 …print $logfile "Line $lineCounter\t Removing trailing comments for brace count (line is already st…
887 …print $logfile "Line $lineCounter\t Environments: ",join(", ",@environmentStack),"\n" if($tracingM…
895 print $logfile "Line Count of $ARGV[0]: ",scalar(@mainfile),"\n";
896 print $logfile "Line Count of indented $ARGV[0]: ",scalar(@lines);
899   print $logfile <<ENDQUOTE
907     print $logfile "\n\nLine counts of original file and indented file match";
930 close($logfile);
946 …print $logfile "Line $lineCounter\t \\fi command found, matching: \\",$indentNames[-1], "\n" if($t…
952 …print $logfile "Line $lineCounter\t \\else command found, matching: \\",$indentNames[-1], "\n" if(…
953 …print $logfile "Line $lineCounter\t decreasing indent, but indentNames is still  \\",join(", ",@in…
977         print $logfile "Line $lineCounter\t ifelsefi construct found: $1 \n" if($tracingMode);
985 …print $logfile "Line $lineCounter\t setting indent *after* \\else or \\or command found for $inden…
1000 …print $logfile "Line $lineCounter\t $1 found within ",$environmentStack[-1]," environment (see ind…
1003 …print $logfile "Line $lineCounter\t $1 found- neutralizing indentation from previous ",$indentName…
1026 …print $logfile "Line $lineCounter\t $1 found within ",$environmentStack[-1]," environment (see ind…
1051 …print $logfile "Line $lineCounter\t Delimiter environment started: $1 (see lookForAlignDelims)\n" …
1084 …print $logfile "Line $lineCounter\t FYI: did you mean to start a delimiter block on a previous lin…
1085 …         print $logfile "Line $lineCounter\t      perhaps using %* \\begin{$1}\n" if($tracingMode);
1107        print $logfile "Line $lineCounter\t Heading found: $1 \n" if($tracingMode);
1131 …print $logfile "Line $lineCounter\t stepping UP heading level from $higherHeadingName \n" if($trac…
1203 …print $logfile "Line $lineCounter\t % \\end{no indent block} found, switching inIndentBlock OFF \n…
1224 …print $logfile "Line $lineCounter\t % \\begin{no indent block} found, switching inIndentBlock ON \…
1264 …      print $logfile "Line $lineCounter\t Found opening BRACKET [ $commandname\n" if($tracingMode);
1315 …      print $logfile "Line $lineCounter\t Found closing BRACKET ] $commandname\n" if($tracingMode);
1328 …print $logfile "Line $lineCounter\t Searching for closing BRACKET ] $commandname\n" if($tracingMod…
1378             print $logfile "Line $lineCounter\t matchedbraces = $matchedbraces\n" if($tracingMode);
1384 …        print $logfile "Line $lineCounter\t Found opening BRACE { $commandname\n" if($tracingMode);
1428 …                  print $logfile "Line $lineCounter\t Found closing BRACE } $1\n" if($tracingMode);
1508 …        print $logfile "Line $lineCounter\t Found closing BRACE } $commandname\n" if($tracingMode);
1532 …print $logfile "Line $lineCounter\t Searching for closing BRACE } $commandname\n" if($tracingMode);
1626        print $logfile "Line $lineCounter\t \\begin{environment} found: $2 \n" if($tracingMode);
1636 …print $logfile "Line $lineCounter\t \\begin{verbatim-like} found, $2, switching ON verbatim \n" if…
1642 …print $logfile "WARNING\n\t Line $lineCounter\t $2 is in *both* lookForAlignDelims and verbatimEnv…
1643 …       print $logfile "\t\t\t ignoring lookForAlignDelims and prioritizing verbatimEnvironments\n";
1644                 print $logfile "\t\t\t Note that you only get this message once per environment\n";
1656 …print $logfile "Line $lineCounter\t Delimiter environment started: $2 (see lookForAlignDelims)\n" …
1691 …print $logfile "Line $lineCounter\t \\end{verbatim-like} found: $1, switching off verbatim \n" if(…
1692             print $logfile "Line $lineCounter\t removing leading spaces \n" if($tracingMode);
1722 …print $logfile "Line $lineCounter\t \\end{envrionment} found: $1 \n" if($tracingMode and !$verbati…
1734 …print $logfile "Line $lineCounter\t WARNING: \\end{$1} found on its own line, not matched to \\beg…
1756 …print $logfile "Line $lineCounter\t \\end{$1} found- emptying indent array \n" unless ($delimiters…
1774     print $logfile "Line $lineCounter\t Delimiter body FINISHED: $1\n" if($tracingMode);
1808     print $logfile "\t\tFormatting alignment block\n" if($tracingMode);
1874     print $logfile "\t\tmaximum number of & in any row: $maxNumberAmpersands\n" if($tracingMode);
2025 …print $logfile "\t\tLine $lineCounter\t maximum number of & NOT found- not aligning delimiters \n"…
2046 …print $logfile "\t\tLine $lineCounter\t Found maximum number of & so aligning delimiters\n" if($tr…
2052 …print $logfile "\t\tLine $lineCounter\t removing trailing whitespace from delimiter aligned line\n…
2080 …print $logfile "WARNING\n\t Line $lineCounter\t $command is in *both* indentRules and noAdditional…
2081             print $logfile "\t\t\t ignoring indentRules and prioritizing noAdditionalIndent\n";
2082 …        print $logfile "\t\t\t Note that you only get this message once per command/environment\n";
2096 …print $logfile "WARNING\n\t Line $lineCounter\t $command is in *both* indentRules and verbatimEnvi…
2097             print $logfile "\t\t\t ignoring indentRules and prioritizing verbatimEnvironments\n";
2098             print $logfile "\t\t\t Note that you only get this message once per environment\n";
2107 …print $logfile "Line $lineCounter\t increasing indent using rule for $command (see indentRules)\n"…
2118 …     print $logfile "Line $lineCounter\t increasing indent using defaultIndent\n" if($tracingMode);
2123 …print $logfile "Line $lineCounter\t no additional indent added for $command (see noAdditionalInden…
2138 …print $logfile "Line $lineCounter\t removing ", $indentNames[-1], " from indentNames\n" if($tracin…
2146 …         print $logfile "Line $lineCounter\t decreasing indent to: ",join(", ",@indentNames),"\n" ;
2150                     print $logfile "Line $lineCounter\t indent now empty \n";