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 .
+
+## -*- texinfo -*-
+## @deftypefn {} {@var{retval} =} wavread (@var{input1}, @var{input2})
+##
+## @seealso{}
+## @end deftypefn
+
+## Author: jens
+## 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 .
+
+## -*- texinfo -*-
+## @deftypefn {} {@var{retval} =} wavwrite (@var{input1}, @var{input2})
+##
+## @seealso{}
+## @end deftypefn
+
+## Author: jens
+## Created: 2025-08-22
+
+function retval = wavwrite (y, fs, filename)
+ audiowrite(filename, y, fs)
+ retval = 0;
+endfunction
+