automake-patches
[Top][All Lists]
Advanced

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

06-fyi-formatting.patch


From: Akim Demaille
Subject: 06-fyi-formatting.patch
Date: Mon, 15 Oct 2001 09:54:40 +0200

Index: ChangeLog
from  Akim Demaille  <address@hidden>

        * automake.in: Formatting changes.
Index: automake.in
--- automake.in Fri, 12 Oct 2001 14:43:57 +0200 akim
+++ automake.in Sat, 13 Oct 2001 20:49:06 +0200 akim
@@ -1234,7 +1234,7 @@ sub generate_makefile
     # (but currently does).
     macro_define ('SOURCES', 1, '', 'TRUE',
                     join (' ', @sources), 'internal');
-    &define_pretty_variable ('DIST_SOURCES', '', @dist_sources);
+    define_pretty_variable ('DIST_SOURCES', '', @dist_sources);

     &handle_multilib;
     &handle_texinfo;
@@ -1493,7 +1493,7 @@ sub handle_languages
            # We define this as a conditional variable because BSD
            # make can't handle backslashes for continuing comments on
            # the following line.
-           &define_pretty_variable ('DEP_FILES', 'AMDEP_TRUE', @deplist);
+           define_pretty_variable ('DEP_FILES', 'AMDEP_TRUE', @deplist);

            # Generate each `include' individually.  Irix 6 make will
            # not properly include several files resulting from a
@@ -2046,7 +2046,7 @@ sub define_objects_from_sources ($$$$$$$
     $vars_scanned{$var} = 1;

     my $needlinker = "";
-    foreach my $cond (&variable_conditions ($var))
+    foreach my $cond (variable_conditions ($var))
     {
        my @result;
        foreach my $val (&variable_value_as_list ($var, $cond, $parent))
@@ -2072,7 +2072,7 @@ sub define_objects_from_sources ($$$$$$$
                push @substfroms, $from;
                push @substtos, $to;

-               my $subobjvar = &subobjname($subvar);
+               my $subobjvar = subobjname ($subvar);
                push (@result, '$('. $subobjvar . ')');

                my $temp = define_objects_from_sources ($subvar, $subobjvar,
@@ -2101,7 +2101,7 @@ sub define_objects_from_sources ($$$$$$$
        }

        # Define _OBJECTS conditionally.
-       &define_pretty_variable ($objvar, $cond, (@result))
+       define_pretty_variable ($objvar, $cond, (@result))
                unless $nodefine;
     }

@@ -2109,9 +2109,10 @@ sub define_objects_from_sources ($$$$$$$
     return $needlinker;
 }

+
 # $OBJNAME
 # subobjname ($VARNAME)
-# ---------------------------------------------------------------------
+# ---------------------
 # Return a name for an object variable.
 #
 # Arguments are:
@@ -2123,7 +2124,7 @@ sub define_objects_from_sources ($$$$$$$
 #
 # The name returned is unique for the combination of $varname and
 # substitutions to be performed.
-sub subobjname($)
+sub subobjname ($)
 {
     my ($varname) = @_;
     my $key = $varname;
@@ -2223,12 +2224,12 @@ sub handle_source_transform
                                         $one_file, $obj,
                                         "$unxformed.c");
        $linker ||= &resolve_linker (%linkers_used);
-       &define_pretty_variable ($one_file . "_OBJECTS", '', @result)
+       define_pretty_variable ($one_file . "_OBJECTS", '', @result)
     }
     else
     {
        grep ($_ = '$(' . $_ . $one_file . '_OBJECTS)', @keys);
-       &define_pretty_variable ($one_file . '_OBJECTS', '', @keys);
+       define_pretty_variable ($one_file . '_OBJECTS', '', @keys);
     }

     # If we want to use `LINK' we must make sure it is defined.
@@ -2257,7 +2258,7 @@ sub handle_lib_objects
        if ! &variable_defined ($var);

     my $ret = 0;
-    foreach my $cond (&variable_conditions_recursive ($var))
+    foreach my $cond (variable_conditions_recursive ($var))
       {
        if (&handle_lib_objects_cond ($xname, $var, $cond))
          {
@@ -2370,7 +2371,7 @@ sub handle_lib_objects_cond

     if ($xname ne '' && ! &variable_defined ($xname . '_DEPENDENCIES', $cond))
     {
-       &define_pretty_variable ($xname . '_DEPENDENCIES', $cond, @dep_list);
+       define_pretty_variable ($xname . '_DEPENDENCIES', $cond, @dep_list);
     }

     return $seen_libobjs;
@@ -3499,7 +3500,7 @@ sub handle_dist
            $dist_subdir_name = 'DIST_SUBDIRS';
            if (! &variable_defined ('DIST_SUBDIRS'))
            {
-               &define_pretty_variable
+               define_pretty_variable
                  ('DIST_SUBDIRS', '',
                   uniq (&variable_value_as_list_recursive ('SUBDIRS', 'all')));
            }
@@ -3509,7 +3510,7 @@ sub handle_dist
            $dist_subdir_name = 'SUBDIRS';
            # We always define this because that is what `distclean'
            # wants.
-           &define_pretty_variable ('DIST_SUBDIRS', '', '$(SUBDIRS)');
+           define_pretty_variable ('DIST_SUBDIRS', '', '$(SUBDIRS)');
        }

        $transform{'DIST_SUBDIR_NAME'} = $dist_subdir_name;
@@ -3947,7 +3948,7 @@ sub handle_configure
     }

     # These files get removed by "make clean".
-    &define_pretty_variable ('CONFIG_CLEAN_FILES', '', @actual_other_files);
+    define_pretty_variable ('CONFIG_CLEAN_FILES', '', @actual_other_files);
 }

 # Handle C headers.
@@ -4312,7 +4313,7 @@ sub handle_emacs_lisp

     # Generate .elc files.
     my @elcfiles = map { $_ . 'c' } @elfiles;
-    &define_pretty_variable ('ELCFILES', '', @elcfiles);
+    define_pretty_variable ('ELCFILES', '', @elcfiles);

     push (@all, '$(ELCFILES)');

@@ -5926,12 +5927,10 @@ sub examine_variable
 sub variable_conditions_recursive ($)
 {
     my ($var) = @_;
-    my %uniqify;
-    my @uniq_list;

     %vars_scanned = ();

-    my @new_conds = &variable_conditions_recursive_sub ($var, '');
+    my @new_conds = variable_conditions_recursive_sub ($var, '');
     # Now we want to return all permutations of the subvariable
     # conditions.
     my %allconds = ();
@@ -5943,25 +5942,26 @@ sub variable_conditions_recursive ($)
            $allconds{$_} = 1;
        }
     }
-    @new_conds = &variable_conditions_permutations (sort keys %allconds);
+    @new_conds = variable_conditions_permutations (sort keys %allconds);

+    my %uniqify;
     foreach my $cond (@new_conds)
     {
-       my $reduce = &variable_conditions_reduce (split (' ', $cond));
+       my $reduce = variable_conditions_reduce (split (' ', $cond));
         next
            if $reduce eq 'FALSE';
        $uniqify{$cond} = 1;
     }

-    @uniq_list = sort by_condition keys %uniqify;
     # Note we cannot just do `return sort keys %uniqify', because this
     # function is sometimes used in a scalar context.
+    my @uniq_list = sort by_condition keys %uniqify;
     return @uniq_list;
 }

 # @CONDS
 # variable_conditions ($VAR)
