Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Perlito5 - 'use constant'
  • Loading branch information
@fglock
fglock committed Jun 2, 2014
1 parent 67df646 commit e16e072
Show file tree
Hide file tree
Showing 3 changed files with 56 additions and 15 deletions.
28 changes: 21 additions & 7 deletions html/perlito5.js
View file
Expand Up @@ -8226,20 +8226,34 @@ return (p5call(p5pkg["Perlito5::AST::Val::Buf"], "new", ['buf', p5pkg["Perlito5:
else if ( (((p5str(v_use_decl) == 'use') && (p5str(v_full_ident) == 'constant')) && p5bool(v_list)) ) {
(function () {
var List_ast= [];
p5while(function () {
var v_name;
v_name = ((v_list || (v_list = new p5ArrayRef([])))._array_.shift());
var v_val;
v_val = ((v_list || (v_list = new p5ArrayRef([])))._array_.shift());
var v_name;
v_name = ((v_list || (v_list = new p5ArrayRef([])))._array_.shift());
if ( (p5str(p5pkg["Perlito5::Grammar::Use"].ref([v_name], 0)) == 'HASH') ) {
p5for_lex(function (v_key) {
var v_code;
v_code = (('sub ' + p5str(v_key) + ' () { ' + p5str(p5pkg["Perlito5::Dumper"]._dumper(p5list_to_a((v_name || (v_name = new p5HashRef({})))._hash_.p5hget(p5str(v_key))), 0)) + ' }'));
var v_m;
v_m = (p5call(p5pkg["Perlito5::Grammar::Statement"], "statement_parse", [v_code, 0], 0));
if ( !( p5bool(v_m)) ) {
p5pkg["Perlito5::Grammar::Use"].die([[('not a valid constant: ' + p5pkg["Perlito5::Grammar::Use"].join([p5pkg["main"]["v_\""], p5list_to_a((v_list || (v_list = new p5ArrayRef([])))._array_)], 0))]], null)
};
List_ast.p5push(p5list_to_a((v_m || (v_m = new p5HashRef({})))._hash_.p5hget('capture')));
}, p5list_to_a(p5sort(p5pkg["Perlito5::Grammar::Use"], null, p5list_to_a(p5pkg["Perlito5::Grammar::Use"].keys([(v_name || (v_name = new p5HashRef({})))._hash_], 1)))), false, "");
}
else {
(function () {
var v_code;
v_code = (('sub ' + p5str(v_name) + ' () { ' + p5str(p5pkg["Perlito5::Dumper"]._dumper([v_val], 0)) + ' }'));
v_code = (('sub ' + p5str(v_name) + ' () { (' + p5pkg["Perlito5::Grammar::Use"].join([', ', p5list_to_a(p5map(p5pkg["Perlito5::Grammar::Use"], function (p5want) {
return (p5pkg["Perlito5::Dumper"]._dumper([p5pkg["Perlito5::Grammar::Use"]["v__"]], p5want));
}, p5list_to_a((v_list || (v_list = new p5ArrayRef([])))._array_)))], 0) + ') }'));
var v_m;
v_m = (p5call(p5pkg["Perlito5::Grammar::Statement"], "statement_parse", [v_code, 0], 0));
if ( !( p5bool(v_m)) ) {
p5pkg["Perlito5::Grammar::Use"].die([[('not a valid constant: ' + p5pkg["Perlito5::Grammar::Use"].join([p5pkg["main"]["v_\""], p5list_to_a((v_list || (v_list = new p5ArrayRef([])))._array_)], 0))]], null)
};
List_ast.p5push(p5list_to_a((v_m || (v_m = new p5HashRef({})))._hash_.p5hget('capture')));
}, function () { return (v_list || (v_list = new p5ArrayRef([])))._array_ }, false, "");
})();
};
(v_MATCH || (v_MATCH = new p5HashRef({})))._hash_.p5hset('capture', (p5call(p5pkg["Perlito5::AST::Lit::Block"], "new", p5list_to_a('stmts', (new p5ArrayRef(List_ast))), 0)));
})();
}
Expand Down
18 changes: 14 additions & 4 deletions perlito5.pl
View file
Expand Up @@ -5232,10 +5232,20 @@ sub Perlito5::Grammar::Use::stmt_use {
}
elsif ($use_decl eq 'use' && $full_ident eq 'constant' && $list) {
my @ast;
while (@{$list}) {
my $name = shift(@{$list});
my $val = shift(@{$list});
my $code = 'sub ' . $name . ' () { ' . Perlito5::Dumper::_dumper($val) . ' }';
my $name = shift(@{$list});
if (ref($name) eq 'HASH') {
for my $key (sort(keys(%{$name}))) {
my $code = 'sub ' . $key . ' () { ' . Perlito5::Dumper::_dumper($name->{$key}) . ' }';
my $m = Perlito5::Grammar::Statement->statement_parse($code, 0);
die('not a valid constant: ' . join(${'"'}, @{$list}))
if !$m;
push(@ast, $m->{'capture'})
}
}
else {
my $code = 'sub ' . $name . ' () { (' . join(', ', map {
Perlito5::Dumper::_dumper($_)
} @{$list}) . ') }';
my $m = Perlito5::Grammar::Statement->statement_parse($code, 0);
die('not a valid constant: ' . join(${'"'}, @{$list}))
if !$m;
Expand Down
25 changes: 21 additions & 4 deletions src5/lib/Perlito5/Grammar/Use.pm
View file
Expand Up @@ -73,10 +73,27 @@ token stmt_use {
}
elsif ($use_decl eq 'use' && $full_ident eq 'constant' && $list) {
my @ast;
while (@$list) {
my $name = shift @$list;
my $val = shift @$list;
my $code = 'sub ' . $name . ' () { ' . Perlito5::Dumper::_dumper($val) . ' }';
my $name = shift @$list;
if (ref($name) eq 'HASH') {
for my $key (sort keys %$name ) {
my $code = 'sub ' . $key . ' () { '
. Perlito5::Dumper::_dumper($name->{$key})
. ' }';
# say "will do: $code";
my $m = Perlito5::Grammar::Statement->statement_parse($code, 0);
die "not a valid constant: @$list"
if !$m;
# say Perlito5::Dumper::Dumper($m->{capture});
push @ast, $m->{capture};
}
}
else {
my $code = 'sub ' . $name . ' () { ('
. join(', ',
map { Perlito5::Dumper::_dumper($_) }
@$list
)
. ') }';
# say "will do: $code";
my $m = Perlito5::Grammar::Statement->statement_parse($code, 0);
die "not a valid constant: @$list"
Expand Down

0 comments on commit e16e072

Please sign in to comment.