rbt 0.11.118 → 0.13.26

data/lib/rbt/installer/misc.rb

@@ -57,6 +57,89 @@ class Installer < ::RBT::CompileBase # === RBT::Installer
   require 'rbt/libtool/remove_this_entry.rb'
   require 'rbt/time/time.rb'
 
+  # ========================================================================= #
+  # === set_cflags                                               (cflags tag)
+  #
+  # This method will enable you to set i.e. new cflags. This then also
+  # allows you to compile some programs in a different manner, such as
+  # if you wish to compile that particular program statically.
+  #
+  # The default argument to this method will be a copy of ENV['CFLAGS'].
+  #
+  # You can overrule this via a shortcut, if you want to, by passing
+  # true as argument, or even better, a Symol such as :static. This
+  # will then allow you to perform the static build, if the program
+  # at hand allows for this.
+  #
+  # -static-libgcc may also be an option here.
+  #
+  # The variable LDFLAGS may be important as well.
+  #
+  # For instance:
+  #
+  #   make LDFLAGS=-all-static
+  #
+  # ========================================================================= #
+  def set_cflags(
+      i = default_cflags?,
+      &block
+    )
+    case i # case tag
+    # ======================================================================= #
+    # === :clear
+    # ======================================================================= #
+    when :clear
+      i = ''
+    # ======================================================================= #
+    # Enable static builds for the CFLAGS at hand
+    # ======================================================================= #
+    when :overrule_static_build,
+         :static,
+         :build_static,
+         true
+      i = "#{old_cflags?} -static -g"
+    end
+    # ======================================================================= #
+    # Do the actual assignment next.
+    # ======================================================================= #
+    set_this_env_variable(
+      "CFLAGS: #{i}",
+      :do_set_these_variables,
+      &block
+    )
+  end
+
+  # ========================================================================= #
+  # === copy_expanded_directory
+  #
+  # This method will copy the expanded cookbooks directory.
+  #
+  # Invocation example:
+  #
+  #   rbt --copy-expanded-directory
+  #
+  # ========================================================================= #
+  def copy_expanded_directory
+    source_directory = "#{project_yaml_dir?}expanded_cookbooks/"
+    # ======================================================================= #
+    # Designate the target directory to be used.
+    # ======================================================================= #
+    target_directory = expanded_cookbooks? # This will be e. g. '/home/Temp/rbt/expanded_cookbooks/'.
+    if File.directory? source_directory
+      opne 'Now copying from '+sdir(source_directory)
+      opne "onto #{sdir(target_directory)}."
+      mkdir(target_directory) unless File.directory? target_directory
+      # ===================================================================== #
+      # Copy each individual .yml file next:
+      # ===================================================================== #
+      Dir["#{source_directory}*.yml"].each {|this_yaml_file|
+        copy_file(this_yaml_file, target_directory) { :be_verbose }
+      }
+    else
+      opne "No directory exists at `#{sdir(source_directory)}`."
+    end
+  end; alias copy_expanded_cookbooks copy_expanded_directory # === copy_expanded_cookbooks
+
   # ========================================================================= #
   # === do_use_root_prefix
   # ========================================================================= #
@@ -153,34 +236,6 @@ class Installer < ::RBT::CompileBase # === RBT::Installer
     RBT::ShowAllAbout.new(show_this_program)
   end; alias show_all show_all_about # === show_all
 
-  # ========================================================================= #
-  # === copy_expanded_directory
-  #
-  # This method will copy the expanded cookbooks directory.
-  #
-  # Invocation example:
-  #
-  #   rbt --copy-expanded-directory
-  #
-  # ========================================================================= #
-  def copy_expanded_directory
-    source_directory = "#{project_yaml_dir?}expanded_cookbooks/"
-    # ======================================================================= #
-    # Designate the target directory to be used.
-    # ======================================================================= #
-    target_directory = expanded_cookbooks? # This will be e. g. '/home/Temp/rbt/expanded_cookbooks/'.
-    if File.directory? source_directory
-      opne 'Now copying from '+sdir(source_directory)
-      opne "onto #{sdir(target_directory)}."
-      mkdir(target_directory) unless File.directory? target_directory
-      Dir[source_directory+'*.yml'].each {|this_yaml_file|
-        opnn; copy_file(this_yaml_file, target_directory) { :be_verbose }
-      }
-    else
-      opne "No directory exists at `#{sdir(source_directory)}`."
-    end
-  end; alias copy_expanded_cookbooks copy_expanded_directory # === copy_expanded_cookbooks
-
   # ========================================================================= #
   # === show_the_colours_in_use
   #
