annotate nt/addpm.c @ 16842:72276b334084 before-thomas-posix1996 glibc-2_0_2 libc-970108 libc-970109 libc-970110 libc-970111 libc-970112 libc-970113 libc-970114 libc-970115 libc-970116 libc-970117 libc-970118 libc-970119 libc-970120 libc-970121 libc-970122 libc-970123 libc-970124 libc-970125 libc-970126 libc-970127 libc-970128 libc-970129 libc-970130 libc-970131 libc-970201 libc-970202 libc-970203 libc-970204 libc-970205 libc-970206 libc-970207 libc-970208 libc-970209 libc-970210 libc-970211 libc-970212 libc-970213 libc-970214 libc-970215 libc-970216 libc-970217 libc-970218 libc-970219 libc-970220 libc-970221 libc-970222 libc-970223 libc-970224 libc-970225 libc-970226 libc-970227 libc-970228 libc-970301 libc-970302 libc-970303 libc-970304 libc-970305 libc-970306 libc-970307 libc-970308 libc-970309 libc-970310 libc-970311 libc-970312 libc-970313 libc-970314 libc-970315 libc-970316 libc-970317 libc-970318 libc-970319 libc-970320 libc-970321 libc-970322 libc-970323 libc-970324 libc20x-970306 libc20x-97031 libc20x-970316 libc20x-970318 libc20x-970319 libc20x-970404 root-libc-2_0_x-branch

