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

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

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

revision 1.3 by jlenton, Wed Apr 9 15:29:14 2003 UTC revision 1.4 by jlenton, Wed Apr 9 19:59:22 2003 UTC
# Line 55  sub init Line 55  sub init
55      # rodear el componente con un elemento 'dummy', para que sea xml válido      # rodear el componente con un elemento 'dummy', para que sea xml válido
56      my $parsed = $neb->parse($text);      my $parsed = $neb->parse($text);
57      # reobtener el xml sin el root element      # reobtener el xml sin el root element
58      $parsed = $parsed->content->[0]->container;      $parsed = $parsed->content->[0];
59      $parsed->parent($self);      $parsed->parent($self);
60      $self->add_content($parsed);      $self->add_content($parsed);
61    
# Line 73  sub code Line 73  sub code
73      # esto probablemente sea romper algo (estoy metiendo mano      # esto probablemente sea romper algo (estoy metiendo mano
74      # adentro del árbol de parsado---otra vez)      # adentro del árbol de parsado---otra vez)
75      my @vars = grep (ref eq 'neb::Tree::Vars',      my @vars = grep (ref eq 'neb::Tree::Vars',
76                       $self->container->content->[0]->content);                       $self->content->[0]->content);
77      my $decls = '';      my $decls = '';
78      foreach (@vars)      foreach (@vars)
79      {      {
# Line 81  sub code Line 81  sub code
81          $_->free;          $_->free;
82      }      }
83                    
84      my $code = $self->container->code;      my $code = $self->code;
85    
86            
87      my %attrs = $self->attributes;      my %attrs = $self->attributes;
# Line 117  sub code Line 117  sub code
117  #     # rodear el componente con un elemento 'dummy', para que sea xml válido  #     # rodear el componente con un elemento 'dummy', para que sea xml válido
118  #     my $parsed = $neb->parse('<neb>' . <F> . '</neb>');  #     my $parsed = $neb->parse('<neb>' . <F> . '</neb>');
119  #     # reobtener el xml sin el root element  #     # reobtener el xml sin el root element
120  #     $parsed = $parsed->content->[0]->container;  #     $parsed = $parsed->content->[0];
121  #     $parsed->parent($self);  #     $parsed->parent($self);
122    
123  #     bless $self, 'neb::Tree::Tag';  #     bless $self, 'neb::Tree::Tag';
124  #     $self->container->add_content($parsed);  #     $self->add_content($parsed);
125    
126  #     #print join "\n", map ref, $self->container->content->[0]->content;exit;  #     #print join "\n", map ref, $self->content->[0]->content;exit;
127    
128  #     # esto probablemente sea romper algo (estoy metiendo mano  #     # esto probablemente sea romper algo (estoy metiendo mano
129  #     # adentro del árbol de parsado---otra vez)  #     # adentro del árbol de parsado---otra vez)
130  #     my @vars = grep (ref eq 'neb::Tree::Vars',  #     my @vars = grep (ref eq 'neb::Tree::Vars',
131  #                      $self->container->content->[0]->content);  #                      $self->content->[0]->content);
132  #     my $decls = '';  #     my $decls = '';
133  #     $decls .= $_  foreach (map $_->decls, @vars);  #     $decls .= $_  foreach (map $_->decls, @vars);
134    
135  #     "{\nmy \%ARGS = ();\n" . $decls .  #     "{\nmy \%ARGS = ();\n" . $decls .
136  #         $neb->parse->content->[0]->container->code . "}";  #         $neb->parse->content->[0]->code . "}";
137  # }  # }
138    
139    

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

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