--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/netinstall/root.cc	Mon Aug 13 11:38:25 2007 +0200
@@ -0,0 +1,334 @@
+/*
+ * Copyright (c) 2000, Red Hat, Inc.
+ *
+ *     This program 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 of the License, or
+ *     (at your option) any later version.
+ *
+ *     A copy of the GNU General Public License can be found at
+ *     http://www.gnu.org/
+ *
+ * Written by DJ Delorie <dj@cygnus.com>
+ *
+ */
+
+/* The purpose of this file is to ask the user where they want the
+   root of the installation to be, and to ask whether the user prefers
+   text or binary mounts. */
+
+#include "win32.h"
+#include <shlobj.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <ctype.h>
+
+#include "dialog.h"
+#include "resource.h"
+#include "state.h"
+#include "msg.h"
+#include "regedit.h"
+#include "reginfo.h"
+#include "concat.h"
+#include "log.h"
+
+static int rb[] = { IDC_INSTALL_CYGWIN, IDC_INSTALL_NATIVE, 0 };
+static int su[] = { IDC_ROOT_SYSTEM, IDC_ROOT_USER, 0 };
+
+static void
+check_if_enable_next (HWND h)
+{
+  EnableWindow (GetDlgItem (h, IDOK), install_type && root_dir && root_scope);
+}
+
+static void
+load_dialog (HWND h)
+{
+  rbset (h, rb, install_type);
+  rbset (h, su, root_scope);
+  eset (h, IDC_ROOT_DIR, root_dir);
+  check_if_enable_next (h);
+}
+
+static void
+save_dialog (HWND h)
+{
+  install_type = rbget (h, rb);
+  root_scope = rbget (h, su);
+  char* new_root_dir = eget (h, IDC_ROOT_DIR, root_dir);
+
+  if (!root_dir || strcmp (new_root_dir, root_dir) != 0)
+    root_dir_default = 0;
+
+  root_dir = new_root_dir;
+}
+
+/*
+ * is_admin () determines whether or not the current user is a member of the
+ * Administrators group.  On Windows 9X, the current user is considered an
+ * Administrator by definition.
+ */
+
+static int
+is_admin ()
+{
+  // Windows 9X users are considered Administrators by definition
+  OSVERSIONINFO verinfo;
+  verinfo.dwOSVersionInfoSize = sizeof (verinfo);
+  GetVersionEx (&verinfo);
+  if (verinfo.dwPlatformId != VER_PLATFORM_WIN32_NT)
+    return 1;
+
+  // Get the process token for the current process
+  HANDLE token;
+  BOOL status = OpenProcessToken (GetCurrentProcess(), TOKEN_QUERY, &token);
+  if (!status)
+    return 0;
+
+  // Get the group token information
+  UCHAR token_info[1024];
+  PTOKEN_GROUPS groups = (PTOKEN_GROUPS) token_info;
+  DWORD token_info_len = sizeof (token_info);
+  status = GetTokenInformation (token, TokenGroups, token_info, token_info_len, &token_info_len);
+  CloseHandle(token);
+  if (!status)
+    return 0;
+
+  // Create the Administrators group SID
+  PSID admin_sid;
+  SID_IDENTIFIER_AUTHORITY authority = SECURITY_NT_AUTHORITY;
+  status = AllocateAndInitializeSid (&authority, 2, SECURITY_BUILTIN_DOMAIN_RID, DOMAIN_ALIAS_RID_ADMINS, 0, 0, 0, 0, 0, 0, &admin_sid);
+  if (!status)
+    return 0;
+
+  // Check to see if the user is a member of the Administrators group
+  status = 0;
+  for (UINT i=0; i<groups->GroupCount; i++) {
+    if (EqualSid(groups->Groups[i].Sid, admin_sid)) {
+      status = 1;
+      break;
+    }
+  }
+
+  // Destroy the Administrators group SID
+  FreeSid (admin_sid);
+
+  // Return whether or not the user is a member of the Administrators group
+  return status;
+}
+
+static void
+change_default_root (int id)
+{
+  int issystem;
+  char* cygroot = find_cygwin_root (&issystem);
+  if (id == IDC_INSTALL_CYGWIN && cygroot)
+    {
+      root_dir = concat (cygroot, XEMACS_CYGWIN_DEFAULT_ROOT, 0);
+      install_type = IDC_INSTALL_CYGWIN;
+    }
+  else if (id == IDC_INSTALL_NATIVE)
+    {
+      char windir[_MAX_PATH];
+      GetWindowsDirectory (windir, sizeof (windir));
+      windir[2] = 0;
+      root_dir = concat (windir, XEMACS_DEFAULT_ROOT, 0);
+      install_type = IDC_INSTALL_NATIVE;
+    }
+}
+
+static void
+read_mount_table ()
+{
+  int isnative, issystem;
+  root_dir = find_root_location (&issystem, &isnative);
+  if (root_dir)
+    {
+      if (isnative)
+	install_type = IDC_INSTALL_NATIVE;
+      else
+	install_type = IDC_INSTALL_CYGWIN;
+
+      if (issystem)
+	root_scope = IDC_ROOT_SYSTEM;
+      else
+	root_scope = IDC_ROOT_USER;
+      root_dir_default = 0;
+    }
+  else
+    {
+      change_default_root (IDC_INSTALL_NATIVE);
+      root_scope = (is_admin()) ? IDC_ROOT_SYSTEM : IDC_ROOT_USER;
+      root_dir_default = 1;
+    }
+}
+
+static int CALLBACK
+browse_cb (HWND h, UINT m, LPARAM lp, LPARAM data)
+{
+  switch (m)
+    {
+    case BFFM_INITIALIZED:
+      if (root_dir)
+	SendMessage (h, BFFM_SETSELECTION, TRUE, (LPARAM)root_dir);
+      break;
+    }
+  return 0;
+}
+
+static void
+browse (HWND h)
+{
+  BROWSEINFO bi;
+  CHAR name[MAX_PATH];
+  LPITEMIDLIST pidl;
+  memset (&bi, 0, sizeof (bi));
+  bi.hwndOwner = h;
+  bi.pszDisplayName = name;
+  bi.lpszTitle = "Select an installation root directory";
+  bi.ulFlags = BIF_RETURNONLYFSDIRS;
+  bi.lpfn = browse_cb;
+  pidl = SHBrowseForFolder (&bi);
+  if (pidl)
+    {
+      if (SHGetPathFromIDList (pidl, name))
+	eset (h, IDC_ROOT_DIR, name);
+    }
+}
+
+#define isslash(c) ((c) == '\\' || (c) == '/')
+
+static int
+directory_is_absolute ()
+{
+  if (isalpha (root_dir[0])
+      && root_dir[1] == ':'
+      && (root_dir[2] == '\\' || root_dir[2] == '/'))
+    return 1;
+  return 0;
+}
+
+static int
+directory_is_rootdir ()
+{
+  char *c;
+  for (c = root_dir; *c; c++)
+    if (isslash (c[0]) && c[1] && !isslash (c[1]))
+      return 0;
+  return 1;
+}
+
+static int
+cygwin_without_cygwin ()
+{
+  int issystem;
+  if (install_type == IDC_INSTALL_CYGWIN
+      && !find_cygwin_root (&issystem))
+    return 1;
+  return 0;
+}
+
+static BOOL
+dialog_cmd (HWND h, int id, HWND hwndctl, UINT code)
+{
+  switch (id)
+    {
+
+    case IDC_ROOT_DIR:
+    case IDC_ROOT_SYSTEM:
+    case IDC_ROOT_USER:
+      save_dialog (h);
+      check_if_enable_next (h);
+      break;
+
+    case IDC_INSTALL_NATIVE:
+    case IDC_INSTALL_CYGWIN:
+      if (root_dir_default)
+	{
+	  change_default_root (id);
+	  eset (h, IDC_ROOT_DIR, root_dir);
+	}
+      save_dialog (h);
+      check_if_enable_next (h);
+      break;
+
+    case IDC_ROOT_BROWSE:
+      browse (h);
+      break;
+
+    case IDOK:
+      save_dialog (h);
+
+      if (! directory_is_absolute ())
+	{
+	  note (IDS_ROOT_ABSOLUTE);
+	  break;
+	}
+
+      if (directory_is_rootdir ())
+	if (IDNO == yesno (IDS_ROOT_SLASH))
+	  break;
+
+      if (cygwin_without_cygwin ())
+	if (IDNO == yesno (IDS_ROOT_NOCYGWIN))
+	  break;
+
+      create_xemacs_root (root_dir,
+			  root_scope == IDC_ROOT_SYSTEM ? 1 : 0,
+			  install_type == IDC_INSTALL_NATIVE ? 1 : 0);
+
+      switch (source)
+	{
+	case IDC_SOURCE_NETINST:
+	  NEXT (IDD_NET);
+	  break;
+	case IDC_SOURCE_CWD:
+	  NEXT (IDD_S_FROM_CWD);
+	  break;
+	default:
+	  msg ("source is default? %d\n", source);
+	  NEXT (0);
+	}
+      break;
+
+    case IDC_BACK:
+      save_dialog (h);
+      NEXT (IDD_LOCAL_DIR);
+      break;
+
+    case IDCANCEL:
+      NEXT (0);
+      break;
+    }
+  return FALSE;
+}
+
+static BOOL CALLBACK
+dialog_proc (HWND h, UINT message, WPARAM wParam, LPARAM lParam)
+{
+  switch (message)
+    {
+    case WM_INITDIALOG:
+      load_dialog (h);
+      return FALSE;
+    case WM_COMMAND:
+      return HANDLE_WM_COMMAND (h, wParam, lParam, dialog_cmd);
+    }
+  return FALSE;
+}
+
+void
+do_root (HINSTANCE h)
+{
+  int rv = 0;
+  read_mount_table ();
+
+  rv = DialogBox (h, MAKEINTRESOURCE (IDD_ROOT), 0, dialog_proc);
+  if (rv == -1)
+    fatal (IDS_DIALOG_FAILED);
+
+  log (0, "root: %s %s %s", root_dir,
+       (install_type == IDC_INSTALL_NATIVE) ? "native" : "cygwin",
+       (root_scope == IDC_ROOT_USER) ? "user" : "system");
+}
+