(cvs-mode-revert-buffer): Doc fix.
[emacs.git] / nt / addpm.c
blobb9f741bf43a7c40ad9da5aa85404d0a5f089598d
1 /* Add entries to the GNU Emacs Program Manager folder.
2 Copyright (C) 1995 Free Software Foundation, Inc.
4 This file is part of GNU Emacs.
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.
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.
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
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
21 /****************************************************************************
23 * Program: addpm (adds emacs to the Windows program manager)
25 * Usage:
26 * argv[1] = install path for emacs
27 * argv[2] = full path to icon for emacs (optional)
30 #include <windows.h>
31 #include <ddeml.h>
32 #include <stdlib.h>
33 #include <stdio.h>
35 HDDEDATA CALLBACK
36 DdeCallback (UINT uType, UINT uFmt, HCONV hconv,
37 HSZ hsz1, HSZ hsz2, HDDEDATA hdata,
38 DWORD dwData1, DWORD dwData2)
40 return ((HDDEDATA) NULL);
43 #define DdeCommand(str) \
44 DdeClientTransaction (str, strlen (str)+1, HConversation, (HSZ)NULL, \
45 CF_TEXT, XTYP_EXECUTE, 30000, NULL)
47 #define REG_ROOT "SOFTWARE\\GNU\\Emacs"
49 static struct entry
51 char *name;
52 char *value;
54 env_vars[] =
56 {"emacs_dir", NULL},
57 {"EMACSLOADPATH", "%emacs_dir%/site-lisp;%emacs_dir%/../site-lisp;%emacs_dir%/lisp;%emacs_dir%/leim"},
58 {"SHELL", "%emacs_dir%/bin/cmdproxy.exe"},
59 {"EMACSDATA", "%emacs_dir%/etc"},
60 {"EMACSPATH", "%emacs_dir%/bin"},
61 {"EMACSLOCKDIR", "%emacs_dir%/lock"},
62 /* We no longer set INFOPATH because Info-default-directory-list
63 is then ignored. */
64 /* {"INFOPATH", "%emacs_dir%/info"}, */
65 {"EMACSDOC", "%emacs_dir%/etc"},
66 {"TERM", "cmd"}
69 BOOL
70 add_registry (path)
71 char *path;
73 HKEY hrootkey = NULL;
74 DWORD dwDisp;
75 int i;
76 BOOL ok = TRUE;
78 /* Check both the current user and the local machine to see if we
79 have any resources. */
81 if (RegCreateKeyEx (HKEY_LOCAL_MACHINE, REG_ROOT,
82 0, "", REG_OPTION_NON_VOLATILE,
83 KEY_WRITE, NULL, &hrootkey, &dwDisp) != ERROR_SUCCESS
84 && RegCreateKeyEx (HKEY_CURRENT_USER, REG_ROOT,
85 0, "", REG_OPTION_NON_VOLATILE,
86 KEY_WRITE, NULL, &hrootkey, &dwDisp) != ERROR_SUCCESS)
88 return FALSE;
91 for (i = 0; i < (sizeof (env_vars) / sizeof (env_vars[0])); i++)
93 char * value = env_vars[i].value ? env_vars[i].value : path;
95 if (RegSetValueEx (hrootkey, env_vars[i].name,
96 0, REG_EXPAND_SZ,
97 value, lstrlen (value) + 1) != ERROR_SUCCESS)
98 ok = FALSE;
101 RegCloseKey (hrootkey);
103 return (ok);
107 main (argc, argv)
108 int argc;
109 char *argv[];
111 DWORD idDde = 0;
112 HCONV HConversation;
113 HSZ ProgMan;
114 char modname[MAX_PATH];
115 char additem[MAX_PATH*2 + 100];
116 char *prog_name;
117 char *emacs_path;
118 char *p;
119 int quiet = 0;
121 /* If no args specified, use our location to set emacs_path. */
122 #if 0
123 if (argc < 2 || argc > 3)
125 fprintf (stderr, "usage: addpm [/q] [emacs_path [icon_path]]\n");
126 exit (1);
128 #endif
130 if (argc > 1 && argv[1][0] == '/' && argv[1][1] == 'q')
132 quiet = 1;
133 --argc;
134 ++argv;
137 if (argc > 1)
138 emacs_path = argv[1];
139 else
141 if (!GetModuleFileName (NULL, modname, MAX_PATH) ||
142 (p = strrchr (modname, '\\')) == NULL)
144 fprintf (stderr, "fatal error");
145 exit (1);
147 *p = 0;
149 /* Set emacs_path to emacs_dir if we are in "%emacs_dir%\bin". */
150 if ((p = strrchr (modname, '\\')) && stricmp (p, "\\bin") == 0)
152 *p = 0;
153 emacs_path = modname;
155 else
157 fprintf (stderr, "usage: addpm emacs_path [icon_path]\n");
158 exit (1);
161 /* Tell user what we are going to do. */
162 if (!quiet)
164 int result;
166 char msg[ MAX_PATH ];
167 sprintf (msg, "Install Emacs at %s?\n", emacs_path);
168 result = MessageBox (NULL, msg, "Install Emacs",
169 MB_OKCANCEL | MB_ICONQUESTION);
170 if (result != IDOK)
172 fprintf (stderr, "Install cancelled\n");
173 exit (1);
178 add_registry (emacs_path);
179 prog_name = "runemacs.exe";
181 DdeInitialize (&idDde, (PFNCALLBACK)DdeCallback, APPCMD_CLIENTONLY, 0);
183 ProgMan = DdeCreateStringHandle (idDde, "PROGMAN", CP_WINANSI);
185 HConversation = DdeConnect (idDde, ProgMan, ProgMan, NULL);
186 if (HConversation != 0)
188 DdeCommand ("[CreateGroup (\"Gnu Emacs\")]");
189 DdeCommand ("[ReplaceItem (Emacs)]");
190 if (argc > 2)
191 sprintf (additem, "[AddItem (\"%s\\bin\\%s\", Emacs, \"%s\")]",
192 emacs_path, prog_name, argv[2]);
193 else
194 sprintf (additem, "[AddItem (\"%s\\bin\\%s\", Emacs)]",
195 emacs_path, prog_name);
196 DdeCommand (additem);
198 DdeDisconnect (HConversation);
201 DdeFreeStringHandle (idDde, ProgMan);
203 DdeUninitialize (idDde);
205 return (0);