/[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.4 by jlenton, Wed Apr 9 19:59:22 2003 UTC revision 1.5 by jlenton, Wed Apr 9 23:52:49 2003 UTC
# Line 5  use Carp; Line 5  use Carp;
5  use neb::Tree::Perl;  use neb::Tree::Perl;
6  our @ISA = ('neb::Tree::Tag');  our @ISA = ('neb::Tree::Tag');
7    
8  sub code {'print  "***Si ves este mensaje en la salida de neb, es porque algo malo sucedió en el parseo.\n";'}  #sub code {'print  "***Si ves este mensaje en la salida de neb, es porque algo malo sucedió en el parseo.\n";'}
9    sub code {''}
10    sub canonical {''}
11    
12  sub decls  sub decls
13  {  {
14      my $self = shift;      my $self = shift;
15    
16      my $parents = '';      my $parents = $self->url;
     my $p = $self->parent;  
     while ($p)  
     {  
         my $name = eval '$p->name';  
         $parents = "${name}::$parents" if $name;  
         $p = $p->parent;  
     }  
     $parents = substr($parents, 0, -2);  
17    
18      # extrae y limpia líneas significativas (i.e. no vacías)      # extrae y limpia líneas significativas (i.e. no vacías)
19      my @lines = grep ($_,      my @lines = grep ($_,

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

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