3 * Copyright (C) 2002-2003 Ushodaya Enterprises Limited
4 * Author: Dan Dennedy <dan@dennedy.org>
6 * This program is free software; you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation; either version 2 of the License, or
9 * (at your option) any later version.
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU General Public License for more details.
16 * You should have received a copy of the GNU General Public License
17 * along with this program; if not, write to the Free Software Foundation,
18 * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
25 #include <sys/types.h>
33 #include "miracle_unit.h"
34 #include "miracle_commands.h"
35 #include "miracle_log.h"
37 int miracle_load( command_argument cmd_arg )
39 miracle_unit unit = miracle_get_unit(cmd_arg->unit);
40 char *filename = (char*) cmd_arg->argument;
45 if ( filename[0] == '!' )
51 service = strchr( filename, ':' );
52 if ( service != NULL )
55 filename = strchr( service, ':' );
58 if ( strlen( cmd_arg->root_dir ) && filename[0] == '/' )
61 snprintf( fullname, 1023, "%s:%s%s", service, cmd_arg->root_dir, filename );
65 if ( strlen( cmd_arg->root_dir ) && filename[0] == '/' )
68 snprintf( fullname, 1023, "%s%s", cmd_arg->root_dir, filename );
72 return RESPONSE_INVALID_UNIT;
75 int32_t in = -1, out = -1;
76 if ( valerie_tokeniser_count( cmd_arg->tokeniser ) == 5 )
78 in = atol( valerie_tokeniser_get_string( cmd_arg->tokeniser, 3 ) );
79 out = atol( valerie_tokeniser_get_string( cmd_arg->tokeniser, 4 ) );
81 if ( miracle_unit_load( unit, fullname, in, out, flush ) != valerie_ok )
82 return RESPONSE_BAD_FILE;
84 return RESPONSE_SUCCESS;
87 int miracle_list( command_argument cmd_arg )
89 miracle_unit unit = miracle_get_unit( cmd_arg->unit );
93 miracle_unit_report_list( unit, cmd_arg->response );
94 return RESPONSE_SUCCESS;
97 return RESPONSE_INVALID_UNIT;
100 static int parse_clip( command_argument cmd_arg, int arg )
102 miracle_unit unit = miracle_get_unit(cmd_arg->unit);
103 int clip = miracle_unit_get_current_clip( unit );
105 if ( valerie_tokeniser_count( cmd_arg->tokeniser ) > arg )
107 char *token = valerie_tokeniser_get_string( cmd_arg->tokeniser, arg );
108 if ( token[ 0 ] == '+' )
109 clip += atoi( token + 1 );
110 else if ( token[ 0 ] == '-' )
111 clip -= atoi( token + 1 );
113 clip = atoi( token );
119 int miracle_insert( command_argument cmd_arg )
121 miracle_unit unit = miracle_get_unit(cmd_arg->unit);
122 char *filename = (char*) cmd_arg->argument;
125 if ( strlen( cmd_arg->root_dir ) && filename[0] == '/' )
128 snprintf( fullname, 1023, "%s%s", cmd_arg->root_dir, filename );
131 return RESPONSE_INVALID_UNIT;
134 long in = -1, out = -1;
135 int index = parse_clip( cmd_arg, 3 );
137 if ( valerie_tokeniser_count( cmd_arg->tokeniser ) == 6 )
139 in = atoi( valerie_tokeniser_get_string( cmd_arg->tokeniser, 4 ) );
140 out = atoi( valerie_tokeniser_get_string( cmd_arg->tokeniser, 5 ) );
143 switch( miracle_unit_insert( unit, fullname, index, in, out ) )
146 return RESPONSE_SUCCESS;
148 return RESPONSE_BAD_FILE;
151 return RESPONSE_SUCCESS;
154 int miracle_remove( command_argument cmd_arg )
156 miracle_unit unit = miracle_get_unit(cmd_arg->unit);
159 return RESPONSE_INVALID_UNIT;
162 int index = parse_clip( cmd_arg, 2 );
164 if ( miracle_unit_remove( unit, index ) != valerie_ok )
165 return RESPONSE_BAD_FILE;
167 return RESPONSE_SUCCESS;
170 int miracle_clean( command_argument cmd_arg )
172 miracle_unit unit = miracle_get_unit(cmd_arg->unit);
175 return RESPONSE_INVALID_UNIT;
178 if ( miracle_unit_clean( unit ) != valerie_ok )
179 return RESPONSE_BAD_FILE;
181 return RESPONSE_SUCCESS;
184 int miracle_wipe( command_argument cmd_arg )
186 miracle_unit unit = miracle_get_unit(cmd_arg->unit);
189 return RESPONSE_INVALID_UNIT;
192 if ( miracle_unit_wipe( unit ) != valerie_ok )
193 return RESPONSE_BAD_FILE;
195 return RESPONSE_SUCCESS;
198 int miracle_clear( command_argument cmd_arg )
200 miracle_unit unit = miracle_get_unit(cmd_arg->unit);
203 return RESPONSE_INVALID_UNIT;
206 if ( miracle_unit_clear( unit ) != valerie_ok )
207 return RESPONSE_BAD_FILE;
209 return RESPONSE_SUCCESS;
212 int miracle_move( command_argument cmd_arg )
214 miracle_unit unit = miracle_get_unit(cmd_arg->unit);
218 if ( valerie_tokeniser_count( cmd_arg->tokeniser ) > 2 )
220 int src = parse_clip( cmd_arg, 2 );
221 int dest = parse_clip( cmd_arg, 3 );
223 if ( miracle_unit_move( unit, src, dest ) != valerie_ok )
224 return RESPONSE_BAD_FILE;
228 return RESPONSE_MISSING_ARG;
233 return RESPONSE_INVALID_UNIT;
236 return RESPONSE_SUCCESS;
239 int miracle_append( command_argument cmd_arg )
241 miracle_unit unit = miracle_get_unit(cmd_arg->unit);
242 char *filename = (char*) cmd_arg->argument;
245 if ( strlen( cmd_arg->root_dir ) && filename[0] == '/' )
248 snprintf( fullname, 1023, "%s%s", cmd_arg->root_dir, filename );
251 return RESPONSE_INVALID_UNIT;
254 int32_t in = -1, out = -1;
255 if ( valerie_tokeniser_count( cmd_arg->tokeniser ) == 5 )
257 in = atol( valerie_tokeniser_get_string( cmd_arg->tokeniser, 3 ) );
258 out = atol( valerie_tokeniser_get_string( cmd_arg->tokeniser, 4 ) );
260 switch ( miracle_unit_append( unit, fullname, in, out ) )
263 return RESPONSE_SUCCESS;
265 return RESPONSE_BAD_FILE;
268 return RESPONSE_SUCCESS;
271 int miracle_push( command_argument cmd_arg, mlt_service service )
273 miracle_unit unit = miracle_get_unit(cmd_arg->unit);
274 if ( unit != NULL && service != NULL )
275 if ( miracle_unit_append_service( unit, service ) == valerie_ok )
276 return RESPONSE_SUCCESS;
277 return RESPONSE_BAD_FILE;
280 int miracle_receive( command_argument cmd_arg, char *doc )
282 mlt_producer producer = mlt_factory_producer( "westley-xml", doc );
283 miracle_unit unit = miracle_get_unit(cmd_arg->unit);
284 if ( unit != NULL && producer != NULL )
286 if ( miracle_unit_append_service( unit, MLT_PRODUCER_SERVICE( producer ) ) == valerie_ok )
288 mlt_producer_close( producer );
289 return RESPONSE_SUCCESS;
292 mlt_producer_close( producer );
293 return RESPONSE_BAD_FILE;
296 int miracle_play( command_argument cmd_arg )
298 miracle_unit unit = miracle_get_unit(cmd_arg->unit);
302 return RESPONSE_INVALID_UNIT;
307 if ( valerie_tokeniser_count( cmd_arg->tokeniser ) == 3 )
308 speed = atoi( valerie_tokeniser_get_string( cmd_arg->tokeniser, 2 ) );
309 miracle_unit_play( unit, speed );
312 return RESPONSE_SUCCESS;
315 int miracle_stop( command_argument cmd_arg )
317 miracle_unit unit = miracle_get_unit(cmd_arg->unit);
319 return RESPONSE_INVALID_UNIT;
321 miracle_unit_terminate( unit );
322 return RESPONSE_SUCCESS;
325 int miracle_pause( command_argument cmd_arg )
327 miracle_unit unit = miracle_get_unit(cmd_arg->unit);
329 return RESPONSE_INVALID_UNIT;
331 miracle_unit_play( unit, 0 );
332 return RESPONSE_SUCCESS;
335 int miracle_rewind( command_argument cmd_arg )
337 miracle_unit unit = miracle_get_unit(cmd_arg->unit);
339 return RESPONSE_INVALID_UNIT;
341 miracle_unit_play( unit, -2000 );
342 return RESPONSE_SUCCESS;
345 int miracle_step( command_argument cmd_arg )
347 miracle_unit unit = miracle_get_unit(cmd_arg->unit);
350 return RESPONSE_INVALID_UNIT;
353 miracle_unit_play( unit, 0 );
354 miracle_unit_step( unit, *(int*) cmd_arg->argument );
356 return RESPONSE_SUCCESS;
359 int miracle_goto( command_argument cmd_arg )
361 miracle_unit unit = miracle_get_unit(cmd_arg->unit);
362 int clip = parse_clip( cmd_arg, 3 );
364 if (unit == NULL || miracle_unit_is_offline(unit))
365 return RESPONSE_INVALID_UNIT;
367 miracle_unit_change_position( unit, clip, *(int*) cmd_arg->argument );
368 return RESPONSE_SUCCESS;
371 int miracle_ff( command_argument cmd_arg )
373 miracle_unit unit = miracle_get_unit(cmd_arg->unit);
375 return RESPONSE_INVALID_UNIT;
377 miracle_unit_play( unit, 2000 );
378 return RESPONSE_SUCCESS;
381 int miracle_set_in_point( command_argument cmd_arg )
383 miracle_unit unit = miracle_get_unit(cmd_arg->unit);
384 int clip = parse_clip( cmd_arg, 3 );
387 return RESPONSE_INVALID_UNIT;
390 int position = *(int *) cmd_arg->argument;
392 switch( miracle_unit_set_clip_in( unit, clip, position ) )
395 return RESPONSE_BAD_FILE;
397 return RESPONSE_OUT_OF_RANGE;
400 return RESPONSE_SUCCESS;
403 int miracle_set_out_point( command_argument cmd_arg )
405 miracle_unit unit = miracle_get_unit(cmd_arg->unit);
406 int clip = parse_clip( cmd_arg, 3 );
409 return RESPONSE_INVALID_UNIT;
412 int position = *(int *) cmd_arg->argument;
414 switch( miracle_unit_set_clip_out( unit, clip, position ) )
417 return RESPONSE_BAD_FILE;
419 return RESPONSE_OUT_OF_RANGE;
423 return RESPONSE_SUCCESS;
426 int miracle_get_unit_status( command_argument cmd_arg )
428 valerie_status_t status;
429 int error = miracle_unit_get_status( miracle_get_unit( cmd_arg->unit ), &status );
432 return RESPONSE_INVALID_UNIT;
436 valerie_response_printf( cmd_arg->response, sizeof( text ), valerie_status_serialise( &status, text, sizeof( text ) ) );
437 return RESPONSE_SUCCESS_1;
443 int miracle_set_unit_property( command_argument cmd_arg )
445 miracle_unit unit = miracle_get_unit(cmd_arg->unit);
446 char *name_value = (char*) cmd_arg->argument;
448 return RESPONSE_INVALID_UNIT;
450 miracle_unit_set( unit, name_value );
451 return RESPONSE_SUCCESS;
454 int miracle_get_unit_property( command_argument cmd_arg )
456 miracle_unit unit = miracle_get_unit(cmd_arg->unit);
457 char *name = (char*) cmd_arg->argument;
458 char *value = miracle_unit_get( unit, name );
460 return RESPONSE_INVALID_UNIT;
461 else if ( value != NULL )
462 valerie_response_printf( cmd_arg->response, 1024, "%s\n", value );
463 return RESPONSE_SUCCESS;
467 int miracle_transfer( command_argument cmd_arg )
469 miracle_unit src_unit = miracle_get_unit(cmd_arg->unit);
470 int dest_unit_id = -1;
471 char *string = (char*) cmd_arg->argument;
472 if ( string != NULL && ( string[ 0 ] == 'U' || string[ 0 ] == 'u' ) && strlen( string ) > 1 )
473 dest_unit_id = atoi( string + 1 );
475 if ( src_unit != NULL && dest_unit_id != -1 )
477 miracle_unit dest_unit = miracle_get_unit( dest_unit_id );
478 if ( dest_unit != NULL && !miracle_unit_is_offline(dest_unit) && dest_unit != src_unit )
480 miracle_unit_transfer( dest_unit, src_unit );
481 return RESPONSE_SUCCESS;
484 return RESPONSE_INVALID_UNIT;