Rudimentary arithmetic property assignment

[melted] / src / framework / mlt_properties.c

diff --git a/src/framework/mlt_properties.c b/src/framework/mlt_properties.c
index fa624d4..895be28 100644 (file)
--- a/src/framework/mlt_properties.c
+++ b/src/framework/mlt_properties.c
@@ -25,6 +25,7 @@
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
+#include <ctype.h>
 
 /* ---------------- // Private Implementation // ---------------- */
 
@@ -68,12 +69,12 @@ int mlt_properties_init( mlt_properties this, void *child )
                // Assign the child of the object
                this->child = child;
 
-               // Allocate the private structure
-               this->private = calloc( sizeof( property_list ), 1 );
+               // Allocate the local structure
+               this->local = calloc( sizeof( property_list ), 1 );
        }
 
        // Check that initialisation was successful
-       return this != NULL && this->private == NULL;
+       return this != NULL && this->local == NULL;
 }
 
 /** Constructor for stand alone object.
@@ -146,7 +147,7 @@ static inline int generate_hash( char *name )
 
 static inline void mlt_properties_do_mirror( mlt_properties this, char *name )
 {
-       property_list *list = this->private;
+       property_list *list = this->local;
        if ( list->mirror != NULL ) 
        {
                char *value = mlt_properties_get( this, name );
@@ -160,7 +161,7 @@ static inline void mlt_properties_do_mirror( mlt_properties this, char *name )
 
 void mlt_properties_mirror( mlt_properties this, mlt_properties that )
 {
-       property_list *list = this->private;
+       property_list *list = this->local;
        list->mirror = that;
 }
 
@@ -209,7 +210,7 @@ int mlt_properties_pass( mlt_properties this, mlt_properties that, char *prefix
 
 static inline mlt_property mlt_properties_find( mlt_properties this, char *name )
 {
-       property_list *list = this->private;
+       property_list *list = this->local;
        mlt_property value = NULL;
        int key = generate_hash( name );
        int i = list->hash[ key ] - 1;
@@ -236,7 +237,7 @@ static inline mlt_property mlt_properties_find( mlt_properties this, char *name
 
 static mlt_property mlt_properties_add( mlt_properties this, char *name )
 {
-       property_list *list = this->private;
+       property_list *list = this->local;
        int key = generate_hash( name );
 
        // Check that we have space and resize if necessary
@@ -286,11 +287,59 @@ int mlt_properties_set( mlt_properties this, char *name, char *value )
        mlt_property property = mlt_properties_fetch( this, name );
 
        // Set it if not NULL
-       if ( property != NULL )
+       if ( property != NULL && ( value == NULL || value[ 0 ] != '@' ) )
        {
                error = mlt_property_set_string( property, value );
                mlt_properties_do_mirror( this, name );
        }
+       else if ( property != NULL && value[ 0 ] == '@' )
+       {
+               int total = 0;
+               int current = 0;
+               char id[ 255 ];
+               char op = '+';
+
+               value ++;
+
+               while ( *value != '\0' )
+               {
+                       int length = strcspn( value, "+-*/" );
+
+                       // Get the identifier
+                       strncpy( id, value, length );
+                       id[ length ] = '\0';
+                       value += length;
+
+                       // Determine the value
+                       if ( isdigit( id[ 0 ] ) )
+                               current = atof( id );
+                       else
+                               current = mlt_properties_get_int( this, id );
+
+                       // Apply the operation
+                       switch( op )
+                       {
+                               case '+':
+                                       total += current;
+                                       break;
+                               case '-':
+                                       total -= current;
+                                       break;
+                               case '*':
+                                       total *= current;
+                                       break;
+                               case '/':
+                                       total /= current;
+                                       break;
+                       }
+
+                       // Get the next op
+                       op = *value != '\0' ? *value ++ : ' ';
+               }
+
+               error = mlt_property_set_int( property, total );
+               mlt_properties_do_mirror( this, name );
+       }
 
        return error;
 }
