#!/usr/bin/perl use Getopt::Std; getopts('i:'); # the argument should be the path to the restriction datafile, usually # design-data/restrictions.csv open(F,"$ARGV[0]") || die "Can't open restriction data file $ARGV[0]:$!"; # Write the file inline by copying everything before a demarcation # line, and putting the generated data after the demarcation if ($opt_i) { open(IN,$opt_i) || die "Can't open input file $opt_i"; while(){ if (/Do not edit/){ last; } print; } print "/* Everything below this line is machine generated. Do not edit. */\n"; close IN; } # First build the property restriction table print "icalrestriction_property_record icalrestriction_property_records[] = {\n"; while() { chop; s/\#.*$//; my($method,$targetcomp,$prop,$subcomp,$restr,$sub) = split(/,/,$_); next if !$method; if(!$sub) { $sub = "0"; } else { $sub = "icalrestriction_".$sub; } if($prop ne "NONE"){ print(" \{ICAL_METHOD_${method},ICAL_${targetcomp}_COMPONENT,ICAL_${prop}_PROPERTY,ICAL_RESTRICTION_${restr},$sub},\n"); } } # Print the terminating line print " {ICAL_METHOD_NONE,ICAL_NO_COMPONENT,ICAL_NO_PROPERTY,ICAL_RESTRICTION_NONE}\n"; print "};\n"; print "icalrestriction_component_record icalrestriction_component_records[] = {\n"; # Go back through the entire file and build the component restriction table close(F); open(F,"$ARGV[0]") || die "Can't open restriction data file $ARGV[0]:$!"; while() { chop; s/\#.*$//; my($method,$targetcomp,$prop,$subcomp,$restr,$sub) = split(/,/,$_); next if !$method; if(!$sub) { $sub = "0"; } else { $sub = "icalrestriction_".$sub; } if($subcomp ne "NONE"){ print(" \{ICAL_METHOD_${method},ICAL_${targetcomp}_COMPONENT,ICAL_${subcomp}_COMPONENT,ICAL_RESTRICTION_${restr},$sub\},\n"); } } # print the terminating line print " {ICAL_METHOD_NONE,ICAL_NO_COMPONENT,ICAL_NO_COMPONENT,ICAL_RESTRICTION_NONE}\n"; print "};\n"; n4/files/ini-1.3.7 FreeBSD GNOME current development ports (https://github.com/freebsd/freebsd-ports-gnome)

about summary refs log tree commit diff stats

path: root/russian/stardict-mueller7

	Commit message (Expand)	Author	Age	Files	Lines
*	Reassign makc's ports back to the pool.	rakuco	2016-10-20	1	-1/+1
*	Cleanup plist	antoine	2014-11-12	1	-2/+0
*	Convert my ports to USES=tar	makc	2014-05-12	1	-1/+1
*	- Update MASTER_SITES, WWW	makc	2013-11-10	4	-14/+8
*	Add NO_STAGE all over the place in preparation for the staging support (cat: ...	bapt	2013-09-21	1	-5/+1
*	- Get Rid MD5 support	miwi	2011-03-19	1	-1/+0
*	Update MASTER_SITES	makc	2011-01-16	1	-1/+1