@@ -229,8 +284,8 @@ class Installer < ::RBT::CompileBase # === RBT::Installer
     # ======================================================================= #
     # Notify the user that we are about to download a remote package next:
     # ======================================================================= #
-    opne "#{rev}Next trying to #{royalblue('download')} for #{simp(i)}"
-    opne "from the remote URL #{steelblue(_)}."
+    opne "#{rev}Next trying to #{royalblue('download')} #{rev}for #{simp(i)}"
+    opne "#{rev}from the remote URL #{steelblue(_)}#{rev}."
     # ======================================================================= #
     # Invoke the git-command next:
     # ======================================================================= #
@@ -625,12 +680,12 @@ class Installer < ::RBT::CompileBase # === RBT::Installer
       is_included = RBT.does_include?(i)
       if is_included
         if be_verbose
-          RBT::Installer.opnn; e "The program `#{RBT.simp(i)}` is included."
+          RBT::Installer.opne "The program `#{RBT.simp(i)}` is included."
         end
         @is_included = true
       else
         if be_verbose
-          RBT::Installer.opnn; e "The program `#{RBT.simp(i)}` is "\
+          RBT::Installer.opne "The program `#{RBT.simp(i)}` is "\
                                  "#{RBT.swarn('not')} included."
         end
         @is_included = false
@@ -744,7 +799,7 @@ class Installer < ::RBT::CompileBase # === RBT::Installer
           right_padded_showing_n_seconds = (
             '%.2f' % n_seconds.to_s.strip.to_f
           ).rjust(12)
-          right_padded_showing_n_seconds << ' seconds'
+          right_padded_showing_n_seconds << "#{rev} seconds"
           n_minutes = (n_seconds.to_f / 60.0).round(2) # Rounding to 2 is better.
           n_minutes = n_minutes.to_s.ljust(4,'0')
           # ================================================================= #
@@ -1000,7 +1055,8 @@ class Installer < ::RBT::CompileBase # === RBT::Installer
             sfancy(' entries are valid')
     efancy lpad+
            '          --symlink-headers                     Symlink all .h files into '\
-           'the '+sdir('/usr/include/')+sfancy(' hierarchy')
+           'the '+sdir('/usr/include/')+
+           sfancy(' hierarchy')
     efancy lpad+
            '          --symlink-all-upcased-programs-to-downcased-variants Create '\
            'symlinks'
@@ -1368,7 +1424,8 @@ class Installer < ::RBT::CompileBase # === RBT::Installer
       File.exist? '/usr/bin/'+File.basename(entry)
     }
     if all_binaries.empty?
-      opne 'The '+sdir('/usr/bin/')+' hierarchy does not contain '\
+      opne 'The '+sdir('/usr/bin/')+
+           rev+' hierarchy does not contain '\
            'any of the binaries'
       opne "belonging to #{sfancy(program_name)}."
     else
@@ -1443,7 +1500,7 @@ class Installer < ::RBT::CompileBase # === RBT::Installer
       entry.downcase!
       opne "Now purging all #{mediumspringgreen('binaries')} of "\
            "the program `#{sfancy(entry)}`, at the #{sdir('/usr/bin/')}"\
-           " hierarchy."
+           " #{rev}hierarchy."
       purge_fhs_binaries_of_this_program(entry)
     }
   end
@@ -1554,8 +1611,10 @@ class Installer < ::RBT::CompileBase # === RBT::Installer
           what = "#{entry} belongs to the program called "\
                  "#{rarrow?} #{compile_this_program}"
           into = "#{log_dir?}these_binaries.yml"
-          opne 'Storing '+steelblue(entry)+' into the file '+sfile(into)+
-               ' as well.'
+          opne "#{rev}Storing "+steelblue(entry)+rev+
+               rev+' into the file '+
+               sfile(into)+
+               "#{rev} as well."
           append_what_into("#{what}#{N}", into)
         end
       }
@@ -1929,9 +1988,9 @@ class Installer < ::RBT::CompileBase # === RBT::Installer
         opne "The program #{sfancy(this_program)} has no associated binaries."
         opne 'Thus, "strip" can not be run on these binaries.'
       else
-        opne 'Now running "strip" on '+
+        opne rev+'Now running "strip" on '+
              sfancy(binaries_of_this_program.size.to_s)+
