-/* Add entries to the GNU Emacs Program Manager folder.
- Copyright (C) 1995 Free Software Foundation, Inc.
-
- 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 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.
-*/
-
-/* addpm: Adds entries to the GNU Emacs Program Manager folder.
-
- argv[1] = full path to program to execute
- argv[2] = full path to icon for emacs (optional)
- */
-
-#include <windows.h> // required for all Windows applications
-#include <ddeml.h> // required for DDEML
-#include <string.h> // required for strcpy and strlen
-
-HDDEDATA EXPENTRY dde_callback (WORD, WORD, HCONV, HSZ, HSZ, HDDEDATA, DWORD, DWORD);
-BOOL send_shell_command (DWORD, LPSTR);
-
-// Global variables
-HANDLE gh_inst; // current instance
-
-/****************************************************************************
- FUNCTION: WinMain()
-
- PURPOSE: Calls initialization function, processes message loop
-
- PARAMETERS:
- HANDLE h_instance
- HANDLE h_prev_instance
- LPSTR lp_cmd_line
- int n_cmd_show
-
- RETURNS:
- int
-****************************************************************************/
-
-int PASCAL
-WinMain (HANDLE h_instance, // current instance
- HANDLE h_prev_instance, // previous instance
- LPSTR lp_cmd_line, // command line
- int n_cmd_show) // show-window type (open/icon)
-{
- DWORD id_inst = 0L; // instance identifier
- FARPROC lp_dde_proc;
- char *path, *icon, *s;
- char additem[MAX_PATH*2 + 100];
-
- gh_inst = h_instance;
-
- for (path = NULL, s = lp_cmd_line; *s && isspace (*s); s++);
- if (*s)
- {
- path = s;
- while (*s && !isspace (*s))
- s++;
- if (*s)
- *(s++) = '\0';
- }
- for (icon = NULL; *s && isspace (*s); s++);
- if (*s)
- {
- icon = s;
- while (*s && !isspace (*s))
- s++;
- if (*s)
- *(s++) = '\0';
- }
-
- lp_dde_proc = MakeProcInstance ((FARPROC) dde_callback, gh_inst);
-
- DdeInitialize (&id_inst, // receives instance ID
- (PFNCALLBACK) lp_dde_proc, // address of callback function
- APPCMD_CLIENTONLY, // this is a client app
- 0L); // reserved
-
- send_shell_command (id_inst, (LPSTR) "[CreateGroup(Gnu Emacs)]");
-
- send_shell_command (id_inst, (LPSTR) "[ReplaceItem(Emacs)]");
-
- sprintf (additem, "[AddItem(%s,Emacs%c%s)]",
- path, (icon ? ',' : ' '), (icon ? icon : ""));
- send_shell_command (id_inst, additem);
-
- DdeUninitialize (id_inst);
-
- return (0);
-}
-
-
-/****************************************************************************
- FUNCTION: dde_callback()
-
- PURPOSE: Processes messages for DDEML conversation
-
- PARAMETERS:
- WORD w_type
- WORD w_fmt
- HCONV h_conv
- HSZ hsz1
- HSZ hsz2
- HDDEDATA h_data
- DWORD dw_data1
- DWORD dw_data2
-
- RETURNS:
- HDDEDATA
-****************************************************************************/
-
-HDDEDATA EXPENTRY
-dde_callback (WORD w_type, // transaction type
- WORD w_fmt, // clipboard format
- HCONV h_conv, // handle of the conversation
- HSZ hsz1, // handle of a string
- HSZ hsz2, // handle of a string
- HDDEDATA h_data, // handle of a global memory object
- DWORD dw_data1, // transaction-specific data
- DWORD dw_data2) // transaction-specific data
-{
- // Nothing need be done here...
- return (HDDEDATA) NULL;
-}
-
-
-/****************************************************************************
- FUNCTION: send_shell_command()
-
- PURPOSE: Sends the given command string to Program Manager
-
- PARAMETERS:
- LPSTR - pointer to command string
-
- RETURNS:
- BOOL - TRUE if this function succeeds, FALSE otherwise
-****************************************************************************/
-
-BOOL
-send_shell_command (DWORD id_inst, // instance identifier
- LPSTR lp_command) // command string to execute
-{
- HSZ hsz_serv_top; // Service and Topic name are "PROGMAN"
- HCONV hconv; // handle of conversation
- int n_len; // length of command string
- HDDEDATA h_data; // return value of DdeClientTransaction
- DWORD dw_result; // result of transaction
- BOOL b_result = FALSE; // TRUE if this function is successful
-
- // create string handle to service/topic
- hsz_serv_top = DdeCreateStringHandle (id_inst, "PROGMAN", CP_WINANSI);
-
- // attempt to start conversation with server app
- if ((hconv = DdeConnect (id_inst, hsz_serv_top, hsz_serv_top, NULL))
- != (HCONV) NULL)
- {
- // get length of the command string
- n_len = lstrlen ((LPSTR) lp_command);
-
- // send command to server app
- h_data = DdeClientTransaction ((LPBYTE) lp_command, // data to pass
- n_len + 1, // length of data
- hconv, // handle of conversation
- (HCONV) NULL, // handle of name-string
- CF_TEXT, // clipboard format
- XTYP_EXECUTE, // transaction type
- 1000, // timeout duration
- &dw_result); // transaction result
-
- if (h_data)
- b_result = TRUE;
-
- // end conversation
- DdeDisconnect (hconv);
- }
-
- // free service/topic string handle
- DdeFreeStringHandle (id_inst, hsz_serv_top);
-
- return b_result;
-}
+/* Add entries to the GNU Emacs Program Manager folder.
+ Copyright (C) 1995 Free Software Foundation, Inc.
+
+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 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, Inc., 59 Temple Place - Suite 330,
+Boston, MA 02111-1307, USA. */
+
+/****************************************************************************
+ *
+ * Program: addpm (adds emacs to the Windows program manager)
+ *
+ * Usage:
+ * argv[1] = install path for emacs
+ * argv[2] = full path to icon for emacs (optional)
+ */
+
+#include <windows.h>
+#include <ddeml.h>
+#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)
+{
+ return ((HDDEDATA) NULL);
+}
+
+#define DdeCommand(str) \
+ 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;%emacs_dir%/site-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[];
+{
+ DWORD idDde;
+ HCONV HConversation;
+ HSZ ProgMan;
+ char additem[MAX_PATH*2 + 100];
+ char *lpext;
+
+ if (argc < 2 || argc > 3)
+ {
+ 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\\bin\\runemacs.%s, Emacs%c%s)]",
+ argv[1], lpext, (argc>2 ? ',' : ' '),
+ (argc>2 ? argv[2] : ""));
+ DdeCommand (additem);
+
+ DdeDisconnect (HConversation);
+ }
+
+ DdeFreeStringHandle (idDde, ProgMan);
+
+ DdeUninitialize (idDde);
+
+ return (0);
+}