1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
# Copyright 2022 Jeffrey Kegler
# This file is part of Marpa::R2. Marpa::R2 is free software: you can
# redistribute it and/or modify it under the terms of the GNU Lesser
# General Public License as published by the Free Software Foundation,
# either version 3 of the License, or (at your option) any later version.
#
# Marpa::R2 is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser
# General Public License along with Marpa::R2. If not, see
# http://www.gnu.org/licenses/.
use 5.010001;
use strict;
use warnings;
use Carp;
use English qw( -no_match_vars );
our $HEADER;
sub offset {
my ($desc) = @_;
my @fields = split q{ }, $desc;
my $offset = -1;
my $in_comment = 0;
no strict 'refs';
FIELD: for my $field (@fields) {
if ($in_comment) {
$in_comment = $field ne ':}' && $field ne '}';
next FIELD;
}
PROCESS_OPTION: {
last PROCESS_OPTION if $field !~ /\A [{:] /xms;
if ( $field =~ / \A [:] package [=] (.*) /xms ) {
say "\npackage $1;";
$offset = -1;
next FIELD;
}
if ( $field =~ / \A [:]? [{] /xms ) {
$in_comment++;
next FIELD;
}
} ## end PROCESS_OPTION:
if ((substr $field, 0, 1) eq '=') {
$field = substr $field, 1;
} else {
$offset++;
}
die "Unacceptable field name: $field"
if $field =~ /[^A-Z0-9_]/xms;
say "use constant $field => $offset;"
} ## end for my $field (@fields)
return 1;
} ## end sub Marpa::R2::offset
$HEADER =~ s/!!!PROGRAM_NAME!!!/$PROGRAM_NAME/;
say $HEADER;
$RS = undef;
offset(<DATA>);
say "\n1;";
BEGIN {
$HEADER = <<'END_OF_HEADER';
# Copyright 2022 Jeffrey Kegler
# This file is part of Marpa::R2. Marpa::R2 is free software: you can
# redistribute it and/or modify it under the terms of the GNU Lesser
# General Public License as published by the Free Software Foundation,
# either version 3 of the License, or (at your option) any later version.
#
# Marpa::R2 is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser
# General Public License along with Marpa::R2. If not, see
# http://www.gnu.org/licenses/.
# DO NOT EDIT THIS FILE DIRECTLY
# It was generated by !!!PROGRAM_NAME!!!
package Marpa::R2::Internal;
use 5.010001;
use strict;
use warnings;
use Carp;
use vars qw($VERSION $STRING_VERSION);
$VERSION = '12.000000';
$STRING_VERSION = $VERSION;
$VERSION = eval $VERSION;
END_OF_HEADER
}
__DATA__
:package=Marpa::R2::HTML::Internal::TDesc
TYPE
START_TOKEN
END_TOKEN
VALUE
RULE_ID
:package=Marpa::R2::HTML::Internal::Token
TOKEN_ID
=TAG_NAME
TYPE
LINE
COL
=COLUMN
START_OFFSET
END_OFFSET
IS_CDATA
ATTR
|
