Convert some more functions to standard C.
[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,
114f9c96 3 2006, 2007, 2008, 2009, 2010 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
7c3320d8 38main (int argc, char *argv[])
983d2b33
GV
39{
40 DWORD idDde = 0;
41 HCONV HConversation;
42 HSZ Server;
43 HSZ Topic = 0;
44 char command[1024];
45
46 if (argc < 2)
47 {
48 fprintf (stderr, "usage: ddeclient server [topic]\n");
49 exit (1);
50 }
51
52 DdeInitialize (&idDde, (PFNCALLBACK)DdeCallback, APPCMD_CLIENTONLY, 0);
53
54 Server = DdeCreateStringHandle (idDde, argv[1], CP_WINANSI);
55 if (argc > 2)
56 Topic = DdeCreateStringHandle (idDde, argv[2], CP_WINANSI);
57
58 HConversation = DdeConnect (idDde, Server, Topic, NULL);
59 if (HConversation != 0)
60 {
61 while (fgets (command, sizeof(command), stdin) != NULL)
62 DdeCommand (command);
63
64 DdeDisconnect (HConversation);
65 }
66
67 DdeFreeStringHandle (idDde, Server);
68 if (Topic)
69 DdeFreeStringHandle (idDde, Topic);
70 DdeUninitialize (idDde);
71
72 return (0);
73}
ab5796a9
MB
74
75/* arch-tag: 360d7a99-2cae-447e-8d06-41ca41987e30
76 (do not change this comment) */