Mercurial > emacs
annotate nt/ddeclient.c @ 71893:bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
(allout-mode-deactivate-hook): New hook, is run when allout mode deactivates.
(allout-developer): New allout customization subgroup.
(allout-run-unit-tests-on-load): New allout-developer
customization variable, when true allout unit tests are run towards end of file
load/eval.
(allout-inhibit-auto-fill): Disable auto-fill activity even during
auto-fill-mode.
(allout-resumptions): Removed, to be replaced by...
(allout-add-resumptions): Register variable settings to be reinstated by
`allout-do-resumptions'. The settings are made buffer-local, but the
locality/globality of the suspended setting is restored on resumption.
(allout-do-resumptions): Reinstate all settings suspended using
`allout-add-resumptions'.
(allout-test-resumptions): Unit tests (and intermediate variables) for
resumptions.
(allout-tests-globally-unbound, allout-tests-globally-true)
(allout-tests-locally-true): Intermediate variables for resumptions unit tests.
(allout-overlay-preparations): Replaces `allout-set-overlay-category'.
(allout-exposure-category): Replaces 'allout-overlay-category variable.
(allout-mode): Use `allout-add-resumptions' and `allout-do-resumptions'
instead of retired `allout-resumptions'. For hook functions, use `local'
parameter so hook settings are created and removed as
buffer-local settings. Revise (resumptions) setting auto-fill-function so it
is set only if already active. (The related fill-function settings are all
made in either case, so that activating auto-fill-mode activity will have the
custom allout-mode behaviors (hanging indent on topics, if configured for it).
Also, remove all allout-exposure-category overlays on mode deactivation.
(allout-hotspot-key-handler): New function extracted from
`allout-pre-command-business', so the functionality can be used for other
purposes, eg as a binding in an overlay.
(allout-pre-command-business): Use new `allout-hotspot-key-handler'.
(allout-auto-fill): Respect new `allout-inhibit-auto-fill' customization
variable.
(allout-run-unit-tests): Run the (currently quite small) repertoire of unit
tests. Called just before the provide iff user has customized
`allout-run-unit-tests-on-load' non-nil.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Fri, 14 Jul 2006 11:24:56 +0000 |
parents | 067115a6e738 |
children | 4ad431d8e164 c5406394f567 |
rev | line source |
---|---|
21731 | 1 /* Simple client interface to DDE servers. |
68648
067115a6e738
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64890
diff
changeset
|
2 Copyright (C) 1998, 2002, 2003, 2004, 2005, |
067115a6e738
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64890
diff
changeset
|
3 2006 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) */ |