From: tomo Date: Sat, 9 Jul 2005 17:53:30 +0000 (+0000) Subject: XEmacs 21.4.17 "Jumbo Shrimp". X-Git-Tag: r21-4-17^2 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7827bb356e7e8e8664ea265c3088dfbc3f1f9abe;p=chise%2Fxemacs-chise.git XEmacs 21.4.17 "Jumbo Shrimp". --- diff --git a/lib-src/winclient.c b/lib-src/winclient.c index 0399d99..7715882 100644 --- a/lib-src/winclient.c +++ b/lib-src/winclient.c @@ -1,490 +1,490 @@ -/* DDE client for XEmacs. - Copyright (C) 2002 Alastair J. Houghton - - This file is part of XEmacs. - - XEmacs is free software; you can redistribute it and/or modify it - under the terms of the GNU General Public License as published by the - Free Software Foundation; either version 2, or (at your option) any - later version. - - XEmacs is distributed in the hope that it will be useful, but WITHOUT - ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or - FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License - for more details. - - You should have received a copy of the GNU General Public License - along with XEmacs; see the file COPYING. If not, write to - the Free Software Foundation, Inc., 59 Temple Place - Suite 330, - Boston, MA 02111-1307, USA. */ - -/* Synched up with: Not in FSF. */ - -/* -- Pre-Include Defines --------------------------------------------------- */ - -#define STRICT - -/* -- Includes -------------------------------------------------------------- */ - -#include -#ifdef HAVE_CONFIG_H -# include -#endif -#include -#include -#include -#include - -static void error (const char* s1, const char* s2); -static void fatal (const char *s1, const char *s2); -static void * xmalloc (size_t size); -static char * getNextArg (const char **ptr, unsigned *len); - -/* -- Post-Include Defines -------------------------------------------------- */ - -/* Timeouts & delays */ -#define CONNECT_DELAY 500 /* ms */ -#define TRANSACTION_TIMEOUT 5000 /* ms */ -#define MAX_INPUT_IDLE_WAIT INFINITE /* ms */ - -/* DDE Strings */ -#define SERVICE_NAME "XEmacs" -#define TOPIC_NAME "System" -#define COMMAND_FORMAT "[open(\"%s%s\")]" - -/* XEmacs program name */ -#define PROGRAM_TO_RUN "xemacs.exe" - -/* -- Constants ------------------------------------------------------------- */ - -/* -- Global Variables ------------------------------------------------------ */ - -HINSTANCE hInstance; -DWORD idInst = 0; - -/* -- Function Declarations ------------------------------------------------- */ - -HDDEDATA CALLBACK ddeCallback (UINT uType, UINT uFmt, HCONV hconv, - HSZ hsz1, HSZ hsz2, HDDEDATA hdata, - DWORD dwData1, DWORD dwData2); - -int WINAPI WinMain (HINSTANCE hInst, - HINSTANCE hPrev, - LPSTR lpCmdLine, - int nCmdShow); - -static HCONV openConversation (void); -static void closeConversation (HCONV hConv); -static int doFile (HCONV hConv, LPSTR lpszFileName1, LPSTR lpszFileName2); -static int parseCommandLine (HCONV hConv, LPSTR lpszCommandLine); - -/* -- Function Definitions -------------------------------------------------- */ - -/* - * Name : ddeCallback - * Function: Gets called by DDEML. - * - */ - -HDDEDATA CALLBACK -ddeCallback (UINT uType, UINT uFmt, HCONV hconv, - HSZ hsz1, HSZ hsz2, HDDEDATA hdata, - DWORD dwData1, DWORD dwData2) -{ - return (HDDEDATA) NULL; -} - -/* - * Name : WinMain - * Function: The program's entry point function. - * - */ - -int WINAPI -WinMain (HINSTANCE hInst, - HINSTANCE hPrev, - LPSTR lpCmdLine, - int nCmdShow) -{ - HCONV hConv; - int ret = 0; - UINT uiRet; - - /* Initialise the DDEML library */ - uiRet = DdeInitialize (&idInst, - (PFNCALLBACK) ddeCallback, - APPCMD_CLIENTONLY - |CBF_FAIL_ALLSVRXACTIONS, - 0); - - if (uiRet != DMLERR_NO_ERROR) - { - MessageBox (NULL, "Could not initialise DDE management library.", - "winclient", MB_ICONEXCLAMATION | MB_OK); - - return 1; - } - - /* Open a conversation */ - hConv = openConversation (); - - if (hConv) - { - /* OK. Next, we need to parse the command line. */ - ret = parseCommandLine (hConv, lpCmdLine); - - /* Close the conversation */ - closeConversation (hConv); - } - - DdeUninitialize (idInst); - - return ret; -} - -/* - * Name : openConversation - * Function: Start a conversation. - * - */ - -static HCONV -openConversation (void) -{ - HSZ hszService = NULL, hszTopic = NULL; - HCONV hConv = NULL; - - /* Get the application (service) name */ - hszService = DdeCreateStringHandle (idInst, - SERVICE_NAME, - CP_WINANSI); - - if (!hszService) - { - MessageBox (NULL, "Could not create string handle for service.", - "winclient", MB_ICONEXCLAMATION | MB_OK); - - goto error; - } - - /* Get the topic name */ - hszTopic = DdeCreateStringHandle (idInst, - TOPIC_NAME, - CP_WINANSI); - - if (!hszTopic) - { - MessageBox (NULL, "Could not create string handle for topic.", - "winclient", MB_ICONEXCLAMATION | MB_OK); - - goto error; - } - - /* Try to connect */ - hConv = DdeConnect (idInst, hszService, hszTopic, NULL); - - if (!hConv) - { - STARTUPINFO sti; - PROCESS_INFORMATION pi; - int n; - - /* Try to start the program */ - ZeroMemory (&sti, sizeof (sti)); - sti.cb = sizeof (sti); - if (!CreateProcess (NULL, PROGRAM_TO_RUN, NULL, NULL, FALSE, 0, - NULL, NULL, &sti, &pi)) - { - MessageBox (NULL, "Could not start process.", - "winclient", MB_ICONEXCLAMATION | MB_OK); - - goto error; - } - - /* Wait for the process to enter an idle state */ - WaitForInputIdle (pi.hProcess, MAX_INPUT_IDLE_WAIT); - - /* Close the handles */ - CloseHandle (pi.hThread); - CloseHandle (pi.hProcess); - - /* Try to connect */ - for (n = 0; n < 5; n++) - { - Sleep (CONNECT_DELAY); - - hConv = DdeConnect (idInst, hszService, hszTopic, NULL); - - if (hConv) - break; - } - - if (!hConv) - { - /* Still couldn't connect. */ - MessageBox (NULL, "Could not connect to DDE server.", - "winclient", MB_ICONEXCLAMATION | MB_OK); - - goto error; - } - } - - /* Release the string handles */ - DdeFreeStringHandle (idInst, hszService); - DdeFreeStringHandle (idInst, hszTopic); - - return hConv; - - error: - if (hConv) - DdeDisconnect (hConv); - if (hszService) - DdeFreeStringHandle (idInst, hszService); - if (hszTopic) - DdeFreeStringHandle (idInst, hszTopic); - - return NULL; -} - -/* - * Name : closeConversation - * Function: Close a conversation. - * - */ - -static void -closeConversation (HCONV hConv) -{ - /* Shut down */ - DdeDisconnect (hConv); -} - -/* - * Name : doFile - * Function: Process a file. - * - */ - -int -doFile (HCONV hConv, LPSTR lpszFileName1, LPSTR lpszFileName2) -{ - char *buf = NULL; - unsigned len; - - /* Calculate the buffer length */ - len = strlen (lpszFileName1) + strlen (lpszFileName2) - + strlen (COMMAND_FORMAT); - - /* Allocate a buffer */ - buf = (char *) xmalloc (len); - - if (!buf) - { - MessageBox (NULL, "Not enough memory.", - "winclient", MB_ICONEXCLAMATION | MB_OK); - - return 1; - } - - /* Build the command */ - len = wsprintf (buf, COMMAND_FORMAT, lpszFileName1, lpszFileName2); - - len++; - - /* OK. We're connected. Send the message. */ - DdeClientTransaction (buf, len, hConv, NULL, - 0, XTYP_EXECUTE, TRANSACTION_TIMEOUT, NULL); - - free (buf); - - return 0; -} - -/* - * Name : getNextArg - * Function: Retrieve the next command line argument. - * - */ - -static char * -getNextArg (const char **ptr, unsigned *len) -{ - int in_quotes = 0, quit = 0, all_in_quotes = 0; - const char *p = *ptr, *start; - char *buf = NULL; - unsigned length = 0; - - /* Skip whitespace */ - while (*p && isspace (*p)) - p++; - - /* If this is the end, return NULL */ - if (!*p) - return NULL; - - /* Remember where we are */ - start = p; - - /* Find the next whitespace character outside quotes */ - if (*p == '"') - all_in_quotes = 1; - - while (*p && !quit) - { - switch (*p) - { - case '"': - in_quotes = 1 - in_quotes; - p++; - break; - - case '\\': - if (!in_quotes) - all_in_quotes = 0; - - p++; - - if (!*p) - break; - - p++; - break; - - default: - if (isspace (*p) && !in_quotes) - quit = 1; - else if (!in_quotes) - all_in_quotes = 0; - - if (!quit) - p++; - } - } - - /* Work out the length */ - length = p - start; - - /* Strip quotes if the argument is completely quoted */ - if (all_in_quotes) - { - start++; - length -= 2; - } - - /* Copy */ - buf = (char *) xmalloc (length + 1); - - if (!buf) - return NULL; - - strncpy (buf, start, length); - buf[length] = '\0'; - - /* Return the pointer and length */ - *ptr = p; - *len = length; - - return buf; -} - -/* - * Name : parseCommandLine - * Function: Process the command line. This program accepts a list of strings - * : (which may contain wildcards) representing filenames. - * - */ - -int -parseCommandLine (HCONV hConv, LPSTR lpszCommandLine) -{ - char *fullpath, *filepart; - char *arg; - unsigned len, pathlen; - int ret = 0; - HANDLE hFindFile = NULL; - WIN32_FIND_DATA wfd; - - /* Retrieve arguments */ - while ((arg = getNextArg ((const char**)&lpszCommandLine, &len)) != NULL) - { - /* First find the canonical path name */ - fullpath = filepart = NULL; - pathlen = GetFullPathName (arg, 0, fullpath, &filepart); - - fullpath = (char *) xmalloc (pathlen); - - if (!fullpath) - { - MessageBox (NULL, "Not enough memory.", "winclient", - MB_ICONEXCLAMATION | MB_OK); - - ret = 1; - free (arg); - - break; - } - - GetFullPathName (arg, pathlen, fullpath, &filepart); - - /* Find the first matching file */ - hFindFile = FindFirstFile (arg, &wfd); - - if (hFindFile == INVALID_HANDLE_VALUE) - ret = doFile (hConv, fullpath, ""); - else - { - /* Chop off the file part from the full path name */ - if (filepart) - *filepart = '\0'; - - /* For each matching file */ - do - { - /* Process it */ - ret = doFile (hConv, fullpath, wfd.cFileName); - - if (ret) - break; - } - while (FindNextFile (hFindFile, &wfd)); - - FindClose (hFindFile); - } - - /* Release the path name buffers */ - free (fullpath); - free (arg); - - if (ret) - break; - } - - return ret; -} - -static void -fatal (const char *s1, const char *s2) -{ - error (s1, s2); - exit (1); -} - -/* Print error message. `s1' is printf control string, `s2' is arg for it. */ -static void -error (const char* s1, const char* s2) -{ - fprintf (stderr, "winclient: "); - fprintf (stderr, s1, s2); - fprintf (stderr, "\n"); -} - -/* Like malloc but get fatal error if memory is exhausted. */ - -static void * -xmalloc (size_t size) -{ - void *result = malloc (size); - if (result == NULL) - fatal ("virtual memory exhausted", (char *) 0); - return result; -} +/* DDE client for XEmacs. + Copyright (C) 2002 Alastair J. Houghton + + This file is part of XEmacs. + + XEmacs is free software; you can redistribute it and/or modify it + under the terms of the GNU General Public License as published by the + Free Software Foundation; either version 2, or (at your option) any + later version. + + XEmacs is distributed in the hope that it will be useful, but WITHOUT + ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or + FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License + for more details. + + You should have received a copy of the GNU General Public License + along with XEmacs; see the file COPYING. If not, write to + the Free Software Foundation, Inc., 59 Temple Place - Suite 330, + Boston, MA 02111-1307, USA. */ + +/* Synched up with: Not in FSF. */ + +/* -- Pre-Include Defines --------------------------------------------------- */ + +#define STRICT + +/* -- Includes -------------------------------------------------------------- */ + +#include +#ifdef HAVE_CONFIG_H +# include +#endif +#include +#include +#include +#include + +static void error (const char* s1, const char* s2); +static void fatal (const char *s1, const char *s2); +static void * xmalloc (size_t size); +static char * getNextArg (const char **ptr, unsigned *len); + +/* -- Post-Include Defines -------------------------------------------------- */ + +/* Timeouts & delays */ +#define CONNECT_DELAY 500 /* ms */ +#define TRANSACTION_TIMEOUT 5000 /* ms */ +#define MAX_INPUT_IDLE_WAIT INFINITE /* ms */ + +/* DDE Strings */ +#define SERVICE_NAME "XEmacs" +#define TOPIC_NAME "System" +#define COMMAND_FORMAT "[open(\"%s%s\")]" + +/* XEmacs program name */ +#define PROGRAM_TO_RUN "xemacs.exe" + +/* -- Constants ------------------------------------------------------------- */ + +/* -- Global Variables ------------------------------------------------------ */ + +HINSTANCE hInstance; +DWORD idInst = 0; + +/* -- Function Declarations ------------------------------------------------- */ + +HDDEDATA CALLBACK ddeCallback (UINT uType, UINT uFmt, HCONV hconv, + HSZ hsz1, HSZ hsz2, HDDEDATA hdata, + DWORD dwData1, DWORD dwData2); + +int WINAPI WinMain (HINSTANCE hInst, + HINSTANCE hPrev, + LPSTR lpCmdLine, + int nCmdShow); + +static HCONV openConversation (void); +static void closeConversation (HCONV hConv); +static int doFile (HCONV hConv, LPSTR lpszFileName1, LPSTR lpszFileName2); +static int parseCommandLine (HCONV hConv, LPSTR lpszCommandLine); + +/* -- Function Definitions -------------------------------------------------- */ + +/* + * Name : ddeCallback + * Function: Gets called by DDEML. + * + */ + +HDDEDATA CALLBACK +ddeCallback (UINT uType, UINT uFmt, HCONV hconv, + HSZ hsz1, HSZ hsz2, HDDEDATA hdata, + DWORD dwData1, DWORD dwData2) +{ + return (HDDEDATA) NULL; +} + +/* + * Name : WinMain + * Function: The program's entry point function. + * + */ + +int WINAPI +WinMain (HINSTANCE hInst, + HINSTANCE hPrev, + LPSTR lpCmdLine, + int nCmdShow) +{ + HCONV hConv; + int ret = 0; + UINT uiRet; + + /* Initialise the DDEML library */ + uiRet = DdeInitialize (&idInst, + (PFNCALLBACK) ddeCallback, + APPCMD_CLIENTONLY + |CBF_FAIL_ALLSVRXACTIONS, + 0); + + if (uiRet != DMLERR_NO_ERROR) + { + MessageBox (NULL, "Could not initialise DDE management library.", + "winclient", MB_ICONEXCLAMATION | MB_OK); + + return 1; + } + + /* Open a conversation */ + hConv = openConversation (); + + if (hConv) + { + /* OK. Next, we need to parse the command line. */ + ret = parseCommandLine (hConv, lpCmdLine); + + /* Close the conversation */ + closeConversation (hConv); + } + + DdeUninitialize (idInst); + + return ret; +} + +/* + * Name : openConversation + * Function: Start a conversation. + * + */ + +static HCONV +openConversation (void) +{ + HSZ hszService = NULL, hszTopic = NULL; + HCONV hConv = NULL; + + /* Get the application (service) name */ + hszService = DdeCreateStringHandle (idInst, + SERVICE_NAME, + CP_WINANSI); + + if (!hszService) + { + MessageBox (NULL, "Could not create string handle for service.", + "winclient", MB_ICONEXCLAMATION | MB_OK); + + goto error; + } + + /* Get the topic name */ + hszTopic = DdeCreateStringHandle (idInst, + TOPIC_NAME, + CP_WINANSI); + + if (!hszTopic) + { + MessageBox (NULL, "Could not create string handle for topic.", + "winclient", MB_ICONEXCLAMATION | MB_OK); + + goto error; + } + + /* Try to connect */ + hConv = DdeConnect (idInst, hszService, hszTopic, NULL); + + if (!hConv) + { + STARTUPINFO sti; + PROCESS_INFORMATION pi; + int n; + + /* Try to start the program */ + ZeroMemory (&sti, sizeof (sti)); + sti.cb = sizeof (sti); + if (!CreateProcess (NULL, PROGRAM_TO_RUN, NULL, NULL, FALSE, 0, + NULL, NULL, &sti, &pi)) + { + MessageBox (NULL, "Could not start process.", + "winclient", MB_ICONEXCLAMATION | MB_OK); + + goto error; + } + + /* Wait for the process to enter an idle state */ + WaitForInputIdle (pi.hProcess, MAX_INPUT_IDLE_WAIT); + + /* Close the handles */ + CloseHandle (pi.hThread); + CloseHandle (pi.hProcess); + + /* Try to connect */ + for (n = 0; n < 5; n++) + { + Sleep (CONNECT_DELAY); + + hConv = DdeConnect (idInst, hszService, hszTopic, NULL); + + if (hConv) + break; + } + + if (!hConv) + { + /* Still couldn't connect. */ + MessageBox (NULL, "Could not connect to DDE server.", + "winclient", MB_ICONEXCLAMATION | MB_OK); + + goto error; + } + } + + /* Release the string handles */ + DdeFreeStringHandle (idInst, hszService); + DdeFreeStringHandle (idInst, hszTopic); + + return hConv; + + error: + if (hConv) + DdeDisconnect (hConv); + if (hszService) + DdeFreeStringHandle (idInst, hszService); + if (hszTopic) + DdeFreeStringHandle (idInst, hszTopic); + + return NULL; +} + +/* + * Name : closeConversation + * Function: Close a conversation. + * + */ + +static void +closeConversation (HCONV hConv) +{ + /* Shut down */ + DdeDisconnect (hConv); +} + +/* + * Name : doFile + * Function: Process a file. + * + */ + +int +doFile (HCONV hConv, LPSTR lpszFileName1, LPSTR lpszFileName2) +{ + char *buf = NULL; + unsigned len; + + /* Calculate the buffer length */ + len = strlen (lpszFileName1) + strlen (lpszFileName2) + + strlen (COMMAND_FORMAT); + + /* Allocate a buffer */ + buf = (char *) xmalloc (len); + + if (!buf) + { + MessageBox (NULL, "Not enough memory.", + "winclient", MB_ICONEXCLAMATION | MB_OK); + + return 1; + } + + /* Build the command */ + len = wsprintf (buf, COMMAND_FORMAT, lpszFileName1, lpszFileName2); + + len++; + + /* OK. We're connected. Send the message. */ + DdeClientTransaction (buf, len, hConv, NULL, + 0, XTYP_EXECUTE, TRANSACTION_TIMEOUT, NULL); + + free (buf); + + return 0; +} + +/* + * Name : getNextArg + * Function: Retrieve the next command line argument. + * + */ + +static char * +getNextArg (const char **ptr, unsigned *len) +{ + int in_quotes = 0, quit = 0, all_in_quotes = 0; + const char *p = *ptr, *start; + char *buf = NULL; + unsigned length = 0; + + /* Skip whitespace */ + while (*p && isspace (*p)) + p++; + + /* If this is the end, return NULL */ + if (!*p) + return NULL; + + /* Remember where we are */ + start = p; + + /* Find the next whitespace character outside quotes */ + if (*p == '"') + all_in_quotes = 1; + + while (*p && !quit) + { + switch (*p) + { + case '"': + in_quotes = 1 - in_quotes; + p++; + break; + + case '\\': + if (!in_quotes) + all_in_quotes = 0; + + p++; + + if (!*p) + break; + + p++; + break; + + default: + if (isspace (*p) && !in_quotes) + quit = 1; + else if (!in_quotes) + all_in_quotes = 0; + + if (!quit) + p++; + } + } + + /* Work out the length */ + length = p - start; + + /* Strip quotes if the argument is completely quoted */ + if (all_in_quotes) + { + start++; + length -= 2; + } + + /* Copy */ + buf = (char *) xmalloc (length + 1); + + if (!buf) + return NULL; + + strncpy (buf, start, length); + buf[length] = '\0'; + + /* Return the pointer and length */ + *ptr = p; + *len = length; + + return buf; +} + +/* + * Name : parseCommandLine + * Function: Process the command line. This program accepts a list of strings + * : (which may contain wildcards) representing filenames. + * + */ + +int +parseCommandLine (HCONV hConv, LPSTR lpszCommandLine) +{ + char *fullpath, *filepart; + char *arg; + unsigned len, pathlen; + int ret = 0; + HANDLE hFindFile = NULL; + WIN32_FIND_DATA wfd; + + /* Retrieve arguments */ + while ((arg = getNextArg ((const char**)&lpszCommandLine, &len)) != NULL) + { + /* First find the canonical path name */ + fullpath = filepart = NULL; + pathlen = GetFullPathName (arg, 0, fullpath, &filepart); + + fullpath = (char *) xmalloc (pathlen); + + if (!fullpath) + { + MessageBox (NULL, "Not enough memory.", "winclient", + MB_ICONEXCLAMATION | MB_OK); + + ret = 1; + free (arg); + + break; + } + + GetFullPathName (arg, pathlen, fullpath, &filepart); + + /* Find the first matching file */ + hFindFile = FindFirstFile (arg, &wfd); + + if (hFindFile == INVALID_HANDLE_VALUE) + ret = doFile (hConv, fullpath, ""); + else + { + /* Chop off the file part from the full path name */ + if (filepart) + *filepart = '\0'; + + /* For each matching file */ + do + { + /* Process it */ + ret = doFile (hConv, fullpath, wfd.cFileName); + + if (ret) + break; + } + while (FindNextFile (hFindFile, &wfd)); + + FindClose (hFindFile); + } + + /* Release the path name buffers */ + free (fullpath); + free (arg); + + if (ret) + break; + } + + return ret; +} + +static void +fatal (const char *s1, const char *s2) +{ + error (s1, s2); + exit (1); +} + +/* Print error message. `s1' is printf control string, `s2' is arg for it. */ +static void +error (const char* s1, const char* s2) +{ + fprintf (stderr, "winclient: "); + fprintf (stderr, s1, s2); + fprintf (stderr, "\n"); +} + +/* Like malloc but get fatal error if memory is exhausted. */ + +static void * +xmalloc (size_t size) +{ + void *result = malloc (size); + if (result == NULL) + fatal ("virtual memory exhausted", (char *) 0); + return result; +}