Add some entries missing from 2002-11-16.
[emacs.git] / nt / ddeclient.c
blob712c28f1c32f075ac9424ef4bc9c7735077a11f7
1 /* Simple client interface to DDE servers.
2 Copyright (C) 1998 Free Software Foundation, Inc.
4 This file is part of GNU Emacs.
6 GNU Emacs is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2, or (at your option)
9 any later version.
11 GNU Emacs is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with GNU Emacs; see the file COPYING. If not, write to
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
21 #include <windows.h>
22 #include <ddeml.h>
23 #include <stdlib.h>
24 #include <stdio.h>
26 HDDEDATA CALLBACK
27 DdeCallback (UINT uType, UINT uFmt, HCONV hconv,
28 HSZ hsz1, HSZ hsz2, HDDEDATA hdata,
29 DWORD dwData1, DWORD dwData2)
31 return ((HDDEDATA) NULL);
34 #define DdeCommand(str) \
35 DdeClientTransaction (str, strlen (str)+1, HConversation, (HSZ)NULL, \
36 CF_TEXT, XTYP_EXECUTE, 30000, NULL)
38 int
39 main (argc, argv)
40 int argc;
41 char *argv[];
43 DWORD idDde = 0;
44 HCONV HConversation;
45 HSZ Server;
46 HSZ Topic = 0;
47 char command[1024];
49 if (argc < 2)
51 fprintf (stderr, "usage: ddeclient server [topic]\n");
52 exit (1);
55 DdeInitialize (&idDde, (PFNCALLBACK)DdeCallback, APPCMD_CLIENTONLY, 0);
57 Server = DdeCreateStringHandle (idDde, argv[1], CP_WINANSI);
58 if (argc > 2)
59 Topic = DdeCreateStringHandle (idDde, argv[2], CP_WINANSI);
61 HConversation = DdeConnect (idDde, Server, Topic, NULL);
62 if (HConversation != 0)
64 while (fgets (command, sizeof(command), stdin) != NULL)
65 DdeCommand (command);
67 DdeDisconnect (HConversation);
70 DdeFreeStringHandle (idDde, Server);
71 if (Topic)
72 DdeFreeStringHandle (idDde, Topic);
73 DdeUninitialize (idDde);
75 return (0);
78 /* arch-tag: 360d7a99-2cae-447e-8d06-41ca41987e30
79 (do not change this comment) */