octave: libinterp/dldfcn/audiodevinfo.cc annotate

annotate libinterp/dldfcn/audiodevinfo.cc @ 27882:65a54ab6ceaa

Workaround for a bug in PortAudio 8-bit recording (bug #44305). Detect 8-bit format and call PortAudio in 16-bit format instead, and then scale to 8-bit. * audiodevinfo.cc (audiorecorder): Add new member function get_sampleFormat. * audiodevinfo.cc (audiorecorder::get_sampleFormat): New member function. * audiodevinfo.cc (octave_record_callback, portaudio_record_callback): Correct text in error() meessage. Use new get_sampleFormat to find number of bits in requested. Detect 16-bit format where number of bits is 8 and use special case code to discard lower 8 bits of recorded data and then scale to 8-bits.

author	Lars Kindermann <lars.kindermann@reglos.de>
date	Sun, 24 Nov 2019 12:54:59 +0100
parents	a595c22464e4
children	8675d88a0e26

rev	line source
19500 8bb399569393 Add Octave copyright header block to audio project files Mike Miller <mtmiller@ieee.org> parents: 19498 diff changeset	1 /*
8bb399569393 Add Octave copyright header block to audio project files Mike Miller <mtmiller@ieee.org> parents: 19498 diff changeset	2
26376 00f796120a6d maint: Update copyright dates in all source files. John W. Eaton <jwe@octave.org> parents: 26219 diff changeset	3 Copyright (C) 2013-2019 Vytautas Jančauskas
19500 8bb399569393 Add Octave copyright header block to audio project files Mike Miller <mtmiller@ieee.org> parents: 19498 diff changeset	4
8bb399569393 Add Octave copyright header block to audio project files Mike Miller <mtmiller@ieee.org> parents: 19498 diff changeset	5 This file is part of Octave.
8bb399569393 Add Octave copyright header block to audio project files Mike Miller <mtmiller@ieee.org> parents: 19498 diff changeset	6
24534 194eb4bd202b maint: Update punctuation for GPL v3 license text. Rik <rik@octave.org> parents: 23795 diff changeset	7 Octave is free software: you can redistribute it and/or modify it
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	8 under the terms of the GNU General Public License as published by
24534 194eb4bd202b maint: Update punctuation for GPL v3 license text. Rik <rik@octave.org> parents: 23795 diff changeset	9 the Free Software Foundation, either version 3 of the License, or
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	10 (at your option) any later version.
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	11
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	12 Octave is distributed in the hope that it will be useful, but
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	13 WITHOUT ANY WARRANTY; without even the implied warranty of
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	15 GNU General Public License for more details.
19500 8bb399569393 Add Octave copyright header block to audio project files Mike Miller <mtmiller@ieee.org> parents: 19498 diff changeset	16
8bb399569393 Add Octave copyright header block to audio project files Mike Miller <mtmiller@ieee.org> parents: 19498 diff changeset	17 You should have received a copy of the GNU General Public License
8bb399569393 Add Octave copyright header block to audio project files Mike Miller <mtmiller@ieee.org> parents: 19498 diff changeset	18 along with Octave; see the file COPYING. If not, see
24534 194eb4bd202b maint: Update punctuation for GPL v3 license text. Rik <rik@octave.org> parents: 23795 diff changeset	19 <https://www.gnu.org/licenses/>.
19500 8bb399569393 Add Octave copyright header block to audio project files Mike Miller <mtmiller@ieee.org> parents: 19498 diff changeset	20
8bb399569393 Add Octave copyright header block to audio project files Mike Miller <mtmiller@ieee.org> parents: 19498 diff changeset	21 */
8bb399569393 Add Octave copyright header block to audio project files Mike Miller <mtmiller@ieee.org> parents: 19498 diff changeset	22
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	23 #if defined (HAVE_CONFIG_H)
21301 40de9f8f23a6 Use '#include "config.h"' rather than <config.h>. Rik <rik@octave.org> parents: 21200 diff changeset	24 # include "config.h"
19501 1f551d169db2 Include config.h in audio project source files Mike Miller <mtmiller@ieee.org> parents: 19500 diff changeset	25 #endif
1f551d169db2 Include config.h in audio project source files Mike Miller <mtmiller@ieee.org> parents: 19500 diff changeset	26
21912 d92dcbcd7691 prefer C++ wrappers for C standard headers in C++ code John W. Eaton <jwe@octave.org> parents: 21743 diff changeset	27 #include <cstdint>
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	28
23024 a6a7b054e4ba Rationalize #includes in libinterp/dldfcn directory. Rik <rik@octave.org> parents: 22860 diff changeset	29 #include <algorithm>
a6a7b054e4ba Rationalize #includes in libinterp/dldfcn directory. Rik <rik@octave.org> parents: 22860 diff changeset	30 #include <ostream>
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	31 #include <string>
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	32 #include <vector>
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	33
23024 a6a7b054e4ba Rationalize #includes in libinterp/dldfcn directory. Rik <rik@octave.org> parents: 22860 diff changeset	34 #include "Matrix.h"
19556 d7057df2968e use existing function to determine endianness in audiodevinfo.cc John W. Eaton <jwe@octave.org> parents: 19555 diff changeset	35 #include "mach-info.h"
23024 a6a7b054e4ba Rationalize #includes in libinterp/dldfcn directory. Rik <rik@octave.org> parents: 22860 diff changeset	36 #include "oct-locbuf.h"
a6a7b054e4ba Rationalize #includes in libinterp/dldfcn directory. Rik <rik@octave.org> parents: 22860 diff changeset	37 #include "quit.h"
a6a7b054e4ba Rationalize #includes in libinterp/dldfcn directory. Rik <rik@octave.org> parents: 22860 diff changeset	38 #include "unwind-prot.h"
a6a7b054e4ba Rationalize #includes in libinterp/dldfcn directory. Rik <rik@octave.org> parents: 22860 diff changeset	39
a6a7b054e4ba Rationalize #includes in libinterp/dldfcn directory. Rik <rik@octave.org> parents: 22860 diff changeset	40 #include "Cell.h"
19511 19f75d156ffe don't include oct.h in Octave source files John W. Eaton <jwe@octave.org> parents: 19510 diff changeset	41 #include "defun-dld.h"
19f75d156ffe don't include oct.h in Octave source files John W. Eaton <jwe@octave.org> parents: 19510 diff changeset	42 #include "error.h"
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	43 #include "errwarn.h"
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	44 #include "interpreter.h"
23024 a6a7b054e4ba Rationalize #includes in libinterp/dldfcn directory. Rik <rik@octave.org> parents: 22860 diff changeset	45 #include "oct-map.h"
19511 19f75d156ffe don't include oct.h in Octave source files John W. Eaton <jwe@octave.org> parents: 19510 diff changeset	46 #include "ov-int32.h"
23024 a6a7b054e4ba Rationalize #includes in libinterp/dldfcn directory. Rik <rik@octave.org> parents: 22860 diff changeset	47 #include "ov.h"
a6a7b054e4ba Rationalize #includes in libinterp/dldfcn directory. Rik <rik@octave.org> parents: 22860 diff changeset	48 #include "ovl.h"
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	49 #include "parse.h"
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	50
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	51 #if defined (HAVE_PORTAUDIO)
19526 7f271cef5850 protect all portaudio and sndfile dependent code with #ifdefs John W. Eaton <jwe@octave.org> parents: 19519 diff changeset	52
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	53 #include <portaudio.h>
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	54
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	55 PaSampleFormat
36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	56 bits_to_format (int bits)
19473 2e174b5e7703 Fix audiodevinfo, audioinfo, audioread and audiowrite build process Vytautas Jančauskas <unaudio@gmail.com> parents: 19472 diff changeset	57 {
2e174b5e7703 Fix audiodevinfo, audioinfo, audioread and audiowrite build process Vytautas Jančauskas <unaudio@gmail.com> parents: 19472 diff changeset	58 if (bits == 8)
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	59 return paInt8;
19473 2e174b5e7703 Fix audiodevinfo, audioinfo, audioread and audiowrite build process Vytautas Jančauskas <unaudio@gmail.com> parents: 19472 diff changeset	60 else if (bits == 16)
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	61 return paInt16;
19473 2e174b5e7703 Fix audiodevinfo, audioinfo, audioread and audiowrite build process Vytautas Jančauskas <unaudio@gmail.com> parents: 19472 diff changeset	62 else if (bits == 24)
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	63 return paInt24;
19473 2e174b5e7703 Fix audiodevinfo, audioinfo, audioread and audiowrite build process Vytautas Jančauskas <unaudio@gmail.com> parents: 19472 diff changeset	64 else if (bits == 32)
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	65 return paInt32;
19473 2e174b5e7703 Fix audiodevinfo, audioinfo, audioread and audiowrite build process Vytautas Jančauskas <unaudio@gmail.com> parents: 19472 diff changeset	66 else if (bits == -1)
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	67 return paFloat32;
36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	68 else
36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	69 return 0;
19473 2e174b5e7703 Fix audiodevinfo, audioinfo, audioread and audiowrite build process Vytautas Jančauskas <unaudio@gmail.com> parents: 19472 diff changeset	70 }
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	71
19526 7f271cef5850 protect all portaudio and sndfile dependent code with #ifdefs John W. Eaton <jwe@octave.org> parents: 19519 diff changeset	72 #endif
7f271cef5850 protect all portaudio and sndfile dependent code with #ifdefs John W. Eaton <jwe@octave.org> parents: 19519 diff changeset	73
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	74 DEFUN_DLD (audiodevinfo, args, ,
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	75 doc: /* -- texinfo --
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	76 @deftypefn {} {@var{devinfo} =} audiodevinfo ()
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	77
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	78 @deftypefnx {} {@var{devs} =} audiodevinfo (@var{io})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	79 @deftypefnx {} {@var{name} =} audiodevinfo (@var{io}, @var{id})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	80 @deftypefnx {} {@var{id} =} audiodevinfo (@var{io}, @var{name})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	81 @deftypefnx {} {@var{id} =} audiodevinfo (@var{io}, @var{rate}, @var{bits}, @var{chans})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	82
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	83 @deftypefnx {} {@var{supports} =} audiodevinfo (@var{io}, @var{id}, @var{rate}, @var{bits}, @var{chans})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	84
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	85 Return a structure describing the available audio input and output devices.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	86
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	87 The @var{devinfo} structure has two fields @qcode{"input"} and
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	88 @qcode{"output"}. The value of each field is a structure array with
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	89 fields @qcode{"Name"}, @nospell{"DriverVersion"} and @qcode{"ID"}
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	90 describing an audio device.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	91
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	92 If the optional argument @var{io} is 1, return information about input
23362 ffbeda5a6502 * audiodevinfo (Faudiodevinfo): Improve doc string. John W. Eaton <jwe@octave.org> parents: 23282 diff changeset	93 devices only. If it is 0, return information about output devices
ffbeda5a6502 * audiodevinfo (Faudiodevinfo): Improve doc string. John W. Eaton <jwe@octave.org> parents: 23282 diff changeset	94 only. If @var{io} is the only argument supplied, return the number of
23567 71bfd507663c doc: Periodic spellcheck of documentation. Rik <rik@octave.org> parents: 23450 diff changeset	95 input or output devices available.
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	96
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	97 If the optional argument @var{id} is provided, return information about
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	98 the corresponding device.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	99
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	100 If the optional argument @var{name} is provided, return the id of the
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	101 named device.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	102
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	103 Given a sampling rate, bits per sample, and number of channels for an input
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	104 or output device, return the ID of the first device that supports playback
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	105 or recording using the specified parameters.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	106
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	107 If also given a device ID, return true if the device supports playback or
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	108 recording using those parameters.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	109 @end deftypefn */)
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	110 {
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	111 #if defined (HAVE_PORTAUDIO)
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	112
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	113 int nargin = args.length ();
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	114
20939 b17fda023ca6 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20868 diff changeset	115 if (nargin > 5)
b17fda023ca6 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20868 diff changeset	116 print_usage ();
b17fda023ca6 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20868 diff changeset	117
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	118 octave_scalar_map devinfo;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	119 octave_value_list input;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	120 octave_value_list output;
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	121
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	122 PaError err = Pa_Initialize ();
e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	123
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	124 if (err != paNoError)
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	125 error ("audiodevinfo: PortAudio initialization failed");
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	126
36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	127 int num_devices = Pa_GetDeviceCount ();
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	128
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	129 if (num_devices < 0)
23279 67d741321e21 allow skipping of tests based on run-time conditions John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	130 num_devices = 0;
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	131
36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	132 octave_idx_type numinput = 0, numoutput = 0;
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	133 for (int i = 0; i < num_devices; i++)
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	134 {
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	135 const PaDeviceInfo *device_info = Pa_GetDeviceInfo (i);
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	136
19573 2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	137 if (! device_info)
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	138 {
26148 8c72f0345ee8 maint: Silence compiler warnings about unused or too many parameters. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: 25910 diff changeset	139 warning_with_id ("Octave:invalid-audio-device",
8c72f0345ee8 maint: Silence compiler warnings about unused or too many parameters. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: 25910 diff changeset	140 "invalid audio device ID = %d", i);
19573 2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	141 continue;
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	142 }
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	143
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	144 if (device_info->maxInputChannels != 0)
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	145 numinput++;
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	146
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	147 if (device_info->maxOutputChannels != 0)
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	148 numoutput++;
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	149 }
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	150
36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	151 Cell input_name (dim_vector (1, numinput));
36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	152 Cell input_driver_version (dim_vector (1, numinput));
36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	153 Cell input_id (dim_vector (1, numinput));
36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	154 Cell output_name (dim_vector (1, numoutput));
36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	155 Cell output_driver_version (dim_vector (1, numoutput));
36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	156 Cell output_id (dim_vector (1, numoutput));
36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	157
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	158 octave_idx_type idx_i = 0, idx_o = 0;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	159 for (int i = 0; i < num_devices; i++)
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	160 {
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	161 const PaDeviceInfo *device_info = Pa_GetDeviceInfo (i);
19573 2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	162
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	163 if (! device_info)
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	164 {
26148 8c72f0345ee8 maint: Silence compiler warnings about unused or too many parameters. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: 25910 diff changeset	165 warning_with_id ("Octave:invalid-audio-device",
8c72f0345ee8 maint: Silence compiler warnings about unused or too many parameters. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: 25910 diff changeset	166 "invalid audio device ID = %d", i);
19573 2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	167 continue;
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	168 }
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	169
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	170 const PaHostApiInfo *api_info = Pa_GetHostApiInfo (device_info->hostApi);
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	171
23450 855122b993da maint: Wrap tertiary operator in parentheses "(COND ? x : y)". Rik <rik@octave.org> parents: 23449 diff changeset	172 const char *driver = (api_info ? api_info->name : "");
19573 2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	173
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	174 char name[128];
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	175 sprintf (name, "%s (%s)", device_info->name, driver);
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	176
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	177 if (device_info->maxInputChannels != 0)
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	178 {
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	179 input_name(idx_i) = name;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	180 input_driver_version(idx_i) = driver;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	181 input_id(idx_i) = i;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	182 idx_i++;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	183 }
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	184
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	185 if (device_info->maxOutputChannels != 0)
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	186 {
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	187 output_name(idx_o) = name;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	188 output_driver_version(idx_o) = driver;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	189 output_id(idx_o) = i;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	190 idx_o++;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	191 }
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	192 }
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	193
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	194 octave_map inputdev, outputdev;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	195 inputdev.setfield ("Name", input_name);
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	196 inputdev.setfield ("DriverVersion", input_driver_version);
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	197 inputdev.setfield ("ID", input_id);
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	198 outputdev.setfield ("Name", output_name);
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	199 outputdev.setfield ("DriverVersion", output_driver_version);
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	200 outputdev.setfield ("ID", output_id);
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	201 devinfo.setfield ("input", inputdev);
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	202 devinfo.setfield ("output", outputdev);
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	203
20939 b17fda023ca6 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20868 diff changeset	204 octave_value retval;
b17fda023ca6 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20868 diff changeset	205
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	206 // Return information about input and output audio devices and
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	207 // their properties.
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	208 if (nargin == 0)
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	209 retval = devinfo;
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	210 // Return the number of input or output devices
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	211 else if (nargin == 1)
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	212 {
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	213 if (args(0).int_value () == 0)
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	214 retval = numoutput;
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	215 else if (args(0).int_value () == 1)
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	216 retval = numinput;
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	217 else
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	218 error ("audiodevinfo: please specify 0 for output and 1 for input devices");
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	219 }
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	220 // Return device name when given id or id when given device name.
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	221 else if (nargin == 2)
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	222 {
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	223 bool found = false;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	224 int outin = args(0).int_value ();
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	225 if (args(1).is_string ())
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	226 {
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	227 if (outin == 0)
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	228 {
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	229 for (int i = 0; i < numoutput; i++)
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	230 {
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	231 if (output_name(i).string_value () == args(1).string_value ())
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	232 {
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	233 retval = output_id(i);
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	234 found = true;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	235 break;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	236 }
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	237 }
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	238 }
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	239 else if (outin == 1)
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	240 {
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	241 for (int i = 0; i < numinput; i++)
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	242 {
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	243 if (input_name(i).string_value () == args(1).string_value ())
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	244 {
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	245 retval = input_id(i);
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	246 found = true;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	247 break;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	248 }
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	249 }
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	250 }
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	251 else
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	252 error ("audiodevinfo: please specify 0 for output and 1 for input devices");
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	253 }
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	254 else
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	255 {
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	256 if (outin == 0)
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	257 {
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	258 for (int i = 0; i < numoutput; i++)
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	259 {
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	260 if (output_id(i).int_value () == args(1).int_value ())
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	261 {
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	262 retval = output_name(i);
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	263 found = true;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	264 break;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	265 }
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	266 }
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	267 }
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	268 else if (outin == 1)
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	269 {
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	270 for (int i = 0; i < numinput; i++)
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	271 {
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	272 if (input_id(i).int_value () == args(1).int_value ())
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	273 {
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	274 retval = input_name(i);
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	275 found = true;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	276 break;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	277 }
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	278 }
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	279 }
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	280 else
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	281 error ("audiodevinfo: please specify 0 for output and 1 for input devices");
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	282 }
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	283
19973 7aaf756b1532 use "!", not "not" John W. Eaton <jwe@octave.org> parents: 19861 diff changeset	284 if (! found)
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	285 error ("audiodevinfo: no device meeting the specified criteria found");
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	286 }
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	287 else if (nargin == 3)
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	288 {
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	289 // FIXME: what was supposed to happen here?
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	290 }
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	291 // Return the id of the first device meeting specified criteria.
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	292 else if (nargin == 4)
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	293 {
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	294 int io = args(0).int_value ();
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	295 int rate = args(1).int_value ();
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	296 int bits = args(2).int_value ();
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	297 int chans = args(3).int_value ();
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	298
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	299 for (int i = 0; i < num_devices; i++)
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	300 {
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	301 PaStreamParameters stream_parameters;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	302 stream_parameters.device = i;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	303 stream_parameters.channelCount = chans;
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	304 PaSampleFormat format = bits_to_format (bits);
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	305
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	306 if (format != 0)
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	307 stream_parameters.sampleFormat = format;
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	308 else
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	309 error ("audiodevinfo: no such bits per sample format");
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	310
19573 2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	311 const PaDeviceInfo *device_info = Pa_GetDeviceInfo (i);
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	312
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	313 if (! device_info)
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	314 {
26148 8c72f0345ee8 maint: Silence compiler warnings about unused or too many parameters. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: 25910 diff changeset	315 warning_with_id ("Octave:invalid-audio-device",
8c72f0345ee8 maint: Silence compiler warnings about unused or too many parameters. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: 25910 diff changeset	316 "invalid audio device ID = %d", i);
19573 2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	317 continue;
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	318 }
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	319
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	320 stream_parameters.suggestedLatency
19573 2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	321 = device_info->defaultLowInputLatency;
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	322
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	323 stream_parameters.hostApiSpecificStreamInfo = nullptr;
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	324
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	325 if (io == 0)
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	326 {
19573 2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	327 if (device_info->maxOutputChannels < chans)
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	328 continue;
36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	329
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	330 err = Pa_IsFormatSupported (nullptr, &stream_parameters, rate);
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	331
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	332 if (err == paFormatIsSupported)
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	333 {
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	334 retval = i;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	335 return retval;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	336 }
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	337 }
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	338 else if (io == 1)
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	339 {
19573 2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	340 if (device_info->maxInputChannels < chans)
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	341 continue;
36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	342
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	343 err = Pa_IsFormatSupported (&stream_parameters, nullptr, rate);
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	344 if (err == paFormatIsSupported)
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	345 {
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	346 retval = i;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	347 return retval;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	348 }
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	349 }
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	350 }
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	351 retval = -1;
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	352 }
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	353 // Check if given device supports specified playback or recording modes.
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	354 else if (nargin == 5)
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	355 {
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	356 int io = args(0).int_value ();
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	357 int id = args(1).int_value ();
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	358 int rate = args(2).int_value ();
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	359 int bits = args(3).int_value ();
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	360 int chans = args(4).int_value ();
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	361 PaStreamParameters stream_parameters;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	362 stream_parameters.device = id;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	363 stream_parameters.channelCount = chans;
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	364 PaSampleFormat format = bits_to_format (bits);
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	365 if (format != 0)
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	366 stream_parameters.sampleFormat = format;
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	367 else
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	368 error ("audiodevinfo: no such bits per sample format");
19573 2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	369
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	370 const PaDeviceInfo *device_info = Pa_GetDeviceInfo (id);
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	371
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	372 if (! device_info)
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	373 error ("audiodevinfo: invalid audio device ID = %d", id);
19573 2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	374
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	375 stream_parameters.suggestedLatency
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	376 = device_info->defaultLowInputLatency;
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	377
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	378 stream_parameters.hostApiSpecificStreamInfo = nullptr;
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	379 if (io == 0)
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	380 {
19573 2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	381 if (device_info->maxOutputChannels < chans)
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	382 {
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	383 retval = 0;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	384 return retval;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	385 }
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	386 err = Pa_IsFormatSupported (nullptr, &stream_parameters, rate);
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	387 if (err == paFormatIsSupported)
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	388 {
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	389 retval = 1;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	390 return retval;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	391 }
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	392 }
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	393 else if (io == 1)
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	394 {
19573 2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	395 if (device_info->maxInputChannels < chans)
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	396 {
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	397 retval = 0;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	398 return retval;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	399 }
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	400 err = Pa_IsFormatSupported (&stream_parameters, nullptr, rate);
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	401 if (err == paFormatIsSupported)
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	402 {
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	403 retval = 1;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	404 return retval;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	405 }
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	406 }
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	407 else
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	408 error ("audiodevinfo: please specify 0 for output and 1 for input devices");
66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	409
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	410 retval = 0;
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	411 }
20939 b17fda023ca6 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20868 diff changeset	412
b17fda023ca6 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20868 diff changeset	413 return retval;
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	414
19483 abde714a4f88 let audiodevinfo be built even when PortAudio is not present Vytautas Jančauskas <unaudio@gmail.com> parents: 19473 diff changeset	415 #else
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	416 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	417
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	418 err_disabled_feature ("audiodevinfo",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	419 "audio playback and recording through PortAudio");
19483 abde714a4f88 let audiodevinfo be built even when PortAudio is not present Vytautas Jančauskas <unaudio@gmail.com> parents: 19473 diff changeset	420 #endif
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	421 }
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	422
ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	423 /*
19528 4f615cd9a68d Use "testif HAVE_PORTAUDIO" for new audio function tests Andreas Weber <andy.weber.aw@gmail.com> parents: 19526 diff changeset	424 %!testif HAVE_PORTAUDIO
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	425 %! devinfo = audiodevinfo;
19509 2a16dac2176f fix audioplayer tests John W. Eaton <jwe@octave.org> parents: 19505 diff changeset	426 %! assert (rows (devinfo.input), 1);
2a16dac2176f fix audioplayer tests John W. Eaton <jwe@octave.org> parents: 19505 diff changeset	427 %! assert (rows (devinfo.output), 1);
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	428
19528 4f615cd9a68d Use "testif HAVE_PORTAUDIO" for new audio function tests Andreas Weber <andy.weber.aw@gmail.com> parents: 19526 diff changeset	429 %!testif HAVE_PORTAUDIO
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	430 %! devinfo = audiodevinfo;
19509 2a16dac2176f fix audioplayer tests John W. Eaton <jwe@octave.org> parents: 19505 diff changeset	431 %! nout = audiodevinfo (0);
2a16dac2176f fix audioplayer tests John W. Eaton <jwe@octave.org> parents: 19505 diff changeset	432 %! nin = audiodevinfo (1);
2a16dac2176f fix audioplayer tests John W. Eaton <jwe@octave.org> parents: 19505 diff changeset	433 %! assert (columns (devinfo.output), nout);
2a16dac2176f fix audioplayer tests John W. Eaton <jwe@octave.org> parents: 19505 diff changeset	434 %! assert (columns (devinfo.input), nin);
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	435
19528 4f615cd9a68d Use "testif HAVE_PORTAUDIO" for new audio function tests Andreas Weber <andy.weber.aw@gmail.com> parents: 19526 diff changeset	436 %!testif HAVE_PORTAUDIO
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	437 %! devinfo = audiodevinfo;
19509 2a16dac2176f fix audioplayer tests John W. Eaton <jwe@octave.org> parents: 19505 diff changeset	438 %! nout = audiodevinfo (0);
2a16dac2176f fix audioplayer tests John W. Eaton <jwe@octave.org> parents: 19505 diff changeset	439 %! nin = audiodevinfo (1);
2a16dac2176f fix audioplayer tests John W. Eaton <jwe@octave.org> parents: 19505 diff changeset	440 %! for i = 1:nout,
21580 ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21547 diff changeset	441 %! assert (devinfo.output(i).Name, audiodevinfo (0, devinfo.output(i).ID));
19509 2a16dac2176f fix audioplayer tests John W. Eaton <jwe@octave.org> parents: 19505 diff changeset	442 %! endfor
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	443 %! for i=1:nin,
21580 ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21547 diff changeset	444 %! assert (devinfo.input(i).Name, audiodevinfo (1, devinfo.input(i).ID));
19509 2a16dac2176f fix audioplayer tests John W. Eaton <jwe@octave.org> parents: 19505 diff changeset	445 %! endfor
19469 ea5c156aa804 audiodevinfo.cc: new file Vytautas Jančauskas <unaudio@gmail.com> parents: diff changeset	446
19528 4f615cd9a68d Use "testif HAVE_PORTAUDIO" for new audio function tests Andreas Weber <andy.weber.aw@gmail.com> parents: 19526 diff changeset	447 %!testif HAVE_PORTAUDIO
19503 36a26a131209 Apply Octave coding style to audio project additions Mike Miller <mtmiller@ieee.org> parents: 19501 diff changeset	448 %! devinfo = audiodevinfo;
19509 2a16dac2176f fix audioplayer tests John W. Eaton <jwe@octave.org> parents: 19505 diff changeset	449 %! nout = audiodevinfo (0);
2a16dac2176f fix audioplayer tests John W. Eaton <jwe@octave.org> parents: 19505 diff changeset	450 %! nin = audiodevinfo (1);
2a16dac2176f fix audioplayer tests John W. Eaton <jwe@octave.org> parents: 19505 diff changeset	451 %! for i = 1:nout,
21580 ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21547 diff changeset	452 %! assert (devinfo.output(i).ID, audiodevinfo (0, devinfo.output(i).Name));
19509 2a16dac2176f fix audioplayer tests John W. Eaton <jwe@octave.org> parents: 19505 diff changeset	453 %! endfor
2a16dac2176f fix audioplayer tests John W. Eaton <jwe@octave.org> parents: 19505 diff changeset	454 %! for i = 1:nin,
21580 ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21547 diff changeset	455 %! assert (devinfo.input(i).ID, audiodevinfo (1, devinfo.input(i).Name));
19509 2a16dac2176f fix audioplayer tests John W. Eaton <jwe@octave.org> parents: 19505 diff changeset	456 %! endfor
19500 8bb399569393 Add Octave copyright header block to audio project files Mike Miller <mtmiller@ieee.org> parents: 19498 diff changeset	457 */
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	458
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	459 #if defined (HAVE_PORTAUDIO)
19526 7f271cef5850 protect all portaudio and sndfile dependent code with #ifdefs John W. Eaton <jwe@octave.org> parents: 19519 diff changeset	460
19561 0d3e67f27d57 * audiodevinfo.cc: Avoid conflict with enum names. John Donoghue <john.donoghue@ieee.org> parents: 19560 diff changeset	461 enum audio_type { TYPE_INT8, TYPE_UINT8, TYPE_UINT16, TYPE_DOUBLE };
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	462
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	463 class audioplayer : public octave_base_value
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	464 {
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	465 public:
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	466 audioplayer (void);
19570 62ca016dbb2a audiodevinfo.cc: Stop playback in audioplayers destructor (bug ##43994) Andreas Weber <andy.weber.aw@gmail.com> parents: 19566 diff changeset	467 ~audioplayer (void);
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	468
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	469 // Overloaded base functions
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	470 double player_value (void) const { return 0; }
19512 a5eb03a7e2a5 eliminate unused variable and parameter warnings John W. Eaton <jwe@octave.org> parents: 19511 diff changeset	471 virtual double scalar_value (bool = false) const { return 0; }
21333 c4690d9ff566 avoid warnings about overloading virtual functions from a base class John W. Eaton <jwe@octave.org> parents: 21301 diff changeset	472 void print (std::ostream& os, bool pr_as_read_syntax = false);
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	473 void print_raw (std::ostream& os, bool pr_as_read_syntax) const;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	474
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	475 // Properties
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	476 bool is_constant (void) const { return true; }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	477 bool is_defined (void) const { return true; }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	478 bool print_as_scalar (void) const { return true; }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	479
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	480 void init (void);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	481 void init_fn (void);
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	482 void set_y (const octave_value& y);
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	483 void set_y (octave_function *fn);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	484 void set_y (std::string fn);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	485 Matrix& get_y (void);
19547 c5b8a91baec6 avoid unnecessary use of pointer in audio code John W. Eaton <jwe@octave.org> parents: 19544 diff changeset	486 RowVector get_left (void) const;
c5b8a91baec6 avoid unnecessary use of pointer in audio code John W. Eaton <jwe@octave.org> parents: 19544 diff changeset	487 RowVector get_right (void) const;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	488 void set_fs (int fs);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	489 int get_fs (void);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	490 void set_nbits (int nbits);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	491 int get_nbits (void);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	492 void set_id (int id);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	493 int get_id (void);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	494 int get_channels (void);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	495 audio_type get_type (void);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	496
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	497 void set_sample_number (unsigned int sample);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	498 unsigned int get_sample_number (void);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	499 unsigned int get_total_samples (void);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	500 void set_end_sample (unsigned int sample);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	501 unsigned int get_end_sample (void);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	502 void reset_end_sample (void);
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	503 void set_tag (const charMatrix& tag);
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	504 charMatrix get_tag (void);
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	505 void set_userdata (const octave_value& userdata);
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	506 octave_value get_userdata (void);
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23362 diff changeset	507 PaStream * get_stream (void);
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	508
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	509 void playblocking (void);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	510 void play (void);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	511 void pause (void);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	512 void resume (void);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	513 void stop (void);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	514 bool isplaying (void);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	515
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	516 octave_function *octave_callback_function;
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	517
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	518 private:
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	519 int id;
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	520 int fs;
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	521 int nbits;
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	522 int channels;
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	523 unsigned int sample_number;
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	524 unsigned int end_sample;
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	525 charMatrix tag;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	526 Matrix y;
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	527 octave_value userdata;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	528 RowVector left;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	529 RowVector right;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	530 PaStream *stream;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	531 PaStreamParameters output_parameters;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	532 audio_type type;
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	533
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	534 DECLARE_OV_TYPEID_FUNCTIONS_AND_DATA
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	535 };
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	536
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	537 DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (audioplayer, "audioplayer", "audioplayer");
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	538
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	539 static int
19512 a5eb03a7e2a5 eliminate unused variable and parameter warnings John W. Eaton <jwe@octave.org> parents: 19511 diff changeset	540 octave_play_callback (const void , void output, unsigned long frames,
a5eb03a7e2a5 eliminate unused variable and parameter warnings John W. Eaton <jwe@octave.org> parents: 19511 diff changeset	541 const PaStreamCallbackTimeInfo *,
a5eb03a7e2a5 eliminate unused variable and parameter warnings John W. Eaton <jwe@octave.org> parents: 19511 diff changeset	542 PaStreamCallbackFlags, void *data)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	543 {
19513 4cb4210bd392 use C++ style casts in audio code John W. Eaton <jwe@octave.org> parents: 19512 diff changeset	544 audioplayer player = static_cast<audioplayer > (data);
19551 e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	545
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	546 if (! player)
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	547 error ("audio player callback function called without player");
19551 e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	548
23075 4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23024 diff changeset	549 octave_value_list retval
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23024 diff changeset	550 = octave::feval (player->octave_callback_function,
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23024 diff changeset	551 ovl (static_cast<double> (frames)), 1);
19551 e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	552
20555 f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20232 diff changeset	553 if (retval.length () < 2)
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	554 error ("audio player callback function failed");
19551 e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	555
19555 9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	556 const Matrix sound = retval(0).matrix_value ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	557 int return_status = retval(1).int_value ();
19551 e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	558
20555 f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20232 diff changeset	559 if (frames - sound.rows () != 0 \|\| sound.columns () < 1
f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20232 diff changeset	560 \|\| sound.columns () > 2)
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	561 error ("audio player callback function failed");
19551 e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	562
19555 9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	563 // Don't multiply the audio data by scale_factor here. Although it
9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	564 // does move the operation outside of the loops below, it also causes
9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	565 // a second copy of the data array to be made.
9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	566
9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	567 const ColumnVector sound_l = sound.column (0);
19574 47d778e6a518 * audiodevinfo.cc: Minor style fixes. John W. Eaton <jwe@octave.org> parents: 19573 diff changeset	568 const ColumnVector sound_r = (sound.columns () == 1
47d778e6a518 * audiodevinfo.cc: Minor style fixes. John W. Eaton <jwe@octave.org> parents: 19573 diff changeset	569 ? sound_l : sound.column (1));
19551 e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	570
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	571 const double *p_l = sound_l.data ();
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	572 const double *p_r = sound_r.data ();
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	573
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	574 switch (player->get_nbits ())
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	575 {
19551 e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	576 case 8:
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	577 {
19557 182abae666ae * audiodevinfo.cc: Explicitly use std::pow. John W. Eaton <jwe@octave.org> parents: 19556 diff changeset	578 static double scale_factor = std::pow (2.0, 7) - 1.0;
19555 9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	579
19551 e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	580 int8_t buffer = static_cast<int8_t > (output);
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	581
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	582 for (unsigned long i = 0; i < frames; i++)
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	583 {
19555 9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	584 buffer[2i] = p_l[i] scale_factor;
9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	585 buffer[2i+1] = p_r[i] scale_factor;
19551 e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	586 }
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	587 }
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	588 break;
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	589
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	590 case 16:
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	591 {
19557 182abae666ae * audiodevinfo.cc: Explicitly use std::pow. John W. Eaton <jwe@octave.org> parents: 19556 diff changeset	592 static double scale_factor = std::pow (2.0, 15) - 1.0;
19555 9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	593
19551 e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	594 int16_t buffer = static_cast<int16_t > (output);
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	595
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	596 for (unsigned long i = 0; i < frames; i++)
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	597 {
19555 9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	598 buffer[2i] = p_l[i] scale_factor;
9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	599 buffer[2i+1] = p_r[i] scale_factor;
19551 e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	600 }
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	601 }
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	602 break;
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	603
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	604 case 24:
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	605 {
19557 182abae666ae * audiodevinfo.cc: Explicitly use std::pow. John W. Eaton <jwe@octave.org> parents: 19556 diff changeset	606 static double scale_factor = std::pow (2.0, 23) - 1.0;
19555 9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	607
21739 c4ab2e54f100 use namespace for oct_mach_info class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	608 static int big_endian = octave::mach_info::words_big_endian ();
19551 e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	609
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	610 uint8_t buffer = static_cast<uint8_t > (output);
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	611
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	612 for (unsigned long i = 0; i < frames; i++)
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	613 {
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	614 int32_t sample_l = p_l[i];
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	615 int32_t sample_r = p_r[i];
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	616
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	617 sample_l &= 0x00ffffff;
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	618 sample_r &= 0x00ffffff;
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	619
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	620 // FIXME: Would a mask work better?
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	621 uint8_t _sample_l = reinterpret_cast<uint8_t > (&sample_l);
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	622 uint8_t _sample_r = reinterpret_cast<uint8_t > (&sample_r);
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	623
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	624 unsigned long offset = i * 6;
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	625
19555 9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	626 buffer[offset+0] = _sample_l[0+big_endian] * scale_factor;
9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	627 buffer[offset+1] = _sample_l[1+big_endian] * scale_factor;
9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	628 buffer[offset+2] = _sample_l[2+big_endian] * scale_factor;
9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	629
9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	630 buffer[offset+3] = _sample_r[0+big_endian] * scale_factor;
9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	631 buffer[offset+4] = _sample_r[1+big_endian] * scale_factor;
9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	632 buffer[offset+5] = _sample_r[2+big_endian] * scale_factor;
19551 e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	633 }
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	634 }
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	635 break;
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	636
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	637 default:
e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	638 error ("invalid player bit depth in callback function");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	639 }
19551 e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	640
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	641 return return_status;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	642 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	643
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	644 static int
19512 a5eb03a7e2a5 eliminate unused variable and parameter warnings John W. Eaton <jwe@octave.org> parents: 19511 diff changeset	645 portaudio_play_callback (const void , void output, unsigned long frames,
a5eb03a7e2a5 eliminate unused variable and parameter warnings John W. Eaton <jwe@octave.org> parents: 19511 diff changeset	646 const PaStreamCallbackTimeInfo*,
a5eb03a7e2a5 eliminate unused variable and parameter warnings John W. Eaton <jwe@octave.org> parents: 19511 diff changeset	647 PaStreamCallbackFlags, void *data)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	648 {
19513 4cb4210bd392 use C++ style casts in audio code John W. Eaton <jwe@octave.org> parents: 19512 diff changeset	649 audioplayer player = static_cast<audioplayer > (data);
19548 7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	650
19551 e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	651 if (! player)
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	652 error ("audio player callback function called without player");
19551 e4bce89532bc improve error checking and efficiency of octave audio callback function John W. Eaton <jwe@octave.org> parents: 19550 diff changeset	653
19555 9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	654 // Don't multiply the audio data by scale_factor here. Although it
9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	655 // would move the operation outside of the loops below, it also causes
9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	656 // a second copy of the entire data array to be made when only a
19671 322d0fe84a8c Make audio buffer size dependent on sample rate Mike Miller <mtmiller@ieee.org> parents: 19598 diff changeset	657 // small portion (buffer_size elements) is usually needed for this
19555 9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	658 // callback.
9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	659
9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	660 const RowVector sound_l = player->get_left ();
9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	661 const RowVector sound_r = player->get_right ();
19548 7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	662
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	663 const double *pl = sound_l.data ();
19565 810cfb00b72b portaudio_play_callback: Fix stereo playback (bug #43965) Andreas Weber <andy.weber.aw@gmail.com> parents: 19561 diff changeset	664 const double *pr = sound_r.data ();
19548 7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	665
19561 0d3e67f27d57 * audiodevinfo.cc: Avoid conflict with enum names. John Donoghue <john.donoghue@ieee.org> parents: 19560 diff changeset	666 if (player->get_type () == TYPE_DOUBLE)
19548 7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	667 {
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	668 switch (player->get_nbits ())
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	669 {
19548 7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	670 case 8:
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	671 {
19557 182abae666ae * audiodevinfo.cc: Explicitly use std::pow. John W. Eaton <jwe@octave.org> parents: 19556 diff changeset	672 static double scale_factor = std::pow (2.0, 7) - 1.0;
19555 9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	673
19548 7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	674 int8_t buffer = static_cast<int8_t > (output);
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	675
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	676 for (unsigned long j = 0; j < frames; j++)
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	677 {
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	678 unsigned int sample_number = player->get_sample_number ();
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	679
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	680 if (sample_number >= player->get_end_sample ())
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	681 return paComplete;
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	682
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	683 unsigned long offset = j * 2;
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	684
19555 9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	685 buffer[offset+0] = pl[sample_number] * scale_factor;
9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	686 buffer[offset+1] = pr[sample_number] * scale_factor;
19548 7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	687
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	688 player->set_sample_number (sample_number + 1);
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	689 }
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	690 }
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	691 break;
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	692
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	693 case 16:
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	694 {
19557 182abae666ae * audiodevinfo.cc: Explicitly use std::pow. John W. Eaton <jwe@octave.org> parents: 19556 diff changeset	695 static double scale_factor = std::pow (2.0, 15) - 1.0;
19555 9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	696
19548 7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	697 int16_t buffer = static_cast<int16_t > (output);
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	698
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	699 for (unsigned long j = 0; j < frames; j++)
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	700 {
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	701 unsigned int sample_number = player->get_sample_number ();
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	702
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	703 if (sample_number >= player->get_end_sample ())
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	704 return paComplete;
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	705
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	706 unsigned long offset = j * 2;
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	707
19555 9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	708 buffer[offset+0] = pl[sample_number] * scale_factor;
9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	709 buffer[offset+1] = pr[sample_number] * scale_factor;
19548 7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	710
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	711 player->set_sample_number (sample_number + 1);
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	712 }
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	713 }
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	714 break;
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	715
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	716 case 24:
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	717 {
19557 182abae666ae * audiodevinfo.cc: Explicitly use std::pow. John W. Eaton <jwe@octave.org> parents: 19556 diff changeset	718 static double scale_factor = std::pow (2.0, 23) - 1.0;
19555 9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	719
21739 c4ab2e54f100 use namespace for oct_mach_info class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	720 static int big_endian = octave::mach_info::words_big_endian ();
19555 9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	721
19548 7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	722 uint8_t buffer = static_cast<uint8_t > (output);
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	723
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	724 for (unsigned long j = 0; j < frames; j++)
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	725 {
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	726 unsigned int sample_number = player->get_sample_number ();
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	727
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	728 if (sample_number >= player->get_end_sample ())
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	729 return paComplete;
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	730
19555 9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	731 int32_t sample_l = pl[sample_number] * scale_factor;
9bd2f0a07c95 improve performance of audio callback functions John W. Eaton <jwe@octave.org> parents: 19552 diff changeset	732 int32_t sample_r = pr[sample_number] * scale_factor;
19548 7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	733
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	734 sample_l &= 0x00ffffff;
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	735 sample_r &= 0x00ffffff;
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	736
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	737 // FIXME: Would a mask work better?
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	738 uint8_t _sample_l = reinterpret_cast<uint8_t > (&sample_l);
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	739 uint8_t _sample_r = reinterpret_cast<uint8_t > (&sample_r);
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	740
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	741 unsigned long offset = j * 6;
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	742
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	743 buffer[offset+0] = _sample_l[0+big_endian];
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	744 buffer[offset+1] = _sample_l[1+big_endian];
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	745 buffer[offset+2] = _sample_l[2+big_endian];
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	746
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	747 buffer[offset+3] = _sample_r[0+big_endian];
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	748 buffer[offset+4] = _sample_r[1+big_endian];
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	749 buffer[offset+5] = _sample_r[2+big_endian];
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	750
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	751 player->set_sample_number (sample_number + 1);
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	752 }
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	753 }
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	754 break;
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	755
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	756 default:
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	757 error ("invalid player bit depth in callback function");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	758 }
19548 7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	759 }
19561 0d3e67f27d57 * audiodevinfo.cc: Avoid conflict with enum names. John Donoghue <john.donoghue@ieee.org> parents: 19560 diff changeset	760 else if (player->get_type () == TYPE_INT8)
19548 7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	761 {
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	762 int8_t buffer = static_cast<int8_t > (output);
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	763
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	764 for (unsigned long j = 0; j < frames; j++)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	765 {
19548 7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	766 unsigned int sample_number = player->get_sample_number ();
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	767
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	768 if (sample_number >= player->get_end_sample ())
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	769 return paComplete;
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	770
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	771 unsigned long offset = j * 2;
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	772
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	773 buffer[offset+0] = pl[sample_number];
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	774 buffer[offset+1] = pr[sample_number];
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	775
7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	776 player->set_sample_number (sample_number + 1);
19550 0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	777 }
19543 5f313345912f avoid indexing before beginning of string John W. Eaton <jwe@octave.org> parents: 19528 diff changeset	778 }
19561 0d3e67f27d57 * audiodevinfo.cc: Avoid conflict with enum names. John Donoghue <john.donoghue@ieee.org> parents: 19560 diff changeset	779 else if (player->get_type () == TYPE_UINT8)
19550 0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	780 {
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	781 uint8_t buffer = static_cast<uint8_t > (output);
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	782
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	783 for (unsigned long j = 0; j < frames; j++)
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	784 {
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	785 unsigned int sample_number = player->get_sample_number ();
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	786
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	787 if (sample_number >= player->get_end_sample ())
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	788 return paComplete;
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	789
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	790 unsigned long offset = j * 2;
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	791
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	792 buffer[offset+0] = pl[sample_number];
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	793 buffer[offset+1] = pr[sample_number];
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	794
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	795 player->set_sample_number (sample_number + 1);
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	796 }
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	797 }
19561 0d3e67f27d57 * audiodevinfo.cc: Avoid conflict with enum names. John Donoghue <john.donoghue@ieee.org> parents: 19560 diff changeset	798 else if (player->get_type () == TYPE_UINT16)
19550 0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	799 {
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	800 int16_t buffer = static_cast<int16_t > (output);
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	801
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	802 for (unsigned long j = 0; j < frames; j++)
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	803 {
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	804 unsigned int sample_number = player->get_sample_number ();
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	805
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	806 if (sample_number >= player->get_end_sample ())
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	807 return paComplete;
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	808
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	809 unsigned long offset = j * 2;
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	810
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	811 buffer[offset+0] = pl[sample_number];
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	812 buffer[offset+1] = pr[sample_number];
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	813
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	814 player->set_sample_number (sample_number + 1);
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	815 }
0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	816 }
19548 7c0e20def8e3 improve efficiency of portaudio callback function John W. Eaton <jwe@octave.org> parents: 19547 diff changeset	817
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	818 return paContinue;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	819 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	820
19674 b3363c531662 Stop audioplayer and audiorecorder when done or interrupted Mike Miller <mtmiller@ieee.org> parents: 19673 diff changeset	821 static void
b3363c531662 Stop audioplayer and audiorecorder when done or interrupted Mike Miller <mtmiller@ieee.org> parents: 19673 diff changeset	822 safe_audioplayer_stop (audioplayer *player)
b3363c531662 Stop audioplayer and audiorecorder when done or interrupted Mike Miller <mtmiller@ieee.org> parents: 19673 diff changeset	823 {
b3363c531662 Stop audioplayer and audiorecorder when done or interrupted Mike Miller <mtmiller@ieee.org> parents: 19673 diff changeset	824 player->stop ();
b3363c531662 Stop audioplayer and audiorecorder when done or interrupted Mike Miller <mtmiller@ieee.org> parents: 19673 diff changeset	825 }
b3363c531662 Stop audioplayer and audiorecorder when done or interrupted Mike Miller <mtmiller@ieee.org> parents: 19673 diff changeset	826
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	827 audioplayer::audioplayer (void)
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	828 : octave_callback_function (nullptr),
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	829 id (-1), fs (0), nbits (16), channels (0), sample_number (0),
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	830 end_sample (-1), tag (""), y (), userdata (Matrix ()),
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	831 left (), right (), stream (nullptr), output_parameters (), type ()
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	832 { }
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	833
19570 62ca016dbb2a audiodevinfo.cc: Stop playback in audioplayers destructor (bug ##43994) Andreas Weber <andy.weber.aw@gmail.com> parents: 19566 diff changeset	834 audioplayer::~audioplayer (void)
62ca016dbb2a audiodevinfo.cc: Stop playback in audioplayers destructor (bug ##43994) Andreas Weber <andy.weber.aw@gmail.com> parents: 19566 diff changeset	835 {
19583 6464cd19e0f4 * audiodevinfo.cc: Style fixes. Warning IDs. John W. Eaton <jwe@octave.org> parents: 19580 diff changeset	836 if (isplaying ())
19570 62ca016dbb2a audiodevinfo.cc: Stop playback in audioplayers destructor (bug ##43994) Andreas Weber <andy.weber.aw@gmail.com> parents: 19566 diff changeset	837 {
26148 8c72f0345ee8 maint: Silence compiler warnings about unused or too many parameters. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: 25910 diff changeset	838 warning_with_id ("Octave:audio-interrupt",
8c72f0345ee8 maint: Silence compiler warnings about unused or too many parameters. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: 25910 diff changeset	839 "interrupting playing audioplayer");
19570 62ca016dbb2a audiodevinfo.cc: Stop playback in audioplayers destructor (bug ##43994) Andreas Weber <andy.weber.aw@gmail.com> parents: 19566 diff changeset	840 stop ();
62ca016dbb2a audiodevinfo.cc: Stop playback in audioplayers destructor (bug ##43994) Andreas Weber <andy.weber.aw@gmail.com> parents: 19566 diff changeset	841 }
62ca016dbb2a audiodevinfo.cc: Stop playback in audioplayers destructor (bug ##43994) Andreas Weber <andy.weber.aw@gmail.com> parents: 19566 diff changeset	842 }
62ca016dbb2a audiodevinfo.cc: Stop playback in audioplayers destructor (bug ##43994) Andreas Weber <andy.weber.aw@gmail.com> parents: 19566 diff changeset	843
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	844 void
21333 c4690d9ff566 avoid warnings about overloading virtual functions from a base class John W. Eaton <jwe@octave.org> parents: 21301 diff changeset	845 audioplayer::print (std::ostream& os, bool pr_as_read_syntax)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	846 {
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	847 print_raw (os, pr_as_read_syntax);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	848 newline (os);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	849 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	850
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	851 void
19512 a5eb03a7e2a5 eliminate unused variable and parameter warnings John W. Eaton <jwe@octave.org> parents: 19511 diff changeset	852 audioplayer::print_raw (std::ostream& os, bool) const
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	853 {
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	854 os << 0;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	855 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	856
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	857 void
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	858 audioplayer::init_fn (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	859 {
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	860 if (Pa_Initialize () != paNoError)
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	861 error ("audioplayer: initialization error!");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	862
19566 c36c22808d11 * audiodevinfo.cc: one audio device must be available to play or record (bug #43988) Stefan Mahr <dac922@gmx.de> parents: 19565 diff changeset	863 if (Pa_GetDeviceCount () < 1)
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	864 error ("audioplayer: no audio devices found or available!");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	865
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	866 int device = get_id ();
e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	867
e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	868 if (device == -1)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	869 device = Pa_GetDefaultOutputDevice ();
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	870
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	871 output_parameters.device = device;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	872 output_parameters.channelCount = 2;
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	873 output_parameters.sampleFormat = bits_to_format (get_nbits ());
19573 2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	874
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	875 const PaDeviceInfo *device_info = Pa_GetDeviceInfo (device);
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	876
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	877 if (! device_info)
26148 8c72f0345ee8 maint: Silence compiler warnings about unused or too many parameters. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: 25910 diff changeset	878 warning_with_id ("Octave:invalid-default-audio-device",
8c72f0345ee8 maint: Silence compiler warnings about unused or too many parameters. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: 25910 diff changeset	879 "invalid default audio device ID = %d", device);
19573 2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	880
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	881 output_parameters.suggestedLatency
23450 855122b993da maint: Wrap tertiary operator in parentheses "(COND ? x : y)". Rik <rik@octave.org> parents: 23449 diff changeset	882 = (device_info ? device_info->defaultHighOutputLatency : -1);
19573 2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	883
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	884 output_parameters.hostApiSpecificStreamInfo = nullptr;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	885 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	886
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	887 void
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	888 audioplayer::init (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	889 {
23024 a6a7b054e4ba Rationalize #includes in libinterp/dldfcn directory. Rik <rik@octave.org> parents: 22860 diff changeset	890 // FIXME: Both of these variables are unused.
a6a7b054e4ba Rationalize #includes in libinterp/dldfcn directory. Rik <rik@octave.org> parents: 22860 diff changeset	891 // Should they be eliminated or is something not yet implemented?
19512 a5eb03a7e2a5 eliminate unused variable and parameter warnings John W. Eaton <jwe@octave.org> parents: 19511 diff changeset	892 //
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	893 // int channels = y.rows ();
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	894 // RowVector *sound_l = get_left ();
19512 a5eb03a7e2a5 eliminate unused variable and parameter warnings John W. Eaton <jwe@octave.org> parents: 19511 diff changeset	895
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	896 if (Pa_Initialize () != paNoError)
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	897 error ("audioplayer: initialization error!");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	898
19566 c36c22808d11 * audiodevinfo.cc: one audio device must be available to play or record (bug #43988) Stefan Mahr <dac922@gmx.de> parents: 19565 diff changeset	899 if (Pa_GetDeviceCount () < 1)
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	900 error ("audioplayer: no audio devices found or available!");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	901
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	902 int device = get_id ();
e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	903
e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	904 if (device == -1)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	905 device = Pa_GetDefaultOutputDevice ();
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	906
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	907 output_parameters.device = device;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	908 output_parameters.channelCount = 2;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	909
19561 0d3e67f27d57 * audiodevinfo.cc: Avoid conflict with enum names. John Donoghue <john.donoghue@ieee.org> parents: 19560 diff changeset	910 if (type == TYPE_DOUBLE)
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	911 output_parameters.sampleFormat = bits_to_format (get_nbits ());
19561 0d3e67f27d57 * audiodevinfo.cc: Avoid conflict with enum names. John Donoghue <john.donoghue@ieee.org> parents: 19560 diff changeset	912 else if (type == TYPE_INT8)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	913 output_parameters.sampleFormat = paInt8;
19561 0d3e67f27d57 * audiodevinfo.cc: Avoid conflict with enum names. John Donoghue <john.donoghue@ieee.org> parents: 19560 diff changeset	914 else if (type == TYPE_UINT8)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	915 output_parameters.sampleFormat = paUInt8;
19561 0d3e67f27d57 * audiodevinfo.cc: Avoid conflict with enum names. John Donoghue <john.donoghue@ieee.org> parents: 19560 diff changeset	916 else if (type == TYPE_UINT16)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	917 output_parameters.sampleFormat = paInt16;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	918
19573 2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	919 const PaDeviceInfo *device_info = Pa_GetDeviceInfo (device);
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	920
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	921 if (! device_info)
26148 8c72f0345ee8 maint: Silence compiler warnings about unused or too many parameters. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: 25910 diff changeset	922 warning_with_id ("Octave:invalid-default-audio-device",
8c72f0345ee8 maint: Silence compiler warnings about unused or too many parameters. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: 25910 diff changeset	923 "invalid default audio device ID = %d", device);
19573 2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	924
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	925 output_parameters.suggestedLatency
23450 855122b993da maint: Wrap tertiary operator in parentheses "(COND ? x : y)". Rik <rik@octave.org> parents: 23449 diff changeset	926 = (device_info ? device_info->defaultHighOutputLatency : -1);
19573 2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	927
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	928 output_parameters.hostApiSpecificStreamInfo = nullptr;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	929 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	930
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	931 void
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	932 audioplayer::set_y (const octave_value& y_arg)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	933 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	934 if (y_arg.is_int8_type ())
19561 0d3e67f27d57 * audiodevinfo.cc: Avoid conflict with enum names. John Donoghue <john.donoghue@ieee.org> parents: 19560 diff changeset	935 type = TYPE_INT8;
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	936 else if (y_arg.is_uint8_type ())
19561 0d3e67f27d57 * audiodevinfo.cc: Avoid conflict with enum names. John Donoghue <john.donoghue@ieee.org> parents: 19560 diff changeset	937 type = TYPE_UINT8;
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	938 else if (y_arg.is_int16_type ())
19561 0d3e67f27d57 * audiodevinfo.cc: Avoid conflict with enum names. John Donoghue <john.donoghue@ieee.org> parents: 19560 diff changeset	939 type = TYPE_UINT16;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	940 else
19561 0d3e67f27d57 * audiodevinfo.cc: Avoid conflict with enum names. John Donoghue <john.donoghue@ieee.org> parents: 19560 diff changeset	941 type = TYPE_DOUBLE;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	942
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	943 y = y_arg.matrix_value ();
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	944
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	945 if (y.rows () > 2)
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	946 y = y.transpose ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	947
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	948 channels = y.rows ();
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	949 left = y.row (0);
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	950
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	951 if (channels == 2)
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	952 right = y.row (1);
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	953
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	954 reset_end_sample ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	955 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	956
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	957 void
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	958 audioplayer::set_y (octave_function *fn)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	959 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	960 octave_callback_function = fn;
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	961 channels = 2;
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	962 reset_end_sample ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	963 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	964
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	965 Matrix&
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	966 audioplayer::get_y (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	967 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	968 return y;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	969 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	970
19547 c5b8a91baec6 avoid unnecessary use of pointer in audio code John W. Eaton <jwe@octave.org> parents: 19544 diff changeset	971 RowVector
c5b8a91baec6 avoid unnecessary use of pointer in audio code John W. Eaton <jwe@octave.org> parents: 19544 diff changeset	972 audioplayer::get_left (void) const
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	973 {
19547 c5b8a91baec6 avoid unnecessary use of pointer in audio code John W. Eaton <jwe@octave.org> parents: 19544 diff changeset	974 return left;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	975 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	976
19547 c5b8a91baec6 avoid unnecessary use of pointer in audio code John W. Eaton <jwe@octave.org> parents: 19544 diff changeset	977 RowVector
c5b8a91baec6 avoid unnecessary use of pointer in audio code John W. Eaton <jwe@octave.org> parents: 19544 diff changeset	978 audioplayer::get_right (void) const
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	979 {
19547 c5b8a91baec6 avoid unnecessary use of pointer in audio code John W. Eaton <jwe@octave.org> parents: 19544 diff changeset	980 return channels == 1 ? left : right;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	981 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	982
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	983 void
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	984 audioplayer::set_fs (int fs_arg)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	985 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	986 fs = fs_arg;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	987 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	988
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	989 int
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	990 audioplayer::get_fs (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	991 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	992 return fs;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	993 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	994
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	995 void
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	996 audioplayer::set_nbits (int nbits_arg)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	997 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	998 nbits = nbits_arg;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	999 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1000
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1001 int
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1002 audioplayer::get_nbits (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1003 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1004 return nbits;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1005 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1006
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1007 void
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1008 audioplayer::set_id (int id_arg)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1009 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1010 id = id_arg;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1011 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1012
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1013 int
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1014 audioplayer::get_id (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1015 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1016 return id;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1017 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1018
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1019 int
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1020 audioplayer::get_channels (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1021 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1022 return channels;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1023 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1024
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1025 audio_type
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1026 audioplayer::get_type (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1027 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1028 return type;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1029 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1030
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1031 void
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1032 audioplayer::set_sample_number (unsigned int sample_number_arg)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1033 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1034 sample_number = sample_number_arg;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1035 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1036
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1037 unsigned int
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1038 audioplayer::get_sample_number (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1039 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1040 return sample_number;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1041 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1042
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1043 unsigned int
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1044 audioplayer::get_total_samples (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1045 {
20232 a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel(). Carnë Draug <carandraug@octave.org> parents: 20163 diff changeset	1046 return left.numel ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1047 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1048
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1049 void
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1050 audioplayer::set_end_sample (unsigned int end_sample_arg)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1051 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1052 end_sample = end_sample_arg;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1053 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1054
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1055 unsigned int
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1056 audioplayer::get_end_sample (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1057 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1058 return end_sample;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1059 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1060
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1061 void
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1062 audioplayer::reset_end_sample (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1063 {
20232 a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel(). Carnë Draug <carandraug@octave.org> parents: 20163 diff changeset	1064 set_end_sample (left.numel ());
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1065 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1066
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1067 void
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1068 audioplayer::set_tag (const charMatrix& tag_arg)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1069 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1070 tag = tag_arg;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1071 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1072
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1073 charMatrix
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1074 audioplayer::get_tag (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1075 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1076 return tag;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1077 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1078
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1079 void
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1080 audioplayer::set_userdata (const octave_value& userdata_arg)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1081 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1082 userdata = userdata_arg;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1083 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1084
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1085 octave_value
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1086 audioplayer::get_userdata (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1087 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1088 return userdata;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1089 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1090
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1091 void
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1092 audioplayer::playblocking (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1093 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1094 if (get_stream ())
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1095 stop ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1096
19671 322d0fe84a8c Make audio buffer size dependent on sample rate Mike Miller <mtmiller@ieee.org> parents: 19598 diff changeset	1097 const unsigned int buffer_size = get_fs () / 20;
322d0fe84a8c Make audio buffer size dependent on sample rate Mike Miller <mtmiller@ieee.org> parents: 19598 diff changeset	1098 OCTAVE_LOCAL_BUFFER (uint32_t, buffer, buffer_size * 2);
322d0fe84a8c Make audio buffer size dependent on sample rate Mike Miller <mtmiller@ieee.org> parents: 19598 diff changeset	1099
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1100 PaError err;
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	1101 err = Pa_OpenStream (&stream, nullptr, &(output_parameters), get_fs (),
980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	1102 buffer_size, paClipOff, nullptr, nullptr);
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1103 if (err != paNoError)
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	1104 error ("audioplayer: unable to open audio playback stream");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1105
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1106 err = Pa_StartStream (stream);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1107 if (err != paNoError)
22173 8de49f15e182 doc: Fix "doubled words" typos (\b(\w+)\s+\1\b) Andreas Weber <andy.weber.aw@gmail.com> parents: 21966 diff changeset	1108 error ("audioplayer: unable to start audio playback stream");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1109
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1110 unsigned int start, end;
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1111 start = get_sample_number ();
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1112 end = get_end_sample ();
19671 322d0fe84a8c Make audio buffer size dependent on sample rate Mike Miller <mtmiller@ieee.org> parents: 19598 diff changeset	1113
21743 f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	1114 octave::unwind_protect frame;
19674 b3363c531662 Stop audioplayer and audiorecorder when done or interrupted Mike Miller <mtmiller@ieee.org> parents: 19673 diff changeset	1115
b3363c531662 Stop audioplayer and audiorecorder when done or interrupted Mike Miller <mtmiller@ieee.org> parents: 19673 diff changeset	1116 frame.add_fcn (safe_audioplayer_stop, this);
b3363c531662 Stop audioplayer and audiorecorder when done or interrupted Mike Miller <mtmiller@ieee.org> parents: 19673 diff changeset	1117
19671 322d0fe84a8c Make audio buffer size dependent on sample rate Mike Miller <mtmiller@ieee.org> parents: 19598 diff changeset	1118 for (unsigned int i = start; i < end; i += buffer_size)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1119 {
22860 0b1e25cc4457 eliminate use of OCTAVE_QUIT macro in C++ sources John W. Eaton <jwe@octave.org> parents: 22772 diff changeset	1120 octave_quit ();
0b1e25cc4457 eliminate use of OCTAVE_QUIT macro in C++ sources John W. Eaton <jwe@octave.org> parents: 22772 diff changeset	1121
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	1122 if (octave_callback_function != nullptr)
980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	1123 octave_play_callback (nullptr, buffer, buffer_size, nullptr, 0, this);
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1124 else
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	1125 portaudio_play_callback (nullptr, buffer, buffer_size, nullptr, 0, this);
19671 322d0fe84a8c Make audio buffer size dependent on sample rate Mike Miller <mtmiller@ieee.org> parents: 19598 diff changeset	1126
322d0fe84a8c Make audio buffer size dependent on sample rate Mike Miller <mtmiller@ieee.org> parents: 19598 diff changeset	1127 err = Pa_WriteStream (stream, buffer, buffer_size);
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1128 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1129 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1130
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1131 void
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1132 audioplayer::play (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1133 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1134 if (get_stream ())
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1135 stop ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1136
19671 322d0fe84a8c Make audio buffer size dependent on sample rate Mike Miller <mtmiller@ieee.org> parents: 19598 diff changeset	1137 const unsigned int buffer_size = get_fs () / 20;
322d0fe84a8c Make audio buffer size dependent on sample rate Mike Miller <mtmiller@ieee.org> parents: 19598 diff changeset	1138
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1139 PaError err;
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	1140 if (octave_callback_function != nullptr)
980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	1141 err = Pa_OpenStream (&stream, nullptr, &(output_parameters),
19671 322d0fe84a8c Make audio buffer size dependent on sample rate Mike Miller <mtmiller@ieee.org> parents: 19598 diff changeset	1142 get_fs (), buffer_size, paClipOff,
19513 4cb4210bd392 use C++ style casts in audio code John W. Eaton <jwe@octave.org> parents: 19512 diff changeset	1143 octave_play_callback, this);
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1144 else
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	1145 err = Pa_OpenStream (&stream, nullptr, &(output_parameters),
19671 322d0fe84a8c Make audio buffer size dependent on sample rate Mike Miller <mtmiller@ieee.org> parents: 19598 diff changeset	1146 get_fs (), buffer_size, paClipOff,
19513 4cb4210bd392 use C++ style casts in audio code John W. Eaton <jwe@octave.org> parents: 19512 diff changeset	1147 portaudio_play_callback, this);
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1148
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1149 if (err != paNoError)
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	1150 error ("audioplayer: failed to open audio playback stream");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1151
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1152 err = Pa_StartStream (stream);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1153 if (err != paNoError)
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	1154 error ("audioplayer: failed to start audio playback stream");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1155 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1156
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1157 void
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1158 audioplayer::pause (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1159 {
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	1160 if (get_stream () == nullptr)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1161 return;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1162
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1163 PaError err;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1164 err = Pa_StopStream (stream);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1165 if (err != paNoError)
25910 b4bf418dfc74 Correct audioplayer message strings (bug #54748). Lars Kindermann <lars.kindermann@reglos.de> parents: 25054 diff changeset	1166 error ("audioplayer: failed to stop audio playback stream");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1167 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1168
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1169 void
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1170 audioplayer::resume (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1171 {
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	1172 if (get_stream () == nullptr)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1173 return;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1174
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1175 PaError err;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1176 err = Pa_StartStream (stream);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1177 if (err != paNoError)
25910 b4bf418dfc74 Correct audioplayer message strings (bug #54748). Lars Kindermann <lars.kindermann@reglos.de> parents: 25054 diff changeset	1178 error ("audioplayer: failed to start audio playback stream");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1179 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1180
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1181 PaStream *
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1182 audioplayer::get_stream (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1183 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1184 return stream;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1185 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1186
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1187 void
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1188 audioplayer::stop (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1189 {
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	1190 if (get_stream () == nullptr)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1191 return;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1192
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1193 PaError err;
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1194 set_sample_number (0);
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1195 reset_end_sample ();
19973 7aaf756b1532 use "!", not "not" John W. Eaton <jwe@octave.org> parents: 19861 diff changeset	1196 if (! Pa_IsStreamStopped (get_stream ()))
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1197 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1198 err = Pa_AbortStream (get_stream ());
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1199 if (err != paNoError)
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	1200 error ("audioplayer: failed to stop audio playback stream");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1201 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1202
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1203 err = Pa_CloseStream (get_stream ());
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1204 if (err != paNoError)
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	1205 error ("audioplayer: failed to close audio playback stream");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1206
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	1207 stream = nullptr;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1208 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1209
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1210 bool
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1211 audioplayer::isplaying (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1212 {
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	1213 if (get_stream () == nullptr)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1214 return false;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1215
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1216 PaError err;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1217 err = Pa_IsStreamActive (stream);
19515 0f7788e2d677 * audiodevinfo.cc: Use "\|\|" and "&&", not "or" and "and". John W. Eaton <jwe@octave.org> parents: 19514 diff changeset	1218 if (err != 0 && err != 1)
25910 b4bf418dfc74 Correct audioplayer message strings (bug #54748). Lars Kindermann <lars.kindermann@reglos.de> parents: 25054 diff changeset	1219 error ("audioplayer: checking stream activity status failed");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1220
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1221 return (err == 1);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1222 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1223
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1224 class audiorecorder : public octave_base_value
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1225 {
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1226 public:
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1227 audiorecorder (void);
19580 478d35191196 maybe stop recorder in audio recorder destructor John W. Eaton <jwe@octave.org> parents: 19577 diff changeset	1228 ~audiorecorder (void);
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1229
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1230 // Overloaded base functions
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1231 double player_value (void) const { return 0; }
19512 a5eb03a7e2a5 eliminate unused variable and parameter warnings John W. Eaton <jwe@octave.org> parents: 19511 diff changeset	1232 virtual double scalar_value (bool = false) const { return 0; }
21333 c4690d9ff566 avoid warnings about overloading virtual functions from a base class John W. Eaton <jwe@octave.org> parents: 21301 diff changeset	1233 void print (std::ostream& os, bool pr_as_read_syntax = false);
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1234 void print_raw (std::ostream& os, bool pr_as_read_syntax) const;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1235
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1236 // Properties
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1237 bool is_constant (void) const { return true; }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1238 bool is_defined (void) const { return true; }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1239 bool print_as_scalar (void) const { return true; }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1240
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1241 void init (void);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1242 void set_fs (int fs);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1243 int get_fs (void);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1244 void set_nbits (int nbits);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1245 int get_nbits (void);
27882 65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1246 PaSampleFormat get_sampleFormat (void);
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1247 void set_id (int id);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1248 int get_id (void);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1249 void set_channels (int channels);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1250 int get_channels (void);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1251 audio_type get_type (void);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1252
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1253 void set_sample_number (unsigned int sample);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1254 unsigned int get_sample_number (void);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1255 unsigned int get_total_samples (void);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1256 void set_end_sample (unsigned int sample);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1257 unsigned int get_end_sample (void);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1258 void reset_end_sample (void);
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1259 void set_tag (const charMatrix& tag);
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1260 charMatrix get_tag (void);
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1261 void set_userdata (const octave_value& userdata);
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1262 octave_value get_userdata (void);
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23362 diff changeset	1263 PaStream * get_stream (void);
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1264
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1265 octave_value getaudiodata (void);
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23362 diff changeset	1266 audioplayer * getplayer (void);
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1267 bool isrecording (void);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1268 audioplayer play (void);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1269 void record (void);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1270 void recordblocking (float seconds);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1271 void pause (void);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1272 void resume (void);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1273 void stop (void);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1274 void append (float sample_l, float sample_r);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1275
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1276 octave_function *octave_callback_function;
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1277
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1278 private:
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1279 int id;
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1280 int fs;
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1281 int nbits;
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1282 int channels;
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1283 unsigned int sample_number;
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1284 unsigned int end_sample;
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1285 charMatrix tag;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1286 Matrix y;
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1287 octave_value userdata;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1288 std::vector<float> left;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1289 std::vector<float> right;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1290 PaStream *stream;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1291 PaStreamParameters input_parameters;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1292 audio_type type;
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1293
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1294 DECLARE_OV_TYPEID_FUNCTIONS_AND_DATA
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1295 };
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1296
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1297 DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (audiorecorder, "audiorecorder", "audiorecorder");
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1298
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1299 static int
19512 a5eb03a7e2a5 eliminate unused variable and parameter warnings John W. Eaton <jwe@octave.org> parents: 19511 diff changeset	1300 octave_record_callback (const void input, void , unsigned long frames,
a5eb03a7e2a5 eliminate unused variable and parameter warnings John W. Eaton <jwe@octave.org> parents: 19511 diff changeset	1301 const PaStreamCallbackTimeInfo *,
a5eb03a7e2a5 eliminate unused variable and parameter warnings John W. Eaton <jwe@octave.org> parents: 19511 diff changeset	1302 PaStreamCallbackFlags, void *data)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1303 {
19513 4cb4210bd392 use C++ style casts in audio code John W. Eaton <jwe@octave.org> parents: 19512 diff changeset	1304 audiorecorder recorder = static_cast<audiorecorder > (data);
19573 2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	1305
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	1306 if (! recorder)
27882 65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1307 error ("audio recorder callback function called without recorder");
19573 2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	1308
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1309 int channels = recorder->get_channels ();
19558 0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1310
0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1311 Matrix sound (frames, 2);
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1312 sound.resize (frames, 2);
19558 0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1313
27882 65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1314 if (recorder->get_sampleFormat () == bits_to_format (8))
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1315 {
19558 0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1316 static double scale_factor = std::pow (2.0, 7) - 1.0;
0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1317
19513 4cb4210bd392 use C++ style casts in audio code John W. Eaton <jwe@octave.org> parents: 19512 diff changeset	1318 const int8_t input8 = static_cast<const int8_t > (input);
19558 0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1319
19514 ef6875adb053 * audiodevinfo.cc: Avoid warnings about comparision operations. John W. Eaton <jwe@octave.org> parents: 19513 diff changeset	1320 for (unsigned long i = 0; i < frames; i++)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1321 {
19558 0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1322 float sample_l = input8[i*channels] / scale_factor;
0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1323 float sample_r = input8[i*channels + (channels - 1)] / scale_factor;
19557 182abae666ae * audiodevinfo.cc: Explicitly use std::pow. John W. Eaton <jwe@octave.org> parents: 19556 diff changeset	1324
19583 6464cd19e0f4 * audiodevinfo.cc: Style fixes. Warning IDs. John W. Eaton <jwe@octave.org> parents: 19580 diff changeset	1325 sound(i,0) = sample_l;
6464cd19e0f4 * audiodevinfo.cc: Style fixes. Warning IDs. John W. Eaton <jwe@octave.org> parents: 19580 diff changeset	1326 sound(i,1) = sample_r;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1327 }
19571 72304a4e010a Use Octave coding conventions for documentation of audio functions. Rik <rik@octave.org> parents: 19570 diff changeset	1328 }
27882 65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1329 // FIXME: This is a workaround for a bug in PortAudio affecting 8-Bit
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1330 // recording (see Octave bug #44305).
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1331 // Remove this clause once the bug in PortAudio has been fixed.
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1332 else if (recorder->get_sampleFormat () == bits_to_format (16)
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1333 && recorder->get_nbits () == 8)
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1334 {
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1335 static double scale_factor = std::pow (2.0, 7) - 1.0;
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1336
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1337 const int16_t input16 = static_cast<const int16_t > (input);
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1338
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1339 for (unsigned long i = 0; i < frames; i++)
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1340 {
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1341 float sample_l = (input16[i*channels] >> 8) / scale_factor;
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1342 float sample_r = (input16[i*channels + (channels - 1)] >> 8)
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1343 / scale_factor;
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1344
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1345 sound(i,0) = sample_l;
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1346 sound(i,1) = sample_r;
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1347 }
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1348 }
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1349 else if (recorder->get_sampleFormat () == bits_to_format (16))
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1350 {
19558 0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1351 static double scale_factor = std::pow (2.0, 15) - 1.0;
0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1352
19513 4cb4210bd392 use C++ style casts in audio code John W. Eaton <jwe@octave.org> parents: 19512 diff changeset	1353 const int16_t input16 = static_cast<const int16_t > (input);
19558 0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1354
19514 ef6875adb053 * audiodevinfo.cc: Avoid warnings about comparision operations. John W. Eaton <jwe@octave.org> parents: 19513 diff changeset	1355 for (unsigned long i = 0; i < frames; i++)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1356 {
19558 0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1357 float sample_l = input16[i*channels] / scale_factor;
0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1358 float sample_r = input16[i*channels + (channels - 1)] / scale_factor;
19557 182abae666ae * audiodevinfo.cc: Explicitly use std::pow. John W. Eaton <jwe@octave.org> parents: 19556 diff changeset	1359
19583 6464cd19e0f4 * audiodevinfo.cc: Style fixes. Warning IDs. John W. Eaton <jwe@octave.org> parents: 19580 diff changeset	1360 sound(i,0) = sample_l;
6464cd19e0f4 * audiodevinfo.cc: Style fixes. Warning IDs. John W. Eaton <jwe@octave.org> parents: 19580 diff changeset	1361 sound(i,1) = sample_r;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1362 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1363 }
27882 65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1364 else if (recorder->get_sampleFormat () == bits_to_format (24))
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1365 {
19558 0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1366 static double scale_factor = std::pow (2.0, 23);
0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1367
19513 4cb4210bd392 use C++ style casts in audio code John W. Eaton <jwe@octave.org> parents: 19512 diff changeset	1368 // FIXME: Is there a better way?
4cb4210bd392 use C++ style casts in audio code John W. Eaton <jwe@octave.org> parents: 19512 diff changeset	1369 const uint8_t input24 = static_cast<const uint8_t > (input);
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1370
26218 29387b9ccfbb Fix audiodevinfo recording when using 24-bit samples (bug #52228). Rik <rik@octave.org> parents: 26148 diff changeset	1371 int32_t sample_l32, sample_r32;
19558 0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1372
0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1373 uint8_t sample_l = reinterpret_cast<uint8_t > (&sample_l32);
0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1374 uint8_t sample_r = reinterpret_cast<uint8_t > (&sample_r32);
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1375
19514 ef6875adb053 * audiodevinfo.cc: Avoid warnings about comparision operations. John W. Eaton <jwe@octave.org> parents: 19513 diff changeset	1376 for (unsigned long i = 0; i < frames; i++)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1377 {
26218 29387b9ccfbb Fix audiodevinfo recording when using 24-bit samples (bug #52228). Rik <rik@octave.org> parents: 26148 diff changeset	1378 sample_l32 = sample_r32 = 0;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1379 for (int j = 0; j < 3; j++)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1380 {
19558 0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1381 sample_l[j] = input24[ichannels3 + j];
0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1382 sample_r[j] = input24[ichannels3 + (channels - 1)*3 + j];
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1383 }
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1384
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1385 if (sample_l32 & 0x00800000)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1386 sample_l32 \|= 0xff000000;
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1387
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1388 if (sample_r32 & 0x00800000)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1389 sample_r32 \|= 0xff000000;
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1390
19583 6464cd19e0f4 * audiodevinfo.cc: Style fixes. Warning IDs. John W. Eaton <jwe@octave.org> parents: 19580 diff changeset	1391 sound(i,0) = sample_l32 / scale_factor;
6464cd19e0f4 * audiodevinfo.cc: Style fixes. Warning IDs. John W. Eaton <jwe@octave.org> parents: 19580 diff changeset	1392 sound(i,1) = sample_r32 / scale_factor;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1393 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1394 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1395
19558 0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1396 octave_value_list retval
23075 4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23024 diff changeset	1397 = octave::feval (recorder->octave_callback_function, ovl (sound), 1);
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1398
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1399 return retval(0).int_value ();
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1400 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1401
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1402 static int
19512 a5eb03a7e2a5 eliminate unused variable and parameter warnings John W. Eaton <jwe@octave.org> parents: 19511 diff changeset	1403 portaudio_record_callback (const void input, void , unsigned long frames,
a5eb03a7e2a5 eliminate unused variable and parameter warnings John W. Eaton <jwe@octave.org> parents: 19511 diff changeset	1404 const PaStreamCallbackTimeInfo *,
a5eb03a7e2a5 eliminate unused variable and parameter warnings John W. Eaton <jwe@octave.org> parents: 19511 diff changeset	1405 PaStreamCallbackFlags, void *data)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1406 {
19513 4cb4210bd392 use C++ style casts in audio code John W. Eaton <jwe@octave.org> parents: 19512 diff changeset	1407 audiorecorder recorder = static_cast<audiorecorder > (data);
19558 0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1408
19573 2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	1409 if (! recorder)
27882 65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1410 error ("audio recorder callback function called without recorder");
19573 2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	1411
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1412 int channels = recorder->get_channels ();
19558 0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1413
27882 65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1414 if (recorder->get_sampleFormat () == bits_to_format (8))
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1415 {
19558 0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1416 static float scale_factor = std::pow (2.0f, 7) - 1.0f;
0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1417
19513 4cb4210bd392 use C++ style casts in audio code John W. Eaton <jwe@octave.org> parents: 19512 diff changeset	1418 const int8_t input8 = static_cast<const int8_t > (input);
19558 0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1419
19514 ef6875adb053 * audiodevinfo.cc: Avoid warnings about comparision operations. John W. Eaton <jwe@octave.org> parents: 19513 diff changeset	1420 for (unsigned long i = 0; i < frames; i++)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1421 {
19558 0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1422 float sample_l = input8[i*channels] / scale_factor;
0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1423 float sample_r = input8[i*channels + (channels - 1)] / scale_factor;
19557 182abae666ae * audiodevinfo.cc: Explicitly use std::pow. John W. Eaton <jwe@octave.org> parents: 19556 diff changeset	1424
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1425 recorder->append (sample_l, sample_r);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1426 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1427 }
27882 65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1428 // FIXME: This is a workaround for a bug in PortAudio affecting 8-Bit
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1429 // recording (see Octave bug #44305).
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1430 // Remove this clause once the bug in PortAudio has been fixed.
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1431 else if (recorder->get_sampleFormat () == bits_to_format (16)
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1432 && recorder->get_nbits () == 8)
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1433 {
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1434 static double scale_factor = std::pow (2.0, 7) - 1.0;
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1435
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1436 const int16_t input16 = static_cast<const int16_t > (input);
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1437
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1438 for (unsigned long i = 0; i < frames; i++)
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1439 {
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1440 float sample_l = (input16[i*channels] >> 8) / scale_factor;
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1441 float sample_r = (input16[i*channels + (channels - 1)] >> 8)
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1442 / scale_factor;
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1443
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1444 recorder->append (sample_l, sample_r);
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1445 }
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1446 }
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1447 else if (recorder->get_sampleFormat () == bits_to_format (16))
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1448 {
19558 0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1449 static float scale_factor = std::pow (2.0f, 15) - 1.0f;
0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1450
19513 4cb4210bd392 use C++ style casts in audio code John W. Eaton <jwe@octave.org> parents: 19512 diff changeset	1451 const int16_t input16 = static_cast<const int16_t > (input);
19558 0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1452
19514 ef6875adb053 * audiodevinfo.cc: Avoid warnings about comparision operations. John W. Eaton <jwe@octave.org> parents: 19513 diff changeset	1453 for (unsigned long i = 0; i < frames; i++)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1454 {
19558 0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1455 float sample_l = input16[i*channels] / scale_factor;
0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1456 float sample_r = input16[i*channels + (channels - 1)] / scale_factor;
19557 182abae666ae * audiodevinfo.cc: Explicitly use std::pow. John W. Eaton <jwe@octave.org> parents: 19556 diff changeset	1457
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1458 recorder->append (sample_l, sample_r);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1459 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1460 }
27882 65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1461 else if (recorder->get_sampleFormat () == bits_to_format (24))
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1462 {
19558 0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1463 static float scale_factor = std::pow (2.0f, 23);
0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1464
19513 4cb4210bd392 use C++ style casts in audio code John W. Eaton <jwe@octave.org> parents: 19512 diff changeset	1465 // FIXME: Is there a better way?
4cb4210bd392 use C++ style casts in audio code John W. Eaton <jwe@octave.org> parents: 19512 diff changeset	1466 const uint8_t input24 = static_cast<const uint8_t > (input);
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1467
26218 29387b9ccfbb Fix audiodevinfo recording when using 24-bit samples (bug #52228). Rik <rik@octave.org> parents: 26148 diff changeset	1468 int32_t sample_l32, sample_r32;
19558 0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1469
0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1470 uint8_t sample_l = reinterpret_cast<uint8_t > (&sample_l32);
0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1471 uint8_t sample_r = reinterpret_cast<uint8_t > (&sample_r32);
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1472
19514 ef6875adb053 * audiodevinfo.cc: Avoid warnings about comparision operations. John W. Eaton <jwe@octave.org> parents: 19513 diff changeset	1473 for (unsigned long i = 0; i < frames; i++)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1474 {
26218 29387b9ccfbb Fix audiodevinfo recording when using 24-bit samples (bug #52228). Rik <rik@octave.org> parents: 26148 diff changeset	1475 sample_l32 = sample_r32 = 0;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1476 for (int j = 0; j < 3; j++)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1477 {
19558 0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1478 sample_l[j] = input24[ichannels3 + j];
0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1479 sample_r[j] = input24[ichannels3 + (channels - 1)*3 + j];
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1480 }
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1481
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1482 if (sample_l32 & 0x00800000)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1483 sample_l32 \|= 0xff000000;
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1484
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1485 if (sample_r32 & 0x00800000)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1486 sample_r32 \|= 0xff000000;
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1487
19558 0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1488 recorder->append (sample_l32 / scale_factor,
0b068273340f style and other fixes for audiorecorder callback fucntions John W. Eaton <jwe@octave.org> parents: 19557 diff changeset	1489 sample_r32 / scale_factor);
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1490 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1491 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1492
19673 cdf9c83b0e79 Correctly check for end of audio recording Mike Miller <mtmiller@ieee.org> parents: 19672 diff changeset	1493 if (recorder->get_sample_number () >= recorder->get_end_sample ())
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1494 return paComplete;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1495
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1496 return paContinue;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1497 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1498
19674 b3363c531662 Stop audioplayer and audiorecorder when done or interrupted Mike Miller <mtmiller@ieee.org> parents: 19673 diff changeset	1499 static void
b3363c531662 Stop audioplayer and audiorecorder when done or interrupted Mike Miller <mtmiller@ieee.org> parents: 19673 diff changeset	1500 safe_audiorecorder_stop (audiorecorder *recorder)
b3363c531662 Stop audioplayer and audiorecorder when done or interrupted Mike Miller <mtmiller@ieee.org> parents: 19673 diff changeset	1501 {
b3363c531662 Stop audioplayer and audiorecorder when done or interrupted Mike Miller <mtmiller@ieee.org> parents: 19673 diff changeset	1502 recorder->stop ();
b3363c531662 Stop audioplayer and audiorecorder when done or interrupted Mike Miller <mtmiller@ieee.org> parents: 19673 diff changeset	1503 }
b3363c531662 Stop audioplayer and audiorecorder when done or interrupted Mike Miller <mtmiller@ieee.org> parents: 19673 diff changeset	1504
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1505 audiorecorder::audiorecorder (void)
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	1506 : octave_callback_function (nullptr),
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1507 id (-1), fs (44100), nbits (16), channels (2), sample_number (0),
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1508 end_sample (-1), tag (""), y (), userdata (Matrix ()),
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	1509 left (), right (), stream (nullptr), input_parameters (), type ()
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1510 { }
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1511
19580 478d35191196 maybe stop recorder in audio recorder destructor John W. Eaton <jwe@octave.org> parents: 19577 diff changeset	1512 audiorecorder::~audiorecorder (void)
478d35191196 maybe stop recorder in audio recorder destructor John W. Eaton <jwe@octave.org> parents: 19577 diff changeset	1513 {
478d35191196 maybe stop recorder in audio recorder destructor John W. Eaton <jwe@octave.org> parents: 19577 diff changeset	1514 if (isrecording ())
478d35191196 maybe stop recorder in audio recorder destructor John W. Eaton <jwe@octave.org> parents: 19577 diff changeset	1515 {
26148 8c72f0345ee8 maint: Silence compiler warnings about unused or too many parameters. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: 25910 diff changeset	1516 warning_with_id ("Octave:audio-interrupt",
8c72f0345ee8 maint: Silence compiler warnings about unused or too many parameters. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: 25910 diff changeset	1517 "interrupting recording audiorecorder");
19580 478d35191196 maybe stop recorder in audio recorder destructor John W. Eaton <jwe@octave.org> parents: 19577 diff changeset	1518 stop ();
478d35191196 maybe stop recorder in audio recorder destructor John W. Eaton <jwe@octave.org> parents: 19577 diff changeset	1519 }
478d35191196 maybe stop recorder in audio recorder destructor John W. Eaton <jwe@octave.org> parents: 19577 diff changeset	1520 }
478d35191196 maybe stop recorder in audio recorder destructor John W. Eaton <jwe@octave.org> parents: 19577 diff changeset	1521
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1522 void
21333 c4690d9ff566 avoid warnings about overloading virtual functions from a base class John W. Eaton <jwe@octave.org> parents: 21301 diff changeset	1523 audiorecorder::print (std::ostream& os, bool pr_as_read_syntax)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1524 {
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1525 print_raw (os, pr_as_read_syntax);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1526 newline (os);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1527 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1528
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1529 void
19512 a5eb03a7e2a5 eliminate unused variable and parameter warnings John W. Eaton <jwe@octave.org> parents: 19511 diff changeset	1530 audiorecorder::print_raw (std::ostream& os, bool) const
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1531 {
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1532 os << 0;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1533 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1534
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1535 void
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1536 audiorecorder::init (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1537 {
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1538 if (Pa_Initialize () != paNoError)
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	1539 error ("audiorecorder: initialization error!");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1540
19566 c36c22808d11 * audiodevinfo.cc: one audio device must be available to play or record (bug #43988) Stefan Mahr <dac922@gmx.de> parents: 19565 diff changeset	1541 if (Pa_GetDeviceCount () < 1)
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	1542 error ("audiorecorder: no audio devices found or available!");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1543
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1544 int device = get_id ();
e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1545
e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1546 if (device == -1)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1547 device = Pa_GetDefaultInputDevice ();
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1548
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1549 input_parameters.device = device;
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1550 input_parameters.channelCount = get_channels ();
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1551 input_parameters.sampleFormat = bits_to_format (get_nbits ());
19573 2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	1552
27882 65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1553 // FIXME: This is a workaround for a bug in PortAudio affecting 8-Bit
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1554 // recording (see Octave bug #44305).
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1555 // Remove this clause once the bug in PortAudio has been fixed.
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1556 if (get_nbits () == 8)
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1557 input_parameters.sampleFormat = bits_to_format (16);
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1558
19573 2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	1559 const PaDeviceInfo *device_info = Pa_GetDeviceInfo (device);
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	1560
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	1561 if (! device_info)
26148 8c72f0345ee8 maint: Silence compiler warnings about unused or too many parameters. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: 25910 diff changeset	1562 warning_with_id ("Octave:invalid-default-audio-device",
8c72f0345ee8 maint: Silence compiler warnings about unused or too many parameters. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: 25910 diff changeset	1563 "invalid default audio device ID = %d", device);
19573 2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	1564
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	1565 input_parameters.suggestedLatency
23450 855122b993da maint: Wrap tertiary operator in parentheses "(COND ? x : y)". Rik <rik@octave.org> parents: 23449 diff changeset	1566 = (device_info ? device_info->defaultHighInputLatency : -1);
19573 2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	1567
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	1568 input_parameters.hostApiSpecificStreamInfo = nullptr;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1569 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1570
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1571 void
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1572 audiorecorder::set_fs (int fs_arg)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1573 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1574 fs = fs_arg;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1575 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1576
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1577 int
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1578 audiorecorder::get_fs (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1579 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1580 return fs;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1581 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1582
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1583 void
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1584 audiorecorder::set_nbits (int nbits_arg)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1585 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1586 nbits = nbits_arg;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1587 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1588
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1589 int
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1590 audiorecorder::get_nbits (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1591 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1592 return nbits;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1593 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1594
27882 65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1595 PaSampleFormat
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1596 audiorecorder::get_sampleFormat (void)
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1597 {
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1598 return input_parameters.sampleFormat;
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1599 }
65a54ab6ceaa Workaround for a bug in PortAudio 8-bit recording (bug #44305). Lars Kindermann <lars.kindermann@reglos.de> parents: 26561 diff changeset	1600
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1601 void
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1602 audiorecorder::set_id (int id_arg)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1603 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1604 id = id_arg;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1605 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1606
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1607 int
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1608 audiorecorder::get_id (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1609 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1610 return id;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1611 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1612
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1613 void
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1614 audiorecorder::set_channels (int channels_arg)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1615 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1616 assert (channels_arg == 1 \|\| channels_arg == 2);
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1617 channels = channels_arg;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1618 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1619
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1620 int
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1621 audiorecorder::get_channels (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1622 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1623 return channels;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1624 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1625
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1626 audio_type
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1627 audiorecorder::get_type (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1628 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1629 return type;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1630 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1631
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1632 void
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1633 audiorecorder::set_sample_number (unsigned int sample_number_arg)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1634 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1635 sample_number = sample_number_arg;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1636 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1637
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1638 unsigned int
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1639 audiorecorder::get_sample_number (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1640 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1641 return sample_number;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1642 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1643
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1644 unsigned int
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1645 audiorecorder::get_total_samples (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1646 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1647 return left.size ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1648 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1649
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1650 void
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1651 audiorecorder::set_end_sample (unsigned int end_sample_arg)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1652 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1653 end_sample = end_sample_arg;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1654 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1655
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1656 unsigned int
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1657 audiorecorder::get_end_sample (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1658 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1659 return end_sample;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1660 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1661
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1662 void
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1663 audiorecorder::reset_end_sample (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1664 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1665 set_end_sample (left.size ());
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1666 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1667
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1668 void
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1669 audiorecorder::set_tag (const charMatrix& tag_arg)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1670 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1671 tag = tag_arg;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1672 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1673
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1674 charMatrix
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1675 audiorecorder::get_tag (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1676 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1677 return tag;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1678 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1679
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1680 void
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1681 audiorecorder::set_userdata (const octave_value& userdata_arg)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1682 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1683 userdata = userdata_arg;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1684 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1685
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1686 octave_value
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1687 audiorecorder::get_userdata (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1688 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1689 return userdata;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1690 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1691
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1692 octave_value
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1693 audiorecorder::getaudiodata (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1694 {
26219 471513a016ec Fix audiorecorder() crash in getaudiodata() (bug #50674) Lars Kindermann parents: 26218 diff changeset	1695 // Must get size before entering loop as the value of left.size() may change
471513a016ec Fix audiorecorder() crash in getaudiodata() (bug #50674) Lars Kindermann parents: 26218 diff changeset	1696 // during loop with simultaneous recording and playback (bug #50674).
471513a016ec Fix audiorecorder() crash in getaudiodata() (bug #50674) Lars Kindermann parents: 26218 diff changeset	1697 unsigned int ls = left.size ();
471513a016ec Fix audiorecorder() crash in getaudiodata() (bug #50674) Lars Kindermann parents: 26218 diff changeset	1698 Matrix audio (2, ls);
471513a016ec Fix audiorecorder() crash in getaudiodata() (bug #50674) Lars Kindermann parents: 26218 diff changeset	1699
471513a016ec Fix audiorecorder() crash in getaudiodata() (bug #50674) Lars Kindermann parents: 26218 diff changeset	1700 for (unsigned int i = 0; i < ls; i++)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1701 {
19583 6464cd19e0f4 * audiodevinfo.cc: Style fixes. Warning IDs. John W. Eaton <jwe@octave.org> parents: 19580 diff changeset	1702 audio(0,i) = left[i];
6464cd19e0f4 * audiodevinfo.cc: Style fixes. Warning IDs. John W. Eaton <jwe@octave.org> parents: 19580 diff changeset	1703 audio(1,i) = right[i];
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1704 }
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1705
e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1706 return audio;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1707 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1708
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1709 audioplayer *
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1710 audiorecorder::getplayer (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1711 {
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1712 audioplayer *player = new audioplayer ();
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1713
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1714 player->set_y (getaudiodata ());
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1715 player->set_fs (get_fs ());
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1716 player->set_nbits (get_nbits ());
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1717 player->init ();
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1718
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1719 return player;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1720 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1721
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1722 bool
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1723 audiorecorder::isrecording (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1724 {
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	1725 if (get_stream () == nullptr)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1726 return false;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1727
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1728 PaError err;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1729 err = Pa_IsStreamActive (stream);
19515 0f7788e2d677 * audiodevinfo.cc: Use "\|\|" and "&&", not "or" and "and". John W. Eaton <jwe@octave.org> parents: 19514 diff changeset	1730 if (err != 0 && err != 1)
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	1731 error ("audiorecorder: checking stream activity status failed");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1732
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1733 return (err == 1);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1734 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1735
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1736 void
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1737 audiorecorder::record (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1738 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1739 if (get_stream ())
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1740 stop ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1741
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1742 left.clear ();
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1743 right.clear ();
19671 322d0fe84a8c Make audio buffer size dependent on sample rate Mike Miller <mtmiller@ieee.org> parents: 19598 diff changeset	1744
322d0fe84a8c Make audio buffer size dependent on sample rate Mike Miller <mtmiller@ieee.org> parents: 19598 diff changeset	1745 const unsigned int buffer_size = get_fs () / 20;
322d0fe84a8c Make audio buffer size dependent on sample rate Mike Miller <mtmiller@ieee.org> parents: 19598 diff changeset	1746
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1747 PaError err;
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	1748 if (octave_callback_function != nullptr)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1749 {
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	1750 err = Pa_OpenStream (&stream, &(input_parameters), nullptr,
19671 322d0fe84a8c Make audio buffer size dependent on sample rate Mike Miller <mtmiller@ieee.org> parents: 19598 diff changeset	1751 get_fs (), buffer_size, paClipOff,
19513 4cb4210bd392 use C++ style casts in audio code John W. Eaton <jwe@octave.org> parents: 19512 diff changeset	1752 octave_record_callback, this);
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1753 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1754 else
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1755 {
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	1756 err = Pa_OpenStream (&stream, &(input_parameters), nullptr,
19671 322d0fe84a8c Make audio buffer size dependent on sample rate Mike Miller <mtmiller@ieee.org> parents: 19598 diff changeset	1757 get_fs (), buffer_size, paClipOff,
19513 4cb4210bd392 use C++ style casts in audio code John W. Eaton <jwe@octave.org> parents: 19512 diff changeset	1758 portaudio_record_callback, this);
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1759 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1760 if (err != paNoError)
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	1761 error ("audiorecorder: unable to open audio recording stream");
66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	1762
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1763 err = Pa_StartStream (stream);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1764 if (err != paNoError)
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	1765 error ("audiorecorder: unable to start audio recording stream");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1766 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1767
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1768 void
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1769 audiorecorder::recordblocking (float seconds)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1770 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1771 if (get_stream ())
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1772 stop ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1773
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1774 left.clear ();
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1775 right.clear ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1776
19671 322d0fe84a8c Make audio buffer size dependent on sample rate Mike Miller <mtmiller@ieee.org> parents: 19598 diff changeset	1777 const unsigned int buffer_size = get_fs () / 20;
322d0fe84a8c Make audio buffer size dependent on sample rate Mike Miller <mtmiller@ieee.org> parents: 19598 diff changeset	1778 OCTAVE_LOCAL_BUFFER (uint8_t, buffer, buffer_size * 2 * 3);
322d0fe84a8c Make audio buffer size dependent on sample rate Mike Miller <mtmiller@ieee.org> parents: 19598 diff changeset	1779
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1780 PaError err;
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	1781 err = Pa_OpenStream (&stream, &(input_parameters), nullptr,
980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	1782 get_fs (), buffer_size, paClipOff, nullptr, this);
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1783 if (err != paNoError)
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	1784 error ("audiorecorder: unable to open audio recording stream");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1785
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1786 err = Pa_StartStream (stream);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1787 if (err != paNoError)
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	1788 error ("audiorecorder: unable to start audio recording stream");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1789
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1790 unsigned int frames = seconds * get_fs ();
19671 322d0fe84a8c Make audio buffer size dependent on sample rate Mike Miller <mtmiller@ieee.org> parents: 19598 diff changeset	1791
21743 f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	1792 octave::unwind_protect frame;
19674 b3363c531662 Stop audioplayer and audiorecorder when done or interrupted Mike Miller <mtmiller@ieee.org> parents: 19673 diff changeset	1793
b3363c531662 Stop audioplayer and audiorecorder when done or interrupted Mike Miller <mtmiller@ieee.org> parents: 19673 diff changeset	1794 frame.add_fcn (safe_audiorecorder_stop, this);
b3363c531662 Stop audioplayer and audiorecorder when done or interrupted Mike Miller <mtmiller@ieee.org> parents: 19673 diff changeset	1795
19671 322d0fe84a8c Make audio buffer size dependent on sample rate Mike Miller <mtmiller@ieee.org> parents: 19598 diff changeset	1796 for (unsigned int i = 0; i < frames; i += buffer_size)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1797 {
22860 0b1e25cc4457 eliminate use of OCTAVE_QUIT macro in C++ sources John W. Eaton <jwe@octave.org> parents: 22772 diff changeset	1798 octave_quit ();
0b1e25cc4457 eliminate use of OCTAVE_QUIT macro in C++ sources John W. Eaton <jwe@octave.org> parents: 22772 diff changeset	1799
19671 322d0fe84a8c Make audio buffer size dependent on sample rate Mike Miller <mtmiller@ieee.org> parents: 19598 diff changeset	1800 Pa_ReadStream (get_stream (), buffer, buffer_size);
322d0fe84a8c Make audio buffer size dependent on sample rate Mike Miller <mtmiller@ieee.org> parents: 19598 diff changeset	1801
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	1802 if (octave_callback_function != nullptr)
980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	1803 octave_record_callback (buffer, nullptr, buffer_size, nullptr, 0, this);
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1804 else
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	1805 portaudio_record_callback (buffer, nullptr, buffer_size, nullptr, 0, this);
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1806 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1807 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1808
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1809 void
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1810 audiorecorder::pause (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1811 {
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	1812 if (get_stream () == nullptr)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1813 return;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1814
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1815 PaError err;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1816 err = Pa_StopStream (stream);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1817 if (err != paNoError)
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	1818 error ("audiorecorder: unable to stop audio recording stream");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1819 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1820
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1821 void
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1822 audiorecorder::resume (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1823 {
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	1824 if (get_stream () == nullptr)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1825 return;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1826
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1827 PaError err;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1828 err = Pa_StartStream (stream);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1829 if (err != paNoError)
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	1830 error ("audiorecorder: unable to start audio recording stream");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1831 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1832
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1833 void
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1834 audiorecorder::stop (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1835 {
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	1836 if (get_stream () == nullptr)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1837 return;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1838
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1839 PaError err;
19973 7aaf756b1532 use "!", not "not" John W. Eaton <jwe@octave.org> parents: 19861 diff changeset	1840 if (! Pa_IsStreamStopped (get_stream ()))
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1841 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1842 err = Pa_AbortStream (get_stream ());
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1843 if (err != paNoError)
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	1844 error ("audioplayer: unable to stop audio playback stream");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1845 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1846
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1847 err = Pa_CloseStream (stream);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1848 if (err != paNoError)
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	1849 error ("audiorecorder: unable to close audio recording stream");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1850
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1851 set_sample_number (0);
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1852 reset_end_sample ();
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23567 diff changeset	1853 stream = nullptr;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1854 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1855
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1856 void
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1857 audiorecorder::append (float sample_l, float sample_r)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1858 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1859 left.push_back (sample_l);
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1860 right.push_back (sample_r);
22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1861 set_sample_number (get_sample_number () + 1);
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1862 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1863
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1864 PaStream *
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1865 audiorecorder::get_stream (void)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1866 {
19517 22e2f11424b3 avoid more warnings in audio code John W. Eaton <jwe@octave.org> parents: 19516 diff changeset	1867 return stream;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1868 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1869
19526 7f271cef5850 protect all portaudio and sndfile dependent code with #ifdefs John W. Eaton <jwe@octave.org> parents: 19519 diff changeset	1870 #endif
7f271cef5850 protect all portaudio and sndfile dependent code with #ifdefs John W. Eaton <jwe@octave.org> parents: 19519 diff changeset	1871
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	1872 DEFMETHOD_DLD (__recorder_audiorecorder__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	1873 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	1874 @deftypefn {} {@var{recorder} =} __recorder_audiorecorder__ (@var{fs}, @var{nbits}, @var{channels})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	1875 @deftypefnx {} {@var{recorder} =} __recorder_audiorecorder__ (@var{fs}, @var{nbits}, @var{channels}, @var{id})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	1876 @deftypefnx {} {@var{recorder} =} __recorder_audiorecorder__ (@var{fcn}, @dots{})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	1877 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	1878 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1879 {
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1880 octave_value retval;
e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1881
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	1882 #if ! defined (HAVE_PORTAUDIO)
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	1883 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	1884
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	1885 err_disabled_feature ("__recorder_audiorecorder__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	1886 "audio playback and recording through PortAudio");
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	1887 #else
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1888
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	1889 interp.mlock ();
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	1890
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1891 int nargin = args.length ();
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1892
23449 c763214a8260 maint: Use convention 'int x' for naming pointers. Rik <rik@octave.org>* parents: 23446 diff changeset	1893 audiorecorder *recorder = new audiorecorder ();
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1894
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1895 if (nargin > 0)
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1896 {
19574 47d778e6a518 * audiodevinfo.cc: Minor style fixes. John W. Eaton <jwe@octave.org> parents: 19573 diff changeset	1897 bool is_function = (args(0).is_string () \|\| args(0).is_function_handle ()
47d778e6a518 * audiodevinfo.cc: Minor style fixes. John W. Eaton <jwe@octave.org> parents: 19573 diff changeset	1898 \|\| args(0).is_inline_function ());
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1899
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1900 if (is_function)
25910 b4bf418dfc74 Correct audioplayer message strings (bug #54748). Lars Kindermann <lars.kindermann@reglos.de> parents: 25054 diff changeset	1901 error ("audiorecorder: callbacks not yet implemented");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1902 }
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1903
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	1904 if (nargin >= 3)
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1905 {
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	1906 recorder->set_fs (args(0).int_value ());
04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	1907 recorder->set_nbits (args(1).int_value ());
04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	1908 recorder->set_channels (args(2).int_value ());
04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	1909 }
04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	1910
04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	1911 if (nargin == 4)
04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	1912 {
04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	1913 recorder->set_id (args(3).int_value ());
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1914 }
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1915
e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1916 recorder->init ();
e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1917 retval = recorder;
e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1918
e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1919 #endif
e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	1920
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1921 return retval;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1922 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1923
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	1924 #if defined (HAVE_PORTAUDIO)
19526 7f271cef5850 protect all portaudio and sndfile dependent code with #ifdefs John W. Eaton <jwe@octave.org> parents: 19519 diff changeset	1925
19513 4cb4210bd392 use C++ style casts in audio code John W. Eaton <jwe@octave.org> parents: 19512 diff changeset	1926 static audiorecorder *
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	1927 get_recorder (octave::interpreter& interp, const octave_value& ov)
19513 4cb4210bd392 use C++ style casts in audio code John W. Eaton <jwe@octave.org> parents: 19512 diff changeset	1928 {
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	1929 interp.mlock ();
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	1930
19513 4cb4210bd392 use C++ style casts in audio code John W. Eaton <jwe@octave.org> parents: 19512 diff changeset	1931 const octave_base_value& rep = ov.get_rep ();
4cb4210bd392 use C++ style casts in audio code John W. Eaton <jwe@octave.org> parents: 19512 diff changeset	1932
4cb4210bd392 use C++ style casts in audio code John W. Eaton <jwe@octave.org> parents: 19512 diff changeset	1933 octave_base_value ncrep = const_cast<octave_base_value > (&rep);
4cb4210bd392 use C++ style casts in audio code John W. Eaton <jwe@octave.org> parents: 19512 diff changeset	1934
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	1935 audiorecorder rec = dynamic_cast<audiorecorder > (ncrep);
04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	1936 if (! rec)
04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	1937 error ("audiodevinfo.cc get_recorder: dynamic_cast to audiorecorder failed");
04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	1938
04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	1939 return rec;
19513 4cb4210bd392 use C++ style casts in audio code John W. Eaton <jwe@octave.org> parents: 19512 diff changeset	1940 }
4cb4210bd392 use C++ style casts in audio code John W. Eaton <jwe@octave.org> parents: 19512 diff changeset	1941
19526 7f271cef5850 protect all portaudio and sndfile dependent code with #ifdefs John W. Eaton <jwe@octave.org> parents: 19519 diff changeset	1942 #endif
7f271cef5850 protect all portaudio and sndfile dependent code with #ifdefs John W. Eaton <jwe@octave.org> parents: 19519 diff changeset	1943
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	1944 DEFMETHOD_DLD (__recorder_getaudiodata__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	1945 doc: /* -- texinfo --
24998 7feafd20703f doc: fix doc string declarations (bug #53416) Mike Miller <mtmiller@octave.org> parents: 24534 diff changeset	1946 @deftypefn {} {@var{data} =} __recorder_getaudiodata__ (@var{recorder})
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	1947 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	1948 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1949 {
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1950 octave_value retval;
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	1951 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	1952 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	1953 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	1954
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	1955 err_disabled_feature ("__recorder_getaudiodata__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	1956 "audio playback and recording through PortAudio");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1957 #else
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	1958 retval = get_recorder (interp, args(0))->getaudiodata ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1959 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1960 return retval;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1961 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1962
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	1963 DEFMETHOD_DLD (__recorder_get_channels__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	1964 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	1965 @deftypefn {} {@var{n} =} __recorder_get_channels__ (@var{recorder})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	1966 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	1967 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1968 {
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1969 octave_value retval;
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	1970 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	1971 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	1972 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	1973
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	1974 err_disabled_feature ("__recorder_get_channels__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	1975 "audio playback and recording through PortAudio");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1976 #else
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	1977 retval = get_recorder (interp, args(0))->get_channels ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1978 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1979 return retval;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1980 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1981
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	1982 DEFMETHOD_DLD (__recorder_get_fs__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	1983 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	1984 @deftypefn {} {@var{fs} =} __recorder_get_fs__ (@var{recorder})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	1985 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	1986 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1987 {
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1988 octave_value retval;
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	1989 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	1990 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	1991 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	1992
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	1993 err_disabled_feature ("__recorder_get_fs__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	1994 "audio playback and recording through PortAudio");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1995 #else
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	1996 retval = get_recorder (interp, args(0))->get_fs ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1997 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1998 return retval;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	1999 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2000
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2001 DEFMETHOD_DLD (__recorder_get_id__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2002 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2003 @deftypefn {} {@var{id} =} __recorder_get_id__ (@var{recorder})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2004 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2005 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2006 {
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2007 octave_value retval;
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2008 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2009 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2010 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2011
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2012 err_disabled_feature ("__recorder_get_id__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2013 "audio playback and recording through PortAudio");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2014 #else
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2015 retval = get_recorder (interp, args(0))->get_id ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2016 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2017 return retval;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2018 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2019
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2020 DEFMETHOD_DLD (__recorder_get_nbits__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2021 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2022 @deftypefn {} {@var{nbits} =} __recorder_get_nbits__ (@var{recorder})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2023 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2024 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2025 {
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2026 octave_value retval;
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2027 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2028 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2029 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2030
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2031 err_disabled_feature ("__recorder_get_nbits__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2032 "audio playback and recording through PortAudio");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2033 #else
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2034 retval = get_recorder (interp, args(0))->get_nbits ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2035 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2036 return retval;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2037 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2038
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2039 DEFMETHOD_DLD (__recorder_get_sample_number__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2040 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2041 @deftypefn {} {@var{n} =} __recorder_get_sample_number__ (@var{recorder})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2042 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2043 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2044 {
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2045 octave_value retval;
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2046 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2047 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2048 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2049
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2050 err_disabled_feature ("__recorder_get_sample_number__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2051 "audio playback and recording through PortAudio");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2052 #else
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2053 retval = get_recorder (interp, args(0))->get_sample_number ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2054 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2055 return retval;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2056 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2057
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2058 DEFMETHOD_DLD (__recorder_get_tag__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2059 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2060 @deftypefn {} {@var{tag} =} __recorder_get_tag__ (@var{recorder})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2061 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2062 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2063 {
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2064 octave_value retval;
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2065 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2066 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2067 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2068
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2069 err_disabled_feature ("__recorder_get_tag__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2070 "audio playback and recording through PortAudio");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2071 #else
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2072 retval = get_recorder (interp, args(0))->get_tag ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2073 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2074 return retval;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2075 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2076
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2077 DEFMETHOD_DLD (__recorder_get_total_samples__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2078 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2079 @deftypefn {} {@var{n} =} __recorder_get_total_samples__ (@var{recorder})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2080 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2081 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2082 {
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2083 octave_value retval;
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2084 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2085 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2086 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2087
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2088 err_disabled_feature ("__recorder_get_total_samples__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2089 "audio playback and recording through PortAudio");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2090 #else
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2091 retval = get_recorder (interp, args(0))->get_total_samples ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2092 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2093 return retval;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2094 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2095
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2096 DEFMETHOD_DLD (__recorder_get_userdata__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2097 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2098 @deftypefn {} {@var{data} =} __recorder_get_userdata__ (@var{recorder})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2099 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2100 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2101 {
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2102 octave_value retval;
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2103 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2104 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2105 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2106
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2107 err_disabled_feature ("__recorder_get_userdata__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2108 "audio playback and recording through PortAudio");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2109 #else
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2110 retval = get_recorder (interp, args(0))->get_userdata ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2111 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2112 return retval;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2113 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2114
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2115 DEFMETHOD_DLD (__recorder_isrecording__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2116 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2117 @deftypefn {} {} __recorder_isrecording__ (@var{recorder})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2118 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2119 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2120 {
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2121 octave_value retval;
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2122 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2123 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2124 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2125
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2126 err_disabled_feature ("__recorder_isrecording__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2127 "audio playback and recording through PortAudio");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2128 #else
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2129 retval = get_recorder (interp, args(0))->isrecording ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2130 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2131 return retval;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2132 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2133
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2134 DEFMETHOD_DLD (__recorder_pause__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2135 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2136 @deftypefn {} {} __recorder_pause__ (@var{recorder})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2137 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2138 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2139 {
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2140 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2141 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2142 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2143
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2144 err_disabled_feature ("__recorder_pause__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2145 "audio playback and recording through PortAudio");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2146 #else
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2147 get_recorder (interp, args(0))->pause ();
21125 8f76684324b5 maint: change "return octave_value ()" to "return ovl ()". Rik <rik@octave.org> parents: 21103 diff changeset	2148 return ovl ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2149 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2150 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2151
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2152 DEFMETHOD_DLD (__recorder_recordblocking__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2153 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2154 @deftypefn {} {} __recorder_recordblocking__ (@var{recorder}, @var{seconds})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2155 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2156 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2157 {
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2158 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2159 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2160 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2161
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2162 err_disabled_feature ("__recorder_recordblocking__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2163 "audio playback and recording through PortAudio");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2164 #else
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2165 float seconds = args(1).float_value ();
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2166 get_recorder (interp, args(0))->recordblocking (seconds);
21125 8f76684324b5 maint: change "return octave_value ()" to "return ovl ()". Rik <rik@octave.org> parents: 21103 diff changeset	2167 return ovl ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2168 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2169 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2170
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2171 DEFMETHOD_DLD (__recorder_record__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2172 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2173 @deftypefn {} {} __recorder_record__ (@var{recorder})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2174 @deftypefnx {} {} __recorder_record__ (@var{recorder}, @var{seconds})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2175 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2176 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2177 {
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2178 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2179 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2180 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2181
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2182 err_disabled_feature ("__recorder_record__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2183 "audio playback and recording through PortAudio");
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2184 #else
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2185 audiorecorder *recorder = get_recorder (interp, args(0));
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2186
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2187 if (args.length () == 2)
04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2188 recorder->set_end_sample (args(1).int_value () * recorder->get_fs ());
04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2189
04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2190 recorder->record ();
21125 8f76684324b5 maint: change "return octave_value ()" to "return ovl ()". Rik <rik@octave.org> parents: 21103 diff changeset	2191 return ovl ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2192 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2193 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2194
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2195 DEFMETHOD_DLD (__recorder_resume__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2196 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2197 @deftypefn {} {} __recorder_resume__ (@var{recorder})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2198 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2199 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2200 {
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2201 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2202 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2203 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2204
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2205 err_disabled_feature ("__recorder_resume__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2206 "audio playback and recording through PortAudio");
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2207 #else
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2208 if (args.length () == 1)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2209 get_recorder (interp, args(0))->resume ();
21125 8f76684324b5 maint: change "return octave_value ()" to "return ovl ()". Rik <rik@octave.org> parents: 21103 diff changeset	2210 return ovl ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2211 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2212 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2213
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2214 DEFMETHOD_DLD (__recorder_set_fs__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2215 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2216 @deftypefn {} {} __recorder_set_fs__ (@var{recorder}, @var{fs})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2217 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2218 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2219 {
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2220 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2221 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2222 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2223
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2224 err_disabled_feature ("__recorder_set_fs__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2225 "audio playback and recording through PortAudio");
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2226 #else
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2227 if (args.length () == 2)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2228 get_recorder (interp, args(0))->set_fs (args(1).int_value ());
21125 8f76684324b5 maint: change "return octave_value ()" to "return ovl ()". Rik <rik@octave.org> parents: 21103 diff changeset	2229 return ovl ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2230 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2231 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2232
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2233 DEFMETHOD_DLD (__recorder_set_tag__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2234 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2235 @deftypefn {} {} __recorder_set_tag__ (@var{recorder}, @var{tag})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2236 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2237 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2238 {
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2239 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2240 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2241 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2242
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2243 err_disabled_feature ("__recorder_set_tag__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2244 "audio playback and recording through PortAudio");
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2245 #else
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2246 if (args.length () == 2)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2247 get_recorder (interp, args(0))->set_tag (args(1).char_matrix_value ());
21125 8f76684324b5 maint: change "return octave_value ()" to "return ovl ()". Rik <rik@octave.org> parents: 21103 diff changeset	2248 return ovl ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2249 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2250 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2251
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2252 DEFMETHOD_DLD (__recorder_set_userdata__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2253 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2254 @deftypefn {} {} __recorder_set_userdata__ (@var{recorder}, @var{data})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2255 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2256 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2257 {
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2258 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2259 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2260 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2261
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2262 err_disabled_feature ("__recorder_set_userdata__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2263 "audio playback and recording through PortAudio");
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2264 #else
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2265 if (args.length () == 2)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2266 get_recorder (interp, args(0))->set_userdata (args(1));
21125 8f76684324b5 maint: change "return octave_value ()" to "return ovl ()". Rik <rik@octave.org> parents: 21103 diff changeset	2267 return ovl ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2268 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2269 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2270
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2271 DEFMETHOD_DLD (__recorder_stop__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2272 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2273 @deftypefn {} {} __recorder_stop__ (@var{recorder})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2274 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2275 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2276 {
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2277 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2278 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2279 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2280
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2281 err_disabled_feature ("__recorder_stop__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2282 "audio playback and recording through PortAudio");
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2283 #else
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2284 if (args.length () == 1)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2285 get_recorder (interp, args(0))->stop ();
21125 8f76684324b5 maint: change "return octave_value ()" to "return ovl ()". Rik <rik@octave.org> parents: 21103 diff changeset	2286 return ovl ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2287 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2288 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2289
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2290 DEFMETHOD_DLD (__player_audioplayer__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2291 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2292 @deftypefn {} {@var{player} =} __player_audioplayer__ (@var{y}, @var{fs})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2293 @deftypefnx {} {@var{player} =} __player_audioplayer__ (@var{y}, @var{fs}, @var{nbits})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2294 @deftypefnx {} {@var{player} =} __player_audioplayer__ (@var{y}, @var{fs}, @var{nbits}, @var{id})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2295 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2296 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2297 {
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2298 octave_value retval;
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2299 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2300 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2301 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2302
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2303 err_disabled_feature ("__player_audioplayer__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2304 "audio playback and recording through PortAudio");
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2305 #else
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2306 interp.mlock ();
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2307
23449 c763214a8260 maint: Use convention 'int x' for naming pointers. Rik <rik@octave.org>* parents: 23446 diff changeset	2308 audioplayer *recorder = new audioplayer ();
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2309
19574 47d778e6a518 * audiodevinfo.cc: Minor style fixes. John W. Eaton <jwe@octave.org> parents: 19573 diff changeset	2310 bool is_function = (args(0).is_string () \|\| args(0).is_function_handle ()
47d778e6a518 * audiodevinfo.cc: Minor style fixes. John W. Eaton <jwe@octave.org> parents: 19573 diff changeset	2311 \|\| args(0).is_inline_function ());
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2312
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2313 if (is_function)
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	2314 error ("audioplayer: callbacks not yet implemented");
21055 5e00ed38a58b maint: Replace if/error/else paradigm with just if/error. Rik <rik@octave.org> parents: 20946 diff changeset	2315
5e00ed38a58b maint: Replace if/error/else paradigm with just if/error. Rik <rik@octave.org> parents: 20946 diff changeset	2316 recorder->set_y (args(0));
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2317 recorder->set_fs (args(1).int_value ());
e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2318
22772 12e480350db3 maint: Use args.length() rather than declaring nargin when used only once. Rik <rik@octave.org> parents: 22755 diff changeset	2319 switch (args.length ())
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2320 {
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2321 case 3:
e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2322 recorder->set_nbits (args(2).int_value ());
e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2323 break;
19550 0083cc91bfaa * audiodevinfo.cc: Style fixes. John W. Eaton <jwe@octave.org> parents: 19549 diff changeset	2324
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2325 case 4:
e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2326 recorder->set_nbits (args(2).int_value ());
e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2327 recorder->set_id (args(3).int_value ());
e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2328 break;
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2329 }
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2330
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2331 if (is_function)
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2332 recorder->init_fn ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2333 else
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2334 recorder->init ();
e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2335
e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2336 retval = recorder;
e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2337 #endif
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2338 return retval;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2339 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2340
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2341 #if defined (HAVE_PORTAUDIO)
19526 7f271cef5850 protect all portaudio and sndfile dependent code with #ifdefs John W. Eaton <jwe@octave.org> parents: 19519 diff changeset	2342
19513 4cb4210bd392 use C++ style casts in audio code John W. Eaton <jwe@octave.org> parents: 19512 diff changeset	2343 static audioplayer *
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2344 get_player (octave::interpreter& interp, const octave_value& ov)
19513 4cb4210bd392 use C++ style casts in audio code John W. Eaton <jwe@octave.org> parents: 19512 diff changeset	2345 {
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2346 interp.mlock ();
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2347
19513 4cb4210bd392 use C++ style casts in audio code John W. Eaton <jwe@octave.org> parents: 19512 diff changeset	2348 const octave_base_value& rep = ov.get_rep ();
4cb4210bd392 use C++ style casts in audio code John W. Eaton <jwe@octave.org> parents: 19512 diff changeset	2349
4cb4210bd392 use C++ style casts in audio code John W. Eaton <jwe@octave.org> parents: 19512 diff changeset	2350 octave_base_value ncrep = const_cast<octave_base_value > (&rep);
4cb4210bd392 use C++ style casts in audio code John W. Eaton <jwe@octave.org> parents: 19512 diff changeset	2351
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2352 audioplayer pl = dynamic_cast<audioplayer > (ncrep);
04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2353 if (! pl)
04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2354 error ("audiodevinfo.cc get_player: dynamic_cast to audioplayer failed");
04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2355
04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2356 return pl;
19513 4cb4210bd392 use C++ style casts in audio code John W. Eaton <jwe@octave.org> parents: 19512 diff changeset	2357 }
4cb4210bd392 use C++ style casts in audio code John W. Eaton <jwe@octave.org> parents: 19512 diff changeset	2358
19526 7f271cef5850 protect all portaudio and sndfile dependent code with #ifdefs John W. Eaton <jwe@octave.org> parents: 19519 diff changeset	2359 #endif
7f271cef5850 protect all portaudio and sndfile dependent code with #ifdefs John W. Eaton <jwe@octave.org> parents: 19519 diff changeset	2360
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2361 DEFMETHOD_DLD (__player_get_channels__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2362 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2363 @deftypefn {} {@var{n} =} __player_get_channels__ (@var{player})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2364 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2365 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2366 {
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2367 octave_value retval;
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2368 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2369 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2370 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2371
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2372 err_disabled_feature ("__player_get_channels__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2373 "audio playback and recording through PortAudio");
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2374 #else
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2375 if (args.length () == 1)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2376 retval = get_player (interp, args(0))->get_channels ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2377 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2378 return retval;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2379 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2380
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2381 DEFMETHOD_DLD (__player_get_fs__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2382 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2383 @deftypefn {} {@var{fs} =} __player_get_fs__ (@var{player})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2384 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2385 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2386 {
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2387 octave_value retval;
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2388 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2389 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2390 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2391
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2392 err_disabled_feature ("__player_get_fs__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2393 "audio playback and recording through PortAudio");
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2394 #else
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2395 if (args.length () == 1)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2396 retval = get_player (interp, args(0))->get_fs ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2397 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2398 return retval;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2399 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2400
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2401 DEFMETHOD_DLD (__player_get_id__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2402 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2403 @deftypefn {} {@var{id} =} __player_get_id__ (@var{player})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2404 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2405 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2406 {
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2407 octave_value retval;
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2408 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2409 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2410 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2411
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2412 err_disabled_feature ("__player_get_id__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2413 "audio playback and recording through PortAudio");
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2414 #else
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2415 if (args.length () == 1)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2416 retval = get_player (interp, args(0))->get_id ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2417 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2418 return retval;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2419 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2420
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2421 DEFMETHOD_DLD (__player_get_nbits__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2422 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2423 @deftypefn {} {@var{nbits} =} __player_get_nbits__ (@var{player})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2424 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2425 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2426 {
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2427 octave_value retval;
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2428 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2429 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2430 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2431
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2432 err_disabled_feature ("__player_get_nbits__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2433 "audio playback and recording through PortAudio");
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2434 #else
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2435 if (args.length () == 1)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2436 retval = get_player (interp, args(0))->get_nbits ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2437 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2438 return retval;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2439 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2440
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2441 DEFMETHOD_DLD (__player_get_sample_number__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2442 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2443 @deftypefn {} {@var{n} =} __player_get_sample_number__ (@var{player})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2444 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2445 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2446 {
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2447 octave_value retval;
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2448 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2449 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2450 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2451
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2452 err_disabled_feature ("__player_get_sample_number__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2453 "audio playback and recording through PortAudio");
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2454 #else
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2455 if (args.length () == 1)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2456 retval = get_player (interp, args(0))->get_sample_number ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2457 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2458 return retval;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2459 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2460
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2461 DEFMETHOD_DLD (__player_get_tag__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2462 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2463 @deftypefn {} {@var{tag} =} __player_get_tag__ (@var{player})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2464 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2465 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2466 {
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2467 octave_value retval;
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2468 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2469 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2470 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2471
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2472 err_disabled_feature ("__player_get_tag__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2473 "audio playback and recording through PortAudio");
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2474 #else
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2475 if (args.length () == 1)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2476 retval = get_player (interp, args(0))->get_tag ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2477 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2478 return retval;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2479 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2480
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2481 DEFMETHOD_DLD (__player_get_total_samples__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2482 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2483 @deftypefn {} {@var{n} =} __player_get_total_samples__ (@var{player})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2484 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2485 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2486 {
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2487 octave_value retval;
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2488 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2489 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2490 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2491
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2492 err_disabled_feature ("__player_get_total_samples__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2493 "audio playback and recording through PortAudio");
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2494 #else
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2495 if (args.length () == 1)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2496 retval = get_player (interp, args(0))->get_total_samples ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2497 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2498 return retval;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2499 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2500
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2501 DEFMETHOD_DLD (__player_get_userdata__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2502 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2503 @deftypefn {} {@var{data} =} __player_get_userdata__ (@var{player})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2504 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2505 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2506 {
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2507 octave_value retval;
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2508 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2509 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2510 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2511
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2512 err_disabled_feature ("__player_get_userdata__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2513 "audio playback and recording through PortAudio");
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2514 #else
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2515 if (args.length () == 1)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2516 retval = get_player (interp, args(0))->get_userdata ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2517 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2518 return retval;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2519 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2520
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2521 DEFMETHOD_DLD (__player_isplaying__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2522 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2523 @deftypefn {} {} __player_isplaying__ (@var{player})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2524 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2525 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2526 {
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2527 octave_value retval;
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2528 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2529 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2530 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2531
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2532 err_disabled_feature ("__player_isplaying__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2533 "audio playback and recording through PortAudio");
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2534 #else
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2535 if (args.length () == 1)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2536 retval = get_player (interp, args(0))->isplaying ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2537 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2538 return retval;
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2539 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2540
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2541 DEFMETHOD_DLD (__player_pause__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2542 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2543 @deftypefn {} {} __player_pause__ (@var{player})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2544 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2545 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2546 {
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2547 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2548 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2549 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2550
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2551 err_disabled_feature ("__player_pause__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2552 "audio playback and recording through PortAudio");
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2553 #else
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2554 if (args.length () == 1)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2555 get_player (interp, args(0))->pause ();
21125 8f76684324b5 maint: change "return octave_value ()" to "return ovl ()". Rik <rik@octave.org> parents: 21103 diff changeset	2556 return ovl ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2557 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2558 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2559
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2560 DEFMETHOD_DLD (__player_playblocking__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2561 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2562 @deftypefn {} {} __player_playblocking__ (@var{player})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2563 @deftypefnx {} {} __player_playblocking__ (@var{player}, @var{start})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2564 @deftypefnx {} {} __player_playblocking__ (@var{player}, [@var{start}, @var{end}])
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2565 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2566 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2567 {
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2568 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2569 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2570 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2571
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2572 err_disabled_feature ("__player_playblocking__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2573 "audio playback and recording through PortAudio");
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2574 #else
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2575
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2576 audioplayer *player = get_player (interp, args(0));
19573 2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	2577
2aaf6077eb3c avoid dereferencing null pointers in audio functions John W. Eaton <jwe@octave.org> parents: 19571 diff changeset	2578 if (args.length () == 1)
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2579 {
04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2580 player->playblocking ();
04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2581 }
04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2582 else if (args.length () == 2)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2583 {
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2584 if (args(1).is_matrix_type ())
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2585 {
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2586 RowVector range = args(1).row_vector_value ();
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2587
e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2588 unsigned int start = range.elem (0) - 1;
e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2589 unsigned int end = range.elem (1) - 1;
e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2590
19515 0f7788e2d677 * audiodevinfo.cc: Use "\|\|" and "&&", not "or" and "and". John W. Eaton <jwe@octave.org> parents: 19514 diff changeset	2591 if (start > player->get_total_samples ()
0f7788e2d677 * audiodevinfo.cc: Use "\|\|" and "&&", not "or" and "and". John W. Eaton <jwe@octave.org> parents: 19514 diff changeset	2592 \|\| start > end \|\| end > player->get_total_samples ())
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	2593 error ("audioplayer: invalid range specified for playback");
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2594
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2595 player->set_sample_number (start);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2596 player->set_end_sample (end);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2597 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2598 else
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2599 {
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2600 unsigned int start = args(1).int_value () - 1;
e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2601
19514 ef6875adb053 * audiodevinfo.cc: Avoid warnings about comparision operations. John W. Eaton <jwe@octave.org> parents: 19513 diff changeset	2602 if (start > player->get_total_samples ())
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	2603 error ("audioplayer: invalid range specified for playback");
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2604
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2605 player->set_sample_number (start);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2606 }
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2607
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2608 player->playblocking ();
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2609 }
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2610
21125 8f76684324b5 maint: change "return octave_value ()" to "return ovl ()". Rik <rik@octave.org> parents: 21103 diff changeset	2611 return ovl ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2612 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2613 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2614
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2615 DEFMETHOD_DLD (__player_play__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2616 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2617 @deftypefn {} {} __player_play__ (@var{player})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2618 @deftypefnx {} {} __player_play__ (@var{player}, @var{start})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2619 @deftypefnx {} {} __player_play__ (@var{player}, [@var{start}, @var{end}])
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2620 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2621 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2622 {
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2623 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2624 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2625 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2626
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2627 err_disabled_feature ("__player_play__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2628 "audio playback and recording through PortAudio");
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2629 #else
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2630
e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2631 if (args.length () == 1)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2632 {
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2633 get_player (interp, args(0))->play ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2634 }
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2635 else if (args.length () == 2)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2636 {
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2637 audioplayer *player = get_player (interp, args(0));
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2638
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2639 if (args(1).is_matrix_type ())
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2640 {
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2641 RowVector range = args(1).row_vector_value ();
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2642
e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2643 unsigned int start = range.elem (0) - 1;
e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2644 unsigned int end = range.elem (1) - 1;
e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2645
19515 0f7788e2d677 * audiodevinfo.cc: Use "\|\|" and "&&", not "or" and "and". John W. Eaton <jwe@octave.org> parents: 19514 diff changeset	2646 if (start > player->get_total_samples ()
0f7788e2d677 * audiodevinfo.cc: Use "\|\|" and "&&", not "or" and "and". John W. Eaton <jwe@octave.org> parents: 19514 diff changeset	2647 \|\| start > end \|\| end > player->get_total_samples ())
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	2648 error ("audioplayer: invalid range specified for playback");
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2649
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2650 player->set_sample_number (start);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2651 player->set_end_sample (end);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2652 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2653 else
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2654 {
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2655 unsigned int start = args(1).int_value () - 1;
e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2656
19514 ef6875adb053 * audiodevinfo.cc: Avoid warnings about comparision operations. John W. Eaton <jwe@octave.org> parents: 19513 diff changeset	2657 if (start > player->get_total_samples ())
20825 66cd994d1b79 eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	2658 error ("audioplayer: invalid range specified for playback");
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2659
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2660 player->set_sample_number (start);
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2661 }
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2662
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2663 player->play ();
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2664 }
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2665
21125 8f76684324b5 maint: change "return octave_value ()" to "return ovl ()". Rik <rik@octave.org> parents: 21103 diff changeset	2666 return ovl ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2667 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2668 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2669
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2670 DEFMETHOD_DLD (__player_resume__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2671 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2672 @deftypefn {} {} __player_resume__ (@var{player})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2673 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2674 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2675 {
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2676 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2677 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2678 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2679
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2680 err_disabled_feature ("__player_resume__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2681 "audio playback and recording through PortAudio");
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2682 #else
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2683 if (args.length () == 1)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2684 get_player (interp, args(0))->resume ();
21125 8f76684324b5 maint: change "return octave_value ()" to "return ovl ()". Rik <rik@octave.org> parents: 21103 diff changeset	2685 return ovl ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2686 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2687 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2688
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2689 DEFMETHOD_DLD (__player_set_fs__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2690 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2691 @deftypefn {} {} __player_set_fs__ (@var{player}, @var{fs})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2692 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2693 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2694 {
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2695 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2696 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2697 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2698
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2699 err_disabled_feature ("__player_set_fs__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2700 "audio playback and recording through PortAudio");
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2701 #else
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2702 if (args.length () == 2)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2703 get_player (interp, args(0))->set_fs (args(1).int_value ());
21125 8f76684324b5 maint: change "return octave_value ()" to "return ovl ()". Rik <rik@octave.org> parents: 21103 diff changeset	2704 return ovl ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2705 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2706 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2707
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2708 DEFMETHOD_DLD (__player_set_tag__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2709 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2710 @deftypefn {} {} __player_set_tag__ (@var{player}, @var{tag})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2711 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2712 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2713 {
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2714 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2715 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2716 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2717
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2718 err_disabled_feature ("__player_set_tag__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2719 "audio playback and recording through PortAudio");
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2720 #else
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2721 if (args.length () == 2)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2722 get_player (interp, args(0))->set_tag (args(1).char_matrix_value ());
21125 8f76684324b5 maint: change "return octave_value ()" to "return ovl ()". Rik <rik@octave.org> parents: 21103 diff changeset	2723 return ovl ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2724 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2725 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2726
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2727 DEFMETHOD_DLD (__player_set_userdata__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2728 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2729 @deftypefn {} {} __player_set_userdata__ (@var{player}, @var{data})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2730 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2731 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2732 {
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2733 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2734 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2735 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2736
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2737 err_disabled_feature ("__player_set_userdata__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2738 "audio playback and recording through PortAudio");
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2739 #else
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2740 if (args.length () == 2)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2741 get_player (interp, args(0))->set_userdata (args(1));
21125 8f76684324b5 maint: change "return octave_value ()" to "return ovl ()". Rik <rik@octave.org> parents: 21103 diff changeset	2742 return ovl ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2743 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2744 }
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2745
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2746 DEFMETHOD_DLD (__player_stop__, interp, args, ,
5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2747 doc: /* -- texinfo --
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2748 @deftypefn {} {} __player_stop__ (@var{player})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2749 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21912 diff changeset	2750 @end deftypefn */)
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2751 {
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21691 diff changeset	2752 #if ! defined (HAVE_PORTAUDIO)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2753 octave_unused_parameter (interp);
21691 263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2754 octave_unused_parameter (args);
263d18409fdf Eliminate unused variable warnings for conditionally compiled code. John W. Eaton <jwe@octave.org> parents: 21580 diff changeset	2755
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 21096 diff changeset	2756 err_disabled_feature ("__player_stop__",
21103 5a83a422d8a7 Don't set 3rd argument to err_disabled_feature within core Octave. Rik <rik@octave.org> parents: 21100 diff changeset	2757 "audio playback and recording through PortAudio");
20868 04748b009201 audiodevinfo.cc:code sprint: remove print_usage () in internal functions Andreas Weber <andy.weber.aw@gmail.com> parents: 20853 diff changeset	2758 #else
19519 e616c2830413 various style fixes for audio code John W. Eaton <jwe@octave.org> parents: 19518 diff changeset	2759 if (args.length () == 1)
26559 5ace3d2b4674 avoid crash with audioplayer and audiorecorder (bug #55254) John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	2760 get_player (interp, args(0))->stop ();
21125 8f76684324b5 maint: change "return octave_value ()" to "return ovl ()". Rik <rik@octave.org> parents: 21103 diff changeset	2761 return ovl ();
19510 99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2762 #endif
99522db5b911 merge audio source files John W. Eaton <jwe@octave.org> parents: 19509 diff changeset	2763 }

Mercurial > octave

annotate libinterp/dldfcn/audiodevinfo.cc @ 27882:65a54ab6ceaa