Table/tool/esr2pm.pl

#!/usr/bin/perl
use strict;

=head1 NEMA

esr2pm.pl --- Simple Encode module generator

=cut

my %ReplaceText = &ReplaceText;
my %Info;
my $mode = 0;
my $section = '';
my %item;
while (<>) {
  if ($mode == 1) {     ## In a block
    if (/^\}$/) {
      $item{ModuleName} ||= $item{Name};
      $item{ModuleName} =~ s/[^0-9A-Za-z_]/_/g;
      push @{ $Info{encoding} }, {%item};
      $mode = 0;  %item = ();
    } elsif (/^(.+):$/) {
      $section = $1;
    } elsif (/^\t(.*)$/) {</
1	wakaba	1.1	#!/usr/bin/perl
2			use strict;
3
4			=head1 NEMA
5
6			esr2pm.pl --- Simple Encode module generator
7
8			=cut
9
10			my %ReplaceText = &ReplaceText;
11			my %Info;
12			my $mode = 0;
13			my $section = '';
14			my %item;
15			while (<>) {
16			if ($mode == 1) { ## In a block
17			if (/^\}$/) {
18			$item{ModuleName} \|\|= $item{Name};
19			$item{ModuleName} =~ s/[^0-9A-Za-z_]/_/g;
20			push @{ $Info{encoding} }, {%item};
21			$mode = 0; %item = ();
22			} elsif (/^(.+):$/) {
23			$section = $1;
24	wakaba	1.2	} elsif (/^\t(.*)$/) {</