[paparazzi-commits] [5772] remove unused file

[Gautier Hattenberger]

Revision: 5772
          http://svn.sv.gnu.org/viewvc/?view=rev&root=paparazzi&revision=5772
Author:   gautier
Date:     2010-08-31 16:28:02 +0000 (Tue, 31 Aug 2010)
Log Message:
-----------
remove unused file

Removed Paths:
-------------
    paparazzi3/trunk/sw/tools/extract_makefile.ml

Deleted: paparazzi3/trunk/sw/tools/extract_makefile.ml
===================================================================
--- paparazzi3/trunk/sw/tools/extract_makefile.ml       2010-08-31 16:24:28 UTC 
(rev 5771)
+++ paparazzi3/trunk/sw/tools/extract_makefile.ml       2010-08-31 16:28:02 UTC 
(rev 5772)
@@ -1,71 +0,0 @@
-open Printf 
-
-let pipe_regexp = Str.regexp "|"
-let targets_of_field = fun field ->
-  try 
-    Str.split pipe_regexp (Xml.attrib field "target")
-  with
-    _ -> []
-
-let get_modules = fun dir m ->
-  match Xml.tag m with
-    "load" -> begin
-      let name = ExtXml.attrib m "name" in
-      let xml = Xml.parse_file (dir^name) in
-      xml
-               end
-  | _ -> failwith ("Warning: tag load is undefined")
-
-let _ =
-  let f = Sys.argv.(1) in
-  let modules_dir = Sys.argv.(2) in
-  let xml = Xml.parse_file f in
-  printf "# This file has been generated from %s by 
sw/tools/extract_makefile\n" f;
-  printf "# Please DO NOT EDIT\n";
-  List.iter (fun x ->
-    if ExtXml.tag_is x "makefile" then begin
-      begin try
-        printf "\n# makefile target '%s'\n" (Xml.attrib x "target")
-      with _ -> () end;
-      match Xml.children x with
-        [Xml.PCData s] -> printf "%s\n" s
-        | _ -> fprintf stderr "Warning: wrong makefile section in '%s': %s\n" 
f (Xml.to_string_fmt x)
-    end)
-  (Xml.children xml);
-  let modules_exist = ref [ "" ] in
-  List.iter (fun x ->
-    if ExtXml.tag_is x "modules" then begin
-      let modules_list = List.map (get_modules modules_dir) (Xml.children x) in
-      List.iter (fun m ->
-        let name = ExtXml.attrib m "name" in
-        let dir_name = (String.uppercase name)^"_DIR" in
-        printf "\n# makefile for module %s\n" name;
-        printf "%s = $(PAPARAZZI_SRC)/sw/airborne/modules/%s\n" dir_name name;
-        List.iter (fun l ->
-          if ExtXml.tag_is l "makefile" then begin
-            let targets = targets_of_field l in
-            List.iter (fun t ->
-              if not (List.exists (fun s -> (String.compare s t) == 0) 
!modules_exist) then begin
-                printf "%s.srcs += $(ACINCLUDE)/modules.c\n" t;
-                modules_exist := !modules_exist @ [t];
-              end;
-              printf "%s.CFLAGS += -I $(%s)\n" t dir_name
-            ) targets;
-            List.iter (fun f ->
-              match Xml.tag f with
-                "flag" -> List.iter (fun t -> printf "%s.CFLAGS += -D%s%s\n" t
-                  (Xml.attrib f "name")
-                  (try "="^(Xml.attrib f "value") with _ -> "")
-                  ) targets
-              | "file" -> List.iter (fun t -> printf "%s.srcs += $(%s)/%s\n" t
-                  dir_name
-                  (Xml.attrib f "name")
-                  ) targets
-              | _ -> ()
-            )
-            (Xml.children l)
-            end)
-        (Xml.children m))
-      modules_list
-    end)
-  (Xml.children xml)