mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

guile-snarf: Honor $TMPDIR.

Browse source
This commit is contained in:
Ludovic Courtès 2008-02-12 14:10:16 +00:00
parent c84fd82650
commit bc5d49d9c8
2 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/ChangeLog
View file

@ -1,3 +1,7 @@
2008-02-12 Ludovic Courtès <ludo@gnu.org>
* guile-snarf.in (tempdir): Honor `$TMPDIR'.
2008-02-11 Neil Jerram <neil@ossau.uklinux.net> 2008-02-11 Neil Jerram <neil@ossau.uklinux.net>
* numbers.c (SCM_COMPLEX_VALUE): Use GUILE_I instead of _Complex_I * numbers.c (SCM_COMPLEX_VALUE): Use GUILE_I instead of _Complex_I

7
libguile/guile-snarf.in
View file

@ -1,7 +1,7 @@
#!/bin/sh #!/bin/sh
# Extract the initialization actions from source files. # Extract the initialization actions from source files.
# #
# Copyright (C) 1996, 97, 98, 99, 2000, 2001, 2002, 2004, 2006 Free Software Foundation, Inc. # Copyright (C) 1996, 97, 98, 99, 2000, 2001, 2002, 2004, 2006, 2008 Free Software Foundation, Inc.
# #
# This program is free software; you can redistribute it and/or modify # This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by # it under the terms of the GNU General Public License as published by
@ -69,9 +69,12 @@ fi
# set vars and handler -- handle CPP override # set vars and handler -- handle CPP override
cpp_ok_p=false cpp_ok_p=false
tempdir="/tmp/snarf.$$"
if [ x"$TMPDIR" = x ]; then TMPDIR="/tmp" ; else : ; fi
tempdir="$TMPDIR/guile-snarf.$$"
(umask 077 && mkdir $tempdir) || exit 1 (umask 077 && mkdir $tempdir) || exit 1
temp="$tempdir/tmp" temp="$tempdir/tmp"
if [ x"$CPP" = x ] ; then cpp="@CPP@" ; else cpp="$CPP" ; fi if [ x"$CPP" = x ] ; then cpp="@CPP@" ; else cpp="$CPP" ; fi
trap "rm -rf $tempdir" 0 1 2 15 trap "rm -rf $tempdir" 0 1 2 15