Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-06-05 06:54:49 +08:00
Code Issues Actions 26 Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Antoine Drouin
2005-02-28 20:58:08 +00:00
parent 512397e5de
commit 10915f9b20
2 changed files with 17 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/ground_segment/tmtc/Makefile
+8 -5
View File
@@ -31,12 +31,15 @@ OCAMLC = ocamlc
OCAMLOPT = ocamlopt
INCLUDES= -I ../../lib/ocaml -I +lablgtk2
messages: messages.ml
$(OCAMLC) $(INCLUDES) -o /dev/null unix.cma xml-light.cma glibivy-ocaml.cma -I +lablgtk2 lablgtk.cma gtkInit.cmo str.cma lib-pprz.cma $^ # To check
cat ../../../pprz_src_test.sh > $@
echo 'lablgtk2 str.cma ivy-ocaml.cma -I $$PAPARAZZI_SRC/sw/lib/ocaml lib-pprz.cma $$PAPARAZZI_SRC/sw/ground_segment/tmtc/$< $$*' >> $@
chmod a+x $@
#messages: messages.ml
# $(OCAMLC) $(INCLUDES) -o /dev/null unix.cma xml-light.cma glibivy-ocaml.cma -I +lablgtk2 lablgtk.cma gtkInit.cmo str.cma lib-pprz.cma $^ # To check
# cat ../../../pprz_src_test.sh > $@
# echo 'lablgtk2 str.cma ivy-ocaml.cma -I $$PAPARAZZI_SRC/sw/lib/ocaml lib-pprz.cma -I $$PAPARAZZI_SRC/sw/ground_segment/tmtc $$PAPARAZZI_SRC/sw/ground_segment/tmtc/$< $$*' >> $@
# chmod a+x $@
messages : messages.ml
$(OCAMLOPT) $(INCLUDES) -o $@ str.cmxa unix.cmxa xml-light.cmxa glibivy-ocaml.cmxa -I +lablgtk2 lablgtk.cmxa gtkInit.cmx lib-pprz.cmxa $^
strip $@
receive : modem.cmo receive.ml
$(OCAMLC) $(INCLUDES) -o $@ str.cma unix.cma xml-light.cma glibivy-ocaml.cma -I +lablgtk2 lablgtk.cma lib-pprz.cma $^ #To check
sw/ground_segment/tmtc/messages.ml
+9 -6
View File
@@ -55,15 +55,19 @@ let format = fun field ->
open GMain
let _ =
let bus = ref "127.255.255.255:2010" in
let ivy_bus = ref "127.255.255.255:2010" in
(* let classes = ref ["telemetry_ap";"ground"] in *)
let classes = ref [] in
Arg.parse
[ "-b", Arg.String (fun x -> bus := x), "Bus\tDefault is 127.255.255.25:2010";
[ "-b", Arg.String (fun x -> ivy_bus := x), "Bus\tDefault is 127.255.255.255:2010";
"-c", Arg.String (fun x -> classes := x :: !classes), "class name"]
(fun x -> prerr_endline ("WARNING: don't do anything with "^x))
"Usage: ";
Ivy.init "Paparazzi messages" "READY" (fun _ _ -> ());
Ivy.start !ivy_bus;
let xml = Xml.parse_file xml_file in
let window = GWindow.window ~title:"Paparazzi messages" () in
@@ -133,8 +137,7 @@ let _ =
messages in
window#show ();
let loop = Glib.Main.create true in
while Glib.Main.is_running loop do ignore (Glib.Main.iteration true) done
Ivy.init "Paparazzi messages" "READY" (fun _ _ -> ());
Ivy.start !bus;
GMain.Main.main ()
(* GMain.Main.main () *)