/* Add entries to the GNU Emacs Program Manager folder.
Copyright (C) 1995 Free Software Foundation, Inc.
- This file is part of GNU Emacs.
+This file is part of GNU Emacs.
- GNU Emacs is free software; you can redistribute it and/or modify it
- under the terms of the GNU General Public License as published by the
- Free Software Foundation; either version 2, or (at your option) any later
- version.
+GNU Emacs is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
- GNU Emacs is distributed in the hope that it will be useful, but WITHOUT
- ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
- FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
- more details.
+GNU Emacs is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+GNU General Public License for more details.
- You should have received a copy of the GNU General Public License along
- with GNU Emacs; see the file COPYING. If not, write to the Free Software
- Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
-*/
+You should have received a copy of the GNU General Public License
+along with GNU Emacs; see the file COPYING. If not, write to
+the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+Boston, MA 02111-1307, USA. */
/****************************************************************************
*
* Program: addpm (adds emacs to the Windows program manager)
*
* Usage:
- * argv[1] = full path to program to execute
+ * argv[1] = install path for emacs
* argv[2] = full path to icon for emacs (optional)
*/
#include <stdlib.h>
#include <stdio.h>
-HDDEDATA CALLBACK DdeCallback (UINT uType, UINT uFmt, HCONV hconv,
- HSZ hsz1, HSZ hsz2, HDDEDATA hdata,
- DWORD dwData1, DWORD dwData2)
+HDDEDATA CALLBACK
+DdeCallback (UINT uType, UINT uFmt, HCONV hconv,
+ HSZ hsz1, HSZ hsz2, HDDEDATA hdata,
+ DWORD dwData1, DWORD dwData2)
{
- return ((HDDEDATA)NULL);
+ return ((HDDEDATA) NULL);
}
#define DdeCommand(str) \
- DdeClientTransaction (str, strlen(str)+1, HConversation, (HSZ)NULL, \
+ DdeClientTransaction (str, strlen (str)+1, HConversation, (HSZ)NULL, \
CF_TEXT, XTYP_EXECUTE, 30000, NULL)
+#define REG_ROOT "SOFTWARE\\GNU\\Emacs"
+
+static struct entry
+{
+ char *name;
+ char *value;
+}
+env_vars[] =
+{
+ {"emacs_dir", NULL},
+ {"EMACSLOADPATH", "%emacs_dir%/lisp"},
+ {"SHELL", "%COMSPEC%"},
+ {"EMACSDATA", "%emacs_dir%/etc"},
+ {"EMACSPATH", "%emacs_dir%/bin"},
+ {"EMACSLOCKDIR", "%emacs_dir%/lock"},
+ {"INFOPATH", "%emacs_dir%/info"},
+ {"EMACSDOC", "%emacs_dir%/etc"},
+ {"TERM", "cmd"}
+};
+
+BOOL
+add_registry (path)
+ char *path;
+{
+ HKEY hrootkey = NULL;
+ DWORD dwDisp;
+ int i;
+ BOOL ok = TRUE;
+
+ /* Check both the current user and the local machine to see if we
+ have any resources. */
+
+ if (RegCreateKeyEx (HKEY_LOCAL_MACHINE, REG_ROOT,
+ 0, "", REG_OPTION_NON_VOLATILE,
+ KEY_WRITE, NULL, &hrootkey, &dwDisp) != ERROR_SUCCESS
+ && RegCreateKeyEx (HKEY_CURRENT_USER, REG_ROOT,
+ 0, "", REG_OPTION_NON_VOLATILE,
+ KEY_WRITE, NULL, &hrootkey, &dwDisp) != ERROR_SUCCESS)
+ {
+ return FALSE;
+ }
+
+ for (i = 0; i < (sizeof (env_vars) / sizeof (env_vars[0])); i++)
+ {
+ char * value = env_vars[i].value ? env_vars[i].value : path;
+
+ if (RegSetValueEx (hrootkey, env_vars[i].name,
+ 0, REG_EXPAND_SZ,
+ value, lstrlen (value) + 1) != ERROR_SUCCESS)
+ ok = FALSE;
+ }
+
+ RegCloseKey (hrootkey);
+
+ return (ok);
+}
+
+int
main (argc, argv)
int argc;
char *argv[];
HCONV HConversation;
HSZ ProgMan;
char additem[MAX_PATH*2 + 100];
+ char *lpext;
if (argc < 2 || argc > 3)
{
- fprintf(stderr, "usage: addpm exe_path [icon_path]\n");
- exit(1);
+ fprintf (stderr, "usage: addpm emacs_path [icon_path]\n");
+ exit (1);
}
+ lpext = add_registry (argv[1]) ? "exe" : "bat";
+
DdeInitialize (&idDde, (PFNCALLBACK)DdeCallback, APPCMD_CLIENTONLY, 0);
ProgMan = DdeCreateStringHandle (idDde, "PROGMAN", CP_WINANSI);
if (HConversation = DdeConnect (idDde, ProgMan, ProgMan, NULL))
{
- DdeCommand ("[CreateGroup(Gnu Emacs)]");
- DdeCommand ("[ReplaceItem(Emacs)]");
- sprintf (additem, "[AddItem(%s,Emacs%c%s)]",
- argv[1], (argc>2 ? ',' : ' '),
+ DdeCommand ("[CreateGroup (Gnu Emacs)]");
+ DdeCommand ("[ReplaceItem (Emacs)]");
+ sprintf (additem, "[AddItem (%s\\bin\\runemacs.%s, Emacs%c%s)]",
+ argv[1], lpext, (argc>2 ? ',' : ' '),
(argc>2 ? argv[2] : ""));
DdeCommand (additem);