git.chise.org Git - chise/xemacs-chise.git.1/blob - netinstall/desktop.cc

   1 /*
   2  * Copyright (c) 2000, Red Hat, Inc.
   3  *
   4  *     This program is free software; you can redistribute it and/or modify
   5  *     it under the terms of the GNU General Public License as published by
   6  *     the Free Software Foundation; either version 2 of the License, or
   7  *     (at your option) any later version.
   8  *
   9  *     A copy of the GNU General Public License can be found at
  10  *     http://www.gnu.org/
  11  *
  12  * Written by DJ Delorie <dj@cygnus.com>
  13  *
  14  */
  15
  16 /* The purpose of this file is to manage all the desktop setup, such
  17    as start menu, batch files, desktop icons, and shortcuts.  Note
  18    that unlike other do_* functions, this one is called directly from
  19    install.cc */
  20
  21
  22 #include "win32.h"
  23 #include <shlobj.h>
  24
  25 #include <io.h>
  26 #include <stdio.h>
  27 #include <stdlib.h>
  28 #ifndef WIN32_NATIVE
  29 #include <unistd.h>
  30 #endif
  31
  32 #include "resource.h"
  33 #include "ini.h"
  34 #include "msg.h"
  35 #include "state.h"
  36 #include "concat.h"
  37 #include "mkdir.h"
  38 #include "dialog.h"
  39 #include "version.h"
  40 #include "reginfo.h"
  41 #include "regedit.h"
  42 #include "port.h"
  43
  44 extern "C" {
  45   void make_link_2 (char *exepath, char *args, char *icon, char *lname);
  46 };
  47
  48 static OSVERSIONINFO verinfo;
  49
  50 /* Lines starting with '@' are conditionals - include 'N' for NT,
  51    '5' for Win95, '8' for Win98, '*' for all, like this:
  52         echo foo
  53         @N8
  54         echo NT or 98
  55         @*
  56    */
  57
  58 #define COMMAND9XARGS "/E:4096 /c"
  59 #define COMMAND9XEXE  "\\command.com"
  60
  61 static char *iconname;
  62 static char *batname;
  63
  64 static void
  65 make_link (char *linkpath, char *title, char *target)
  66 {
  67   char argbuf[_MAX_PATH];
  68   char *fname = concat (linkpath, "/", title, ".lnk", 0);
  69
  70   if (_access (fname, 0) == 0)
  71     return; /* already exists */
  72
  73   msg ("make_link %s, %s, %s\n", fname, title, target);
  74
  75   mkdir_p (0, fname);
  76
  77   char *exepath, *args;
  78
  79   /* If we are running Win9x, build a command line. */
  80   if (verinfo.dwPlatformId == VER_PLATFORM_WIN32_NT)
  81     {
  82       exepath = target;
  83       args = "";
  84     }
  85   else
  86     {
  87       char windir[MAX_PATH];
  88
  89       GetWindowsDirectory (windir, sizeof (windir));
  90       exepath = concat (windir, COMMAND9XEXE, 0);
  91       sprintf (argbuf, "%s %s", COMMAND9XARGS, target);
  92       args = argbuf;
  93     }
  94
  95   msg ("make_link_2 (%s, %s, %s, %s)", exepath, args, iconname, fname);
  96   make_link_2 (exepath, args, iconname, fname);
  97 }
  98
  99 static char*
 100 find_xemacs_exe_path ()
 101 {
 102   if (xemacs_package->type == TY_CYGWIN)
 103     return backslash (concat (root_dir, "/bin/", XEMACS_CYGWIN_ARCH_NAME, 0));
 104   else
 105     return backslash (concat (root_dir, "\\XEmacs-",
 106                               xemacs_package->info[xemacs_package->trust].version,
 107                               "\\", XEMACS_NATIVE_ARCH_NAME, 0));
 108 }
 109
 110 static char*
 111 find_xemacs_exe_name ()
 112 {
 113   /* Hack to support older versions. */
 114   if (strncmp (xemacs_package->info[xemacs_package->trust].version,
 115                "21.1", 4) == 0)
 116     return strdup ("runemacs.exe");
 117   else if (xemacs_package->type == TY_CYGWIN)
 118     return backslash (concat ("xemacs-",
 119                               xemacs_package->info[xemacs_package->trust].version,
 120                               ".exe", 0));
 121   else
 122     return strdup ("xemacs.exe");
 123 }
 124
 125 static void
 126 start_menu (char *title, char *target)
 127 {
 128   char path[_MAX_PATH];
 129   LPITEMIDLIST id;
 130   int issystem = (root_scope == IDC_ROOT_SYSTEM) ? 1 : 0;
 131   SHGetSpecialFolderLocation (NULL, issystem ? CSIDL_COMMON_PROGRAMS : CSIDL_PROGRAMS, &id);
 132   SHGetPathFromIDList (id, path);
 133 // following lines added because it appears Win95 does not use common programs
 134 // unless it comes into play when multiple users for Win95 is enabled
 135   msg("Program directory for program link: %s",path);
 136   if ( strlen(path) == 0) {
 137      SHGetSpecialFolderLocation (NULL, CSIDL_PROGRAMS, &id);
 138      SHGetPathFromIDList (id, path);
 139      msg("Program directory for program link changed to: %s",path);
 140   }
 141 // end of Win95 addition
 142   strcat (path, "/");
 143   strcat (path, XEMACS_INFO_XEMACS_ORG_REGISTRY_NAME);
 144   make_link (path, title, target);
 145 }
 146
 147 static void
 148 desktop_icon (char *title, char *target)
 149 {
 150   char path[_MAX_PATH];
 151   LPITEMIDLIST id;
 152   int issystem = (root_scope == IDC_ROOT_SYSTEM) ? 1 : 0;
 153   //SHGetSpecialFolderLocation (NULL, issystem ? CSIDL_DESKTOP : CSIDL_COMMON_DESKTOPDIRECTORY, &id);
 154   SHGetSpecialFolderLocation (NULL, issystem ? CSIDL_COMMON_DESKTOPDIRECTORY : CSIDL_DESKTOPDIRECTORY, &id);
 155   SHGetPathFromIDList (id, path);
 156 // following lines added because it appears Win95 does not use common programs
 157 // unless it comes into play when multiple users for Win95 is enabled
 158   msg("Desktop directory for desktop link: %s",path);
 159   if ( strlen(path) == 0) {
 160      SHGetSpecialFolderLocation (NULL, CSIDL_DESKTOPDIRECTORY, &id);
 161      SHGetPathFromIDList (id, path);
 162      msg("Desktop directory for deskop link changed to: %s",path);
 163   }
 164 // end of Win95 addition
 165   make_link (path, title, target);
 166 }
 167
 168 static int
 169 uexists (char *path)
 170 {
 171   char *f = concat (root_dir, path, 0);
 172   int a = _access (f, 0);
 173   free (f);
 174   if (a == 0)
 175     return 1;
 176   return 0;
 177 }
 178
 179 static void
 180 make_passwd_group ()
 181 {
 182   if (verinfo.dwPlatformId != VER_PLATFORM_WIN32_NT)
 183     {
 184       int i;
 185
 186       LOOP_PACKAGES
 187         {
 188           if (!strcmp (package[i].name, "cygwin"))
 189             {
 190               /* mkpasswd and mkgroup are not working on 9x/ME up to 1.1.5-4 */
 191               char *border_version = canonicalize_version ("1.1.5-4");
 192               char *inst_version = canonicalize_version (pi.version);
 193
 194               if (strcmp (inst_version, border_version) <= 0)
 195                 return;
 196
 197               break;
 198             }
 199         }
 200     }
 201
 202   if (uexists ("/etc/passwd") && uexists ("/etc/group"))
 203     return;
 204
 205   char *fname = concat (root_dir, "/etc/postinstall/passwd-grp.bat", 0);
 206   mkdir_p (0, fname);
 207
 208   FILE *p = fopen (fname, "wb");
 209   if (!p)
 210     return;
 211
 212   if (!uexists ("/etc/passwd"))
 213     fprintf (p, "bin\\mkpasswd -l > etc\\passwd\n");
 214   if (!uexists ("/etc/group"))
 215     fprintf (p, "bin\\mkgroup -l > etc\\group\n");
 216
 217   fclose (p);
 218 }
 219
 220 static void
 221 save_icon ()
 222 {
 223   iconname = backslash (concat (root_dir, XEMACS_RESOURCE_DIR,
 224                                 "xemacs.ico", 0));
 225
 226   HRSRC rsrc = FindResource (NULL, "XEMACS.ICON", "FILE");
 227   if (rsrc == NULL)
 228     {
 229       fatal ("FindResource failed");
 230     }
 231   HGLOBAL res = LoadResource (NULL, rsrc);
 232   char *data = (char *) LockResource (res);
 233   int len = SizeofResource (NULL, rsrc);
 234
 235   FILE *f = fopen (iconname, "wb");
 236   if (f)
 237     {
 238       fwrite (data, 1, len, f);
 239       fclose (f);
 240     }
 241 }
 242
 243 static void
 244 do_desktop_setup()
 245 {
 246   save_icon ();
 247
 248   if (root_menu && batname) {
 249     start_menu ("XEmacs", batname);
 250   }
 251
 252   if (root_desktop && batname) {
 253     desktop_icon ("XEmacs", batname);
 254   }
 255
 256   // set regkeys for the application
 257   if (xemacs_package != 0)
 258     {
 259       int issystem = (root_scope == IDC_ROOT_SYSTEM ? 1 : 0);
 260       if (xemacs_package->type == TY_NATIVE)
 261         {
 262 #define FROB(exe)         set_app_path ((exe), \
 263                         find_xemacs_exe_path (), \
 264                         issystem)
 265           FROB (find_xemacs_exe_name ());
 266           FROB ("runemacs.exe");
 267           FROB ("xemacs.exe");
 268 #undef FROB
 269         }
 270       else if (xemacs_package->type == TY_CYGWIN)
 271         {
 272           int junk;
 273           char* root = find_cygwin_root (&junk);
 274 #define FROB(exe)       set_app_path ((exe), \
 275                         concat (find_xemacs_exe_path (), ";", \
 276                                 root, "\\bin;", \
 277                                 root, "\\usr\\bin", 0), \
 278                         issystem)
 279           FROB (find_xemacs_exe_name ());
 280           FROB ("runemacs.exe");
 281           FROB ("xemacs.exe");
 282 #undef FROB
 283         }
 284     }
 285 }
 286
 287 static int da[] = { IDC_ROOT_DESKTOP, 0 };
 288 static int ma[] = { IDC_ROOT_MENU, 0 };
 289
 290 static void
 291 check_if_enable_next (HWND h)
 292 {
 293   EnableWindow (GetDlgItem (h, IDOK), 1);
 294 }
 295
 296 static void
 297 load_dialog (HWND h)
 298 {
 299   rbset (h, da, root_desktop);
 300   rbset (h, ma, root_menu);
 301   check_if_enable_next (h);
 302 }
 303
 304 static int check_desktop (char *title, char *target)
 305 {
 306   char path[_MAX_PATH];
 307   LPITEMIDLIST id;
 308   int issystem = (root_scope == IDC_ROOT_SYSTEM) ? 1 : 0;
 309   SHGetSpecialFolderLocation (NULL, issystem ? CSIDL_COMMON_DESKTOPDIRECTORY : CSIDL_DESKTOPDIRECTORY, &id);
 310   SHGetPathFromIDList (id, path);
 311   // following lines added because it appears Win95 does not use common programs
 312   // unless it comes into play when multiple users for Win95 is enabled
 313   msg ("Desktop directory for desktop link: %s",path);
 314   if (strlen (path) == 0) {
 315      SHGetSpecialFolderLocation (NULL, CSIDL_DESKTOPDIRECTORY, &id);
 316      SHGetPathFromIDList (id, path);
 317      msg ("Desktop directory for deskop link changed to: %s",path);
 318   }
 319   // end of Win95 addition
 320   char *fname = concat (path, "/", title, ".lnk", 0);
 321
 322   if (_access (fname, 0) == 0)
 323     return 0; /* already exists */
 324
 325   fname = concat (path, "/", title, ".pif", 0); /* check for a pif as well */
 326
 327   if (_access (fname, 0) == 0)
 328     return 0; /* already exists */
 329
 330   return IDC_ROOT_DESKTOP;
 331 }
 332
 333 static int check_startmenu (char *title, char *target)
 334 {
 335   char path[_MAX_PATH];
 336   LPITEMIDLIST id;
 337   int issystem = (root_scope == IDC_ROOT_SYSTEM) ? 1 : 0;
 338   SHGetSpecialFolderLocation (NULL, issystem ? CSIDL_COMMON_PROGRAMS : CSIDL_PROGRAMS, &id);
 339   SHGetPathFromIDList (id, path);
 340   // following lines added because it appears Win95 does not use common programs
 341   // unless it comes into play when multiple users for Win95 is enabled
 342   msg ("Program directory for program link: %s",path);
 343   if (strlen (path) == 0) {
 344      SHGetSpecialFolderLocation (NULL, CSIDL_PROGRAMS, &id);
 345      SHGetPathFromIDList (id, path);
 346      msg ("Program directory for program link changed to: %s",path);
 347   }
 348   // end of Win95 addition
 349   strcat (path, "/");
 350   strcat (path, XEMACS_INFO_XEMACS_ORG_REGISTRY_NAME);
 351   char *fname = concat (path, "/", title, ".lnk", 0);
 352
 353   if (_access (fname, 0) == 0)
 354     return 0; /* already exists */
 355
 356   fname = concat (path, "/", title, ".pif", 0); /* check for a pif as well */
 357
 358   if (_access (fname, 0) == 0)
 359     return 0; /* already exists */
 360
 361   return IDC_ROOT_MENU;
 362 }
 363
 364 static void
 365 save_dialog (HWND h)
 366 {
 367   root_desktop= rbget (h, da);
 368   root_menu = rbget (h, ma);
 369 }
 370
 371 static BOOL
 372 dialog_cmd (HWND h, int id, HWND hwndctl, UINT code)
 373 {
 374   switch (id)
 375     {
 376
 377     case IDC_ROOT_DESKTOP:
 378     case IDC_ROOT_MENU:
 379       save_dialog (h);
 380       check_if_enable_next (h);
 381       break;
 382
 383     case IDOK:
 384       save_dialog (h);
 385       do_desktop_setup();
 386       NEXT (IDD_S_POSTINSTALL);
 387       break;
 388
 389     case IDC_BACK:
 390       save_dialog (h);
 391       NEXT (IDD_CHOOSE);
 392       break;
 393
 394     case IDCANCEL:
 395       NEXT (0);
 396       break;
 397     }
 398   return FALSE;
 399 }
 400
 401 static BOOL CALLBACK
 402 dialog_proc (HWND h, UINT message, WPARAM wParam, LPARAM lParam)
 403 {
 404   switch (message)
 405     {
 406     case WM_INITDIALOG:
 407       load_dialog (h);
 408       return FALSE;
 409     case WM_COMMAND:
 410       return HANDLE_WM_COMMAND (h, wParam, lParam, dialog_cmd);
 411     }
 412   return FALSE;
 413 }
 414
 415 void
 416 do_desktop (HINSTANCE h)
 417 {
 418   CoInitialize (NULL);
 419
 420   verinfo.dwOSVersionInfoSize = sizeof (verinfo);
 421   GetVersionEx (&verinfo);
 422   batname = 0;
 423
 424   if (xemacs_package != 0 && xemacs_package->type != TY_GENERIC)
 425     {
 426       batname = concat (find_xemacs_exe_path (), "\\",
 427                         find_xemacs_exe_name (),
 428                         0);
 429       root_desktop = check_desktop ("XEmacs", batname);
 430       root_menu = check_startmenu ("XEmacs", batname);
 431     }
 432   else
 433     {
 434       root_desktop = 0;
 435       root_menu = 0;
 436     }
 437
 438   int rv = 0;
 439
 440   rv = DialogBox (h, MAKEINTRESOURCE (IDD_DESKTOP), 0, dialog_proc);
 441   if (rv == -1)
 442     fatal (IDS_DIALOG_FAILED);
 443 }