--- a/lib/scripts/tools.pl Sun Apr 03 10:25:17 2016 +0200
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,37 +0,0 @@
-#
-# Author: Makarius
-#
-# tools.pl - list Isabelle tools with description
-#
-
-use strict;
-use warnings;
-
-my @tools = ();
-
-for my $dir (split(":", $ENV{"ISABELLE_TOOLS"})) {
- if (-d $dir) {
- if (opendir DIR, $dir) {
- for my $name (readdir DIR) {
- my $file = "$dir/$name";
- if (-f $file and -x $file and !($file =~ /~$/ or $file =~ /\.orig$/)) {
- if (open FILE, $file) {
- my $description;
- while (<FILE>) {
- if (!defined($description) and m/DESCRIPTION: *(.*)$/) {
- $description = $1;
- }
- }
- close FILE;
- if (defined($description)) {
- push(@tools, " $name - $description\n");
- }
- }
- }
- }
- closedir DIR;
- }
- }
-}
-
-for (sort @tools) { print };