texinfo-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[no subject]


From: Patrice Dumas
Date: Sun, 6 Feb 2022 18:26:30 -0500 (EST)

branch: master
commit 0409c6713c755a1a7398c88106080b09a7409feb
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Sun Feb 6 22:10:04 2022 +0100

    Texinfo/Convert/Text.pm: changes in spacing.
---
 tp/Texinfo/Convert/Text.pm | 42 +++++++++++++++++++++---------------------
 1 file changed, 21 insertions(+), 21 deletions(-)

diff --git a/tp/Texinfo/Convert/Text.pm b/tp/Texinfo/Convert/Text.pm
index b1819070df..e1f1f41a10 100644
--- a/tp/Texinfo/Convert/Text.pm
+++ b/tp/Texinfo/Convert/Text.pm
@@ -133,7 +133,7 @@ our %text_brace_no_arg_commands = (
 my %sort_brace_no_arg_commands = (
   'copyright' => 'C',
   'registeredsymbol' => 'R',
-  'today' => 't', 
+  'today' => 't',
 );
 
 foreach my $accent_letter ('o','O','l','L') {
@@ -149,7 +149,7 @@ my %formattable_misc_commands;
 foreach my $command ('verbatiminclude', 'sp') {
   $formattable_misc_commands{$command} = 1;
 }
- 
+
 my %ignored_types;
 foreach my $type ('empty_line_after_command', 'preamble_before_beginning',
             'empty_spaces_after_command', 'spaces_at_end',
@@ -224,7 +224,7 @@ sub text_accents($;$$)
   $options->{'sc'} = $set_case if (defined($set_case));
   my $text = convert_to_text({'contents' => $contents}, $options);
 
-  my $result = Texinfo::Convert::Unicode::encoded_accents(undef, $text, 
+  my $result = Texinfo::Convert::Unicode::encoded_accents(undef, $text,
                      $stack, $encoding, \&ascii_accent_fallback, $set_case);
   if (defined($result)) {
     return $result;
@@ -260,7 +260,7 @@ sub brace_no_arg_command($;$)
     }
   }
   if (!defined($result)) {
-    if ($options and $options->{'sort_string'} 
+    if ($options and $options->{'sort_string'}
         and $sort_brace_no_arg_commands{$command}) {
       $result = $sort_brace_no_arg_commands{$command};
     } else {
@@ -423,7 +423,7 @@ sub _convert($;$)
     if (defined($no_brace_commands{$element->{'cmdname'}})) {
       return $no_brace_commands{$element->{'cmdname'}};
     } elsif ($element->{'cmdname'} eq 'today') {
-      if ($options->{'sort_string'} 
+      if ($options->{'sort_string'}
           and $sort_brace_no_arg_commands{$element->{'cmdname'}}) {
         return $sort_brace_no_arg_commands{$element->{'cmdname'}};
       } elsif ($options->{'converter'}) {
@@ -627,7 +627,7 @@ sub _convert($;$)
     }
     $options->{_code_options}-- if ($in_code);
   }
-  $result = '{'.$result.'}' 
+  $result = '{'.$result.'}'
      if ($element->{'type'} and $element->{'type'} eq 'bracketed'
          and (!$element->{'parent'}->{'type'} or
               ($element->{'parent'}->{'type'} ne 'block_line_arg'
@@ -672,9 +672,9 @@ sub converter($)
         if ($global_command eq 'documentencoding'
             and defined($element->{'extra'})
             and defined($element->{'extra'}->{'input_perl_encoding'})) {
-          $converter->{'OUTPUT_ENCODING_NAME'} 
+          $converter->{'OUTPUT_ENCODING_NAME'}
              = $element->{'extra'}->{'input_encoding_name'};
-          $converter->{'OUTPUT_PERL_ENCODING'} 
+          $converter->{'OUTPUT_PERL_ENCODING'}
              = $element->{'extra'}->{'input_perl_encoding'};
         }
       }
@@ -825,7 +825,7 @@ Texinfo::Convert::Text - Convert Texinfo tree to simple text
   use Texinfo::Convert::Text qw(convert_to_text ascii_accent text_accents);
 
   my $result = convert_to_text($tree);
-  my $result_encoded = convert_to_text($tree, 
+  my $result_encoded = convert_to_text($tree,
              {'enabled_encoding' => 'utf-8'});
   my $result_converter = convert_to_text($tree,
              {'converter' => $converter});
@@ -839,7 +839,7 @@ Texinfo::Convert::Text is a simple backend that converts a 
Texinfo tree
 to simple text.  It is used for some command argument expansion in
 C<Texinfo::Parser>, for instance the file names, or encoding names.
 It is also used in some converters, especially for file names.
-The converter is very simple, and, in the default case, cannot handle 
+The converter is very simple, and, in the default case, cannot handle
 output strings translation or error handling.
 
 =head1 METHODS
@@ -848,9 +848,9 @@ output strings translation or error handling.
 
 =item $result = convert_to_text($tree, $options)
 
-Convert a Texinfo tree to simple text.  I<$options> is a hash reference of 
+Convert a Texinfo tree to simple text.  I<$options> is a hash reference of
 options.  The converter is very simple, and has almost no internal state 
besides
-the options.  It cannot handle as is output strings translation or error 
+the options.  It cannot handle as is output strings translation or error
 storing.
 
 If the I<converter> option is set, some additional features may be available
@@ -864,8 +864,8 @@ The following options may be set:
 =item enabled_encoding
 
 If set, the value is considered to be the encoding name texinfo accented
-letters should be converted to.  This option corresponds to the 
-C<--enable-encoding> option, or the C<ENABLE_ENCODING> customization 
+letters should be converted to.  This option corresponds to the
+C<--enable-encoding> option, or the C<ENABLE_ENCODING> customization
 variable.
 
 =item sc
@@ -874,7 +874,7 @@ If set, the text is upper-cased.
 
 =item code
 
-If set the text is in code style.  (mostly --, ---, '' and `` are kept as 
+If set the text is in code style.  (mostly --, ---, '' and `` are kept as
 is).
 
 =item NUMBER_SECTIONS
@@ -890,12 +890,12 @@ sorting rather than presentation.
 
 If this converter object is passed to the function, some features of this
 object may be used during conversion.  Mostly error reporting and strings
-translation, as the converter object is also supposed to be a 
+translation, as the converter object is also supposed to be a
 L<Texinfo::Report> objet.  See also L<Texinfo::Convert::Converter>.
 
 =item expanded_formats_hash
 
-A reference on a hash.  The keys should be format names (like C<html>, 
+A reference on a hash.  The keys should be format names (like C<html>,
 C<tex>), and if the corresponding  value is set, the format is expanded.
 
 =back
@@ -910,18 +910,18 @@ character.
 =item $result_accent_text = ascii_accent_fallback($converter, $text, 
$accent_command)
 
 Same as C<ascii_accent> but  with an additional first argument
-converter, which is in ignored, but needed if this function is to 
+converter, which is in ignored, but needed if this function is to
 be in argument of functions that need a fallback for accents
 conversion.
 
 =item $accents_text = text_accents($accents, $encoding, $set_case)
 
-I<$accents> is an accent command that may contain other nested accent 
-commands.  The function will format the whole stack of nested accent 
+I<$accents> is an accent command that may contain other nested accent
+commands.  The function will format the whole stack of nested accent
 commands and the innermost text.  If I<$encoding> is set, the formatted
 text is converted to this encoding as much as possible instead of being
 converted as simple ascii.  If I<$set_case> is positive, the result
-is meant to be upper-cased, if it is negative, the result is to be 
+is meant to be upper-cased, if it is negative, the result is to be
 lower-cased.
 
 =back



reply via email to

[Prev in Thread] Current Thread [Next in Thread]