comparison src/lread.c @ 5496:24f0d2908e61

[MSDOS]: Use text mode for all files but ".elc" files. (complete_file_name) [MSDOS]: Drive letter support.

5495:87f9165f5b14

#ifdef LISP_FLOAT_TYPE
#ifdef STDC_HEADERS
#include <stdlib.h>
#endif
#include <math.h>
#endif /* LISP_FLOAT_TYPE */

Lisp_Object Qread_char, Qget_file_char, Qstandard_input, Qcurrent_load_list;
Lisp_Object Qvariable_documentation, Vvalues, Vstandard_input, Vafter_load_alist;

  struct gcpro gcpro1;
  Lisp_Object found;
  /* 1 means inhibit the message at the beginning.  */
  int nomessage1 = 0;
  Lisp_Object handler;

  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;

      stat (XSTRING (found)->data, &s1);
      XSTRING (found)->data[XSTRING (found)->size - 1] = 0;
      result = stat (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';
    }

  stream = fdopen (fd, "r");
  if (stream == 0)
    {
      close (fd);
      error ("Failure to create stdio stream for %s", XSTRING (str)->data);
    }

	  || *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.

5496:24f0d2908e61

#ifdef LISP_FLOAT_TYPE
#ifdef STDC_HEADERS
#include <stdlib.h>
#endif

#if 0 /* That is untrue--XINT is used below, and it uses INTBITS.
	 What in the world is values.h, anyway?  */
#ifdef MSDOS
/* These are redefined in <values.h> and not used here */
#undef INTBITS
#undef LONGBITS
#undef SHORTBITS
#endif
#endif

#include <math.h>
#endif /* LISP_FLOAT_TYPE */

Lisp_Object Qread_char, Qget_file_char, Qstandard_input, Qcurrent_load_list;
Lisp_Object Qvariable_documentation, Vvalues, Vstandard_input, Vafter_load_alist;

  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 (XSTRING (found)->data, &s1);
      XSTRING (found)->data[XSTRING (found)->size - 1] = 0;
      result = stat (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);
    }

	  || *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.