scilab/modules/dynamic_link/macros/detectmsvc64tools.sci

   1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   2 // Copyright (C) INRIA - Allan CORNET
   3 // Copyright (C) DIGITEO - 2010 - Allan CORNET
   4 //
   5 // This file must be used under the terms of the CeCILL.
   6 // This source file is licensed as described in the file COPYING, which
   7 // you should have received as part of this distribution.  The terms
   8 // are also available at
   9 // http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
  10
  11 //=============================================================================
  12 function bOK = detectmsvc64tools()
  13
  14     bOK = %F;
  15     if getos() <> "Windows" then
  16         return
  17     end
  18
  19     //=============================================================================
  20     // internal functions
  21     //=============================================================================
  22     function show = displayWarningMsVC()
  23         settings_filename = "/.settings_warning_msvc";
  24         settings_file = pathconvert(SCIHOME + settings_filename, %f, %t);
  25         w = fileinfo(settings_file);
  26         show = %t;
  27         if isfile(settings_file) then
  28             show = grep(mgetl(settings_file), "displayWarningMSVCx64=no") == [];
  29         end
  30     endfunction
  31     //=============================================================================
  32     function disableWarningMsVC()
  33         settings_filename = "/.settings_warning_msvc";
  34         settings_file = pathconvert(SCIHOME + settings_filename, %f, %t);
  35         mputl("displayWarningMSVCx64=no", settings_file);
  36     endfunction
  37     //=============================================================================
  38
  39
  40     // Load dynamic_link Internal lib if it's not already loaded
  41     if ~ exists("dynamic_linkwindowslib") then
  42         load("SCI/modules/dynamic_link/macros/windows/lib");
  43     end
  44
  45   if win64() then
  46     compiler = findmsvccompiler();
  47     supported_compiler = ['msvc110pro', ..
  48                           'msvc110express', ..
  49                           'msvc100pro', ..
  50                           'msvc100express', ..
  51                           'msvc90pro', ..
  52                           'msvc90std', ..
  53                           'msvc90express'];
  54
  55         if (find(supported_compiler == compiler) <> []) then
  56             MSVCBIN64PATH = dlwGet64BitPath();
  57             if dlwIsVc11Express() then
  58                 MSVCBIN64PATH = MSVCBIN64PATH + filesep() + "VC\bin";
  59             else
  60                 MSVCBIN64PATH = MSVCBIN64PATH + filesep() + "VC\bin\amd64";
  61             end
  62
  63             if isdir(MSVCBIN64PATH) then
  64                 bOK = %T;
  65             else
  66                 show = displayWarningMsVC();
  67                 if show then
  68                     TXT = gettext("Microsoft Visual Studio C 2008 (or more recent) x64 Compiler not installed.");
  69                     warning(TXT);
  70                     clear TXT;
  71                     disableWarningMsVC();
  72                 end
  73                 bOK = %F;
  74             end
  75         else
  76             show = displayWarningMsVC();
  77             if show then
  78                 TXT = gettext("Microsoft Visual Studio C 2008 (or more recent) Compiler not found.");
  79                 warning(TXT);
  80                 clear TXT;
  81                 disableWarningMsVC();
  82             end
  83             bOK = %F;
  84         end
  85     end
  86
  87 endfunction
  88 //=============================================================================