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
|
# You may distribute under the terms of either the GNU General Public License
# or the Artistic License (the same terms as Perl itself)
#
# (C) Paul Evans, 2013-2023 -- leonerd@leonerd.org.uk
use v5.20;
use warnings;
use Object::Pad 0.807;
package Tickit::Style::Parser 0.56;
class Tickit::Style::Parser :strict(params);
inherit Parser::MGC;
# Identifiers can include hyphens
use constant pattern_ident => qr/[A-Z0-9_-]+/i;
# Allow #-style line comments
use constant pattern_comment => qr/#.*\n/;
method parse
{
$self->sequence_of( \&parse_def );
}
method token_typename
{
# Also accept the generic "*" wildcard
$self->generic_token( typename => qr/(?:${\pattern_ident}::)*${\pattern_ident}|\*/ );
}
method parse_def
{
my $type = $self->token_typename;
$self->commit;
my $class;
if( $self->maybe_expect( '.' ) ) {
$class = $self->token_ident;
}
my %tags;
while( $self->maybe_expect( ':' ) ) {
$tags{$self->token_ident}++;
}
my %style;
$self->scope_of(
'{',
sub { $self->sequence_of( sub {
$self->any_of(
sub {
my $delete = $self->maybe_expect( '!' );
my $key = $self->token_ident;
$self->commit;
$key =~ s/-/_/g;
if( $delete ) {
$style{$key} = undef;
}
else {
$self->expect( ':' );
my $value = $self->any_of(
$self->can( "token_int" ),
$self->can( "token_string" ),
\&token_boolean,
);
$style{$key} = $value;
}
},
sub {
$self->expect( '<' ); $self->commit;
my $key = $self->maybe_expect( '>' ) || $self->substring_before( '>' );
$self->expect( '>' );
$self->expect( ':' );
$style{"<$key>"} = $self->token_ident;
}
);
$self->expect( ';' );
} ) },
'}'
);
return Tickit::Style::Parser::_Definition->new(
type => $type,
class => $class,
tags => \%tags,
style => \%style,
);
}
method token_boolean
{
return $self->token_kw(qw( true false )) eq "true";
}
class # hide from indexer
Tickit::Style::Parser::_Definition :strict(params) {
field $type :reader :param;
field $class :reader :param;
field $tags :reader :param;
field $style :reader :param;
}
0x55AA;
|
