--- /dev/null
+/* 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;
+}
projects / emacs.git / commitdiff