1// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2// Copyright (C) Scilab Enterprises -
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
14function r=%i_o_i(a,b)
15    typea = inttype(a)
16    typeb = inttype(b)
17    typer = 0;
18
19    if typea > 10 & typeb > 10 then
20        typer = 10;
21    end
22
23    typer = typer + max(modulo(typea, 10), modulo(typeb, 10));
24
25    newa = iconvert(a, typer);
26    newb = iconvert(b, typer);
27    r = newa == newb;
28endfunction
29