diff options
author | nobody <nobody@localhost> | 2001-08-05 03:29:35 +0800 |
---|---|---|
committer | nobody <nobody@localhost> | 2001-08-05 03:29:35 +0800 |
commit | 220ead4cc561abeed2c9143190b96e8654ab1605 (patch) | |
tree | 0f0f7d161df8ec2e9a2e06dc0f87a8c17389d1e1 /libical/scripts/readvaluesfile.pl | |
parent | 950e90cd92e950cb17645b5c3d6fc6eae2f07c5e (diff) | |
download | gsoc2013-evolution-GGV_1_1_1.tar gsoc2013-evolution-GGV_1_1_1.tar.gz gsoc2013-evolution-GGV_1_1_1.tar.bz2 gsoc2013-evolution-GGV_1_1_1.tar.lz gsoc2013-evolution-GGV_1_1_1.tar.xz gsoc2013-evolution-GGV_1_1_1.tar.zst gsoc2013-evolution-GGV_1_1_1.zip |
This commit was manufactured by cvs2svn to create tag 'GGV_1_1_1'.GGV_1_1_1
svn path=/tags/GGV_1_1_1/; revision=11660
Diffstat (limited to 'libical/scripts/readvaluesfile.pl')
-rw-r--r-- | libical/scripts/readvaluesfile.pl | 130 |
1 files changed, 0 insertions, 130 deletions
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; |