comparison src/fileio.c @ 83455:8438f5473d99

Merged from [e-mail]--gnu-2005 (patch 174-181, 685-690) Patches applied: * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-685 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-686 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-687 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-688 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-689 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-690 Merge from gnus--rel--5.10 * [e-mail]--gnu-2005/gnus--rel--5.10--patch-174 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-175 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-176 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-177 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-178 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-179 Update from CVS: texi/gnus.texi (RSS): Addition. * [e-mail]--gnu-2005/gnus--rel--5.10--patch-180 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-181 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-495

83454:845a93c68e9a

/* File IO for GNU Emacs.
   Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 1996,
                 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
                 2005 Free Software Foundation, Inc.

This file is part of GNU Emacs.

GNU Emacs is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by

#else /* not VMS */
      if (!IS_DIRECTORY_SEP (*p))
	{
	  *o++ = *p++;
	}
      else if (IS_DIRECTORY_SEP (p[0])
	       && p[1] == '.'
	       && (IS_DIRECTORY_SEP (p[2])
		   || p[2] == 0))
	{
	  /* If "/." is the entire filename, keep the "/".  Otherwise,
	     just delete the whole "/.".  */
	  if (o == target && p[2] == '\0')
	    *o++ = *p;
	  p += 2;
	}
      else if (IS_DIRECTORY_SEP (p[0]) && p[1] == '.' && p[2] == '.'
	       /* `/../' is the "superroot" on certain file systems.
		  Turned off on DOS_NT systems because they have no
		  "superroot" and because this causes us to produce
		  file names like "d:/../foo" which fail file-related
		  functions of the underlying OS.  (To reproduce, try a

	  /* Keep initial / only if this is the whole name.  */
	  if (o == target && IS_ANY_SEP (*o) && p[3] == 0)
	    ++o;
	  p += 3;
	}
      else if (p > target
	       && IS_DIRECTORY_SEP (p[0]) && IS_DIRECTORY_SEP (p[1]))
	{
	  /* Collapse multiple `/' in a row.  */
	  *o++ = *p++;
	  while (IS_DIRECTORY_SEP (*p))
	    ++p;
	}
      else
	{
	  *o++ = *p++;
	}
#endif /* not VMS */

83455:8438f5473d99

/* File IO for GNU Emacs.
   Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 1996,
                 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
                 2005, 2006 Free Software Foundation, Inc.

This file is part of GNU Emacs.

GNU Emacs is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by

#else /* not VMS */
      if (!IS_DIRECTORY_SEP (*p))
	{
	  *o++ = *p++;
	}
      else if (p[1] == '.'
	       && (IS_DIRECTORY_SEP (p[2])
		   || p[2] == 0))
	{
	  /* If "/." is the entire filename, keep the "/".  Otherwise,
	     just delete the whole "/.".  */
	  if (o == target && p[2] == '\0')
	    *o++ = *p;
	  p += 2;
	}
      else if (p[1] == '.' && p[2] == '.'
	       /* `/../' is the "superroot" on certain file systems.
		  Turned off on DOS_NT systems because they have no
		  "superroot" and because this causes us to produce
		  file names like "d:/../foo" which fail file-related
		  functions of the underlying OS.  (To reproduce, try a

	  /* Keep initial / only if this is the whole name.  */
	  if (o == target && IS_ANY_SEP (*o) && p[3] == 0)
	    ++o;
	  p += 3;
	}
      else if (p > target && IS_DIRECTORY_SEP (p[1]))
	/* Collapse multiple `/' in a row.  */
	p++;
      else
	{
	  *o++ = *p++;
	}
#endif /* not VMS */