From 788bcf6373185aa29f8e2f83ad48cb10bf6e8a9b Mon Sep 17 00:00:00 2001
From: Seth Alves <alves@src.gnome.org>
Date: Thu, 17 Feb 2000 18:02:37 +0000
Subject: Initial revision

svn path=/trunk/; revision=1823
---
 libical/scripts/mkparameterrestrictions.pl | 85 ++++++++++++++++++++++++++++++
 1 file changed, 85 insertions(+)
 create mode 100755 libical/scripts/mkparameterrestrictions.pl

(limited to 'libical/scripts/mkparameterrestrictions.pl')

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
-- 
cgit