/**************************************************************************** * NCSA Mosaic for the X Window System * * Software Development Group * * National Center for Supercomputing Applications * * University of Illinois at Urbana-Champaign * * 605 E. Springfield, Champaign IL 61820 * * mosaic@ncsa.uiuc.edu * * * * Copyright (C) 1993, Board of Trustees of the University of Illinois * * * * NCSA Mosaic software, both binary and source (hereafter, Software) is * * copyrighted by The Board of Trustees of the University of Illinois * * (UI), and ownership remains with the UI. * * * * The UI grants you (hereafter, Licensee) a license to use the Software * * for academic, research and internal business purposes only, without a * * fee. Licensee may distribute the binary and source code (if released) * * to third parties provided that the copyright notice and this statement * * appears on all copies and that no charge is associated with such * * copies. * * * * Licensee may make derivative works. However, if Licensee distributes * * any derivative work based on or derived from the Software, then * * Licensee will (1) notify NCSA regarding its distribution of the * * derivative work, and (2) clearly notify users that such derivative * * work is a modified version and not the original NCSA Mosaic * * distributed by the UI. * * * * Any Licensee wishing to make commercial use of the Software should * * contact the UI, c/o NCSA, to negotiate an appropriate license for such * * commercial use. Commercial use includes (1) integration of all or * * part of the source code into a product for sale or license by or on * * behalf of Licensee to third parties, or (2) distribution of the binary * * code or source code to third parties that need it to utilize a * * commercial product sold or licensed by or on behalf of Licensee. * * * * UI MAKES NO REPRESENTATIONS ABOUT THE SUITABILITY OF THIS SOFTWARE FOR * * ANY PURPOSE. IT IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED * * WARRANTY. THE UI SHALL NOT BE LIABLE FOR ANY DAMAGES SUFFERED BY THE * * USERS OF THIS SOFTWARE. * * * * By using or copying this Software, Licensee agrees to abide by the * * copyright law and all other applicable laws of the U.S. including, but * * not limited to, export control laws, and the terms of this license. * * UI shall have the right to terminate this license immediately by * * written notice upon Licensee's breach of, or non-compliance with, any * * of its terms. Licensee may be held legally responsible for any * * copyright infringement that is caused or encouraged by Licensee's * * failure to abide by the terms of this license. * * * * Comments and questions are welcome and can be sent to * * mosaic-x@ncsa.uiuc.edu. * ****************************************************************************/ #include "mosaic.h" /*#define PRERELEASE*/ #include #include #include #include #include #include #ifdef sony_news #include "utsname.h" #else /* sony_news */ #include #endif /* sony_news */ /* doesn't seem to be on all X11R4 systems #if (XtSpecificationRelease == 4) extern void _XEditResCheckMessages(); #define EDITRES_SUPPORT #endif */ #if (XtSpecificationRelease > 4) #define EDITRES_SUPPORT #endif /* * EDITRES_SUPPORT seems to fail with the HP libraries */ #if defined(__hpux) && defined(EDITRES_SUPPORT) #undef EDITRES_SUPPORT #endif #ifdef EDITRES_SUPPORT #include #endif #include #include #include #include #include #include #include #include #include #include #include "libhtmlw/HTML.h" #include "xresources.h" #include "bitmaps/xmosaic.xbm" #include "bitmaps/xmosaic_left.xbm" #include "bitmaps/xmosaic_right.xbm" #include "bitmaps/xmosaic_down.xbm" #include "bitmaps/back.xbm" #include "bitmaps/dis_back.xbm" #include "bitmaps/forward.xbm" #include "bitmaps/dis_forward.xbm" #include "bitmaps/home.xbm" #include "bitmaps/reload.xbm" #include "bitmaps/open.xbm" #include "bitmaps/save.xbm" #include "bitmaps/clone.xbm" #include "bitmaps/new.xbm" #include "bitmaps/close.xbm" /* Because Sun cripples the keysym.h file. */ #ifndef XK_KP_Up #define XK_KP_Home 0xFF95 /* Keypad Home */ #define XK_KP_Left 0xFF96 /* Keypad Left Arrow */ #define XK_KP_Up 0xFF97 /* Keypad Up Arrow */ #define XK_KP_Right 0xFF98 /* Keypad Right Arrow */ #define XK_KP_Down 0xFF99 /* Keypad Down Arrow */ #define XK_KP_Prior 0xFF9A /* Keypad Page Up */ #define XK_KP_Next 0xFF9B /* Keypad Page Down */ #define XK_KP_End 0xFF9C /* Keypad End */ #endif /* * Globals used by the pixmaps for the animated icon. * Marc, I imagine you might want to do something cleaner * with these? */ extern Pixmap *IconPix; extern int IconsMade; extern void MoCCINewConnection(); extern int force_dump_to_file; extern char *HTAppVersion; /* ------------------------------ variables ------------------------------- */ Display *dsp; XtAppContext app_context; Widget toplevel; Widget view = NULL; /* HORRIBLE HACK @@@@ */ int Vclass; /* visual class for 24bit support hack */ AppData Rdata; /* extern'd in mosaic.h */ char *global_xterm_str; /* required for HTAccess.c now */ char *uncompress_program; char *gunzip_program; int use_default_extension_map; char *global_extension_map; char *personal_extension_map; int use_default_type_map; char *global_type_map; char *personal_type_map; int tweak_gopher_types; int max_wais_responses; int have_hdf; int twirl_increment; #ifndef SECURE char *HTReferer = NULL; #endif /* SECURE */ /* This is exported to libwww, like altogether too many other variables here. */ int binary_transfer; /* Now we cache the current window right before doing a binary transfer, too. Sheesh, this is not pretty. */ mo_window *current_win; /* If startup_document is set to anything but NULL, it will be the initial document viewed (this is separate from home_document below). */ char *startup_document = NULL; /* If startup_document is NULL home_document will be the initial document. */ char *home_document = NULL; char *machine; char *shortmachine; char *machine_with_domain; XColor fg_color, bg_color; static Cursor busy_cursor; static int busy = 0; char *cached_url = NULL; static int cntlflag=0; /* Forward declaration of test predicate. */ int anchor_visited_predicate (Widget, char *); /* When we first start the application, we call mo_startup() after creating the unmapped toplevel widget. mo_startup() either sets the value of this to 1 or 0. If 0, we don't open a starting window. */ int defer_initial_window; /* Pixmaps for interrupt button. */ static Pixmap xmosaic_up_pix, xmosaic_left_pix, xmosaic_down_pix, xmosaic_right_pix; /* Pixmaps for main window buttons */ static Pixmap back_pix, dis_back_pix, forward_pix, dis_forward_pix, home_pix, reload_pix, open_pix, save_pix, clone_pix, new_pix, close_pix; extern char *HTDescribeURL (char *); extern mo_status mo_post_access_document (mo_window *win, char *url, char *content_type, char *post_data); extern void mo_post_exitbox(); XmxCallbackPrototype (menubar_cb); #ifndef SECURE struct utsname mo_uname; #endif /* SECURE */ #ifdef NETSCAPE_EXT extern int mo_use_color(); static int mono_or_color = 1; #endif /* NETSCAPE_EXT */ /* ----------------------------- WINDOW LIST ------------------------------ */ static mo_window *winlist = NULL; static int wincount = 0; /* Return either the first window in the window list or the next window after the current window. */ mo_window *mo_next_window (mo_window *win) { if (win == NULL) return winlist; else return win->next; } /* Return a window matching a specified uniqid. */ mo_window *mo_fetch_window_by_id (int id) { mo_window *win; win = winlist; while (win != NULL) { if (win->id == id) /* goto done;*/ return(win); win = win->next; } /* notfound:*/ return NULL; /* done: return win;*/ } /* Register a window in the window list. */ mo_status mo_add_window_to_list (mo_window *win) { wincount++; if (winlist == NULL) { win->next = NULL; winlist = win; } else { win->next = winlist; winlist = win; } return mo_succeed; } /* Remove a window from the window list. */ mo_status mo_remove_window_from_list (mo_window *win) { mo_window *w = NULL, *prev = NULL; while (w = mo_next_window (w)) { if (w == win) { /* Delete w. */ if (!prev) { /* No previous window. */ winlist = w->next; free (w); w = NULL; wincount--; /* Maybe exit. */ if (!winlist) mo_exit (); } else { /* Previous window. */ prev->next = w->next; free (w); w = NULL; wincount--; return mo_succeed; } } prev = w; } /* Couldn't find it. */ return mo_fail; } /**************************************************************************** * name: mo_check_for_proxy * purpose: Return the location of the proxy gateway for the passed access * method. * inputs: * - char *access: access string from the URL (http, gopher, ftp, etc) * returns: * The proxy gateway to use. (http://proxy.ncsa.uiuc.edu:911/) * remarks: This should really be open-ended configurable. ****************************************************************************/ char *mo_check_for_proxy (char *access) { if (access == NULL) { return((char *)NULL); } else if (strcmp(access, "http") == 0) { return(Rdata.http_proxy); } #ifdef USE_SSL else if (strcmp(access, "https") == 0) { return(Rdata.https_proxy); } #endif /* USE_SSL */ else if (strcmp(access, "ftp") == 0) { return(Rdata.ftp_proxy); } else if (strcmp(access, "wais") == 0) { return(Rdata.wais_proxy); } else if (strcmp(access, "gopher") == 0) { return(Rdata.gopher_proxy); } else if (strcmp(access, "news") == 0) { return(Rdata.news_proxy); } else if (strcmp(access, "file") == 0) { return(Rdata.file_proxy); } else { return((char *)NULL); } } /**************************************************************************** * name: mo_check_no_proxy * purpose: Return the direct access sites (without proxy). * inputs: * nothing * returns: * The sites accessed directly without proxy method. * (proxy.ncsa.uiuc.edu) * remarks: This should really be open-ended configurable. ****************************************************************************/ char *mo_check_no_proxy (void) { return(Rdata.no_proxy); } /**************************************************************************** * name: mo_assemble_help_url * purpose: Make a temporary, unique filename. * inputs: * - char *file: Filename to be appended to Rdata.docs_directory. * returns: * The desired help url (a malloc'd string). * remarks: ****************************************************************************/ char *mo_assemble_help_url (char *file) { char *tmp; if (!file) return strdup ("http://lose.lose/lose"); tmp = (char *)malloc ((strlen (file) + strlen (Rdata.docs_directory) + 4) * sizeof (char)); if (Rdata.docs_directory[strlen(Rdata.docs_directory)-1] == '/') { /* Trailing slash in docs_directory spec. */ sprintf (tmp, "%s%s", Rdata.docs_directory, file); } else { /* No trailing slash. */ sprintf (tmp, "%s/%s", Rdata.docs_directory, file); } return tmp; } /* ----------------------------- busy cursor ------------------------------ */ mo_status mo_not_busy (void) { mo_window *win = NULL; if (busy) { XUndefineCursor (dsp, XtWindow (toplevel)); while (win = mo_next_window (win)) { XUndefineCursor (dsp, XtWindow (win->base)); if (win->history_win) XUndefineCursor (dsp, XtWindow (win->history_win)); if (win->hotlist_win) XUndefineCursor (dsp, XtWindow (win->hotlist_win)); if (win->searchindex_win) XUndefineCursor (dsp, XtWindow (win->searchindex_win)); } XFlush (dsp); busy = 0; } return mo_succeed; } mo_status mo_busy (void) { mo_window *win = NULL; if (!busy) { XDefineCursor (dsp, XtWindow (toplevel), busy_cursor); while (win = mo_next_window (win)) { XDefineCursor (dsp, XtWindow (win->base), busy_cursor); if (win->history_win) XDefineCursor (dsp, XtWindow (win->history_win), busy_cursor); if (win->hotlist_win) XDefineCursor (dsp, XtWindow (win->hotlist_win), busy_cursor); if (win->searchindex_win) XDefineCursor (dsp, XtWindow (win->searchindex_win), busy_cursor); } XFlush (dsp); busy = 1; } return mo_succeed; } #ifdef HAVE_DTM /* --------------------- mo_set_dtm_menubar_functions --------------------- */ mo_status mo_set_dtm_menubar_functions (mo_window *win) { if (mo_dtm_out_active_p ()) { /* If we've got an active outport, then we can send a document but not open another outport. */ XmxRSetSensitive (win->menubar, mo_dtm_open_outport, XmxNotSensitive); XmxRSetSensitive (win->menubar, mo_dtm_send_document, XmxSensitive); } else { /* If we don't have an active outport, then we can't send a document but we can open an outport. */ XmxRSetSensitive (win->menubar, mo_dtm_open_outport, XmxSensitive); XmxRSetSensitive (win->menubar, mo_dtm_send_document, XmxNotSensitive); } return mo_succeed; } #endif /**************************************************************************** * name: mo_redisplay_window * purpose: Cause the current window's HTML widget to be refreshed. * This causes the anchors to be reexamined for visited status. * inputs: * - mo_window *win: Current window. * returns: * mo_succeed * remarks: * ****************************************************************************/ mo_status mo_redisplay_window (mo_window *win) { char *curl = cached_url; cached_url = win->cached_url; HTMLRetestAnchors (win->scrolled_win, anchor_visited_predicate); cached_url = curl; return mo_succeed; } /* ---------------------- mo_set_current_cached_win ----------------------- */ mo_status mo_set_current_cached_win (mo_window *win) { current_win = win; view = win->view; return mo_succeed; } static connect_interrupt = 0; static XmxCallback (icon_pressed_cb) { connect_interrupt = 1; } /* ----------------------- editable URL field callback -------------------- */ /* If the user hits return in the URL text field at the top of the display, */ /* then go fetch that URL -- amb */ static XmxCallback (url_field_cb) { mo_window *win = mo_fetch_window_by_id (XmxExtractUniqid ((int)client_data)); char *url; url = XmxTextGetString (win->url_text); if (!url || (!strlen(url))) return; mo_convert_newlines_to_spaces (url); mo_load_window_text (win, url, NULL); free(url); return; } /**************************************************************************** * name: anchor_cb * purpose: Callback for triggering anchor in HTML widget. * inputs: * - as per XmxCallback * returns: * nothing * remarks: * This is too complex and should be broken down. * We look at the button event passed in through the callback; * button1 == same window, button2 == new window. * Call mo_open_another_window or mo_load_window_text to get * the actual work done. ****************************************************************************/ static XmxCallback (anchor_cb) { char *href, *reftext; /* char *access;*/ #ifndef SECURE static char *referer = NULL; #endif /* SECURE */ mo_window *win = mo_fetch_window_by_id (XmxExtractUniqid ((int)client_data)); XButtonReleasedEvent *event = (XButtonReleasedEvent *)(((WbAnchorCallbackData *)call_data)->event); int force_newwin = (event->button == Button2 ? 1 : 0); int old_binx_flag; extern char reloading; /* if shift was down, make this a Load to Local Disk -- amb */ old_binx_flag = win->binary_transfer; if ( (event->state & ShiftMask) == ShiftMask) win->binary_transfer = 1; if (Rdata.kiosk || Rdata.kioskNoExit) { /* disable new window if in kiosk mode*/ force_newwin = 0; } if (!win) return; if (Rdata.protect_me_from_myself) { int answer = XmxModalYesOrNo (win->base, app_context, "BEWARE: Despite our best and most strenuous intentions to the contrary,\nabsolutely anything could be on the other end of this hyperlink,\nincluding -- quite possibly -- pornography, or even nudity.\n\nNCSA disclaims all responsibility regarding your emotional and mental health\nand specifically all responsibility for effects of viewing salacious material via Mosaic.\n\nWith that in mind, are you *sure* you want to follow this hyperlink???", "Yup, I'm sure, really.", "Ack, no! Get me outta here."); if (!answer) return; } #ifndef SECURE /* amb */ if (referer!=NULL) { free(referer); referer=NULL; } if ( strncasecmp(win->current_node->url, "file://localhost", 16) != 0) { /* what if hostname is a partial local? */ referer = strdup (win->current_node->url); HTReferer = referer; } else HTReferer = NULL; #endif /* SECURE */ if (((WbAnchorCallbackData *)call_data)->href) href = strdup (((WbAnchorCallbackData *)call_data)->href); else href = strdup ("Unlinked"); if (((WbAnchorCallbackData *)call_data)->text) reftext = strdup (((WbAnchorCallbackData *)call_data)->text); else reftext = strdup ("Untitled"); mo_convert_newlines_to_spaces (href); if (cntlflag) { reloading = 1; } if (!force_newwin) mo_load_window_text (win, href, reftext); else { char *target = mo_url_extract_anchor (href); char *url = mo_url_canonicalize_keep_anchor (href, win->current_node->url); /* @@@ should we be keeping the anchor here??? */ if (strncmp (url, "telnet:", 7) && strncmp (url, "tn3270:", 7) && strncmp (url, "rlogin:", 7)) { /* Not a telnet anchor. */ /* Open the window (generating a new cached_url). */ mo_open_another_window (win, url, reftext, target); /* Now redisplay this window. */ mo_redisplay_window (win); } else /* Just do mo_load_window_text go get the xterm forked off. */ mo_load_window_text (win, url, reftext); } reloading = 0; win->binary_transfer = old_binx_flag; free (href); return; } /**************************************************************************** * name: anchor_visited_predicate (PRIVATE) * purpose: Called by the HTML widget to determine whether a given URL * has been previously visited. * inputs: * - Widget w: HTML widget that called this routine. * - char *href: URL to test. * returns: * 1 if href has been visited previously; 0 otherwise. * remarks: * All this does is canonicalize the URL and call * mo_been_here_before_huh_dad() to figure out if we've been * there before. ****************************************************************************/ int anchor_visited_predicate (Widget w, char *href) { int rv; if (!Rdata.track_visited_anchors || !href) return 0; /* This doesn't do special things for data elements inside an HDF file, because it's faster this way. */ href = mo_url_canonicalize (href, cached_url); rv = (mo_been_here_before_huh_dad (href) == mo_succeed ? 1 : 0); free (href); return rv; } static void pointer_motion_callback (Widget w, char *href) { mo_window *win = NULL; XmString xmstr; char *to_free = NULL, *to_free_2 = NULL; if (!Rdata.track_pointer_motion) return; while (win = mo_next_window (win)) if (win->scrolled_win == w) goto foundit; /* Shit outta luck. */ return; foundit: if (href && *href) { href = mo_url_canonicalize_keep_anchor (href, win->cached_url); to_free = href; /* Sigh... */ mo_convert_newlines_to_spaces (href); /* This is now the option wherein the URLs are just spit up there; else we put up something more friendly. */ if (Rdata.track_full_url_names) { /* Everything already done... */ } else { /* This is where we go get a good description. */ href = HTDescribeURL (href); to_free_2 = href; } } else href = " "; xmstr = XmStringCreateSimple (href); XtVaSetValues (win->tracker_label, XmNlabelString, (XtArgVal)xmstr, NULL); XmStringFree (xmstr); if (to_free) free (to_free); if (to_free_2) free (to_free_2); return; } XmxCallback (submit_form_callback) { mo_window *win = NULL; char *url = NULL, *method = NULL, *enctype = NULL, *query; int len, i; WbFormCallbackData *cbdata = (WbFormCallbackData *)call_data; int do_post_urlencoded = 0; char *entity=NULL; if (!cbdata) return; while (win = mo_next_window (win)) if (win->scrolled_win == w) goto foundit; /* Shit outta luck. */ return; foundit: mo_busy (); /* Initial query: Breathing space. */ len = 16; /* Add up lengths of strings. */ for (i = 0; i < cbdata->attribute_count; i++) { if (cbdata->attribute_names[i]) { len += strlen (cbdata->attribute_names[i]) * 3; if (cbdata->attribute_values[i]) len += strlen (cbdata->attribute_values[i]) * 3; } len += 2; } /* Get the URL. */ if (cbdata->href && *(cbdata->href)) url = cbdata->href; else url = win->current_node->url; if (cbdata->method && *(cbdata->method)) method = cbdata->method; else method = strdup ("GET"); /* Grab enctype if it's there. */ if (cbdata->enctype && *(cbdata->enctype)) enctype = cbdata->enctype; /* Grab encentity if it's there and we have an enctype. */ if (enctype && cbdata->enc_entity && *(cbdata->enc_entity)) entity = cbdata->enc_entity; #if 0 fprintf (stderr, "[submit_form_callback] method is '%s'\n", method); fprintf (stderr, "[submit_form_callback] enctype is '%s'\n", enctype); #endif if (strcasecmp (method, "POST") == 0) do_post_urlencoded = 1; len += strlen (url); query = (char *)malloc (sizeof (char) * len); if (!do_post_urlencoded) { strcpy (query, url); /* Clip out anchor. */ strtok (query, "#"); /* Clip out old query. */ strtok (query, "?"); if (query[strlen(query)-1] != '?') { strcat (query, "?"); } } else { /* Get ready for cats below. */ query[0] = 0; } /* Take isindex possibility into account. */ if (cbdata->attribute_count == 1 && strcmp (cbdata->attribute_names[0], "isindex") == 0) { if (cbdata->attribute_values[0]) { char *c = mo_escape_part (cbdata->attribute_values[0]); strcat (query, c); free (c); } } else { for (i = 0; i < cbdata->attribute_count; i++) { /* For all but the first, lead off with an ampersand. */ if (i != 0) strcat (query, "&"); /* Rack 'em up. */ if (cbdata->attribute_names[i]) { char *c = mo_escape_part (cbdata->attribute_names[i]); strcat (query, c); free (c); strcat (query, "="); if (cbdata->attribute_values[i]) { char *c = mo_escape_part (cbdata->attribute_values[i]); strcat (query, c); free (c); } } } } if (do_post_urlencoded) { mo_post_access_document (win, url, "application/x-www-form-urlencoded", query); } else { mo_access_document (win, query); } free (query); return; } /* This only gets called by the widget in the middle of set_text. */ static XmxCallback (link_callback) { mo_window *win = current_win; LinkInfo *linfo = (LinkInfo *)call_data; extern char *url_base_override; if (!linfo) return; /* Free -nothing- in linfo. */ if (linfo->href) { url_base_override = strdup (linfo->href); /* Set the URL cache variables to the correct values NOW. */ cached_url = mo_url_canonicalize (url_base_override, ""); win->cached_url = cached_url; } if (linfo->role) { /* Do nothing with the role crap yet. */ } return; } /* Exported to libwww2. */ void mo_gui_notify_progress (char *msg) { XmString xmstr; mo_window *win = current_win; if (!Rdata.track_pointer_motion) return; if (!msg) msg = " "; xmstr = XmStringCreateSimple (msg); XtVaSetValues (win->tracker_label, XmNlabelString, (XtArgVal)xmstr, NULL); XmStringFree (xmstr); XmUpdateDisplay (win->base); return; } void UpdateButtons (Widget w) { XEvent event; Display * display = XtDisplay(w); XSync (display, 0); while (XCheckMaskEvent(display, (ButtonPressMask|ButtonReleaseMask), &event)) { XButtonEvent *bevent = &(event.xbutton); if (bevent->window == XtWindow (current_win->logo)) { XtDispatchEvent(&event); } /* else just throw it away... users shouldn't be pressing buttons in the middle of transfers anyway... */ } } static int logo_count = 0; int mo_gui_check_icon (int twirl) { mo_window *win = current_win; int ret; if (twirl && Rdata.twirling_transfer_icon) { { if (IconPix[logo_count] != (Pixmap)NULL) { AnimatePixmapInWidget (win->logo, IconPix[logo_count]); } logo_count++; if (logo_count >= NUMBER_OF_FRAMES) logo_count = 0; } } UpdateButtons (win->base); XmUpdateDisplay (win->base); ret = connect_interrupt; connect_interrupt = 0; return(ret); } void mo_gui_clear_icon (void) { connect_interrupt = 0; } void mo_gui_done_with_icon (void) { mo_window *win = current_win; XClearArea(XtDisplay(win->logo), XtWindow(win->logo), 0, 0, 0, 0, True); logo_count = 0; } static XmxEventHandler (mo_view_keyrelease_handler) { mo_window *win = mo_fetch_window_by_id (XmxExtractUniqid ((int)client_data)); int _bufsize = 3, _count; char _buffer[3]; KeySym _key; XComposeStatus _cs; if (!win) return; /* Go get ascii translation. */ _count = XLookupString (&(event->xkey), _buffer, _bufsize, &_key, &_cs); /* Control */ if (_key == XK_Control_L || _key == XK_Control_R) { cntlflag = 0; } } /**************************************************************************** * name: mo_view_keypress_handler (PRIVATE) * purpose: This is the event handler for the HTML widget and associated * scrolled window; it handles keypress events and enables the * hotkey support. * inputs: * - as per XmxEventHandler * returns: * nothing * remarks: * Hotkeys and their actions are currently hardcoded. This is probably * a bad idea, and Eric hates it. ****************************************************************************/ static XmxEventHandler (mo_view_keypress_handler) { /* char url[128]; /* buffer for news io */ mo_window *win = mo_fetch_window_by_id (XmxExtractUniqid ((int)client_data)); int _bufsize = 3, _count; char _buffer[3]; KeySym _key; XComposeStatus _cs; if (!win) return; /* Go get ascii translation. */ _count = XLookupString (&(event->xkey), _buffer, _bufsize, &_key, &_cs); /* Insert trailing Nil. */ _buffer[_count] = '\0'; /* Page up. */ if ((Rdata.catch_prior_and_next && _key == XK_Prior) || _key == XK_KP_Prior || _key == XK_BackSpace || _key == XK_Delete) { Widget sb; String params[1]; params[0] = "0"; XtVaGetValues (win->scrolled_win, XmNverticalScrollBar, (long)(&sb), NULL); if (sb && XtIsManaged (sb)) { XtCallActionProc (sb, "PageUpOrLeft", event, params, 1); } } /* Page down. */ if ((Rdata.catch_prior_and_next && _key == XK_Next) || _key == XK_KP_Next || _key == XK_Return || _key == XK_Tab || _key == XK_space) { Widget sb; String params[1]; params[0] = "0"; XtVaGetValues (win->scrolled_win, XmNverticalScrollBar, (long)(&sb), NULL); if (sb && XtIsManaged (sb)) { XtCallActionProc (sb, "PageDownOrRight", event, params, 1); } } if (_key == XK_Down || _key == XK_KP_Down) { Widget sb; String params[1]; params[0] = "0"; XtVaGetValues (win->scrolled_win, XmNverticalScrollBar, (long)(&sb), NULL); if (sb && XtIsManaged (sb)) { XtCallActionProc (sb, "IncrementDownOrRight", event, params, 1); } } if (_key == XK_Right || _key == XK_KP_Right) { Widget sb; String params[1]; params[0] = "1"; XtVaGetValues (win->scrolled_win, XmNhorizontalScrollBar, (long)(&sb), NULL); if (sb && XtIsManaged (sb)) { XtCallActionProc (sb, "IncrementDownOrRight", event, params, 1); } } if (_key == XK_Up || _key == XK_KP_Up) { Widget sb; String params[1]; params[0] = "0"; XtVaGetValues (win->scrolled_win, XmNverticalScrollBar, (long)(&sb), NULL); if (sb && XtIsManaged (sb)) { XtCallActionProc (sb, "IncrementUpOrLeft", event, params, 1); } } if (_key == XK_Left || _key == XK_KP_Left) { Widget sb; String params[1]; params[0] = "1"; XtVaGetValues (win->scrolled_win, XmNhorizontalScrollBar, (long)(&sb), NULL); if (sb && XtIsManaged (sb)) { XtCallActionProc (sb, "IncrementUpOrLeft", event, params, 1); } } if (!(Rdata.kiosk || Rdata.kioskNoExit)) { /* News Hotkeys ... < > = prev/next thread , . = prev/next message */ if(_key == XK_less) /* <<<<<<<<< HERE! */ gui_news_prevt(win); if(_key == XK_greater) gui_news_nextt(win); if(_key == XK_comma) gui_news_prev(win); if(_key == XK_period) gui_news_next(win); /* Annotate. */ if (_key == XK_A || _key == XK_a) mo_post_annotate_win (win, 0, 0, NULL, NULL, NULL, NULL); /* Back. */ if (_key == XK_B || _key == XK_b) mo_back_node (win); /* Clone. */ if (_key == XK_C || _key == XK_c) mo_duplicate_window (win); /* Document source. */ if (_key == XK_D || _key == XK_d) mo_post_source_window (win); /* Edit copy window */ if (_key == XK_E || _key == XK_e) mo_edit_source (win); /* Forward. */ if (_key == XK_F || _key == XK_f) mo_forward_node (win); /* History window. */ if (_key == XK_H) mo_post_hotlist_win (win); if (_key == XK_h) mo_post_history_win (win); /* Open local. */ if (_key == XK_L || _key == XK_l) mo_post_open_local_window (win); /* Mail to. */ if (_key == XK_M || _key == XK_m) mo_post_mail_window (win); /* New window. */ if (_key == XK_N || _key == XK_n) mo_open_another_window (win, home_document, NULL, NULL); /* Open. */ if (_key == XK_O || _key == XK_o) mo_post_open_window (win); /* Print. */ if (_key == XK_P || _key == XK_p) mo_post_print_window (win); /* Reload. */ if (_key == XK_r) mo_reload_window_text (win, 0); /* Refresh. */ if (_key == XK_R) mo_refresh_window_text (win); /* Search. */ if (_key == XK_S || _key == XK_s) mo_post_search_window (win); /* Control */ if (_key == XK_Control_L || _key == XK_Control_R) { cntlflag = 1; } } if (!Rdata.kioskNoExit) { if (_key == XK_Escape) mo_delete_window (win); } return; } /**************************************************************************** * name: mo_fill_window (PRIVATE) * purpose: Take a new (empty) mo_window struct and fill in all the * GUI elements. * inputs: * - mo_window *win: The window. * returns: * mo_succeed * remarks: * ****************************************************************************/ static mo_status mo_fill_window (mo_window *win) { Widget form; /* Widget frame, rc;*/ Widget title_label, url_label; form = XmxMakeForm (win->base); /* Create the menubar. */ win->menubar = mo_make_document_view_menubar (form); XmxRSetToggleState (win->menubar, win->font_size, XmxSet); #ifdef L10N XmxRSetToggleState (win->menubar, win->bidirectionality, XmxSet); #endif /* L10N */ /* setup news default states */ XmxRSetToggleState (win->menubar, mo_news_fmt0, XmxNotSet); XmxRSetToggleState (win->menubar, mo_news_fmt1, XmxSet); #ifdef NEWS_SELECT /* setup news body default states */ XmxRSetToggleState (win->menubar, mo_news_body_fmt0, XmxNotSet); XmxRSetToggleState (win->menubar, mo_news_body_fmt1, XmxSet); /* setup news header default states */ XmxRSetToggleState (win->menubar, mo_news_header_fmt0, XmxNotSet); XmxRSetToggleState (win->menubar, mo_news_header_fmt1, XmxSet); #endif /* NEWS_SELECT */ win->binary_transfer = 0; XmxRSetToggleState (win->menubar, mo_binary_transfer, (win->binary_transfer ? XmxSet : XmxNotSet)); win->delay_image_loads = Rdata.delay_image_loads; XmxRSetToggleState (win->menubar, mo_delay_image_loads, (win->delay_image_loads ? XmxSet : XmxNotSet)); XmxRSetSensitive (win->menubar, mo_expand_images_current, win->delay_image_loads ? XmxSensitive : XmxNotSensitive); XmxRSetSensitive (win->menubar, mo_annotate, XmxSensitive); XmxRSetSensitive (win->menubar, mo_annotate_edit, XmxNotSensitive); XmxRSetSensitive (win->menubar, mo_annotate_delete, XmxNotSensitive); #ifdef HAVE_AUDIO_ANNOTATIONS /* If we're not audio capable, don't provide the menubar entry. */ if (!mo_audio_capable ()) XmxRSetSensitive (win->menubar, mo_audio_annotate, XmxNotSensitive); #endif #ifdef HAVE_DTM mo_set_dtm_menubar_functions (win); #endif title_label = XmxMakeLabel (form, "Title:"); XmxSetArg (XmNcursorPositionVisible, False); XmxSetArg (XmNeditable, False); win->title_text = XmxMakeTextField (form); if (!(Rdata.kiosk || Rdata.kioskNoExit)) { url_label = XmxMakeLabel (form, "URL:"); XmxSetArg (XmNcursorPositionVisible, True); XmxSetArg (XmNeditable, True); win->url_text = XmxMakeTextField (form); XmxAddCallbackToText (win->url_text, url_field_cb, 0); } else { url_label = XmxMakeLabel (form, "URL:"); XtUnmanageChild(url_label); XmxSetArg (XmNcursorPositionVisible, False); XmxSetArg (XmNeditable, False); win->url_text = XmxMakeTextField (form); XtUnmanageChild(win->url_text); } win->logo = XmxMakeNamedPushButton (form, NULL, "logo", icon_pressed_cb, 0); xmosaic_right_pix = XmxCreatePixmapFromBitmap (win->logo, xmosaic_right_bits, xmosaic_right_width, xmosaic_right_height); xmosaic_left_pix = XmxCreatePixmapFromBitmap (win->logo, xmosaic_left_bits, xmosaic_left_width, xmosaic_left_height); xmosaic_up_pix = XmxCreatePixmapFromBitmap (win->logo, xmosaic_bits, xmosaic_width, xmosaic_height); xmosaic_down_pix = XmxCreatePixmapFromBitmap (win->logo, xmosaic_down_bits, xmosaic_down_width, xmosaic_down_height); if (IconsMade) { XmxApplyPixmapToLabelWidget (win->logo, IconPix[0]); } else { XmxApplyPixmapToLabelWidget (win->logo, xmosaic_up_pix); } XmxSetArg (WbNtext, (int)NULL); win->last_width = 0; XmxSetArg (XmNresizePolicy, XmRESIZE_ANY); XmxSetArg (WbNpreviouslyVisitedTestFunction, (long)anchor_visited_predicate); XmxSetArg (WbNpointerMotionCallback, (long)pointer_motion_callback); XmxSetArg (WbNfancySelections, win->pretty ? True : False); XmxSetArg (WbNdelayImageLoads, win->delay_image_loads ? True : False); XmxSetArg (XmNshadowThickness, 2); #ifdef DISABLE_TABLE XmxSetArg (WbNdisableTable, win->disable_table ? True : False); #endif /* DISABLE_TABLE */ win->scrolled_win = XtCreateWidget ("view", htmlWidgetClass, form, Xmx_wargs, Xmx_n); XtManageChild (win->scrolled_win); mo_register_image_resolution_function (win); XmxAddCallback (win->scrolled_win, WbNanchorCallback, anchor_cb, 0); XmxAddCallback (win->scrolled_win, WbNlinkCallback, link_callback, 0); XmxAddCallback (win->scrolled_win, WbNsubmitFormCallback, submit_form_callback, 0); Xmx_n = 0; XmxSetArg (WbNview, (long)(&win->view)); XtGetValues (win->scrolled_win, Xmx_wargs, Xmx_n); XmxAddEventHandler (win->view, KeyPressMask, mo_view_keypress_handler, 0); XmxAddEventHandler (win->view, KeyReleaseMask, mo_view_keyrelease_handler, 0); XmxSetArg (XmNresizePolicy, XmRESIZE_ANY); XmxSetArg (XmNresizable, True); win->bottom_form = XmxMakeForm (form); /* Children of win->bottom_form. */ { if (Rdata.track_pointer_motion) { XmxSetArg (XmNalignment, XmALIGNMENT_BEGINNING); win->tracker_label = XmxMakeLabel (win->bottom_form, " "); } XmxSetArg (XmNmarginWidth, 0); XmxSetArg (XmNmarginHeight, 0); XmxSetArg (XmNpacking, XmPACK_TIGHT); XmxSetArg (XmNresizable, True); win->button_rc = XmxMakeHorizontalRowColumn (win->bottom_form); /* Children of win->button_rc. */ { win->back_button = XmxMakePushButton (win->button_rc, "Back", menubar_cb, mo_back); win->forward_button = XmxMakePushButton (win->button_rc, "Forward", menubar_cb, mo_forward); win->home_button = XmxMakePushButton (win->button_rc, "Home", menubar_cb, mo_home_document); if (Rdata.button_icons) { back_pix = XmxCreatePixmapFromBitmap (win->back_button, back_bits, back_width, back_height); XmxApplyPixmapToLabelWidget (win->back_button, back_pix); dis_back_pix = XmxCreatePixmapFromBitmap (win->back_button, dis_back_bits, dis_back_width, dis_back_height); XmxApplyPixmapToLabelWidgetInsensitive (win->back_button, dis_back_pix); forward_pix = XmxCreatePixmapFromBitmap (win->forward_button, forward_bits, forward_width, forward_height); XmxApplyPixmapToLabelWidget (win->forward_button, forward_pix); dis_forward_pix = XmxCreatePixmapFromBitmap (win->forward_button, dis_forward_bits, dis_forward_width, dis_forward_height); XmxApplyPixmapToLabelWidgetInsensitive (win->forward_button, dis_forward_pix); home_pix = XmxCreatePixmapFromBitmap (win->home_button, home_bits, home_width, home_height); XmxApplyPixmapToLabelWidget (win->home_button, home_pix); } if (!(Rdata.kiosk || Rdata.kioskNoExit)) { if (!Rdata.simple_interface) { win->reload_button = XmxMakePushButton (win->button_rc, "Reload", menubar_cb, mo_reload_document); if (Rdata.button_icons) { reload_pix = XmxCreatePixmapFromBitmap (win->reload_button, reload_bits, reload_width, reload_height); XmxApplyPixmapToLabelWidget (win->reload_button, reload_pix); } } if (!Rdata.simple_interface) { win->open_button = XmxMakePushButton (win->button_rc, "Open...", menubar_cb, mo_open_document); if (Rdata.button_icons) { open_pix = XmxCreatePixmapFromBitmap (win->open_button, open_bits, open_width, open_height); XmxApplyPixmapToLabelWidget (win->open_button, open_pix); } } win->save_button = XmxMakePushButton (win->button_rc, "Save As...", menubar_cb, mo_save_document); win->clone_button = XmxMakePushButton (win->button_rc, "Clone", menubar_cb, mo_clone_window); if (Rdata.button_icons) { save_pix = XmxCreatePixmapFromBitmap (win->save_button, save_bits, save_width, save_height); XmxApplyPixmapToLabelWidget (win->save_button, save_pix); clone_pix = XmxCreatePixmapFromBitmap (win->clone_button, clone_bits, clone_width, clone_height); XmxApplyPixmapToLabelWidget (win->clone_button, clone_pix); } if (!Rdata.simple_interface) { win->new_button = XmxMakePushButton (win->button_rc, "New Window", menubar_cb, mo_new_window); if (Rdata.button_icons) { new_pix = XmxCreatePixmapFromBitmap (win->new_button, new_bits, new_width, new_height); XmxApplyPixmapToLabelWidget (win->new_button, new_pix); } } } if (!Rdata.kioskNoExit) { win->close_button = XmxMakePushButton (win->button_rc, "Close Window", menubar_cb, mo_close_window); if (Rdata.button_icons) { close_pix = XmxCreatePixmapFromBitmap (win->close_button, close_bits, close_width, close_height); XmxApplyPixmapToLabelWidget (win->close_button, close_pix); } } } if (Rdata.track_pointer_motion) { if (Rdata.button_bar) { XmxSetOffsets (win->button_rc, 2, 5, 10, 10); XmxSetConstraints (win->button_rc, XmATTACH_FORM, XmATTACH_NONE, XmATTACH_FORM, XmATTACH_NONE, NULL, NULL, NULL, NULL); XmxSetOffsets (win->tracker_label, 0, 0, 10, 10); XmxSetConstraints (win->tracker_label, XmATTACH_WIDGET, XmATTACH_FORM, XmATTACH_FORM, XmATTACH_FORM, win->button_rc, NULL, NULL, NULL); } else { XmxSetOffsets (win->tracker_label, 0, 0, 10, 10); XmxSetConstraints (win->tracker_label, XmATTACH_FORM, XmATTACH_NONE, XmATTACH_FORM, XmATTACH_FORM, NULL, NULL, NULL, NULL); XmxSetOffsets (win->button_rc, 2, 5, 10, 10); XmxSetConstraints (win->button_rc, XmATTACH_WIDGET, XmATTACH_FORM, XmATTACH_FORM, XmATTACH_FORM, win->tracker_label, NULL, NULL, NULL); } } else { XmxSetOffsets (win->button_rc, 5, 5, 10, 10); XmxSetConstraints (win->button_rc, XmATTACH_FORM, XmATTACH_FORM, XmATTACH_FORM, XmATTACH_FORM, NULL, NULL, NULL, NULL); } } /* Constraints for form. */ XmxSetConstraints (win->menubar->base, XmATTACH_FORM, XmATTACH_NONE, XmATTACH_FORM, XmATTACH_FORM, NULL, NULL, NULL, NULL); /* Top to menubar, bottom to nothing, left to form, right to nothing. */ XmxSetOffsets (title_label, 13, 0, 10, 0); XmxSetConstraints (title_label, XmATTACH_WIDGET, XmATTACH_NONE, XmATTACH_FORM, XmATTACH_NONE, win->menubar->base, NULL, NULL, NULL); /* Top to menubar, bottom to nothing, Left to title label, right to logo. */ XmxSetOffsets (win->title_text, 9, 1, 9, 8); XmxSetConstraints (win->title_text, XmATTACH_WIDGET, XmATTACH_NONE, XmATTACH_WIDGET, XmATTACH_WIDGET, win->menubar->base, NULL, title_label, win->logo); /* Top to title text, bottom to nothing, left to form, right to nothing. */ XmxSetOffsets (url_label, 16, 0, 10, 0); XmxSetConstraints (url_label, XmATTACH_WIDGET, XmATTACH_NONE, XmATTACH_FORM, XmATTACH_NONE, win->title_text, NULL, NULL, NULL); /* Top to title text, bottom to nothing, Left to url label, right to logo. */ XmxSetOffsets (win->url_text, 12, 1, 8, 8); XmxSetConstraints (win->url_text, XmATTACH_WIDGET, XmATTACH_NONE, XmATTACH_WIDGET, XmATTACH_WIDGET, win->title_text, NULL, url_label, win->logo); /* Top to menubar, bottom to nothing, left to nothing, right to form. */ XmxSetOffsets (win->logo, 8, 0, 0, 7); XmxSetConstraints (win->logo, XmATTACH_WIDGET, XmATTACH_NONE, XmATTACH_NONE, XmATTACH_FORM, win->menubar->base, NULL, NULL, NULL); if (Rdata.button_bar) { /* Top to logo, bottom to nothing, Left to form, right to nothing. */ XmxSetOffsets (win->bottom_form, 10, 2, 2, 2); XmxSetConstraints (win->bottom_form, XmATTACH_WIDGET, XmATTACH_NONE, XmATTACH_FORM, XmATTACH_NONE, win->logo, NULL, NULL, NULL); /* Top to button bar, bottom to bottom form, Left to form, right to form. */ XmxSetOffsets (win->scrolled_win, 7, 2, 2, 2); XmxSetConstraints (win->scrolled_win, XmATTACH_WIDGET, XmATTACH_FORM, XmATTACH_FORM, XmATTACH_FORM, win->bottom_form, NULL, NULL, NULL); } else { /* Top to logo, bottom to bottom form, Left to form, right to form. */ XmxSetOffsets (win->scrolled_win, 7, 2, 7, 7); XmxSetConstraints (win->scrolled_win, XmATTACH_WIDGET, XmATTACH_WIDGET, XmATTACH_FORM, XmATTACH_FORM, win->logo, win->bottom_form, NULL, NULL); XmxSetOffsets (win->bottom_form, 10, 2, 2, 2); XmxSetConstraints (win->bottom_form, XmATTACH_NONE, XmATTACH_FORM, XmATTACH_FORM, XmATTACH_FORM, NULL, NULL, NULL, NULL); } /* Can't go back or forward if we haven't gone anywhere yet... */ mo_back_impossible (win); mo_forward_impossible (win); return mo_succeed; } /**************************************************************************** * name: mo_delete_window * purpose: Shut down a window. * inputs: * - mo_window *win: The window. * returns: * mo_succeed * remarks: * This can be called, among other places, from the WM_DELETE_WINDOW * handler. By the time we get here, we must assume the window is already * in the middle of being shut down. * We must explicitly close every dialog that be open as a child of * the window, because window managers too stupid to do that themselves * will otherwise allow them to stay up. ****************************************************************************/ #define POPDOWN(x) \ if (win->x) XtUnmanageChild (win->x) mo_status mo_delete_window (mo_window *win) { mo_node *node; if (!win) return mo_fail; if ((Rdata.lastwindow_confirm) && (wincount <= 1)) { mo_post_exitbox(win); return mo_fail; } node = win->history; POPDOWN (source_win); POPDOWN (save_win); POPDOWN (savebinary_win); POPDOWN (open_win); POPDOWN (mail_win); POPDOWN (mailhist_win); POPDOWN (print_win); POPDOWN (history_win); POPDOWN (open_local_win); if (win->hotlist_win) XtDestroyWidget(win->hotlist_win); POPDOWN (whine_win); POPDOWN (annotate_win); POPDOWN (search_win); POPDOWN (searchindex_win); POPDOWN (mailto_win); POPDOWN (news_win); #ifdef HAVE_DTM POPDOWN (dtmout_win); #endif #ifdef HAVE_AUDIO_ANNOTATIONS POPDOWN (audio_annotate_win); #endif #ifdef L10N POPDOWN (acpt_langs_win); #endif /* L10N */ XtPopdown (win->base); /* Free up some of the HTML Widget's state */ HTMLFreeImageInfo (win->scrolled_win); while (node) { mo_node *tofree = node; node = node->next; mo_free_node_data (tofree); free (tofree); } free (win->search_start); free (win->search_end); /* This will free the win structure (but none of its elements individually) and exit if this is the last window in the list. */ mo_remove_window_from_list (win); /* Go get another current_win. */ mo_set_current_cached_win (mo_next_window (NULL)); return mo_succeed; } int mo_get_font_size_from_res(char *userfontstr,int *fontfamily) { char *lowerfontstr = strdup(userfontstr); int x; for (x=0; xid = XmxMakeNewUniqid (); XmxSetUniqid (win->id); win->base = base; win->source_win = 0; win->save_win = 0; win->savebinary_win = 0; win->open_win = win->open_text = win->open_local_win = 0; win->mail_win = win->mailhot_win = win->edithot_win = win->mailhist_win = win->inserthot_win = 0; win->print_win = 0; win->history_win = win->history_list = 0; win->hotlist_win = win->hotlist_list = 0; win->whine_win = win->whine_text = 0; win->mailto_win = win->mailto_text = 0; win->mailto_fsb_win = 0; win->news_win = 0; win->news_fsb_win = 0; win->annotate_win = 0; win->search_win = win->search_win_text = 0; win->searchindex_win = win->searchindex_win_label = win->searchindex_win_text = 0; win->cci_win = win->cci_win_text = (Widget) 0; win->cci_accept_toggle = win->cci_off_toggle = (Widget) 0; #ifdef HAVE_DTM win->dtmout_win = win->dtmout_text = 0; #endif #ifdef HAVE_AUDIO_ANNOTATIONS win->audio_annotate_win = 0; #endif #ifdef L10N win->acpt_langs_win = win->acpt_langs_text = 0; #endif /* L10N */ win->history = NULL; win->current_node = 0; win->reloading = 0; win->source_text = 0; win->format_optmenu = 0; win->save_format = 0; if (!parent) { #ifdef L10N if (!Rdata.simple_interface) { win->font_size = charset2font_size(Rdata.default_charset); win->font_family = 0; } else { #endif /* L10N */ win->font_size = mo_get_font_size_from_res(Rdata.default_font_choice, &(win->font_family)); /*win->font_size = mo_regular_fonts;*/ /*win->font_family = 0;*/ #ifdef L10N } #endif /* L10N */ } else { win->font_size = parent->font_size; win->font_family = parent->font_family; } #ifdef L10N win->bidirectionality = default_bidir2bidir(Rdata.default_bidirectionality); win->accept_languages = Rdata.default_accept_languages; win->annotate_author = win->annotate_title = win->annotate_text = 0; #endif /* L10N */ #ifdef DISABLE_TABLE win->disable_table = Rdata.default_disable_table; #endif /* DISABLE_TABLE */ win->underlines_snarfed = 0; if (!parent) win->underlines_state = mo_default_underlines; else win->underlines_state = parent->underlines_state; win->pretty = Rdata.default_fancy_selections; win->mail_format = 0; #ifdef HAVE_AUDIO_ANNOTATIONS win->record_fnam = 0; win->record_pid = 0; #endif win->print_text = 0; win->print_format = 0; win->target_anchor = 0; /* Create search_start and search_end. */ win->search_start = (void *)malloc (sizeof (ElementRef)); win->search_end = (void *)malloc (sizeof (ElementRef)); #ifdef ISINDEX /* We don't know yet. */ win->keyword_search_possible = -1; #endif /* Install all the GUI bits & pieces. */ mo_fill_window (win); /* Register win with internal window list. */ mo_add_window_to_list (win); /* Pop the window up. */ XtPopup (win->base, XtGrabNone); XFlush (dsp); XSync (dsp, False); if (!IconsMade) { int stat = False; if (Rdata.twirl_icons_index[0] != '\0') stat = MakeDynamicAnimationPixmaps(win->logo, Rdata.twirl_icons_index); if (stat == False) MakeAnimationPixmaps(win->logo); IconsMade = 1; XmxApplyPixmapToLabelWidget (win->logo, IconPix[0]); logo_count = 0; } /* Set the font size. */ #ifdef L10N mo_set_fonts (win, win->font_size); mo_set_bidirectionality (win, win->bidirectionality); #ifdef MOTIF_I18N if (Rdata.half_sized_textfield) XmxSetArg(WbNhalfsizedTextfield, True); else XmxSetArg(WbNhalfsizedTextfield, False); XmxSetValues(win->scrolled_win); #endif /* MOTIF_I18N */ #else /* L10N */ if (win->font_size != mo_regular_fonts) mo_set_fonts (win, win->font_size); #endif /* L10N */ /* Set the underline state. */ mo_set_underlines (win, win->underlines_state); /* Set the fancy selections toggle to the starting value. */ mo_set_fancy_selections_toggle (win); #ifdef DISABLE_TABLE /* Set the disable table toggle to the starting value. */ mo_set_disable_table_toggle (win); #endif /* DISABLE_TABLE */ return win; } /**************************************************************************** * name: delete_cb (PRIVATE) * purpose: Callback for the WM_DELETE_WINDOW protocol. * inputs: * - as per XmxCallback * returns: * nothing * remarks: * By the time we get called here, the window has already been popped * down. Just call mo_delete_window to clean up. ****************************************************************************/ static XmxCallback (delete_cb) { mo_window *win = (mo_window *)client_data; mo_delete_window (win); return; } /**************************************************************************** * name: mo_make_window (PRIVATE) * purpose: Make a new window from scratch. * inputs: * - Widget parent: Parent for the new window shell. * - mo_window *parentw: Parent window, if one exists (may be NULL). * returns: * The new window (mo_window *). * remarks: * The 'parent window' parentw is the window being cloned, or the * window in which the 'new window' command was triggered, etc. * Some GUI properties are inherited from it, if it exists (fonts, * anchor appearance, etc.). ****************************************************************************/ static mo_window *mo_make_window (Widget parent, mo_window *parentw) { Widget base; mo_window *win; Atom WM_DELETE_WINDOW; XmxSetArg (XmNtitle, (long)"NCSA Mosaic: Document View (L10N+)"); XmxSetArg (XmNiconName, (long)"Mosaic"); XmxSetArg (XmNallowShellResize, False); base = XtCreatePopupShell ("shell", topLevelShellWidgetClass, toplevel, Xmx_wargs, Xmx_n); Xmx_n = 0; #ifdef EDITRES_SUPPORT XtAddEventHandler(base, (EventMask) 0, TRUE, (XtEventHandler) _XEditResCheckMessages, NULL); #endif win = mo_open_window_internal (base, parentw); WM_DELETE_WINDOW = XmInternAtom(dsp, "WM_DELETE_WINDOW", False); XmAddWMProtocolCallback(base, WM_DELETE_WINDOW, delete_cb, (XtPointer)win); return win; } /**************************************************************************** * name: mo_open_another_window_internal (PRIVATE) * purpose: Open a new window from an existing window. * inputs: * - mo_window *win: The old window. * returns: * The new window (mo_window *). * remarks: * This routine handles (optional) autoplace of new windows. ****************************************************************************/ static mo_window *mo_open_another_window_internal (mo_window *win) { Dimension oldx, oldy; Dimension scrx = WidthOfScreen (XtScreen (win->base)); Dimension scry = HeightOfScreen (XtScreen (win->base)); Dimension x, y; Dimension width, height; mo_window *newwin; XtVaGetValues (win->base, XmNx, &oldx, XmNy, &oldy, XmNwidth, &width, XmNheight, &height, NULL); /* Ideally we open down and over 40 pixels... is this possible? */ /* If not, deal with it... */ /* Bug fix, thanks to Ken Shores */ /* the original test did not handle the case where the old window * was exactly the same size as the screen. Also, it used a looping * algorithm which would infinite loop under such a case. */ if ((oldx+width) > (scrx-40)) x = (scrx - (oldx + width)); else x = oldx + 40; if ((oldy+height) > (scry-40)) y = (scry - (oldy + height)); else y = oldy + 40; if (x > scrx) x = 0; if (y > scry) y = 0; XmxSetArg (XmNdefaultPosition, False); if (Rdata.auto_place_windows) { char geom[20]; sprintf (geom, "+%d+%d", x, y); XmxSetArg (XmNgeometry, (long)geom); } XmxSetArg (XmNwidth, width); XmxSetArg (XmNheight, height); newwin = mo_make_window (toplevel, win); mo_set_current_cached_win (newwin); return newwin; } /**************************************************************************** * name: mo_open_window * purpose: Open a new window to view a given URL. * inputs: * - Widget parent: The parent Widget for the new window's shell. * - char *url: The URL to view in the new window. * - mo_window *parentw: The (optional) parent window of the new window. * returns: * The new window. * remarks: * ****************************************************************************/ mo_window *mo_open_window (Widget parent, char *url, mo_window *parentw) { mo_window *win; win = mo_make_window (parent, parentw); mo_set_current_cached_win (win); mo_load_window_text (win, url, NULL); return win; } /**************************************************************************** * name: mo_duplicate_window * purpose: Clone a existing window as intelligently as possible. * inputs: * - mo_window *win: The existing window. * returns: * The new window. * remarks: * ****************************************************************************/ mo_window *mo_duplicate_window (mo_window *win) { mo_window *neww = mo_open_another_window_internal (win); mo_duplicate_window_text (win, neww); return neww; } /**************************************************************************** * name: mo_open_another_window * purpose: Open another window to view a given URL, unless the URL * indicates that it's pointless to do so * inputs: * - mo_window *win: The existing window. * - char *url: The URL to view in the new window. * - char *ref: The reference (hyperlink text contents) for this * URL; can be NULL. * - char *target_anchor: The target anchor to view open opening the * window, if any. * returns: * The new window. * remarks: * ****************************************************************************/ mo_window *mo_open_another_window (mo_window *win, char *url, char *ref, char *target_anchor) { mo_window *neww; /* Check for reference to telnet. Never open another window if reference to telnet exists; instead, call mo_load_window_text, which knows how to manage current window's access to telnet. */ if (!strncmp (url, "telnet:", 7) || !strncmp (url, "tn3270:", 7) || !strncmp (url, "rlogin:", 7)) { mo_load_window_text (win, url, NULL); return NULL; } mo_busy (); neww = mo_open_another_window_internal (win); /* Set it here; hope it gets handled in mo_load_window_text_first (it probably won't, now. */ neww->target_anchor = target_anchor; mo_load_window_text (neww, url, ref); return neww; } /* ------------------------------------------------------------------------ */ char **gargv; int gargc; #ifndef VMS extern MO_SIGHANDLER_RETURNTYPE ProcessExternalDirective (MO_SIGHANDLER_ARGS); #endif #ifdef HAVE_DTM static XmxCallback (blip) { mo_dtm_poll_and_read (); XtAppAddTimeOut (app_context, 100, (XtTimerCallbackProc)blip, (XtPointer)True); return; } #endif #ifdef HAVE_DTM mo_status mo_register_dtm_blip (void) { /* Set a timer that will poll DTM regularly. */ XtAppAddTimeOut (app_context, 100, (XtTimerCallbackProc)blip, (XtPointer)True); return mo_succeed; } #endif /**************************************************************************** * name: fire_er_up (PRIVATE) * purpose: Callback from timer that actually starts up the application, * i.e., opens the first window. * inputs: * - as per XmxCallback * returns: * Nothing. * remarks: * This routine figures out what the home document should be * and then calls mo_open_window(). ****************************************************************************/ static XmxCallback (fire_er_up) { char *home_opt; mo_window *win; /* Pick up default or overridden value out of X resources. */ home_document = Rdata.home_document; /* if this is a prerelease, change the default home page to the prelease warning page, but only if the user uses the default NCSA home page */ #ifdef PRERELEASE if (strcmp(Rdata.home_document, HOME_PAGE_DEFAULT)==0) home_document = strdup ("http://www.ncsa.uiuc.edu/SDG/Software/Mosaic/PrereleaseWarningPage.html"); #endif /* Value of environment variable WWW_HOME overrides that. */ if ((home_opt = getenv ("WWW_HOME")) != NULL) home_document = home_opt; /* Value of argv[1], if it exists, sets startup_document. (All other command-line flags will have been picked up by the X resource mechanism.) */ if (gargc > 1 && gargv[1] && *gargv[1]) startup_document = gargv[1]; /* Check for proper home document URL construction. */ if (!strstr (home_document, ":")) home_document = mo_url_canonicalize_local (home_document); if (startup_document && !strstr (startup_document, ":")) startup_document = mo_url_canonicalize_local (startup_document); XmxSetArg (XmNwidth, Rdata.default_width); XmxSetArg (XmNheight, Rdata.default_height); if (Rdata.initial_window_iconic) XmxSetArg (XmNiconic, True); win = mo_open_window (toplevel, startup_document ? startup_document : home_document, NULL); /* Check the Comment Card */ CommentCard(win); return; } /**************************************************************************** * name: mo_open_initial_window * purpose: This routine is called when we know we want to open the * initial Document View window. * inputs: * none * returns: * mo_succeed * remarks: This routine is simply a stub that sets a timeout that * calls fire_er_up() after 10 milliseconds, which does the * actual work. ****************************************************************************/ mo_status mo_open_initial_window (void) { /* Set a timer that will actually cause the window to open. */ XtAppAddTimeOut (app_context, 10, (XtTimerCallbackProc)fire_er_up, (XtPointer)True); return mo_succeed; } /**************************************************************************** * name: mo_error_handler (PRIVATE) * purpose: Handle X errors. * inputs: * - Display *dsp: The X display. * - XErrorEvent *event: The error event to handle. * returns: * 0, if it doesn't force an exit. * remarks: * The main reason for this handler is to keep the application * from crashing on BadAccess errors during calls to XFreeColors(). ****************************************************************************/ static int mo_error_handler (Display *dsp, XErrorEvent *event) { char buf[128]; XUngrabPointer (dsp, CurrentTime); /* in case error occurred in Grab */ /* BadAlloc errors (on a XCreatePixmap() call) and BadAccess errors on XFreeColors are 'ignoreable' errors */ if (event->error_code == BadAlloc || (event->error_code == BadAccess && event->request_code == 88)) return 0; else { /* All other errors are 'fatal'. */ XGetErrorText (dsp, event->error_code, buf, 128); fprintf (stderr, "X Error: %s\n", buf); fprintf (stderr, " Major Opcode: %d\n", event->request_code); /* Try to close down gracefully. */ mo_exit (); } return 0; /* never makes it here.... */ } /**************************************************************************** * name: mo_do_gui * purpose: This is basically the real main routine of the application. * inputs: * - int argc: Number of arguments. * - char **argv: The argument vector. * returns: * nothing * remarks: * ****************************************************************************/ void mo_do_gui (int argc, char **argv) { #ifdef MONO_DEFAULT int use_color = 0; #else int use_color = 1; #endif int no_defaults = 0; int color_set = 0; char* display_name = 0; Display* dpy; int i; /* Loop through the args before passing them off to XtAppInitialize() in case we need to catch something first. */ for (i = 1; i < argc; i++) { if (!strcmp (argv[i], "-mono")) { use_color = 0; color_set = 1; } if (!strcmp (argv[i], "-color")) { use_color = 1; color_set = 1; } if (!strcmp (argv[i], "-nd")) { no_defaults = 1; } if (!strcmp (argv[i], "-display")) { display_name = argv[i + 1]; i++; } } /* * Awful expensive to open and close the display just to find * the depth information. */ if (!color_set && (dpy = XOpenDisplay(display_name))) { use_color = DisplayPlanes(dpy, DefaultScreen(dpy)) > 1; XCloseDisplay(dpy); } /* Motif setup. */ #ifdef L10N #ifdef OPENWARE XmjpInitialize(&argc, argv, NULL); #endif /* OPENWARE */ #endif /* L10N */ #ifdef NETSCAPE_EXT mono_or_color = use_color; #endif /* NETSCAPE_EXT */ XmxStartup (); XmxSetArg (XmNmappedWhenManaged, False); if (no_defaults) { toplevel = XtAppInitialize (&app_context, "Mosaic", options, XtNumber (options), &argc, argv, NULL, Xmx_wargs, Xmx_n); } else { if (use_color) { toplevel = XtAppInitialize (&app_context, "Mosaic", options, XtNumber (options), &argc, argv, color_resources, Xmx_wargs, Xmx_n); } else { toplevel = XtAppInitialize (&app_context, "Mosaic", options, XtNumber (options), &argc, argv, mono_resources, Xmx_wargs, Xmx_n); } } /* Needed for picread.c, right now. */ dsp = XtDisplay (toplevel); { XVisualInfo vinfo, *vptr; int cnt; vinfo.visualid = XVisualIDFromVisual (DefaultVisual (dsp, DefaultScreen (dsp))); vptr = XGetVisualInfo (dsp, VisualIDMask, &vinfo, &cnt); Vclass = vptr->class; XFree((char *)vptr); } XtVaGetApplicationResources (toplevel, (XtPointer)&Rdata, resources, XtNumber (resources), NULL); XSetErrorHandler (mo_error_handler); #ifdef __sgi /* Turn on debugging malloc if necessary. */ if (Rdata.debugging_malloc) mallopt (M_DEBUG, 1); #endif global_xterm_str = Rdata.xterm_command; uncompress_program = Rdata.uncompress_command; gunzip_program = Rdata.gunzip_command; tweak_gopher_types = Rdata.tweak_gopher_types; max_wais_responses = Rdata.max_wais_responses; use_default_extension_map = Rdata.use_default_extension_map; global_extension_map = Rdata.global_extension_map; if (Rdata.personal_extension_map) { char *home = getenv ("HOME"); if (!home) home = "/tmp"; personal_extension_map = (char *)malloc (strlen (home) + strlen (Rdata.personal_extension_map) + 8); sprintf (personal_extension_map, "%s/%s", home, Rdata.personal_extension_map); } else personal_extension_map = "\0"; use_default_type_map = Rdata.use_default_type_map; global_type_map = Rdata.global_type_map; if (Rdata.personal_type_map) { char *home = getenv ("HOME"); if (!home) home = "/tmp"; personal_type_map = (char *)malloc (strlen (home) + strlen (Rdata.personal_type_map) + 8); sprintf (personal_type_map, "%s/%s", home, Rdata.personal_type_map); } else personal_type_map = "\0"; #ifdef HAVE_HDF have_hdf = 1; #else have_hdf = 0; #endif twirl_increment = Rdata.twirl_increment; /* First get the hostname. */ machine = (char *)malloc (sizeof (char) * 64); gethostname (machine, 64); { #ifdef L10N char *L10Ncomment = "L10N+"; #else /* L10N */ char *L10Ncomment = ""; #endif /* L10N */ #ifdef SECURE HTAppVersion = (char *)malloc (sizeof(char) * ( strlen(MO_VERSION_STRING) + strlen(L10Ncomment) + 20)); sprintf(HTAppVersion, "%s%s (X11)", MO_VERSION_STRING, L10Ncomment); #else /* SECURE */ uname(&mo_uname); HTAppVersion = (char *)malloc (sizeof(char) * ( strlen(MO_VERSION_STRING) + strlen(L10Ncomment) + strlen(mo_uname.sysname) + strlen(mo_uname.release) + strlen(mo_uname.machine) + 20)); sprintf(HTAppVersion, "%s%s (X11;%s %s %s)", MO_VERSION_STRING, L10Ncomment, mo_uname.sysname, mo_uname.release, mo_uname.machine); #endif /* SECURE */ } /* Then make a copy of the hostname for shortmachine. Don't even ask. */ shortmachine = strdup (machine); /* Then find out the full name, if possible. */ if (Rdata.full_hostname) { free (machine); machine = Rdata.full_hostname; } else if (!Rdata.gethostbyname_is_evil) { struct hostent *phe; phe = gethostbyname (machine); if (phe && phe->h_name) { free (machine); machine = strdup (phe->h_name); } } /* (Otherwise machine just remains whatever gethostname returned.) */ machine_with_domain = (strlen (machine) > strlen (shortmachine) ? machine : shortmachine); /* If there's no tmp directory assigned by the X resource, then look at TMPDIR. */ if (!Rdata.tmp_directory) { Rdata.tmp_directory = getenv ("TMPDIR"); /* It can still be NULL when we leave here -- then we'll just let tmpnam() do what it does best. */ } /* If there's no docs directory assigned by the X resource, then look at MOSAIC_DOCS_DIRECTORY environment variable and then at hardcoded default. */ if (!Rdata.docs_directory) { Rdata.docs_directory = getenv ("MOSAIC_DOCS_DIRECTORY"); if (!Rdata.docs_directory) Rdata.docs_directory = DOCS_DIRECTORY_DEFAULT; if (!Rdata.docs_directory || !*(Rdata.docs_directory)) { fprintf (stderr, "fatal error: nonexistent docs directory\n"); exit (-1); } } if (Rdata.use_global_history) mo_setup_global_history (); else mo_init_global_history (); mo_setup_default_hotlist (); mo_write_default_hotlist (); /* amb */ mo_setup_pan_list (); /* Write pid into "~/.mosaicpid". */ { char *home = getenv ("HOME"), *fnam; FILE *fp; if (!home) home = "/tmp"; fnam = (char *)malloc (strlen (home) + 32); sprintf (fnam, "%s/.mosaicpid", home); fp = fopen (fnam, "w"); if (fp) { fprintf (fp, "%d\n", getpid()); fclose (fp); } free (fnam); } { Widget foo = XmxMakeForm (toplevel); XmString xmstr = XmxMakeXmstrFromString ("NCSA Mosaic"); XmxSetArg (XmNlabelString, (long)xmstr); Xmx_w = XtCreateManagedWidget ("blargh", xmLabelGadgetClass, foo, Xmx_wargs, Xmx_n); XmStringFree (xmstr); Xmx_n = 0; } busy_cursor = XCreateFontCursor (dsp, XC_watch); XtRealizeWidget (toplevel); gargv = argv; gargc = argc; #ifndef VMS signal (SIGUSR1, (void (*)())ProcessExternalDirective); #endif defer_initial_window = 0; #ifdef L10N InitFontCache(); #endif /* L10N */ if (!defer_initial_window) mo_open_initial_window (); #ifdef DEBUG printf("cciPort resourced to %d\n",Rdata.cciPort); #endif if ((Rdata.cciPort > 1023 ) && (Rdata.cciPort < 65536)) { MoCCIStartListening(toplevel,Rdata.cciPort); } XtAppMainLoop (app_context); } /**************************************************************************** * name: mo_process_external_directive * purpose: Handle an external directive given to the application via * a config file read in response to a SIGUSR1. * inputs: * - char *directive: The directive; either "goto" or "newwin". * - char *url: The URL corresponding to the directive. * returns: * nothing * remarks: * ****************************************************************************/ #define CLIP_TRAILING_NEWLINE(url) \ if (url[strlen (url) - 1] == '\n') \ url[strlen (url) - 1] = '\0'; static XEvent *mo_manufacture_dummy_event (Widget foo) { /* This is fucking hilarious. */ XAnyEvent *a = (XAnyEvent *)malloc (sizeof (XAnyEvent)); a->type = 1; /* HAHA! */ a->serial = 1; /* HAHA AGAIN! */ a->send_event = False; a->display = XtDisplay (foo); a->window = XtWindow (foo); return (XEvent *)a; } void mo_process_external_directive (char *directive, char *url) { /* Process a directive that we received externally. */ mo_window *win = current_win; /* Make sure we have a window. */ if (!win) win = mo_next_window (NULL); if (!strncmp (directive, "goto", 4)) { CLIP_TRAILING_NEWLINE(url); mo_access_document (win, url); XmUpdateDisplay (win->base); } else if (!strncmp (directive, "newwin", 6)) { CLIP_TRAILING_NEWLINE(url); /* Force a new window to open. */ mo_open_another_window (win, url, NULL, NULL); XmUpdateDisplay (win->base); } else if (!strncmp (directive, "pagedown", 8)) { Widget sb; String params[1]; params[0] = "0"; XtVaGetValues (win->scrolled_win, XmNverticalScrollBar, (long)(&sb), NULL); if (sb && XtIsManaged (sb)) { XEvent *event = mo_manufacture_dummy_event (sb); XtCallActionProc (sb, "PageDownOrRight", event, params, 1); } XmUpdateDisplay (win->base); } else if (!strncmp (directive, "pageup", 6)) { Widget sb; String params[1]; params[0] = "0"; XtVaGetValues (win->scrolled_win, XmNverticalScrollBar, (long)(&sb), NULL); if (sb && XtIsManaged (sb)) { XEvent *event = mo_manufacture_dummy_event (sb); XtCallActionProc (sb, "PageUpOrLeft", event, params, 1); } XmUpdateDisplay (win->base); } else if (!strncmp (directive, "scrolldown", 9)) { Widget sb; String params[1]; params[0] = "0"; XtVaGetValues (win->scrolled_win, XmNverticalScrollBar, (long)(&sb), NULL); if (sb && XtIsManaged (sb)) { XEvent *event = mo_manufacture_dummy_event (sb); XtCallActionProc (sb, "IncrementDownOrRight", event, params, 1); } XmUpdateDisplay (win->base); } else if (!strncmp (directive, "scrollup", 7)) { Widget sb; String params[1]; params[0] = "0"; XtVaGetValues (win->scrolled_win, XmNverticalScrollBar, (long)(&sb), NULL); if (sb && XtIsManaged (sb)) { XEvent *event = mo_manufacture_dummy_event (sb); XtCallActionProc (sb, "IncrementUpOrLeft", event, params, 1); } XmUpdateDisplay (win->base); } else if (!strncmp (directive, "flushimagecache", 15)) { mo_flush_image_cache (win); } else if (!strncmp (directive, "backnode", 8)) { mo_back_node (win); XmUpdateDisplay (win->base); } else if (!strncmp (directive, "forwardnode", 11)) { mo_forward_node (win); XmUpdateDisplay (win->base); } else if (!strncmp (directive, "reloaddocument", 14)) { mo_reload_window_text (win, 0); XmUpdateDisplay (win->base); } else if (!strncmp (directive, "reloadimages", 12)) { mo_reload_window_text (win, 1); XmUpdateDisplay (win->base); } else if (!strncmp (directive, "refresh", 7)) { mo_refresh_window_text (win); XmUpdateDisplay (win->base); } return; } #ifdef L10N /* ---------- convert character set to font_size (Geee...) ---------- */ charset2font_size(charset) char *charset; { if (charset == NULL) return(mo_regular_fonts); if (!strcasecmp(charset, "")) { return(mo_regular_fonts); /* ISO 8859-2 */ } else if (!strcasecmp(charset, "iso-8859-1")) { return(mo_regular_fonts); } else if (!strcasecmp(charset, "latin-1")) { return(mo_regular_fonts); /* ISO 8859-2, Czech */ } else if (!strcasecmp(charset, "iso-8859-2")) { return(mo_charset_iso_8859_2); } else if (!strcasecmp(charset, "latin-2")) { return(mo_charset_iso_8859_2); } else if (!strcasecmp(charset, "czech")) { return(mo_charset_iso_8859_2); /* ISO 8859-3 */ } else if (!strcasecmp(charset, "iso-8859-3")) { return(mo_charset_iso_8859_3); } else if (!strcasecmp(charset, "latin-3")) { return(mo_charset_iso_8859_3); /* ISO 8859-4 */ } else if (!strcasecmp(charset, "iso-8859-4")) { return(mo_charset_iso_8859_4); } else if (!strcasecmp(charset, "latin-4")) { return(mo_charset_iso_8859_4); /* ISO 8859-5, KOI-8, Cyrillic */ } else if (!strcasecmp(charset, "iso-8859-5")) { return(mo_charset_iso_8859_5); } else if (!strncasecmp(charset, "koi", 3)) { return(mo_charset_koi8); } else if (!strcasecmp(charset, "cyrillic")) { return(mo_charset_iso_8859_5); } else if (!strncasecmp(charset, "russia", 6)) { return(mo_charset_iso_8859_5); /* ISO 8859-7, Greek */ } else if (!strcasecmp(charset, "iso-8859-7")) { return(mo_charset_iso_8859_7); } else if (!strcasecmp(charset, "greek")) { return(mo_charset_iso_8859_7); /* ISO 8859-8, Hebrew */ } else if (!strcasecmp(charset, "ISO-8859-8")) { return(mo_charset_iso_8859_8); } else if (!strcasecmp(charset, "hebrew")) { return(mo_charset_iso_8859_8); /* ISO 8859-9 */ } else if (!strcasecmp(charset, "iso-8859-9")) { return(mo_charset_iso_8859_9); } else if (!strcasecmp(charset, "latin-5")) { return(mo_charset_iso_8859_5); /* Japanese */ } else if (!strcasecmp(charset, "jis")) { return(mo_charset_jis); } else if (!strncasecmp(charset, "japan", 5)) { return(mo_charset_jis); } else if (!strcasecmp(charset, "iso-2022-jp")) { return(mo_charset_jis); /* Chinese */ } else if (!strcasecmp(charset, "gb")) { return(mo_charset_gb); } else if (!strcasecmp(charset, "chinese")) { return(mo_charset_gb); } else if (!strcasecmp(charset, "big5")) { return(mo_charset_big5); } else if (!strncasecmp(charset, "eten", 3)) { return(mo_charset_big5); } else if (!strcasecmp(charset, "hz")) { return(mo_charset_hz); /* Korean */ } else if (!strcasecmp(charset, "ksc")) { return(mo_charset_ksc); } else if (!strncasecmp(charset, "korea", 5)) { return(mo_charset_ksc); /* unknown */ } else { fprintf(stderr, "Unknown character set: %s. Using Latin-1 font.\n", charset); return(mo_regular_fonts); } } /* ---------- convert bidirectionality in string to int ---------- */ default_bidir2bidir(bidir) char *bidir; { if (bidir == NULL) return(mo_bidir_visual); if (!strcasecmp(bidir, "visual")) { return(mo_bidir_visual); } else if (!strcasecmp(bidir, "implicit")) { return(mo_bidir_implicit); /* Not yet supported: } else if (!strcasecmp(bidir, "explicit")) { return(mo_bidir_explicit); */ } else { fprintf(stderr, "Unknown Bi-directionality: %s. Using Visual.\n", bidir); return(mo_bidir_visual); } } /* ---------- kinsoku characters ---------- */ char *kinsoku_chars(type) int type; { switch (type) { case 0: return(Rdata.kinsoku_bol); default: return(Rdata.kinsoku_eol); } } int ignore_bj(type) int type; { switch (type) { case 0: return(Rdata.ignore_space_between_japanese); default: return(Rdata.ignore_lf_between_japanese); } } #endif /* L10N */ #ifdef sony_news /* uname() for NEWSOS 4.x */ #include #include #include #include int uname (name) struct utsname *name; { struct machtype machtype_buf; char news_version[256], str[256]; if (name == NULL) { errno = EINVAL; return -1; } if (gethostname(name->nodename, sizeof(name->nodename)) == -1) { return -1; } if (sysnews(NEWS_VERSION, news_version, sizeof(news_version)) == -1) { return -1; } if (sscanf(news_version, "%s Release %[^:]", name->sysname, str) != 2) { return -1; } else { char *p; if ((p = rindex(str, '#')) == NULL) { return -1; } strcpy(name->version, p); *(--p) = '\0'; strcpy(name->release, str); } if (sysnews(NEWS_MACHTYPE, &machtype_buf) == -1) { return -1; } strcpy(name->machine, machtype_buf.mt_machine); strcpy(name->processor, machtype_buf.mt_maincpu); return 0; } #endif #ifdef NETSCAPE_EXT int mo_use_color() { return mono_or_color; } #endif /* NETSCAPE_EXT */