From 6205e8cad4ef2c93093b06e579ad26bd6b6505bd Mon Sep 17 00:00:00 2001
From: nobody <nobody@localhost>
Date: Sat, 28 Jun 2003 16:20:00 +0000
Subject: This commit was manufactured by cvs2svn to create tag 'GDM2_2_4_4_0'.

svn path=/tags/GDM2_2_4_4_0/; revision=21592
---
 libical/scripts/readvaluesfile.pl | 130 --------------------------------------
 1 file changed, 130 deletions(-)
 delete mode 100644 libical/scripts/readvaluesfile.pl

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

diff --git a/libical/scripts/readvaluesfile.pl b/libical/scripts/readvaluesfile.pl
deleted file mode 100644
index d5e2d36fd8..0000000000
--- a/libical/scripts/readvaluesfile.pl
+++ /dev/null
@@ -1,130 +0,0 @@
-
-
-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.3