Mercurial > octave-nkf
annotate libinterp/dldfcn/__player_audioplayer__.cc @ 19511:ec76e10c28de
concatenated audioplayer wrapper code
* __player_audioplayer__.cc: all of the __player_* wrapper functions
accessing player_class functionality
author | Vytautas Jančauskas <unaudio@gmail.com> |
---|---|
date | Wed, 11 Sep 2013 22:46:02 +0300 |
parents | |
children | 81e7bfb2e872 |
rev | line source |
---|---|
19511
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
1 #include "oct.h" |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
2 #include "ov-struct.h" |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
3 |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
4 #include "player_class.h" |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
5 |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
6 DEFUN_DLD(__player_audioplayer__, args, , |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
7 "__player_audioplayer__" |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
8 ) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
9 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
10 int nargin = args.length (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
11 audioplayer* retval = new audioplayer (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
12 bool is_function = args(0).is_string () || args(0).is_function_handle () || args(0).is_inline_function (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
13 if (is_function) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
14 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
15 retval->set_y (args (0).function_value ()); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
16 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
17 else |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
18 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
19 retval->set_y (args (0)); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
20 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
21 retval->set_fs (args (1).int_value ()); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
22 switch (nargin) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
23 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
24 case 3: |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
25 retval->set_nbits (args (2).int_value ()); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
26 break; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
27 case 4: |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
28 retval->set_nbits (args (2).int_value ()); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
29 retval->set_id (args (3).int_value ()); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
30 break; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
31 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
32 if (is_function) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
33 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
34 retval->init_fn (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
35 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
36 else |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
37 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
38 retval->init (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
39 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
40 return octave_value(retval); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
41 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
42 |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
43 DEFUN_DLD(__player_get_channels__, args, , |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
44 "__player_get_channels__" |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
45 ) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
46 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
47 octave_value retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
48 int nargin = args.length (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
49 if (nargin == 1) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
50 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
51 audioplayer* player = 0; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
52 const octave_base_value& rep = args (0).get_rep (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
53 player = &((audioplayer &)rep); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
54 retval = octave_value(player->get_channels()); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
55 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
56 return retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
57 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
58 |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
59 DEFUN_DLD(__player_get_id__, args, , |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
60 "__player_get_id__" |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
61 ) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
62 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
63 octave_value retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
64 int nargin = args.length (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
65 if (nargin == 1) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
66 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
67 audioplayer* player = 0; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
68 const octave_base_value& rep = args (0).get_rep (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
69 player = &((audioplayer &)rep); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
70 retval = octave_value(player->get_id()); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
71 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
72 return retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
73 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
74 |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
75 DEFUN_DLD(__player_get_fs__, args, , |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
76 "__player_get_fs__" |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
77 ) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
78 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
79 octave_value retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
80 int nargin = args.length (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
81 if (nargin == 1) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
82 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
83 audioplayer* player = 0; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
84 const octave_base_value& rep = args (0).get_rep (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
85 player = &((audioplayer &)rep); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
86 retval = octave_value(player->get_fs()); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
87 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
88 return retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
89 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
90 |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
91 DEFUN_DLD(__player_get_id__, args, , |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
92 "__player_get_id__" |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
93 ) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
94 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
95 octave_value retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
96 int nargin = args.length (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
97 if (nargin == 1) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
98 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
99 audioplayer* player = 0; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
100 const octave_base_value& rep = args (0).get_rep (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
101 player = &((audioplayer &)rep); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
102 retval = octave_value(player->get_id()); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
103 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
104 return retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
105 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
106 |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
107 DEFUN_DLD(__player_get_nbits__, args, , |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
108 "__player_get_nbits__" |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
109 ) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
110 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
111 octave_value retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
112 int nargin = args.length (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
113 if (nargin == 1) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
114 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
115 audioplayer* player = 0; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
116 const octave_base_value& rep = args (0).get_rep (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
117 player = &((audioplayer &)rep); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
118 retval = octave_value(player->get_nbits()); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
119 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
120 return retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
121 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
122 |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
123 DEFUN_DLD(__player_get_sample_number__, args, , |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
124 "__player_get_sample_number__" |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
125 ) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
126 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
127 octave_value retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
128 int nargin = args.length (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
129 if (nargin == 1) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
130 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
131 audioplayer* player = 0; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
132 const octave_base_value& rep = args (0).get_rep (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
133 player = &((audioplayer &)rep); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
134 retval = octave_value(player->get_sample_number()); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
135 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
136 return retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
137 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
138 |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
139 DEFUN_DLD(__player_get_tag__, args, , |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
140 "__player_get_tag__" |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
141 ) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
142 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
143 octave_value retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
144 int nargin = args.length (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
145 if (nargin == 1) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
146 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
147 audioplayer* player = 0; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
148 const octave_base_value& rep = args (0).get_rep (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
149 player = &((audioplayer &)rep); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
150 retval = octave_value (player->get_tag ()); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
151 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
152 return retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
153 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
154 |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
155 DEFUN_DLD(__player_get_total_samples__, args, , |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
156 "__player_get_total_samples__" |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
157 ) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
158 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
159 octave_value retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
160 int nargin = args.length (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
161 if (nargin == 1) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
162 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
163 audioplayer* player = 0; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
164 const octave_base_value& rep = args (0).get_rep (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
165 player = &((audioplayer &)rep); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
166 retval = octave_value(player->get_total_samples()); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
167 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
168 return retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
169 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
170 |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
171 DEFUN_DLD(__player_get_userdata__, args, , |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
172 "__player_get_userdata__" |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
173 ) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
174 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
175 octave_value retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
176 int nargin = args.length (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
177 if (nargin == 1) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
178 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
179 audioplayer* player = 0; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
180 const octave_base_value& rep = args (0).get_rep (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
181 player = &((audioplayer &)rep); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
182 retval = player->get_userdata (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
183 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
184 return retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
185 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
186 |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
187 DEFUN_DLD(__player_isplaying__, args, , |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
188 "__player_isplaying__" |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
189 ) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
190 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
191 octave_value retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
192 int nargin = args.length (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
193 if (nargin == 1) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
194 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
195 audioplayer* player = 0; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
196 const octave_base_value& rep = args (0).get_rep (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
197 player = &((audioplayer &)rep); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
198 if (player->isplaying()) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
199 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
200 return octave_value(1); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
201 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
202 else |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
203 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
204 return octave_value(0); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
205 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
206 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
207 return retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
208 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
209 |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
210 DEFUN_DLD(__player_pause__, args, , |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
211 "__player_pause__" |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
212 ) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
213 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
214 octave_value retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
215 int nargin = args.length (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
216 if (nargin == 1) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
217 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
218 audioplayer* player = 0; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
219 const octave_base_value& rep = args (0).get_rep (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
220 player = &((audioplayer &)rep); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
221 player->pause(); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
222 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
223 return retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
224 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
225 |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
226 DEFUN_DLD(__player_playblocking__, args, , |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
227 "__player_playblocking__" |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
228 ) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
229 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
230 octave_value retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
231 int nargin = args.length (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
232 if (nargin == 1) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
233 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
234 audioplayer* player = 0; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
235 const octave_base_value& rep = args (0).get_rep (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
236 player = &((audioplayer &)rep); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
237 player->playblocking(); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
238 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
239 else |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
240 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
241 audioplayer* player = 0; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
242 const octave_base_value& rep = args (0).get_rep (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
243 player = &((audioplayer &)rep); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
244 if (args (1).is_matrix_type ()) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
245 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
246 unsigned int start, end; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
247 RowVector range = args (1).row_vector_value (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
248 start = range.elem(0) - 1; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
249 end = range.elem(1) - 1; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
250 if (start < 0 or start > player->get_total_samples() or |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
251 start > end or end < 0 or end > player->get_total_samples()) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
252 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
253 error("audioplayer: invalid range specified for playback"); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
254 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
255 player->set_sample_number(start); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
256 player->set_end_sample(end); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
257 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
258 else |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
259 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
260 unsigned int start; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
261 start = args (1).int_value() - 1; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
262 if (start < 0 or start > player->get_total_samples()) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
263 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
264 error("audioplayer: invalid range specified for playback"); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
265 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
266 player->set_sample_number(start); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
267 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
268 player->playblocking(); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
269 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
270 return retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
271 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
272 |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
273 DEFUN_DLD(__player_play__, args, , |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
274 "__player_play__" |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
275 ) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
276 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
277 octave_value retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
278 int nargin = args.length (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
279 if (nargin == 1) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
280 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
281 audioplayer* player = 0; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
282 const octave_base_value& rep = args (0).get_rep (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
283 player = &((audioplayer &)rep); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
284 player->play(); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
285 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
286 else |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
287 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
288 audioplayer* player = 0; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
289 const octave_base_value& rep = args (0).get_rep (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
290 player = &((audioplayer &)rep); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
291 if (args (1).is_matrix_type ()) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
292 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
293 unsigned int start, end; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
294 RowVector range = args (1).row_vector_value (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
295 start = range.elem(0) - 1; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
296 end = range.elem(1) - 1; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
297 if (start < 0 or start > player->get_total_samples() or |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
298 start > end or end < 0 or end > player->get_total_samples()) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
299 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
300 error("audioplayer: invalid range specified for playback"); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
301 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
302 player->set_sample_number(start); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
303 player->set_end_sample(end); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
304 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
305 else |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
306 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
307 unsigned int start; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
308 start = args (1).int_value() - 1; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
309 if (start < 0 or start > player->get_total_samples()) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
310 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
311 error("audioplayer: invalid range specified for playback"); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
312 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
313 player->set_sample_number(start); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
314 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
315 player->play(); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
316 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
317 return retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
318 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
319 |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
320 DEFUN_DLD(__player_resume__, args, , |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
321 "__player_resume__" |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
322 ) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
323 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
324 octave_value retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
325 int nargin = args.length (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
326 if (nargin == 1) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
327 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
328 audioplayer* player = 0; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
329 const octave_base_value& rep = args (0).get_rep (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
330 player = &((audioplayer &)rep); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
331 player->resume(); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
332 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
333 return retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
334 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
335 |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
336 DEFUN_DLD(__player_set_fs__, args, , |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
337 "__player_set_fs__" |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
338 ) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
339 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
340 octave_value retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
341 int nargin = args.length (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
342 if (nargin == 2) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
343 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
344 audioplayer* player = 0; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
345 const octave_base_value& rep = args (0).get_rep (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
346 player = &((audioplayer &)rep); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
347 player->set_fs (args(1).int_value ()); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
348 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
349 return retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
350 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
351 |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
352 DEFUN_DLD(__player_set_tag__, args, , |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
353 "__player_set_tag__" |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
354 ) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
355 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
356 octave_value retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
357 int nargin = args.length (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
358 if (nargin == 2) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
359 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
360 audioplayer* player = 0; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
361 const octave_base_value& rep = args (0).get_rep (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
362 player = &((audioplayer &)rep); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
363 player->set_tag (args(1).char_matrix_value ()); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
364 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
365 return retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
366 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
367 |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
368 DEFUN_DLD(__player_set_userdata__, args, , |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
369 "__player_set_userdata__" |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
370 ) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
371 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
372 octave_value retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
373 int nargin = args.length (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
374 if (nargin == 2) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
375 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
376 audioplayer* player = 0; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
377 const octave_base_value& rep = args (0).get_rep (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
378 player = &((audioplayer &)rep); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
379 player->set_userdata (args(1)); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
380 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
381 return retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
382 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
383 |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
384 DEFUN_DLD(__player_stop__, args, , |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
385 "__player_stop__" |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
386 ) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
387 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
388 octave_value retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
389 int nargin = args.length (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
390 if (nargin == 1) |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
391 { |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
392 audioplayer* player = 0; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
393 const octave_base_value& rep = args (0).get_rep (); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
394 player = &((audioplayer &)rep); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
395 player->stop(); |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
396 } |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
397 return retval; |
ec76e10c28de
concatenated audioplayer wrapper code
Vytautas Jančauskas <unaudio@gmail.com>
parents:
diff
changeset
|
398 } |