2 * MltMiracle.cpp - MLT Wrapper
3 * Copyright (C) 2004-2005 Charles Yates
4 * Author: Charles Yates <charles.yates@pandora.be>
6 * This program is free software; you can redistribute it and/or modify
7 * it under the terms of the GNU Lesser General Public License as published
8 * by 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.
21 #include "MltMiracle.h"
22 #include "MltService.h"
23 #include "MltResponse.h"
28 static valerie_response
mlt_miracle_execute( void *arg
, char *command
)
30 Miracle
*miracle
= ( Miracle
* )arg
;
31 if ( miracle
!= NULL
)
33 Response
*response
= miracle
->execute( command
);
34 valerie_response real
= valerie_response_clone( response
->get_response( ) );
40 valerie_response response
= valerie_response_init( );
41 valerie_response_set_error( response
, 500, "Invalid server" );
46 static valerie_response
mlt_miracle_received( void *arg
, char *command
, char *doc
)
48 Miracle
*miracle
= ( Miracle
* )arg
;
49 if ( miracle
!= NULL
)
51 Response
*response
= miracle
->received( command
, doc
);
52 if ( response
!= NULL
)
54 valerie_response real
= valerie_response_clone( response
->get_response( ) );
62 valerie_response response
= valerie_response_init( );
63 valerie_response_set_error( response
, 500, "Invalid server" );
68 static valerie_response
mlt_miracle_push( void *arg
, char *command
, mlt_service service
)
70 Miracle
*miracle
= ( Miracle
* )arg
;
71 if ( miracle
!= NULL
)
73 Service
input( service
);
74 Response
*response
= miracle
->push( command
, &input
);
75 valerie_response real
= valerie_response_clone( response
->get_response( ) );
81 valerie_response response
= valerie_response_init( );
82 valerie_response_set_error( response
, 500, "Invalid server" );
87 Miracle
::Miracle( char *name
, int port
, char *config
) :
90 server
= miracle_server_init( name
);
91 miracle_server_set_port( server
, port
);
92 miracle_server_set_config( server
, config
);
97 miracle_server_close( server
);
100 mlt_properties Miracle
::get_properties( )
102 return &server
->parent
;
105 bool Miracle
::start( )
107 if ( miracle_server_execute( server
) == 0 )
109 _real
= server
->parser
->real
;
110 _execute
= server
->parser
->execute
;
111 _received
= server
->parser
->received
;
112 _push
= server
->parser
->push
;
113 server
->parser
->real
= this;
114 server
->parser
->execute
= mlt_miracle_execute
;
115 server
->parser
->received
= mlt_miracle_received
;
116 server
->parser
->push
= mlt_miracle_push
;
118 return server
->shutdown
== 0;
121 bool Miracle
::is_running( )
123 return server
->shutdown
== 0;
126 Response
*Miracle
::execute( char *command
)
128 return new Response( _execute( _real
, command
) );
131 Response
*Miracle
::received( char *command
, char *doc
)
133 return new Response( _received( _real
, command
, doc
) );
136 Response
*Miracle
::push( char *command
, Service
*service
)
138 return new Response( _push( _real
, command
, service
->get_service( ) ) );
141 void Miracle
::wait_for_shutdown( )
143 struct timespec tm
= { 1, 0 };
144 while ( !server
->shutdown
)
145 nanosleep( &tm
, NULL
);
148 void Miracle
::log_level( int threshold
)
150 miracle_log_init( log_stderr
, threshold
);
153 Properties
*Miracle
::unit( int index
)
155 mlt_properties properties
= miracle_server_fetch_unit( server
, index
);
156 return properties
!= NULL ?
new Properties( properties
) : NULL
;