Mercurial > emacs
annotate nt/ddeclient.c @ 67171:35b9e081ceed
Remove useless leading * in defcustom docstrings.
(save-completions-file-name): Use ~/.emacs.d if available.
(completion-standard-syntax-table): Rename from
cmpl-standard-syntax-table and fold initialization into declaration,
thus removing cmpl-make-standard-completion-syntax-table.
(completion-lisp-syntax-table, completion-c-syntax-table)
(completion-fortran-syntax-table, completion-c-def-syntax-table): Idem.
(cmpl-saved-syntax, cmpl-saved-point): Remove.
(symbol-under-point, symbol-before-point)
(symbol-under-or-before-point, symbol-before-point-for-complete)
(add-completions-from-c-buffer): Use with-syntax-table.
(make-completion): Don't return a list of completion entries.
Update callers.
(cmpl-prefix-entry-head, cmpl-prefix-entry-tail): Use defalias.
(completion-initialize): Rename from initialize-completions.
(completion-find-file-hook): Rename from cmpl-find-file-hook.
(kill-emacs-save-completions): Collect stats here.
(save-completions-to-file, load-completions-from-file):
Use with-current-buffer.
(completion-def-wrapper): Rename from def-completion-wrapper. Make it
into a function. Move all calls to toplevel.
(completion-lisp-mode-hook): New fun.
(completion-c-mode-hook, completion-setup-fortran-mode):
Set the syntax-table here. Use local-set-key.
(completion-saved-bindings): New var.
(dynamic-completion-mode): Make it into a proper minor mode.
(load-completions-from-file): Remove unused var `num-uses'.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Mon, 28 Nov 2005 01:43:28 +0000 |
parents | 3723093a21fd |
children | 067115a6e738 2d92f5c9d6ae |
rev | line source |
---|---|
21731 | 1 /* Simple client interface to DDE servers. |
64890
3723093a21fd
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64083
diff
changeset
|
2 Copyright (C) 1998, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. |
21731 | 3 |
4 This file is part of GNU Emacs. | |
5 | |
6 GNU Emacs is free software; you can redistribute it and/or modify | |
7 it under the terms of the GNU General Public License as published by | |
8 the Free Software Foundation; either version 2, or (at your option) | |
9 any later version. | |
10 | |
11 GNU Emacs is distributed in the hope that it will be useful, | |
12 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 GNU General Public License for more details. | |
15 | |
16 You should have received a copy of the GNU General Public License | |
17 along with GNU Emacs; see the file COPYING. If not, write to | |
64083 | 18 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
19 Boston, MA 02110-1301, USA. */ | |
21731 | 20 |
21 #include <windows.h> | |
22 #include <ddeml.h> | |
23 #include <stdlib.h> | |
24 #include <stdio.h> | |
25 | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
21731
diff
changeset
|
26 HDDEDATA CALLBACK |
21731 | 27 DdeCallback (UINT uType, UINT uFmt, HCONV hconv, |
28 HSZ hsz1, HSZ hsz2, HDDEDATA hdata, | |
29 DWORD dwData1, DWORD dwData2) | |
30 { | |
31 return ((HDDEDATA) NULL); | |
32 } | |
33 | |
34 #define DdeCommand(str) \ | |
35 DdeClientTransaction (str, strlen (str)+1, HConversation, (HSZ)NULL, \ | |
36 CF_TEXT, XTYP_EXECUTE, 30000, NULL) | |
37 | |
38 int | |
39 main (argc, argv) | |
40 int argc; | |
41 char *argv[]; | |
42 { | |
43 DWORD idDde = 0; | |
44 HCONV HConversation; | |
45 HSZ Server; | |
46 HSZ Topic = 0; | |
47 char command[1024]; | |
48 | |
49 if (argc < 2) | |
50 { | |
51 fprintf (stderr, "usage: ddeclient server [topic]\n"); | |
52 exit (1); | |
53 } | |
54 | |
55 DdeInitialize (&idDde, (PFNCALLBACK)DdeCallback, APPCMD_CLIENTONLY, 0); | |
56 | |
57 Server = DdeCreateStringHandle (idDde, argv[1], CP_WINANSI); | |
58 if (argc > 2) | |
59 Topic = DdeCreateStringHandle (idDde, argv[2], CP_WINANSI); | |
60 | |
61 HConversation = DdeConnect (idDde, Server, Topic, NULL); | |
62 if (HConversation != 0) | |
63 { | |
64 while (fgets (command, sizeof(command), stdin) != NULL) | |
65 DdeCommand (command); | |
66 | |
67 DdeDisconnect (HConversation); | |
68 } | |
69 | |
70 DdeFreeStringHandle (idDde, Server); | |
71 if (Topic) | |
72 DdeFreeStringHandle (idDde, Topic); | |
73 DdeUninitialize (idDde); | |
74 | |
75 return (0); | |
76 } | |
52401 | 77 |
78 /* arch-tag: 360d7a99-2cae-447e-8d06-41ca41987e30 | |
79 (do not change this comment) */ |