PFEIFFER / makepp-1.50-110116 / Mpp / CommandParser / Esql.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
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162

              
# $Id: Esql.pm,v 1.18 2011/01/16 17:10:41 pfeiffer Exp $
=head1 NAME
Mpp::CommandParser::Esql - makepp command parser for various Esql preprocessors
=head1 DESCRIPTION
Parses an Embedded SQL preprocessor or compile command for implicit
dependencies.
This is essentially identical to Gcc.pm, but for some extra args, because some
precompilers can call the compiler and produce an executable.  Currently it
does not handle options or file extensions indicating an embedding language
other than C/C++.
=cut
use strict;
package Mpp::CommandParser::Esql;
use Mpp::CommandParser::Gcc;
our @ISA = 'Mpp::CommandParser::Gcc';
use Mpp::Text;
use Mpp::File;
=head2 Suffixes
Most preprocessors, except the exotic syntax of DB2 and Oracle, differ mostly
in the file suffixes they handle.  A few preprocessors agree that input files
end with F<.ec> and EXEC SQL INCLUDE file without a suffix gets .h appended.
So these are the defaults.  This class has 3 hash variables with which you can
override that, each keyed by the command without directory and on Windows
without F<.exe>:
=over
=item %suffix_re
A regexp to recognize input file arguments.
=item %suffixes
If the preprocessor accepts file arguments without their suffix, this is the
array of suffixes to try for finding the file.  It should B<not> start with a
leading slash C</>.
=item %inc_suffixes
This is the array of suffixes to try for finding the EXEC SQL INCLUDE file.
It should start with a leading slash C</>, meaning to try these suffixes only
for an argument that does not have a suffix.
=back
=cut
my $suffix_re = qr/\.ec$/;      # most common case
my %suffix_re =
 (apre => qr/\.sc$/,
  ecpg => qr/\.\w+$/,
  esqlc => qr/\.(?:dcl|sc)$/,
  gpre => qr/\.e(?:xx)?$/);
my %suffixes =
 (gpre => [qw(.e .exx)]);
my $inc_suffixes = [qw(/ .h)];  # standard case
my %inc_suffixes =
 (db2 => [qw(/ .sqC .sqx .sqc .hpp .h)]);
*factory = \&Mpp::Subs::p_esql_compilation;
sub new {
  my $self = &Mpp::CommandParser::Gcc::new_no_gcc;
  require Mpp::Scanner::Esqlc;
  $self->{SCANNER} = new Mpp::Scanner::Esqlc($self->rule, $self->dir);
  $self;
}
sub parse_arg {
  my( undef, undef, $words, $files ) = @_;
  my $scanner = $_[0]{SCANNER};
  for( $_[1] ) {
    if( $_[0]{CMD} eq 'proc' ) { # Oracle Pro*C
      if( s/^(sys_?)?include=//i ) {
        my $sys = $1;
        for( /^\((.+)\)$/ ? split( ',', $1 ) : $_ ) {
          $scanner->add_include_dir( user => $_ );
          $scanner->add_include_dir( sys => $_ ) if $sys;
        }
      } elsif( s/^iname=//i ) {
        push @$files, /\.[^\/]*$/ ? $_ : "$_.pc";
      } elsif( s/^define=//i ) {
        unshift @$words, "-D$_";
      } elsif( Mpp::is_windows ? s/^config=(?=(\/|[a-z]:)?)//i : s/^config=(?=(\/)?)//i ) {
        $_[0]->add_simple_dependency( $_ );
        substr $_, 0, 0, &Mpp::CommandParser::dirinfo->{FULLNAME} . '/' unless defined $1;
        Mpp::Subs::prebuild file_info( $_, $_[0]{RULE}{MAKEFILE}{CWD} ), $_[0]{RULE}{MAKEFILE}, $_[0]{RULE}{RULE_SOURCE};
        # Might be a generated file.
        if( open my $fh, $_ ) {
          while( <$fh> ) {
            chomp;
            parse_arg( $_[0], $_, $words, $files );
          }
        } else {
          warn "config file `$_' not found";
        }
      } elsif( !/^\w+=/ ) {
        push @$files, /\.[^\/]*$/ ? $_ : "$_.pc";
      }
    } elsif( $_[0]{SUFFIXES} && Mpp::is_windows ? /(?:^|[\\\/])[^.]+$/ : /(?:^|\/)[^.]+$/ ) {
      for my $suffix ( @{$_[0]{SUFFIXES}} ) {
        if( Mpp::File::exists_or_can_be_built file_info "$_$suffix", $_[0]{RULE}{MAKEFILE}{CWD} ) {
          push @$files, "$_$suffix";
          last;
        }
      }
    }
  }
}
sub parse_opt {
  my $words = $_[2];
  for( $_[1] ) {
    if( s/^E(?=[DU].+)// || s/^Y// ) {  # Informix or Yard
      unshift @$words, "-$_";
    }                           # else ignore unknown option.
  }
}
sub xparse_command {
  my $scanner = $_[0]{SCANNER};
  my( $cmd ) = $_[1][0] =~ (Mpp::is_windows ? /(\w+)(?:\.exe)?$/ : /(\w+)$/);
  $scanner->add_include_suffix_list( user => $inc_suffixes{$cmd} || $inc_suffixes );
  if( $cmd eq 'db2' ) {         # Special case this unusual syntax
    my $file = $_[1][1];
    return 0 if $file !~ s/^pre(?:compile|p)\s*//i; # other subcommand
    if( $file ) {
      $file =~ s/\s.*//;
    } else {
      $file = $_[1][2];
    }
    for( split ':', $ENV{DB2INCLUDE} || '' ) {
      $scanner->add_include_dir( user => $_ );
      $scanner->add_include_dir( sys => $_ );
    }
    return $scanner->scan_file( $_[0], c => $file ) || undef;
  }
  $_[0]{CMD} = $cmd;
  $_[0]{SUFFIXES} = $suffixes{$cmd};
  $_[0]{REGEXP} = $suffix_re{$cmd} || $suffix_re
    if $cmd ne 'proc';          # would match iname=x.pc -- parse_arg takes care
  goto &Mpp::CommandParser::Gcc::xparse_command;
}
sub input_filename_regexp { $_[0]{REGEXP} }
1;