Rename crc32() to crc32_compute(), to avoid clashing catastrophically
[sgt/putty] / unix / pterm.c
index e34208c..8b6cd22 100644 (file)
@@ -166,7 +166,7 @@ int from_backend(void *frontend, int is_stderr, const char *data, int len)
     return term_data(inst->term, is_stderr, data, len);
 }
 
-void logevent(void *frontend, char *string)
+void logevent(void *frontend, const char *string)
 {
     struct gui_data *inst = (struct gui_data *)frontend;
 
@@ -344,7 +344,7 @@ void get_window_pixels(void *frontend, int *x, int *y)
 char *get_window_title(void *frontend, int icon)
 {
     struct gui_data *inst = (struct gui_data *)frontend;
-    return icon ? inst->wintitle : inst->icontitle;
+    return icon ? inst->icontitle : inst->wintitle;
 }
 
 gint delete_window(GtkWidget *widget, GdkEvent *event, gpointer data)
@@ -368,11 +368,20 @@ static void show_mouseptr(struct gui_data *inst, int show)
     inst->mouseptr_visible = show;
 }
 
+void draw_backing_rect(struct gui_data *inst)
+{
+    GdkGC *gc = gdk_gc_new(inst->area->window);
+    gdk_gc_set_foreground(gc, &inst->cols[18]);   /* default background */
+    gdk_draw_rectangle(inst->pixmap, gc, 1, 0, 0,
+                      inst->cfg.width * inst->font_width + 2*inst->cfg.window_border,
+                      inst->cfg.height * inst->font_height + 2*inst->cfg.window_border);
+    gdk_gc_unref(gc);
+}
+
 gint configure_area(GtkWidget *widget, GdkEventConfigure *event, gpointer data)
 {
     struct gui_data *inst = (struct gui_data *)data;
     int w, h, need_size = 0;
-    GdkGC *gc;
 
     /*
      * See if the terminal size has changed, in which case we must
@@ -397,12 +406,7 @@ gint configure_area(GtkWidget *widget, GdkEventConfigure *event, gpointer data)
                                  (inst->cfg.height * inst->font_height +
                                   2*inst->cfg.window_border), -1);
 
-    gc = gdk_gc_new(inst->area->window);
-    gdk_gc_set_foreground(gc, &inst->cols[18]);   /* default background */
-    gdk_draw_rectangle(inst->pixmap, gc, 1, 0, 0,
-                      inst->cfg.width * inst->font_width + 2*inst->cfg.window_border,
-                      inst->cfg.height * inst->font_height + 2*inst->cfg.window_border);
-    gdk_gc_unref(gc);
+    draw_backing_rect(inst);
 
     if (need_size && inst->term) {
        term_size(inst->term, h, w, inst->cfg.savelines);
@@ -440,11 +444,12 @@ gint key_event(GtkWidget *widget, GdkEventKey *event, gpointer data)
 {
     struct gui_data *inst = (struct gui_data *)data;
     char output[32];
-    int start, end, special;
+    wchar_t ucsoutput[2];
+    int ucsval, start, end, special, use_ucsoutput;
 
     /* By default, nothing is generated. */
     end = start = 0;
-    special = FALSE;
+    special = use_ucsoutput = FALSE;
 
     /*
      * If Alt is being released after typing an Alt+numberpad
@@ -566,12 +571,21 @@ gint key_event(GtkWidget *widget, GdkEventKey *event, gpointer data)
        }
 
        special = FALSE;
+       use_ucsoutput = FALSE;
 
        /* ALT+things gives leading Escape. */
        output[0] = '\033';
        strncpy(output+1, event->string, 31);
-       output[31] = '\0';
-       end = strlen(output);
+       if (!*event->string &&
+           (ucsval = keysym_to_unicode(event->keyval)) >= 0) {
+           ucsoutput[0] = '\033';
+           ucsoutput[1] = ucsval;
+           use_ucsoutput = TRUE;
+           end = 2;
+       } else {
+           output[31] = '\0';
+           end = strlen(output);
+       }
        if (event->state & GDK_MOD1_MASK) {
            start = 0;
            if (end == 1) end = 0;
@@ -582,6 +596,7 @@ gint key_event(GtkWidget *widget, GdkEventKey *event, gpointer data)
        if (!event->string[0] && event->keyval == '`' &&
            (event->state & GDK_CONTROL_MASK)) {
            output[1] = '\x1C';
+           use_ucsoutput = FALSE;
            end = 2;
        }
 
@@ -589,6 +604,7 @@ gint key_event(GtkWidget *widget, GdkEventKey *event, gpointer data)
        if (event->keyval == GDK_Break &&
            (event->state & GDK_CONTROL_MASK)) {
            output[1] = '\003';
+           use_ucsoutput = FALSE;
            end = 2;
            special = TRUE;
        }
@@ -597,6 +613,7 @@ gint key_event(GtkWidget *widget, GdkEventKey *event, gpointer data)
         * special to ldisc. */
        if (event->keyval == GDK_Return) {
            output[1] = '\015';
+           use_ucsoutput = FALSE;
            end = 2;
            special = TRUE;
        }
@@ -608,6 +625,7 @@ gint key_event(GtkWidget *widget, GdkEventKey *event, gpointer data)
            (event->state & (GDK_SHIFT_MASK |
                             GDK_CONTROL_MASK)) == GDK_CONTROL_MASK) {
            output[1] = '\0';
+           use_ucsoutput = FALSE;
            end = 2;
        }
 
@@ -616,6 +634,7 @@ gint key_event(GtkWidget *widget, GdkEventKey *event, gpointer data)
            (event->state & (GDK_SHIFT_MASK | GDK_CONTROL_MASK)) ==
            (GDK_SHIFT_MASK | GDK_CONTROL_MASK)) {
            output[1] = '\240';
+           use_ucsoutput = FALSE;
            end = 2;
        }
 
@@ -623,6 +642,7 @@ gint key_event(GtkWidget *widget, GdkEventKey *event, gpointer data)
        if (event->keyval == GDK_BackSpace &&
            !(event->state & GDK_SHIFT_MASK)) {
            output[1] = inst->cfg.bksp_is_delete ? '\x7F' : '\x08';
+           use_ucsoutput = FALSE;
            end = 2;
            special = TRUE;
        }
@@ -630,6 +650,7 @@ gint key_event(GtkWidget *widget, GdkEventKey *event, gpointer data)
        if (event->keyval == GDK_BackSpace &&
            (event->state & GDK_SHIFT_MASK)) {
            output[1] = inst->cfg.bksp_is_delete ? '\x08' : '\x7F';
+           use_ucsoutput = FALSE;
            end = 2;
            special = TRUE;
        }
@@ -638,6 +659,7 @@ gint key_event(GtkWidget *widget, GdkEventKey *event, gpointer data)
        if (event->keyval == GDK_ISO_Left_Tab ||
            (event->keyval == GDK_Tab && (event->state & GDK_SHIFT_MASK))) {
            end = 1 + sprintf(output+1, "\033[Z");
+           use_ucsoutput = FALSE;
        }
 
        /*
@@ -662,6 +684,7 @@ gint key_event(GtkWidget *widget, GdkEventKey *event, gpointer data)
                    output[1] = keys[1];
                else
                    output[1] = keys[0];
+               use_ucsoutput = FALSE;
                goto done;
            }
        }
@@ -714,6 +737,7 @@ gint key_event(GtkWidget *widget, GdkEventKey *event, gpointer data)
                        end = 1 + sprintf(output+1, "\033?%c", xkey);
                } else
                    end = 1 + sprintf(output+1, "\033O%c", xkey);
+               use_ucsoutput = FALSE;
                goto done;
            }
        }
@@ -817,6 +841,7 @@ gint key_event(GtkWidget *widget, GdkEventKey *event, gpointer data)
 
            if (inst->term->vt52_mode && code > 0 && code <= 6) {
                end = 1 + sprintf(output+1, "\x1B%c", " HLMEIG"[code]);
+               use_ucsoutput = FALSE;
                goto done;
            }
 
@@ -841,6 +866,7 @@ gint key_event(GtkWidget *widget, GdkEventKey *event, gpointer data)
                if (event->state & GDK_SHIFT_MASK) index += 12;
                if (event->state & GDK_CONTROL_MASK) index += 24;
                end = 1 + sprintf(output+1, "\x1B[%c", codes[index]);
+               use_ucsoutput = FALSE;
                goto done;
            }
            if (inst->cfg.funky_type == 5 &&     /* SCO small keypad */
@@ -852,6 +878,7 @@ gint key_event(GtkWidget *widget, GdkEventKey *event, gpointer data)
                } else {
                    end = 1 + sprintf(output+1, "\x1B[%c", codes[code-1]);
                }
+               use_ucsoutput = FALSE;
                goto done;
            }
            if ((inst->term->vt52_mode || inst->cfg.funky_type == 4) &&
@@ -867,10 +894,12 @@ gint key_event(GtkWidget *widget, GdkEventKey *event, gpointer data)
                else
                    end = 1 + sprintf(output+1,
                                      "\x1BO%c", code + 'P' - 11 - offt);
+               use_ucsoutput = FALSE;
                goto done;
            }
            if (inst->cfg.funky_type == 1 && code >= 11 && code <= 15) {
                end = 1 + sprintf(output+1, "\x1B[[%c", code + 'A' - 11);
+               use_ucsoutput = FALSE;
                goto done;
            }
            if (inst->cfg.funky_type == 2 && code >= 11 && code <= 14) {
@@ -878,14 +907,17 @@ gint key_event(GtkWidget *widget, GdkEventKey *event, gpointer data)
                    end = 1 + sprintf(output+1, "\x1B%c", code + 'P' - 11);
                else
                    end = 1 + sprintf(output+1, "\x1BO%c", code + 'P' - 11);
+               use_ucsoutput = FALSE;
                goto done;
            }
            if (inst->cfg.rxvt_homeend && (code == 1 || code == 4)) {
                end = 1 + sprintf(output+1, code == 1 ? "\x1B[H" : "\x1BOw");
+               use_ucsoutput = FALSE;
                goto done;
            }
            if (code) {
                end = 1 + sprintf(output+1, "\x1B[%d~", code);
+               use_ucsoutput = FALSE;
                goto done;
            }
        }
