From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Tue, 18 Jul 2006 13:45:08 +0000 (+0000)
Subject: dependeciesParsed fixed to parse URIs also in QSTRINGs
X-Git-Tag: make_still_working~7053
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=27be353376ced722d0a8d25078a7361d12fffae3;p=helm.git

dependeciesParsed fixed to parse URIs also in QSTRINGs
(because of alias id qstring = qstring)
---

diff --git a/helm/software/components/grafite_parser/dependenciesParser.ml b/helm/software/components/grafite_parser/dependenciesParser.ml
index e07d4ec03..5e80d8b4c 100644
--- a/helm/software/components/grafite_parser/dependenciesParser.ml
+++ b/helm/software/components/grafite_parser/dependenciesParser.ml
@@ -45,6 +45,12 @@ let parse_dependencies lexbuf =
   let rec parse acc = 
    try
     (parser
+    | [< '("QSTRING", s) >] ->
+        (* because of alias id qstring = qstring :-( *)
+        (try
+          parse (UriDep (UriManager.uri_of_string s) :: acc)
+         with
+          UriManager.IllFormedUri _ -> parse acc)
     | [< '("URI", u) >] ->
         parse (UriDep (UriManager.uri_of_string u) :: acc)
     | [< '("IDENT", "include"); '("QSTRING", fname) >] ->