diff options
author | nobody <nobody@localhost> | 2001-03-02 09:33:29 +0800 |
---|---|---|
committer | nobody <nobody@localhost> | 2001-03-02 09:33:29 +0800 |
commit | 0f0cc6c488ee2ba9a9c4f2d9bfc41996dfedf9fd (patch) | |
tree | cda39502324bf50b451e5c7f58e5dee7c7476bad /libical/scripts/mkrestrictiontable.pl | |
parent | 50ef074887b43f43dad3edb120d9abf30092c681 (diff) | |
download | gsoc2013-evolution-GNOME-VFS_1_0_ANCHOR.tar gsoc2013-evolution-GNOME-VFS_1_0_ANCHOR.tar.gz gsoc2013-evolution-GNOME-VFS_1_0_ANCHOR.tar.bz2 gsoc2013-evolution-GNOME-VFS_1_0_ANCHOR.tar.lz gsoc2013-evolution-GNOME-VFS_1_0_ANCHOR.tar.xz gsoc2013-evolution-GNOME-VFS_1_0_ANCHOR.tar.zst gsoc2013-evolution-GNOME-VFS_1_0_ANCHOR.zip |
This commit was manufactured by cvs2svn to create tagGNOME-VFS_1_0_ANCHOR
'GNOME-VFS_1_0_ANCHOR'.
svn path=/tags/GNOME-VFS_1_0_ANCHOR/; revision=8487
Diffstat (limited to 'libical/scripts/mkrestrictiontable.pl')
-rwxr-xr-x | libical/scripts/mkrestrictiontable.pl | 98 |
1 files changed, 0 insertions, 98 deletions
diff --git a/libical/scripts/mkrestrictiontable.pl b/libical/scripts/mkrestrictiontable.pl deleted file mode 100755 index e1e1a0ca53..0000000000 --- a/libical/scripts/mkrestrictiontable.pl +++ /dev/null @@ -1,98 +0,0 @@ -#!/usr/bin/perl - -use Getopt::Std; -getopts('i:'); - -# the argument should be the path to the restriction datafile, usually -# design-data/restrictions.csv -open(F,"$ARGV[0]") || die "Can't open restriction data file $ARGV[0]:$!"; - -# 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 (/Do not edit/){ - last; - } - - print; - - } - - print "/* Everything below this line is machine generated. Do not edit. */\n"; - - - close IN; -} - -# First build the property restriction table -print "icalrestriction_property_record icalrestriction_property_records[] = {\n"; - -while(<F>) -{ - - chop; - - s/\#.*$//; - - my($method,$targetcomp,$prop,$subcomp,$restr,$sub) = split(/,/,$_); - - next if !$method; - - if(!$sub) { - $sub = "0"; - } else { - $sub = "icalrestriction_".$sub; - } - - if($prop ne "NONE"){ - print(" \{ICAL_METHOD_${method},ICAL_${targetcomp}_COMPONENT,ICAL_${prop}_PROPERTY,ICAL_RESTRICTION_${restr},$sub},\n"); - } - -} - - -# Print the terminating line -print " {ICAL_METHOD_NONE,ICAL_NO_COMPONENT,ICAL_NO_PROPERTY,ICAL_RESTRICTION_NONE}\n"; - -print "};\n"; - -print "icalrestriction_component_record icalrestriction_component_records[] = {\n"; - - -# Go back through the entire file and build the component restriction table -close(F); -open(F,"$ARGV[0]") || die "Can't open restriction data file $ARGV[0]:$!"; - -while(<F>) -{ - - chop; - - s/\#.*$//; - - my($method,$targetcomp,$prop,$subcomp,$restr,$sub) = split(/,/,$_); - - next if !$method; - - if(!$sub) { - $sub = "0"; - } else { - $sub = "icalrestriction_".$sub; - } - - - if($subcomp ne "NONE"){ - print(" \{ICAL_METHOD_${method},ICAL_${targetcomp}_COMPONENT,ICAL_${subcomp}_COMPONENT,ICAL_RESTRICTION_${restr},$sub\},\n"); - } - -} - -# print the terminating line -print " {ICAL_METHOD_NONE,ICAL_NO_COMPONENT,ICAL_NO_COMPONENT,ICAL_RESTRICTION_NONE}\n"; -print "};\n"; |