-             ' programs:'
+             "#{rev} programs:"
         binaries_of_this_program.each {|this_binary|
           run_the_strip_command_on_this_input(this_binary)
         }
@@ -2652,15 +2711,16 @@ class Installer < ::RBT::CompileBase # === RBT::Installer
     extract_what_to(program_path, extract_to) { :keep_the_old_directory_if_it_exists }
     rcp _.program_name_and_program_version?
     target = extract_to+_.program_name_and_program_version?
-    opne 'Now changing into '+sdir(target)+'.'
+    opne 'Now changing into the following directory: '+sdir(target)
     cd target
     run_this_system_command_in_a_coloured_and_padded_manner 'make mrproper'
     run_this_system_command_in_a_coloured_and_padded_manner 'make headers'
     if File.exist? 'usr/include/Makefile'
       remove_file 'usr/include/Makefile'
     end
-    opne 'We are in the directory '+sdir(target)+'.'
-    opne 'Doing a '+steelblue('recursive copy action')+rev+' next.'
+    opne "#{rev}We are in the directory #{sdir(target)}#{rev}."
+    opne rev'Doing a '+steelblue('recursive copy action')+
+         rev+' next.'
     cpr('usr/include/', use_this_prefix)
     opne 'Done! The target was at '+sdir(use_this_prefix+'include/')
   end
@@ -3002,7 +3062,8 @@ class Installer < ::RBT::CompileBase # === RBT::Installer
   # commandline, for instance.
   # ========================================================================= #
   def verbose_enable_static
-    opne "Trying to #{steelblue('compile statically')} (no shared libraries)."
+    opne "Trying to #{steelblue('compile statically')} "\
+         "#{rev}(no shared libraries)."
     do_enable_static_compilation
     append_static_onto_the_cflags
   end; alias enable_static_compilation verbose_enable_static # === enable_static_compilation
@@ -3253,9 +3314,9 @@ class Installer < ::RBT::CompileBase # === RBT::Installer
         # =================================================================== #
         # Also auto-updating the rbt project.
         # =================================================================== #
-        opne 'Since we are on roebe we will also auto-update the '\
-             'rbt project next.'
-        cd RUBY_SRC_DIR_AT_HOME+'rbt/'
+        opne "#{rev}Since we are on roebe we will also auto-update the "\
+             "rbt project next."
+        cd "#{RUBY_SRC_DIR_AT_HOME}rbt/"
         require 'roebe/toplevel_methods/rinstall2.rb'
         Roebe.rinstall2
       end
@@ -4224,7 +4285,7 @@ class Installer < ::RBT::CompileBase # === RBT::Installer
     # Decide where to store the json-file.
     # ======================================================================= #
     into = "#{this_program}.json"
-    opne 'Storing into the file `'+sfile(into)+'`.'
+    opne "#{rev}Storing into the file `#{sfile(into)}#{rev}`."
     write_what_into(what, into)
   end
 
@@ -4285,7 +4346,7 @@ class Installer < ::RBT::CompileBase # === RBT::Installer
       what = <<-EOF
 exec env -i HOME=$HOME TERM=$TERM PS1=' ' /bin/bash
 EOF
-      opne 'Next storing into the file `'+sfile(this_file)+'`.'
+      opne 'Next storing into the file `'+sfile(this_file)+rev+'`.'
       write_what_into(what, this_file)
     end
     # ======================================================================= #
@@ -4313,7 +4374,8 @@ LFS_TGT=#{lfs_target_architecture}
 PATH=/tools/bin:/bin:/usr/bin
 export LFS LC_ALL LFS_TGT PATH
 "
-      opne 'Next storing into the file `'+sfile(this_file)+'`.'
+      opne 'Next storing into the file `'+sfile(this_file)+
+           rev+'`.'
       write_what_into(what, this_file)
     end
     # ======================================================================= #
@@ -4354,7 +4416,7 @@ EOF
                  remove_archive_from_the_end(
                    File.basename(_.cookbook_dataset_program_path?)
                  )
-    opne 'Changing directory into '+sdir(target_dir)+' next.'
+    opne 'Changing directory into '+sdir(target_dir)+rev+' next.'
     cd target_dir
     path_to_mpfr = return_path_to_the_archive_of_this_program(:mpfr)
     path_to_gmp  = return_path_to_the_archive_of_this_program(:gmp)
