/* Proxy shell designed for use with Emacs on Windows 95 and NT.
- Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
- 2008, 2009, 2010 Free Software Foundation, Inc.
+ Copyright (C) 1997, 2001-2011 Free Software Foundation, Inc.
Accepts subset of Unix sh(1) command-line options, for compatibility
with elisp code written for Unix. When possible, executes external
#include <malloc.h> /* alloca */
#include <stdlib.h> /* getenv */
#include <string.h> /* strlen */
+#include <ctype.h> /* isspace, isalpha */
/* We don't want to include stdio.h because we are already duplicating
lots of it here */
/* These routines are used primarily to minimize the executable size. */
-#define stdin GetStdHandle (STD_INPUT_HANDLE)
#define stdout GetStdHandle (STD_OUTPUT_HANDLE)
#define stderr GetStdHandle (STD_ERROR_HANDLE)
int
-vfprintf(HANDLE hnd, char * msg, va_list args)
+vfprintf (HANDLE hnd, const char * msg, va_list args)
{
DWORD bytes_written;
char buf[1024];
}
int
-fprintf(HANDLE hnd, char * msg, ...)
+fprintf (HANDLE hnd, const char * msg, ...)
{
va_list args;
int rc;
}
int
-printf(char * msg, ...)
+printf (const char * msg, ...)
{
va_list args;
int rc;
}
void
-fail (char * msg, ...)
+fail (const char * msg, ...)
{
va_list args;
}
void
-warn (char * msg, ...)
+warn (const char * msg, ...)
{
va_list args;
return fname;
}
-char *
-skip_space (char *str)
+const char *
+skip_space (const char *str)
{
while (isspace (*str)) str++;
return str;
}
-char *
-skip_nonspace (char *str)
+const char *
+skip_nonspace (const char *str)
{
while (*str && !isspace (*str)) str++;
return str;
/* Get next token from input, advancing pointer. */
int
-get_next_token (char * buf, char ** pSrc)
+get_next_token (char * buf, const char ** pSrc)
{
- char * p = *pSrc;
+ const char * p = *pSrc;
char * o = buf;
p = skip_space (p);
else
{
/* Next token is delimited by whitespace. */
- char * p1 = skip_nonspace (p);
+ const char * p1 = skip_nonspace (p);
memcpy (o, p, p1 - p);
o += (p1 - p);
*o = '\0';
/* Search for EXEC file in DIR. If EXEC does not have an extension,
DIR is searched for EXEC with the standard extensions appended. */
int
-search_dir (char *dir, char *exec, int bufsize, char *buffer)
+search_dir (const char *dir, const char *exec, int bufsize, char *buffer)
{
- char *exts[] = {".bat", ".cmd", ".exe", ".com"};
+ const char *exts[] = {".bat", ".cmd", ".exe", ".com"};
int n_exts = sizeof (exts) / sizeof (char *);
char *dummy;
int i, rc;
any file extensions. If an absolute name for PROG cannot be found,
return NULL. */
char *
-make_absolute (char *prog)
+make_absolute (const char *prog)
{
char absname[MAX_PATH];
char dir[MAX_PATH];
char curdir[MAX_PATH];
- char *p, *fname;
- char *path;
- int i;
+ char *p, *path;
+ const char *fname;
/* At least partial absolute path specified; search there. */
if ((isalpha (prog[0]) && prog[1] == ':') ||
/* Change from normal usage; return value indicates whether spawn
succeeded or failed - program return code is returned separately. */
int
-spawn (char * progname, char * cmdline, char * dir, int * retcode)
+spawn (const char *progname, char *cmdline, const char *dir, int *retcode)
{
BOOL success = FALSE;
SECURITY_ATTRIBUTES sec_attrs;
/* Due to problems with interaction between API functions that use "OEM"
codepage vs API functions that use the "ANSI" codepage, we need to
make things consistent by choosing one and sticking with it. */
- SetConsoleCP (GetACP());
- SetConsoleOutputCP (GetACP());
+ SetConsoleCP (GetACP ());
+ SetConsoleOutputCP (GetACP ());
/* Although Emacs always sets argv[0] to an absolute pathname, we
might get run in other ways as well, so convert argv[0] to an
/* Ask command.com to create an environment block with a reasonable
amount of free space. */
envsize = get_env_size () + 300;
- pass_through_args = (char **) alloca (argc * sizeof(char *));
+ pass_through_args = (char **) alloca (argc * sizeof (char *));
num_pass_through_args = 0;
while (--argc > 0)
if (strpbrk (cmdline, copout_chars) == NULL)
{
- char *args;
+ const char *args;
/* The program name is the first token of cmdline. Since
filenames cannot legally contain embedded quotes, the value
_snprintf (p, remlen, " /e:%d /c %s", envsize, cmdline);
else
_snprintf (p, remlen, " /c %s", cmdline);
- remlen = maxlen - (p - buf);
cmdline = buf;
}
else
}
if (run_command_dot_com)
- {
- _snprintf (p, remlen, " /e:%d", envsize);
- remlen = maxlen - (p - cmdline);
- }
+ _snprintf (p, remlen, " /e:%d", envsize);
}
}
return 0;
}
-/* arch-tag: 88678d93-07ac-4e2f-ad63-d4a740ca69ac
- (do not change this comment) */