--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib-src/winclient.c	Thu Apr 25 18:04:24 2002 +0000
@@ -0,0 +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 <windows.h>
+#ifdef HAVE_CONFIG_H
+# include <config.h>
+#endif
+#include <stdlib.h>
+#include <stdio.h>
+#include <ctype.h>
+#include <errno.h>
+
+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;
+}