1 /* gAlan - Graphical Audio Language
2 * Copyright (C) 1999 Tony Garnock-Jones
4 * This program is free software; you can redistribute it and/or modify
5 * it under the terms of the GNU General Public License as published by
6 * the Free Software Foundation; either version 2 of the License, or
7 * (at your option) any later version.
9 * This program is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 * GNU General Public License for more details.
14 * You should have received a copy of the GNU General Public License
15 * along with this program; if not, write to the Free Software
16 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
29 #include "generator.h"
34 #define GENERATOR_CLASS_NAME "arradd"
35 #define GENERATOR_CLASS_PATH "Array/Add"
39 #define NUM_EVENT_INPUTS 2
42 #define NUM_EVENT_OUTPUTS 1
49 PRIVATE
int init_instance(Generator
*g
) {
50 Data
*data
= safe_malloc(sizeof(Data
));
59 PRIVATE
void destroy_instance(Generator
*g
) {
66 PRIVATE
void unpickle_instance(Generator
*g
, ObjectStoreItem
*item
, ObjectStore
*db
) {
67 Data
*data
= safe_malloc(sizeof(Data
));
68 ObjectStoreDatum
*array
;
73 array
= objectstore_item_get(item
, "arrmul_factor");
75 data
->len
= objectstore_item_get_double(item
, "arrmul_len", 0);
76 data
->factor
= safe_malloc( sizeof( gdouble
) * data
->len
);
77 for(i
=0; i
<data
->len
; i
++ )
78 data
->factor
[i
] = objectstore_datum_double_value(
79 objectstore_datum_array_get(array
, i
) );
82 PRIVATE
void pickle_instance(Generator
*g
, ObjectStoreItem
*item
, ObjectStore
*db
) {
84 ObjectStoreDatum
*array
;
88 array
= objectstore_datum_new_array(data
->len
);
89 objectstore_item_set_integer(item
, "arrmul_len", data
->len
);
90 objectstore_item_set(item
, "arrmul_factor", array
);
91 for (i
= 0; i
< data
->len
; i
++) {
92 objectstore_datum_array_set(array
, i
,
93 objectstore_datum_new_double( data
->factor
[i
]) );
97 PRIVATE
void evt_input_handler(Generator
*g
, AEvent
*event
) {
101 switch( event
->kind
) {
103 if( event
->d
.array
.len
!= data
->len
)
104 g_warning( "arrmul dimension mismatch" );
106 for( i
=0; i
<data
->len
; i
++ )
107 event
->d
.array
.numbers
[i
] += data
->factor
[i
];
109 gen_send_events(g
, EVT_OUTPUT
, -1, event
);
112 g_warning( "arradd does not support this eventkind\n" );
117 PRIVATE
void evt_factor_handler(Generator
*g
, AEvent
*event
) {
118 Data
*data
= g
->data
;
121 switch( event
->kind
) {
123 if( event
->d
.array
.len
!= data
->len
) {
124 free( data
->factor
);
125 data
->len
= event
->d
.array
.len
;
126 data
->factor
= safe_malloc( sizeof( gdouble
) * data
->len
);
130 for( i
=0; i
<data
->len
; i
++ )
131 data
->factor
[i
] = event
->d
.array
.numbers
[i
];
135 g_warning( "arrmul does not support this eventkind\n" );
140 PRIVATE ControlDescriptor controls
[] = {
141 /* { kind, name, min,max,step,page, size,editable, is_dst,queue_number,
142 init,destroy,refresh,refresh_data }, */
143 { CONTROL_KIND_NONE
, }
146 PRIVATE
void setup_class(void) {
147 GeneratorClass
*k
= gen_new_generatorclass(GENERATOR_CLASS_NAME
, FALSE
,
148 NUM_EVENT_INPUTS
, NUM_EVENT_OUTPUTS
,
149 NULL
, NULL
, controls
,
150 init_instance
, destroy_instance
,
151 unpickle_instance
, pickle_instance
);
153 gen_configure_event_input(k
, EVT_INPUT
, "Input", evt_input_handler
);
154 gen_configure_event_input(k
, EVT_FACTOR
, "Offset", evt_factor_handler
);
155 gen_configure_event_output(k
, EVT_OUTPUT
, "Output");
157 gencomp_register_generatorclass(k
, FALSE
, GENERATOR_CLASS_PATH
,
162 PUBLIC
void init_plugin(void) {