summaryrefslogtreecommitdiffstats
path: root/makedesc.pl
diff options
context:
space:
mode:
Diffstat (limited to 'makedesc.pl')
-rwxr-xr-xmakedesc.pl103
1 files changed, 103 insertions, 0 deletions
diff --git a/makedesc.pl b/makedesc.pl
new file mode 100755
index 0000000..bd76324
--- /dev/null
+++ b/makedesc.pl
@@ -0,0 +1,103 @@
+#!/usr/bin/perl
+#
+# makedesc directory file
+#
+# Scan the directory for files, and use the files to generate a task
+# description file. The format of the task description file is described in
+# data.c. The format of the input files is:
+#
+# Task: desktop
+# Description: Provide a basic GUI system
+# This task provides functionality for a basic desktop; whether Gnome
+# based, KDE based or customised. With this task, your system will boot
+# into a graphical login screen, at which point you can choose which of
+# these desktops you wish to use on a per-user basis. You can further
+# customise your desktop once installed.
+# Packages-list:
+# kdebase
+# gdm
+# ...
+#
+# Hash-comments are allowed in the files, but must be on their own lines.
+
+my $dir=shift or die "no directory specified\n";
+my $file=shift or die "no file specified\n";
+
+my %package;
+my %notmain;
+my $dolint=1;
+{
+ local $/="\n\n";
+ if (! open (AVAIL, "apt-cache dumpavail |")) {
+ warn "cannot real available info, so disabling lint check\n";
+ $dolint=0;
+ }
+ while (<AVAIL>) {
+ my ($package)=/Package:\s*(.*?)\n/;
+ $package{$package}=1;
+ if (/Section:\s*(contrib|non-free)/) {
+ $notmain{$package}=$1;
+ }
+ }
+ close AVAIL;
+}
+
+open (OUT, ">$file") or die ">$file: $!";
+
+use File::Find;
+find({ wanted => \&processfile, preprocess => sub { return sort @_}}, $dir);
+
+sub processfile {
+ my $file=$_; # File::Find craziness.
+ $file eq 'po' && -d $file && ($File::Find::prune = 1);
+ return if $File::Find::dir=~/\.(svn|git)/;
+ return unless $file =~ /^[-+_.a-z0-9]+$/ and -f $file;
+ open (IN, $file) or die "$file: $!";
+ my %fields;
+ my $field="";
+ while (<IN>) {
+ chomp;
+ next if /^\s*#/;
+ s/#.*//;
+
+ if (/^\s/) {
+ $fields{$field}.="\n$_";
+ }
+ else {
+ ($field, my $value)=split(/:\s*/, $_, 2);
+ $field=lc($field);
+ $fields{$field}=$value;
+ }
+ }
+ close IN;
+
+ # Basic lint of the listed packages.
+ # TODO: a better lint would incloude checks for conflicting
+ # packages. Hard tho.
+ if ($dolint) {
+ foreach my $field (qw(key packages-list)) {
+ foreach (split ' ', $fields{$field}) {
+ if (! $package{$_}) {
+ print STDERR "$file: $_ is not a valid package.\n";
+ if ($field eq 'key') {
+ print STDERR "MISSING KEY PACKAGE, TASK BROKEN\n";
+ }
+ }
+ if ($notmain{$_}) {
+ print STDERR "$file: $_ is in $notmain{$_}.\n";
+ if ($field eq 'key') {
+ print STDERR "MISSING KEY PACKAGE, TASK BROKEN\n";
+ }
+ }
+ }
+ }
+ }
+
+ foreach (qw{task parent relevance description key enhances provides depends packages section},
+ grep(/^test-(.*)/, keys %fields)) {
+ print OUT ucfirst($_).": ".$fields{$_}."\n" if length $fields{$_};
+ }
+ print OUT "\n";
+}
+
+close OUT;