1 | case $PERL_CONFIG_SH in |
---|
2 | '') |
---|
3 | if test -f config.sh; then TOP=.; |
---|
4 | elif test -f ../config.sh; then TOP=..; |
---|
5 | elif test -f ../../config.sh; then TOP=../..; |
---|
6 | elif test -f ../../../config.sh; then TOP=../../..; |
---|
7 | elif test -f ../../../../config.sh; then TOP=../../../..; |
---|
8 | else |
---|
9 | echo "Can't find config.sh."; exit 1 |
---|
10 | fi |
---|
11 | . $TOP/config.sh |
---|
12 | ;; |
---|
13 | esac |
---|
14 | : This forces SH files to create target in same directory as SH file. |
---|
15 | : This is so that make depend always knows where to find SH derivatives. |
---|
16 | case "$0" in |
---|
17 | */*) cd `expr X$0 : 'X\(.*\)/'` ;; |
---|
18 | esac |
---|
19 | echo "Extracting writemain (with variable substitutions)" |
---|
20 | : This section of the file will have variable substitutions done on it. |
---|
21 | : Move anything that needs config subs from !NO!SUBS! section to !GROK!THIS!. |
---|
22 | : Protect any dollar signs and backticks that you do not want interpreted |
---|
23 | : by putting a backslash in front. You may delete these comments. |
---|
24 | rm -f writemain |
---|
25 | $spitshell >writemain <<!GROK!THIS! |
---|
26 | $startsh |
---|
27 | !GROK!THIS! |
---|
28 | |
---|
29 | : In the following dollars and backticks do not need the extra backslash. |
---|
30 | $spitshell >>writemain <<'!NO!SUBS!' |
---|
31 | # This script takes the plain miniperlmain.c and writes out perlmain.c |
---|
32 | # which includes all the extensions. |
---|
33 | # The command line arguments name extensions to be used. |
---|
34 | # E.g.: sh writemain SDBM_File POSIX > perlmain.c |
---|
35 | # |
---|
36 | |
---|
37 | orig="$*" |
---|
38 | args='' |
---|
39 | : Remove any .a suffixes and any leading path components |
---|
40 | for file in $orig ; do |
---|
41 | case "$file" in |
---|
42 | *.a) file=`echo $file | sed 's/\.a//g'` |
---|
43 | ;; |
---|
44 | esac |
---|
45 | case "$file" in |
---|
46 | ext/*) file=`echo $file | sed 's:ext/\(.*\)/[^/]*:\1:'` |
---|
47 | ;; |
---|
48 | lib/auto/*) file=`echo $file | sed 's:lib/auto/\(.*\)/[^/]*:\1:'` |
---|
49 | ;; |
---|
50 | */*) |
---|
51 | file=`expr X$file : 'X.*/\(.*\)'` |
---|
52 | ;; |
---|
53 | esac |
---|
54 | args="$args $file" |
---|
55 | done |
---|
56 | |
---|
57 | |
---|
58 | sed '/Do not delete this line--writemain depends on it/q' miniperlmain.c |
---|
59 | |
---|
60 | |
---|
61 | if test X"$args" != "X" ; then |
---|
62 | for ext in $args ; do |
---|
63 | : $ext will either be 'Name' or 'Name1/Name2' etc |
---|
64 | : convert ext into cname and mname |
---|
65 | mname=`echo $ext | sed 's!/!::!g'` |
---|
66 | cname=`echo $mname | sed 's!:!_!g'` |
---|
67 | |
---|
68 | echo "EXTERN_C void boot_${cname} (pTHX_ CV* cv);" |
---|
69 | done |
---|
70 | fi |
---|
71 | |
---|
72 | cat << 'EOP' |
---|
73 | |
---|
74 | static void |
---|
75 | xs_init(pTHX) |
---|
76 | { |
---|
77 | EOP |
---|
78 | |
---|
79 | if test X"$args" != "X" ; then |
---|
80 | echo " char *file = __FILE__;" |
---|
81 | echo " dXSUB_SYS;" |
---|
82 | |
---|
83 | ai='' |
---|
84 | |
---|
85 | for ext in $args ; do |
---|
86 | |
---|
87 | : $ext will either be 'Name' or 'Name1/Name2' etc |
---|
88 | : convert ext into cname and mname |
---|
89 | mname=`echo $ext | sed 's!/!::!g'` |
---|
90 | cname=`echo $mname | sed 's!:!_!g'` |
---|
91 | |
---|
92 | if test "$ext" = "DynaLoader"; then |
---|
93 | : Must NOT install 'DynaLoader::boot_DynaLoader' as 'bootstrap'! |
---|
94 | : boot_DynaLoader is called directly in DynaLoader.pm |
---|
95 | echo " newXS(\"${mname}::boot_${ext}\", boot_${cname}, file);" |
---|
96 | else |
---|
97 | echo " newXS(\"${mname}::bootstrap\", boot_${cname}, file);" |
---|
98 | fi |
---|
99 | done |
---|
100 | fi |
---|
101 | |
---|
102 | cat << 'EOP' |
---|
103 | } |
---|
104 | EOP |
---|
105 | |
---|
106 | !NO!SUBS! |
---|
107 | chmod 755 writemain |
---|
108 | $eunicefix writemain |
---|