@@ -4452,7 +4514,7 @@ EOF
                  remove_archive_from_the_end(
                    File.basename(_.cookbook_dataset_program_path?)
                  )
-    opne 'Changing directory into '+sdir(target_dir)+' next.'
+    opne 'Changing directory into '+sdir(target_dir)+rev+' next.'
     _.clear_configure_options
     _.set_prefix_to_use(prefix_for_tools)
     _.do_not_store_the_compile_time
@@ -4479,11 +4541,11 @@ EOF
                  remove_archive_from_the_end(
                    File.basename(_.cookbook_dataset_program_path?)
                  )
-    opne 'Changing directory into '+sdir(target_dir)+' next.'
+    opne 'Changing directory into '+sdir(target_dir)+rev+' next.'
     cd target_dir
     mkdir 'build'
     cd 'build'
-    opne 'We are now in the directory '+sdir(target_dir)+'.'
+    opne rev+'We are now in the directory '+sdir(target_dir)+rev+'.'
     ENV['LD_CONFIG_PATH'] = tools_lib_path
     run_this_system_command_in_a_coloured_and_padded_manner "../libstdc++-v3/configure
     --host=#{lfs_target_architecture}
@@ -4541,7 +4603,8 @@ EOF
       opne 'Setting up some settings to make use of this as our host system.'
       target_file = log_dir?+'is_on_gobolinux.md'
       write_what_into('1', target_file)
-      opne 'This will be stored into the file `'+sfile(target_file)+'`.'
+      opne 'This will be stored into the file `'+sfile(target_file)+
+            rev+'`.'
     end
   end
 
@@ -4629,10 +4692,10 @@ EOF
       i = compile_which_program?,
       _ = program_path?
     )
-    opne "#{rev}The program `#{steelblue(i)}` "\
-         "will be #{compile_or_install_string?} next, in "\
-         "#{lightgreen(mode?.to_s)} mode."
-    opne "The #{steelblue('assumed local path')} is:"
+    opne "#{rev}The program `#{steelblue(i)}#{rev}` "\
+         "will be #{compile_or_install_string?} #{rev}next, in "\
+         "#{lightgreen(mode?.to_s)} #{rev}mode."
+    opne "The #{steelblue('assumed local path')} #{rev}is:"
     e
     e "  #{sfile(_)}"
     e
@@ -4882,7 +4945,8 @@ EOF
   # ========================================================================= #
   def verbose_do_symlink_headers_into_usr_include_hierarchy
     opne 'We will try to symlink '+orange('.h')+' files into '\
-         'the '+sdir('/usr/include/')+' hierarchy.'
+         'the '+sdir('/usr/include/')+
+         ' hierarchy.'
     @internal_hash[:symlink_headers] = true
   end
 
@@ -5561,7 +5625,7 @@ EOF
         # (1) Download the patch unless it exists locally.
         # =================================================================== #
         unless File.exist? File.basename(this_patchset)
-          opne 'Next trying to download '+steelblue(this_patchset)+'.'
+          opne 'Next trying to download '+steelblue(this_patchset)+rev+'.'
           do_download_this_program(this_patchset)
         end
         this_command = "patch -Np1 -i #{File.basename(this_patchset)}"
@@ -6438,7 +6502,7 @@ EOF
       what = YAML.dump(hash)
       opne 'Storing the configure command'
       opne "  #{sfancy(store_this)}"
-      opne "into the file `#{sfile(into)}`."
+      opne "#{rev}into the file `#{sfile(into)}#{rev}`."
       write_what_into(what, into)
     end
   end
@@ -8499,7 +8563,7 @@ EOF
     if array.empty?
       target_dir = '/usr/bin/' if target_dir == :default
       opne "No duplicates appear to exist under the "\
-           "#{sdir(target_dir)} hierarchy."
+           "#{sdir(target_dir)} #{rev}hierarchy."
     else
       opne 'The following duplicates were found:'
       e
@@ -8519,7 +8583,7 @@ EOF
     i = RBT.return_alias_program_name_for(i)
     opne "Now purging all #{mediumspringgreen('lib/')} programs "\
          "of `#{sfancy(i)}` at the #{sdir('/usr/lib/')}"\
-         " hierarchy."
+         " #{rev}hierarchy."
     purge_fhs_libraries_of_this_program(i)
   end
 
@@ -9588,23 +9652,6 @@ EOF
        alias set_prefix          set_user_prefix # === set_prefix
        alias set_prefix_to_use   set_user_prefix # === set_prefix_to_use
 
