X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Finterface%2Furis_of_filenames.pl;h=019730bee5b39a948d79308e886f8e23bb735d09;hb=1c7fb836e2af4f2f3d18afd0396701f2094265ff;hp=d738f51b746e379b0c597244f17a1904e45a0ec2;hpb=c01d2aaea05f7385bee46addd900cd0397756389;p=helm.git

diff --git a/helm/interface/uris_of_filenames.pl b/helm/interface/uris_of_filenames.pl
index d738f51b7..019730bee 100755
--- a/helm/interface/uris_of_filenames.pl
+++ b/helm/interface/uris_of_filenames.pl
@@ -4,12 +4,14 @@ while(<STDIN>) {
    chomp;
    split / /;
    for (@_) {
-      if (/.*\.(con|var|ind)\.xml/)
+      $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;
-      print "\n";
+      print $_.$GZSUFF."\n";
  }
 }