aboutsummaryrefslogtreecommitdiffstats
path: root/libical/scripts/mkneticali.pl
diff options
context:
space:
mode:
Diffstat (limited to 'libical/scripts/mkneticali.pl')
-rwxr-xr-xlibical/scripts/mkneticali.pl97
1 files changed, 0 insertions, 97 deletions
diff --git a/libical/scripts/mkneticali.pl b/libical/scripts/mkneticali.pl
deleted file mode 100755
index 47571168cc..0000000000
--- a/libical/scripts/mkneticali.pl
+++ /dev/null
@@ -1,97 +0,0 @@
-#!/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; }
-
- }
-
-}
-
-