/[papo]/papo/neb/neb/Tree/Vars.pm
ViewVC logotype

Diff of /papo/neb/neb/Tree/Vars.pm

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

revision 1.1 by jlenton, Mon Apr 7 18:02:43 2003 UTC revision 1.2 by jlenton, Tue Apr 8 00:23:11 2003 UTC
# Line 24  sub decls Line 24  sub decls
24      # extrae y limpia líneas significativas (i.e. no vacías)      # extrae y limpia líneas significativas (i.e. no vacías)
25      my @lines = grep ($_,      my @lines = grep ($_,
26                        map ({s/^\s*(.*?)\s*$/$1/g; $_}                        map ({s/^\s*(.*?)\s*$/$1/g; $_}
27                             map ($_->stuff,                             map ({s/\s*\#.*$//g; $_}
28                                  $self->container->content)                                  map ($_->stuff,
29                                         $self->container->content)
30                                    )
31                             )                             )
32                        );                        );
33    
34      my %optional = ();      my %optional = ();
35      my @required = ();      my @required = ();
36      my $decl = '';      my $decl = '';
# Line 62  sub decls Line 65  sub decls
65          $decl .= "my $_ = \$ARGS{'\Q$argname\E'};\n";          $decl .= "my $_ = \$ARGS{'\Q$argname\E'};\n";
66      }      }
67    
68        use Data::Dumper; print STDERR Dumper [ $parents => \%optional ];
69    
70      $decl .= <<EOF;      $decl .= <<EOF;
71          foreach (qw(@required)) {          foreach (qw(@required)) {
72              my \$argname = \$_;              my \$argname = \$_;

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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