annotate nt/ddeclient.c @ 36150:46e59561af4c

Display Vars node renamed Display Custom. Include info there about customizing cursor appearance. Clean up aggressive scrolling. Clarify horizontal scrolling discussion. Fix index entries for line number mode.
author Richard M. Stallman <rms@gnu.org>
date Sat, 17 Feb 2001 16:45:37 +0000
parents 4a0a3ae173d0
children 23a1cea22d13
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
21731
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1 /* Simple client interface to DDE servers.
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2 Copyright (C) 1998 Free Software Foundation, Inc.
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4 This file is part of GNU Emacs.
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6 GNU Emacs is free software; you can redistribute it and/or modify
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7 it under the terms of the GNU General Public License as published by
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8 the Free Software Foundation; either version 2, or (at your option)
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9 any later version.
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11 GNU Emacs is distributed in the hope that it will be useful,
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
14 GNU General Public License for more details.
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
15
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
16 You should have received a copy of the GNU General Public License
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
17 along with GNU Emacs; see the file COPYING. If not, write to
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
19 Boston, MA 02111-1307, USA. */
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
20
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
21 #include <windows.h>
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
22 #include <ddeml.h>
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
23 #include <stdlib.h>
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
24 #include <stdio.h>
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
25
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
26 HDDEDATA CALLBACK
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
27 DdeCallback (UINT uType, UINT uFmt, HCONV hconv,
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
28 HSZ hsz1, HSZ hsz2, HDDEDATA hdata,
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
29 DWORD dwData1, DWORD dwData2)
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
30 {
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
31 return ((HDDEDATA) NULL);
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
32 }
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
33
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
34 #define DdeCommand(str) \
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
35 DdeClientTransaction (str, strlen (str)+1, HConversation, (HSZ)NULL, \
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
36 CF_TEXT, XTYP_EXECUTE, 30000, NULL)
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
37
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
38 int
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
39 main (argc, argv)
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
40 int argc;
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
41 char *argv[];
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
42 {
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
43 DWORD idDde = 0;
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
44 HCONV HConversation;
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
45 HSZ Server;
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
46 HSZ Topic = 0;
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
47 char command[1024];
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
48
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
49 if (argc < 2)
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
50 {
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
51 fprintf (stderr, "usage: ddeclient server [topic]\n");
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
52 exit (1);
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
53 }
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
54
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
55 DdeInitialize (&idDde, (PFNCALLBACK)DdeCallback, APPCMD_CLIENTONLY, 0);
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
56
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
57 Server = DdeCreateStringHandle (idDde, argv[1], CP_WINANSI);
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
58 if (argc > 2)
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
59 Topic = DdeCreateStringHandle (idDde, argv[2], CP_WINANSI);
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
60
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
61 HConversation = DdeConnect (idDde, Server, Topic, NULL);
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
62 if (HConversation != 0)
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
63 {
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
64 while (fgets (command, sizeof(command), stdin) != NULL)
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
65 DdeCommand (command);
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
66
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
67 DdeDisconnect (HConversation);
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
68 }
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
69
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
70 DdeFreeStringHandle (idDde, Server);
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
71 if (Topic)
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
72 DdeFreeStringHandle (idDde, Topic);
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
73 DdeUninitialize (idDde);
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
74
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
75 return (0);
4a0a3ae173d0 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
76 }