This commit was manufactured by cvs2svn to create branch

[helm.git] / helm / interface / uris_of_filenames.pl

diff --git a/helm/interface/uris_of_filenames.pl b/helm/interface/uris_of_filenames.pl
deleted file mode 100755 (executable)
index 019730b..0000000
--- a/helm/interface/uris_of_filenames.pl
+++ /dev/null
@@ -1,17 +0,0 @@
-#!/usr/bin/perl
-
-while(<STDIN>) {
-   chomp;
-   split / /;
-   for (@_) {
-      $GZSUFF = "";
-      if (/.gz$/)
-       { s/.gz$//; $GZSUFF = " gz" if ($ARGV[0] == "-gz"); }
-      if (/.*\.(con|var|ind)(\.types)?\.xml/)
-       { s/\./cic:/; }
-      elsif (/.*\.theory\.xml/)
-       { s/\./theory:/; }
-      s/\.xml//;
-      print $_.$GZSUFF."\n";
- }
-}