-  # ========================================================================= #
-  # === enable_non_traditional_compilation
-  #
-  # This will essentially switch to app-dir prefix.
-  # ========================================================================= #
-  def enable_non_traditional_compilation(
-      optional_use_this_as_program_name_and_program_version = 
-        program_name_and_program_version?
-    )
-    if optional_use_this_as_program_name_and_program_version
-      @internal_hash[:prefix].set_program(
-        optional_use_this_as_program_name_and_program_version
-      )
-    end
-    @internal_hash[:prefix].enable_non_traditional_compilation
-  end; alias do_run_via_nontraditional_way enable_non_traditional_compilation # === do_run_via_nontraditional_way
-
   # ========================================================================= #
   # === cookbook_dataset_prefix?
   # ========================================================================= #
@@ -10204,7 +10251,7 @@ EOF
     # ======================================================================= #
     all_directories_there = Dir["#{_}*"].select {|entry| File.directory? entry }
     opne "All #{sfancy(all_directories_there.size.to_s)}"\
-         " directories in the #{sdir(_)} hierarchy will be removed."
+         " directories in the #{sdir(_)} #{rev}hierarchy will be removed."
     remove_these_directories(all_directories_there)
   end
 
@@ -10395,7 +10442,8 @@ EOF
   # ========================================================================= #
   def show_programs_with_this_as_dependency(i)
     use_this_key = :required_deps_on
-    e rev+'Next trying to find all programs that depend on '+steelblue(i)+':'
+    e rev+'Next trying to find all programs that depend on '+steelblue(i)+
+      rev+':'
     e
     array_these_programs_depend_on_the_given_input = []
     available_programs?.each {|this_program|
@@ -11065,8 +11113,8 @@ EOF
           # Notify the user as to the env-value modification. Since as of
           # November 2018 we will no longer use opnn() here.
           # ================================================================= #
-          e "  #{sfancy(key)} will be set to the "\
-            "value(s): #{lightblue(value.to_s)}"
+          e "  #{sfancy(key)} #{rev}will be set to the "\
+            "value(s): #{lightblue(value.to_s)}#{rev}"
         end
         if value.is_a? FalseClass or
            value.is_a? TrueClass or
@@ -11084,58 +11132,6 @@ EOF
     end
   end; alias set_this_env_variable set_these_env_variables # === set_this_env_variable
 
-  # ========================================================================= #
-  # === set_cflags                                               (cflags tag)
-  #
-  # This method will enable you to set i.e. new cflags. This then also
-  # allows you to compile some programs in a different manner, such as
-  # if you wish to compile that particular program statically.
-  #
-  # The default argument to this method will be a copy of ENV['CFLAGS'].
-  #
-  # You can overrule this via a shortcut, if you want to, by passing
-  # true as argument, or even better, a Symol such as :static. This
-  # will then allow you to perform the static build, if the program
-  # at hand allows for this.
-  #
-  # -static-libgcc may also be an option here.
-  #
-  # The variable LDFLAGS may be important as well.
-  #
-  # For instance:
-  #
-  #   make LDFLAGS=-all-static
-  #
-  # ========================================================================= #
-  def set_cflags(
-      i = default_cflags?,
-      &block
-    )
-    case i # case tag
-    # ======================================================================= #
-    # === :clear
-    # ======================================================================= #
-    when :clear
-      i = ''
-    # ======================================================================= #
-    # Enable static builds for the CFLAGS at hand
-    # ======================================================================= #
-    when :overrule_static_build,
-         :static,
-         :build_static,
-         true
-      i = "#{old_cflags?} -static -g"
-    end
-    # ======================================================================= #
-    # Do the actual assignment next.
-    # ======================================================================= #
-    set_this_env_variable(
-      "CFLAGS: #{i}",
-      :do_set_these_variables,
-      &block
-    )
-  end
-
   require 'rbt/generate_files/create_bash_scripts.rb'
   # ========================================================================= #
   # === create_shell_scripts                            (bash tag bashrc tag)
@@ -11653,11 +11649,12 @@ EOF
       what,
       into = FILE_PROGRAMS_DIRECTORY
     )
-    opne 'Storing '+sfancy(what)+' into the file `'+sfile(into)+'`.'
+    opne 'Storing '+sfancy(what)+rev+' into the file `'+sfile(into)+rev+'`.'
     write_what_into(what, into)
     if is_on_roebe?
       into = RUBY_SRC_DIR_RBT_YAML+'configuration/programs_directory.yml'
