- fun ?(never_include=false) ~include_paths status ->
- let stm = G.Comment (loc, com) in
- !grafite_callback stm;
- status, LSome stm
- | (iloc,fname,normal,mode) = include_command ; SYMBOL "." ->
- fun ?(never_include=false) ~include_paths status ->
- let _root, buri, fullpath, _rrelpath =
- Librarian.baseuri_of_script ~include_paths fname in
- if never_include then raise (NoInclusionPerformed fullpath)
- else
- begin
- let stm =
- G.Executable
- (loc, G.Command (loc, G.Include (iloc,fname))) in
- !grafite_callback stm;
- let status =
- LE.eval_command status (L.Include (iloc,buri,mode,fullpath)) in
- let stm =
- G.Executable
- (loc,G.Command (loc,G.Include (iloc,buri)))
- in
- status, LSome stm
- end
- | scom = lexicon_command ; SYMBOL "." ->
- fun ?(never_include=false) ~include_paths status ->
- !lexicon_callback scom;
- let status = LE.eval_command status scom in
- status, LNone loc
+ LSome (G.Comment (loc, com))
+ | (iloc,fname,mode) = include_command ; SYMBOL "." ->
+ LSome (G.Executable (loc,G.NCommand (loc,G.Include (iloc,mode,fname))))