comparison src/msdos.c @ 15219:a800d1a0f07e

(msdos_downcase_filename): New function to convert case in filenames. (Fmsdos_downcase_filename): New function. (syms_of_msdos): Defsubr it.

15218:12a9c8b48830

      p++;
    }
}

/* Get the default directory for a given drive.  0=def, 1=A, 2=B, ...  */

int
getdefdir (drive, dst)
     int drive;
     char *dst;

  errno = 0;
  _fixpath (in_path, dst);
  if (errno)
    return 0;

  /* Under LFN we expect to get pathnames in their true case.  */
  if (! (_USE_LFN))
    for (p = dst; *p; p++)
      if (*p >= 'A' && *p <= 'Z')
	*p += 'a' - 'A';

  errno = e;
  return 1;
}

  0, 0, 0,
  "Return non-nil if long file names are supported on MSDOS.")
  ()
{
  return (_USE_LFN ? Qt : Qnil);
}

/* The Emacs root directory as determined by init_environment.  */

static char emacsroot[MAXPATHLEN];

  recent_doskeys = Fmake_vector (make_number (NUM_RECENT_DOSKEYS), Qnil);
  staticpro (&recent_doskeys);

  defsubr (&Srecent_doskeys);
  defsubr (&Smsdos_long_file_names);
}

#endif /* MSDOS */

15219:a800d1a0f07e

      p++;
    }
}

/* Get the default directory for a given drive.  0=def, 1=A, 2=B, ...  */
void msdos_downcase_filename (unsigned char *);

int
getdefdir (drive, dst)
     int drive;
     char *dst;

  errno = 0;
  _fixpath (in_path, dst);
  if (errno)
    return 0;

  msdos_downcase_filename (dst);

  errno = e;
  return 1;
}

  0, 0, 0,
  "Return non-nil if long file names are supported on MSDOS.")
  ()
{
  return (_USE_LFN ? Qt : Qnil);
}

/* Convert alphabetic characters in a filename to lower-case.  */

void
msdos_downcase_filename (p)
     register unsigned char *p;
{
  /* Under LFN we expect to get pathnames in their true case.  */
  if (NILP (Fmsdos_long_file_names ()))
    for ( ; *p; p++)
      if (*p >= 'A' && *p <= 'Z')
	*p += 'a' - 'A';
}

DEFUN ("msdos-downcase-filename", Fmsdos_downcase_filename, Smsdos_downcase_filename,
       1, 1, 0,
  "Convert alphabetic characters in FILENAME to lower case and return that.\n\
When long filenames are supported, doesn't change FILENAME.")
  (filename)
     Lisp_Object filename;
{
  char *fname = XSTRING (filename)->data;

  msdos_downcase_filename (fname);
  return make_string (fname, XSTRING (filename)->size);
}

/* The Emacs root directory as determined by init_environment.  */

static char emacsroot[MAXPATHLEN];

  recent_doskeys = Fmake_vector (make_number (NUM_RECENT_DOSKEYS), Qnil);
  staticpro (&recent_doskeys);

  defsubr (&Srecent_doskeys);
  defsubr (&Smsdos_long_file_names);
  defsubr (&Smsdos_downcase_filename);
}

#endif /* MSDOS */