Add hppa1.1-hitachi-hiuxmpp support, passed along by rms.
author David J. MacKenzie <djm@gnu.org>
date Tue, 07 Jan 1997 19:29:28 +0000
parents 0a7ce510e9c5
children d0ffa428c6e3
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1 /* Add entries to the GNU Emacs Program Manager folder.
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2 Copyright (C) 1995 Free Software Foundation, Inc.
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3
14185
aba3b91c8b3d Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents: 13438
diff changeset
4 This file is part of GNU Emacs.
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5
14185
aba3b91c8b3d Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents: 13438
diff changeset
6 GNU Emacs is free software; you can redistribute it and/or modify
aba3b91c8b3d Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents: 13438
diff changeset
7 it under the terms of the GNU General Public License as published by
aba3b91c8b3d Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents: 13438
diff changeset
8 the Free Software Foundation; either version 2, or (at your option)
aba3b91c8b3d Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents: 13438
diff changeset
9 any later version.
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10
14185
aba3b91c8b3d Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents: 13438
diff changeset
11 GNU Emacs is distributed in the hope that it will be useful,
aba3b91c8b3d Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents: 13438
diff changeset
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
aba3b91c8b3d Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents: 13438
diff changeset
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
aba3b91c8b3d Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents: 13438
diff changeset
14 GNU General Public License for more details.
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
15
14185
aba3b91c8b3d Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents: 13438
diff changeset
16 You should have received a copy of the GNU General Public License
aba3b91c8b3d Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents: 13438
diff changeset
17 along with GNU Emacs; see the file COPYING. If not, write to
aba3b91c8b3d Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents: 13438
diff changeset
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
aba3b91c8b3d Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents: 13438
diff changeset
19 Boston, MA 02111-1307, USA. */
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
20
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
21 /****************************************************************************
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
22 *
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
23 * Program: addpm (adds emacs to the Windows program manager)
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
24 *
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
25 * Usage:
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
26 * argv[1] = install path for emacs
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
27 * argv[2] = full path to icon for emacs (optional)
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
28 */
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
29
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
30 #include <windows.h>
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
31 #include <ddeml.h>
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
32 #include <stdlib.h>
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
33 #include <stdio.h>
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
34
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
35 HDDEDATA CALLBACK
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
36 DdeCallback (UINT uType, UINT uFmt, HCONV hconv,
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
37 HSZ hsz1, HSZ hsz2, HDDEDATA hdata,
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
38 DWORD dwData1, DWORD dwData2)
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
39 {
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
40 return ((HDDEDATA) NULL);
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
41 }
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
42
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
43 #define DdeCommand(str) \
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
44 DdeClientTransaction (str, strlen (str)+1, HConversation, (HSZ)NULL, \
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
45 CF_TEXT, XTYP_EXECUTE, 30000, NULL)
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
46
15130
493eee829532 (REG_ROOT): Don't use a trailing backslash.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14185
diff changeset
47 #define REG_ROOT "SOFTWARE\\GNU\\Emacs"
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
48
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
49 static struct entry
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
50 {
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
51 char *name;
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
52 char *value;
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
53 }
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
54 env_vars[] =
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
55 {
15130
493eee829532 (REG_ROOT): Don't use a trailing backslash.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14185
diff changeset
56 {"emacs_dir", NULL},
16828
0a7ce510e9c5 (env_vars): Add site-lisp to EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15322
diff changeset
57 {"EMACSLOADPATH", "%emacs_dir%/lisp;%emacs_dir%/site-lisp"},
15188
aba0eb3e723d (env_vars): Set SHELL registry entry to value of COMSPEC environment variable.
Richard M. Stallman <rms@gnu.org>
parents: 15130
diff changeset
58 {"SHELL", "%COMSPEC%"},
15322
eb3d8a25866a (env_vars): Use slashes, not backslashes.
Richard M. Stallman <rms@gnu.org>
parents: 15188
diff changeset
59 {"EMACSDATA", "%emacs_dir%/etc"},
eb3d8a25866a (env_vars): Use slashes, not backslashes.
Richard M. Stallman <rms@gnu.org>
parents: 15188
diff changeset
60 {"EMACSPATH", "%emacs_dir%/bin"},
eb3d8a25866a (env_vars): Use slashes, not backslashes.
Richard M. Stallman <rms@gnu.org>
parents: 15188
diff changeset
61 {"EMACSLOCKDIR", "%emacs_dir%/lock"},
eb3d8a25866a (env_vars): Use slashes, not backslashes.
Richard M. Stallman <rms@gnu.org>
parents: 15188
diff changeset
62 {"INFOPATH", "%emacs_dir%/info"},
eb3d8a25866a (env_vars): Use slashes, not backslashes.
Richard M. Stallman <rms@gnu.org>
parents: 15188
diff changeset
63 {"EMACSDOC", "%emacs_dir%/etc"},
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
64 {"TERM", "cmd"}
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
65 };
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
66
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
67 BOOL
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
68 add_registry (path)
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
69 char *path;
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
70 {
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
71 HKEY hrootkey = NULL;
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
72 DWORD dwDisp;
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
73 int i;
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
74 BOOL ok = TRUE;
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
75
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
76 /* Check both the current user and the local machine to see if we
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
77 have any resources. */
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
78
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
79 if (RegCreateKeyEx (HKEY_LOCAL_MACHINE, REG_ROOT,
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
80 0, "", REG_OPTION_NON_VOLATILE,
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
81 KEY_WRITE, NULL, &hrootkey, &dwDisp) != ERROR_SUCCESS
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
82 && RegCreateKeyEx (HKEY_CURRENT_USER, REG_ROOT,
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
83 0, "", REG_OPTION_NON_VOLATILE,
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
84 KEY_WRITE, NULL, &hrootkey, &dwDisp) != ERROR_SUCCESS)
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
85 {
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
86 return FALSE;
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
87 }
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
88
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
89 for (i = 0; i < (sizeof (env_vars) / sizeof (env_vars[0])); i++)
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
90 {
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
91 char * value = env_vars[i].value ? env_vars[i].value : path;
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
92
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
93 if (RegSetValueEx (hrootkey, env_vars[i].name,
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
94 0, REG_EXPAND_SZ,
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
95 value, lstrlen (value) + 1) != ERROR_SUCCESS)
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
96 ok = FALSE;
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
97 }
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
98
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
99 RegCloseKey (hrootkey);
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
100
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
101 return (ok);
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
102 }
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
103
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
104 int
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
105 main (argc, argv)
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
106 int argc;
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
107 char *argv[];
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
108 {
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
109 DWORD idDde;
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
110 HCONV HConversation;
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
111 HSZ ProgMan;
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
112 char additem[MAX_PATH*2 + 100];
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
113 char *lpext;
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
114
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
115 if (argc < 2 || argc > 3)
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
116 {
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
117 fprintf (stderr, "usage: addpm emacs_path [icon_path]\n");
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
118 exit (1);
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
119 }
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
120
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
121 lpext = add_registry (argv[1]) ? "exe" : "bat";
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
122
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
123 DdeInitialize (&idDde, (PFNCALLBACK)DdeCallback, APPCMD_CLIENTONLY, 0);
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
124
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
125 ProgMan = DdeCreateStringHandle (idDde, "PROGMAN", CP_WINANSI);
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
126
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
127 if (HConversation = DdeConnect (idDde, ProgMan, ProgMan, NULL))
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
128 {
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
129 DdeCommand ("[CreateGroup (Gnu Emacs)]");
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
130 DdeCommand ("[ReplaceItem (Emacs)]");
15130
493eee829532 (REG_ROOT): Don't use a trailing backslash.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14185
diff changeset
131 sprintf (additem, "[AddItem (%s\\bin\\runemacs.%s, Emacs%c%s)]",
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
132 argv[1], lpext, (argc>2 ? ',' : ' '),
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
133 (argc>2 ? argv[2] : ""));
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
134 DdeCommand (additem);
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
135
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
136 DdeDisconnect (HConversation);
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
137 }
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
138
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
139 DdeFreeStringHandle (idDde, ProgMan);
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
140
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
141 DdeUninitialize (idDde);
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
142
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
143 return (0);
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
144 }