-      opne 'Storing '+sfancy(what)+' into the file `'+sfile(into)+'`.'
+      opne 'Storing '+sfancy(what)+rev+' into the file `'+sfile(into)+rev+
+           '`.'
       write_what_into(what, into)
     end
   end; alias permanently_set_programs_directory permanently_set_programs_dir # === permanently_set_programs_directory
@@ -11786,8 +11783,8 @@ EOF
         end
       end
       into = "#{prefix?}Resources/configure_options.md"
-      opne 'Storing the configure options that were used '\
-           'into the file:'
+      opne "#{rev}Storing the configure options that were used "\
+           "into the file:"
       e
       e "  #{sfile(into)}"
       e
@@ -11909,7 +11906,7 @@ EOF
   # ========================================================================= #
   def show_the_everything_is_finished_message
     opne "Installation of #{steelblue(install_which_program?)} "\
-         "has finished."
+         "#{rev}has finished."
   end
 
   require 'rbt/utility_scripts/symlink_pkgconfig_files.rb'
@@ -12270,11 +12267,11 @@ EOF
         # superuser.
         # =================================================================== #
         if is_superuser?
-          opne "Now running `#{sfancy(cmd_to_run)}`." # We output the ldconfig command variant here.
+          opne "#{rev}Now running `#{sfancy(cmd_to_run)}#{rev}`." # We output the ldconfig command variant here.
           system cmd_to_run
         else
           opne "You are not the superuser so we will not "\
-               "try to run `#{sfancy(cmd_to_run)}`."
+               "try to run `#{sfancy(cmd_to_run)}#{rev}`."
         end
       end
     end
@@ -12361,8 +12358,8 @@ EOF
         # =================================================================== #
         opne "#{compiling_or_installing} the program `"\
              "#{olivedrab(program_name)}"\
-             "` took #{sfancy(rounded_duration.to_s)} seconds "\
-             "(aka #{sfancy(in_minutes)} minutes)."
+             "#{rev}` took #{sfancy(rounded_duration.to_s)} #{rev}seconds "\
+             "(aka #{sfancy(in_minutes)} #{rev}minutes)."
         # =================================================================== #
         # Also store this now into a file.
         # =================================================================== #
@@ -12373,7 +12370,7 @@ EOF
           dataset = {} # Use a Hash format.
         end
         dataset[program_name] = rounded_duration
-        opne 'Also storing this information into the file'
+        opne "#{rev}Also storing this information into the file"
         opne "  #{sfile(_)}"
         write_what_into(YAML.dump(dataset), _)
       else
@@ -13152,10 +13149,12 @@ EOF
            "#{sfile('use_maximum_speed_for_compilation.yml')}"\
            " specified"
       opne 'that maximum speed should be used for compilation.'
-      opne "This means to pass the #{orange('-j')} option "\
-           "to the program #{slateblue('make')},"
-      opne 'with the number of processors this computer '\
-           'has ('+steelblue(this_computer_has_how_many_processors?.to_s)+').'
+      opne "#{rev}This means to pass the #{orange('-j')} option "\
+           "to the program #{slateblue('make')}#{rev},"
+      opne "#{rev}with the number of processors this computer "+
+           'has ('+
+           steelblue(this_computer_has_how_many_processors?.to_s)+
+           rev+').'
       speed_up_the_compilation
     end
   end
@@ -14396,7 +14395,8 @@ EOF
         end
         unless (array_dataset.last == i) and !array_dataset.empty? # Storing only if it is different.
           opne 'Trying to register the last compiled program '\
-               '(`'+springgreen(i)+'`) into the file:'
+               '(`'+springgreen(i)+
+               rev+'`) into the file:'
           opne "  #{sfile(file)}"
           # ================================================================= #
           # Remove any old entries, if they exist.
@@ -15426,47 +15426,6 @@ end # end false clause (DEBUG - FIXME!!!)
     end
   end
 
