// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2011-2012 - DIGITEO - Allan CORNET
//
// This file must be used under the terms of the CeCILL.
// This source file is licensed as described in the file COPYING, which
// you should have received as part of this distribution.  The terms
// are also available at
// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
// =============================================================================
function generatef2csln(defaultSLNpath)

    // generates scilab_f2c.sln from scilab.sln
    // scilab_f2c.sln for visual studio express 2010

    C_GUID = "{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}";
    FORTRAN_GUID = "{6989167D-11E4-40FE-8C1A-2192A86A7E90}";
    VFPROJ = "_f.vfproj";
    VCPROJ = "_f2c.vcxproj";
    SLN_NAME_F2C = "Scilab_f2c.sln";
    SLN_NAME = "Scilab.sln";

    if ~isdef("defaultSLNpath") then
        defaultSLNpath = SCI;
    else
        if (type(defaultSLNpath) <> 10) then
            error(999, msprintf(gettext("%s: Wrong type for input argument #%d: A String expected.\n"),"generatef2csln",1));
        end
    end

    if ~isdir(defaultSLNpath) then
        error(999, msprintf(gettext("%s: Wrong value for input argument #%d: A valid path expected.\n"),"generatef2csln",1));
    end

    fullFilenameSLN = fullfile(defaultSLNpath, SLN_NAME);
    if ~isfile(fullFilenameSLN) then
        error(999, msprintf(gettext("%s: Wrong value for input argument #%d: %s not found.\n"),"generatef2csln",1,SLN_NAME));
    end

    SLN = mgetl(fullFilenameSLN);
    F2CSLN = strsubst(SLN, FORTRAN_GUID, C_GUID);
    F2CSLN = strsubst(F2CSLN, VFPROJ, VCPROJ);
    mputl(F2CSLN, fullfile(defaultSLNpath, SLN_NAME_F2C));
endfunction
// =============================================================================
// main
generatef2csln();
// =============================================================================