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
|
package Filter::m4;
use Filter::Util::Exec;
use strict;
use warnings;
our $VERSION = '1.65';
my $m4;
my $sep;
if ($^O eq 'MSWin32') {
$m4 = 'm4.exe';
$sep = ';';
}
else {
($m4) = 'm4';
$sep = ':';
}
if (!$m4) {
require Carp;
Carp::croak("Cannot find m4\n");
}
# Check whether m4 is installed.
if (!-x $m4) {
my $foundM4 = 0;
foreach my $dir (split($sep, $ENV{PATH}), '') {
if (-x "$dir/$m4") {
$foundM4 = 1;
last;
}
}
if (!$foundM4) {
require Carp;
Carp::croak("Cannot find m4\n");
}
}
sub import
{
my ($self, @args) = @_;
my $m4arg = '';
foreach my $arg (@args) {
if ($arg eq 'prefix') {
$m4arg = '-P';
}
else {
require Carp;
Carp::croak("Unrecognized argument $arg\n");
}
}
if ($^O eq 'MSWin32') {
Filter::Util::Exec::filter_add($self, 'cmd', '/c',
"m4.exe $m4arg 2>nul");
}
else {
Filter::Util::Exec::filter_add ($self, 'sh', '-c',
"m4 $m4arg 2>/dev/null");
}
}
1;
__END__
=head1 NAME
Filter::m4 - M4 source filter
=head1 SYNOPSIS
use Filter::m4;
use Filter::m4 'prefix';
=head1 DESCRIPTION
This source filter pipes the current source file through the M4 macro
processor (C<m4>) if it is available.
As with all source filters its scope is limited to the current source file
only. Every file you want to be processed by the filter must have the
following line near the top.
use Filter::m4;
=head1 EXAMPLE
Here is a small example that shows how to define and use an M4 macro:
use Filter::m4;
define(`foo', `$1 =~ s/bar/baz/r')
$a = "foobar";
print "a = " . foo(`$a') . "\n";
The output of the above example:
a = foobaz
=head1 NOTES
By default, M4 uses ` and ' as quotes; however, this is configurable using
M4's C<changequote> builtin.
M4 uses C<$1>, C<$2>, etc., to indicate arguments in macros. To avoid
clashes with Perl regex syntax it is recommended to use Perl's alternative
forms C<${1}>, C<${1}>, etc.
The following keywords in M4 and Perl are identical:
eval
format
index
mkstemp
shift
substr
If you need such keywords in your Perl code you have to use one of the
following three solutions.
=over
=item *
Protect the keyword with M4 quotes, for example C<`shift'>.
=item *
Redefine the problematic M4 builtin using C<defn>, as outlined in section
I<Renaming macros> of the M4 info manual.
=item *
Use the C<prefix> option. This adds the prefix C<m4_> to all M4 builtins
(but not to user-defined macros). For example, you will have to use
C<m4_shift> instead of C<shift>.
=back
=head1 AUTHOR
Werner Lemberg
=head1 DATE
17th March 2018.
=cut
|
