[cygwin-apps/setup.git] / install.cc

/*
 * 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 intall all the packages selected in
   the install list (in ini.h).  Note that we use a separate thread to
   maintain the progress dialog, so we avoid the complexity of
   handling two tasks in one thread.  We also create or update all the
   files in /etc/setup/* and create the mount points. */

#include "win32.h"
#include "commctrl.h"

#include <stdio.h>
#include <stdlib.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <errno.h>
#include "zlib/zlib.h"

#include "resource.h"
#include "ini.h"
#include "dialog.h"
#include "concat.h"
#include "geturl.h"
#include "mkdir.h"
#include "state.h"
#include "tar.h"
#include "diskfull.h"
#include "msg.h"
#include "mount.h"

static HWND ins_dialog = 0;
static HWND ins_pkgname = 0;
static HWND ins_filename = 0;
static HWND ins_pprogress = 0;
static HWND ins_iprogress = 0;
static HWND ins_diskfull = 0;
static HANDLE init_event;

static int total_bytes = 0;
static int total_bytes_sofar = 0;
static int package_bytes = 0;

static BOOL
dialog_cmd (HWND h, int id, HWND hwndctl, UINT code)
{
  switch (id)
    {
    case IDCANCEL:
      ExitProcess (0);
    }
}

static BOOL CALLBACK
dialog_proc (HWND h, UINT message, WPARAM wParam, LPARAM lParam)
{
  int i, j;
  HWND listbox;
  switch (message)
    {
    case WM_INITDIALOG:
      ins_dialog = h;
      ins_pkgname = GetDlgItem (h, IDC_INS_PKG);
      ins_filename = GetDlgItem (h, IDC_INS_FILE);
      ins_pprogress = GetDlgItem (h, IDC_INS_PPROGRESS);
      ins_iprogress = GetDlgItem (h, IDC_INS_IPROGRESS);
      ins_diskfull = GetDlgItem (h, IDC_INS_DISKFULL);
      SetEvent (init_event);
      return FALSE;
    case WM_COMMAND:
      return HANDLE_WM_COMMAND (h, wParam, lParam, dialog_cmd);
    }
  return FALSE;
}

static WINAPI DWORD
dialog (void *)
{
  int rv = 0;
  MSG m;
  HANDLE ins_dialog = CreateDialog (hinstance, MAKEINTRESOURCE (IDD_INSTATUS),
				   0, dialog_proc);
  if (ins_dialog == 0)
    fatal ("create dialog");
  ShowWindow (ins_dialog, SW_SHOWNORMAL);
  UpdateWindow (ins_dialog);
  while (GetMessage (&m, 0, 0, 0) > 0) {
    TranslateMessage (&m);
    DispatchMessage (&m);
  }
}

static DWORD start_tics;

static void
init_dialog ()
{
  if (ins_dialog == 0)
    {
      DWORD tid;
      HANDLE thread;
      init_event = CreateEvent (0, 0, 0, 0);
      thread = CreateThread (0, 0, dialog, 0, 0, &tid);
      WaitForSingleObject (init_event, 10000);
      CloseHandle (init_event);
      SendMessage (ins_pprogress, PBM_SETRANGE, 0, MAKELPARAM (0, 100));
      SendMessage (ins_iprogress, PBM_SETRANGE, 0, MAKELPARAM (0, 100));
      SendMessage (ins_diskfull, PBM_SETRANGE, 0, MAKELPARAM (0, 100));
    }

  SetWindowText (ins_pkgname, "");
  SetWindowText (ins_filename, "");
  SendMessage (ins_pprogress, PBM_SETPOS, (WPARAM) 0, 0);
  SendMessage (ins_iprogress, PBM_SETPOS, (WPARAM) 0, 0);
  SendMessage (ins_diskfull, PBM_SETPOS, (WPARAM) 0, 0);
  ShowWindow (ins_dialog, SW_SHOWNORMAL);
  SetForegroundWindow (ins_dialog);
}

static void
progress (int bytes)
{
  int perc;

  if (package_bytes > 100)
    {
      perc = bytes / (package_bytes / 100);
      SendMessage (ins_pprogress, PBM_SETPOS, (WPARAM) perc, 0);
    }

  if (total_bytes > 100)
    {
      perc = (total_bytes_sofar + bytes) / (total_bytes / 100);
      SendMessage (ins_iprogress, PBM_SETPOS, (WPARAM) perc, 0);
    }

  int df = diskfull (root_dir);
  SendMessage (ins_diskfull, PBM_SETPOS, (WPARAM) df, 0);
}

