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