diff options
author | Eric Busboom <ericb@src.gnome.org> | 2000-05-15 14:18:21 +0800 |
---|---|---|
committer | Eric Busboom <ericb@src.gnome.org> | 2000-05-15 14:18:21 +0800 |
commit | d6b0035a325d060d7f175705c33b0a2d7b60e533 (patch) | |
tree | 2ee94e89f94b416cc04a3e8860b1205377397fde /libical/scripts/mkparameterrestrictions.pl | |
parent | f8ff932ae3149c285acea3977a50596749d38584 (diff) | |
download | gsoc2013-evolution-d6b0035a325d060d7f175705c33b0a2d7b60e533.tar gsoc2013-evolution-d6b0035a325d060d7f175705c33b0a2d7b60e533.tar.gz gsoc2013-evolution-d6b0035a325d060d7f175705c33b0a2d7b60e533.tar.bz2 gsoc2013-evolution-d6b0035a325d060d7f175705c33b0a2d7b60e533.tar.lz gsoc2013-evolution-d6b0035a325d060d7f175705c33b0a2d7b60e533.tar.xz gsoc2013-evolution-d6b0035a325d060d7f175705c33b0a2d7b60e533.tar.zst gsoc2013-evolution-d6b0035a325d060d7f175705c33b0a2d7b60e533.zip |
reparing damage from removing files
svn path=/trunk/; revision=3042
Diffstat (limited to 'libical/scripts/mkparameterrestrictions.pl')
-rwxr-xr-x | libical/scripts/mkparameterrestrictions.pl | 85 |
1 files changed, 85 insertions, 0 deletions
diff --git a/libical/scripts/mkparameterrestrictions.pl b/libical/scripts/mkparameterrestrictions.pl new file mode 100755 index 0000000000..2c57eb4ca5 --- /dev/null +++ b/libical/scripts/mkparameterrestrictions.pl @@ -0,0 +1,85 @@ +#!/usr/bin/perl + +# Version: 1.0 +# Script last updated: 30May1999 GMD +# Change log: +# <none> + + +# usually open params-in-prop.txt +open(F,"$ARGV[0]") || die "Can't open restriction file $ARGV[0]:$!"; + +print <<EOM; +/* + ====================================================================== + File: parameterrestrictions.c + + (C) COPYRIGHT 1999 Graham Davison + mailto:g.m.davison\@computer.org + + The contents of this file are subject to the Mozilla Public License + Version 1.0 (the "License"); you may not use this file except in + compliance with the License. You may obtain a copy of the License at + http://www.mozilla.org/MPL/ + + Software distributed under the License is distributed on an "AS IS" + basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See + the License for the specific language governing rights and + limitations under the License. + + + ======================================================================*/ + +/* + * THIS FILE IS MACHINE GENERATED DO NOT EDIT + */ + + +int icalrestriction_is_parameter_allowed(icalproperty_kind prop,icalparameter_kind param) +{ + switch (prop) + { +EOM + +while(<F>) +{ + chop; + + # split line by whitespace + my @v = split(/\s+/,$_); + # property is first item on line + my $prop = shift @v; + my $prop_name = $prop; + if (substr($prop,0,1) eq "X") { $prop = "X"; } + $prop = join("",split(/-/,$prop)); + +print <<EOM; + + /* ${prop_name} */ + case ICAL_${prop}_PROPERTY: + switch (param) + { +EOM + + foreach $param (@v) + { + $param = join("",split(/-/,$param)); + print "\t\t\t\tcase ICAL_${param}_PARAMETER:\n"; + } + +print <<EOM; + return 1; + default: + return 0; + } + +EOM + +} + +print <<EOM; + } + + return 0; +} +EOM |