aboutsummaryrefslogtreecommitdiffstats
path: root/libical/scripts/mkparameterrestrictions.pl
diff options
context:
space:
mode:
authorEric Busboom <ericb@src.gnome.org>2000-05-15 12:36:44 +0800
committerEric Busboom <ericb@src.gnome.org>2000-05-15 12:36:44 +0800
commitf8ff932ae3149c285acea3977a50596749d38584 (patch)
tree35b1dae583e169dda8f2ee7a31cf08dfc9658417 /libical/scripts/mkparameterrestrictions.pl
parent8c965a2961ea6ae188a351be2671cfe63ac0a9ed (diff)
downloadgsoc2013-evolution-f8ff932ae3149c285acea3977a50596749d38584.tar.gz
gsoc2013-evolution-f8ff932ae3149c285acea3977a50596749d38584.tar.zst
gsoc2013-evolution-f8ff932ae3149c285acea3977a50596749d38584.zip
removing all files
svn path=/trunk/; revision=3040
Diffstat (limited to 'libical/scripts/mkparameterrestrictions.pl')
-rwxr-xr-xlibical/scripts/mkparameterrestrictions.pl85
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