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/mkderivedcomponents.pl | 143 +++++++++++++++++++++++++++++++++
 1 file changed, 143 insertions(+)
 create mode 100755 libical/scripts/mkderivedcomponents.pl

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

diff --git a/libical/scripts/mkderivedcomponents.pl b/libical/scripts/mkderivedcomponents.pl
new file mode 100755
index 0000000000..3599a8d465
--- /dev/null
+++ b/libical/scripts/mkderivedcomponents.pl
@@ -0,0 +1,143 @@
+#!/usr/local/bin/perl
+
+use Getopt::Std;
+getopts('chsp');
+
+
+# ARG 0 is components.txt
+open(PV,"$ARGV[0]") || die "Can't open components  file $ARGV[0]:$!";
+
+my @components;
+
+while (<PV>){
+
+  chop;
+
+  push(@components,$_);
+
+}
+
+close PV;
+
+if ($opt_c or $opt_h){
+
+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){
+
+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,\\\@_);
+
+   bless \$self, \$package;
+
+   return \$self; 
+
+}
+EOM
+
+}
+
+
+
+}
+
+   
-- 
cgit v1.2.3