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
|
## WML -- Website META Language
##
## Copyright (c) 1996-2001 Ralf S. Engelschall.
## Copyright (c) 1999-2001 Denis Barbier.
##
## This program is free software; you can redistribute it and/or modify
## it under the terms of the GNU General Public License as published by
## the Free Software Foundation; either version 2 of the License, or
## (at your option) any later version.
##
## This program 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 General Public License for more details.
##
## You should have received a copy of the GNU General Public License
## along with this program; if not, write to
##
## Free Software Foundation, Inc.
## 59 Temple Place - Suite 330
## Boston, MA 02111-1307, USA
##
## Notice, that ``free software'' addresses the fact that this program
## is __distributed__ under the term of the GNU General Public License
## and because of this, it can be redistributed and modified under the
## conditions of this license, but the software remains __copyrighted__
## by the author. Don't intermix this with the general meaning of
## Public Domain software or such a derivated distribution label.
##
## The author reserves the right to distribute following releases of
## this program under different conditions or license agreements.
package TheWML::Frontends::Wml::WmlRcDir;
use 5.014;
use strict;
use warnings;
use Path::Tiny qw/ path /;
use TheWML::Frontends::Wml::Util qw/ canonize_path split_argv /;
use Class::XSAccessor (
constructor => 'new',
accessors => +{
map { $_ => $_ }
qw(
_main
dir
)
}
);
sub _process_wmlrc_dir
{
my ($self) = @_;
my $dir = $self->dir;
my $_pass_mgr = $self->_main->_pass_mgr;
if ( not -f "$dir/.wmlrc" )
{
return;
}
$_pass_mgr->verbose( 2, "Reading RC file: $dir/.wmlrc\n" );
my $wml_rc_fh = path("$dir/.wmlrc")->openr;
my @aa;
WMLRC_LINES:
while ( my $l = $wml_rc_fh->getline )
{
if ( $l =~ m|\A\s*\n?\z| or $l =~ m|\A\s*#[#\s]*.*\z| )
{
next WMLRC_LINES;
}
$l =~ s|\A\s+||;
$l =~ s|\s+\z||;
$l =~ s|\$([A-Za-z_][A-Za-z0-9_]*)|$ENV{$1}|ge;
push( @aa, split_argv($l) );
}
$wml_rc_fh->close;
my @opt_I_OLD = @{ $self->_main->_opt_I };
$self->_main->_opt_I( [] );
my $dnew = $self->_main->_process_options( \@aa, [] );
my @opt_I_NEW = @opt_I_OLD;
# adjust -D options
my $reldir = File::Spec->abs2rel( $dir, $self->_main->_src );
$reldir = "." if $reldir eq '';
foreach my $d (@$dnew)
{
if ( my ( $var, $path ) = $d =~ m#\A([A-Za-z0-9_]+)~(.+)\z# )
{
if ( $path !~ m#\A/# )
{
canonize_path( \$path, $reldir );
}
$path = q/""/ if ( $path eq '' );
$d = "$var=$path";
}
elsif ( $d =~ m|^([A-Za-z0-9_]+)$| )
{
$d .= '=1';
}
push( @{ $self->_main->_opt_D }, $d );
}
# adjust -I options
$reldir = File::Spec->abs2rel($dir);
$reldir = "." if $reldir eq '';
foreach my $path ( @{ $self->_main->_opt_I } )
{
if ( $path !~ m#\A/# )
{
canonize_path( \$path, $reldir );
$path = '.' if ( $path eq '' );
}
push( @opt_I_NEW, $path );
}
$self->_main->_opt_I( [@opt_I_NEW] );
return;
}
1;
__END__
# vim: ft=perl
|
