freemat-data 4.0-5 / usr / share / freemat / toolbox / io / rawwrite.m

% RAWWRITE RAWWRITE Write N-dimensional Array From File
% 
% Usage
% 
% The syntax for rawwrite is
% 
%    function rawwrite(fname,x,byteorder)
% 
% where fname is the name of the file to write to, and the
% (numeric) array x is writen to the file in its native
% type (e.g. if x is of type int16, then it will be written
% to the file as 16-bit signed integers.  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'
% 

% Contributed by Bruno DeMan
% Licensed under the GPL

function rawwrite(fname,x,byteorder)
  try 
    if (isset('byteorder'))
      fp = fopen(fname,'wb',byteorder);
    else
      fp = fopen(fname,'wb');
    end
    fwrite(fp,x);
    fclose(fp);
  catch
    error(['Unable to write file ' fname ' in function rawwrite']);
  end