diff options
author | nobody <nobody@localhost> | 2001-06-23 13:14:10 +0800 |
---|---|---|
committer | nobody <nobody@localhost> | 2001-06-23 13:14:10 +0800 |
commit | 8bd35373e6112a09f522d21747dcc9e90b859333 (patch) | |
tree | a4eb5e010ba601de261dc3f9da4dd4b86fcc46fe /libical/scripts/readvaluesfile.pl | |
parent | 72ca61d74b9942040638b628a6f1358e02d23d42 (diff) | |
download | gsoc2013-evolution-GNOME_UTILS_1_4_0_2.tar gsoc2013-evolution-GNOME_UTILS_1_4_0_2.tar.gz gsoc2013-evolution-GNOME_UTILS_1_4_0_2.tar.bz2 gsoc2013-evolution-GNOME_UTILS_1_4_0_2.tar.lz gsoc2013-evolution-GNOME_UTILS_1_4_0_2.tar.xz gsoc2013-evolution-GNOME_UTILS_1_4_0_2.tar.zst gsoc2013-evolution-GNOME_UTILS_1_4_0_2.zip |
This commit was manufactured by cvs2svn to create tagGNOME_UTILS_1_4_0_2
'GNOME_UTILS_1_4_0_2'.
svn path=/tags/GNOME_UTILS_1_4_0_2/; revision=10419
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; |