octave: libinterp/dldfcn/audiodevinfo.cc annotate

annotate libinterp/dldfcn/audiodevinfo.cc @ 20853:1142cf6abc0d

2015 Code Sprint: remove class of function from docstring for all C++ files.

author	Rik <rik@octave.org>
date	Sat, 12 Dec 2015 07:40:03 -0800
parents	66cd994d1b79
children	04748b009201

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

Mercurial > octave

annotate libinterp/dldfcn/audiodevinfo.cc @ 20853:1142cf6abc0d