From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

JDDPAUSE / MarpaX-Languages-C-AST-0.34 / lib / MarpaX / Languages / C / AST / Util / Data / Find.pm 

            

              
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
127
128
129
130
131
132
133
134
135
136
137
138
139

              
use strict;
use warnings FATAL => 'all';
package MarpaX::Languages::C::AST::Util::Data::Find;
use Scalar::Util qw/blessed/;
use Carp qw/croak/;
# ABSTRACT: Find data in C AST
our $VERSION = '0.34'; # VERSION
sub new {
  my ($class, %options) = @_;
  my $self  = {
    _wanted => $options{wanted} || sub {return 1;},
    _wantedArgs => $options{wantedArgs} || [],
    _callback => $options{callback} || sub {},
    _callbackArgs => $options{callbackArgs} || []
  };
  bless $self, $class;
  return $self;
}
sub process {
    my ($self, $value) = @_;
    my @worklist = ($value);
    my $rc = 0;
    do {
        my $obj = shift @worklist;
        if ($self->{_wanted}(@{$self->{_wantedArgs}}, $obj)) {
            $rc = 1;
            $self->{_callback}(@{$self->{_callbackArgs}}, $obj);
        }
        my $ref_type = ref $obj;
        if (blessed($obj) || $ref_type eq 'ARRAY') {
            unshift(@worklist, @{$obj});
        } else {
            croak "Unsupported object type $ref_type\n" if $ref_type;
        }
  } while (@worklist);
  return $rc;
}
1;
__END__
=pod
=encoding utf-8
=head1 NAME
MarpaX::Languages::C::AST::Util::Data::Find - Find data in C AST
=head1 VERSION
version 0.34
=head1 SYNOPSIS
    use strict;
    use warnings FATAL => 'all';
    use MarpaX::Languages::C::AST::Util::Data::Find;
    my $data = bless [], 'C::AST::Something';
    MarpaX::Languages::C::AST::Util::Data::Find->new(
        wanted => sub { my $o = shift;
                        my $class = blessed($o) || '';
                        return ($class eq 'C::AST::directDeclaratorIdentifier');
        },
        callback => sub { my ($datap, $o) = @_;
                          #
                          # This object has matched.
                          #
        },
        callbackArgs => [ $data ],
        )->process($data);
=head1 DESCRIPTION
This modules is a minimalist Data::Find designed for the parse tree values of Marpa on a C source file.
=head1 SUBROUTINES/METHODS
=head2 new($class, %options)
Instance a new object. Takes as optional argument a hash that may contain the following key/values:
=over
=item wanted
Match callback (CODE ref).
=item wantedArgs
Match callback arguments (ARRAY ref). The matched callback is called like: &$wanted(@{$wantedArgs}, $object). Any true value means that $object has matched and will be a candidate to the processing callback.
=item callback
Process callback (CODE ref).
=item callbackArgs
Process callback arguments (ARRAY ref). The process callback is called like: &$callback(@{$callbackArgs}, $object) on every object that matched.
=back
=head2 process($self, $value)
Process search on the object $value. Returns a true value is something wanted was found.
=head1 SEE ALSO
 L<Data::Find>, L<Marpa::R2>
=head1 AUTHOR
Jean-Damien Durand <jeandamiendurand@free.fr>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2013 by Jean-Damien Durand.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut