Mercurial > emacs

comparison nt/addpm.c @ 49600:23a1cea22d13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Trailing whitespace deleted.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 04 Feb 2003 14:56:31 +0000
parents 9941f8a76c75
children 695cf19ef79e d7ddb3e565de
comparison
equal deleted inserted replaced
49599:5ade352e8d1c 49600:23a1cea22d13
30 #include <windows.h> 30 #include <windows.h>
31 #include <ddeml.h> 31 #include <ddeml.h>
32 #include <stdlib.h> 32 #include <stdlib.h>
33 #include <stdio.h> 33 #include <stdio.h>
34 34
35 HDDEDATA CALLBACK 35 HDDEDATA CALLBACK
36 DdeCallback (UINT uType, UINT uFmt, HCONV hconv, 36 DdeCallback (UINT uType, UINT uFmt, HCONV hconv,
37 HSZ hsz1, HSZ hsz2, HDDEDATA hdata, 37 HSZ hsz1, HSZ hsz2, HDDEDATA hdata,
38 DWORD dwData1, DWORD dwData2) 38 DWORD dwData1, DWORD dwData2)
39 { 39 {
40 return ((HDDEDATA) NULL); 40 return ((HDDEDATA) NULL);
48 48
49 static struct entry 49 static struct entry
50 { 50 {
51 char *name; 51 char *name;
52 char *value; 52 char *value;
53 } 53 }
54 env_vars[] = 54 env_vars[] =
55 { 55 {
56 {"emacs_dir", NULL}, 56 {"emacs_dir", NULL},
57 {"EMACSLOADPATH", "%emacs_dir%/site-lisp;%emacs_dir%/../site-lisp;%emacs_dir%/lisp;%emacs_dir%/leim"}, 57 {"EMACSLOADPATH", "%emacs_dir%/site-lisp;%emacs_dir%/../site-lisp;%emacs_dir%/lisp;%emacs_dir%/leim"},
58 {"SHELL", "%emacs_dir%/bin/cmdproxy.exe"}, 58 {"SHELL", "%emacs_dir%/bin/cmdproxy.exe"},
59 {"EMACSDATA", "%emacs_dir%/etc"}, 59 {"EMACSDATA", "%emacs_dir%/etc"},
63 /* {"INFOPATH", "%emacs_dir%/info"}, */ 63 /* {"INFOPATH", "%emacs_dir%/info"}, */
64 {"EMACSDOC", "%emacs_dir%/etc"}, 64 {"EMACSDOC", "%emacs_dir%/etc"},
65 {"TERM", "cmd"} 65 {"TERM", "cmd"}
66 }; 66 };
67 67
68 BOOL 68 BOOL
69 add_registry (path) 69 add_registry (path)
70 char *path; 70 char *path;
71 { 71 {
72 HKEY hrootkey = NULL; 72 HKEY hrootkey = NULL;
73 DWORD dwDisp; 73 DWORD dwDisp;
74 int i; 74 int i;
75 BOOL ok = TRUE; 75 BOOL ok = TRUE;
76 76
77 /* Check both the current user and the local machine to see if we 77 /* Check both the current user and the local machine to see if we
78 have any resources. */ 78 have any resources. */
79 79
80 if (RegCreateKeyEx (HKEY_LOCAL_MACHINE, REG_ROOT, 80 if (RegCreateKeyEx (HKEY_LOCAL_MACHINE, REG_ROOT,
81 0, "", REG_OPTION_NON_VOLATILE, 81 0, "", REG_OPTION_NON_VOLATILE,
82 KEY_WRITE, NULL, &hrootkey, &dwDisp) != ERROR_SUCCESS 82 KEY_WRITE, NULL, &hrootkey, &dwDisp) != ERROR_SUCCESS
83 && RegCreateKeyEx (HKEY_CURRENT_USER, REG_ROOT, 83 && RegCreateKeyEx (HKEY_CURRENT_USER, REG_ROOT,
84 0, "", REG_OPTION_NON_VOLATILE, 84 0, "", REG_OPTION_NON_VOLATILE,
85 KEY_WRITE, NULL, &hrootkey, &dwDisp) != ERROR_SUCCESS) 85 KEY_WRITE, NULL, &hrootkey, &dwDisp) != ERROR_SUCCESS)
86 { 86 {
87 return FALSE; 87 return FALSE;
88 } 88 }
89 89
90 for (i = 0; i < (sizeof (env_vars) / sizeof (env_vars[0])); i++) 90 for (i = 0; i < (sizeof (env_vars) / sizeof (env_vars[0])); i++)
91 { 91 {
92 char * value = env_vars[i].value ? env_vars[i].value : path; 92 char * value = env_vars[i].value ? env_vars[i].value : path;
93 93
94 if (RegSetValueEx (hrootkey, env_vars[i].name, 94 if (RegSetValueEx (hrootkey, env_vars[i].name,
95 0, REG_EXPAND_SZ, 95 0, REG_EXPAND_SZ,
96 value, lstrlen (value) + 1) != ERROR_SUCCESS) 96 value, lstrlen (value) + 1) != ERROR_SUCCESS)
97 ok = FALSE; 97 ok = FALSE;
98 } 98 }
99 99
100 RegCloseKey (hrootkey); 100 RegCloseKey (hrootkey);
101 101
102 return (ok); 102 return (ok);
103 } 103 }
104 104
105 int 105 int
106 main (argc, argv) 106 main (argc, argv)
107 int argc; 107 int argc;
108 char *argv[]; 108 char *argv[];
109 { 109 {
110 DWORD idDde = 0; 110 DWORD idDde = 0;
111 HCONV HConversation; 111 HCONV HConversation;
112 HSZ ProgMan; 112 HSZ ProgMan;
113 char modname[MAX_PATH]; 113 char modname[MAX_PATH];