Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-05-19 02:22:21 +08:00
Code Issues Actions 22 Packages Projects Releases Wiki Activity

[build] autoload of module recursively (#1760)

Browse Source 
* [build] autoload of module recursively
This commit is contained in:
Gautier Hattenberger
2016-06-23 13:08:26 +02:00
committed by Felix Ruess
parent dc17c0d376
commit c6cf3fc71d
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/lib/ocaml/gen_common.ml
+7 -3
View File
@@ -161,11 +161,15 @@ let get_module = fun m global_targets ->
| _ -> Xml2h.xml_error "module, autoload or load"
(** [get_autoloaded_modules module]
* Return a list of modules to be automaticaly added *)
let get_autoloaded_modules = fun m ->
* Return a list of modules to be automaticaly added
* Only works with actual modules (no subsystems) *)
let rec get_autoloaded_modules = fun m ->
let m = get_module m (Var "") in
List.fold_left (fun l t ->
if ExtXml.tag_is t "autoload" then (get_module t (Var "") :: l) else l
if ExtXml.tag_is t "autoload" then
let am = get_module t (Var "") in
(am :: ((try get_autoloaded_modules am.xml with _ -> []) @ l))
else l
) [] (Xml.children m.xml)
(** [test_targets target targets]