Unicode properties: fix L& (the #12319 didn't allow L&,
[p5sagit/p5-mst-13.2.git] / minimod.pl
CommitLineData
fed7345c 1# minimod.PL writes the contents of miniperlmain.c into the module
2# ExtUtils::Miniperl for later perusal (when the perl source is
3# deleted)
4#
5# It also writes the subroutine writemain(), which takes as its
6# arguments module names that shall be statically linked into perl.
7#
8# Authors: Andreas Koenig <k@franz.ww.TU-Berlin.DE>, Tim Bunce
9# <Tim.Bunce@ig.co.uk>
10#
11# Version 1.0, Feb 2nd 1995 by Andreas Koenig
12
13print <<'END';
14# This File keeps the contents of miniperlmain.c.
15#
16# It was generated automatically by minimod.PL from the contents
17# of miniperlmain.c. Don't edit this file!
18#
19# ANY CHANGES MADE HERE WILL BE LOST!
20#
21
22
23package ExtUtils::Miniperl;
24require Exporter;
25@ISA = qw(Exporter);
26@EXPORT = qw(&writemain);
27
28$head= <<'EOF!HEAD';
29END
30
31open MINI, "miniperlmain.c";
32while (<MINI>) {
33 last if /Do not delete this line--writemain depends on it/;
34 print;
35}
36
37print <<'END';
38EOF!HEAD
39$tail=<<'EOF!TAIL';
40END
41
42while (<MINI>) {
8cc95fdb 43 print unless /dXSUB_SYS/;
fed7345c 44}
45close MINI;
46
47print <<'END';
48EOF!TAIL
49
50sub writemain{
51 my(@exts) = @_;
52
53 my($pname);
54 my($dl) = canon('/','DynaLoader');
55 print $head;
4633a7c4 56
57 foreach $_ (@exts){
58 my($pname) = canon('/', $_);
59 my($mname, $cname);
60 ($mname = $pname) =~ s!/!::!g;
61 ($cname = $pname) =~ s!/!__!g;
6acd907d 62 print "EXTERN_C void boot_${cname} (pTHX_ CV* cv);\n";
4633a7c4 63 }
64
65 my ($tail1,$tail2) = ( $tail =~ /\A(.*\n)(\s*\}.*)\Z/s );
66 print $tail1;
67
8cc95fdb 68 print "\tchar *file = __FILE__;\n";
69 print "\tdXSUB_SYS;\n" if $] > 5.002;
70
fed7345c 71 foreach $_ (@exts){
72 my($pname) = canon('/', $_);
8e07c86e 73 my($mname, $cname, $ccode);
fed7345c 74 ($mname = $pname) =~ s!/!::!g;
75 ($cname = $pname) =~ s!/!__!g;
4633a7c4 76 print "\t{\n";
fed7345c 77 if ($pname eq $dl){
78 # Must NOT install 'DynaLoader::boot_DynaLoader' as 'bootstrap'!
79 # boot_DynaLoader is called directly in DynaLoader.pm
8e07c86e 80 $ccode = "\t/* DynaLoader is a special case */\n
81\tnewXS(\"${mname}::boot_${cname}\", boot_${cname}, file);\n";
82 print $ccode unless $SEEN{$ccode}++;
fed7345c 83 } else {
8e07c86e 84 $ccode = "\tnewXS(\"${mname}::bootstrap\", boot_${cname}, file);\n";
85 print $ccode unless $SEEN{$ccode}++;
fed7345c 86 }
87 print "\t}\n";
88 }
4633a7c4 89 print $tail2;
fed7345c 90}
91
92sub canon{
93 my($as, @ext) = @_;
94 foreach(@ext){
95 # might be X::Y or lib/auto/X/Y/Y.a
96 next if s!::!/!g;
97 s:^(lib|ext)/(auto/)?::;
98 s:/\w+\.\w+$::;
99 }
100 grep(s:/:$as:, @ext) if ($as ne '/');
101 @ext;
102}
103
1041;
864a5fa8 105__END__
222dd4a0 106
864a5fa8 107=head1 NAME
108
222dd4a0 109ExtUtils::Miniperl, writemain - write the C code for perlmain.c
864a5fa8 110
111=head1 SYNOPSIS
112
113C<use ExtUtils::Miniperl;>
114
115C<writemain(@directories);>
116
117=head1 DESCRIPTION
118
119This whole module is written when perl itself is built from a script
120called minimod.PL. In case you want to patch it, please patch
121minimod.PL in the perl distribution instead.
122
123writemain() takes an argument list of directories containing archive
124libraries that relate to perl modules and should be linked into a new
125perl binary. It writes to STDOUT a corresponding perlmain.c file that
126is a plain C file containing all the bootstrap code to make the
127modules associated with the libraries available from within perl.
128
129The typical usage is from within a Makefile generated by
130ExtUtils::MakeMaker. So under normal circumstances you won't have to
131deal with this module directly.
132
133=head1 SEE ALSO
134
135L<ExtUtils::MakeMaker>
136
137=cut
138
fed7345c 139END