whatpm/What/mkhtmlparser.pl

#!/usr/bin/perl 
use strict;

my $consume_entity_file_name = 'HTML-consume-entity.src';

while (<>) {
  s/!!!emit\b/return /;
  s{!!!consume-entity\}}{
    open my $consume_entity_file, '<', $consume_entity_file_name
      or die "$0: $consume_entity_file_name: $!";
    my $r = '';
    while (defined (my $l = <$consume_entity_file>)) {
      $r .= $l unless $l =~ /<javascript:/;
    }
    $r;
  }e;
  s{!!!next-input-character;}{q{
      if (@{$self->{char}}) {
        $self->{next_input_character} = shift @{$self->{char}};
      } else {
        $self->{set_next_input_character}->($self);
      }
  }}ge;
  s{!!!back-next-input-character\b}{q{unshift @{$self->{char}}, }}ge;
  s{!!!parse-error;}{q{$self->{parse_error}->();}}ge;
  s{!!!parse-error\b}{q{$self->{parse_error}->}}ge;
  print;
}
1	wakaba	1.1	#!/usr/bin/perl
2			use strict;
3
4			my $consume_entity_file_name = 'HTML-consume-entity.src';
5
6			while (<>) {
7			s/!!!emit\b/return /;
8			s{!!!consume-entity\}}{
9			open my $consume_entity_file, '<', $consume_entity_file_name
10			or die "$0: $consume_entity_file_name: $!";
11			my $r = '';
12			while (defined (my $l = <$consume_entity_file>)) {
13			$r .= $l unless $l =~ /<javascript:/;
14			}
15			$r;
16			}e;
17			s{!!!next-input-character;}{q{
18			if (@{$self->{char}}) {
19			$self->{next_input_character} = shift @{$self->{char}};
20			} else {
21			$self->{set_next_input_character}->($self);
22			}
23			}}ge;
24			s{!!!back-next-input-character\b}{q{unshift @{$self->{char}}, }}ge;
25			s{!!!parse-error;}{q{$self->{parse_error}->();}}ge;
26			s{!!!parse-error\b}{q{$self->{parse_error}->}}ge;
27			print;
28			}