1 /* Simple client interface to DDE servers.
2 Copyright (C) 1998, 2001, 2002, 2003, 2004, 2005,
3 2006, 2007, 2008, 2009, 2010, 2011, 2012 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software: you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation, either version 3 of the License, or
10 (at your option) any later version.
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
26 DdeCallback (UINT uType
, UINT uFmt
, HCONV hconv
,
27 HSZ hsz1
, HSZ hsz2
, HDDEDATA hdata
,
28 DWORD dwData1
, DWORD dwData2
)
30 return ((HDDEDATA
) NULL
);
33 #define DdeCommand(str) \
34 DdeClientTransaction (str, strlen (str)+1, HConversation, (HSZ)NULL, \
35 CF_TEXT, XTYP_EXECUTE, 30000, NULL)
50 fprintf (stderr
, "usage: ddeclient server [topic]\n");
54 DdeInitialize (&idDde
, (PFNCALLBACK
)DdeCallback
, APPCMD_CLIENTONLY
, 0);
56 Server
= DdeCreateStringHandle (idDde
, argv
[1], CP_WINANSI
);
58 Topic
= DdeCreateStringHandle (idDde
, argv
[2], CP_WINANSI
);
60 HConversation
= DdeConnect (idDde
, Server
, Topic
, NULL
);
61 if (HConversation
!= 0)
63 while (fgets (command
, sizeof(command
), stdin
) != NULL
)
66 DdeDisconnect (HConversation
);
69 DdeFreeStringHandle (idDde
, Server
);
71 DdeFreeStringHandle (idDde
, Topic
);
72 DdeUninitialize (idDde
);
77 /* arch-tag: 360d7a99-2cae-447e-8d06-41ca41987e30
78 (do not change this comment) */