Mercurial > octave-nkf

changeset 13001:18cdf6479818

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
wavread: allow files with incomplete final samples * wavread.m: Compute length using idivide.
author Hannes Müller <h.c.f.mueller@gmx.de>
date Wed, 24 Aug 2011 14:06:14 -0400
parents c91bd3f10bec
children ad59cda5015c
files scripts/audio/wavread.m
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/audio/wavread.m	Wed Aug 24 12:22:42 2011 -0400
+++ b/scripts/audio/wavread.m	Wed Aug 24 14:06:14 2011 -0400
@@ -155,7 +155,7 @@
 
   ## Parse arguments.
   if (nargin == 1)
-    length = 8 * data_size / bits_per_sample;
+    length = idivide (8 * data_size, bits_per_sample);
   else
     nparams = numel (param);
     if (nparams == 1)
@@ -170,7 +170,8 @@
     elseif (nparams == 4 && char (param) == "size")
       ## Size of the file is requested.
       fclose (fid);
-      y = [data_size/channels/(bits_per_sample/8), channels];
+      tmp = idivide (8 * data_size, channels * bits_per_sample);
+      y = [tmp, channels];
       return;
     else
       fclose (fid);