# HG changeset patch
# User Hannes Müller <h.c.f.mueller@gmx.de>
# Date 1314209174 14400
# Node ID 18cdf6479818eafeebfc02bf9dfe75602108e895
# Parent  c91bd3f10bec4c2a5e8014344132be22a7141aaa
wavread: allow files with incomplete final samples

* wavread.m: Compute length using idivide.

diff -r c91bd3f10bec -r 18cdf6479818 scripts/audio/wavread.m
--- 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);