aboutsummaryrefslogtreecommitdiffstats
path: root/libical/scripts/mkneticali.pl
diff options
context:
space:
mode:
authorEric Busboom <ericb@src.gnome.org>2000-05-15 12:25:38 +0800
committerEric Busboom <ericb@src.gnome.org>2000-05-15 12:25:38 +0800
commitdf7ae02e104cb32ce5854679ba4cd27e0b2086a9 (patch)
tree1fa9d082dcc6da46cbd98729e769be1ae21c492e /libical/scripts/mkneticali.pl
parentdf22a401de5575b3813070a6bcafb20ec0ef6e22 (diff)
downloadgsoc2013-evolution-df7ae02e104cb32ce5854679ba4cd27e0b2086a9.tar
gsoc2013-evolution-df7ae02e104cb32ce5854679ba4cd27e0b2086a9.tar.gz
gsoc2013-evolution-df7ae02e104cb32ce5854679ba4cd27e0b2086a9.tar.bz2
gsoc2013-evolution-df7ae02e104cb32ce5854679ba4cd27e0b2086a9.tar.lz
gsoc2013-evolution-df7ae02e104cb32ce5854679ba4cd27e0b2086a9.tar.xz
gsoc2013-evolution-df7ae02e104cb32ce5854679ba4cd27e0b2086a9.tar.zst
gsoc2013-evolution-df7ae02e104cb32ce5854679ba4cd27e0b2086a9.zip
Initial revision
svn path=/trunk/; revision=3034
Diffstat (limited to 'libical/scripts/mkneticali.pl')
-rwxr-xr-xlibical/scripts/mkneticali.pl97
1 files changed, 97 insertions, 0 deletions
diff --git a/libical/scripts/mkneticali.pl b/libical/scripts/mkneticali.pl
new file mode 100755
index 0000000000..47571168cc
--- /dev/null
+++ b/libical/scripts/mkneticali.pl
@@ -0,0 +1,97 @@
+#!/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 "icalstore.h"
+#include "icalcluster.h"
+#include "icalcalendar.h"
+
+#include <sys/types.h> /* for size_t */
+#include <time.h>
+
+%}
+
+EOM
+
+foreach $f (@ARGV)
+{
+ @f = split(/\//,$f);
+ $fn = pop(@f);
+
+ print "\n/**********************************************************************\n";
+
+ print "\t$fn\n";
+ print "**********************************************************************/\n\n";
+
+ /pvl/ && next;
+ /cstp/ && next;
+ /csdb/ && next;
+ /vcal/ && next;
+
+
+ open F, $f;
+
+ while(<F>){
+
+ s/^#.*//;
+
+ s/\/\*.*\*\///;
+
+
+ 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;
+
+ if ($pr == 1 && $ignore == 0){
+ print ;
+ }
+
+
+ if(/\*\//){ $pr = 1;}
+
+ if (/\;/){ $ignore = 0; }
+
+ }
+
+}
+
+