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 |
|
|
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 |
{ |
{ |
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; |
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 |
|
|