From 460c52653ab0dcca6f19a4f492ed2c5e4e963ab0 Mon Sep 17 00:00:00 2001
From: toma <toma@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>
Date: Wed, 25 Nov 2009 17:56:58 +0000
Subject: 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
---
 libkcal/libical/scripts/readvaluesfile.pl | 130 ++++++++++++++++++++++++++++++
 1 file changed, 130 insertions(+)
 create mode 100644 libkcal/libical/scripts/readvaluesfile.pl

(limited to 'libkcal/libical/scripts/readvaluesfile.pl')

diff --git a/libkcal/libical/scripts/readvaluesfile.pl b/libkcal/libical/scripts/readvaluesfile.pl
new file mode 100644
index 000000000..d5e2d36fd
--- /dev/null
+++ b/libkcal/libical/scripts/readvaluesfile.pl
@@ -0,0 +1,130 @@
+
+
+sub read_values_file {
+  
+  my $path = shift;
+  my %h;
+
+  open(F,$path) || die "Can't open values file $path";
+
+  while(<F>){
+    
+    chop; 
+ 
+    s/#.*$//g;
+    s/\"//g;
+   
+    next if ! $_;
+
+    @column = split(/,/,$_);
+    
+    my $value_name = $column[0];
+
+    my $c_type_str =  $column[1];
+    my $c_autogen = ($c_type_str =~ /\(a\)/);
+
+    my $c_type = $c_type_str;
+    $c_type =~ s/\(.\)//;
+
+    my $python_type =  $column[2];
+    my $components = $column[3];
+    my $enum_values = $column[4];
+
+    my @components;
+    if($components ne "unitary"){
+      @components = split(/;/,$components);
+    } else {
+      @components = ();
+    }
+
+    my @enums;
+    if($enum_values) {
+      @enums  = split(/;/,$enum_values);
+
+    } else {
+      @enums = ();
+    }
+
+    $h{$value_name} = { C => [$c_autogen,$c_type],
+			perl => $perl_type,
+			python => $python_type,
+			components=>[@components],
+			enums=>[@enums]
+		      };
+  }
+
+  return %h;
+}
+
+sub read_properties_file {
+  
+  my $path = shift;
+  my %h;
+
+  open(F,$path) || die "Can't open properties file $path";
+
+  while(<F>){
+    
+    chop; 
+ 
+    s/#.*$//g;
+    s/\"//g;
+   
+    next if ! $_;
+
+    @column = split(/,/,$_);
+    
+    my $property_name = $column[0];
+
+    my $lic_value = $column[1];
+    my $default_value = $column[2];
+    
+    $h{$property_name} = { lic_value => $lic_value,
+			   default_value => $default_value
+			 };
+  }
+
+  return %h;
+}
+
+sub read_parameters_file {
+  
+  my $path = shift;
+  my %h;
+
+  open(F,$path) || die "Can't open parameters file $path";
+
+  while(<F>){
+    
+    chop; 
+ 
+    s/#.*$//g;
+    s/\"//g;
+   
+    next if ! $_;
+
+    @column = split(/\,/,$_);
+  
+    my $parameter_name = $column[0];
+
+    my $data_type = $column[1];
+    my $enum_string = $column[2];
+
+    my @enums;
+    if($enum_string){
+      @enums =  split(/;/,$enum_string);
+    }
+    
+    $h{$parameter_name} = { C => $data_type,
+			   enums => [@enums]
+			 };
+  }
+
+  close(F);
+
+  return %h;
+}
+
+
+
+1;
-- 
cgit v1.2.1