research.m1stereo.tv/gitweb/ - melted/blob - mlt/src/framework/mlt_repository.c

   1 /*
   2  * repository.c -- provides a map between service and shared objects
   3  * Copyright (C) 2003-2004 Ushodaya Enterprises Limited
   4  * Author: Charles Yates <charles.yates@pandora.be>
   5  *
   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.
  10  *
  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.
  15  *
  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.
  19  */
  20
  21 #include "mlt_repository.h"
  22 #include "mlt_properties.h"
  23
  24 #include <stdio.h>
  25 #include <stdlib.h>
  26 #include <dlfcn.h>
  27 #include <string.h>
  28
  29 struct mlt_repository_s
  30 {
  31         struct mlt_properties_s parent;
  32         mlt_properties object_list;
  33 };
  34
  35 static char *construct_full_file( char *output, char *prefix, char *file )
  36 {
  37         strcpy( output, prefix );
  38         if ( prefix[ strlen( prefix ) - 1 ] != '/' )
  39                 strcat( output, "/" );
  40         strcat( output, file );
  41         return output;
  42 }
  43
  44 static char *chomp( char *input )
  45 {
  46         if ( input[ strlen( input ) - 1 ] == '\n' )
  47                 input[ strlen( input ) - 1 ] = '\0';
  48         return input;
  49 }
  50
  51 static mlt_properties construct_object( char *prefix, char *id )
  52 {
  53         mlt_properties output = calloc( sizeof( struct mlt_properties_s ), 1 );
  54         mlt_properties_init( output, NULL );
  55         mlt_properties_set( output, "prefix", prefix );
  56         mlt_properties_set( output, "id", id );
  57         return output;
  58 }
  59
  60 static mlt_properties construct_service( mlt_properties object, char *id )
  61 {
  62         mlt_properties output = calloc( sizeof( struct mlt_properties_s ), 1 );
  63         mlt_properties_init( output, NULL );
  64         mlt_properties_set_data( output, "object", object, 0, NULL, NULL );
  65         mlt_properties_set( output, "id", id );
  66         return output;
  67 }
  68
  69 static void *construct_instance( mlt_properties service_properties, char *symbol, void *input )
  70 {
  71         // Extract the service
  72         char *service = mlt_properties_get( service_properties, "id" );
  73
  74         // Get the object properties
  75         void *object_properties = mlt_properties_get_data( service_properties, "object", NULL );
  76
  77         // Get the dlopen'd object
  78         void *object = mlt_properties_get_data( object_properties, "dlopen", NULL );
  79
  80         // Get the dlsym'd symbol
  81         void *( *symbol_ptr )( char *, void * ) = mlt_properties_get_data( object_properties, symbol, NULL );
  82
  83         // Check that we have object and open if we don't
  84         if ( object == NULL )
  85         {
  86                 char full_file[ 512 ];
  87
  88                 // Get the prefix and id of the shared object
  89                 char *prefix = mlt_properties_get( object_properties, "prefix" );
  90                 char *file = mlt_properties_get( object_properties, "id" );
  91
  92                 // Construct the full file
  93                 construct_full_file( full_file, prefix, file );
  94
  95                 // Open the shared object
  96                 object = dlopen( full_file, RTLD_NOW | RTLD_GLOBAL );
  97                 if ( object == NULL )
  98                         fprintf( stderr, "Failed to load plugin: %s\n", dlerror() );
  99
 100                 // Set it on the properties
 101                 mlt_properties_set_data( object_properties, "dlopen", object, 0, ( void (*)( void * ) )dlclose, NULL );
 102         }
 103
 104         // Now check if we have this symbol pointer
 105         if ( object != NULL && symbol_ptr == NULL )
 106         {
 107                 // Construct it now
 108                 symbol_ptr = dlsym( object, symbol );
 109
 110                 // Set it on the properties
 111                 mlt_properties_set_data( object_properties, "dlsym", symbol_ptr, 0, NULL, NULL );
 112         }
 113
 114         // Construct the service
 115         return symbol_ptr != NULL ? symbol_ptr( service, input ) : NULL;
 116 }
 117
 118 void destroy_properties( void *arg )
 119 {
 120         mlt_properties_close( arg );
 121         free( arg );
 122 }
 123
 124 mlt_repository mlt_repository_init( mlt_properties object_list, char *prefix, char *data, char *symbol )
 125 {
 126         char full_file[ 512 ];
 127         FILE *file;
 128
 129         // Construct the repository
 130         mlt_repository this = calloc( sizeof( struct mlt_repository_s ), 1 );
 131         mlt_properties_init( &this->parent, this );
 132
 133         // Add the symbol to THIS repository properties.
 134         mlt_properties_set( &this->parent, "_symbol", symbol );
 135
 136         // Asociate the repository to the global object_list
 137         this->object_list = object_list;
 138
 139         // Construct full file
 140         construct_full_file( full_file, prefix, data );
 141
 142         // Open the file
 143         file = fopen( full_file, "r" );
 144
 145         // Parse the contents
 146         if ( file != NULL )
 147         {
 148                 char full[ 512 ];
 149                 char service[ 256 ];
 150                 char object[ 256 ];
 151
 152                 while( fgets( full, 512, file ) )
 153                 {
 154                         chomp( full );
 155
 156                         if ( full[ 0 ] != '#' && full[ 0 ] != '\0' && sscanf( full, "%s %s", service, object ) == 2 )
 157                         {
 158                                 // Get the object properties first
 159                                 mlt_properties object_properties = mlt_properties_get_data( object_list, object, NULL );
 160
 161                                 // If their are no properties, create them now
 162                                 if ( object_properties == NULL )
 163                                 {
 164                                         // Construct the object
 165                                         object_properties = construct_object( prefix, object );
 166
 167                                         // Add it to the object list
 168                                         mlt_properties_set_data( object_list, object, object_properties, 0, destroy_properties, NULL );
 169                                 }
 170
 171                                 // Now construct a property for the service
 172                                 mlt_properties service_properties = construct_service( object_properties, service );
 173
 174                                 // Add it to the repository
 175                                 mlt_properties_set_data( &this->parent, service, service_properties, 0, destroy_properties, NULL );
 176                         }
 177                 }
 178
 179                 // Close the file
 180                 fclose( file );
 181         }
 182
 183         return this;
 184 }
 185
 186 void *mlt_repository_fetch( mlt_repository this, char *service, void *input )
 187 {
 188         // Get the service properties
 189         mlt_properties service_properties = mlt_properties_get_data( &this->parent, service, NULL );
 190
 191         // If the service exists
 192         if ( service_properties != NULL )
 193         {
 194                 // Get the symbol that is used to generate this service
 195                 char *symbol = mlt_properties_get( &this->parent, "_symbol" );
 196
 197                 // Now get an instance of the service
 198                 return construct_instance( service_properties, symbol, input );
 199         }
 200
 201         return NULL;
 202 }
 203
 204 void mlt_repository_close( mlt_repository this )
 205 {
 206         mlt_properties_close( &this->parent );
 207         free( this );
 208 }
 209
 210