fprintf, fscanf & sscanf: Clearly tag them as obsolete
[scilab.git] / scilab / modules / fileio / macros / fprintf.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) XXXX-2008 - INRIA
3 // Copyright (C) 2009-2011 - DIGITEO - Allan CORNET
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-en.txt
10
11
12 function fprintf(fil, frmt, varargin)
13 // fprintf - Emulator of C language fprintf
14 //
15
16   warnobsolete("mfprintf","5.5.0");
17
18   [lhs, rhs] = argn(0);
19   if rhs < 2 then
20     error(999, msprintf(gettext("%s: Wrong number of input argument(s).\n"), "fprintf"));
21   end
22
23   if (type(frmt) <> 10) then
24     error(999, msprintf(gettext("%s: Wrong type for input argument #%d: A String expected.\n"),"fprintf",2));
25   end
26   
27   if size(frmt,"*")<>1 then
28       error(999, msprintf(gettext("%s: Wrong size for input argument #%d: A String expected.\n"),"fprintf",2));
29   end
30   
31   if (type(fil) == 1) then
32   
33     if size(fil,"*")<>1 then
34       error(999, msprintf(gettext("%s: Wrong size for input argument #%d: A file descriptor expected.\n"),"fprintf",1));
35     end
36     
37     [units,typ] = file();
38     k = find( units == fil );
39     if ((k == []) & (fil <> 0)) then
40       error(999, msprintf(gettext("%s: Wrong value for input argument #%d: A valid file descriptor expected.\n"),"fprintf",1));
41     else
42       if ( typ(k) == 'F' ) then
43         write(fil,sprintf(frmt,varargin(:)),'(a)')
44       else // C Format
45         mfprintf(fil,frmt,varargin(:))
46       end
47     end
48
49   else
50   
51      if (type(fil) == 10) then
52
53        if size(fil,"*")<>1 then
54          error(999, msprintf(gettext("%s: Wrong size for input argument #%d: A filename expected.\n")),"fprintf",1);
55        end
56        
57        [units, typ, filnams] = file();
58        k = find( filnams == fil );
59        if (k == []) then
60          fd = mopen(fil,'at');
61          mfprintf(fd,frmt,varargin(:))
62        else
63          if ( typ(k) == 'F' ) then
64            write(units(k),sprintf(frmt,varargin(:)),'(a)')
65          else
66            mfprintf(units(k),frmt,varargin(:))
67          end
68          
69        end
70      else
71        error(999, msprintf(gettext("%s: Wrong type for input argument #%d: A filename or file descriptor expected.\n"),"fprintf",1));
72      end
73      
74   end
75
76 endfunction