-
Notifications
You must be signed in to change notification settings - Fork 1.1k
/
data.ml
73 lines (62 loc) · 2.22 KB
/
data.ml
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
(*
* Usefull data for simulation
*
* Copyright (C) 2004 Pascal Brisset, Antoine Drouin
*
* This file is part of paparazzi.
*
* paparazzi is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
*
* paparazzi is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with paparazzi; see the file COPYING. If not, write to
* the Free Software Foundation, 59 Temple Place - Suite 330,
* Boston, MA 02111-1307, USA.
*
*)
open Printf
let (//) = Filename.concat
let user_conf_path = Env.paparazzi_home // "conf"
let user_var_path = Env.paparazzi_home // "var"
let conf_xml = ExtXml.parse_file (user_conf_path // "conf.xml")
let messages_ap =
let xml = ExtXml.parse_file (user_var_path // "messages.xml") in
try
ExtXml.child xml ~select:(fun x -> Xml.attrib x "name" = "telemetry") "msg_class"
with
Not_found -> failwith "'telemetry' msg_class missing in messages.xml"
type aircraft = {
name : string;
id : int;
airframe : Xml.xml;
flight_plan : Xml.xml;
radio: Xml.xml
}
let aircraft = fun name ->
let aircraft_xml, id =
let rec loop = function
[] -> failwith ("Aircraft not found : "^name)
| x::_ when Xml.tag x = "aircraft" && Xml.attrib x "name" = name ->
begin
try
(x, int_of_string (Xml.attrib x "ac_id"))
with
_ ->
failwith (sprintf "Int value expected for 'ac_id' in %s" (Xml.to_string x))
end
| _x::xs -> loop xs in
loop (Xml.children conf_xml) in
let airframe_file = user_conf_path // ExtXml.attrib aircraft_xml "airframe" in
{ id = id; name = name;
airframe = ExtXml.parse_file airframe_file;
flight_plan = ExtXml.parse_file (user_conf_path // ExtXml.attrib aircraft_xml "flight_plan");
radio = ExtXml.parse_file (user_conf_path // ExtXml.attrib aircraft_xml "radio")
}
module type MISSION = sig val ac : aircraft end