home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / writemain.SH < prev    next >
Text File  |  1999-07-26  |  3KB  |  109 lines
  1. case $CONFIGDOTSH 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
  109.