git.gag.com Git - debian/gnuradio/blob - gnuradio-core/src/utils/read_short_binary.m

   1 %
   2 % Copyright 2001 Free Software Foundation, Inc.
   3 %
   4 % This file is part of GNU Radio
   5 %
   6 % GNU Radio is free software; you can redistribute it and/or modify
   7 % it under the terms of the GNU General Public License as published by
   8 % the Free Software Foundation; either version 2, or (at your option)
   9 % any later version.
  10 %
  11 % GNU Radio is distributed in the hope that it will be useful,
  12 % but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 % GNU General Public License for more details.
  15 %
  16 % You should have received a copy of the GNU General Public License
  17 % along with GNU Radio; see the file COPYING.  If not, write to
  18 % the Free Software Foundation, Inc., 51 Franklin Street,
  19 % Boston, MA 02110-1301, USA.
  20 %
  21
  22 function v = read_short_binary (filename, count)
  23
  24   %% usage: read_short_binary (filename, [count])
  25   %%
  26   %%  open filename and return the contents, treating them as
  27   %%  signed short integers
  28   %%
  29
  30   m = nargchk (1,2,nargin);
  31   if (m)
  32     usage (m);
  33   end
  34
  35   if (nargin < 2)
  36     count = Inf;
  37   end
  38
  39   f = fopen (filename, 'rb');
  40   if (f < 0)
  41     v = 0;
  42   else
  43     v = fread (f, count, 'short');
  44     fclose (f);
  45   end