Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Perlito5 - parser: cleanup unused token

  • Loading branch information...
commit b5b0e065f38be22e3b883f7cd9175edb8c268267 1 parent 6e10825
@fglock authored
View
19 html/perlito5.js
@@ -7657,25 +7657,6 @@ var p5100 = p5pkg['main'];
}
}
});
- p5make_sub("Perlito5::Grammar::String", "char_any", function (List__, p5want) {
- var v_grammar = null;
- (v_grammar = (List__[0]));
- var v_str = null;
- (v_str = (List__[1]));
- var v_pos = null;
- (v_pos = (List__[2]));
- var v_MATCH = null;
- (v_MATCH = ((new p5HashRef({'str' : v_str, 'from' : v_pos, 'to' : v_pos}))));
- var v_tmp = null;
- (v_tmp = (p5context([p5context([(function () {
- var v_pos1 = null;
- (v_pos1 = ((v_MATCH || (v_MATCH = new p5HashRef({})))._hash_['to']));
- return (p5context([(function () {
- return (p5and(('' != p5pkg["Perlito5::Grammar::String"].substr([v_str, (v_MATCH || (v_MATCH = new p5HashRef({})))._hash_['to'], 1], 0)), function () { return p5context([((v_MATCH || (v_MATCH = new p5HashRef({})))._hash_['to'] = (1 + p5num((v_MATCH || (v_MATCH = new p5HashRef({})))._hash_['to'])))], p5want) }));
- })()], p5want));
- })()], 0)], 0)));
- return (( p5bool(v_tmp) ? v_MATCH : 0));
- });
p5make_sub("Perlito5::Grammar::String", "double_quoted_var_with_subscript", function (List__, p5want) {
try {
var v_self = null;
View
13 lib5/Perlito5/Grammar/String.pm
@@ -829,19 +829,6 @@ sub Perlito5::Grammar::String::here_doc {
};
die(('Can' . chr(39) . 't find string terminator "' . $delimiter . '" anywhere before EOF'))
};
-sub Perlito5::Grammar::String::char_any {
- ((my $grammar) = $_[0]);
- ((my $str) = $_[1]);
- ((my $pos) = $_[2]);
- ((my $MATCH) = {'str', $str, 'from', $pos, 'to', $pos});
- ((my $tmp) = (((do {
- ((my $pos1) = $MATCH->{'to'});
- ((do {
- (('' ne substr($str, $MATCH->{'to'}, 1)) && (($MATCH->{'to'} = (1 + $MATCH->{'to'}))))
-}))
-}))));
- ($tmp ? $MATCH : 0)
-};
sub Perlito5::Grammar::String::double_quoted_var_with_subscript {
((my $self) = $_[0]);
((my $m_var) = $_[1]);
View
4 src5/lib/Perlito5/Grammar/String.pm
@@ -500,10 +500,6 @@ sub here_doc {
}
-token char_any {
- .
-};
-
sub double_quoted_var_with_subscript {
my $self = $_[0];
my $m_var = $_[1];
Please sign in to comment.
Something went wrong with that request. Please try again.