X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgrafite_parser%2FdependenciesParser.ml;h=9e5936dad9ceca67adaf89744e6cba950a53f6c2;hb=e085135177f7b3b74b410d47a4f3bca1784b60b1;hp=32ee44491020b96d3108199858b2a7fe0e8d3c2e;hpb=5c1b44dfefa085fbb56e23047652d3650be9d855;p=helm.git

diff --git a/helm/software/components/grafite_parser/dependenciesParser.ml b/helm/software/components/grafite_parser/dependenciesParser.ml
index 32ee44491..9e5936dad 100644
--- a/helm/software/components/grafite_parser/dependenciesParser.ml
+++ b/helm/software/components/grafite_parser/dependenciesParser.ml
@@ -31,14 +31,16 @@ exception UnableToInclude of string
 type dependency =
   | IncludeDep of string
   | UriDep of UriManager.uri
-  
+  | InlineDep of string
+
 let pp_dependency = function
   | IncludeDep str -> "include \"" ^ str ^ "\""
   | UriDep uri -> "uri \"" ^ UriManager.string_of_uri uri ^ "\""
+  | InlineDep str -> "inline \"" ^ str ^ "\"" 
 
 let parse_dependencies lexbuf = 
   let tok_stream,_ =
-    CicNotationLexer.level2_ast_lexer.Token.tok_func (Obj.magic lexbuf)
+    (CicNotationLexer.level2_ast_lexer ()).Token.tok_func (Obj.magic lexbuf)
   in
   let rec parse acc = 
    let continue, acc =
@@ -56,6 +58,8 @@ let parse_dependencies lexbuf =
           true, (IncludeDep fname :: acc)
       | [< '("IDENT", "include'"); '("QSTRING", fname) >] ->
           true, (IncludeDep fname :: acc)
+      | [< '("IDENT", "inline"); '("IDENT", "procedural"); '("QSTRING", fname) >] ->
+          true, (InlineDep fname :: acc)
       | [< '("EOI", _) >] -> false, acc
       | [< 'tok >] -> true, acc
       | [<  >] -> false, acc) tok_stream