summaryrefslogtreecommitdiff
path: root/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2COpenFileRead.sci
blob: 4d93876f56ed2ea31d6a9df0471194ad2b7c9844 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
function fidnumber = SCI2COpenFileRead(filename)
// function fidnumber = SCI2COpenFileRead(filename)
// --------------------------------------------------------------------------------
//
// Status:
// 27-Oct-2007 -- Raffaele Nutricato: Author.
//
// Copyright 2007 Raffaele Nutricato.
// Contact: raffaele.nutricato@tiscali.it
// -----------------------------------------------------------------

SCI2CNInArgCheck(argn(2),1,1);

[fidnumber,fiderror] = mopen(filename,'r'); 
if (fiderror < 0)
   SCI2Cerror(['Cannot open (in read mode): '+filename]);
end

endfunction