[bpt/guile.git] / m4 / rename.m4

# serial 24

# Copyright (C) 2001, 2003, 2005-2006, 2009-2011 Free Software Foundation, Inc.
# This file is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.

dnl From Volker Borchert.
dnl Determine whether rename works for source file names with a trailing slash.
dnl The rename from SunOS 4.1.1_U1 doesn't.
dnl
dnl If it doesn't, then define RENAME_TRAILING_SLASH_BUG and arrange
dnl to compile the wrapper function.
dnl

AC_DEFUN([gl_FUNC_RENAME],
[
  AC_REQUIRE([AC_CANONICAL_HOST])
  AC_REQUIRE([gl_STDIO_H_DEFAULTS])
  AC_CHECK_FUNCS_ONCE([lstat])

  dnl Solaris 10, AIX 7.1 mistakenly allow rename("file","name/").
  dnl NetBSD 1.6 mistakenly forbids rename("dir","name/").
  dnl FreeBSD 7.2 mistakenly allows rename("file","link-to-file/").
  dnl The Solaris bug can be worked around without stripping
  dnl trailing slash, while the NetBSD bug requires stripping;
  dnl the two conditions can be distinguished by whether hard
  dnl links are also broken.
  AC_CACHE_CHECK([whether rename honors trailing slash on destination],
    [gl_cv_func_rename_slash_dst_works],
    [rm -rf conftest.f conftest.f1 conftest.f2 conftest.d1 conftest.d2 conftest.lnk
    touch conftest.f && touch conftest.f1 && mkdir conftest.d1 ||
      AC_MSG_ERROR([cannot create temporary files])
    # Assume that if we have lstat, we can also check symlinks.
    if test $ac_cv_func_lstat = yes; then
      ln -s conftest.f conftest.lnk
    fi
    AC_RUN_IFELSE(
      [AC_LANG_PROGRAM([[
#        include <stdio.h>
#        include <stdlib.h>
         ]],
         [[int result = 0;
           if (rename ("conftest.f1", "conftest.f2/") == 0)
             result |= 1;
           if (rename ("conftest.d1", "conftest.d2/") != 0)
             result |= 2;
#if HAVE_LSTAT
           if (rename ("conftest.f", "conftest.lnk/") == 0)
             result |= 4;
#endif
           return result;
         ]])],
      [gl_cv_func_rename_slash_dst_works=yes],
      [gl_cv_func_rename_slash_dst_works=no],
      dnl When crosscompiling, assume rename is broken.
      [gl_cv_func_rename_slash_dst_works="guessing no"])
    rm -rf conftest.f conftest.f1 conftest.f2 conftest.d1 conftest.d2 conftest.lnk
  ])
  if test "x$gl_cv_func_rename_slash_dst_works" != xyes; then
    REPLACE_RENAME=1
    AC_DEFINE([RENAME_TRAILING_SLASH_DEST_BUG], [1],
      [Define if rename does not correctly handle slashes on the destination
       argument, such as on Solaris 10 or NetBSD 1.6.])
  fi

  dnl SunOS 4.1.1_U1 mistakenly forbids rename("dir/","name").
  dnl Solaris 9 mistakenly allows rename("file/","name").
  dnl FreeBSD 7.2 mistakenly allows rename("link-to-file/","name").
  dnl These bugs require stripping trailing slash to avoid corrupting
  dnl symlinks with a trailing slash.
  AC_CACHE_CHECK([whether rename honors trailing slash on source],
    [gl_cv_func_rename_slash_src_works],
    [rm -rf conftest.f conftest.f1 conftest.d1 conftest.d2 conftest.d3 conftest.lnk
    touch conftest.f && touch conftest.f1 && mkdir conftest.d1 ||
      AC_MSG_ERROR([cannot create temporary files])
    # Assume that if we have lstat, we can also check symlinks.
    if test $ac_cv_func_lstat = yes; then
      ln -s conftest.f conftest.lnk
    fi
    AC_RUN_IFELSE(
      [AC_LANG_PROGRAM([[
#        include <stdio.h>
#        include <stdlib.h>
         ]],
         [[int result = 0;
           if (rename ("conftest.f1/", "conftest.d3") == 0)
             result |= 1;
           if (rename ("conftest.d1/", "conftest.d2") != 0)
             result |= 2;
#if HAVE_LSTAT
           if (rename ("conftest.lnk/", "conftest.f") == 0)
             result |= 4;
#endif
           return result;
         ]])],
      [gl_cv_func_rename_slash_src_works=yes],
      [gl_cv_func_rename_slash_src_works=no],
      dnl When crosscompiling, assume rename is broken.
      [gl_cv_func_rename_slash_src_works="guessing no"])
    rm -rf conftest.f conftest.f1 conftest.d1 conftest.d2 conftest.d3 conftest.lnk
  ])
  if test "x$gl_cv_func_rename_slash_src_works" != xyes; then
    REPLACE_RENAME=1
    AC_DEFINE([RENAME_TRAILING_SLASH_SOURCE_BUG], [1],
      [Define if rename does not correctly handle slashes on the source
       argument, such as on Solaris 9 or cygwin 1.5.])
  fi

  dnl NetBSD 1.6 and cygwin 1.5.x mistakenly reduce hard link count
  dnl on rename("h1","h2").
  dnl This bug requires stat'ting targets prior to attempting rename.
  AC_CACHE_CHECK([whether rename manages hard links correctly],
    [gl_cv_func_rename_link_works],
    [rm -rf conftest.f conftest.f1
    if touch conftest.f && ln conftest.f conftest.f1 &&
        set x `ls -i conftest.f conftest.f1` && test "$2" = "$4"; then
      AC_RUN_IFELSE(
        [AC_LANG_PROGRAM([[
#          include <stdio.h>
#          include <stdlib.h>
#          include <unistd.h>
           ]],
           [[int result = 0;
             if (rename ("conftest.f", "conftest.f1"))
               result |= 1;
             if (unlink ("conftest.f1"))
               result |= 2;
             if (rename ("conftest.f", "conftest.f"))
               result |= 4;
             if (rename ("conftest.f1", "conftest.f1") == 0)
               result |= 8;
             return result;
           ]])],
        [gl_cv_func_rename_link_works=yes],
        [gl_cv_func_rename_link_works=no],
        dnl When crosscompiling, assume rename is broken.
        [gl_cv_func_rename_link_works="guessing no"])
    else
      gl_cv_func_rename_link_works="guessing no"
    fi
    rm -rf conftest.f conftest.f1
  ])
  if test "x$gl_cv_func_rename_link_works" != xyes; then
    REPLACE_RENAME=1
    AC_DEFINE([RENAME_HARD_LINK_BUG], [1],
      [Define if rename fails to leave hard links alone, as on NetBSD 1.6
       or Cygwin 1.5.])
  fi

  dnl Cygwin 1.5.x mistakenly allows rename("dir","file").
  dnl mingw mistakenly forbids rename("dir1","dir2").
  dnl These bugs require stripping trailing slash to avoid corrupting
  dnl symlinks with a trailing slash.
  AC_CACHE_CHECK([whether rename manages existing destinations correctly],
    [gl_cv_func_rename_dest_works],
    [rm -rf conftest.f conftest.d1 conftest.d2
    touch conftest.f && mkdir conftest.d1 conftest.d2 ||
      AC_MSG_ERROR([cannot create temporary files])
    AC_RUN_IFELSE(
      [AC_LANG_PROGRAM([[
#        include <stdio.h>
#        include <stdlib.h>
         ]],
         [[int result = 0;
           if (rename ("conftest.d1", "conftest.d2") != 0)
             result |= 1;
           if (rename ("conftest.d2", "conftest.f") == 0)
             result |= 2;
           return result;
         ]])],
      [gl_cv_func_rename_dest_works=yes],
      [gl_cv_func_rename_dest_works=no],
      dnl When crosscompiling, assume rename is broken.
      [gl_cv_func_rename_dest_works="guessing no"])
    rm -rf conftest.f conftest.d1 conftest.d2
  ])
  if test "x$gl_cv_func_rename_dest_works" != xyes; then
    REPLACE_RENAME=1
    AC_DEFINE([RENAME_DEST_EXISTS_BUG], [1],
      [Define if rename does not work when the destination file exists,
       as on Cygwin 1.5 or Windows.])
  fi
])
Commit	Line	Data
a67f2fce AW	1	# serial 24
	2
	3	# Copyright (C) 2001, 2003, 2005-2006, 2009-2011 Free Software Foundation, Inc.
	4	# This file is free software; the Free Software Foundation
	5	# gives unlimited permission to copy and/or distribute it,
	6	# with or without modifications, as long as this notice is preserved.
	7
	8	dnl From Volker Borchert.
	9	dnl Determine whether rename works for source file names with a trailing slash.
	10	dnl The rename from SunOS 4.1.1_U1 doesn't.
	11	dnl
	12	dnl If it doesn't, then define RENAME_TRAILING_SLASH_BUG and arrange
	13	dnl to compile the wrapper function.
	14	dnl
	15
	16	AC_DEFUN([gl_FUNC_RENAME],
	17	[
	18	AC_REQUIRE([AC_CANONICAL_HOST])
	19	AC_REQUIRE([gl_STDIO_H_DEFAULTS])
	20	AC_CHECK_FUNCS_ONCE([lstat])
	21
	22	dnl Solaris 10, AIX 7.1 mistakenly allow rename("file","name/").
	23	dnl NetBSD 1.6 mistakenly forbids rename("dir","name/").
	24	dnl FreeBSD 7.2 mistakenly allows rename("file","link-to-file/").
	25	dnl The Solaris bug can be worked around without stripping
	26	dnl trailing slash, while the NetBSD bug requires stripping;
	27	dnl the two conditions can be distinguished by whether hard
	28	dnl links are also broken.
	29	AC_CACHE_CHECK([whether rename honors trailing slash on destination],
	30	[gl_cv_func_rename_slash_dst_works],
	31	[rm -rf conftest.f conftest.f1 conftest.f2 conftest.d1 conftest.d2 conftest.lnk
	32	touch conftest.f && touch conftest.f1 && mkdir conftest.d1 \|\|
	33	AC_MSG_ERROR([cannot create temporary files])
	34	# Assume that if we have lstat, we can also check symlinks.
	35	if test $ac_cv_func_lstat = yes; then
	36	ln -s conftest.f conftest.lnk
	37	fi
	38	AC_RUN_IFELSE(
	39	[AC_LANG_PROGRAM([[
	40	# include <stdio.h>
	41	# include <stdlib.h>
	42	]],
	43	[[int result = 0;
	44	if (rename ("conftest.f1", "conftest.f2/") == 0)
	45	result \|= 1;
	46	if (rename ("conftest.d1", "conftest.d2/") != 0)
	47	result \|= 2;
	48	#if HAVE_LSTAT
	49	if (rename ("conftest.f", "conftest.lnk/") == 0)
	50	result \|= 4;
	51	#endif
	52	return result;
	53	]])],
	54	[gl_cv_func_rename_slash_dst_works=yes],
	55	[gl_cv_func_rename_slash_dst_works=no],
	56	dnl When crosscompiling, assume rename is broken.
	57	[gl_cv_func_rename_slash_dst_works="guessing no"])
	58	rm -rf conftest.f conftest.f1 conftest.f2 conftest.d1 conftest.d2 conftest.lnk
	59	])
	60	if test "x$gl_cv_func_rename_slash_dst_works" != xyes; then
	61	REPLACE_RENAME=1
	62	AC_DEFINE([RENAME_TRAILING_SLASH_DEST_BUG], [1],
	63	[Define if rename does not correctly handle slashes on the destination
	64	argument, such as on Solaris 10 or NetBSD 1.6.])
65	fi
66
67	dnl SunOS 4.1.1_U1 mistakenly forbids rename("dir/","name").
68	dnl Solaris 9 mistakenly allows rename("file/","name").
69	dnl FreeBSD 7.2 mistakenly allows rename("link-to-file/","name").
70	dnl These bugs require stripping trailing slash to avoid corrupting
71	dnl symlinks with a trailing slash.
72	AC_CACHE_CHECK([whether rename honors trailing slash on source],
73	[gl_cv_func_rename_slash_src_works],
74	[rm -rf conftest.f conftest.f1 conftest.d1 conftest.d2 conftest.d3 conftest.lnk
75	touch conftest.f && touch conftest.f1 && mkdir conftest.d1 \|\|
76	AC_MSG_ERROR([cannot create temporary files])
77	# Assume that if we have lstat, we can also check symlinks.
78	if test $ac_cv_func_lstat = yes; then
79	ln -s conftest.f conftest.lnk
80	fi
81	AC_RUN_IFELSE(
82	[AC_LANG_PROGRAM([[
83	# include <stdio.h>
84	# include <stdlib.h>
85	]],
86	[[int result = 0;
87	if (rename ("conftest.f1/", "conftest.d3") == 0)
88	result \|= 1;
89	if (rename ("conftest.d1/", "conftest.d2") != 0)
90	result \|= 2;
91	#if HAVE_LSTAT
92	if (rename ("conftest.lnk/", "conftest.f") == 0)
93	result \|= 4;
94	#endif
95	return result;
96	]])],
97	[gl_cv_func_rename_slash_src_works=yes],
98	[gl_cv_func_rename_slash_src_works=no],
99	dnl When crosscompiling, assume rename is broken.
100	[gl_cv_func_rename_slash_src_works="guessing no"])
101	rm -rf conftest.f conftest.f1 conftest.d1 conftest.d2 conftest.d3 conftest.lnk
102	])
103	if test "x$gl_cv_func_rename_slash_src_works" != xyes; then
104	REPLACE_RENAME=1
105	AC_DEFINE([RENAME_TRAILING_SLASH_SOURCE_BUG], [1],
106	[Define if rename does not correctly handle slashes on the source
107	argument, such as on Solaris 9 or cygwin 1.5.])
108	fi
109
110	dnl NetBSD 1.6 and cygwin 1.5.x mistakenly reduce hard link count
111	dnl on rename("h1","h2").
112	dnl This bug requires stat'ting targets prior to attempting rename.
113	AC_CACHE_CHECK([whether rename manages hard links correctly],
114	[gl_cv_func_rename_link_works],
115	[rm -rf conftest.f conftest.f1
116	if touch conftest.f && ln conftest.f conftest.f1 &&
117	set x `ls -i conftest.f conftest.f1` && test "$2" = "$4"; then
118	AC_RUN_IFELSE(
119	[AC_LANG_PROGRAM([[
120	# include <stdio.h>
121	# include <stdlib.h>
122	# include <unistd.h>
123	]],
124	[[int result = 0;
125	if (rename ("conftest.f", "conftest.f1"))
126	result \|= 1;
127	if (unlink ("conftest.f1"))
128	result \|= 2;
129	if (rename ("conftest.f", "conftest.f"))
130	result \|= 4;
131	if (rename ("conftest.f1", "conftest.f1") == 0)
132	result \|= 8;
133	return result;
134	]])],
135	[gl_cv_func_rename_link_works=yes],
136	[gl_cv_func_rename_link_works=no],
137	dnl When crosscompiling, assume rename is broken.
138	[gl_cv_func_rename_link_works="guessing no"])
139	else
140	gl_cv_func_rename_link_works="guessing no"
141	fi
142	rm -rf conftest.f conftest.f1
143	])
144	if test "x$gl_cv_func_rename_link_works" != xyes; then
145	REPLACE_RENAME=1
146	AC_DEFINE([RENAME_HARD_LINK_BUG], [1],
147	[Define if rename fails to leave hard links alone, as on NetBSD 1.6
148	or Cygwin 1.5.])
149	fi
150
151	dnl Cygwin 1.5.x mistakenly allows rename("dir","file").
152	dnl mingw mistakenly forbids rename("dir1","dir2").
153	dnl These bugs require stripping trailing slash to avoid corrupting
154	dnl symlinks with a trailing slash.
155	AC_CACHE_CHECK([whether rename manages existing destinations correctly],
156	[gl_cv_func_rename_dest_works],
157	[rm -rf conftest.f conftest.d1 conftest.d2
158	touch conftest.f && mkdir conftest.d1 conftest.d2 \|\|
159	AC_MSG_ERROR([cannot create temporary files])
160	AC_RUN_IFELSE(
161	[AC_LANG_PROGRAM([[
162	# include <stdio.h>
163	# include <stdlib.h>
164	]],
165	[[int result = 0;
166	if (rename ("conftest.d1", "conftest.d2") != 0)
167	result \|= 1;
168	if (rename ("conftest.d2", "conftest.f") == 0)
169	result \|= 2;
170	return result;
171	]])],
172	[gl_cv_func_rename_dest_works=yes],
173	[gl_cv_func_rename_dest_works=no],
174	dnl When crosscompiling, assume rename is broken.
175	[gl_cv_func_rename_dest_works="guessing no"])
176	rm -rf conftest.f conftest.d1 conftest.d2
177	])
178	if test "x$gl_cv_func_rename_dest_works" != xyes; then
179	REPLACE_RENAME=1
180	AC_DEFINE([RENAME_DEST_EXISTS_BUG], [1],
181	[Define if rename does not work when the destination file exists,
182	as on Cygwin 1.5 or Windows.])
183	fi
184	])