@@ -920,6 +952,7 @@ gint key_event(GtkWidget *widget, GdkEventKey *event, gpointer data)
                } else {                    
                    end = 1 + sprintf(output+1, "\033[%c", xkey);
                }
+               use_ucsoutput = FALSE;
                goto done;
            }
        }
@@ -945,19 +978,28 @@ gint key_event(GtkWidget *widget, GdkEventKey *event, gpointer data)
            output[end] = '\0';        /* NUL-terminate */
            ldisc_send(inst->ldisc, output+start, -2, 1);
        } else if (!inst->direct_to_font) {
-           /*
-            * The stuff we've just generated is assumed to be
-            * ISO-8859-1! This sounds insane, but `man
-            * XLookupString' agrees: strings of this type returned
-            * from the X server are hardcoded to 8859-1. Strictly
-            * speaking we should be doing this using some sort of
-            * GtkIMContext, which (if we're lucky) would give us
-            * our data directly in Unicode; but that's not
-            * supported in GTK 1.2 as far as I can tell, and it's
-            * poorly documented even in 2.0, so it'll have to
-            * wait.
-            */
-           lpage_send(inst->ldisc, CS_ISO8859_1, output+start, end-start, 1);
+           if (!use_ucsoutput) {
+               /*
+                * The stuff we've just generated is assumed to be
+                * ISO-8859-1! This sounds insane, but `man
+                * XLookupString' agrees: strings of this type
+                * returned from the X server are hardcoded to
+                * 8859-1. Strictly speaking we should be doing
+                * this using some sort of GtkIMContext, which (if
+                * we're lucky) would give us our data directly in
+                * Unicode; but that's not supported in GTK 1.2 as
+                * far as I can tell, and it's poorly documented
+                * even in 2.0, so it'll have to wait.
+                */
+               lpage_send(inst->ldisc, CS_ISO8859_1, output+start,
+                          end-start, 1);
+           } else {
+               /*
+                * We generated our own Unicode key data from the
+                * keysym, so use that instead.
+                */
+               luni_send(inst->ldisc, ucsoutput+start, end-start, 1);
+           }
        } else {
            /*
             * In direct-to-font mode, we just send the string
@@ -2078,6 +2120,17 @@ int do_cmdline(int argc, char **argv, int do_everything,
        char *p = *++argv;
         int ret;
 
+       /*
+        * Shameless cheating. Debian requires all X terminal
+        * emulators to support `-T title'; but
+        * cmdline_process_param will eat -T (it means no-pty) and
+        * complain that pterm doesn't support it. So, in pterm
+        * only, we convert -T into -title.
+        */
+       if ((cmdline_tooltype & TOOLTYPE_NONNETWORK) &&
+           !strcmp(p, "-T"))
+           p = "-title";
+
         ret = cmdline_process_param(p, (argc > 1 ? argv[1] : NULL),
                                     do_everything ? 1 : -1, cfg);
 
@@ -2339,9 +2392,63 @@ void uxsel_input_remove(int id) {
     gdk_input_remove(id);
 }
 
+char *guess_derived_font_name(GdkFont *font, int bold, int wide)
+{
+    XFontStruct *xfs = GDK_FONT_XFONT(font);
+    Display *disp = GDK_FONT_XDISPLAY(font);
+    Atom fontprop = XInternAtom(disp, "FONT", False);
+    unsigned long ret;
+    if (XGetFontProperty(xfs, fontprop, &ret)) {
+       char *name = XGetAtomName(disp, (Atom)ret);
+       if (name && name[0] == '-') {
+           char *strings[13];
+           char *dupname, *extrafree = NULL, *ret;
+           char *p, *q;
+           int nstr;
+
+           p = q = dupname = dupstr(name); /* skip initial minus */
+           nstr = 0;
+
+           while (*p && nstr < lenof(strings)) {
+               if (*p == '-') {
+                   *p = '\0';
+                   strings[nstr++] = p+1;
+               }
+               p++;
+           }
+
+           if (nstr < lenof(strings))
+               return NULL;           /* XLFD was malformed */
+
+           if (bold)
+               strings[2] = "bold";
+
+           if (wide) {
+               /* 4 is `wideness', which obviously may have changed. */
+               /* 5 is additional style, which may be e.g. `ja' or `ko'. */
+               strings[4] = strings[5] = "*";
+               strings[11] = extrafree = dupprintf("%d", 2*atoi(strings[11]));
+           }
+
+           ret = dupcat("-", strings[ 0], "-", strings[ 1], "-", strings[ 2],
+                        "-", strings[ 3], "-", strings[ 4], "-", strings[ 5],
+                        "-", strings[ 6], "-", strings[ 7], "-", strings[ 8],
+                        "-", strings[ 9], "-", strings[10], "-", strings[11],
+                        "-", strings[12], NULL);
+           sfree(extrafree);
+           sfree(dupname);
+
+           return ret;
+       }
+    }
+    return NULL;
+}
+
 void setup_fonts_ucs(struct gui_data *inst)
 {
     int font_charset;
+    char *name;
+    int guessed;
 
     if (inst->fonts[0])
         gdk_font_unref(inst->fonts[0]);
@@ -2359,36 +2466,70 @@ void setup_fonts_ucs(struct gui_data *inst)
        exit(1);
     }
     font_charset = set_font_info(inst, 0);
+
     if (inst->cfg.boldfont.name[0]) {
-       inst->fonts[1] = gdk_font_load(inst->cfg.boldfont.name);
-       if (!inst->fonts[1]) {
-           fprintf(stderr, "%s: unable to load bold font \"%s\"\n", appname,
-                   inst->cfg.boldfont.name);
-           exit(1);
-       }
+       name = inst->cfg.boldfont.name;
+       guessed = FALSE;
+    } else {
+       name = guess_derived_font_name(inst->fonts[0], TRUE, FALSE);
+       guessed = TRUE;
+    }
+    inst->fonts[1] = name ? gdk_font_load(name) : NULL;
+    if (inst->fonts[1]) {
        set_font_info(inst, 1);
-    } else
-       inst->fonts[1] = NULL;
+    } else if (!guessed) {
+       fprintf(stderr, "%s: unable to load bold font \"%s\"\n", appname,
+               inst->cfg.boldfont.name);
+       exit(1);
+    }
+    if (guessed)
+       sfree(name);
+
     if (inst->cfg.widefont.name[0]) {
-       inst->fonts[2] = gdk_font_load(inst->cfg.widefont.name);
-       if (!inst->fonts[2]) {
-           fprintf(stderr, "%s: unable to load wide font \"%s\"\n", appname,
-                   inst->cfg.widefont.name);
-           exit(1);
-       }
+       name = inst->cfg.widefont.name;
+       guessed = FALSE;
+    } else {
+       name = guess_derived_font_name(inst->fonts[0], FALSE, TRUE);
+       guessed = TRUE;
+    }
+    inst->fonts[2] = name ? gdk_font_load(name) : NULL;
+    if (inst->fonts[2]) {
        set_font_info(inst, 2);
-    } else
-       inst->fonts[2] = NULL;
+    } else if (!guessed) {
+       fprintf(stderr, "%s: unable to load wide font \"%s\"\n", appname,
+               inst->cfg.widefont.name);
+       exit(1);
+    }
+    if (guessed)
+       sfree(name);
+
     if (inst->cfg.wideboldfont.name[0]) {
-       inst->fonts[3] = gdk_font_load(inst->cfg.wideboldfont.name);
-       if (!inst->fonts[3]) {
-           fprintf(stderr, "%s: unable to load wide/bold font \"%s\"\n",
-                    appname, inst->cfg.wideboldfont.name);
-           exit(1);
-       }
+       name = inst->cfg.wideboldfont.name;
+       guessed = FALSE;
+    } else {
+       /*
+        * Here we have some choices. We can widen the bold font,
+        * bolden the wide font, or widen and bolden the standard
+        * font. Try them all, in that order!
+        */
+       if (inst->cfg.widefont.name[0])
+           name = guess_derived_font_name(inst->fonts[2], TRUE, FALSE);
+       else if (inst->cfg.boldfont.name[0])
+           name = guess_derived_font_name(inst->fonts[1], FALSE, TRUE);
+       else
+           name = guess_derived_font_name(inst->fonts[0], TRUE, TRUE);
+       guessed = TRUE;
+    }
+    inst->fonts[3] = name ? gdk_font_load(name) : NULL;
+    if (inst->fonts[3]) {
        set_font_info(inst, 3);
-    } else
-       inst->fonts[3] = NULL;
+    } else if (!guessed) {
+       fprintf(stderr, "%s: unable to load wide/bold font \"%s\"\n", appname,
+               inst->cfg.wideboldfont.name);
+       exit(1);
+    }
+    if (guessed)
+       sfree(name);
 
     inst->font_width = gdk_char_width(inst->fonts[0], ' ');
     inst->font_height = inst->fonts[0]->ascent + inst->fonts[0]->descent;