-# ---------------------------------------
+# --------------------------
 # Get the list of conditions that a variable is defined with, without
 # recursing through the conditions of any subvariables.
 # Argument is $VAR: the variable to get the conditions of.
@@ -6033,7 +6033,7 @@ sub variable_conditions_recursive_sub
                # Here we compute all the conditions under which the
                # subvariable is defined.  Then we go through and add
                # $VCOND to each.
-               my @svc = &variable_conditions_recursive_sub ($varname, $var);
+               my @svc = variable_conditions_recursive_sub ($varname, $var);
                foreach my $item (@svc)
                {
                    my $val = conditional_string ($vcond, split (' ', $item));
@@ -6053,7 +6053,7 @@ sub variable_conditions_recursive_sub
        }
        else
        {
-           push (@new_conds, &variable_conditions_reduce (@subvar_conds));
+           push (@new_conds, variable_conditions_reduce (@subvar_conds));
        }
     }

@@ -6069,7 +6069,7 @@ sub variable_conditions_recursive_sub
     foreach my $this_cond (@this_conds)
     {
        my @perms =
-           &variable_conditions_permutations (split(' ', $this_cond));
+           variable_conditions_permutations (split (' ', $this_cond));
        foreach my $perm (@perms)
        {
            my $ok = 1;
@@ -6154,12 +6154,12 @@ sub variable_conditions_permutations
     return ()
        if ! @comps;
     my $comp = shift (@comps);
-    return &variable_conditions_permutations (@comps)
+    return variable_conditions_permutations (@comps)
        if $comp eq '';
     my $neg = condition_negate ($comp);

     my @ret;
-    foreach my $sub (&variable_conditions_permutations (@comps))
+    foreach my $sub (variable_conditions_permutations (@comps))
     {
        push (@ret, "$comp $sub");
        push (@ret, "$neg $sub");
@@ -7456,7 +7456,7 @@ sub am_install_var
        # EXEEXT.
        if ($primary eq 'PROGRAMS')
        {
-           my @conds = &variable_conditions_recursive ($one_name);
+           my @conds = variable_conditions_recursive ($one_name);

            my @condvals;
            foreach my $cond (@conds)
@@ -7487,7 +7487,7 @@ sub am_install_var
            {
                my $cond = shift (@condvals);
                my @val = split (' ', shift (@condvals));
-               &define_pretty_variable ($one_name, $cond, @val);
+               define_pretty_variable ($one_name, $cond, @val);
            }
        }

@@ -7540,7 +7540,7 @@ sub am_install_var
     if (@used && $primary ne 'JAVA' && $primary ne 'PYTHON')
     {
        # Define it.
-       &define_pretty_variable ($primary, '', @used);
+       define_pretty_variable ($primary, '', @used);
        $output_vars .= "\n";
     }




reply via email to

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