diff options
author | Eric Busboom <ericb@src.gnome.org> | 2000-05-15 12:25:39 +0800 |
---|---|---|
committer | Eric Busboom <ericb@src.gnome.org> | 2000-05-15 12:25:39 +0800 |
commit | 8c965a2961ea6ae188a351be2671cfe63ac0a9ed (patch) | |
tree | f5c140452642beda371055991b1d9df7405d11b3 /libical/scripts/mkrestrictiontable.pl | |
parent | df7ae02e104cb32ce5854679ba4cd27e0b2086a9 (diff) | |
download | gsoc2013-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-x | libical/scripts/mkrestrictiontable.pl | 12 |
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"; |