Mercurial > emacs
annotate nt/ddeclient.c @ 102120:b39c9d4ea068
(compilation-error-regexp-alist-alist):
Move entry for maven (alphabetical order).
author | Nick Roberts <nickrob@snap.net.nz> |
---|---|
date | Thu, 19 Feb 2009 06:54:22 +0000 |
parents | aeceb2460b39 |
children | 1d1d5d9bd884 |
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, |
100954 | 3 2006, 2007, 2008, 2009 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 | |
38 main (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 } | |
52401 | 76 |
77 /* arch-tag: 360d7a99-2cae-447e-8d06-41ca41987e30 | |
78 (do not change this comment) */ |