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

*** empty log message ***

Browse Source
This commit is contained in:
Antoine Drouin
2005-08-20 22:42:34 +00:00
parent cdc856d034
commit fbe379ecc7
5 changed files with 32 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/supervision/Paparazzi/CpGui.pm
+1 -1
View File
@@ -244,7 +244,7 @@ sub build_list_page {
$hlist->header('create', $i, -text => $header[$i]);
}
my $section_h = $self->get('-'.$section);
print "CpGui variables ".Dumper($section_h) if ($section eq "variables");
# print "CpGui variables ".Dumper($section_h) if ($section eq "variables");
foreach my $item (keys %{$section_h}) {
my $e = $hlist->addchild("");
&$row_fun($self, $hlist, $e, $section_h, $item);
sw/supervision/Paparazzi/CpSessionMgr.pm
+3 -2
View File
@@ -91,7 +91,7 @@ sub toggle_program_in_session {
my ($self, $session_name, $pgm_idx) = @_;
my $session = $self->get('-sessions')->{$session_name};
my $session_program = $session->{pgms}->[$pgm_idx];
print "processing program in session context\n".Dumper($session);
# print "processing program in session context\n".Dumper($session);
if (defined $session_program->{pid}) {
print "killing program $session_program->{name} => $session_program->{pid}\n";
$self->SUPER::stop_program($session_program->{pid});
@@ -106,8 +106,9 @@ sub toggle_program_in_session {
push @pgm_options, @session_options;
push @pgm_args, @session_args;
my $command = $self->find_binary($program);
print "starting $program->{name} [$command @pgm_options @pgm_args]\n";
$session_program->{pid} = $self->SUPER::start_program($command, @pgm_options[0..$#pgm_options], @pgm_args[0..$#pgm_args]);
print "launched $program_name => pid $session_program->{pid}\n";
# print "launched $program_name => pid $session_program->{pid}\n";
}
}
sw/supervision/paparazzi.pl
+1 -1
View File
@@ -56,7 +56,7 @@ sub parse_args {
foreach my $var (keys %{$options}) {
$variables->{$var} = $options->{$var} if defined $options->{$var};
}
print "in paparazzi::parse_args variables after\n".Dumper($variables);
# print "in paparazzi::parse_args variables after\n".Dumper($variables);
}
sub catchSigTerm() {