static void
badrename (char *o, char *n)
{
  char buf[1000];
  char *err = strerror (errno);
  if (!err)
    err = "(unknown error)";
  note (IDS_ERR_RENAME, o, n, err);
}

static char *standard_dirs[] = {
  "/bin",
  "/etc",
  "/lib",
  "/tmp",
  "/usr/bin",
  "/usr/lib",
  "/usr/local/bin",
  "/usr/local/etc",
  "/usr/local/lib",
  "/usr/tmp",
  "/var/run",
  "/var/tmp",
  0
};

#define pi (package[i].info[package[i].trust])

#define LOOP_PACKAGES \
  for (i=0; i<npackages; i++) \
    if (package[i].action == ACTION_NEW \
	|| package[i].action == ACTION_UPGRADE)

void
do_install (HINSTANCE h)
{
  int i, num_installs = 0;
  next_dialog = IDD_S_DESKTOP;

  mkdir_p (1, root_dir);

  for (i=0; standard_dirs[i]; i++)
    {
      char *p = concat (root_dir, standard_dirs[i], 0);
      mkdir_p (1, p);
      free (p);
    }

  /* Create /var/run/utmp */
  char *utmp = concat (root_dir, "/var/run/utmp", 0);
  FILE *ufp = fopen (utmp, "wb");
  if (ufp)
    fclose (ufp);
  free (utmp);

  dismiss_url_status_dialog ();

  init_dialog ();

  total_bytes = 0;
  total_bytes_sofar = 0;

  LOOP_PACKAGES
    {
      total_bytes += pi.install_size;
    }

  LOOP_PACKAGES
    {
      char *local = pi.install, *cp, *fn, *base;

      base = local;
      for (cp=pi.install; *cp; cp++)
	if (*cp == '/' || *cp == '\\' || *cp == ':')
	  base = cp+1;
      SetWindowText (ins_pkgname, base);

      gzFile lst = gzopen (concat (root_dir, "/etc/setup/",
				   package[i].name, ".lst.gz", 0),
			   "wb9");

      package_bytes = pi.install_size;

      tar_open (local);
      while (fn = tar_next_file ())
	{
	  char *dest_file;

	  while (*fn == '/' || *fn == '\\')
	    fn++;

	  if (lst)
	    gzprintf (lst, "%s\n", fn);

	  if (strncmp (fn, "usr/bin/", 8) == 0)
	    dest_file = concat (root_dir, "/bin/", fn+8, 0);
	  else if (strncmp (fn, "usr/lib/", 8) == 0)
	    dest_file = concat (root_dir, "/lib/", fn+8, 0);
	  else
	    dest_file = concat (root_dir, "/", fn, 0);

	  SetWindowText (ins_filename, dest_file);
	  tar_read_file (dest_file);

	  progress (tar_ftell ());
	  num_installs ++;
	}
      tar_close ();

      total_bytes_sofar += pi.install_size;
      progress (0);

      if (lst)
	gzclose (lst);
    }

  ShowWindow (ins_dialog, SW_HIDE);

  if (num_installs == 0)
    {
      exit_msg = IDS_NOTHING_INSTALLED;
      return;
    }

  char *odbn = concat (root_dir, "/etc/setup/installed.db", 0);
  char *ndbn = concat (root_dir, "/etc/setup/installed.db.new", 0);
  char *sdbn = concat (root_dir, "/etc/setup/installed.db.old", 0);

  mkdir_p (0, ndbn);

  FILE *odb = fopen (odbn, "rt");
  FILE *ndb = fopen (ndbn, "wb");

  if (!ndb)
    {
      char *err = strerror (errno);
      if (!err)
	err = "(unknown error)";
      fatal (IDS_ERR_OPEN_WRITE, ndb, err);
    }

  if (odb)
    {
      char line[1000], pkg[1000];
      int printit;
      while (fgets (line, 1000, odb))
	{
	  printit = 1;
	  sscanf (line, "%s", pkg);
	  LOOP_PACKAGES
	    {
	      if (strcmp (pkg, package[i].name) == 0)
		{
		  printit = 0;
		  break;
		}
	    }
	  if (printit)
	    fputs (line, ndb);
	}
      
    }
  LOOP_PACKAGES
    {
      fprintf (ndb, "%s %s %d\n", package[i].name,
	       pi.install, pi.install_size);
    }

  if (odb)
    fclose (odb);
  fclose (ndb);

  remove (sdbn);
  if (odb && rename (odbn, sdbn))
    badrename (odbn, sdbn);

  remove (odbn);
  if (rename (ndbn, odbn))
    badrename (ndbn, odbn);

  remove_mount ("/");
  remove_mount ("/usr");
  remove_mount ("/usr/bin");
  remove_mount ("/usr/lib");
  remove_mount ("/var");
  remove_mount ("/lib");
  remove_mount ("/bin");
  remove_mount ("/etc");

  int istext = (root_text == IDC_ROOT_TEXT) ? 1 : 0;
  int issystem = (root_scope == IDC_ROOT_SYSTEM) ? 1 : 0;

  create_mount ("/", root_dir, istext, issystem);
  create_mount ("/usr/bin", concat (root_dir, "/bin", 0), istext, issystem);
  create_mount ("/usr/lib", concat (root_dir, "/lib", 0), istext, issystem);

  exit_msg = IDS_INSTALL_COMPLETE;
}
Commit	Line	Data
23c9e63c DD	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 intall all the packages selected in
	17	the install list (in ini.h). Note that we use a separate thread to
	18	maintain the progress dialog, so we avoid the complexity of
	19	handling two tasks in one thread. We also create or update all the
	20	files in /etc/setup/* and create the mount points. */
	21
	22	#include "win32.h"
	23	#include "commctrl.h"
	24
	25	#include <stdio.h>
