aboutsummaryrefslogtreecommitdiffstats
path: root/libical/scripts/mkrestrictiontable.pl
diff options
context:
space:
mode:
authorEric Busboom <ericb@src.gnome.org>2000-05-15 12:25:39 +0800
committerEric Busboom <ericb@src.gnome.org>2000-05-15 12:25:39 +0800
commit8c965a2961ea6ae188a351be2671cfe63ac0a9ed (patch)
treef5c140452642beda371055991b1d9df7405d11b3 /libical/scripts/mkrestrictiontable.pl
parentdf7ae02e104cb32ce5854679ba4cd27e0b2086a9 (diff)
downloadgsoc2013-evolution-8c965a2961ea6ae188a351be2671cfe63ac0a9ed.tar
gsoc2013-evolution-8c965a2961ea6ae188a351be2671cfe63ac0a9ed.tar.gz
gsoc2013-evolution-8c965a2961ea6ae188a351be2671cfe63ac0a9ed.tar.bz2
gsoc2013-evolution-8c965a2961ea6ae188a351be2671cfe63ac0a9ed.tar.lz
gsoc2013-evolution-8c965a2961ea6ae188a351be2671cfe63ac0a9ed.tar.xz
gsoc2013-evolution-8c965a2961ea6ae188a351be2671cfe63ac0a9ed.tar.zst
gsoc2013-evolution-8c965a2961ea6ae188a351be2671cfe63ac0a9ed.zip
This commit was generated by cvs2svn to compensate for changes in r3037,
which included commits to RCS files with non-trunk default branches. svn path=/trunk/; revision=3038
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";