/[libconf]/libconf/perl-Libconf/templates/XF86Config_template.pm
ViewVC logotype

Diff of /libconf/perl-Libconf/templates/XF86Config_template.pm

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

revision 1.7 by dams, Sat Apr 5 20:09:23 2003 UTC revision 1.8 by dams, Fri Apr 11 18:37:14 2003 UTC
# Line 77  $templates{XF86Config} = { Line 77  $templates{XF86Config} = {
77                                         }                                         }
78                                       ),                                       ),
79                                       q(                                       q(
80                                         if ($in =~ s/^\s*(\S+)\s*(.*)\s*$//) {                                         if ($in =~ s/^\s*(\S+)\s+(.*)\s*$//) {
81                                             $atom->{type} = 'KEY_VALUE';                                             $atom->{type} = 'KEY_VALUE';
82                                             $atom->{key} = $1;                                             $atom->{key} = $1;
83                                             $atom->{value} = $2;                                             $atom->{value} = $2;
# Line 85  $templates{XF86Config} = { Line 85  $templates{XF86Config} = {
85                                             $matched = 1;                                             $matched = 1;
86                                         }                                         }
87                                       ),                                       ),
88                                         q(
89                                           if ($in =~ s/^\s*(\S+)\s*$//) {
90                                               $atom->{type} = 'VALUE';
91                                               $atom->{value} = $1;
92                                               $atom->{sections} = [ @{$out->{current_sections}} ];
93                                               $matched = 1;
94                                           }
95                                         ),
96                                         q(
97                                           if ($in =~ s/^\s*Load\s*(.*)\s*$//) {
98                                               $atom->{type} = 'VALUE';
99                                               $atom->{type2} = 'XF86_LOAD';
100                                               my $tmp = $1;
101                                               $tmp =~ s/^\s*"([^"]*)"// and $atom->{value} = $1;
102                                               $atom->{value} = $1;
103                                               $in = $tmp; #to allow the engine to check if some stuff were not interpreted
104                                               $atom->{sections} = [ @{$out->{current_sections}} ];
105                                               $matched = 1;
106                                           }
107                                         ),
108                                     ],                                     ],
109                            comments => [ ['#'] ],                            comments => [ ['#'] ],
110                            comment_output => q(                            comment_output => q(
# Line 92  $templates{XF86Config} = { Line 112  $templates{XF86Config} = {
112                                                /^(\s*)$/ ? "$_\n" : "$indent#$_\n"                                                /^(\s*)$/ ? "$_\n" : "$indent#$_\n"
113                                                ),                                                ),
114                            output => {                            output => {
115                                         VALUE => q(
116                                              my ($value) = $atom->{value};
117                                              $atom->{type2} eq 'XF86_LOAD' and
118                                                  return $INDENT_SPACES x $out->{current_indentation} . qq(Load "$value"\n);
119                                              return $INDENT_SPACES x $out->{current_indentation} . qq($value\n);
120                                          ),
121                                       KEY_VALUE => q(                                       KEY_VALUE => q(
122                                            my ($key, $value) = ($atom->{key}, $atom->{value});                                            my ($key, $value) = ($atom->{key}, $atom->{value});
123                                            #my $sections = join ('_', map { $_->{name} } @{$atom->{sections}} );                                            #my $sections = join ('_', map { $_->{name} } @{$atom->{sections}} );

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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