904d24fe	26	#include <stdlib.h>
23c9e63c DD	27	#include <sys/types.h>
	28	#include <sys/stat.h>
	29	#include <errno.h>
	30	#include "zlib/zlib.h"
	31
	32	#include "resource.h"
	33	#include "ini.h"
	34	#include "dialog.h"
	35	#include "concat.h"
	36	#include "geturl.h"
	37	#include "mkdir.h"
	38	#include "state.h"
	39	#include "tar.h"
	40	#include "diskfull.h"
	41	#include "msg.h"
	42	#include "mount.h"
	43
	44	static HWND ins_dialog = 0;
	45	static HWND ins_pkgname = 0;
	46	static HWND ins_filename = 0;
	47	static HWND ins_pprogress = 0;
	48	static HWND ins_iprogress = 0;
	49	static HWND ins_diskfull = 0;
	50	static HANDLE init_event;
	51
	52	static int total_bytes = 0;
	53	static int total_bytes_sofar = 0;
	54	static int package_bytes = 0;
	55
	56	static BOOL
	57	dialog_cmd (HWND h, int id, HWND hwndctl, UINT code)
	58	{
	59	switch (id)
	60	{
	61	case IDCANCEL:
1fd6d0a2	62	ExitProcess (0);
23c9e63c DD	63	}
	64	}
	65
	66	static BOOL CALLBACK
	67	dialog_proc (HWND h, UINT message, WPARAM wParam, LPARAM lParam)
	68	{
	69	int i, j;
	70	HWND listbox;
	71	switch (message)
	72	{
	73	case WM_INITDIALOG:
	74	ins_dialog = h;
	75	ins_pkgname = GetDlgItem (h, IDC_INS_PKG);
	76	ins_filename = GetDlgItem (h, IDC_INS_FILE);
	77	ins_pprogress = GetDlgItem (h, IDC_INS_PPROGRESS);
	78	ins_iprogress = GetDlgItem (h, IDC_INS_IPROGRESS);
	79	ins_diskfull = GetDlgItem (h, IDC_INS_DISKFULL);
	80	SetEvent (init_event);
	81	return FALSE;
	82	case WM_COMMAND:
1fd6d0a2	83	return HANDLE_WM_COMMAND (h, wParam, lParam, dialog_cmd);
23c9e63c DD	84	}
	85	return FALSE;
	86	}
	87
	88	static WINAPI DWORD
	89	dialog (void *)
	90	{
	91	int rv = 0;
	92	MSG m;
	93	HANDLE ins_dialog = CreateDialog (hinstance, MAKEINTRESOURCE (IDD_INSTATUS),
	94	0, dialog_proc);
	95	if (ins_dialog == 0)
	96	fatal ("create dialog");
	97	ShowWindow (ins_dialog, SW_SHOWNORMAL);
	98	UpdateWindow (ins_dialog);
	99	while (GetMessage (&m, 0, 0, 0) > 0) {
	100	TranslateMessage (&m);
	101	DispatchMessage (&m);
	102	}
	103	}
	104
	105	static DWORD start_tics;
	106
	107	static void
	108	init_dialog ()
	109	{
	110	if (ins_dialog == 0)
	111	{
	112	DWORD tid;
	113	HANDLE thread;
	114	init_event = CreateEvent (0, 0, 0, 0);
	115	thread = CreateThread (0, 0, dialog, 0, 0, &tid);
	116	WaitForSingleObject (init_event, 10000);
	117	CloseHandle (init_event);
	118	SendMessage (ins_pprogress, PBM_SETRANGE, 0, MAKELPARAM (0, 100));
	119	SendMessage (ins_iprogress, PBM_SETRANGE, 0, MAKELPARAM (0, 100));
	120	SendMessage (ins_diskfull, PBM_SETRANGE, 0, MAKELPARAM (0, 100));
	121	}
	122
	123	SetWindowText (ins_pkgname, "");
	124	SetWindowText (ins_filename, "");
	125	SendMessage (ins_pprogress, PBM_SETPOS, (WPARAM) 0, 0);
	126	SendMessage (ins_iprogress, PBM_SETPOS, (WPARAM) 0, 0);
	127	SendMessage (ins_diskfull, PBM_SETPOS, (WPARAM) 0, 0);
	128	ShowWindow (ins_dialog, SW_SHOWNORMAL);
	129	SetForegroundWindow (ins_dialog);
	130	}
	131
	132	static void
	133	progress (int bytes)
	134	{
	135	int perc;
	136
bf1d5889	137	if (package_bytes > 100)
23c9e63c	138	{
bf1d5889	139	perc = bytes / (package_bytes / 100);
23c9e63c DD	140	SendMessage (ins_pprogress, PBM_SETPOS, (WPARAM) perc, 0);
	141	}
	142
bf1d5889	143	if (total_bytes > 100)
23c9e63c	144	{
bf1d5889	145	perc = (total_bytes_sofar + bytes) / (total_bytes / 100);
23c9e63c DD	146	SendMessage (ins_iprogress, PBM_SETPOS, (WPARAM) perc, 0);
	147	}
	148
	149	int df = diskfull (root_dir);
	150	SendMessage (ins_diskfull, PBM_SETPOS, (WPARAM) df, 0);
	151	}
	152
	153	static void
	154	badrename (char o, char n)
	155	{
	156	char buf[1000];
	157	char *err = strerror (errno);
	158	if (!err)
	159	err = "(unknown error)";
	160	note (IDS_ERR_RENAME, o, n, err);
	161	}
	162
