git.chise.org Git - chise/xemacs-chise.git.1/blob - netinstall/choose.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 let the user choose which packages
  17    to install, and which versions of the package when more than one
  18    version is provided.  The "trust" level serves as an indication as
  19    to which version should be the default choice.  At the moment, all
  20    we do is compare with previously installed packages to skip any
  21    that are already installed (by setting the action to ACTION_SAME).
  22    While the "trust" stuff is supported, it's not really implemented
  23    yet.  We always prefer the "current" option.  In the future, this
  24    file might have a user dialog added to let the user choose to not
  25    install packages, or to install packages that aren't installed by
  26    default. */
  27
  28 #include "win32.h"
  29 #include <stdio.h>
  30 #include <stdlib.h>
  31 #include <ctype.h>
  32
  33 #include "dialog.h"
  34 #include "resource.h"
  35 #include "state.h"
  36 #include "ini.h"
  37 #include "concat.h"
  38 #include "msg.h"
  39 #include "log.h"
  40 #include "find.h"
  41 #include "reginfo.h"
  42
  43 #define HMARGIN         10
  44 #define ROW_MARGIN      5
  45 #define ICON_MARGIN     4
  46
  47 #define CHECK_SIZE      11
  48
  49 #define TRUST_KEEP      101
  50 #define TRUST_UNINSTALL 102
  51 #define TRUST_NONE      103
  52
  53 static int initialized = 0;
  54
  55 static int full_list = 0;
  56
  57 static int scroll_ulc_x, scroll_ulc_y;
  58
  59 static HWND lv, nextbutton;
  60 static TEXTMETRIC tm;
  61 static int header_height;
  62 static HANDLE sysfont;
  63 static int row_height;
  64 static HANDLE bm_spin, bm_rtarrow, bm_checkyes, bm_checkno, bm_checkna;
  65 static HDC bitmap_dc;
  66
  67 static struct {
  68   char *text;
  69   int slen;
  70   int width;
  71   int x;
  72 } headers[] = {
  73   { "Current", 7, 0, 0 },
  74 #define CURRENT_COL 0
  75   { "New", 3, 0, 0 },
  76 #define NEW_COL 1
  77   { "Src?", 4, 0, 0 },
  78 #define SRC_COL 2
  79   { "Package", 7, 0, 0 },
  80 #define PACKAGE_COL 3
  81   { 0, 0, 0, 0 }
  82 };
  83 #define NUM_COLUMNS (sizeof(headers)/(sizeof(headers[0]))-1)
  84
  85 int *package_indexes, nindexes;
  86
  87 struct ExtraPackageInfo {
  88   char *installed_file; /* filename of previous "install" file */
  89   char *installed_ver;  /* version part */
  90   int   installed_size; /* ditto, size. */
  91
  92   int in_partial_list;
  93   int pick;
  94   int npick;
  95   int which_is_installed; /* == TRUST* or -1 */
  96
  97   struct {
  98     int src_avail;
  99     int trust;          /* may be keep or uninstall */
 100     char *caption;      /* ==0 at EOL */
 101   } chooser[NTRUST+3];  /* one extra for NULL above */
 102 };
 103
 104 static ExtraPackageInfo *extra;
 105
 106 static void
 107 paint (HWND hwnd)
 108 {
 109   HDC hdc;
 110   PAINTSTRUCT ps;
 111   int x, y, i, ii;
 112
 113   hdc = BeginPaint (hwnd, &ps);
 114
 115   SelectObject (hdc, sysfont);
 116
 117   RECT cr;
 118   GetClientRect (hwnd, &cr);
 119
 120   POINT p;
 121
 122   x = cr.left - scroll_ulc_x;
 123   y = cr.top - scroll_ulc_y + header_height;
 124
 125
 126   for (i=0; headers[i].text; i++)
 127     {
 128       TextOut (hdc, x+headers[i].x, 3, headers[i].text, headers[i].slen);
 129       MoveToEx (hdc, x+headers[i].x, header_height-3, &p);
 130       LineTo (hdc, x+headers[i].x+headers[i].width, header_height-3);
 131     }
 132
 133   IntersectClipRect (hdc, cr.left, cr.top+header_height, cr.right, cr.bottom);
 134
 135   for (ii=0; ii<nindexes; ii++)
 136     {
 137       i = package_indexes[ii];
 138       int r = y + ii * row_height;
 139       int by = r + tm.tmHeight - 11;
 140       if (extra[i].installed_ver && extra[i].installed_ver[0])
 141         {
 142           TextOut (hdc, x+headers[CURRENT_COL].x, r,
 143                    extra[i].installed_ver, strlen (extra[i].installed_ver));
 144           SelectObject (bitmap_dc, bm_rtarrow);
 145           BitBlt (hdc, x+headers[CURRENT_COL].x+headers[0].width+ICON_MARGIN/2+HMARGIN/2, by,
 146                   11, 11, bitmap_dc, 0, 0, SRCCOPY);
 147         }
 148
 149       char *s = extra[i].chooser[extra[i].pick].caption;
 150       if (s)
 151         {
 152           TextOut (hdc, x+headers[NEW_COL].x + 11 + ICON_MARGIN, r,
 153                    s, strlen (s));
 154           if (extra[i].npick > 1)
 155             {
 156               SelectObject (bitmap_dc, bm_spin);
 157               BitBlt (hdc, x+headers[NEW_COL].x, by, 11, 11,
 158                       bitmap_dc, 0, 0, SRCCOPY);
 159             }
 160         }
 161
 162       HANDLE check_bm = bm_checkna;
 163       if (extra[i].chooser[extra[i].pick].src_avail)
 164         {
 165           if (package[i].srcaction == SRCACTION_NO)
 166             check_bm = bm_checkno;
 167           else if (package[i].srcaction == SRCACTION_YES)
 168             check_bm = bm_checkyes;
 169         }
 170       SelectObject (bitmap_dc, check_bm);
 171       BitBlt (hdc, x+headers[SRC_COL].x, by, 11, 11,
 172               bitmap_dc, 0, 0, SRCCOPY);
 173
 174       if (package[i].name)
 175         TextOut (hdc, x+headers[PACKAGE_COL].x, r, package[i].name, strlen(package[i].name));
 176     }
 177
 178   if (nindexes == 0)
 179     {
 180       static char *m = "Nothing to Install/Update";
 181       TextOut (hdc, HMARGIN, header_height, m, strlen (m));
 182     }
 183
 184   EndPaint (hwnd, &ps);
 185 }
 186
 187 static void
 188 scroll_common (HWND hwnd, int which, int *var, int code)
 189 {
 190   SCROLLINFO si;
 191   si.cbSize = sizeof (si);
 192   si.fMask = SIF_ALL;
 193   GetScrollInfo (hwnd, which, &si);
 194
 195   switch (code)
 196     {
 197     case SB_THUMBTRACK:
 198       si.nPos = si.nTrackPos;
 199       break;
 200     case SB_THUMBPOSITION:
 201       break;
 202     case SB_BOTTOM:
 203       si.nPos = si.nMax;
 204       break;
 205     case SB_TOP:
 206       si.nPos = 0;
 207       break;
 208     case SB_LINEDOWN:
 209       si.nPos += row_height;
 210       break;
 211     case SB_LINEUP:
 212       si.nPos -= row_height;
 213       break;
 214     case SB_PAGEDOWN:
 215       si.nPos += si.nPage * 9/10;
 216       break;
 217     case SB_PAGEUP:
 218       si.nPos -= si.nPage * 9/10;
 219       break;
 220     }
 221
 222   if ((int)si.nPos < 0)
 223     si.nPos = 0;
 224   if ((int)(si.nPos + si.nPage) > si.nMax)
 225     si.nPos = si.nMax - si.nPage;
 226
 227   si.fMask = SIF_POS;
 228   SetScrollInfo (hwnd, which, &si, TRUE);
 229
 230   int ox = scroll_ulc_x;
 231   int oy = scroll_ulc_y;
 232   *var = si.nPos;
 233
 234   RECT cr, sr;
 235   GetClientRect (hwnd, &cr);
 236   sr = cr;
 237   sr.top += header_height;
 238   ScrollWindow (hwnd, ox - scroll_ulc_x, oy - scroll_ulc_y, &sr, &sr);
 239   sr.bottom = sr.top;
 240   sr.top = cr.top;
 241   ScrollWindow (hwnd, ox - scroll_ulc_x, 0, &sr, &sr);
 242 }
 243
 244 static LRESULT CALLBACK
 245 list_vscroll (HWND hwnd, HWND hctl, UINT code, int pos)
 246 {
 247   scroll_common (hwnd, SB_VERT, &scroll_ulc_y, code);
 248   return FALSE;
 249 }
 250
 251 static LRESULT CALLBACK
 252 list_hscroll (HWND hwnd, HWND hctl, UINT code, int pos)
 253 {
 254   scroll_common (hwnd, SB_HORZ, &scroll_ulc_x, code);
 255   return FALSE;
 256 }
 257
 258 static LRESULT CALLBACK
 259 list_click (HWND hwnd, BOOL dblclk, int x, int y, UINT hitCode)
 260 {
 261   int r;
 262
 263   if (nindexes == 0)
 264     return 0;
 265
 266   if (y < header_height)
 267     return 0;
 268   x += scroll_ulc_x;
 269   y += scroll_ulc_y - header_height;
 270
 271   r = (y + ROW_MARGIN/2) / row_height;
 272
 273   if (r < 0 || r >= npackages)
 274     return 0;
 275
 276   int p = package_indexes[r];
 277
 278   if (x >= headers[NEW_COL].x - HMARGIN/2 && x <= headers[NEW_COL+1].x - HMARGIN/2)
 279     {
 280       extra[p].pick ++;
 281       if (extra[p].chooser[extra[p].pick].caption == 0)
 282         extra[p].pick = 0;
 283     }
 284
 285   if (x >= headers[SRC_COL].x - HMARGIN/2 && x <= headers[SRC_COL+1].x - HMARGIN/2)
 286     {
 287       if (extra[p].chooser[extra[p].pick].src_avail)
 288         package[p].srcaction ^= (SRCACTION_NO^SRCACTION_YES);
 289     }
 290
 291   RECT rect;
 292   rect.left = headers[NEW_COL].x - scroll_ulc_x;
 293   rect.right = headers[SRC_COL+1].x - scroll_ulc_x;
 294   rect.top = header_height + r * row_height - scroll_ulc_y;
 295   rect.bottom = rect.top + row_height;
 296   InvalidateRect (hwnd, &rect, TRUE);
 297   return FALSE;
 298 }
 299
 300 static LRESULT CALLBACK
 301 listview_proc (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
 302 {
 303   switch (message) {
 304   case WM_HSCROLL:
 305     return HANDLE_WM_HSCROLL (hwnd, wParam, lParam, list_hscroll);
 306   case WM_VSCROLL:
 307     return HANDLE_WM_VSCROLL (hwnd, wParam, lParam, list_vscroll);
 308   case WM_LBUTTONDOWN:
 309     return HANDLE_WM_LBUTTONDOWN (hwnd, wParam, lParam, list_click);
 310   case WM_PAINT:
 311     paint (hwnd);
 312     return 0;
 313   default:
 314     return DefWindowProc (hwnd, message, wParam, lParam);
 315   }
 316 }
 317
 318 static void
 319 register_windows (HINSTANCE hinst)
 320 {
 321   WNDCLASSEX wcex;
 322   static int done = 0;
 323
 324   if (done)
 325     return;
 326   done = 1;
 327
 328   memset (&wcex, 0, sizeof (wcex));
 329   wcex.cbSize = sizeof (WNDCLASSEX);
 330   wcex.style = CS_HREDRAW | CS_VREDRAW;
 331   wcex.lpfnWndProc = listview_proc;
 332   wcex.hInstance = hinst;
 333   wcex.hIcon = LoadIcon (0, IDI_APPLICATION);
 334   wcex.hCursor = LoadCursor (0, IDC_ARROW);
 335   wcex.hbrBackground = (HBRUSH) (COLOR_WINDOW+1);
 336   wcex.lpszClassName = "listview";
 337
 338   RegisterClassEx (&wcex);
 339 }
 340
 341 static void
 342 note_width (HDC dc, char *string, int addend, int column)
 343 {
 344   if (!string)
 345     return;
 346   SIZE s;
 347   GetTextExtentPoint32 (dc, string, strlen (string), &s);
 348   if (headers[column].width < s.cx + addend)
 349     headers[column].width = s.cx + addend;
 350 }
 351
 352 static int
 353 best_trust (int p, int trust)
 354 {
 355   int t;
 356   for (t=trust; t>=0; t--)
 357     if (package[p].info[t].install)
 358       return t;
 359   for (t=trust+1; t<=NTRUST; t++)
 360     if (package[p].info[t].install)
 361       return t;
 362   if (extra[p].installed_file)
 363     return TRUST_KEEP;
 364   return TRUST_NONE;
 365 }
 366
 367 static void
 368 default_trust (HWND h, int trust)
 369 {
 370   int i, t, c;
 371
 372   for (i=0; i<npackages; i++)
 373     {
 374       t = best_trust (i, trust);
 375       extra[i].pick = 1;
 376       for (c=0; c<extra[i].npick; c++)
 377         if (t == extra[i].chooser[c].trust)
 378           extra[i].pick = c;
 379       if (install_type == IDC_INSTALL_NATIVE
 380           && package[i].type == TY_CYGWIN
 381           ||
 382           install_type == IDC_INSTALL_CYGWIN
 383           && package[i].type == TY_NATIVE)
 384         extra[i].pick = extra[i].npick -1;
 385     }
 386   RECT r;
 387   GetClientRect (h, &r);
 388   InvalidateRect (h, &r, TRUE);
 389   if (nextbutton)
 390     SetFocus (nextbutton);
 391 }
 392
 393 static void
 394 set_full_list (HWND h, int isfull)
 395 {
 396   int i, j;
 397   full_list = isfull;
 398   if (package_indexes == 0)
 399     package_indexes = (int *) malloc (npackages * sizeof (int));
 400   for (i=j=0; i<npackages; i++)
 401     {
 402       if (isfull || extra[i].in_partial_list)
 403         package_indexes[j++] = i;
 404     }
 405   nindexes = j;
 406
 407   RECT r;
 408   GetClientRect (h, &r);
 409   SCROLLINFO si;
 410   memset (&si, 0, sizeof (si));
 411   si.cbSize = sizeof (si);
 412   si.fMask = SIF_ALL;
 413   si.nMin = 0;
 414   si.nMax = headers[2].x + headers[2].width + HMARGIN;
 415   si.nPage = r.right;
 416   SetScrollInfo (h, SB_HORZ, &si, TRUE);
 417
 418   si.nMax = nindexes * row_height;
 419   si.nPage = r.bottom - header_height;
 420   SetScrollInfo (h, SB_VERT, &si, TRUE);
 421
 422   scroll_ulc_x = scroll_ulc_y = 0;
 423
 424   InvalidateRect (h, &r, TRUE);
 425
 426   if (nextbutton)
 427     SetFocus (nextbutton);
 428 }
 429
 430 static void
 431 build_labels ()
 432 {
 433   int i;
 434   for (i=0; i<npackages; i++)
 435     {
 436       int c = 0, t;
 437
 438 #define C extra[i].chooser[c]
 439       if (extra[i].installed_ver)
 440         {
 441           C.caption = "Uninstall";
 442           C.trust = TRUST_UNINSTALL;
 443           c++;
 444           C.caption = "Keep";
 445           C.trust = TRUST_KEEP;
 446           c++;
 447         }
 448
 449       for (t=TRUST_PREV; t<NTRUST; t++)
 450         if (package[i].info[t].install)
 451           if (t != extra[i].which_is_installed)
 452             {
 453               C.caption = package[i].info[t].version;
 454               if (C.caption == 0 || C.caption[0] == 0)
 455                 C.caption = "0.0";
 456               C.trust = t;
 457               if (package[i].info[t].source)
 458                 C.src_avail = 1;
 459               c++;
 460               /* we intentionally skip TRUST_PREV */
 461               if (t != TRUST_PREV || !extra[i].installed_ver)
 462                 extra[i].in_partial_list = 1;
 463
 464             }
 465
 466       if (c == 0)
 467         {
 468           C.caption = "N/A";
 469           C.trust = TRUST_NONE;
 470           c++;
 471         }
 472
 473       if (! extra[i].installed_file)
 474         {
 475           C.caption = "Skip";
 476           C.trust = TRUST_NONE;
 477           c++;
 478         }
 479
 480       C.caption = 0;
 481       extra[i].npick = c;
 482 #undef C
 483     }
 484 }
 485
 486 static void
 487 create_listview (HWND dlg, RECT *r)
 488 {
 489   int i, t;
 490   lv = CreateWindowEx (WS_EX_CLIENTEDGE,
 491                        "listview",
 492                        "listviewwindow",
 493                        WS_CHILD | WS_HSCROLL | WS_VSCROLL | WS_VISIBLE,
 494                        r->left, r->top,
 495                        r->right-r->left+1, r->bottom-r->top+1,
 496                        dlg,
 497                        NULL, // ??? MAKEINTRESOURCE(IDC_CHOOSE_LIST),
 498                        hinstance,
 499                        0);
 500   ShowWindow (lv, SW_SHOW);
 501
 502   for (i=0; headers[i].text; i++)
 503     headers[i].width = 0;
 504
 505   HDC dc = GetDC (lv);
 506   sysfont = GetStockObject (DEFAULT_GUI_FONT);
 507   SelectObject (dc, sysfont);
 508   GetTextMetrics (dc, &tm);
 509   header_height = tm.tmHeight + 5 + 3;
 510
 511   bitmap_dc = CreateCompatibleDC (dc);
 512
 513   row_height = (tm.tmHeight + tm.tmExternalLeading + ROW_MARGIN);
 514   int irh = tm.tmExternalLeading + tm.tmDescent + 11 + ROW_MARGIN;
 515   if (row_height < irh)
 516     row_height = irh;
 517
 518   for (i=0; headers[i].text; i++)
 519     note_width (dc, headers[i].text, 0, i);
 520   for (i=0; i<npackages; i++)
 521     {
 522       note_width (dc, extra[i].installed_ver, 0, CURRENT_COL);
 523       note_width (dc, extra[i].installed_ver, 11+ICON_MARGIN, NEW_COL);
 524       for (t=0; t<NTRUST; t++)
 525         note_width (dc, package[i].info[t].version, 11+ICON_MARGIN, NEW_COL);
 526       note_width (dc, package[i].name, 0, PACKAGE_COL);
 527       note_width (dc, package[i].sdesc, 0, PACKAGE_COL);
 528     }
 529   note_width (dc, "keep", 11+ICON_MARGIN, NEW_COL);
 530   note_width (dc, "uninstall", 11+ICON_MARGIN, NEW_COL);
 531
 532   headers[CURRENT_COL].x = HMARGIN/2;
 533   headers[NEW_COL].x = (headers[CURRENT_COL].x + headers[CURRENT_COL].width
 534                         + HMARGIN + 11 + ICON_MARGIN);
 535   headers[SRC_COL].x = headers[NEW_COL].x + headers[NEW_COL].width + HMARGIN;
 536   headers[PACKAGE_COL].x = headers[SRC_COL].x + headers[SRC_COL].width + HMARGIN;
 537
 538   set_full_list (lv, full_list);
 539   default_trust (lv, TRUST_CURR);
 540
 541   ReleaseDC (lv, dc);
 542 }
 543
 544 static BOOL
 545 dialog_cmd (HWND h, int id, HWND hwndctl, UINT code)
 546 {
 547   switch (id)
 548     {
 549
 550     case IDC_CHOOSE_PREV:
 551       default_trust (lv, TRUST_PREV);
 552       break;
 553     case IDC_CHOOSE_CURR:
 554       default_trust (lv, TRUST_CURR);
 555       break;
 556     case IDC_CHOOSE_EXP:
 557       default_trust (lv, TRUST_TEST);
 558       break;
 559     case IDC_CHOOSE_FULLPART:
 560       set_full_list (lv, !full_list);
 561       break;
 562
 563     case IDOK:
 564       if (source == IDC_SOURCE_CWD)
 565         NEXT (IDD_S_INSTALL);
 566       else
 567         NEXT (IDD_S_DOWNLOAD);
 568       break;
 569
 570     case IDC_BACK:
 571       initialized = 0;
 572       if (source == IDC_SOURCE_CWD)
 573         NEXT (IDD_ROOT);
 574       else
 575         NEXT (IDD_SITE);
 576       break;
 577
 578     case IDCANCEL:
 579       NEXT (0);
 580       break;
 581     }
 582   return FALSE;
 583 }
 584
 585 static void
 586 GetParentRect (HWND parent, HWND child, RECT *r)
 587 {
 588   POINT p;
 589   GetWindowRect (child, r);
 590   p.x = r->left;
 591   p.y = r->top;
 592   ScreenToClient (parent, &p);
 593   r->left = p.x;
 594   r->top = p.y;
 595   p.x = r->right;
 596   p.y = r->bottom;
 597   ScreenToClient (parent, &p);
 598   r->right = p.x;
 599   r->bottom = p.y;
 600 }
 601
 602 static BOOL CALLBACK
 603 dialog_proc (HWND h, UINT message, WPARAM wParam, LPARAM lParam)
 604 {
 605   HWND frame;
 606   RECT r;
 607   switch (message)
 608     {
 609     case WM_INITDIALOG:
 610       nextbutton = GetDlgItem (h, IDOK);
 611       frame = GetDlgItem (h, IDC_LISTVIEW_POS);
 612       GetParentRect (h, frame, &r);
 613       r.top += 2;
 614       r.bottom -= 2;
 615       create_listview (h, &r);
 616 #if 0
 617       load_dialog (h);
 618 #endif
 619       return FALSE;
 620     case WM_COMMAND:
 621       return HANDLE_WM_COMMAND (h, wParam, lParam, dialog_cmd);
 622     }
 623   return FALSE;
 624 }
 625
 626 char *
 627 base (char *s)
 628 {
 629   if (!s)
 630     return 0;
 631   char *rv = s;
 632   while (*s)
 633     {
 634       if ((*s == '/' || *s == ':' || *s == '\\') && s[1])
 635         rv = s+1;
 636       s++;
 637     }
 638   return rv;
 639 }
 640
 641 static void
 642 scan2 (char *path, unsigned int size)
 643 {
 644   int i, t;
 645   for (i=0; i<npackages; i++)
 646     for (t=0; t<NTRUST; t++)
 647       if (package[i].info[t].install
 648           && strcmp (base (package[i].info[t].install), base (path)) == 0
 649           && package[i].info[t].install_size == (int)size)
 650         {
 651           extra[i].installed_file = package[i].info[t].install;
 652           extra[i].installed_size = size;
 653           extra[i].which_is_installed = t;
 654           extra[i].installed_ver = package[i].info[t].version;
 655           if (!extra[i].installed_ver)
 656             extra[i].installed_ver = "0";
 657         }
 658 }
 659
 660 static void
 661 scan_downloaded_files ()
 662 {
 663   find (".", scan2);
 664 }
 665
 666 static void
 667 read_installed_db ()
 668 {
 669   int i;
 670   if (!root_dir)
 671     return;
 672
 673   char line[1000], pkg[1000], inst[1000], src[1000];
 674   int instsz, srcsz;
 675
 676   FILE *db = fopen (concat (root_dir, XEMACS_SETUP_DIR, "installed.db", 0), "rt");
 677   if (!db)
 678     return;
 679
 680   while (fgets (line, 1000, db))
 681     {
 682       src[0] = 0;
 683       srcsz = 0;
 684       sscanf (line, "%s %s %d %s %d", pkg, inst, &instsz, src, &srcsz);
 685
 686       for (i=0; i<npackages; i++)
 687         if (strcmp (package[i].name, pkg) == 0)
 688           {
 689             int t;
 690             extra[i].installed_file = inst;
 691             extra[i].installed_size = instsz;
 692
 693             for (t=0; t<NTRUST; t++)
 694               if (package[i].info[t].install
 695                   && strcmp (base (package[i].info[t].install), base (inst)) == 0)
 696                 {
 697                   extra[i].which_is_installed = t;
 698                   extra[i].installed_ver = package[i].info[t].version;
 699                   break;
 700                 }
 701
 702             if (extra[i].installed_ver == 0) /* still */
 703               {
 704                 char *v, *d;
 705                 for (v=base (inst); *v; v++)
 706                   if (*v == '-' && isdigit(v[1]))
 707                     {
 708                       v++;
 709                       break;
 710                     }
 711                 if (!v)
 712                   v = inst;
 713                 for (d=v; *d; d++)
 714                   if (strncmp (d, ".tar", 4) == 0
 715                       || strncmp (d, "-pkg", 4) == 0)
 716                     {
 717                       *d = 0;
 718                       break;
 719                     }
 720                 if (v[0])
 721                   extra[i].installed_ver = strdup (v);
 722                 else
 723                   extra[i].installed_ver = "0";
 724               }
 725             break;
 726           }
 727     }
 728   fclose (db);
 729 }
 730
 731 int CDECL
 732 package_sort (const void *va, const void *vb)
 733 {
 734   Package *a = (Package *)va;
 735   Package *b = (Package *)vb;
 736   return strcmp (a->name, b->name);
 737 }
 738
 739 void
 740 do_choose (HINSTANCE h)
 741 {
 742   int rv, i;
 743
 744   qsort (package, npackages, sizeof (package[0]), package_sort);
 745
 746   nextbutton = 0;
 747   bm_spin = LoadImage (h, MAKEINTRESOURCE (IDB_SPIN), IMAGE_BITMAP, 0, 0, 0);
 748   bm_rtarrow = LoadImage (h, MAKEINTRESOURCE (IDB_RTARROW), IMAGE_BITMAP, 0, 0, 0);
 749
 750   bm_checkyes = LoadImage (h, MAKEINTRESOURCE (IDB_CHECK_YES), IMAGE_BITMAP, 0, 0, 0);
 751   bm_checkno = LoadImage (h, MAKEINTRESOURCE (IDB_CHECK_NO), IMAGE_BITMAP, 0, 0, 0);
 752   bm_checkna = LoadImage (h, MAKEINTRESOURCE (IDB_CHECK_NA), IMAGE_BITMAP, 0, 0, 0);
 753
 754   extra = (ExtraPackageInfo *) malloc (npackages * sizeof (ExtraPackageInfo));
 755   memset (extra, 0, npackages * sizeof (ExtraPackageInfo));
 756   for (i=0; i<npackages; i++)
 757     extra[i].which_is_installed = -1;
 758
 759   register_windows (h);
 760
 761   if (source == IDC_SOURCE_DOWNLOAD)
 762     scan_downloaded_files ();
 763   else
 764     read_installed_db ();
 765   build_labels ();
 766
 767   rv = DialogBox (h, MAKEINTRESOURCE (IDD_CHOOSE), 0, dialog_proc);
 768   if (rv == -1)
 769     fatal (IDS_DIALOG_FAILED);
 770
 771   for (i=0; i<npackages; i++)
 772     {
 773       switch (extra[i].chooser[extra[i].pick].trust)
 774         {
 775         case TRUST_PREV:
 776         case TRUST_CURR:
 777         case TRUST_TEST:
 778           if (extra[i].installed_file)
 779             package[i].action = ACTION_UPGRADE;
 780           else
 781             package[i].action = ACTION_NEW;
 782           package[i].trust = extra[i].chooser[extra[i].pick].trust;
 783           // pick up the actual core package to install
 784           if (package[i].type == TY_CYGWIN || package[i].type == TY_NATIVE
 785               && xemacs_package == 0)
 786             xemacs_package = &package[i];
 787           break;
 788
 789         case TRUST_UNINSTALL:
 790           package[i].action = ACTION_UNINSTALL;
 791           break;
 792
 793         case TRUST_KEEP:
 794         case TRUST_NONE:
 795         default:
 796           package[i].action = ACTION_SAME;
 797           break;
 798         }
 799     }
 800
 801   log (LOG_BABBLE, "Chooser results...");
 802   for (i=0; i<npackages; i++)
 803     {
 804       static char *infos[] = {"prev", "curr", "test"};
 805       const char *trust = ((package[i].trust == TRUST_PREV) ? "prev"
 806                            : (package[i].trust == TRUST_CURR) ? "curr"
 807                            : (package[i].trust == TRUST_TEST) ? "test"
 808                            : "unknown");
 809       const char *action = ((package[i].action == ACTION_UNKNOWN) ? "unknown"
 810                             : (package[i].action == ACTION_SAME) ? "same"
 811                             : (package[i].action == ACTION_NEW) ? "new"
 812                             : (package[i].action == ACTION_UPGRADE) ? "upgrade"
 813                             : (package[i].action == ACTION_UNINSTALL) ? "uninstall"
 814                             : (package[i].action == ACTION_ERROR) ? "error"
 815                             : "unknown");
 816
 817       log (LOG_BABBLE, "[%s] action=%s trust=%s src? %s", package[i].name, action, trust,
 818            package[i].srcaction == SRCACTION_NO ? "no" : "yes");
 819       for (int t=0; t<NTRUST; t++)
 820         {
 821           if (package[i].info[t].install)
 822             log (LOG_BABBLE, "[%s] ver %s inst %s %d src %s %d",
 823                  infos[t],
 824                  package[i].info[t].version ? package[i].info[t].version : "(none)",
 825                  package[i].info[t].install ? package[i].info[t].install : "(none)",
 826                  package[i].info[t].install_size,
 827                  package[i].info[t].source ? package[i].info[t].source : "(none)",
 828                  package[i].info[t].source_size);
 829         }
 830     }
 831 }