From dced0e2563373e80ec8534a5531e4b6a463f6f68 Mon Sep 17 00:00:00 2001
From: Jens Ahrensfeld <jens@jayfield.org>
Date: Sun, 26 Jul 2026 21:41:38 +0200
Subject: [PATCH] commit stale changes

---
 common/io/wavread.m  | 28 ++++++++++++++++++++++++++++
 common/io/wavw16.m   |  8 ++++----
 common/io/wavwrite.m | 29 +++++++++++++++++++++++++++++
 3 files changed, 61 insertions(+), 4 deletions(-)
 create mode 100644 common/io/wavread.m
 create mode 100644 common/io/wavwrite.m

diff --git a/common/io/wavread.m b/common/io/wavread.m
new file mode 100644
index 0000000..995523c
--- /dev/null
+++ b/common/io/wavread.m
@@ -0,0 +1,28 @@
+## Copyright (C) 2025 jens
+##
+## This program is free software: you can redistribute it and/or modify
+## it under the terms of the GNU General Public License as published by
+## the Free Software Foundation, either version 3 of the License, or
+## (at your option) any later version.
+##
+## This program is distributed in the hope that it will be useful,
+## but WITHOUT ANY WARRANTY; without even the implied warranty of
+## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+## GNU General Public License for more details.
+##
+## You should have received a copy of the GNU General Public License
+## along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+## -*- texinfo -*-
+## @deftypefn {} {@var{retval} =} wavread (@var{input1}, @var{input2})
+##
+## @seealso{}
+## @end deftypefn
+
+## Author: jens <jens@phobos>
+## Created: 2025-08-22
+
+function retval = wavread (filename)
+  retval = audioread(filename)
+endfunction
+
diff --git a/common/io/wavw16.m b/common/io/wavw16.m
index 7ae8875..e4c4b50 100755
--- a/common/io/wavw16.m
+++ b/common/io/wavw16.m
@@ -7,7 +7,7 @@ function wavw16(waveData,sRate,wavefile)
 %       y           The sampled data to save (8 bit max)
 %       Fs          The rate at which the data was sampled
 %       wavefile    A string containing the name of the .WAV file to create
-%               
+%
 %   Note: WAVWRITE will create an 8-bit, simgle channel wave file. Non 8-bit
 %   sample data will be truncated.
 %
@@ -18,7 +18,7 @@ function wavw16(waveData,sRate,wavefile)
 if nargin~=3
 	error('WAVWRITE needs three arguments!');
 end
-if isstr(waveData) %old symtax, reorder args
+if ischar(waveData) %old symtax, reorder args
    tmp = waveData;
    waveData = wavefile;
    wavefile = sRate;
@@ -46,7 +46,7 @@ if fid ~= -1
 	fwrite(fid,'fmt ','uchar');
 	fwrite(fid,16,'ulong');
 
-	fwrite(fid,1,'ushort');         % PCM format 
+	fwrite(fid,1,'ushort');         % PCM format
 	fwrite(fid,1,'ushort');         % 1 channel
 	fwrite(fid,sRate,'ulong');      % samples per second
 	fwrite(fid,2*sRate,'ulong');      % average bytes per second
@@ -59,7 +59,7 @@ if fid ~= -1
 	fwrite(fid,2*nsamples,'ulong');
 	fwrite(fid,waveData,'short');
 
-	if ((ceil(nsamples/2))~=(nsamples/2)) 
+	if ((ceil(nsamples/2))~=(nsamples/2))
 		fwrite(fid,0,'short');
 	end;
 	fclose(fid);
diff --git a/common/io/wavwrite.m b/common/io/wavwrite.m
new file mode 100644
index 0000000..78ff376
--- /dev/null
+++ b/common/io/wavwrite.m
@@ -0,0 +1,29 @@
+## Copyright (C) 2025 jens
+##
+## This program is free software: you can redistribute it and/or modify
+## it under the terms of the GNU General Public License as published by
+## the Free Software Foundation, either version 3 of the License, or
+## (at your option) any later version.
+##
+## This program is distributed in the hope that it will be useful,
+## but WITHOUT ANY WARRANTY; without even the implied warranty of
+## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+## GNU General Public License for more details.
+##
+## You should have received a copy of the GNU General Public License
+## along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+## -*- texinfo -*-
+## @deftypefn {} {@var{retval} =} wavwrite (@var{input1}, @var{input2})
+##
+## @seealso{}
+## @end deftypefn
+
+## Author: jens <jens@phobos>
+## Created: 2025-08-22
+
+function retval = wavwrite (y, fs, filename)
+  audiowrite(filename, y, fs)
+  retval = 0;
+endfunction
+