* Bug 16330 fixed: unsupported UTF pi in msgid
[scilab.git] / scilab / modules / m2sci / macros / sci_files / sci_PROTO5.g
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) 2002-2004 - INRIA - Vincent COUVERT
3 // Copyright (C) 2012 - 2016 - Scilab Enterprises
4 // Copyright (C) 2019 - Samuel GOUGEON
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 function tree = sci_MFUN(tree)
14 // Prototype for: atanh asin atan acoth
15 // M2SCI function
16 // Conversion function for Matlab MFUN()
17 // Input: tree = Matlab funcall tree
18 // Output: tree = Scilab equivalent for tree
19
20     A = getrhs(tree)
21     A = convert2double(A)
22     tree.rhs = Rhs_tlist(A)
23
24     if tree.name=="atan" then
25         set_infos(msprintf(gettext("If %s is imaginary and its module is > 1\n      the real part of %s is -pi/2 in Scilab instead of +pi/2 in Matlab."), strcat(expression2code(A), ""), strcat(expression2code(tree), "")),2)
26     elseif tree.name=="acoth" then
27         set_infos(msprintf(gettext("If %s is in [0,1)\n  imag(%s) is -pi/2 in Scilab instead of +pi/2 in Matlab."), strcat(expression2code(A), ""), strcat(expression2code(tree), "")),2)
28     elseif tree.name=="asin" then
29         set_infos(msprintf(gettext("If %s is outside [-1,1]\n   complex part of output of %s will be the opposite of Matlab one."), strcat(expression2code(A), ""), strcat(expression2code(tree), "")),2)
30     else
31                 set_infos(msprintf(gettext("If %s < -1, complex part of output of %s will be the opposite of Matlab one."), strcat(expression2code(A), ""), strcat(expression2code(tree), "")),2)
32         end
33     tree.lhs(1).dims = A.dims
34     // Property unknown because result can be complex for real input
35     tree.lhs(1).type = Type(Double,Unknown)
36 endfunction