// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) ???? - INRIA - Scilab
//
// 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  variablename=variablesearch(instr,variablename)
    //  VARIABLESEARCH recursive function (used by "translatepaths" function)
    //  Searches names of declared variables for each instruction of mtlbtree
    //  Output
    //  -variablename : a vector which contains the names of declared variables
    //  -instr : mtlbtree instruction

    // case : ifthenelse instruction
    if typeof(instr) == "ifthenelse" then
        for i=1:size(instr.then)
            [variablename]=variablesearch((instr.then(i)),variablename)
        end
        for i=1:size(instr.elseifs)
            for k=1:size(instr.elseifs(i).then)
                [variablename]=variablesearch((instr.elseifs(i).then(k)),variablename)
            end
        end
        for i=1:size(instr.else)
        [variablename]=variablesearch((instr.else(i)),variablename)
        end
        // case : selectcase instruction
    elseif typeof(instr) == "selectcase" then
        for i=1:size(instr.cases)
            [variablename]=variablesearch(instr.cases(i).expression,variablename)
            for j=1:size(instr.cases(i).then)
                [variablename]=variablesearch((instr.cases(i).then(j)),variablename)
            end
        end
        for i=1:size(instr.else)
        [variablename]=variablesearch(instr.else(i),variablename)
        end
        // case : while instruction
    elseif typeof(instr) == "while" then
        for i=1:size(instr.statements)
            [variablename]=variablesearch(instr.statements(i),variablename)
        end
        // case : for instruction
    elseif typeof(instr) == "for" then
        [variablename]=variablesearch(instr.expression,variablename)
        for i=1:size(instr.statements)
            [variablename]=variablesearch(instr.statements(i),variablename)
        end
        // case : equal instruction
    elseif typeof(instr) == "equal" then
        for i=1:size(instr.lhs)
            [variablename]=variablesearch(instr.lhs(i),variablename)
        end
        // case : operation instruction
    elseif typeof(instr) == "operation" then
        if instr.operator=="ins" then
            if find(instr.operands(1).name==variablename)==[] then
                variablename($+1)=instr.operands(1).name
            end
        end
        // case : variable instruction
    elseif typeof(instr) == "variable" then
        if find(instr.name==variablename)==[] & instr.name<>"ans" then
            variablename($+1)=instr.name
        end
    end

endfunction