# HG changeset patch
# User jwe
# Date 948582643 0
# Node ID a0aef47b4b4d1a78ca0989dafc77c875c7a45ad3
# Parent  b3a16793a390f2a4da9970f4944dd89fc7a428a5
[project @ 2000-01-22 23:10:42 by jwe]

diff --git a/scripts/ChangeLog b/scripts/ChangeLog
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,9 @@
+2000-01-22  Michael Reifenberger <mike@Plaut.de>
+
+	* audio/saveaudio.m: Also accept files with .ul extension.
+	* audio/loadaudio.m: Ditto.
+	* audio/playaudio.m: Ditto.
+
 2000-01-19  John W. Eaton  <jwe@bevo.che.wisc.edu>
 
 	* statistics/distributions/beta_cdf.m: Texinfoize doc string.
diff --git a/scripts/audio/loadaudio.m b/scripts/audio/loadaudio.m
--- a/scripts/audio/loadaudio.m
+++ b/scripts/audio/loadaudio.m
@@ -62,7 +62,8 @@
     else
       [X, c] = fread (num, inf, "short");
     endif
-  elseif (strcmp (ext, "mu") || strcmp (ext, "au") || strcmp (ext, "snd"))
+  elseif (strcmp (ext, "mu") || strcmp (ext, "au")
+	  || strcmp (ext, "snd") || strcmp(ext, "ul"))
     [Y, c] = fread (num, inf, "uchar");
     ## remove file header
     m = max (find (Y(1:64) == 0));
diff --git a/scripts/audio/playaudio.m b/scripts/audio/playaudio.m
--- a/scripts/audio/playaudio.m
+++ b/scripts/audio/playaudio.m
@@ -65,7 +65,8 @@
     endif
     if (strcmp (ext, "lin") || strcmp (ext, "raw"))
       system (sprintf ("cat %s > /dev/dsp", name));
-    elseif (strcmp (ext, "mu") || strcmp (ext, "au") || strcmp (ext, "snd"))
+    elseif (strcmp (ext, "mu") || strcmp (ext, "au")
+	    || strcmp (ext, "snd") || strcmp (ext, "ul"))
       system (sprintf ("cat %s > /dev/audio", name));
     else
       error ("playaudio does not support given extension");
diff --git a/scripts/audio/saveaudio.m b/scripts/audio/saveaudio.m
--- a/scripts/audio/saveaudio.m
+++ b/scripts/audio/saveaudio.m
@@ -75,7 +75,8 @@
     else
       c = fwrite (num, X, "short");
     endif
-  elseif (strcmp (ext, "mu") || strcmp (ext, "au") || strcmp (ext, "snd"))
+  elseif (strcmp (ext, "mu") || strcmp (ext, "au")
+	  || strcmp (ext, "snd") || strcmp (ext, "ul"))
     Y = lin2mu (X);
     c = fwrite (num, Y, "uchar");
   else