Merge from emacs--rel--22
[bpt/emacs.git] / nt / ddeclient.c
CommitLineData
983d2b33 1/* Simple client interface to DDE servers.
62eda0e2 2 Copyright (C) 1998, 2001, 2002, 2003, 2004, 2005,
6d344054 3 2006, 2007, 2008 Free Software Foundation, Inc.
983d2b33
GV
4
5This file is part of GNU Emacs.
6
eef0be9e 7GNU Emacs is free software: you can redistribute it and/or modify
983d2b33 8it under the terms of the GNU General Public License as published by
eef0be9e
GM
9the Free Software Foundation, either version 3 of the License, or
10(at your option) any later version.
983d2b33
GV
11
12GNU Emacs is distributed in the hope that it will be useful,
13but WITHOUT ANY WARRANTY; without even the implied warranty of
14MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15GNU General Public License for more details.
16
17You should have received a copy of the GNU General Public License
eef0be9e 18along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
983d2b33
GV
19
20#include <windows.h>
21#include <ddeml.h>
22#include <stdlib.h>
23#include <stdio.h>
24
177c0ea7 25HDDEDATA CALLBACK
983d2b33
GV
26DdeCallback (UINT uType, UINT uFmt, HCONV hconv,
27 HSZ hsz1, HSZ hsz2, HDDEDATA hdata,
28 DWORD dwData1, DWORD dwData2)
29{
30 return ((HDDEDATA) NULL);
31}
32
33#define DdeCommand(str) \
34 DdeClientTransaction (str, strlen (str)+1, HConversation, (HSZ)NULL, \
35 CF_TEXT, XTYP_EXECUTE, 30000, NULL)
36
37int
38main (argc, argv)
39 int argc;
40 char *argv[];
41{
42 DWORD idDde = 0;
43 HCONV HConversation;
44 HSZ Server;
45 HSZ Topic = 0;
46 char command[1024];
47
48 if (argc < 2)
49 {
50 fprintf (stderr, "usage: ddeclient server [topic]\n");
51 exit (1);
52 }
53
54 DdeInitialize (&idDde, (PFNCALLBACK)DdeCallback, APPCMD_CLIENTONLY, 0);
55
56 Server = DdeCreateStringHandle (idDde, argv[1], CP_WINANSI);
57 if (argc > 2)
58 Topic = DdeCreateStringHandle (idDde, argv[2], CP_WINANSI);
59
60 HConversation = DdeConnect (idDde, Server, Topic, NULL);
61 if (HConversation != 0)
62 {
63 while (fgets (command, sizeof(command), stdin) != NULL)
64 DdeCommand (command);
65
66 DdeDisconnect (HConversation);
67 }
68
69 DdeFreeStringHandle (idDde, Server);
70 if (Topic)
71 DdeFreeStringHandle (idDde, Topic);
72 DdeUninitialize (idDde);
73
74 return (0);
75}
ab5796a9
MB
76
77/* arch-tag: 360d7a99-2cae-447e-8d06-41ca41987e30
78 (do not change this comment) */