writemain.SH

   1 case $CONFIG 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 $spitshell >writemain <<!GROK!THIS!
  25 $startsh
  26 !GROK!THIS!
  27
  28 : In the following dollars and backticks do not need the extra backslash.
  29 $spitshell >>writemain <<'!NO!SUBS!'
  30 # This script takes the plain miniperlmain.c and writes out perlmain.c
  31 # which includes all the extensions.
  32 # The command line arguments name extensions to be used.
  33 #  E.g.:  sh writemain SDBM_File POSIX > perlmain.c
  34 #
  35
  36 orig="$*"
  37 args=''
  38 : Remove any .a suffixes and any leading path components
  39 for file in `echo $orig | sed 's/\.a//g'` ; do
  40         case "$file" in
  41         ext/*)  file=`echo $file | sed 's:ext/\(.*\)/[^/]*:\1:'`
  42                 ;;
  43         lib/auto/*)     file=`echo $file | sed 's:lib/auto/\(.*\)/[^/]*:\1:'`
  44                 ;;
  45         */*)
  46                 file=`expr X$file : 'X.*/\(.*\)'`
  47                 ;;
  48         esac
  49         args="$args $file"
  50 done
  51
  52
  53 sed '/Do not delete this line--writemain depends on it/q' miniperlmain.c
  54 if test X"$args" != "X" ; then
  55     echo "    char *file = __FILE__;"
  56     ai=''
  57
  58     for ext in $args ; do
  59
  60         : $ext will either be 'Name' or 'Name1/Name2' etc
  61         : convert ext into cname and mname
  62         mname=`echo $ext   | sed 's!/!::!g'`
  63         cname=`echo $mname | sed 's!:!_!g'`
  64
  65         echo "    {   extern void boot_${cname} _((CV* cv));"
  66         if test "$ext" = "DynaLoader"; then
  67             : Must NOT install 'DynaLoader::boot_DynaLoader' as 'bootstrap'!
  68             : boot_DynaLoader is called directly in DynaLoader.pm
  69             echo "        newXS(\"${mname}::boot_${ext}\", boot_${cname}, file);"
  70         else
  71             echo "        newXS(\"${mname}::bootstrap\", boot_${cname}, file);"
  72         fi
  73         # does this extension wish to supply automatic booting code?
  74     for aifile in ext/$ext/AutoInit.* ; do
  75                 case $aifile in
  76                 *.c)echo "      /* autoinit code from $aifile follows: */"
  77                         echo "  {"; cat $aifile; echo " }"
  78                         ;;
  79                 *.pl) ai="$ai `cat $aifile | tr '\012' ' '`;"
  80                         ;;
  81                 esac
  82         done
  83         echo "    }"
  84     done
  85     if test "X$ai" != "X"; then
  86         echo "    autoboot_preamble = \"BEGIN { $ai }\";"
  87     fi
  88 fi
  89
  90 cat << 'EOP'
  91 }
  92 EOP
  93
  94 !NO!SUBS!
  95 chmod 755 writemain
  96 $eunicefix writemain