Mercurial > emacs
annotate nt/ddeclient.c @ 112010:38d705a36db7
Fix the log entry for reverting of gnus-util.el.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Wed, 22 Dec 2010 07:04:25 +0000 |
parents | d12162869c07 |
children | 417b1e4d63cd |
rev | line source |
---|---|
21731 | 1 /* Simple client interface to DDE servers. |
75249
4ad431d8e164
Update copyright for years from Emacs 21 to present (mainly adding
Glenn Morris <rgm@gnu.org>
parents:
68648
diff
changeset
|
2 Copyright (C) 1998, 2001, 2002, 2003, 2004, 2005, |
106815 | 3 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
21731 | 4 |
5 This file is part of GNU Emacs. | |
6 | |
94795
188974bfdea0
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79730
diff
changeset
|
7 GNU Emacs is free software: you can redistribute it and/or modify |
21731 | 8 it under the terms of the GNU General Public License as published by |
94795
188974bfdea0
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79730
diff
changeset
|
9 the Free Software Foundation, either version 3 of the License, or |
188974bfdea0
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79730
diff
changeset
|
10 (at your option) any later version. |
21731 | 11 |
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. | |
16 | |
17 You should have received a copy of the GNU General Public License | |
94795
188974bfdea0
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79730
diff
changeset
|
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ |
21731 | 19 |
20 #include <windows.h> | |
21 #include <ddeml.h> | |
22 #include <stdlib.h> | |
23 #include <stdio.h> | |
24 | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
21731
diff
changeset
|
25 HDDEDATA CALLBACK |
21731 | 26 DdeCallback (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 | |
37 int | |
109480
d12162869c07
Convert some more functions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
38 main (int argc, char *argv[]) |
21731 | 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 } | |
52401 | 74 |
75 /* arch-tag: 360d7a99-2cae-447e-8d06-41ca41987e30 | |
76 (do not change this comment) */ |