]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/interface/uris_of_filenames.pl
This commit was manufactured by cvs2svn to create branch 'helm'.
[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 d738f51..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-#!/usr/bin/perl
-
-while(<STDIN>) {
-   chomp;
-   split / /;
-   for (@_) {
-      if (/.*\.(con|var|ind)\.xml/)
-       { s/\./cic:/; }
-      elsif (/.*\.theory\.xml/)
-       { s/\./theory:/; }
-      s/\.xml//;
-      print;
-      print "\n";
- }
-}