#!/usr/bin/perl

use strict;
use ZTabs;

sub _add_def_parms {
    my ($parm,$def_parm,$sep) = @_;
    $sep = ';' unless($sep);
    my $tail_sep =  ($def_parm =~ m/$sep\s*$/ );
    if( $tail_sep ) { print "tail separator is EXIST\n"; }
    else            { print "tail separator is NOT exist\n"; }
    if($parm) { $parm .= $sep unless($parm =~ m/$sep\s$/); }
    
    my @def_parm = split(/$sep/,$def_parm);
    print "\@def_parm =\n";
    for(my $i=0;$i<=$#def_parm;$i++) {
        print "$i:\t$def_parm[$i]\n";
    }
    for(my $i=0;$i<=$#def_parm;$i++) { # last element of @def_parn is empty
        if( $def_parm[$i] =~ m/^\s*([^\s:]+)\s*:/ ) {
            my $style_parm = $1;
            unless( $parm =~ m/$style_parm\s*:/ ) {
                $parm .= $def_parm[$i] . $sep;
            }
        }
        
    }
    
    $parm =~ s/$sep\s*$//;
    
    return $parm;
}

my $tab0 = 'useClone: true, alwaysShowClone: false, eventType: "click", tabTagName: "span"';
my $tab1 = _add_def_parms('',$tab0,',');

print "================================================\n";
print "tab0 = $tab0\n";
print "tab1 = $tab1\n";

my $tab0 = 'margin: 0; padding: 0; background-color:#e3e6e9; height: 100%; ';
my $tab1 = _add_def_parms('',$tab0);

print "================================================\n";
print "tab0 = $tab0\n";
print "tab1 = $tab1\n";