Changeset 5094 for LMDZ6/branches/Amaury_dev/tools/fcm/bin/fcm_internal

Timestamp:

Jul 21, 2024, 1:47:00 PM (4 months ago)

Author:

abarral

Message:

Fix r5093: ship new fcm source

File:

• LMDZ6/branches/Amaury_dev/tools/fcm/bin/fcm_internal (modified) (14 diffs)

LMDZ6/branches/Amaury_dev/tools/fcm/bin/fcm_internal

@@ -1 @@
-#!/usr/bin/perl
-# ------------------------------------------------------------------------------
-# NAME
-#   fcm_internal
-#
-# SYNOPSIS
-#   fcm_internal SUBCOMMAND ARGS
-#
-# DESCRIPTION
-#   The fcm_internal command is a frontend for some of the internal commands of
-#   the FCM build system. The subcommand can be "compile", "load" or "archive"
-#   for invoking the compiler, loader and library archiver respectively. If
-#   "compile" is specified, it can be suffixed with ":TYPE" to specify the
-#   nature of the source file. If TYPE is not specified, it is set to F by
-#   default (for Fortran source). For compile and load, the other arguments are
-#   the 1) name of the container package of the source file, 2) the path to the
-#   source file and 3) the target name after compiling or loading the source
-#   file. For compile, the 4th argument is a flag to indicate whether
-#   pre-processing is required for compiling the source file. For load, the 4th
-#   and the rest of the arguments is a list of object files that cannot be
-#   archived into the temporary load library and must be linked into the target
-#   through the linker command. (E.g. Fortran BLOCKDATA program units must be
-#   linked this way.) If archive is specified, the first argument should be the
-#   name of the library archive target and the rest should be the object files
-#   to be included in the archive. This command is invoked via the build system
-#   and should never be called directly by the user.
-#
-# COPYRIGHT
-#   (C) Crown copyright Met Office. All rights reserved.
-#   For further details please refer to the file COPYRIGHT.txt
-#   which you should have received as part of this distribution.
-# ------------------------------------------------------------------------------
-
-# Standard pragmas:
+#!/usr/bin/env perl
+#-------------------------------------------------------------------------------
+# Copyright (C) 2006-2021 British Crown (Met Office) & Contributors.
+#
+# This file is part of FCM, tools for managing and building source code.
+#
+# FCM 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.
+#
+# FCM 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.
+#
+# You should have received a copy of the GNU General Public License
+# along with FCM. If not, see <http://www.gnu.org/licenses/>.
+#-------------------------------------------------------------------------------
+
+use strict;
 use warnings;
-use strict;
-
-# FCM component modules
-use Fcm::Timer;
+
+use FCM1::Timer qw{timestamp_command};
 
 # Function declarations
@@ -58 +43 @@
   my $subcommand = shift @ARGV;
   my ($function, $type) = split /:/, $subcommand; 
+
   my ($srcpackage, $src, $target, $requirepp, @objects, @blockdata);
   