@@ -2436,7 +2577,8 @@ void copy_all_menuitem(GtkMenuItem *item, gpointer data)
 void special_menuitem(GtkMenuItem *item, gpointer data)
 {
     struct gui_data *inst = (struct gui_data *)data;
-    int code = (int)gtk_object_get_data(GTK_OBJECT(item), "user-data");
+    int code = GPOINTER_TO_INT(gtk_object_get_data(GTK_OBJECT(item),
+                                                  "user-data"));
 
     inst->back->special(inst->backhandle, code);
 }
@@ -2496,10 +2638,21 @@ void change_settings_menuitem(GtkMenuItem *item, gpointer data)
         for (i = 0; i < NCOLOURS; i++) {
             if (oldcfg.colours[ww[i]][0] != cfg2.colours[ww[i]][0] ||
                 oldcfg.colours[ww[i]][1] != cfg2.colours[ww[i]][1] ||
-                oldcfg.colours[ww[i]][2] != cfg2.colours[ww[i]][2])
+                oldcfg.colours[ww[i]][2] != cfg2.colours[ww[i]][2]) {
                 real_palette_set(inst, i, cfg2.colours[ww[i]][0],
                                  cfg2.colours[ww[i]][1],
                                  cfg2.colours[ww[i]][2]);
+
+               /*
+                * If the default background has changed, we must
+                * repaint the space in between the window border
+                * and the text area.
+                */
+               if (i == 18) {
+                   set_window_background(inst);
+                   draw_backing_rect(inst);
+               }
+           }
         }
 
         /*
@@ -2560,6 +2713,12 @@ void change_settings_menuitem(GtkMenuItem *item, gpointer data)
        }
 
         term_invalidate(inst->term);
+
+       /*
+        * We do an explicit full redraw here to ensure the window
+        * border has been redrawn as well as the text area.
+        */
+       gtk_widget_queue_draw(inst->area);
     }
     sfree(title);
 }
@@ -2787,7 +2946,7 @@ void update_specials_menu(void *frontend)
            if (*specials[i].name) {
                menuitem = gtk_menu_item_new_with_label(specials[i].name);
                gtk_object_set_data(GTK_OBJECT(menuitem), "user-data",
-                                   (gpointer)specials[i].code);
+                                   GINT_TO_POINTER(specials[i].code));
                gtk_signal_connect(GTK_OBJECT(menuitem), "activate",
                                   GTK_SIGNAL_FUNC(special_menuitem), inst);
            } else
@@ -3037,7 +3196,8 @@ int pt_main(int argc, char **argv)
 
     inst->back = select_backend(&inst->cfg);
     {
-       char *realhost, *error;
+       char *realhost;
+       const char *error;
 
        error = inst->back->init((void *)inst, &inst->backhandle,
                                  &inst->cfg, inst->cfg.host, inst->cfg.port,