/usr/share/freemat/toolbox/io/rawread.m is in freemat-data 4.0-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 | % RAWREAD RAWREAD Read N-dimensional Array From File
%
% Usage
%
% The syntax for rawread is
%
% function x = rawread(fname,size,precision,byteorder)
%
% where fname is the name of the file to read from,
% and size is an n-dimensional vector that stores the
% size of the array in each dimension. The argument precision
% is the type of the data to read in:
% - 'uint8','uchar','unsigned char' for unsigned, 8-bit integers
%
% - 'int8','char','integer*1' for signed, 8-bit integers
%
% - 'uint16','unsigned short' for unsigned, 16-bit integers
%
% - 'int16','short','integer*2' for signed, 16-bit integers
%
% - 'uint32','unsigned int' for unsigned, 32-bit integers
%
% - 'int32','int','integer*4' for signed, 32-bit integers
%
% - 'uint64','unsigned int' for unsigned, 64-bit integers
%
% - 'int64','int','integer*8' for signed, 64-bit integers
%
% - 'single','float32','float','real*4' for 32-bit floating point
%
% - 'double','float64','real*8' for 64-bit floating point
%
% - 'complex','complex*8' for 64-bit complex floating point (32 bits
% for the real and imaginary part).
%
% - 'dcomplex','complex*16' for 128-bit complex floating point (64
% bits for the real and imaginary part).
%
% As a special feature, one of the size elements can be 'inf',
% in which case, the largest possible array is read in.
% If byteorder is left unspecified, the file is assumed to be
% of the same byte-order as the machine FreeMat is running on.
% If you wish to force a particular byte order, specify the byteorder
% argument as
% - 'le','ieee-le','little-endian','littleEndian','little'
%
% - 'be','ieee-be','big-endian','bigEndian','big'
%
% Copyright (c) 2002-2006 Samit Basu
% Licensed under the GPL
function x = rawread(fname,size,precision,byteorder)
try
if (isset('byteorder'))
fp = fopen(fname,'rb',byteorder);
else
fp = fopen(fname,'rb');
end
x = fread(fp,size,precision);
fclose(fp);
catch
error(['Unable to read file ' fname ' in function rawread']);
end
|