diff options
author | nobody <nobody@localhost> | 2001-06-23 13:14:10 +0800 |
---|---|---|
committer | nobody <nobody@localhost> | 2001-06-23 13:14:10 +0800 |
commit | 81d2df00993a9e6139ef586eef641790512aab48 (patch) | |
tree | a4eb5e010ba601de261dc3f9da4dd4b86fcc46fe /libical/scripts/mkrestrictionrecords.pl | |
parent | 72ca61d74b9942040638b628a6f1358e02d23d42 (diff) | |
download | gsoc2013-evolution-GDM_2_2_3.tar gsoc2013-evolution-GDM_2_2_3.tar.gz gsoc2013-evolution-GDM_2_2_3.tar.bz2 gsoc2013-evolution-GDM_2_2_3.tar.lz gsoc2013-evolution-GDM_2_2_3.tar.xz gsoc2013-evolution-GDM_2_2_3.tar.zst gsoc2013-evolution-GDM_2_2_3.zip |
This commit was manufactured by cvs2svn to create tag 'GDM_2_2_3'.GDM_2_2_3
svn path=/tags/GDM_2_2_3/; revision=10414
Diffstat (limited to 'libical/scripts/mkrestrictionrecords.pl')
-rwxr-xr-x | libical/scripts/mkrestrictionrecords.pl | 109 |
1 files changed, 0 insertions, 109 deletions
diff --git a/libical/scripts/mkrestrictionrecords.pl b/libical/scripts/mkrestrictionrecords.pl deleted file mode 100755 index e2c62ae748..0000000000 --- a/libical/scripts/mkrestrictionrecords.pl +++ /dev/null @@ -1,109 +0,0 @@ -#!/usr/bin/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 |