Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-05-31 12:23:23 +08:00
Code Issues Actions 25 Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Antoine Drouin
2005-08-21 00:52:17 +00:00
parent f57938f767
commit 16221052ff
3 changed files with 17 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
conf/control_panel.xml
+5
View File
@@ -98,6 +98,11 @@
<program name="map 2d ml"/>
<program name="messages"><arg flag="-c" constant="telemetry_ap:1"/><arg flag="-c" constant="ground"/></program>
</session>
<session name="display station">
<variable name="ivy_bus" value="192.168.1:2001"/>
<program name="cockpit"></program>
<program name="map 2d ml"/>
</session>
<session name="flight microjet modem">
<program name="modem"><arg flag="-d" constant="/dev/ttyS0"/></program>
sw/lib/perl/Paparazzi/Airframe.pm
+5 -5
View File
@@ -5,6 +5,7 @@ use Subject;
use strict;
use XML::DOM;
require LWP::Simple;
sub populate {
my ($self, $args) = @_;
@@ -19,16 +20,15 @@ sub completeinit {
my $self = shift;
$self->SUPER::completeinit();
my $airframe_url = $self->get('-url');
$airframe_url =~ /file:\/\/(.*)/;
my $filename = $1;
$self->parse_airframe($filename);
my $airframe_xml = LWP::Simple::get($airframe_url);
$self->parse_airframe($airframe_xml);
}
sub parse_airframe {
my ($self, $filename) = @_;
my ($self, $airframe_xml) = @_;
my $parser = XML::DOM::Parser->new();
my $doc = $parser->parsefile($filename);
my $doc = $parser->parse($airframe_xml);
my $airframe = $doc->getElementsByTagName('airframe')->[0];
$self->configure( -name => $airframe->getAttribute('name'));
}
sw/lib/perl/Paparazzi/Flightplan.pm
+7 -3
View File
@@ -27,7 +27,7 @@ use Subject;
@ISA = ("Subject");
use strict;
use LWP::Simple;
require LWP::Simple;
use XML::DOM;
use Math::Trig;
require File::Basename;
@@ -81,10 +81,14 @@ sub completeinit {
$self->SUPER::completeinit();
my $parser = XML::DOM::Parser->new();
my $flight_plan_url = $self->get('-url');
my $flight_plan_xml = LWP::Simple::get $fp_url;
# print "###### flight_plan_url $flight_plan_url\n";
# my $flight_plan_xml ="";
my $flight_plan_xml = LWP::Simple::get($flight_plan_url);
$self->configure( -compiled_xml => $flight_plan_xml);
print "#######flight_plan_xml\n".$flight_plan_xml;
# print "#######flight_plan_xml\n".$flight_plan_xml;
my $doc = $parser->parse($flight_plan_xml);
# print "in Flightplan : parsing $file $doc \n";