-  # ========================================================================= #
-  # === do_compile_in_a_non_traditional_way
-  #
-  # We enable Gobolinux-style compilation here, as in AppDir-like
-  # compilation.
-  # ========================================================================= #
-  def do_compile_in_a_non_traditional_way(
-      program_name_and_program_version = program_name_and_program_version?,
-      be_verbose                       = true
-    )
-    if can_we_continue?
-      case program_name_and_program_version
-      when :be_silent,
-           :be_quiet
-        be_verbose = false
-        program_name_and_program_version = program_name_and_program_version?
-      end
-      case be_verbose
-      when :be_silent,
-           :be_quiet
-        be_verbose = false
-      end
-      if be_verbose
-        opne 'Overruling any potential traditional setting.'
-      end
-      @internal_hash[:counter_called_traditional_or_non_traditional_compilation] += 1
-      # ensure_that_a_cookbook_object_has_been_instantiated
-      set_user_prefix(:ntrad)
-      opne "Enabling #{steelblue('AppDir prefix')}."
-      # enable_non_traditional_compilation(
-      #   program_name_and_program_version
-      # )
-    end
-  end; alias enable_non_traditional_compilation do_compile_in_a_non_traditional_way # === enable_non_traditional_compilation
-       alias set_standalone_compilation         do_compile_in_a_non_traditional_way # === set_standalone_compilation # This is a legacy alias.
-       alias compile_as_appdir                  do_compile_in_a_non_traditional_way # === compile_as_appdir
-       alias ntrad                              do_compile_in_a_non_traditional_way # === ntrad
-       alias use_non_traditional_prefix         do_compile_in_a_non_traditional_way # === use_non_traditional_prefix
-       alias do_run_via_nontraditional_way      do_compile_in_a_non_traditional_way # === do_run_via_nontraditional_way
-       alias do_use_an_appdir_prefix            do_compile_in_a_non_traditional_way # === do_use_an_appdir_prefix
-
   # ========================================================================= #
   # === colourize_this_important_system_command
   # ========================================================================= #
@@ -16198,4 +16157,61 @@ end # end false clause (DEBUG - FIXME!!!)
     @internal_hash[:original_start_directory]
   end; alias original_base_directory? original_start_directory? # === original_base_directory?
 
+  # ========================================================================= #
+  # === do_compile_in_a_non_traditional_way
+  #
+  # We enable Gobolinux-style compilation here, as in AppDir-like
+  # compilation.
+  # ========================================================================= #
+  def do_compile_in_a_non_traditional_way(
+      program_name_and_program_version = program_name_and_program_version?,
+      be_verbose                       = true
+    )
+    if can_we_continue?
+      case program_name_and_program_version
+      when :be_silent,
+           :be_quiet
+        be_verbose = false
+        program_name_and_program_version = program_name_and_program_version?
+      end
+      case be_verbose
+      when :be_silent,
+           :be_quiet
+        be_verbose = false
+      end
+      if be_verbose
+        opne 'Overruling any potential traditional setting.'
+      end
+      @internal_hash[:counter_called_traditional_or_non_traditional_compilation] += 1
+      # ensure_that_a_cookbook_object_has_been_instantiated
+      set_user_prefix(:ntrad)
+      opne "Enabling #{steelblue('AppDir prefix')}."
+      # enable_non_traditional_compilation(
+      #   program_name_and_program_version
+      # )
+    end
+  end; alias set_standalone_compilation         do_compile_in_a_non_traditional_way # === set_standalone_compilation # This is a legacy alias.
+       alias compile_as_appdir                  do_compile_in_a_non_traditional_way # === compile_as_appdir
+       alias ntrad                              do_compile_in_a_non_traditional_way # === ntrad
+       alias use_non_traditional_prefix         do_compile_in_a_non_traditional_way # === use_non_traditional_prefix
+       alias do_run_via_nontraditional_way      do_compile_in_a_non_traditional_way # === do_run_via_nontraditional_way
+       alias do_use_an_appdir_prefix            do_compile_in_a_non_traditional_way # === do_use_an_appdir_prefix
+
+  # ========================================================================= #
+  # === enable_non_traditional_compilation
+  #
+  # This will essentially switch to app-dir prefix.
+  # ========================================================================= #
+  def enable_non_traditional_compilation(
+      optional_use_this_as_program_name_and_program_version = 
+        program_name_and_program_version?
+    )
+    if optional_use_this_as_program_name_and_program_version
+      @internal_hash[:prefix].set_program(
+        optional_use_this_as_program_name_and_program_version
+      )
+    end
+    @internal_hash[:prefix].enable_non_traditional_compilation
+  end; alias do_run_via_nontraditional_way enable_non_traditional_compilation # === do_run_via_nontraditional_way
+
 end; end