Documentation/ntweb/guile-1.3.4-gnu-windows.patch

   1 diff -urN ../guile-1.3.4/ChangeLog ./ChangeLog
   2 --- ../guile-1.3.4/ChangeLog    Sat Sep 25 19:26:50 1999
   3 +++ ./ChangeLog Mon Mar 27 15:46:54 2000
   4 @@ -1,3 +1,12 @@
   5 +2000-03-24    <janneke@gnu.org>
   6 +
   7 +       * guile-config/cross-guile-config.in: Simple shell script to
   8 +       take over guile-config's functionality for cross-compilation.
   9 +       It will be installed as ${target}-guile-config.
  10 +
  11 +       * guile-config/Makefile.am: Provide for cross-guile-config.in
  12 +       and its targets.
  13 +
  14  1999-09-25  Jim Blandy  <jimb@savonarola.red-bean.com>
  15
  16         * Guile 1.3.4 released.
  17 diff -urN ../guile-1.3.4/configure.in ./configure.in
  18 --- ../guile-1.3.4/configure.in Sat Sep 25 19:26:50 1999
  19 +++ ./configure.in      Wed Mar 29 15:49:56 2000
  20 @@ -21,6 +21,7 @@
  21  dnl  Boston, MA 02111-1307, USA.
  22
  23  AC_INIT(Makefile.in)
  24 +AC_CANONICAL_SYSTEM
  25  . $srcdir/GUILE-VERSION
  26  AM_INIT_AUTOMAKE($PACKAGE, $VERSION, no-define)
  27  AM_MAINTAINER_MODE
  28 diff -urN ../guile-1.3.4/guile-config/Makefile.am ./guile-config/Makefile.am
  29 --- ../guile-1.3.4/guile-config/Makefile.am     Mon Oct 19 17:24:31 1998
  30 +++ ./guile-config/Makefile.am  Mon Mar 27 15:47:43 2000
  31 @@ -20,9 +20,9 @@
  32  ##   to the Free Software Foundation, Inc., 59 Temple Place, Suite
  33  ##   330, Boston, MA 02111-1307 USA
  34
  35 -bin_SCRIPTS=guile-config
  36 -CLEANFILES=guile-config
  37 -EXTRA_DIST=guile-config.in
  38 +bin_SCRIPTS=guile-config @target@-guile-config
  39 +CLEANFILES=guile-config @target@-guile-config
  40 +EXTRA_DIST=guile-config.in cross-guile-config.in
  41
  42  ## We use @-...-@ as the substitution brackets here, instead of the
  43  ## usual @...@, so autoconf doesn't go and substitute the values
  44 @@ -34,6 +34,15 @@
  45             -e s:@-GUILE_VERSION-@:${GUILE_VERSION}:
  46         chmod +x guile-config.tmp
  47         mv guile-config.tmp guile-config
  48 +
  49 +@target@-guile-config: cross-guile-config.in
  50 +       rm -f $<.tmp
  51 +       sed < ${srcdir}/$< > $<.tmp \
  52 +           -e s:@-SHELL-@:${SHELL}: \
  53 +           -e s:@-GUILE_VERSION-@:${GUILE_VERSION}:\
  54 +           -e s:@-PREFIX-@:${prefix}:
  55 +       chmod +x $<.tmp
  56 +       mv $<.tmp $@
  57
  58  ## Get rid of any copies of the configuration script under the old
  59  ## name, so people don't end up running ancient copies of it.
  60 diff -urN ../guile-1.3.4/guile-config/cross-guile-config.in ./guile-config/cross-guile-config.in
  61 --- ../guile-1.3.4/guile-config/cross-guile-config.in   Thu Jan  1 01:00:00 1970
  62 +++ ./guile-config/cross-guile-config.in        Mon Mar 27 15:46:36 2000
  63 @@ -0,0 +1,16 @@
  64 +#!@-SHELL-@
  65 +# target-guile-config.in
  66 +case $1 in
  67 +       --version)
  68 +               echo "@-GUILE_VERSION-@"
  69 +               exit 0
  70 +               ;;
  71 +       compile)
  72 +               echo "-I @-PREFIX-@/include/guile"
  73 +               exit 0
  74 +               ;;
  75 +       link)
  76 +               echo "-L @-PREFIX-@/lib -lguile"
  77 +               exit 0
  78 +               ;;
  79 +esac
  80 diff -urN ../guile-1.3.4/libguile/dynl-dl.c ./libguile/dynl-dl.c
  81 --- ../guile-1.3.4/libguile/dynl-dl.c   Sun Aug 29 20:03:26 1999
  82 +++ ./libguile/dynl-dl.c        Mon Mar 27 15:57:24 2000
  83 @@ -45,7 +45,9 @@
  84     Author: Aubrey Jaffer
  85     Modified for libguile by Marius Vollmer */
  86
  87 +#ifndef __CYGWIN__
  88  #include <dlfcn.h>
  89 +#endif
  90
  91  #ifdef RTLD_LAZY       /* Solaris 2. */
  92  #  define DLOPEN_MODE  RTLD_LAZY
  93 diff -urN ../guile-1.3.4/libguile/filesys.c ./libguile/filesys.c
  94 --- ../guile-1.3.4/libguile/filesys.c   Sun Sep 12 05:47:39 1999
  95 +++ ./libguile/filesys.c        Mon Mar 27 15:57:24 2000
  96 @@ -138,7 +138,9 @@
  97         fdes = SCM_INUM (object);
  98        else
  99         fdes = SCM_FPORT_FDES (object);
 100 +#ifndef __CYGWIN__
 101        SCM_SYSCALL (rv = fchown (fdes, SCM_INUM (owner), SCM_INUM (group)));
 102 +#endif
 103      }
 104    else
 105      {