Copy the KDE 3.5 branch to branches/trinity for new KDE 3.5 features.

BUG:215923


git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdepim@1054174 283d02a7-25f6-0310-bc7c-ecb5cbfe19da

1 files changed, 258 insertions, 0 deletions

diff --git a/libkcal/libical/scripts/mkderivedproperties.pl b/libkcal/libical/scripts/mkderivedproperties.pl
new file mode 100755
index 000000000..4eafb1927
--- /dev/null
+++ b/libkcal/libical/scripts/mkderivedproperties.pl
@@ -0,0 +1,258 @@
+#!/usr/bin/env perl
+
+require "readvaluesfile.pl";
+
+use Getopt::Std;
+getopts('chspmi:');
+
+# ARG 0 is properties.csv
+%propmap  = read_properties_file($ARGV[0]);
+
+# ARG 1 is value-types.txt
+%valuemap  = read_values_file($ARGV[1]);
+
+
+$include_vanew = 1;
+
+# Write the file inline by copying everything before a demarcation
+# line, and putting the generated data after the demarcation
+
+if ($opt_i) {
+
+  open(IN,$opt_i) || die "Can't open input file $opt_i";
+
+  while(<IN>){
+
+    if (/<insert_code_here>/){
+      insert_code();
+    } else {
+      print;
+   }
+ 
+  }    
+ 
+}
+
+sub fudge_data {
+  my $prop = shift;
+
+  my $value = $propmap{$prop}->{'lic_value'};
+
+  if (!$value){
+    die "Can't find value for property \"$prop\"\n";
+  }
+  my $ucf = join("",map {ucfirst(lc($_));}  split(/-/,$prop));
+  my $lc = lc($ucf);
+  my $uc = uc($lc);
+
+  my $ucfvalue = join("",map {ucfirst(lc($_));}  split(/-/,$value));
+  my $lcvalue = lc($ucfvalue);
+  my $ucvalue = uc($lcvalue);
+
+  my $type = $valuemap{$value}->{C}->[1];
+
+  return ($uc,$lc,$lcvalue,$ucvalue,$type);
+
+}  
+
+sub insert_code {
+
+# Create the property map data
+if($opt_c){
+
+
+  my @props = sort keys %propmap;
+  my $count = scalar(@props);
+  
+
+  print "struct icalproperty_map property_map[$count] = {\n";
+  
+  foreach $prop (@props) {
+    
+    next if !$prop;
+    
+    next if $prop eq 'NO';
+    
+    my ($uc,$lc,$lcvalue,$ucvalue,$type) = fudge_data($prop);
+    
+    print "{ICAL_${uc}_PROPERTY,\"$prop\",ICAL_${ucvalue}_VALUE},\n";
+    
+  }
+  
+  $prop = "NO";
+  
+  my ($uc,$lc,$lcvalue,$ucvalue,$type) = fudge_data($prop);
+  
+  print "{ICAL_${uc}_PROPERTY,\"\",ICAL_NO_VALUE}};\n\n";
+
+  $idx = 10000;
+  $count = 1;
+  my $out = "";
+
+  foreach $value (sort keys %valuemap) {
+    
+    next if !$value;    
+    next if $value eq 'NO' or $prop eq 'ANY';
+
+    my $ucv = join("",map {uc(lc($_));}  split(/-/,$value));    
+    my @enums = @{$valuemap{$value}->{'enums'}};
+
+    if(@enums){
+
+      my ($c_autogen,$c_type) = @{$valuemap{$value}->{'C'}};
+      
+      unshift(@enums,"X");
+      push(@enums,"NONE");
+
+      foreach $e (@enums) {
+
+	my $uce = join("",map {uc(lc($_));}  split(/-/,$e));
+	
+	if($e ne "X" and $e ne "NONE"){
+	  $str = $e;
+	} else {
+	  $str = "";
+	}
+
+	$out.="    {ICAL_${ucv}_PROPERTY,ICAL_${ucv}_${uce},\"$str\" }, /*$idx*/\n";
+
+	$idx++;
+	$count++;
+      }
+      
+    }
+  }
+
+  $count++;
+  print "struct icalproperty_enum_map enum_map[$count] = {\n";
+  print $out;
+  print "    {ICAL_NO_PROPERTY,0,\"\"}\n};\n\n";
+  
+
+
+}
+
+
+if($opt_h){
+
+  # Create the property enumerations list
+  print "typedef enum icalproperty_kind {\n    ICAL_ANY_PROPERTY = 0,\n";
+  foreach $prop (sort keys %propmap) {
+    
+    next if !$prop;
+    
+    next if $prop eq 'NO' or $prop eq 'ANY';
+    
+    my ($uc,$lc,$lcvalue,$ucvalue,$type) = fudge_data($prop);
+    
+    print "    ICAL_${uc}_PROPERTY, \n";
+    
+  }  
+  print "    ICAL_NO_PROPERTY\n} icalproperty_kind;\n\n";
+
+
+}
+
+
+foreach $prop (sort keys %propmap) {
+
+  next if !$prop;
+
+  next if $prop eq 'NO' or $prop eq 'ANY';
+
+  my ($uc,$lc,$lcvalue,$ucvalue,$type) = fudge_data($prop);
+
+  
+  my $pointer_check;
+  if ($type =~ /\*/){
+    $pointer_check = "icalerror_check_arg_rz( (v!=0),\"v\");\n" if $type =~ /\*/;
+  } elsif ( $type eq "void" ){
+    $pointer_check = "icalerror_check_arg_rv( (v!=0),\"v\");\n" if $type =~ /\*/;
+
+  }    
+
+  my $set_pointer_check = "icalerror_check_arg_rv( (v!=0),\"v\");\n" if $type =~ /\*/;
+
+  if($opt_c) { # Generate C source
+
+   if ($include_vanew) {
+     print<<EOM;
+icalproperty* icalproperty_vanew_${lc}($type v, ...){
+   va_list args;
+   struct icalproperty_impl *impl = icalproperty_new_impl(ICAL_${uc}_PROPERTY);   $pointer_check
+   icalproperty_set_${lc}((icalproperty*)impl,v);
+   va_start(args,v);
+   icalproperty_add_parameters(impl, args);
+   va_end(args);
+   return (icalproperty*)impl;
+}
+EOM
+}
+	print<<EOM;
+
+/* $prop */
+icalproperty* icalproperty_new_${lc}($type v) {
+   struct icalproperty_impl *impl = icalproperty_new_impl(ICAL_${uc}_PROPERTY);   $pointer_check
+   icalproperty_set_${lc}((icalproperty*)impl,v);
+   return (icalproperty*)impl;
+}
+
+EOM
+    # Allow DTSTART, DTEND, DUE, EXDATE and RECURRENCE-ID to take DATE values.
+    if ($lc eq "dtstart" || $lc eq "dtend" || $lc eq "due" || $lc eq "exdate"
+	|| $lc eq "recurrenceid") {
+	print<<EOM;
+void icalproperty_set_${lc}(icalproperty* prop, $type v){
+    icalvalue *value;
+    $set_pointer_check
+    icalerror_check_arg_rv( (prop!=0),"prop");
+    if (v.is_date)
+        value = icalvalue_new_date(v);
+    else
+        value = icalvalue_new_datetime(v);
+    icalproperty_set_value(prop,value);
+}
+EOM
+    } else {
+
+	print<<EOM;
+void icalproperty_set_${lc}(icalproperty* prop, $type v){
+    $set_pointer_check
+    icalerror_check_arg_rv( (prop!=0),"prop");
+    icalproperty_set_value(prop,icalvalue_new_${lcvalue}(v));
+}
+EOM
+	}
+	print<<EOM;
+$type icalproperty_get_${lc}(const icalproperty* prop){
+    icalerror_check_arg( (prop!=0),"prop");
+    return icalvalue_get_${lcvalue}(icalproperty_get_value(prop));
+}
+EOM
+  } elsif ($opt_h) { # Generate C Header file
+
+
+ print "\
+/* $prop */\
+icalproperty* icalproperty_new_${lc}($type v);\
+void icalproperty_set_${lc}(icalproperty* prop, $type v);\
+$type icalproperty_get_${lc}(const icalproperty* prop);";
+  
+
+if ($include_vanew){
+  print "icalproperty* icalproperty_vanew_${lc}($type v, ...);\n";
+}
+
+} 
+
+
+} # This brace terminates the main loop
+
+
+
+if ($opt_h){
+
+print "\n\n#endif /*ICALPROPERTY_H*/\n"
+}
+
+}