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; }
+
+  }
+
+}
+
+