writemain.SH

   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            *.o)  file=`echo $file | sed 's/\.o//g'`;;
  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 "    static const 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