/[libconf]/libconf/perl-Libconf/Glueconf.pm
ViewVC logotype

Diff of /libconf/perl-Libconf/Glueconf.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by dams, Fri Apr 11 19:46:35 2003 UTC revision 1.6 by tv, Thu Nov 27 10:31:03 2003 UTC
# Line 32  sub generateFunctions { Line 32  sub generateFunctions {
32          if ($element->{type} eq 'KEY_VALUE') {          if ($element->{type} eq 'KEY_VALUE') {
33              if ($element->{value} eq 'BOOLEAN') {              if ($element->{value} eq 'BOOLEAN') {
34                  $ret .= 'sub ' . ($current_section ? ucfirst($current_section) . 'Is' : 'is') . ucfirst($element->{key}) . ' {' .                  $ret .= 'sub ' . ($current_section ? ucfirst($current_section) . 'Is' : 'is') . ucfirst($element->{key}) . ' {' .
35                    q|                    q(
36      my $self = shift;      my $self = shift;
37      MDK::Common::Various::text2bool($self->getAtom($self->findAtomPos({key => '| . $element->{key} . q|'}))->{value});      MDK::Common::Various::text2bool($self->getAtom($self->findAtomPos({key => '| . $element->{key} . q|'}))->{value});
38  }  }
39    
40  |;  );
41                  $ret .= 'sub ' . ($current_section ? ucfirst($current_section) . 'Set' : 'set') . ucfirst($element->{key}) . ' {' .                  $ret .= 'sub ' . ($current_section ? ucfirst($current_section) . 'Set' : 'set') . ucfirst($element->{key}) . ' {' .
42                    q|                    q(
43      my ($self, $| . $element->{key} . q|) = @_;      my ($self, $| . $element->{key} . q|) = @_;
44      $self->editAtom(-1, {key => '| . $element->{key} . q|', value => MDK::Common::Various::bool2yesno($| . $element->{key} . q|)});      $self->editAtom(-1, {key => '| . $element->{key} . q|', value => MDK::Common::Various::bool2yesno($| . $element->{key} . q|)});
45  }  }
46    
47  |;  );
48              } else {              } else {
49                  $ret .= 'sub ' . ($current_section ? ucfirst($current_section) . 'Get' : 'get') . ucfirst($element->{key}) . ' {' .                  $ret .= 'sub ' . ($current_section ? ucfirst($current_section) . 'Get' : 'get') . ucfirst($element->{key}) . ' {' .
50                    q|                    q(
51      my $self = shift;      my $self = shift;
52      $self->getAtom($self->findAtomPos({key => '| . $element->{key} . q|'}))->{value};      $self->getAtom($self->findAtomPos({key => '| . $element->{key} . q|'}))->{value};
53  }  }
54    
55  |;  );
56                  $ret .= 'sub ' . ($current_section ? ucfirst($current_section) . 'Set' : 'set') . ucfirst($element->{key}) . ' {' .                  $ret .= 'sub ' . ($current_section ? ucfirst($current_section) . 'Set' : 'set') . ucfirst($element->{key}) . ' {' .
57                    q|                    q(
58      my ($self, $| . $element->{key} . q|) = @_;      my ($self, $| . $element->{key} . q|) = @_;
59      $self->editAtom(-1, {key => '| . $element->{key} . q|', value => $| . $element->{key} . q|});      $self->editAtom(-1, {key => '| . $element->{key} . q|', value => $| . $element->{key} . q|});
60  }  }
61    
62  |;  );
63              }              }
64          }          }
65          if ($element->{type} eq 'SECTION') {          if ($element->{type} eq 'SECTION') {
# Line 67  sub generateFunctions { Line 67  sub generateFunctions {
67              $ret .= generateFunctions(@{$element->{content}});              $ret .= generateFunctions(@{$element->{content}});
68          }          }
69      }      }
70      $ret .= q|sub getSections {      $ret .= q(sub getSections {
71      my $self = shift;      my $self = shift;
72      map { my $atom = $self->getAtom($_); $atom->{section_name} } ($self->findAtomPos({type => 'SECTION'}));      map { my $atom = $self->getAtom($_); $atom->{section_name} } ($self->findAtomPos({type => 'SECTION'}));
73  }  }
74    
75  |;  );
76  }  }
77    
78  1;  1;

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26