Mercurial > emacs
annotate nt/ddeclient.c @ 81631:67d88e663c87
(texinfo-raisesections-alist, texinfo-lowersections-alist): Merge definition
and declaration.
(texinfo-start-of-header, texinfo-end-of-header): Remove.
(texinfo-format-syntax-table): Merge init into declaration.
(texinfo-format-parse-line-args, texinfo-format-parse-args)
(texinfo-format-parse-defun-args, texinfo-format-node)
(texinfo-push-stack, texinfo-multitable-widths)
(texinfo-define-info-enclosure, texinfo-alias)
(texinfo-format-defindex, batch-texinfo-format): Use push.
(texinfo-footnote-number): Remove duplicate declaration.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Wed, 27 Jun 2007 18:06:14 +0000 |
parents | 4ad431d8e164 |
children | 075eb71f218d 95d0cdf160ea |
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, |
4ad431d8e164
Update copyright for years from Emacs 21 to present (mainly adding
Glenn Morris <rgm@gnu.org>
parents:
68648
diff
changeset
|
3 2006, 2007 Free Software Foundation, Inc. |
21731 | 4 |
5 This file is part of GNU Emacs. | |
6 | |
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 2, or (at your option) | |
10 any later version. | |
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 | |
18 along with GNU Emacs; see the file COPYING. If not, write to | |
64083 | 19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
20 Boston, MA 02110-1301, USA. */ | |
21731 | 21 |
22 #include <windows.h> | |
23 #include <ddeml.h> | |
24 #include <stdlib.h> | |
25 #include <stdio.h> | |
26 | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
21731
diff
changeset
|
27 HDDEDATA CALLBACK |
21731 | 28 DdeCallback (UINT uType, UINT uFmt, HCONV hconv, |
29 HSZ hsz1, HSZ hsz2, HDDEDATA hdata, | |
30 DWORD dwData1, DWORD dwData2) | |
31 { | |
32 return ((HDDEDATA) NULL); | |
33 } | |
34 | |
35 #define DdeCommand(str) \ | |
36 DdeClientTransaction (str, strlen (str)+1, HConversation, (HSZ)NULL, \ | |
37 CF_TEXT, XTYP_EXECUTE, 30000, NULL) | |
38 | |
39 int | |
40 main (argc, argv) | |
41 int argc; | |
42 char *argv[]; | |
43 { | |
44 DWORD idDde = 0; | |
45 HCONV HConversation; | |
46 HSZ Server; | |
47 HSZ Topic = 0; | |
48 char command[1024]; | |
49 | |
50 if (argc < 2) | |
51 { | |
52 fprintf (stderr, "usage: ddeclient server [topic]\n"); | |
53 exit (1); | |
54 } | |
55 | |
56 DdeInitialize (&idDde, (PFNCALLBACK)DdeCallback, APPCMD_CLIENTONLY, 0); | |
57 | |
58 Server = DdeCreateStringHandle (idDde, argv[1], CP_WINANSI); | |
59 if (argc > 2) | |
60 Topic = DdeCreateStringHandle (idDde, argv[2], CP_WINANSI); | |
61 | |
62 HConversation = DdeConnect (idDde, Server, Topic, NULL); | |
63 if (HConversation != 0) | |
64 { | |
65 while (fgets (command, sizeof(command), stdin) != NULL) | |
66 DdeCommand (command); | |
67 | |
68 DdeDisconnect (HConversation); | |
69 } | |
70 | |
71 DdeFreeStringHandle (idDde, Server); | |
72 if (Topic) | |
73 DdeFreeStringHandle (idDde, Topic); | |
74 DdeUninitialize (idDde); | |
75 | |
76 return (0); | |
77 } | |
52401 | 78 |
79 /* arch-tag: 360d7a99-2cae-447e-8d06-41ca41987e30 | |
80 (do not change this comment) */ |