Messages standardization
[scilab.git] / scilab / modules / compatibility_functions / macros / mtlb_format.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) 2002-2004 - INRIA - Vincent COUVERT 
3 // 
4 // This file must be used under the terms of the CeCILL.
5 // This source file is licensed as described in the file COPYING, which
6 // you should have received as part of this distribution.  The terms
7 // are also available at    
8 // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
9
10 function []=mtlb_format(_type,prec)
11 // Emulation function for format() Matlab function
12
13 rhs1=rhs
14 if rhs==2 then
15   fp=sci2exp('e')
16   rhs=rhs-1
17 else
18   fp=sci2exp('v')
19 end
20
21 d=5;
22 hex=%f;
23 bank=%f;
24 compact=%f;
25 loose=%f,
26 ratf=%f;
27 symb=%f;
28 unk=%f
29
30 if rhs==1 then
31   select _type
32   case "''short''" then
33     d=5
34   case "''long''" then
35     d=15
36   case "''hex''" then
37     hex=%t
38   case "''+''" then
39     symb=%t
40   case "''bank''" then
41     bank=%t
42   case "''compact''" then
43     compact=%t
44   case "''loose''" then
45     loose=%t
46   case "''rat''" then
47     ratf=%t
48   else
49     unk=%t
50   end
51 else
52   d=5
53 end
54
55
56 if unk then
57   error(msprintf(gettext("%s: Unknown type.\n"),"mtlb_format"))
58 elseif ratf|loose|compact|bank|hex then
59   warning(msprintf(gettext("%s: Unknown type ''%s'': IGNORED.\n"),"mtlb_format",_type));
60 else
61   if rhs1==1 then
62     format(d+1)
63   elseif rhs1==2 then
64     format(fp,d+1)
65   else
66     format("v",6)
67   end
68 end
69 endfunction