git.chise.org Git - chise/xemacs-chise.git-/blob - lib-src/winclient.c

   1 /* DDE client for XEmacs.\r
   2    Copyright (C) 2002 Alastair J. Houghton\r
   3 \r
   4    This file is part of XEmacs.\r
   5 \r
   6    XEmacs is free software; you can redistribute it and/or modify it\r
   7    under the terms of the GNU General Public License as published by the\r
   8    Free Software Foundation; either version 2, or (at your option) any\r
   9    later version.\r
  10 \r
  11    XEmacs is distributed in the hope that it will be useful, but WITHOUT\r
  12    ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or\r
  13    FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License\r
  14    for more details.\r
  15 \r
  16    You should have received a copy of the GNU General Public License\r
  17    along with XEmacs; see the file COPYING.  If not, write to\r
  18    the Free Software Foundation, Inc., 59 Temple Place - Suite 330,\r
  19    Boston, MA 02111-1307, USA.  */\r
  20 \r
  21 /* Synched up with: Not in FSF. */\r
  22 \r
  23 /* -- Pre-Include Defines --------------------------------------------------- */\r
  24 \r
  25 #define STRICT\r
  26 \r
  27 /* -- Includes -------------------------------------------------------------- */\r
  28 \r
  29 #include <windows.h>\r
  30 #ifdef HAVE_CONFIG_H\r
  31 # include <config.h>\r
  32 #endif\r
  33 #include <stdlib.h>\r
  34 #include <stdio.h>\r
  35 #include <ctype.h>\r
  36 #include <errno.h>\r
  37 \r
  38 static void error (const char* s1, const char* s2);\r
  39 static void fatal (const char *s1, const char *s2);\r
  40 static void * xmalloc (size_t size);\r
  41 static char * getNextArg (const char **ptr, unsigned *len);\r
  42 \r
  43 /* -- Post-Include Defines -------------------------------------------------- */\r
  44 \r
  45 /* Timeouts & delays */\r
  46 #define CONNECT_DELAY           500             /* ms */\r
  47 #define TRANSACTION_TIMEOUT     5000            /* ms */\r
  48 #define MAX_INPUT_IDLE_WAIT     INFINITE        /* ms */\r
  49 \r
  50 /* DDE Strings */\r
  51 #define SERVICE_NAME    "XEmacs"\r
  52 #define TOPIC_NAME      "System"\r
  53 #define COMMAND_FORMAT  "[open(\"%s%s\")]"\r
  54 \r
  55 /* XEmacs program name */\r
  56 #define PROGRAM_TO_RUN  "xemacs.exe"\r
  57 \r
  58 /* -- Constants ------------------------------------------------------------- */\r
  59 \r
  60 /* -- Global Variables ------------------------------------------------------ */\r
  61 \r
  62 HINSTANCE hInstance;\r
  63 DWORD     idInst = 0;\r
  64 \r
  65 /* -- Function Declarations ------------------------------------------------- */\r
  66 \r
  67 HDDEDATA CALLBACK ddeCallback (UINT uType, UINT uFmt, HCONV hconv,\r
  68                                HSZ hsz1, HSZ hsz2, HDDEDATA hdata,\r
  69                                DWORD dwData1, DWORD dwData2);\r
  70 \r
  71 int WINAPI WinMain (HINSTANCE hInst,\r
  72                     HINSTANCE hPrev,\r
  73                     LPSTR     lpCmdLine,\r
  74                     int       nCmdShow);\r
  75 \r
  76 static HCONV openConversation (void);\r
  77 static void closeConversation (HCONV hConv);\r
  78 static int doFile (HCONV hConv, LPSTR lpszFileName1, LPSTR lpszFileName2);\r
  79 static int parseCommandLine (HCONV hConv, LPSTR lpszCommandLine);\r
  80 \r
  81 /* -- Function Definitions -------------------------------------------------- */\r
  82 \r
  83 /*\r
  84  * Name    : ddeCallback\r
  85  * Function: Gets called by DDEML.\r
  86  *\r
  87  */\r
  88 \r
  89 HDDEDATA CALLBACK\r
  90 ddeCallback (UINT uType, UINT uFmt, HCONV hconv,\r
  91              HSZ hsz1, HSZ hsz2, HDDEDATA hdata,\r
  92              DWORD dwData1, DWORD dwData2)\r
  93 {\r
  94   return (HDDEDATA) NULL;\r
  95 }\r
  96 \r
  97 /*\r
  98  * Name    : WinMain\r
  99  * Function: The program's entry point function.\r
 100  *\r
 101  */\r
 102 \r
 103 int WINAPI\r
 104 WinMain (HINSTANCE hInst,\r
 105          HINSTANCE hPrev,\r
 106          LPSTR     lpCmdLine,\r
 107          int       nCmdShow)\r
 108 {\r
 109   HCONV hConv;\r
 110   int   ret = 0;\r
 111   UINT  uiRet;\r
 112   \r
 113   /* Initialise the DDEML library */\r
 114   uiRet = DdeInitialize (&idInst,\r
 115                          (PFNCALLBACK) ddeCallback,\r
 116                          APPCMD_CLIENTONLY\r
 117                          |CBF_FAIL_ALLSVRXACTIONS,\r
 118                          0);\r
 119 \r
 120   if (uiRet != DMLERR_NO_ERROR)\r
 121     {\r
 122       MessageBox (NULL, "Could not initialise DDE management library.",\r
 123                   "winclient", MB_ICONEXCLAMATION | MB_OK);\r
 124 \r
 125       return 1;\r
 126     }\r
 127 \r
 128   /* Open a conversation */\r
 129   hConv = openConversation ();\r
 130 \r
 131   if (hConv)\r
 132     {\r
 133       /* OK. Next, we need to parse the command line. */\r
 134       ret = parseCommandLine (hConv, lpCmdLine);\r
 135 \r
 136       /* Close the conversation */\r
 137       closeConversation (hConv);\r
 138     }\r
 139   \r
 140   DdeUninitialize (idInst);\r
 141 \r
 142   return ret;\r
 143 }\r
 144 \r
 145 /*\r
 146  * Name    : openConversation\r
 147  * Function: Start a conversation.\r
 148  *\r
 149  */\r
 150 \r
 151 static HCONV\r
 152 openConversation (void)\r
 153 {\r
 154   HSZ             hszService = NULL, hszTopic = NULL;\r
 155   HCONV           hConv = NULL;\r
 156 \r
 157   /* Get the application (service) name */\r
 158   hszService = DdeCreateStringHandle (idInst,\r
 159                                       SERVICE_NAME,\r
 160                                       CP_WINANSI);\r
 161 \r
 162   if (!hszService)\r
 163     {\r
 164       MessageBox (NULL, "Could not create string handle for service.",\r
 165                   "winclient", MB_ICONEXCLAMATION | MB_OK);\r
 166 \r
 167       goto error;\r
 168     }\r
 169   \r
 170   /* Get the topic name */\r
 171   hszTopic = DdeCreateStringHandle (idInst,\r
 172                                     TOPIC_NAME,\r
 173                                     CP_WINANSI);\r
 174 \r
 175   if (!hszTopic)\r
 176     {\r
 177       MessageBox (NULL, "Could not create string handle for topic.",\r
 178                   "winclient", MB_ICONEXCLAMATION | MB_OK);\r
 179 \r
 180       goto error;\r
 181     }\r
 182 \r
 183   /* Try to connect */\r
 184   hConv = DdeConnect (idInst, hszService, hszTopic, NULL);\r
 185 \r
 186   if (!hConv)\r
 187     {\r
 188       STARTUPINFO         sti;\r
 189       PROCESS_INFORMATION pi;\r
 190       int                 n;\r
 191       \r
 192       /* Try to start the program */\r
 193       ZeroMemory (&sti, sizeof (sti));\r
 194       sti.cb = sizeof (sti);\r
 195       if (!CreateProcess (NULL, PROGRAM_TO_RUN, NULL, NULL, FALSE, 0,\r
 196                           NULL, NULL, &sti, &pi))\r
 197         {\r
 198           MessageBox (NULL, "Could not start process.",\r
 199                       "winclient", MB_ICONEXCLAMATION | MB_OK);\r
 200 \r
 201           goto error;\r
 202         }\r
 203 \r
 204       /* Wait for the process to enter an idle state */\r
 205       WaitForInputIdle (pi.hProcess, MAX_INPUT_IDLE_WAIT);\r
 206 \r
 207       /* Close the handles */\r
 208       CloseHandle (pi.hThread);\r
 209       CloseHandle (pi.hProcess);\r
 210       \r
 211       /* Try to connect */\r
 212       for (n = 0; n < 5; n++)\r
 213         {\r
 214           Sleep (CONNECT_DELAY);\r
 215           \r
 216           hConv = DdeConnect (idInst, hszService, hszTopic, NULL);\r
 217 \r
 218           if (hConv)\r
 219             break;\r
 220         }\r
 221 \r
 222       if (!hConv)\r
 223         {\r
 224           /* Still couldn't connect. */\r
 225           MessageBox (NULL, "Could not connect to DDE server.",\r
 226                       "winclient", MB_ICONEXCLAMATION | MB_OK);\r
 227 \r
 228           goto error;\r
 229         }\r
 230     }\r
 231 \r
 232   /* Release the string handles */\r
 233   DdeFreeStringHandle (idInst, hszService);\r
 234   DdeFreeStringHandle (idInst, hszTopic);\r
 235 \r
 236   return hConv;\r
 237   \r
 238  error:\r
 239   if (hConv)\r
 240     DdeDisconnect (hConv);\r
 241   if (hszService)\r
 242     DdeFreeStringHandle (idInst, hszService);\r
 243   if (hszTopic)\r
 244     DdeFreeStringHandle (idInst, hszTopic);\r
 245 \r
 246   return NULL;\r
 247 }\r
 248 \r
 249 /*\r
 250  * Name    : closeConversation\r
 251  * Function: Close a conversation.\r
 252  *\r
 253  */\r
 254 \r
 255 static void\r
 256 closeConversation (HCONV hConv)\r
 257 {\r
 258   /* Shut down */\r
 259   DdeDisconnect (hConv);\r
 260 }\r
 261 \r
 262 /*\r
 263  * Name    : doFile\r
 264  * Function: Process a file.\r
 265  *\r
 266  */\r
 267 \r
 268 int\r
 269 doFile (HCONV hConv, LPSTR lpszFileName1, LPSTR lpszFileName2)\r
 270 {\r
 271   char            *buf = NULL;\r
 272   unsigned        len;\r
 273   \r
 274   /* Calculate the buffer length */\r
 275   len = strlen (lpszFileName1) + strlen (lpszFileName2)\r
 276     + strlen (COMMAND_FORMAT);\r
 277   \r
 278   /* Allocate a buffer */\r
 279   buf = (char *) xmalloc (len);\r
 280 \r
 281   if (!buf)\r
 282     {\r
 283       MessageBox (NULL, "Not enough memory.",\r
 284                   "winclient", MB_ICONEXCLAMATION | MB_OK);\r
 285 \r
 286       return 1;\r
 287     }\r
 288 \r
 289   /* Build the command */\r
 290   len = wsprintf (buf, COMMAND_FORMAT, lpszFileName1, lpszFileName2);\r
 291 \r
 292   len++;\r
 293   \r
 294   /* OK. We're connected. Send the message. */\r
 295   DdeClientTransaction (buf, len, hConv, NULL,\r
 296                         0, XTYP_EXECUTE, TRANSACTION_TIMEOUT, NULL);\r
 297 \r
 298   free (buf);\r
 299   \r
 300   return 0;\r
 301 }\r
 302 \r
 303 /*\r
 304  * Name    : getNextArg\r
 305  * Function: Retrieve the next command line argument.\r
 306  *\r
 307  */\r
 308 \r
 309 static char *\r
 310 getNextArg (const char **ptr, unsigned *len)\r
 311 {\r
 312   int        in_quotes = 0, quit = 0, all_in_quotes = 0;\r
 313   const char *p = *ptr, *start;\r
 314   char       *buf = NULL;\r
 315   unsigned   length = 0;\r
 316 \r
 317   /* Skip whitespace */\r
 318   while (*p && isspace (*p))\r
 319     p++;\r
 320 \r
 321   /* If this is the end, return NULL */\r
 322   if (!*p)\r
 323     return NULL;\r
 324   \r
 325   /* Remember where we are */\r
 326   start = p;\r
 327   \r
 328   /* Find the next whitespace character outside quotes */\r
 329   if (*p == '"')\r
 330     all_in_quotes = 1;\r
 331   \r
 332   while (*p && !quit)\r
 333     {\r
 334       switch (*p)\r
 335         {\r
 336         case '"':\r
 337           in_quotes = 1 - in_quotes;\r
 338           p++;\r
 339           break;\r
 340 \r
 341         case '\\':\r
 342           if (!in_quotes)\r
 343             all_in_quotes = 0;\r
 344           \r
 345           p++;\r
 346 \r
 347           if (!*p)\r
 348             break;\r
 349 \r
 350           p++;\r
 351           break;\r
 352 \r
 353         default:\r
 354           if (isspace (*p) && !in_quotes)\r
 355             quit = 1;\r
 356           else if (!in_quotes)\r
 357             all_in_quotes = 0;\r
 358 \r
 359           if (!quit)\r
 360             p++;\r
 361         }\r
 362     }\r
 363 \r
 364   /* Work out the length */\r
 365   length = p - start;\r
 366 \r
 367   /* Strip quotes if the argument is completely quoted */\r
 368   if (all_in_quotes)\r
 369     {\r
 370       start++;\r
 371       length -= 2;\r
 372     }\r
 373   \r
 374   /* Copy */\r
 375   buf = (char *) xmalloc (length + 1);\r
 376 \r
 377   if (!buf)\r
 378     return NULL;\r
 379   \r
 380   strncpy (buf, start, length);\r
 381   buf[length] = '\0';\r
 382 \r
 383   /* Return the pointer and length */\r
 384   *ptr = p;\r
 385   *len = length;\r
 386 \r
 387   return buf;\r
 388 }\r
 389 \r
 390 /*\r
 391  * Name    : parseCommandLine\r
 392  * Function: Process the command line. This program accepts a list of strings\r
 393  *         : (which may contain wildcards) representing filenames.\r
 394  *\r
 395  */\r
 396 \r
 397 int\r
 398 parseCommandLine (HCONV hConv, LPSTR lpszCommandLine)\r
 399 {\r
 400   char            *fullpath, *filepart;\r
 401   char            *arg;\r
 402   unsigned        len, pathlen;\r
 403   int             ret = 0;\r
 404   HANDLE          hFindFile = NULL;\r
 405   WIN32_FIND_DATA wfd;\r
 406 \r
 407   /* Retrieve arguments */\r
 408   while ((arg = getNextArg ((const char**)&lpszCommandLine, &len)) != NULL)\r
 409     {\r
 410       /* First find the canonical path name */\r
 411       fullpath = filepart = NULL;\r
 412       pathlen = GetFullPathName (arg, 0, fullpath, &filepart);\r
 413 \r
 414       fullpath = (char *) xmalloc (pathlen);\r
 415 \r
 416       if (!fullpath)\r
 417         {\r
 418           MessageBox (NULL, "Not enough memory.", "winclient",\r
 419                       MB_ICONEXCLAMATION | MB_OK);\r
 420           \r
 421           ret = 1;\r
 422           free (arg);\r
 423           \r
 424           break;\r
 425         }\r
 426 \r
 427       GetFullPathName (arg, pathlen, fullpath, &filepart);\r
 428 \r
 429       /* Find the first matching file */\r
 430       hFindFile = FindFirstFile (arg, &wfd);\r
 431 \r
 432       if (hFindFile == INVALID_HANDLE_VALUE)\r
 433         ret = doFile (hConv, fullpath, "");\r
 434       else\r
 435         {\r
 436           /* Chop off the file part from the full path name */\r
 437           if (filepart)\r
 438             *filepart = '\0';\r
 439 \r
 440           /* For each matching file */\r
 441           do\r
 442             {\r
 443               /* Process it */\r
 444               ret = doFile (hConv, fullpath, wfd.cFileName);\r
 445 \r
 446               if (ret)\r
 447                 break;\r
 448             }\r
 449           while (FindNextFile (hFindFile, &wfd));\r
 450 \r
 451           FindClose (hFindFile);\r
 452         }\r
 453 \r
 454       /* Release the path name buffers */\r
 455       free (fullpath);\r
 456       free (arg);\r
 457 \r
 458       if (ret)\r
 459         break;\r
 460     }\r
 461 \r
 462   return ret;\r
 463 }\r
 464 \r
 465 static void\r
 466 fatal (const char *s1, const char *s2)\r
 467 {\r
 468   error (s1, s2);\r
 469   exit (1);\r
 470 }\r
 471 \r
 472 /* Print error message.  `s1' is printf control string, `s2' is arg for it. */\r
 473 static void\r
 474 error (const char* s1, const char* s2)\r
 475 {\r
 476   fprintf (stderr, "winclient: ");\r
 477   fprintf (stderr, s1, s2);\r
 478   fprintf (stderr, "\n");\r
 479 }\r
 480 \r
 481 /* Like malloc but get fatal error if memory is exhausted.  */\r
 482 \r
 483 static void *\r
 484 xmalloc (size_t size)\r
 485 {\r
 486   void *result = malloc (size);\r
 487   if (result == NULL)\r
 488     fatal ("virtual memory exhausted", (char *) 0);\r
 489   return result;\r
 490 }\r