904d24fe	163	static char *standard_dirs[] = {
1a18aed7	164	"/bin",
904d24fe	165	"/etc",
1a18aed7	166	"/lib",
904d24fe	167	"/tmp",
1a18aed7 DD	168	"/usr/bin",
	169	"/usr/lib",
	170	"/usr/local/bin",
	171	"/usr/local/etc",
	172	"/usr/local/lib",
904d24fe	173	"/usr/tmp",
1a18aed7	174	"/var/run",
904d24fe DD	175	"/var/tmp",
	176	0
	177	};
	178
23c9e63c DD	179	#define pi (package[i].info[package[i].trust])
	180
	181	#define LOOP_PACKAGES \
	182	for (i=0; i<npackages; i++) \
	183	if (package[i].action == ACTION_NEW \
	184	\|\| package[i].action == ACTION_UPGRADE)
	185
	186	void
	187	do_install (HINSTANCE h)
	188	{
	189	int i, num_installs = 0;
f57c332f	190	next_dialog = IDD_S_DESKTOP;
23c9e63c	191
904d24fe DD	192	mkdir_p (1, root_dir);
	193
	194	for (i=0; standard_dirs[i]; i++)
	195	{
	196	char *p = concat (root_dir, standard_dirs[i], 0);
	197	mkdir_p (1, p);
	198	free (p);
	199	}
	200
1a18aed7 DD	201	/* Create /var/run/utmp */
	202	char *utmp = concat (root_dir, "/var/run/utmp", 0);
	203	FILE *ufp = fopen (utmp, "wb");
	204	if (ufp)
	205	fclose (ufp);
	206	free (utmp);
	207
23c9e63c DD	208	dismiss_url_status_dialog ();
	209
	210	init_dialog ();
	211
	212	total_bytes = 0;
	213	total_bytes_sofar = 0;
	214
	215	LOOP_PACKAGES
	216	{
	217	total_bytes += pi.install_size;
	218	}
	219
	220	LOOP_PACKAGES
	221	{
	222	char local = pi.install, cp, fn, base;
	223
	224	base = local;
	225	for (cp=pi.install; *cp; cp++)
	226	if (cp == '/' \|\| cp == '\\' \|\| *cp == ':')
	227	base = cp+1;
	228	SetWindowText (ins_pkgname, base);
	229
	230	gzFile lst = gzopen (concat (root_dir, "/etc/setup/",
	231	package[i].name, ".lst.gz", 0),
	232	"wb9");
	233
	234	package_bytes = pi.install_size;
	235
	236	tar_open (local);
	237	while (fn = tar_next_file ())
	238	{
	239	char *dest_file;
	240
	241	while (fn == '/' \|\| fn == '\\')
	242	fn++;
	243
	244	if (lst)
1fd6d0a2	245	gzprintf (lst, "%s\n", fn);
23c9e63c DD	246
23c9e63c DD	247	if (strncmp (fn, "usr/bin/", 8) == 0)
1fd6d0a2	248	dest_file = concat (root_dir, "/bin/", fn+8, 0);
23c9e63c	249	else if (strncmp (fn, "usr/lib/", 8) == 0)
1fd6d0a2	250	dest_file = concat (root_dir, "/lib/", fn+8, 0);
23c9e63c	251	else
1fd6d0a2	252	dest_file = concat (root_dir, "/", fn, 0);
23c9e63c DD	253
	254	SetWindowText (ins_filename, dest_file);
	255	tar_read_file (dest_file);
	256
	257	progress (tar_ftell ());
	258	num_installs ++;
	259	}
	260	tar_close ();
	261
	262	total_bytes_sofar += pi.install_size;
	263	progress (0);
	264
	265	if (lst)
	266	gzclose (lst);
	267	}
	268
	269	ShowWindow (ins_dialog, SW_HIDE);
	270
	271	if (num_installs == 0)
	272	{
f57c332f	273	exit_msg = IDS_NOTHING_INSTALLED;
23c9e63c DD	274	return;
	275	}
	276
	277	char *odbn = concat (root_dir, "/etc/setup/installed.db", 0);
	278	char *ndbn = concat (root_dir, "/etc/setup/installed.db.new", 0);
	279	char *sdbn = concat (root_dir, "/etc/setup/installed.db.old", 0);
	280
	281	mkdir_p (0, ndbn);
	282
	283	FILE *odb = fopen (odbn, "rt");
	284	FILE *ndb = fopen (ndbn, "wb");
	285
	286	if (!ndb)
	287	{
	288	char *err = strerror (errno);
	289	if (!err)
	290	err = "(unknown error)";
	291	fatal (IDS_ERR_OPEN_WRITE, ndb, err);
	292	}
	293
	294	if (odb)
	295	{
	296	char line[1000], pkg[1000];
	297	int printit;
	298	while (fgets (line, 1000, odb))
	299	{
	300	printit = 1;
1fd6d0a2	301	sscanf (line, "%s", pkg);
23c9e63c DD	302	LOOP_PACKAGES
	303	{
	304	if (strcmp (pkg, package[i].name) == 0)
	305	{
	306	printit = 0;
	307	break;
	308	}
	309	}
	310	if (printit)
	311	fputs (line, ndb);
	312	}
	313
	314	}
	315	LOOP_PACKAGES
	316	{
	317	fprintf (ndb, "%s %s %d\n", package[i].name,
	318	pi.install, pi.install_size);
	319	}
	320
	321	if (odb)
	322	fclose (odb);
	323	fclose (ndb);
	324
	325	remove (sdbn);
	326	if (odb && rename (odbn, sdbn))
	327	badrename (odbn, sdbn);
	328
	329	remove (odbn);
	330	if (rename (ndbn, odbn))
	331	badrename (ndbn, odbn);
	332
24e259bb	333	remove_mount ("/");
23c9e63c	334	remove_mount ("/usr");
24e259bb DD	335	remove_mount ("/usr/bin");
24e259bb DD	336	remove_mount ("/usr/lib");
23c9e63c DD	337	remove_mount ("/var");
	338	remove_mount ("/lib");
	339	remove_mount ("/bin");
	340	remove_mount ("/etc");
	341
	342	int istext = (root_text == IDC_ROOT_TEXT) ? 1 : 0;
24e259bb	343	int issystem = (root_scope == IDC_ROOT_SYSTEM) ? 1 : 0;
23c9e63c	344
24e259bb DD	345	create_mount ("/", root_dir, istext, issystem);
	346	create_mount ("/usr/bin", concat (root_dir, "/bin", 0), istext, issystem);
	347	create_mount ("/usr/lib", concat (root_dir, "/lib", 0), istext, issystem);
23c9e63c	348
f57c332f	349	exit_msg = IDS_INSTALL_COMPLETE;
23c9e63c	350	}