Project

General

Profile

« Previous | Next » 

Revision 57c96fb7

Added by LĂ©lio Brun 11 months ago

setup tests for dune

View differences:

src/lusic.ml
32 32
  let owner = dirname ^ "/" ^ basename in
33 33
  List.fold_right
34 34
    (fun decl header ->
35
      (*Format.eprintf "Lusic.extract_header: header = %B, owner = %s, decl_owner = %s@." decl.top_decl_itf owner decl.top_decl_owner;*)
36
      if decl.top_decl_itf || decl.top_decl_owner <> owner then header else
37
	match decl.top_decl_desc with
38
	| Node nd        -> { decl with top_decl_desc = ImportedNode (Corelang.get_node_interface nd) } :: header 
39
	| ImportedNode _ -> header
40
	| Const _
41
	| TypeDef _
42
	| Include _ | Open _         -> decl :: header)
35
       (* Format.eprintf "Lusic.extract_header: header = %B, owner = %s, decl_owner = %s@."
36
        *   decl.top_decl_itf owner decl.top_decl_owner; *)
37
       if decl.top_decl_itf || decl.top_decl_owner <> owner then header
38
       else match decl.top_decl_desc with
39
         | Node nd ->
40
           { decl with top_decl_desc =
41
                         ImportedNode (Corelang.get_node_interface nd) }
42
           :: header
43
         | ImportedNode _ -> header
44
         | Const _ | TypeDef _ | Include _ | Open _  -> decl :: header)
43 45
    prog []
44 46

  
45 47
let check_obsolete lusic basename =

Also available in: Unified diff