e6ccb09a0d14737c3e841c3fbab9df13ae02059d
[scilab.git] / scilab / modules / compatibility_functions / macros / mtlb_fwrite.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) 2002-2004 - INRIA - Vincent COUVERT
3 // Copyright (C) ???? - INRIA - Serge STEER
4 //
5 // This file must be used under the terms of the CeCILL.
6 // This source file is licensed as described in the file COPYING, which
7 // you should have received as part of this distribution.  The terms
8 // are also available at
9 // http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
10
11 function count=mtlb_fwrite(fid,a,prec)
12     // Emulation function for fwrite() Matlab function
13
14     prectbl=["c"  "char"    "char"
15     "?"  "schar"   "signed char"
16     "s"  "short"   "short"
17     "l"  "int"     "int"
18     "l"  "long"    "long"
19     "f"  "float"   "float"
20     "d"  "double"  "double"
21     "uc" "uchar"   "unsigned char"
22     "us" "ushort"  "unsigned short"
23     "ul" "uint"    "unsigned int"
24     "ul" "ulong"   "unsigned long"
25     "c"  "char"    "char*1"
26     "f"  "float32" "real*4"
27     "d"  "float64" "real*8"
28     "c"  "int8"    "integer*1"
29     "s"  "int16"   "integer*2"
30     "l"  "int32"   "integer*4"
31     "?"  ""        "integer*8"
32     "?"  "intN"    ""
33     "?"  "uintN"   ""         ]
34
35     [lhs,rhs]=argn(0)
36     if rhs<3 then prec="uchar";end
37
38     [l,k]=find(prec==prectbl)
39     if l==[] then
40         error(msprintf(gettext("%s: The format ''%s'' is unknown.\n"),"mtlb_fwrite",prec));
41     end
42     Prec=prectbl(l,1)
43     if Prec=="?" then
44         error(msprintf(gettext("%s: The format ''%s'' is not yet handled.\n"),"mtlb_fwrite",prec));
45     end
46     mput(a,Prec,fid)
47     count=size(a,"*")
48
49 endfunction