diff options
author | nobody <nobody@localhost> | 2001-09-17 12:32:38 +0800 |
---|---|---|
committer | nobody <nobody@localhost> | 2001-09-17 12:32:38 +0800 |
commit | 1a12f9371d8f66c213e187617a069509d2fa2693 (patch) | |
tree | 6f31e70927858f2bafcfc481e337a665090bdb8e /libical/scripts/mkparameterrestrictions.pl | |
parent | 169d9ae19a0eb165edc757eca753a757a02f60f7 (diff) | |
download | gsoc2013-evolution-BONOBO_CONF_0_12.tar gsoc2013-evolution-BONOBO_CONF_0_12.tar.gz gsoc2013-evolution-BONOBO_CONF_0_12.tar.bz2 gsoc2013-evolution-BONOBO_CONF_0_12.tar.lz gsoc2013-evolution-BONOBO_CONF_0_12.tar.xz gsoc2013-evolution-BONOBO_CONF_0_12.tar.zst gsoc2013-evolution-BONOBO_CONF_0_12.zip |
This commit was manufactured by cvs2svn to create tagBONOBO_CONF_0_12
'BONOBO_CONF_0_12'.
svn path=/tags/BONOBO_CONF_0_12/; revision=12875
Diffstat (limited to 'libical/scripts/mkparameterrestrictions.pl')
-rwxr-xr-x | libical/scripts/mkparameterrestrictions.pl | 85 |
1 files changed, 0 insertions, 85 deletions
diff --git a/libical/scripts/mkparameterrestrictions.pl b/libical/scripts/mkparameterrestrictions.pl deleted file mode 100755 index 2c57eb4ca5..0000000000 --- a/libical/scripts/mkparameterrestrictions.pl +++ /dev/null @@ -1,85 +0,0 @@ -#!/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 |