13 files changed, 2055 insertions, 0 deletions

diff --git a/scripts/CMakeLists.txt b/scripts/CMakeLists.txt
new file mode 100644
index 00000000..0b7b3433
--- /dev/null
+++ b/scripts/CMakeLists.txt
@@ -0,0 +1,3 @@
+
+########### install files ###############
+
diff --git a/scripts/Makefile.am b/scripts/Makefile.am
new file mode 100644
index 00000000..c61eaefd
--- /dev/null
+++ b/scripts/Makefile.am
@@ -0,0 +1,9 @@
+EXTRA_DIST = \
+mkderivedcomponents.pl \
+mkderivedparameters.pl \
+mkderivedproperties.pl \
+mkderivedvalues.pl \
+mkparameterrestrictions.pl \
+mkrestrictionrecords.pl \
+mkrestrictiontable.pl \
+readvaluesfile.pl 
diff --git a/scripts/Makefile.in b/scripts/Makefile.in
new file mode 100644
index 00000000..bc8f9a34
--- /dev/null
+++ b/scripts/Makefile.in
@@ -0,0 +1,428 @@
+# Makefile.in generated by automake 1.12.2 from Makefile.am.
+# @configure_input@
+
+# Copyright (C) 1994-2012 Free Software Foundation, Inc.
+
+# This Makefile.in is free software; the Free Software Foundation
+# gives unlimited permission to copy and/or distribute it,
+# with or without modifications, as long as this notice is preserved.
+
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
+# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+# PARTICULAR PURPOSE.
+
+@SET_MAKE@
+VPATH = @srcdir@
+am__make_dryrun = \
+  { \
+    am__dry=no; \
+    case $$MAKEFLAGS in \
+      *\\[\ \	]*) \
+        echo 'am--echo: ; @echo "AM"  OK' | $(MAKE) -f - 2>/dev/null \
+          | grep '^AM OK$$' >/dev/null || am__dry=yes;; \
+      *) \
+        for am__flg in $$MAKEFLAGS; do \
+          case $$am__flg in \
+            *=*|--*) ;; \
+            *n*) am__dry=yes; break;; \
+          esac; \
+        done;; \
+    esac; \
+    test $$am__dry = yes; \
+  }
+pkgdatadir = $(datadir)/@PACKAGE@
+pkgincludedir = $(includedir)/@PACKAGE@
+pkglibdir = $(libdir)/@PACKAGE@
+pkglibexecdir = $(libexecdir)/@PACKAGE@
+am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
+install_sh_DATA = $(install_sh) -c -m 644
+install_sh_PROGRAM = $(install_sh) -c
+install_sh_SCRIPT = $(install_sh) -c
+INSTALL_HEADER = $(INSTALL_DATA)
+transform = $(program_transform_name)
+NORMAL_INSTALL = :
+PRE_INSTALL = :
+POST_INSTALL = :
+NORMAL_UNINSTALL = :
+PRE_UNINSTALL = :
+POST_UNINSTALL = :
+build_triplet = @build@
+host_triplet = @host@
+target_triplet = @target@
+subdir = scripts
+DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \
+	$(top_srcdir)/mkinstalldirs
+ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
+am__aclocal_m4_deps = $(top_srcdir)/configure.in
+am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
+	$(ACLOCAL_M4)
+mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
+CONFIG_HEADER = $(top_builddir)/config.h
+CONFIG_CLEAN_FILES =
+CONFIG_CLEAN_VPATH_FILES =
+SOURCES =
+DIST_SOURCES =
+am__can_run_installinfo = \
+  case $$AM_UPDATE_INFO_DIR in \
+    n|no|NO) false;; \
+    *) (install-info --version) >/dev/null 2>&1;; \
+  esac
+DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
+ACLOCAL = @ACLOCAL@
+AMTAR = @AMTAR@
+AR = @AR@
+AUTOCONF = @AUTOCONF@
+AUTOHEADER = @AUTOHEADER@
+AUTOMAKE = @AUTOMAKE@
+AWK = @AWK@
+BDB_DIR = @BDB_DIR@
+BDB_DIR_INCLUDE = @BDB_DIR_INCLUDE@
+BDB_DIR_LIB = @BDB_DIR_LIB@
+BDB_LIB = @BDB_LIB@
+BDB_VERSION = @BDB_VERSION@
+CC = @CC@
+CCDEPMODE = @CCDEPMODE@
+CFLAGS = @CFLAGS@
+CPP = @CPP@
+CPPFLAGS = @CPPFLAGS@
+CXX = @CXX@
+CXXCPP = @CXXCPP@
+CXXDEPMODE = @CXXDEPMODE@
+CXXFLAGS = @CXXFLAGS@
+CYGPATH_W = @CYGPATH_W@
+DEFS = @DEFS@
+DEPDIR = @DEPDIR@
+DLLTOOL = @DLLTOOL@
+DSYMUTIL = @DSYMUTIL@
+DUMPBIN = @DUMPBIN@
+ECHO_C = @ECHO_C@
+ECHO_N = @ECHO_N@
+ECHO_T = @ECHO_T@
+EGREP = @EGREP@
+EXEEXT = @EXEEXT@
+FGREP = @FGREP@
+GREP = @GREP@
+INSTALL = @INSTALL@
+INSTALL_DATA = @INSTALL_DATA@
+INSTALL_PROGRAM = @INSTALL_PROGRAM@
+INSTALL_SCRIPT = @INSTALL_SCRIPT@
+INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
+JAR = @JAR@
+JAVA = @JAVA@
+JAVAC = @JAVAC@
+JAVAH = @JAVAH@
+JAVA_PLATFORM = @JAVA_PLATFORM@
+LD = @LD@
+LDFLAGS = @LDFLAGS@
+LEX = @LEX@
+LEXLIB = @LEXLIB@
+LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@
+LIBOBJS = @LIBOBJS@
+LIBS = @LIBS@
+LIBTOOL = @LIBTOOL@
+LIPO = @LIPO@
+LN_S = @LN_S@
+LTLIBOBJS = @LTLIBOBJS@
+MAINT = @MAINT@
+MAKEINFO = @MAKEINFO@
+MANIFEST_TOOL = @MANIFEST_TOOL@
+MKDIR_P = @MKDIR_P@
+NM = @NM@
+NMEDIT = @NMEDIT@
+OBJDUMP = @OBJDUMP@
+OBJEXT = @OBJEXT@
+OTOOL = @OTOOL@
+OTOOL64 = @OTOOL64@
+PACKAGE = @PACKAGE@
+PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
+PACKAGE_NAME = @PACKAGE_NAME@
+PACKAGE_STRING = @PACKAGE_STRING@
+PACKAGE_TARNAME = @PACKAGE_TARNAME@
+PACKAGE_URL = @PACKAGE_URL@
+PACKAGE_VERSION = @PACKAGE_VERSION@
+PATH_SEPARATOR = @PATH_SEPARATOR@
+PERL = @PERL@
+PTHREAD_LIBS = @PTHREAD_LIBS@
+PYTHON = @PYTHON@
+PYTHON_EXEC_PREFIX = @PYTHON_EXEC_PREFIX@
+PYTHON_PLATFORM = @PYTHON_PLATFORM@
+PYTHON_PREFIX = @PYTHON_PREFIX@
+PYTHON_VERSION = @PYTHON_VERSION@
+PY_CFLAGS = @PY_CFLAGS@
+RANLIB = @RANLIB@
+SED = @SED@
+SET_MAKE = @SET_MAKE@
+SHELL = @SHELL@
+STRIP = @STRIP@
+VERSION = @VERSION@
+YACC = @YACC@
+YFLAGS = @YFLAGS@
+ZONE_INFO = @ZONE_INFO@
+abs_builddir = @abs_builddir@
+abs_srcdir = @abs_srcdir@
+abs_top_builddir = @abs_top_builddir@
+abs_top_srcdir = @abs_top_srcdir@
+ac_ct_AR = @ac_ct_AR@
+ac_ct_CC = @ac_ct_CC@
+ac_ct_CXX = @ac_ct_CXX@
+ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
+am__include = @am__include@
+am__leading_dot = @am__leading_dot@
+am__quote = @am__quote@
+am__tar = @am__tar@
+am__untar = @am__untar@
+bindir = @bindir@
+build = @build@
+build_alias = @build_alias@
+build_cpu = @build_cpu@
+build_os = @build_os@
+build_vendor = @build_vendor@
+builddir = @builddir@
+datadir = @datadir@
+datarootdir = @datarootdir@
+docdir = @docdir@
+dvidir = @dvidir@
+exec_prefix = @exec_prefix@
+host = @host@
+host_alias = @host_alias@
+host_cpu = @host_cpu@
+host_os = @host_os@
+host_vendor = @host_vendor@
+htmldir = @htmldir@
+includedir = @includedir@
+infodir = @infodir@
+install_sh = @install_sh@
+libdir = @libdir@
+libexecdir = @libexecdir@
+localedir = @localedir@
+localstatedir = @localstatedir@
+mandir = @mandir@
+mkdir_p = @mkdir_p@
+oldincludedir = @oldincludedir@
+pdfdir = @pdfdir@
+pkgpyexecdir = @pkgpyexecdir@
+pkgpythondir = @pkgpythondir@
+prefix = @prefix@
+program_transform_name = @program_transform_name@
+psdir = @psdir@
+pyexecdir = @pyexecdir@
+pythondir = @pythondir@
+sbindir = @sbindir@
+sharedstatedir = @sharedstatedir@
+srcdir = @srcdir@
+swig_val = @swig_val@
+sysconfdir = @sysconfdir@
+target = @target@
+target_alias = @target_alias@
+target_cpu = @target_cpu@
+target_os = @target_os@
+target_vendor = @target_vendor@
+top_build_prefix = @top_build_prefix@
+top_builddir = @top_builddir@
+top_srcdir = @top_srcdir@
+EXTRA_DIST = \
+mkderivedcomponents.pl \
+mkderivedparameters.pl \
+mkderivedproperties.pl \
+mkderivedvalues.pl \
+mkparameterrestrictions.pl \
+mkrestrictionrecords.pl \
+mkrestrictiontable.pl \
+readvaluesfile.pl 
+
+all: all-am
+
+.SUFFIXES:
+$(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am  $(am__configure_deps)
+	@for dep in $?; do \
+	  case '$(am__configure_deps)' in \
+	    *$$dep*) \
+	      ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
+	        && { if test -f $@; then exit 0; else break; fi; }; \
+	      exit 1;; \
+	  esac; \
+	done; \
+	echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu scripts/Makefile'; \
+	$(am__cd) $(top_srcdir) && \
+	  $(AUTOMAKE) --gnu scripts/Makefile
+.PRECIOUS: Makefile
+Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
+	@case '$?' in \
+	  *config.status*) \
+	    cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
+	  *) \
+	    echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \
+	    cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \
+	esac;
+
+$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
+	cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
+
+$(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps)
+	cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
+$(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps)
+	cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
+$(am__aclocal_m4_deps):
+
+mostlyclean-libtool:
+	-rm -f *.lo
+
+clean-libtool:
+	-rm -rf .libs _libs
+tags: TAGS
+TAGS:
+
+ctags: CTAGS
+CTAGS:
+
+cscope cscopelist:
+
+
+distdir: $(DISTFILES)
+	@srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
+	topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
+	list='$(DISTFILES)'; \
+	  dist_files=`for file in $$list; do echo $$file; done | \
+	  sed -e "s|^$$srcdirstrip/||;t" \
+	      -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
+	case $$dist_files in \
+	  */*) $(MKDIR_P) `echo "$$dist_files" | \
+			   sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
+			   sort -u` ;; \
+	esac; \
+	for file in $$dist_files; do \
+	  if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
+	  if test -d $$d/$$file; then \
+	    dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
+	    if test -d "$(distdir)/$$file"; then \
+	      find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
+	    fi; \
+	    if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
+	      cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
+	      find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
+	    fi; \
+	    cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
+	  else \
+	    test -f "$(distdir)/$$file" \
+	    || cp -p $$d/$$file "$(distdir)/$$file" \
+	    || exit 1; \
+	  fi; \
+	done
+check-am: all-am
+check: check-am
+all-am: Makefile
+installdirs:
+install: install-am
+install-exec: install-exec-am
+install-data: install-data-am
+uninstall: uninstall-am
+
+install-am: all-am
+	@$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
+
+installcheck: installcheck-am
+install-strip:
+	if test -z '$(STRIP)'; then \
+	  $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+	    install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+	      install; \
+	else \
+	  $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+	    install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+	    "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
+	fi
+mostlyclean-generic:
+
+clean-generic:
+
+distclean-generic:
+	-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
+	-test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
+
+maintainer-clean-generic:
+	@echo "This command is intended for maintainers to use"
+	@echo "it deletes files that may require special tools to rebuild."
+clean: clean-am
+
+clean-am: clean-generic clean-libtool mostlyclean-am
+
+distclean: distclean-am
+	-rm -f Makefile
+distclean-am: clean-am distclean-generic
+
+dvi: dvi-am
+
+dvi-am:
+
+html: html-am
+
+html-am:
+
+info: info-am
+
+info-am:
+
+install-data-am:
+
+install-dvi: install-dvi-am
+
+install-dvi-am:
+
+install-exec-am:
+
+install-html: install-html-am
+
+install-html-am:
+
+install-info: install-info-am
+
+install-info-am:
+
+install-man:
+
+install-pdf: install-pdf-am
+
+install-pdf-am:
+
+install-ps: install-ps-am
+
+install-ps-am:
+
+installcheck-am:
+
+maintainer-clean: maintainer-clean-am
+	-rm -f Makefile
+maintainer-clean-am: distclean-am maintainer-clean-generic
+
+mostlyclean: mostlyclean-am
+
+mostlyclean-am: mostlyclean-generic mostlyclean-libtool
+
+pdf: pdf-am
+
+pdf-am:
+
+ps: ps-am
+
+ps-am:
+
+uninstall-am:
+
+.MAKE: install-am install-strip
+
+.PHONY: all all-am check check-am clean clean-generic clean-libtool \
+	distclean distclean-generic distclean-libtool distdir dvi \
+	dvi-am html html-am info info-am install install-am \
+	install-data install-data-am install-dvi install-dvi-am \
+	install-exec install-exec-am install-html install-html-am \
+	install-info install-info-am install-man install-pdf \
+	install-pdf-am install-ps install-ps-am install-strip \
+	installcheck installcheck-am installdirs maintainer-clean \
+	maintainer-clean-generic mostlyclean mostlyclean-generic \
+	mostlyclean-libtool pdf pdf-am ps ps-am uninstall uninstall-am
+
+
+# Tell versions [3.59,3.63) of GNU make to not export all variables.
+# Otherwise a system limit (for SysV at least) may be exceeded.
+.NOEXPORT:
diff --git a/scripts/mkderivedcomponents.pl b/scripts/mkderivedcomponents.pl
new file mode 100755
index 00000000..31743c3b
--- /dev/null
+++ b/scripts/mkderivedcomponents.pl
@@ -0,0 +1,170 @@
+#!/usr/bin/env perl
+
+use Getopt::Std;
+getopts('chspi:');
+
+
+# ARG 0 is components.txt
+open(PV,"$ARGV[0]") || die "Can't open components  file $ARGV[0]:$!";
+
+my @components;
+
+while (<PV>){
+
+  s/#.*//;
+
+  chop;
+
+  push(@components,$_);
+
+}
+
+close PV;
+
+# Write the file inline by copying everything before a demarcation
+# line, and putting the generated data after the demarcation
+
+if ($opt_i) {
+
+  open(IN,$opt_i) || die "Can't open input file \"$opt_i\"";
+
+  while(<IN>){
+
+    if (/Do not edit/){
+      last;
+    }
+
+    print;
+
+  }    
+
+  if($opt_i){
+    print "# Everything below this line is machine generated. Do not edit. \n";
+  } else {
+    print "/* Everything below this line is machine generated. Do not edit. */\n";
+  }
+
+}
+
+if ($opt_c or $opt_h and !$opt_i){
+
+print <<EOM;
+/* -*- Mode: C -*-
+  ======================================================================
+  FILE: icalderivedproperties.{c,h}
+  CREATOR: eric 09 May 1999
+  
+  \044Id:\044
+    
+  (C) COPYRIGHT 1999 Eric Busboom 
+  http://www.softwarestudio.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
+ */
+
+#include <stdarg.h> /* for va_arg functions */
+
+EOM
+
+}
+
+if ($opt_p and !$opt_i){
+
+print <<EOM;
+
+EOM
+
+}
+
+
+foreach $comp (@components) {
+
+  next if !$comp;
+
+  my $ucf = join("",map {ucfirst(lc($_));}  split(/-/,$comp));
+  my $lc = lc($ucf);
+  my $uc = uc($lc);
+
+  if($opt_c) { # Make C source
+ print<<EOM;
+
+/* $comp */
+
+icalcomponent* icalcomponent_new_${lc}()
+{
+   return (icalcomponent*)icalcomponent_new_impl(ICAL_${uc}_COMPONENT);
+}
+
+icalcomponent* icalcomponent_vanew_${lc}(...)
+{
+   va_list args;
+   struct icalcomponent_impl *impl = icalcomponent_new_impl(ICAL_${uc}_component);  
+
+   va_start(args,v);
+   icalcomponent_add_properties(impl, args);
+   va_end(args);
+
+   return (icalcomponent*)impl;
+}
+ 
+EOM
+
+
+  } elsif ($opt_h) { # Make a C header
+ print<<EOM;
+
+/* $comp */
+icalcomponent* icalcomponent_new_${lc}();
+icalcomponent* icalcomponent_vanew_${lc}(...);
+EOM
+  
+} elsif ($opt_s) { # Make something for a switch statement
+
+print <<EOM;
+case ICAL_${uc}_PROPERTY:
+EOM
+
+} elsif ($opt_p) { # make perl source 
+
+print <<EOM;
+
+# $comp 
+package Net::ICal::Component::${ucf};
+\@ISA=qw(Net::ICal::Component);
+
+sub new
+{
+   my \$package = shift;
+   my \$c = Net::ICal::icalcomponent_new(\$Net::ICal::ICAL_${uc}_COMPONENT);
+
+   my \$self = Net::ICal::Component::new_from_ref(\$c);
+   Net::ICal::Component::_add_elements(\$self,\\\@_);
+
+   # Self is blessed in new_from_ref
+
+   return \$self; 
+
+}
+EOM
+
+}
+
+
+
+}
+
+   
diff --git a/scripts/mkderivedparameters.pl b/scripts/mkderivedparameters.pl
new file mode 100755
index 00000000..83a1792d
--- /dev/null
+++ b/scripts/mkderivedparameters.pl
@@ -0,0 +1,345 @@
+#!/usr/bin/env perl
+
+require "readvaluesfile.pl";
+
+use Getopt::Std;
+getopts('chspi:');
+
+%no_xname = (RELATED=>1,RANGE=>1,RSVP=>1,XLICERRORTYPE=>1,XLICCOMPARETYPE=>1);
+
+%params = read_parameters_file($ARGV[0]);
+
+
+# Write the file inline by copying everything before a demarcation
+# line, and putting the generated data after the demarcation
+
+if ($opt_i) {
+
+  open(IN,$opt_i) || die "Can't open input file $opt_i";
+
+  while(<IN>){
+    if (/<insert_code_here>/){
+      $autogenMsg = "of section of machine generated code (mkderivedparameters.pl). Do not edit.";
+      if($opt_p){
+          $startComment = "#";
+          $endComment = "";
+      } else {
+          $startComment = "/*";
+          $endComment = " */";
+      }
+      print $startComment." START ".$autogenMsg.$endComment."\n\n";
+
+      insert_code();
+
+      print $startComment." END   ".$autogenMsg.$endComment."\n\n";
+    } else {
+      print;
+   }
+
+  }    
+
+}
+
+sub insert_code
+{
+
+# Write parameter enumerations and datatypes
+
+if($opt_h){
+  my $enumConst = $params{'ANY'}->{"kindEnum"};
+  print "typedef enum icalparameter_kind {\n    ICAL_ANY_PARAMETER = ".$enumConst.",\n";
+  $enumVal = 1;
+  foreach $param (sort keys %params) {
+    
+    next if !$param;
+    
+    next if $param eq 'NO' or $param eq 'ANY';
+
+    my $uc = join("",map {uc($_);}  split(/-/,$param));
+
+    $enumConst = $params{$param}->{"kindEnum"};
+        
+    print "    ICAL_${uc}_PARAMETER = ".$enumConst.", \n";
+    
+  }  
+  $enumConst = $params{'NO'}->{"kindEnum"};
+  print "    ICAL_NO_PARAMETER = ".$enumConst."\n} icalparameter_kind;\n\n";
+
+  # Now create enumerations for parameter values
+  $idx = 20000;
+  
+  print "#define ICALPARAMETER_FIRST_ENUM $idx\n\n";
+  
+  foreach $param (sort keys %params) {
+    
+    next if !$param;
+    
+    next if $param eq 'NO' or $param eq 'ANY';
+
+    my $type = $params{$param}->{"C"};
+    my $ucv = join("",map {uc(lc($_));}  split(/-/,$param));    
+    my @enums = @{$params{$param}->{'enums'}};
+
+    if(@enums){
+
+      print "typedef enum $type {\n";
+      my $first = 1;
+
+      unshift(@enums,"X");
+
+      push(@enums,"NONE");
+
+      foreach $e (@enums) {
+	if (!$first){
+	  print ",\n";
+	} else {
+	  $first = 0;
+	}
+	
+	my $uce = join("",map {uc(lc($_));}  split(/-/,$e));    
+	
+	print "    ICAL_${ucv}_${uce} = $idx";
+	
+	$idx++;
+      }
+      $c_type =~ s/enum //;
+
+      print "\n} $type;\n\n";
+    }
+  }
+
+  print "#define ICALPARAMETER_LAST_ENUM $idx\n\n";
+
+}
+
+if ($opt_c){
+
+  
+  # Create the icalparameter_value to icalvalue_kind conversion table
+  my $count = 0;
+  my $out;
+
+  foreach $enum (@{$params{'VALUE'}->{'enums'}}){
+    next if $enum eq 'NO' or $enum eq 'ERROR';
+    $uc = join("",map {uc(lc($_));}  split(/-/,$enum));    
+    $out.="    {ICAL_VALUE_${uc},ICAL_${uc}_VALUE},\n";
+    $count++;
+  }
+
+  $count+=2;
+  print "static const struct icalparameter_value_kind_map value_kind_map[$count] = {\n";
+  print $out;
+  print "    {ICAL_VALUE_X,ICAL_X_VALUE},\n";
+  print "    {ICAL_VALUE_NONE,ICAL_NO_VALUE}\n};\n\n";
+  
+  #Create the parameter Name map
+
+  $out="";
+  $count=0;
+  foreach $param (sort keys %params) {
+    
+    next if !$param;
+    
+    next if $param eq 'NO' or $param eq 'ANY';
+
+    my $lc = join("",map {lc($_);}  split(/-/,$param));    
+    my $uc = join("",map {uc(lc($_));}  split(/-/,$param));    
+
+    $count++;
+    $out.="    {ICAL_${uc}_PARAMETER,\"$param\"},\n";
+
+  }
+  $count+=1;
+  print "static const struct icalparameter_kind_map parameter_map[$count] = { \n";
+  print $out;
+  print "    { ICAL_NO_PARAMETER, \"\"}\n};\n\n";
+  
+  # Create the parameter value map
+  $out ="";
+  $count=0;
+  foreach $param (sort keys %params) {
+    
+    next if !$param;
+    
+    next if $param eq 'NO' or $param eq 'ANY';
+
+    my $type = $params{$param}->{"C"};
+    my $uc = join("",map {uc(lc($_));}  split(/-/,$param));    
+    my @enums = @{$params{$param}->{'enums'}};
+
+    if(@enums){
+
+      foreach $e (@enums){
+	my $uce = join("",map {uc(lc($_));}  split(/-/,$e));    
+
+	$count++;
+	$out.="    {ICAL_${uc}_PARAMETER,ICAL_${uc}_${uce},\"$e\"},\n";
+      }
+
+    }
+  }
+
+  $count+=3;
+  print "static const struct icalparameter_map icalparameter_map[] = {\n";
+  print "{ICAL_ANY_PARAMETER,0,\"\"},\n";
+  print $out;
+  print "    {ICAL_NO_PARAMETER,0,\"\"}};\n\n";
+
+}
+
+foreach $param  (sort keys %params){
+
+  next if $param eq 'NO' or $param eq 'ANY';
+
+  my $type = $params{$param}->{'C'};
+
+  my $ucf = join("",map {ucfirst(lc($_));}  split(/-/,$param));
+  
+  my $lc = lc($ucf);
+  my $uc = uc($lc);
+ 
+  my $charorenum;
+  my $set_code;
+  my $pointer_check;
+  my $pointer_check_v;
+  my $xrange;
+
+  if ($type=~/char/ ) {
+
+     $charorenum = "    icalerror_check_arg_rz( (param!=0), \"param\");\n    return param->string;";
+    
+     $set_code = "((struct icalparameter_impl*)param)->string = icalmemory_strdup(v);";
+
+     $pointer_check = "icalerror_check_arg_rz( (v!=0),\"v\");"; 
+     $pointer_check_v = "icalerror_check_arg_rv( (v!=0),\"v\");"; 
+
+  } else {
+
+    $xrange ="     if (param->string != 0){\n        return ICAL_${uc}_X;\n        }\n" if !exists $no_xname{$uc};
+    
+    $charorenum= "icalerror_check_arg( (param!=0), \"param\");\n$xrange\nreturn ($type)(param->data);";
+     
+    $pointer_check = "icalerror_check_arg_rz(v >= ICAL_${uc}_X,\"v\");\n    icalerror_check_arg_rz(v < ICAL_${uc}_NONE,\"v\");";
+
+    $pointer_check_v = "icalerror_check_arg_rv(v >= ICAL_${uc}_X,\"v\");\n    icalerror_check_arg_rv(v < ICAL_${uc}_NONE,\"v\");";
+
+     $set_code = "((struct icalparameter_impl*)param)->data = (int)v;";
+
+   }
+  
+  
+  
+  if ($opt_c) {
+    
+  print <<EOM;
+/* $param */
+icalparameter* icalparameter_new_${lc}($type v)
+{
+   struct icalparameter_impl *impl;
+   icalerror_clear_errno();
+   $pointer_check
+   impl = icalparameter_new_impl(ICAL_${uc}_PARAMETER);
+   if (impl == 0) {
+      return 0;
+   }
+
+   icalparameter_set_${lc}((icalparameter*) impl,v);
+   if (icalerrno != ICAL_NO_ERROR) {
+      icalparameter_free((icalparameter*) impl);
+      return 0;
+   }
+
+   return (icalparameter*) impl;
+}
+
+${type} icalparameter_get_${lc}(const icalparameter* param)
+{
+   icalerror_clear_errno();
+$charorenum
+}
+
+void icalparameter_set_${lc}(icalparameter* param, ${type} v)
+{
+   $pointer_check_v
+   icalerror_check_arg_rv( (param!=0), "param");
+   icalerror_clear_errno();
+
+   if (param->string != NULL)
+      free (param->string);
+   $set_code
+}
+
+EOM
+
+  } elsif( $opt_h) {
+
+  print <<EOM;
+/* $param */
+icalparameter* icalparameter_new_${lc}($type v);
+${type} icalparameter_get_${lc}(const icalparameter* value);
+void icalparameter_set_${lc}(icalparameter* value, ${type} v);
+
+EOM
+
+}
+
+if ($opt_p) {
+    
+  print <<EOM;
+
+# $param 
+
+package Net::ICal::Parameter::${ucf};
+\@ISA=qw(Net::ICal::Parameter);
+
+sub new
+{
+   my \$self = [];
+   my \$package = shift;
+   my \$value = shift;
+
+   bless \$self, \$package;
+
+   my \$p;
+
+   if (\$value) {
+      \$p = Net::ICal::icalparameter_new_from_string(\$Net::ICal::ICAL_${uc}_PARAMETER,\$value);
+   } else {
+      \$p = Net::ICal::icalparameter_new(\$Net::ICal::ICAL_${uc}_PARAMETER);
+   }
+
+   \$self->[0] = \$p;
+
+   return \$self;
+}
+
+sub get
+{
+   my \$self = shift;
+   my \$impl = \$self->_impl();
+
+   return Net::ICal::icalparameter_as_ical_string(\$impl);
+
+}
+
+sub set
+{
+   # This is hard to implement, so I've punted for now. 
+   die "Set is not implemented";
+}
+
+EOM
+
+}
+
+}
+
+if ($opt_h){
+
+print <<EOM;
+#endif /*ICALPARAMETER_H*/
+
+EOM
+}
+
+}
diff --git a/scripts/mkderivedproperties.pl b/scripts/mkderivedproperties.pl
new file mode 100755
index 00000000..81e49726
--- /dev/null
+++ b/scripts/mkderivedproperties.pl
@@ -0,0 +1,293 @@
+#!/usr/bin/env perl
+
+require "readvaluesfile.pl";
+
+use Getopt::Std;
+getopts('chspmi:');
+
+# ARG 0 is properties.csv
+%propmap  = read_properties_file($ARGV[0]);
+
+# ARG 1 is value-types.txt
+%valuemap  = read_values_file($ARGV[1]);
+
+
+$include_vanew = 1;
+
+# Write the file inline by copying everything before a demarcation
+# line, and putting the generated data after the demarcation
+
+if ($opt_i) {
+
+  open(IN,$opt_i) || die "Can't open input file $opt_i";
+
+  while(<IN>){
+
+    if (/<insert_code_here>/){
+      insert_code();
+    } else {
+      print;
+   }
+ 
+  }    
+ 
+}
+
+sub fudge_data {
+  my $prop = shift;
+
+  my $value = $propmap{$prop}->{'lic_value'};
+
+  if (!$value){
+    die "Can't find value for property \"$prop\"\n";
+  }
+  my $ucf = join("",map {ucfirst(lc($_));}  split(/-/,$prop));
+  my $lc = lc($ucf);
+  my $uc = uc($lc);
+
+  my $ucfvalue = join("",map {ucfirst(lc($_));}  split(/-/,$value));
+  my $lcvalue = lc($ucfvalue);
+  my $ucvalue = uc($lcvalue);
+
+  my $type = $valuemap{$value}->{C}->[1];
+
+  return ($uc,$lc,$lcvalue,$ucvalue,$type);
+
+}  
+
+sub insert_code {
+
+# Create the property map data
+if($opt_c){
+
+
+  my @props = sort keys %propmap;
+  my $count = scalar(@props);
+  
+
+  print "static const struct icalproperty_map property_map[$count] = {\n";
+  
+  foreach $prop (@props) {
+    
+    next if !$prop;
+    
+    next if $prop eq 'NO';
+    
+    my ($uc,$lc,$lcvalue,$ucvalue,$type) = fudge_data($prop);
+    
+    print "{ICAL_${uc}_PROPERTY,\"$prop\",ICAL_${ucvalue}_VALUE},\n";
+    
+  }
+  
+  $prop = "NO";
+  
+  my ($uc,$lc,$lcvalue,$ucvalue,$type) = fudge_data($prop);
+  
+  print "{ICAL_${uc}_PROPERTY,\"\",ICAL_NO_VALUE}};\n\n";
+
+  $idx = 10000;
+  $count = 1;
+  my $out = "";
+
+  foreach $value (sort keys %valuemap) {
+    
+    next if !$value;    
+    next if $value eq 'NO' or $prop eq 'ANY';
+
+    my $ucv = join("",map {uc(lc($_));}  split(/-/,$value));    
+    my @enums = @{$valuemap{$value}->{'enums'}};
+
+    if(@enums){
+
+      my ($c_autogen,$c_type) = @{$valuemap{$value}->{'C'}};
+      
+      unshift(@enums,"X");
+      push(@enums,"NONE");
+
+      foreach $e (@enums) {
+
+	my $uce = join("",map {uc(lc($_));}  split(/-/,$e));
+	
+	if($e ne "X" and $e ne "NONE"){
+	  $str = $e;
+	} else {
+	  $str = "";
+	}
+
+	$out.="    {ICAL_${ucv}_PROPERTY,ICAL_${ucv}_${uce},\"$str\" }, /*$idx*/\n";
+
+	$idx++;
+	$count++;
+      }
+      
+    }
+  }
+
+  $count++;
+  print "static const struct icalproperty_enum_map enum_map[$count] = {\n";
+  print $out;
+  print "    {ICAL_NO_PROPERTY,0,\"\"}\n};\n\n";
+  
+
+
+}
+
+
+if($opt_h){
+
+  # Create the property enumerations list
+  print "typedef enum icalproperty_kind {\n    ICAL_ANY_PROPERTY = 0,\n";
+  foreach $prop (sort keys %propmap) {
+    
+    next if !$prop;
+    
+    next if $prop eq 'NO' or $prop eq 'ANY';
+    
+    my ($uc,$lc,$lcvalue,$ucvalue,$type) = fudge_data($prop);
+    
+    print "    ICAL_${uc}_PROPERTY, \n";
+    
+  }  
+  print "    ICAL_NO_PROPERTY\n} icalproperty_kind;\n\n";
+
+
+}
+
+
+foreach $prop (sort keys %propmap) {
+
+  next if !$prop;
+
+  next if $prop eq 'NO' or $prop eq 'ANY';
+
+  my ($uc,$lc,$lcvalue,$ucvalue,$type) = fudge_data($prop);
+
+  
+  my $pointer_check;
+  if ($type =~ /\*/){
+    $pointer_check = "icalerror_check_arg_rz( (v!=0),\"v\");\n" if $type =~ /\*/;
+  } elsif ( $type eq "void" ){
+    $pointer_check = "icalerror_check_arg_rv( (v!=0),\"v\");\n" if $type =~ /\*/;
+
+  }    
+
+  my $set_pointer_check = "icalerror_check_arg_rv( (v!=0),\"v\");\n" if $type =~ /\*/;
+
+  if($opt_c) { # Generate C source
+
+   if ($include_vanew) {
+     print<<EOM;
+icalproperty* icalproperty_vanew_${lc}($type v, ...){
+   va_list args;
+   struct icalproperty_impl *impl;
+   $pointer_check
+   impl= icalproperty_new_impl(ICAL_${uc}_PROPERTY);
+   icalproperty_set_${lc}((icalproperty*)impl,v);
+   va_start(args,v);
+   icalproperty_add_parameters(impl, args);
+   va_end(args);
+   return (icalproperty*)impl;
+}
+EOM
+}
+	print<<EOM;
+
+/* $prop */
+icalproperty* icalproperty_new_${lc}($type v) {
+   struct icalproperty_impl *impl;
+   $pointer_check
+   impl = icalproperty_new_impl(ICAL_${uc}_PROPERTY);
+   icalproperty_set_${lc}((icalproperty*)impl,v);
+   return (icalproperty*)impl;
+}
+
+EOM
+    # Allow DTSTART, DTEND, DUE, EXDATE and RECURRENCE-ID to take DATE values.
+    if ($lc eq "dtstart" || $lc eq "dtend" || $lc eq "due" || $lc eq "exdate"
+	|| $lc eq "recurrenceid") {
+	print<<EOM;
+void icalproperty_set_${lc}(icalproperty* prop, $type v){
+    icalvalue *value;
+    $set_pointer_check
+    icalerror_check_arg_rv( (prop!=0),"prop");
+    if (v.is_date)
+        value = icalvalue_new_date(v);
+    else
+        value = icalvalue_new_datetime(v);
+    icalproperty_set_value(prop,value);
+}
+EOM
+    } else {
+
+	print<<EOM;
+void icalproperty_set_${lc}(icalproperty* prop, $type v){
+    $set_pointer_check
+    icalerror_check_arg_rv( (prop!=0),"prop");
+    icalproperty_set_value(prop,icalvalue_new_${lcvalue}(v));
+}
+EOM
+	}
+# Dirk Theisen pointed out, exdate needs to match TZID parameters in EXDATE
+    if ($lc eq "exdate") {
+	print<<EOM;
+$type icalproperty_get_${lc}(const icalproperty* prop){
+#ifndef _MSC_VER
+	struct icaltimetype itt;
+	icalparameter* param;
+	icaltimezone *zone;
+#endif
+	icalerror_check_arg( (prop!=0),"prop");
+#ifndef _MSC_VER
+        /*
+	 * Code by dirk\@objectpark.net:
+	 * Set the time zone manually. I am really puzzled that 
+	 * it doesnot work automatically like in the other functions 
+	 * like icalproperty_get_dtstart().
+	 */
+	itt = icalvalue_get_datetime(icalproperty_get_value(prop));
+	param = icalproperty_get_first_parameter(prop, ICAL_TZID_PARAMETER);
+	if (param) {
+	        zone = icaltimezone_get_builtin_timezone(icalparameter_get_tzid(param));
+		icaltime_set_timezone(&itt, zone);
+        }
+	return itt;
+#else
+    return icalvalue_get_datetime(icalproperty_get_value(prop));
+#endif
+}
+EOM
+    } else {
+	print<<EOM;
+$type icalproperty_get_${lc}(const icalproperty* prop){
+    icalerror_check_arg( (prop!=0),"prop");
+    return icalvalue_get_${lcvalue}(icalproperty_get_value(prop));
+}
+EOM
+    }
+  } elsif ($opt_h) { # Generate C Header file
+
+
+ print "\
+/* $prop */\
+icalproperty* icalproperty_new_${lc}($type v);\
+void icalproperty_set_${lc}(icalproperty* prop, $type v);\
+$type icalproperty_get_${lc}(const icalproperty* prop);";
+  
+
+if ($include_vanew){
+  print "icalproperty* icalproperty_vanew_${lc}($type v, ...);\n";
+}
+
+} 
+
+
+} # This brace terminates the main loop
+
+
+
+if ($opt_h){
+
+print "\n\n#endif /*ICALPROPERTY_H*/\n"
+}
+
+}
diff --git a/scripts/mkderivedvalues.pl b/scripts/mkderivedvalues.pl
new file mode 100755
index 00000000..639a990b
--- /dev/null
+++ b/scripts/mkderivedvalues.pl
@@ -0,0 +1,238 @@
+#!/usr/bin/perl 
+
+use lib '.';
+
+require 'readvaluesfile.pl';
+
+use Getopt::Std;
+getopts('chi:');
+
+ #Options
+ # c -> generate c code file
+ # h-> generate header file   
+
+ # Open with value-types.txt
+
+my %h = read_values_file($ARGV[0]);
+
+
+ # Write the file inline by copying everything before a demarcation
+ # line, and putting the generated data after the demarcation
+
+if ($opt_i) {
+  
+  open(IN,$opt_i) || die "Can't open input file $opt_i";
+  
+  while(<IN>){
+    if (/<insert_code_here>/){
+      insert_code();
+    } else {
+      print;
+   }
+
+
+  }
+}
+
+sub insert_code
+{
+ # Map type names to the value in the icalvalue_impl data union */
+
+%union_map = (
+	      BOOLEAN => 'int',
+	      CALADDRESS=>'string',
+	      DATE=>'time',
+	      DATETIME=>'time',
+	      DATETIMEDATE=>'time',
+	      DATETIMEPERIOD=>'period',
+	      DURATION=>'duration',
+	      INTEGER=>'int',
+	      TEXT=>'string',
+	      URI=>'string',
+	      UTCOFFSET=>'int',
+	      QUERY=>'string',
+	      BINARY=>'string',
+	      X=>'string'
+	     );
+
+
+if($opt_h){
+
+  # First print out the value enumerations
+  $idx = 5000;
+  print "typedef enum icalvalue_kind {\n";
+  print "   ICAL_ANY_VALUE=$idx,\n";
+
+  foreach $value  (keys %h) {
+    
+    $idx++;
+    my $ucv = join("",map {uc(lc($_));}  split(/-/,$value));
+    
+    next if $value eq "NO";
+    
+    print "    ICAL_${ucv}_VALUE=$idx,\n";
+  }
+  
+  $idx++;
+  print "   ICAL_NO_VALUE=$idx\n} icalvalue_kind ;\n\n";
+  
+  # Now create enumerations for property values
+  $idx = 10000;
+  
+  print "#define ICALPROPERTY_FIRST_ENUM $idx\n\n";
+  
+  foreach $value (sort keys %h) {
+    
+    next if !$value;
+    
+    next if $value eq 'NO' or $prop eq 'ANY';
+
+    my $ucv = join("",map {uc(lc($_));}  split(/-/,$value));    
+    my @enums = @{$h{$value}->{'enums'}};
+
+    if(@enums){
+
+      my ($c_autogen,$c_type) = @{$h{$value}->{'C'}};
+      print "typedef $c_type {\n";
+      my $first = 1;
+
+      unshift(@enums,"X");
+
+      push(@enums,"NONE");
+
+      foreach $e (@enums) {
+	if (!$first){
+	  print ",\n";
+	} else {
+	  $first = 0;
+	}
+	
+	my $uce = join("",map {uc(lc($_));}  split(/-/,$e));    
+	
+	print "    ICAL_${ucv}_${uce} = $idx";
+	
+	$idx++;
+      }  
+
+      $c_type =~ s/enum //;
+
+      print "\n} $c_type;\n\n";
+    }
+  }
+
+  print "#define ICALPROPERTY_LAST_ENUM $idx\n\n";
+
+}
+
+
+if($opt_c){
+
+  # print out the value to string map
+
+  my $count = scalar(keys %h) + 1;
+  print "static const struct icalvalue_kind_map value_map[$count]={\n"; 
+
+  foreach $value  (keys %h) {
+
+    $idx++;
+    my $ucv = join("",map {uc(lc($_));}  split(/-/,$value));
+    
+    next if $value eq "NO";
+    
+    print "    {ICAL_${ucv}_VALUE,\"$value\"},\n";
+  }
+
+    
+  print "    {ICAL_NO_VALUE,\"\"}\n};";
+
+}
+
+
+foreach $value  (keys %h) {
+
+  my $autogen = $h{$value}->{C}->[0];
+  my $type = $h{$value}->{C}->[1];
+
+  my $ucf = join("",map {ucfirst(lc($_));}  split(/-/,$value));
+  
+  my $lc = lc($ucf);
+  my $uc = uc($lc);
+  
+  my $pointer_check = "icalerror_check_arg_rz( (v!=0),\"v\");\n" if $type =~ /\*/;
+  my $pointer_check_rv = "icalerror_check_arg_rv( (v!=0),\"v\");\n" if $type =~ /\*/;
+  
+  my $assign;
+  
+  if ($type =~ /char/){
+    $assign = "icalmemory_strdup(v);\n\n    if (impl->data.v_string == 0){\n      errno = ENOMEM;\n    }\n";
+  } else {
+    $assign = "v;";
+  }
+  
+  my $union_data;
+  
+  if(@{$h{$value}->{'enums'}}){
+    $union_data = 'enum';
+
+  } elsif (exists $union_map{$uc} ){
+    $union_data=$union_map{$uc};
+  } else {
+    $union_data = $lc;
+  }
+  
+  if ($opt_c && $autogen) {
+    
+    print "\n\n\
+icalvalue* icalvalue_new_${lc} ($type v){\
+   struct icalvalue_impl* impl;\
+   $pointer_check\
+   impl = icalvalue_new_impl(ICAL_${uc}_VALUE);\
+   icalvalue_set_${lc}((icalvalue*)impl,v);\
+   return (icalvalue*)impl;\
+}\
+void icalvalue_set_${lc}(icalvalue* value, $type v) {\
+    struct icalvalue_impl* impl; \
+    icalerror_check_arg_rv( (value!=0),\"value\");\
+    $pointer_check_rv\
+    icalerror_check_value_type(value, ICAL_${uc}_VALUE);\
+    impl = (struct icalvalue_impl*)value;\n";
+    
+    if( $union_data eq 'string') {
+      
+      print "    if(impl->data.v_${union_data}!=0) {free((void*)impl->data.v_${union_data});}\n";
+    }
+    
+
+    print "\n\
+    impl->data.v_$union_data = $assign \n\
+    icalvalue_reset_kind(impl);\n}\n";
+
+    print "$type\ icalvalue_get_${lc} (const icalvalue* value) {\n\n";
+    if( $union_data eq 'string') {
+	print "    icalerror_check_arg_rz ((value!=0),\"value\");\n";
+    }
+    else {
+	print "    icalerror_check_arg ((value!=0),\"value\");\n";
+    }
+    print "    icalerror_check_value_type (value, ICAL_${uc}_VALUE);\
+    return ((struct icalvalue_impl*)value)->data.v_${union_data};\n}\n";
+
+    
+  } elsif($opt_h && $autogen) {
+    
+    print "\n /* $value */ \
+icalvalue* icalvalue_new_${lc}($type v); \
+$type icalvalue_get_${lc}(const icalvalue* value); \
+void icalvalue_set_${lc}(icalvalue* value, ${type} v);\n\n";
+
+  } 
+
+}
+  
+  
+if ($opt_h){
+    print "#endif /*ICALVALUE_H*/\n";
+  }
+  
+
+}
diff --git a/scripts/mkinclude.sh b/scripts/mkinclude.sh
new file mode 100644
index 00000000..a77c8d74
--- /dev/null
+++ b/scripts/mkinclude.sh
@@ -0,0 +1,39 @@
+#!/bin/sh
+
+#
+# Given a list of headers, combine them into one, excluding certain lines
+#
+OUTFILE="/dev/stdout"
+COMBINEDHEADERS=""
+EXCLUDES=""
+
+while [ $# -gt 0 ]
+do
+  case $1 in
+      -o)  OUTFILE=$2; shift;;
+      -e)  EXCLUDES="$EXCLUDES $2"; shift;;
+      *)   COMBINEDHEADERS="$COMBINEDHEADERS $1";
+  esac
+  shift
+done
+
+echo '#ifdef __cplusplus'         > $OUTFILE
+echo 'extern "C" {'               >> $OUTFILE
+echo '#endif'                     >> $OUTFILE
+echo '/*'                         >> $OUTFILE
+echo " \$Id\$"                    >> $OUTFILE
+echo '*/'                         >> $OUTFILE
+cat $COMBINEDHEADERS              >> file.temp1
+for exclude in $EXCLUDES
+do
+  cp file.temp1 file.temp2
+  egrep -v "$exclude" file.temp2    > file.temp1
+done
+cat file.temp1 >> $OUTFILE
+rm -f file.temp1
+rm -f file.temp2
+echo '#ifdef __cplusplus'         >> $OUTFILE
+echo '};'                         >> $OUTFILE
+echo '#endif'                     >> $OUTFILE
+
+
diff --git a/scripts/mkneticali.pl b/scripts/mkneticali.pl
new file mode 100755
index 00000000..937de499
--- /dev/null
+++ b/scripts/mkneticali.pl
@@ -0,0 +1,99 @@
+#!/usr/local/bin/perl 
+
+$pr = 1;
+$ignore = 0;
+
+
+print<<EOM;
+/* -*- Mode: C -*-*/
+/*======================================================================
+  FILE: ical.i
+
+  (C) COPYRIGHT 1999 Eric Busboom
+  http://www.softwarestudio.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.
+
+  The original author is Eric Busboom
+
+  Contributions from:
+  Graham Davison (g.m.davison\@computer.org)
+
+  ======================================================================*/  
+
+%module Net__ICal
+
+%{
+#include "ical.h"
+
+#include <sys/types.h> /* for size_t */
+#include <time.h>
+
+%}
+
+EOM
+
+foreach $f (@ARGV)
+{
+  @f = split(/\//,$f);
+  $fn = pop(@f);
+
+  $fn=~/pvl/ && next;
+  $fn=~/sspm/ && next;
+  $fn=~/cstp/ && next;
+   $fn=~/csdb/ && next;
+   $fn=~/vcal/ && next;
+   $fn=~/yacc/ && next;
+   $fn=~/lex/ && next;
+
+  print "\n/**********************************************************************\n";
+
+  print "\t$fn\n";
+  print "**********************************************************************/\n\n";
+
+
+  open F, $f;
+
+  while(<F>){
+    
+    s/^#.*//;
+
+    s/\/\*.*\*\///;
+    
+    /^\/\// && next;
+
+    next if /^$/;
+    
+    if(/\/\*/){ $pr = 0;}
+    
+    /icalparser_parse\(/ and $ignore = 1;
+    /vanew/ and $ignore = 1; 
+    /_stub/ and $ignore = 1; 
+    /_response/ and $ignore = 1; 
+    /line_gen_func/ and $ignore = 1; 
+    /extern/  and $ignore = 1; 
+    /sspm/  and $ignore = 1; 
+    /icalrecur/  and $ignore = 1; 
+
+    if ($pr == 1 && $ignore == 0){
+      print ;
+    }
+    
+    
+    if(/\*\//){ $pr = 1;}
+
+    if (/\;/){ $ignore = 0; }
+
+  }
+
+}
+
+
diff --git a/scripts/mkparameterrestrictions.pl b/scripts/mkparameterrestrictions.pl
new file mode 100755
index 00000000..2c57eb4c
--- /dev/null
+++ b/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
diff --git a/scripts/mkrestrictionrecords.pl b/scripts/mkrestrictionrecords.pl
new file mode 100755
index 00000000..dd28d777
--- /dev/null
+++ b/scripts/mkrestrictionrecords.pl
@@ -0,0 +1,109 @@
+#!/usr/bin/env perl
+
+# Version: 1.0
+# Script last updated: 30May1999 GMD
+# Change log:
+# <none>
+
+# usually open restrictions.csv
+open(F,"$ARGV[0]") || die "Can't open restriction file $ARGV[0]:$!";
+
+print <<EOM;
+/*
+  ======================================================================
+  File: restrictionrecords.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
+ */
+
+
+typedef struct icalrestriction_record {
+	icalproperty_method method;
+	icalcomponent_kind component;
+	icalproperty_kind property;
+	icalcomponent_kind subcomponent;
+	icalrestriction_kind restriction;
+} icalrestriction_record;
+
+
+icalrestriction_record icalrestriction_records[] = 
+{
+EOM
+
+my $last_method = "";
+my $last_component = "";
+my $last_property = "";
+my $need_header = 0;
+
+while(<F>)
+{
+	chop;
+	
+	# split line at commas
+	my ($method,$component,$property,$subcomponent,$restriction)=split(/\,/,$_);
+	
+	#
+	#put in code to generate comments here!
+	#
+	if ($method ne $last_method)
+	{
+		$need_header = 1;
+		$last_method = $method;
+	}
+	if ($component ne $last_component)
+	{
+		$need_header = 1;
+		$last_component = $component;
+	}
+	
+	if ($need_header)
+	{
+		print "\n\t/* METHOD: ${method}, COMPONENT: ${component} */\n";
+		$need_header = 0;
+	}
+	
+	foreach $item ($component,$property,$subcomponent,$restriction)
+	{
+		# handle special cases.
+		if ($item eq "NONE")
+			{ $item = "NO"; }
+		else { if (substr($item,0,1) eq "X")
+			{ $item = "X"; }}
+		
+		# strip out dashes
+		$item = join("",split(/-/,$item));
+	}
+	# strip leading V from component names
+	$component =~ s/^(V?)(\w+?)((SAVINGS)?)((TIME)?)$/$2/;
+	$subcomponent =~ s/^V(\w+)/$1/;
+
+	print "\t\{ICAL_METHOD_${method},ICAL_${component}_COMPONENT,";
+	print "ICAL_${property}_PROPERTY,ICAL_${subcomponent}_COMPONENT,";
+	print "ICAL_RESTRICTION_${restriction}\},\n";
+	
+}
+
+print <<EOM;
+	
+	/* END */
+	{ICAL_METHOD_NONE,ICAL_NO_COMPONENT,ICAL_NO_PROPERTY,ICAL_NO_COMPONENT,ICAL_RESTRICTION_NONE}
+};
+EOM
diff --git a/scripts/mkrestrictiontable.pl b/scripts/mkrestrictiontable.pl
new file mode 100755
index 00000000..101e8b7c
--- /dev/null
+++ b/scripts/mkrestrictiontable.pl
@@ -0,0 +1,102 @@
+#!/usr/bin/env perl
+
+use Getopt::Std;
+getopts('i:');
+
+# the argument should be the path to the restriction datafile, usually
+# design-data/restrictions.csv        
+open(F,"$ARGV[0]") || die "Can't open restriction data file $ARGV[0]:$!";
+
+# Write the file inline by copying everything before a demarcation
+# line, and putting the generated data after the demarcation
+
+if ($opt_i) {
+
+  open(IN,$opt_i) || die "Can't open input file $opt_i";
+
+  while(<IN>){
+
+    if (/<insert_code_here>/){
+      insert_code();
+    }
+
+    if (/Do not edit/){
+      last;
+    }
+
+    print;
+
+  }
+
+  close IN;
+}
+
+sub insert_code {
+# First build the property restriction table 
+print "static const icalrestriction_property_record icalrestriction_property_records[] = {\n";
+
+while(<F>)
+{
+
+  chop;
+
+  s/\#.*$//;
+
+  my($method,$targetcomp,$prop,$subcomp,$restr,$sub) = split(/,/,$_);
+
+  next if !$method;
+  
+  if(!$sub) {
+    $sub = "0";
+  } else {
+    $sub = "icalrestriction_".$sub;
+  }
+
+  if($prop ne "NONE"){
+    print("    \{ICAL_METHOD_${method},ICAL_${targetcomp}_COMPONENT,ICAL_${prop}_PROPERTY,ICAL_RESTRICTION_${restr},$sub},\n");
+  }
+
+}
+
+
+# Print the terminating line 
+print "    {ICAL_METHOD_NONE,ICAL_NO_COMPONENT,ICAL_NO_PROPERTY,ICAL_RESTRICTION_NONE}\n";
+
+print "};\n";
+
+print "static const 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]:$!";
+
+while(<F>)
+{
+
+  chop;
+
+  s/\#.*$//;
+
+  my($method,$targetcomp,$prop,$subcomp,$restr,$sub) = split(/,/,$_);
+
+  next if !$method;
+  
+  if(!$sub) {
+    $sub = "0";
+  } else {
+    $sub = "icalrestriction_".$sub;
+  }
+
+
+    if($subcomp ne "NONE"){
+      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";
+}
+
diff --git a/scripts/readvaluesfile.pl b/scripts/readvaluesfile.pl
new file mode 100644
index 00000000..b3eee98a
--- /dev/null
+++ b/scripts/readvaluesfile.pl
@@ -0,0 +1,135 @@
+
+
+sub read_values_file {
+  
+  my $path = shift;
+  my %h;
+
+  open(F,$path) || die "Can't open values file $path";
+
+  while(<F>){
+    
+    chop; 
+ 
+    s/#.*$//g;
+    s/\"//g;
+    s/\r//g;
+   
+    next if ! $_;
+
+    @column = split(/,/,$_);
+    
+    my $value_name = $column[0];
+
+    my $c_type_str =  $column[1];
+    my $c_autogen = ($c_type_str =~ /\(a\)/);
+
+    my $c_type = $c_type_str;
+    $c_type =~ s/\(.\)//;
+
+    my $python_type =  $column[2];
+    my $components = $column[3];
+    my $enum_values = $column[4];
+
+    my @components;
+    if($components ne "unitary"){
+      @components = split(/;/,$components);
+    } else {
+      @components = ();
+    }
+
+    my @enums;
+    if($enum_values) {
+      @enums  = split(/;/,$enum_values);
+
+    } else {
+      @enums = ();
+    }
+
+    $h{$value_name} = { C => [$c_autogen,$c_type],
+			perl => $perl_type,
+			python => $python_type,
+			components=>[@components],
+			enums=>[@enums]
+		      };
+  }
+
+  return %h;
+}
+
+sub read_properties_file {
+  
+  my $path = shift;
+  my %h;
+
+  open(F,$path) || die "Can't open properties file $path";
+
+  while(<F>){
+    
+    chop; 
+ 
+    s/#.*$//g;
+    s/\"//g;
+    s/\r//g;
+   
+    next if ! $_;
+
+    @column = split(/,/,$_);
+    
+    my $property_name = $column[0];
+
+    my $lic_value = $column[1];
+    my $default_value = $column[2];
+    
+    $h{$property_name} = { lic_value => $lic_value,
+			   default_value => $default_value
+			 };
+  }
+
+  return %h;
+}
+
+sub read_parameters_file {
+  
+  my $path = shift;
+  my %h;
+
+  open(F,$path) || die "Can't open parameters file $path";
+
+  while(<F>){
+    
+    chop; 
+ 
+    s/#.*$//g;
+    s/\"//g;
+    s/\r//g;
+   
+    next if ! $_;
+
+    @column = split(/\,/,$_);
+  
+    my $parameter_name = $column[0];
+
+    my $enumConst = $column[1];
+    my $data_type = $column[2];
+    my $enum_string = $column[3];
+
+    my @enums;
+    if($enum_string){
+      @enums =  split(/;/,$enum_string);
+    }
+    
+    $h{$parameter_name} = { C => $data_type,
+			   kindEnum => $enumConst,
+			   enums => [@enums]
+			 };
+  }
+
+  close(F);
+
+  return %h;
+}
+
+
+
+1;