PFEIFFER / mpp-6 / Scanner / Vera.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

              
=head1 NAME
Scanner::Vera - makepp scanner for Vera files
=head1 DESCRIPTION
Scans a Vera file for C<#include>'s.
Tags are:
=over 6
=item user
File scanned due to an #include "filename"  or `include "filename" directive.
=item sys
File scanned due to an #include E<lt>filenameE<gt> directive.
=back
=cut
use strict;
package Scanner::Vera;
use Scanner::C;
our @ISA = qw/Scanner::C/;
sub get_macro {
  if(/\G(\`*)([a-z_]\w*)/igc) {
    my ($ticks, $key) = ($1, $2);
    if($ticks) {
      return (substr($ticks, -1), '`', $key);
    }
    else {
      return ("", "", $key);
    }
  }
  return;
}
sub get_directive {
  if(s/^(\s*\#\s*|\s*\`)(\w+)\s+//) {
    return $2;
  }
  return;
}
1;