diff options
author | Seth Alves <alves@src.gnome.org> | 2000-06-07 06:48:11 +0800 |
---|---|---|
committer | Seth Alves <alves@src.gnome.org> | 2000-06-07 06:48:11 +0800 |
commit | af805a2733c9e2ca44e27360c6162d60cfc1aa53 (patch) | |
tree | e55d899b9ff25915fc96362b86efd5fbb3b0d0e7 /libical/scripts/mkrestrictiontable.pl | |
parent | f03975a652d1c91bad5a5b107ffaaea0889a5766 (diff) | |
download | gsoc2013-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-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"; |