@@ -317,7 +366,7 @@ char *mlt_properties_get( mlt_properties this, char *name )
 
 char *mlt_properties_get_name( mlt_properties this, int index )
 {
-       property_list *list = this->private;
+       property_list *list = this->local;
        if ( index >= 0 && index < list->count )
                return list->name[ index ];
        return NULL;
@@ -328,7 +377,7 @@ char *mlt_properties_get_name( mlt_properties this, int index )
 
 char *mlt_properties_get_value( mlt_properties this, int index )
 {
-       property_list *list = this->private;
+       property_list *list = this->local;
        if ( index >= 0 && index < list->count )
                return mlt_property_get_string( list->value[ index ] );
        return NULL;
@@ -339,7 +388,7 @@ char *mlt_properties_get_value( mlt_properties this, int index )
 
 void *mlt_properties_get_data_at( mlt_properties this, int index, int *size )
 {
-       property_list *list = this->private;
+       property_list *list = this->local;
        if ( index >= 0 && index < list->count )
                return mlt_property_get_data( list->value[ index ], size );
        return NULL;
@@ -350,7 +399,7 @@ void *mlt_properties_get_data_at( mlt_properties this, int index, int *size )
 
 int mlt_properties_count( mlt_properties this )
 {
-       property_list *list = this->private;
+       property_list *list = this->local;
        return list->count;
 }
 
@@ -360,24 +409,29 @@ int mlt_properties_count( mlt_properties this )
 int mlt_properties_parse( mlt_properties this, char *namevalue )
 {
        char *name = strdup( namevalue );
-       char *value = strdup( namevalue );
+       char *value = NULL;
        int error = 0;
+       char *ptr = strchr( name, '=' );
 
-       if ( strchr( name, '=' ) )
+       if ( ptr )
        {
-               *( strchr( name, '=' ) ) = '\0';
-               strcpy( value, strchr( value, '=' ) + 1 );
+               *( ptr ++ ) = '\0';
+
+               if ( *ptr != '\"' )
+               {
+                       value = strdup( ptr );
+               }
+               else
+               {
+                       ptr ++;
+                       value = strdup( ptr );
+                       if ( value != NULL && value[ strlen( value ) - 1 ] == '\"' )
+                               value[ strlen( value ) - 1 ] = '\0';
+               }
        }
        else
        {
-               strcpy( value, "" );
-       }
-
-       if ( strlen( value ) > 1 && value[ 0 ] == '\"' )
-       {
-               strcpy( value, value + 1 );
-               if ( value[ strlen( value ) - 1 ] == '\"' )
-                       value[ strlen( value ) - 1 ] = '\0';
+               value = strdup( "" );
        }
 
        error = mlt_properties_set( this, name, value );
@@ -510,7 +564,7 @@ int mlt_properties_rename( mlt_properties this, char *source, char *dest )
 
        if ( value == NULL )
        {
-               property_list *list = this->private;
+               property_list *list = this->local;
                int i = 0;
 
                // Locate the item 
@@ -534,10 +588,11 @@ int mlt_properties_rename( mlt_properties this, char *source, char *dest )
 
 void mlt_properties_dump( mlt_properties this, FILE *output )
 {
-       property_list *list = this->private;
+       property_list *list = this->local;
        int i = 0;
        for ( i = 0; i < list->count; i ++ )
-               fprintf( output, "%s=%s\n", list->name[ i ], mlt_properties_get( this, list->name[ i ] ) );
+               if ( mlt_properties_get( this, list->name[ i ] ) != NULL )
+                       fprintf( output, "%s=%s\n", list->name[ i ], mlt_properties_get( this, list->name[ i ] ) );
 }
 
 /** Close the list.
@@ -547,7 +602,7 @@ void mlt_properties_close( mlt_properties this )
 {
        if ( this != NULL )
        {
-               property_list *list = this->private;
+               property_list *list = this->local;
                int index = 0;
 
                // Clean up names and values