aboutsummaryrefslogtreecommitdiffstats
path: root/libical/scripts/mkrestrictiontable.pl
diff options
context:
space:
mode:
authorSeth Alves <alves@src.gnome.org>2000-06-07 06:48:11 +0800
committerSeth Alves <alves@src.gnome.org>2000-06-07 06:48:11 +0800
commitaf805a2733c9e2ca44e27360c6162d60cfc1aa53 (patch)
treee55d899b9ff25915fc96362b86efd5fbb3b0d0e7 /libical/scripts/mkrestrictiontable.pl
parentf03975a652d1c91bad5a5b107ffaaea0889a5766 (diff)
downloadgsoc2013-evolution-af805a2733c9e2ca44e27360c6162d60cfc1aa53.tar
gsoc2013-evolution-af805a2733c9e2ca44e27360c6162d60cfc1aa53.tar.gz
gsoc2013-evolution-af805a2733c9e2ca44e27360c6162d60cfc1aa53.tar.bz2
gsoc2013-evolution-af805a2733c9e2ca44e27360c6162d60cfc1aa53.tar.lz
gsoc2013-evolution-af805a2733c9e2ca44e27360c6162d60cfc1aa53.tar.xz
gsoc2013-evolution-af805a2733c9e2ca44e27360c6162d60cfc1aa53.tar.zst
gsoc2013-evolution-af805a2733c9e2ca44e27360c6162d60cfc1aa53.zip
merge libical-0.17 onto the head
svn path=/trunk/; revision=3449
Diffstat (limited to 'libical/scripts/mkrestrictiontable.pl')
-rwxr-xr-xlibical/scripts/mkrestrictiontable.pl12
1 files changed, 10 insertions, 2 deletions
diff --git a/libical/scripts/mkrestrictiontable.pl b/libical/scripts/mkrestrictiontable.pl
index c91f3d0bc4..1dab5709b9 100755
--- a/libical/scripts/mkrestrictiontable.pl
+++ b/libical/scripts/mkrestrictiontable.pl
@@ -30,6 +30,7 @@ if ($opt_i) {
close IN;
}
+# First build the property restriction table
print "icalrestriction_property_record icalrestriction_property_records[] = {\n";
while(<F>)
@@ -54,6 +55,7 @@ while(<F>)
}
+# Print the terminating line
print " {ICAL_METHOD_NONE,ICAL_NO_COMPONENT,ICAL_NO_PROPERTY,ICAL_RESTRICTION_NONE}\n";
print "};\n";
@@ -61,6 +63,7 @@ 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]:$!";
@@ -71,16 +74,21 @@ while(<F>)
s/\#.*$//;
- my($method,$targetcomp,$prop,$subcomp,$restr) = split(/,/,$_);
+ my($method,$targetcomp,$prop,$subcomp,$restr,$sub) = split(/,/,$_);
next if !$method;
+ if(!$sub) {
+ $sub = "0";
+ }
+
if($subcomp ne "NONE"){
- print(" \{ICAL_METHOD_${method},ICAL_${targetcomp}_COMPONENT,ICAL_${subcomp}_COMPONENT,ICAL_RESTRICTION_${restr}\},\n");
+ 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";