-  if ($subcommand eq 'archive') {
+  if ($function eq 'archive') {
     ($target, @objects) = @ARGV;
 
-  } elsif ($subcommand eq 'load') {
+  } elsif ($function eq 'load') {
     ($srcpackage, $src, $target, @blockdata) = @ARGV;
 
@@ -129 +115 @@
 #   *C_DEFINE   - *C option to declare a pre-processor def
 #   *C_INCLUDE  - *C option to declare an include directory
+#   *C_MODSEARCH- *C option to declare a module search directory
 #   *C_COMPILE  - *C option to ask the compiler to perform compile only
 #   *CFLAGS     - *C user options
@@ -146 +133 @@
   my @command = ();
 
-  # Only support C and Fortran source files at the moment
-  my $type = $info->{TYPE};
-  $type    = ($info->{SRC} =~ /\.c(\w+)?$/i) ? 'C' : 'F' if not $type;
+  # Guess file type for backward compatibility
+  my $type = $info->{TYPE} ? $info->{TYPE} : &guess_file_type ($info->{SRC});
 
   # Compiler
@@ -169 +155 @@
   push @command, (map {$incopt . $_} @incpath);
 
+  # Compiled module search path
+  my $modopt  = &get_env ($type . 'C_MODSEARCH');
+  if ($modopt) {
+    push @command, (map {$modopt . $_} @incpath);
+  }
+
   # Other compiler flags
   my $flags = &select_flags ($info, $type . 'FLAGS');
@@ -227 +219 @@
 #   reference set up in MAIN. The following environment variables are used:
 # 
-#   LD           - linker command
+#   LD           - * linker command
 #   LD_OUTPUT    - LD option to specify the name of the output file
 #   LD_LIBSEARCH - LD option to declare a directory in the library search path
@@ -237 +229 @@
 #   FCM_BINDIR   - destination directory of executable file
 #   FCM_TMPDIR   - temporary destination directory of executable file
+#
+#   * If LD is not set, it will attempt to guess the file type and use the
+#     compiler as the linker.
 # ------------------------------------------------------------------------------
 
@@ -259 +254 @@
 
     # Linker
-    push @command, &select_flags ($info, 'LD');
+    my $ld = &select_flags ($info, 'LD');
+    if (not $ld) {
+      # Guess file type for backward compatibility
+      my $type = $info->{TYPE} ? $info->{TYPE} : &guess_file_type ($info->{SRC});
+      $ld = &get_env ($type . 'C', 1);
+    }
+    push @command, $ld;
 
     # Linker output target (typical -o option)
@@ -280 +281 @@
           my $full = catfile ($dir, $file);
 
-          if (-r $full) {
+          if (-f $full) {
             $file = $full;
             last;
@@ -387 +388 @@
 
     # Get registered objects into a hash (keys = objects, values = 1)
-    my %objects = map {($_, 1)} split (/\s+/, &get_env ('OBJECTS'));
+    
+    my %objects = map {($_, 1)} split (/\s+/, &get_env ('OBJECTS', 1));
 
     # Seach object path for all files
@@ -404 +406 @@
   }
 
-  for my $dir (keys %objdir) {
+  for my $dir (sort keys %objdir) {
     next unless -d $dir;
 
@@ -443 +445 @@
 # ------------------------------------------------------------------------------
 # SYNOPSIS
+#   $type = &guess_file_type ($filename);
+#
+# DESCRIPTION
+#   This function attempts to guess the file type by looking at the extension
+#   of the $filename. Only C and Fortran at the moment.
+# ------------------------------------------------------------------------------
+
+sub guess_file_type {
+  return (($_[0] =~ /\.c(\w+)?$/i) ? 'C' : 'F');
+}
+
+# ------------------------------------------------------------------------------
+# SYNOPSIS
 #   $flags = &select_flags (\%info, $set);
 #
@@ -454 +469 @@
   my ($info, $set) = @_;
 
-  (my $srcroot = &basename ($info->{SRC})) =~ s/\.\S+$//;
+  my $srcbase = &basename ($info->{SRC});
   my @names    = ($set);
-  push @names, split (/__/, $info->{SRCPACKAGE} . '__' . $srcroot);
-
-  my $string   = '';
-  while (@names) {
-    my $name = join '__', @names;
-    my $var  = &get_env ($name);
-
-    if (defined $var) {
-      $string = $var;
-      last;
-
-    } else {
-      pop @names;
-    }
+  push @names, split (/__/, $info->{SRCPACKAGE} . '__' . $srcbase);
+
+  my $string = '';
+  for my $i (reverse (0 .. $#names)) {
+    my $var  = &get_env (join ('__', (@names[0 .. $i])));
+
+    $var = &get_env (join ('__', (@names[0 .. $i])))
+      if (not defined ($var)) and $i and $names[-1] =~ s/\.[^\.]+$//;
+
+    next unless defined $var;
+    $string = $var;
+    last;
   }
 
@@ -580 +593 @@
 
 __END__
+
+=head1 NAME
+
+fcm_internal
+
+=head1 SYNOPSIS
+
+    fcm_internal SUBCOMMAND ARGS
+
+=head1 DESCRIPTION
+
+The fcm_internal command is a frontend for some of the internal commands of
+the FCM build system. The subcommand can be "compile", "load" or "archive"
+for invoking the compiler, loader and library archiver respectively. If
+"compile" or "load" is specified, it can be suffixed with ":TYPE" to
+specify the nature of the source file. If TYPE is not specified, it is set
+to C if the file extension begins with ".c". For all other file types, it
+is set to F (for Fortran source). For compile and load, the other arguments
+are 1) the name of the container package of the source file, 2) the path to
+the source file and 3) the target name after compiling or loading the
+source file. For compile, the 4th argument is a flag to indicate whether
+pre-processing is required for compiling the source file.  For load, the
+4th and the rest of the arguments is a list of object files that cannot be
+archived into the temporary load library and must be linked into the target
+through the linker command. (E.g. Fortran BLOCKDATA program units must be
+linked this way.) If archive is specified, the first argument should be the
+name of the library archive target and the rest should be the object files
+to be included in the archive. This command is invoked via the build system
+and should never be called directly by the user.
+
+=head1 COPYRIGHT
+
+Copyright (C) 2006-2021 British Crown (Met Office) & Contributors.
+
+=cut