#define IS_DRIVE(x) ((x) >= 'A' && (x) <= 'z')
#endif
#ifdef WINDOWSNT
-#define IS_DRIVE(x) isalpha (x)
+#define IS_DRIVE(x) isalpha ((unsigned char) (x))
#endif
/* Need to lower-case the drive letter, or else expanded
filenames will sometimes compare inequal, because
`expand-file-name' doesn't always down-case the drive letter. */
-#define DRIVE_LETTER(x) (tolower (x))
+#define DRIVE_LETTER(x) (tolower ((unsigned char) (x)))
#endif
#include "systime.h"
int c;
str = SSDATA (errstring);
- c = STRING_CHAR (str);
+ c = STRING_CHAR ((unsigned char *) str);
Faset (errstring, make_number (0), make_number (DOWNCASE (c)));
}
(Lisp_Object filename)
{
#ifndef DOS_NT
- register const unsigned char *beg;
+ register const char *beg;
#else
- register unsigned char *beg;
+ register char *beg;
#endif
- register const unsigned char *p;
+ register const char *p;
Lisp_Object handler;
CHECK_STRING (filename);
filename = FILE_SYSTEM_CASE (filename);
#ifdef DOS_NT
- beg = (unsigned char *) alloca (SBYTES (filename) + 1);
- memcpy (beg, SDATA (filename), SBYTES (filename) + 1);
+ beg = (char *) alloca (SBYTES (filename) + 1);
+ memcpy (beg, SSDATA (filename), SBYTES (filename) + 1);
#else
- beg = SDATA (filename);
+ beg = SSDATA (filename);
#endif
p = beg + SBYTES (filename);
if (p[-1] == ':')
{
/* MAXPATHLEN+1 is guaranteed to be enough space for getdefdir. */
- unsigned char *res = alloca (MAXPATHLEN + 1);
- unsigned char *r = res;
+ char *res = alloca (MAXPATHLEN + 1);
+ char *r = res;
if (p == beg + 4 && IS_DIRECTORY_SEP (*beg) && beg[1] == ':')
{
r += 2;
}
- if (getdefdir (toupper (*beg) - 'A' + 1, r))
+ if (getdefdir (toupper ((unsigned char) *beg) - 'A' + 1, r))
{
if (!IS_DIRECTORY_SEP (res[strlen (res) - 1]))
strcat (res, "/");
or the entire name if it contains no slash. */)
(Lisp_Object filename)
{
- register const unsigned char *beg, *p, *end;
+ register const char *beg, *p, *end;
Lisp_Object handler;
CHECK_STRING (filename);
if (!NILP (handler))
return call2 (handler, Qfile_name_nondirectory, filename);
- beg = SDATA (filename);
+ beg = SSDATA (filename);
end = p = beg + SBYTES (filename);
while (p != beg && !IS_DIRECTORY_SEP (p[-1])
Lisp_Object val;
int len, clen;
int pid;
- unsigned char *p, *data;
+ char *p, *data;
char pidbuf[20];
int pidlen;
val = make_uninit_multibyte_string (clen + 3 + pidlen, len + 3 + pidlen);
if (!STRING_MULTIBYTE (prefix))
STRING_SET_UNIBYTE (val);
- data = SDATA (val);
- memcpy (data, SDATA (prefix), len);
+ data = SSDATA (val);
+ memcpy (data, SSDATA (prefix), len);
p = data + len;
memcpy (p, pidbuf, pidlen);
{
/* These point to SDATA and need to be careful with string-relocation
during GC (via DECODE_FILE). */
- unsigned char *nm, *newdir;
+ char *nm, *newdir;
/* This should only point to alloca'd data. */
- unsigned char *target;
+ char *target;
int tlen;
struct passwd *pw;
}
{
- unsigned char *o = SDATA (default_directory);
+ char *o = SSDATA (default_directory);
/* Make sure DEFAULT_DIRECTORY is properly expanded.
It would be better to do this down below where we actually use
}
/* Make a local copy of nm[] to protect it from GC in DECODE_FILE below. */
- nm = (unsigned char *) alloca (SBYTES (name) + 1);
- memcpy (nm, SDATA (name), SBYTES (name) + 1);
+ nm = (char *) alloca (SBYTES (name) + 1);
+ memcpy (nm, SSDATA (name), SBYTES (name) + 1);
#ifdef DOS_NT
/* Note if special escape prefix is present, but remove for now. */
drive specifier at the beginning. */
if (IS_DRIVE (nm[0]) && IS_DEVICE_SEP (nm[1]))
{
- drive = nm[0];
+ drive = (unsigned char) nm[0];
nm += 2;
}
non-zero value, that means we've discovered that we can't do
that cool trick. */
int lose = 0;
- unsigned char *p = nm;
+ char *p = nm;
while (*p)
{
else
#endif
/* drive must be set, so this is okay */
- if (strcmp (nm - 2, SDATA (name)) != 0)
+ if (strcmp (nm - 2, SSDATA (name)) != 0)
{
char temp[] = " :";
{
Lisp_Object tem;
- if (!(newdir = (unsigned char *) egetenv ("HOME")))
- newdir = (unsigned char *) "";
+ if (!(newdir = egetenv ("HOME")))
+ newdir = "";
nm++;
/* egetenv may return a unibyte string, which will bite us since
we expect the directory to be multibyte. */
if (!STRING_MULTIBYTE (tem))
{
hdir = DECODE_FILE (tem);
- newdir = SDATA (hdir);
+ newdir = SSDATA (hdir);
}
#ifdef DOS_NT
collapse_newdir = 0;
}
else /* ~user/filename */
{
- unsigned char *o, *p;
+ char *o, *p;
for (p = nm; *p && (!IS_DIRECTORY_SEP (*p)); p++);
o = alloca (p - nm + 1);
memcpy (o, nm, p - nm);
UNBLOCK_INPUT;
if (pw)
{
- newdir = (unsigned char *) pw -> pw_dir;
+ newdir = pw->pw_dir;
nm = p;
#ifdef DOS_NT
collapse_newdir = 0;
#endif
&& !newdir)
{
- newdir = SDATA (default_directory);
+ newdir = SSDATA (default_directory);
#ifdef DOS_NT
/* Note if special escape prefix is present, but remove for now. */
if (newdir[0] == '/' && newdir[1] == ':')
if (IS_DRIVE (newdir[0]) && IS_DEVICE_SEP (newdir[1]))
{
- drive = newdir[0];
+ drive = (unsigned char) newdir[0];
newdir += 2;
}
if (!IS_DIRECTORY_SEP (nm[0]))
#ifdef WINDOWSNT
if (IS_DIRECTORY_SEP (newdir[0]) && IS_DIRECTORY_SEP (newdir[1]))
{
- unsigned char *p;
+ char *p;
newdir = strcpy (alloca (strlen (newdir) + 1), newdir);
p = newdir + 2;
while (*p && !IS_DIRECTORY_SEP (*p)) p++;
#endif
)
{
- unsigned char *temp = (unsigned char *) alloca (length);
+ char *temp = (char *) alloca (length);
memcpy (temp, newdir, length - 1);
temp[length - 1] = 0;
newdir = temp;
/* Reserve space for drive specifier and escape prefix, since either
or both may need to be inserted. (The Microsoft x86 compiler
produces incorrect code if the following two lines are combined.) */
- target = (unsigned char *) alloca (tlen + 4);
+ target = (char *) alloca (tlen + 4);
target += 4;
#else /* not DOS_NT */
- target = (unsigned char *) alloca (tlen);
+ target = (char *) alloca (tlen);
#endif /* not DOS_NT */
*target = 0;
/* Now canonicalize by removing `//', `/.' and `/foo/..' if they
appear. */
{
- unsigned char *p = target;
- unsigned char *o = target;
+ char *p = target;
+ char *o = target;
while (*p)
{
&& (IS_DIRECTORY_SEP (p[3]) || p[3] == 0))
{
#ifdef WINDOWSNT
- unsigned char *prev_o = o;
+ char *prev_o = o;
#endif
while (o != target && (--o) && !IS_DIRECTORY_SEP (*o))
;
\f
/* If /~ or // appears, discard everything through first slash. */
static int
-file_name_absolute_p (const unsigned char *filename)
+file_name_absolute_p (const char *filename)
{
return
(IS_DIRECTORY_SEP (*filename) || *filename == '~'
);
}
-static unsigned char *
-search_embedded_absfilename (unsigned char *nm, unsigned char *endp)
+static char *
+search_embedded_absfilename (char *nm, char *endp)
{
- unsigned char *p, *s;
+ char *p, *s;
for (p = nm + 1; p < endp; p++)
{
for (s = p; *s && (!IS_DIRECTORY_SEP (*s)); s++);
if (p[0] == '~' && s > p + 1) /* we've got "/~something/" */
{
- unsigned char *o = alloca (s - p + 1);
+ char *o = alloca (s - p + 1);
struct passwd *pw;
memcpy (o, p, s - p);
o [s - p] = 0;
those `/' is discarded. */)
(Lisp_Object filename)
{
- unsigned char *nm;
+ char *nm;
- register unsigned char *s, *p, *o, *x, *endp;
- unsigned char *target = NULL;
+ register char *s, *p, *o, *x, *endp;
+ char *target = NULL;
int total = 0;
int substituted = 0;
int multibyte;
- unsigned char *xnm;
+ char *xnm;
Lisp_Object handler;
CHECK_STRING (filename);
/* Always work on a copy of the string, in case GC happens during
decode of environment variables, causing the original Lisp_String
data to be relocated. */
- nm = (unsigned char *) alloca (SBYTES (filename) + 1);
+ nm = (char *) alloca (SBYTES (filename) + 1);
memcpy (nm, SDATA (filename), SBYTES (filename) + 1);
#ifdef DOS_NT
}
/* Copy out the variable name */
- target = (unsigned char *) alloca (s - o + 1);
+ target = (char *) alloca (s - o + 1);
strncpy (target, o, s - o);
target[s - o] = 0;
#ifdef DOS_NT
#endif /* DOS_NT */
/* Get variable value */
- o = (unsigned char *) egetenv (target);
+ o = egetenv (target);
if (o)
{
/* Don't try to guess a maximum length - UTF8 can use up to
/* If substitution required, recopy the string and do it */
/* Make space in stack frame for the new copy */
- xnm = (unsigned char *) alloca (SBYTES (filename) + total + 1);
+ xnm = (char *) alloca (SBYTES (filename) + total + 1);
x = xnm;
/* Copy the rest of the name through, replacing $ constructs with values */
}
/* Copy out the variable name */
- target = (unsigned char *) alloca (s - o + 1);
+ target = (char *) alloca (s - o + 1);
strncpy (target, o, s - o);
target[s - o] = 0;
#ifdef DOS_NT
#endif /* DOS_NT */
/* Get variable value */
- o = (unsigned char *) egetenv (target);
+ o = egetenv (target);
if (!o)
{
*x++ = '$';
If QUICK is nonzero, we ask for y or n, not yes or no. */
void
-barf_or_query_if_file_exists (Lisp_Object absname, const unsigned char *querystring, int interactive, struct stat *statptr, int quick)
+barf_or_query_if_file_exists (Lisp_Object absname, const char *querystring,
+ int interactive, struct stat *statptr, int quick)
{
register Lisp_Object tem, encoded_filename;
struct stat statbuf;
doc: /* Create a new directory named DIRECTORY. */)
(Lisp_Object directory)
{
- const unsigned char *dir;
+ const char *dir;
Lisp_Object handler;
Lisp_Object encoded_dir;
encoded_dir = ENCODE_FILE (directory);
- dir = SDATA (encoded_dir);
+ dir = SSDATA (encoded_dir);
#ifdef WINDOWSNT
if (mkdir (dir) != 0)
doc: /* Delete the directory named DIRECTORY. Does not follow symlinks. */)
(Lisp_Object directory)
{
- const unsigned char *dir;
+ const char *dir;
Lisp_Object handler;
Lisp_Object encoded_dir;
CHECK_STRING (directory);
directory = Fdirectory_file_name (Fexpand_file_name (directory, Qnil));
encoded_dir = ENCODE_FILE (directory);
- dir = SDATA (encoded_dir);
+ dir = SSDATA (encoded_dir);
if (rmdir (dir) != 0)
report_file_error ("Removing directory", list1 (directory));
(Lisp_Object filename)
{
CHECK_STRING (filename);
- return file_name_absolute_p (SDATA (filename)) ? Qt : Qnil;
+ return file_name_absolute_p (SSDATA (filename)) ? Qt : Qnil;
}
\f
/* Return nonzero if file FILENAME exists and can be executed. */
immediate_quit = 1;
QUIT;
nbytes = emacs_read (non_regular_fd,
- BEG_ADDR + PT_BYTE - BEG_BYTE + non_regular_inserted,
+ ((char *) BEG_ADDR + PT_BYTE - BEG_BYTE
+ + non_regular_inserted),
non_regular_nbytes);
immediate_quit = 0;
return make_number (nbytes);
Lisp_Object p;
EMACS_INT total = 0;
int not_regular = 0;
- unsigned char read_buf[READ_BUF_SIZE];
+ char read_buf[READ_BUF_SIZE];
struct coding_system coding;
- unsigned char buffer[1 << 14];
+ char buffer[1 << 14];
int replace_handled = 0;
int set_coding_system = 0;
Lisp_Object coding_system;
nread = emacs_read (fd, buffer, sizeof buffer);
if (nread < 0)
error ("IO error reading %s: %s",
- SDATA (orig_filename), emacs_strerror (errno));
+ SSDATA (orig_filename), emacs_strerror (errno));
else if (nread == 0)
break;
if (CODING_REQUIRE_DETECTION (&coding))
{
- coding_system = detect_coding_system (buffer, nread, nread, 1, 0,
+ coding_system = detect_coding_system ((unsigned char *) buffer,
+ nread, nread, 1, 0,
coding_system);
setup_coding_system (coding_system, &coding);
}
BUF_TEMP_SET_PT (XBUFFER (conversion_buffer),
BUF_Z (XBUFFER (conversion_buffer)));
- decode_coding_c_string (&coding, read_buf, unprocessed + this,
- conversion_buffer);
+ decode_coding_c_string (&coding, (unsigned char *) read_buf,
+ unprocessed + this, conversion_buffer);
unprocessed = coding.carryover_bytes;
if (coding.carryover_bytes > 0)
memcpy (read_buf, coding.carryover, unprocessed);
if (unprocessed > 0)
{
coding.mode |= CODING_MODE_LAST_BLOCK;
- decode_coding_c_string (&coding, read_buf, unprocessed,
- conversion_buffer);
+ decode_coding_c_string (&coding, (unsigned char *) read_buf,
+ unprocessed, conversion_buffer);
coding.mode &= ~CODING_MODE_LAST_BLOCK;
}
here doesn't do any harm. */
immediate_quit = 1;
QUIT;
- this = emacs_read (fd, BEG_ADDR + PT_BYTE - BEG_BYTE + inserted, trytry);
+ this = emacs_read (fd,
+ ((char *) BEG_ADDR + PT_BYTE - BEG_BYTE
+ + inserted),
+ trytry);
immediate_quit = 0;
}
register int desc;
int failure;
int save_errno = 0;
- const unsigned char *fn;
+ const char *fn;
struct stat st;
int count = SPECPDL_INDEX ();
int count1;
encoded_filename = ENCODE_FILE (filename);
- fn = SDATA (encoded_filename);
+ fn = SSDATA (encoded_filename);
desc = -1;
if (!NILP (append))
#ifdef DOS_NT
HCoop / bpt / emacs.git / commitdiff