- let _root, buri, fullpath, _rrelpath =
- Librarian.baseuri_of_script ~include_paths fname
- in
- let status =
- if never_include then raise (NoInclusionPerformed fullpath)
- else LexiconEngine.eval_command status
- (LexiconAst.Include (iloc,buri,mode,fullpath))
- in
- status,
- LSome
- (GrafiteAst.Executable
- (loc,GrafiteAst.Command
- (loc,GrafiteAst.Include (iloc,buri))))
+ let stm =
+ G.Executable (loc, G.Command (loc, G.Include (iloc, fname)))
+ in
+ !grafite_callback status stm;
+ let _root, buri, fullpath, _rrelpath =
+ Librarian.baseuri_of_script ~include_paths fname
+ in
+ let stm =
+ G.Executable (loc, G.Command (loc, G.Include (iloc, buri)))
+ in
+ let status =
+ if never_include then raise (NoInclusionPerformed fullpath)
+ else LE.eval_command status (L.Include (iloc,buri,mode,fullpath))
+ in
+ status, LSome stm