scilab/modules/dynamic_link/macros/findmsifortcompiler.sci

   1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   2 // Copyright (C) DIGITEO - 200X-2010 - Allan CORNET
   3 //
   4 // This file must be used under the terms of the CeCILL.
   5 // This source file is licensed as described in the file COPYING, which
   6 // you should have received as part of this distribution.  The terms
   7 // are also available at
   8 // http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
   9
  10 //=============================================================================
  11 function ifortCompiler = findmsifortcompiler()
  12
  13     ifortCompiler = "unknown"; // unknown
  14
  15     if getos() == "Windows" then
  16         if getenv("IFORT_COMPILER14","NOK") <> "NOK" then
  17             ifortCompiler = "ifort14";
  18             return
  19         end
  20
  21         if getenv("IFORT_COMPILER13","NOK") <> "NOK" then
  22             ifortCompiler = "ifort13";
  23             return
  24         end
  25
  26         if getenv("IFORT_COMPILER12","NOK") <> "NOK" then
  27             ifortCompiler = "ifort12";
  28             return
  29         end
  30
  31         if getenv("IFORT_COMPILER11","NOK") <> "NOK" then
  32             ifortCompiler = "ifort11";
  33             return
  34         end
  35
  36         if getenv("IFORT_COMPILER10","NOK") <> "NOK" then
  37             ifortCompiler = "ifort10";
  38             return
  39         end
  40
  41         if getenv("IFORT_COMPILER9","NOK") <> "NOK" then
  42             ifortCompiler = "ifort9";
  43             return
  44         end
  45     else // NOT Windows
  46         ifortCompiler = "unknown"; // unknown
  47     end
  48 endfunction
  49 //=============================================================================
  50
  51