Merge remote-tracking branch 'origin/6.1'
[scilab.git] / scilab / modules / dynamic_link / macros / ilib_include_flag.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) DIGITEO - 2010 - Vincent LEJEUNE
3 //
4 // Copyright (C) 2012 - 2016 - Scilab Enterprises
5 //
6 // This file is hereby licensed under the terms of the GNU GPL v2.0,
7 // pursuant to article 5.3.4 of the CeCILL v.2.1.
8 // This file was originally licensed under the terms of the CeCILL v2.1,
9 // and continues to be available under such terms.
10 // For more information, see the COPYING file which you should have received
11 // along with this program.
12 //=============================================================================
13
14 function ret = ilib_include_flag(path_strings)
15
16     if type(path_strings) <> 10 then
17         error(msprintf(gettext("%s: Wrong type for input argument #%d: string expected.\n"), "ilib_include_flag", 1));
18     end
19
20     ret = "";
21
22     if and(size(path_strings)<>1) then
23         //path_strings is not a vector
24         error(msprintf(gettext("%s: Wrong size for input argument #%d: Vector expected.\n"), "ilib_include_flag", 1));
25     else
26         //change path_strings to a line vector to have ret as a line vector
27         path_strings=path_strings(:)'
28     end
29
30
31     for path = path_strings
32         if ~isdir(fullpath(path)) then
33             error(msprintf(gettext("%s: Failed to add include path : %s"), "ilib_include_flag", path));
34         end
35         if (getos() == "Windows") then
36             ret = ret + " -I""" + pathconvert(fullpath(path), %f) + """";
37         else
38             ret = ret + " -I" + pathconvert(fullpath(path), %f);
39         end
40     end
41 endfunction