comparison src/lread.c @ 9790:637b4664f7a5

Change explicit uses of the Unix directory separator '/' to uses of the macros IS_ANY_SEP, IS_DIRECTORY_SEP, IS_DEVICE_SEP, DIRECTORY_SEP, and DEVICE_SEP. (init_lread) [WINDOWSNT]: Disable warnings about directories in the load path not existing. (load): Test DOS_NT instead of MSDOS.

9789:a1e6724db219

  struct gcpro gcpro1;
  Lisp_Object found;
  /* 1 means inhibit the message at the beginning.  */
  int nomessage1 = 0;
  Lisp_Object handler;
#ifdef MSDOS
  char *dosmode = "rt";
#endif

  CHECK_STRING (str, 0);
  str = Fsubstitute_in_file_name (str);

  /* If file name is magic, call the handler.  */

	     ".elc", 4))
    {
      struct stat s1, s2;
      int result;

#ifdef MSDOS
      dosmode = "rb";
#endif
      stat ((char *)XSTRING (found)->data, &s1);
      XSTRING (found)->data[XSTRING (found)->size - 1] = 0;
      result = stat ((char *)XSTRING (found)->data, &s2);
      if (result >= 0 && (unsigned) s1.st_mtime < (unsigned) s2.st_mtime)
	{

	    nomessage1 = 1;
	}
      XSTRING (found)->data[XSTRING (found)->size - 1] = 'c';
    }

#ifdef MSDOS
  close (fd);
  stream = fopen ((char *) XSTRING (found)->data, dosmode);
#else
  stream = fdopen (fd, "r");
#endif
  if (stream == 0)
    {
      close (fd);
      error ("Failure to create stdio stream for %s", XSTRING (str)->data);
    }

static int
complete_filename_p (pathname)
     Lisp_Object pathname;
{
  register unsigned char *s = XSTRING (pathname)->data;
  return (*s == '/'
#ifdef ALTOS
	  || *s == '@'
#endif
#ifdef VMS
	  || index (s, ':')
#endif /* VMS */
#ifdef MSDOS	/* MW, May 1993 */
	  || (s[0] != '\0' && s[1] == ':' && s[2] == '/')
#endif
	  );
}

/* Search for a file whose name is STR, looking in directories
   in the Lisp list PATH, and trying suffixes from SUFFIX.

    }
  else
    Vload_path = decode_env_path (0, normal);
#endif

  /* Warn if dirs in the *standard* path don't exist.  */
  {
    Lisp_Object path_tail;

    for (path_tail = Vload_path;

		       "Warning: Lisp directory `%s' does not exist.\n",
		       XSTRING (Fcar (path_tail))->data);
	  }
      }
  }

  /* If the EMACSLOADPATH environment variable is set, use its value.
     This doesn't apply if we're dumping.  */
  if (NILP (Vpurify_flag)
      && egetenv ("EMACSLOADPATH"))

9790:637b4664f7a5

  struct gcpro gcpro1;
  Lisp_Object found;
  /* 1 means inhibit the message at the beginning.  */
  int nomessage1 = 0;
  Lisp_Object handler;
#ifdef DOS_NT
  char *dosmode = "rt";
#endif /* DOS_NT */

  CHECK_STRING (str, 0);
  str = Fsubstitute_in_file_name (str);

  /* If file name is magic, call the handler.  */

	     ".elc", 4))
    {
      struct stat s1, s2;
      int result;

#ifdef DOS_NT
      dosmode = "rb";
#endif /* DOS_NT */
      stat ((char *)XSTRING (found)->data, &s1);
      XSTRING (found)->data[XSTRING (found)->size - 1] = 0;
      result = stat ((char *)XSTRING (found)->data, &s2);
      if (result >= 0 && (unsigned) s1.st_mtime < (unsigned) s2.st_mtime)
	{

	    nomessage1 = 1;
	}
      XSTRING (found)->data[XSTRING (found)->size - 1] = 'c';
    }

#ifdef DOS_NT
  close (fd);
  stream = fopen ((char *) XSTRING (found)->data, dosmode);
#else  /* not DOS_NT */
  stream = fdopen (fd, "r");
#endif /* not DOS_NT */
  if (stream == 0)
    {
      close (fd);
      error ("Failure to create stdio stream for %s", XSTRING (str)->data);
    }

static int
complete_filename_p (pathname)
     Lisp_Object pathname;
{
  register unsigned char *s = XSTRING (pathname)->data;
  return (IS_DIRECTORY_SEP (s[0])
	  || (XSTRING (pathname)->size > 2
	      && IS_DEVICE_SEP (s[1]) && IS_DIRECTORY_SEP (s[2]))
#ifdef ALTOS
	  || *s == '@'
#endif
#ifdef VMS
	  || index (s, ':')
#endif /* VMS */
	  );
}

/* Search for a file whose name is STR, looking in directories
   in the Lisp list PATH, and trying suffixes from SUFFIX.

    }
  else
    Vload_path = decode_env_path (0, normal);
#endif

#ifndef WINDOWSNT
  /* When Emacs is invoked over network shares on NT, PATH_LOADSEARCH is 
     almost never correct, thereby causing a warning to be printed out that 
     confuses users.  Since PATH_LOADSEARCH is always overriden by the
     EMACSLOADPATH environment variable below, disable the warning on NT.  */

  /* Warn if dirs in the *standard* path don't exist.  */
  {
    Lisp_Object path_tail;

    for (path_tail = Vload_path;

		       "Warning: Lisp directory `%s' does not exist.\n",
		       XSTRING (Fcar (path_tail))->data);
	  }
      }
  }
#endif /* WINDOWSNT */

  /* If the EMACSLOADPATH environment variable is set, use its value.
     This doesn't apply if we're dumping.  */
  if (NILP (Vpurify_flag)
      && egetenv ("EMACSLOADPATH"))