/*
* xmail - X window system interface to the mail program
*
* Copyright 1990,1991,1992 by National Semiconductor Corporation
*
* Permission to use, copy, modify, and distribute this software and its
* documentation for any purpose is hereby granted without fee, provided that
* the above copyright notice appear in all copies and that both that
* copyright notice and this permission notice appear in supporting
* documentation, and that the name of National Semiconductor Corporation not
* be used in advertising or publicity pertaining to distribution of the
* software without specific, written prior permission.
*
* NATIONAL SEMICONDUCTOR CORPORATION MAKES NO REPRESENTATIONS ABOUT THE
* SUITABILITY OF THIS SOFTWARE FOR ANY PURPOSE. IT IS PROVIDED "AS IS"
* WITHOUT EXPRESS OR IMPLIED WARRANTY. NATIONAL SEMICONDUCTOR CORPORATION
* DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO
* EVENT SHALL NATIONAL SEMICONDUCTOR CORPORATION BE LIABLE FOR ANY SPECIAL,
* INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
* LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
* OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
* PERFORMANCE OF THIS SOFTWARE.
*
* The following software modules were created and are Copyrighted by
* National Semiconductor Corporation:
*
* 1. markIndex:
* 2. LastNumber:
* 3. SelectionNumber:
* 4. SetCursor: and
* 5. SetXY.
*
* Author: Michael C. Wagnitz - National Semiconductor Corporation
*
*/
#include <ctype.h>
#include "global.h"
#include "patchlevel.h"
#include "revtable.h"
/*
** @(#)Bell() - write a status message and (optionally) ring the terminal bell
*/
void
Bell(String msg)
{
Arg args[1];
char *p;
char buf[BUFSIZ];
int size;
static int worthy = 0; /* only msgs with ending newline are */
size = (int)strlen(msg);
if (size >= BUFSIZ) size = BUFSIZ - 1;
(void) strncpy(buf, msg, size);
buf[size] = '\0';
p = strchr(buf, '\n'); /* messages with newline get a bell */
/*
** Because we have now added enter/leave window event information messages,
** we must play a slight game with incoming messages, to prevent any error
** messages from a menu selection failure or status messages from a command
** button being overwritten by the subsequent event info messages produced
** when the menu popup is dismissed or the command completes. To do this,
** we make the bell worthy-ness flag static, and only replace a message after
** first seeing a non-default status message, which will reset the worthy-ness
** flag, but otherwise be ignored. When the first non-default, non-error
** message comes in, simply reset our bell worthy-ness flag and return, leaving
** the previous error message still intact. This means, to ensure seeing the
** default message, first send a blank line to reset the worthy-ness flag.
*/
if (! XMail.Show_Info) /* if NOT showing info flags always */
worthy = 0; /* reset the bell worthy-ness flag */
else {
if (worthy && p == NULL) { /* if last was but this ain't urgent */
if (strcmp(buf, Default_Status_Info)) /* and not the default info */
worthy = 0; /* reset the bell worthy-ness flag */
return; /* ignore event info if menu errored */
} /* by leaving previous error message */
}
if (size == 0) /* if intent was just to reset flag */
return;
if (p != NULL) { /* Only display first line of output */
*p = '\0'; /* (no new line at end of label) */
worthy = 1; /* this message is worthy of a bell */
}
if (worthy && XMail.bellRing) /* ring bell if not silenced by user */
XBell(XtDisplay (toplevel), 33);
XtSetArg(args[0], XtNlabel, (XtArgVal) buf); /* show this message text */
XtSetValues(XtNameToWidget(toplevel, "topBox.statusWindow"), args, 1);
XFlush(XtDisplay(toplevel));
} /* Bell */
/*
** @(#)figureWidth() - determine the figure width of the specified font
*/
int
figureWidth(XFontStruct *font)
{
Atom _XA_FIGURE_WIDTH;
unsigned long width = 0;
_XA_FIGURE_WIDTH = XInternAtom(XtDisplay(toplevel), "FIGURE_WIDTH", FALSE);
if ((_XA_FIGURE_WIDTH != (Atom)NULL) &&
((! XGetFontProperty(font, _XA_FIGURE_WIDTH, &width)) || (width == 0)))
if (font->per_char && font->min_char_or_byte2 <= '$' &&
font->max_char_or_byte2 >= '$')
width = font->per_char['$' - font->min_char_or_byte2].width;
else
width = font->max_bounds.width;
return(width);
} /* end - figureWidth */
/*
** @(#)markIndex() - add or remove a tag from the start of a mail header line
** May be invoked by button press, which sets the insertion
** pointer for the text to the current mouse cursor location.
*/
void
markIndex(char *s)
{
int size;
XawTextPosition pos, old;
String c, p = NULL;
char buf[3];
Widget iw = XtNameToWidget(toplevel, "topBox.indexWindow");
Arg args[1];
XawTextBlock text;
(void) strcpy(buf, s); /* make a copy of our marker string */
XtSetArg(args[0], XtNstring, &p); /* retrieve the current index buffer */
XtGetValues(iw, args, 1);
for (pos = XawTextGetInsertionPoint(iw); pos > 0 && p[pos-1] != '\n'; pos--);
if (buf[0] == '>') { /* if mark is for 'current' pointer */
XtSetArg(args[0], XtNstring, &p); /* retrieve the current index buffer */
XtGetValues(iw, args, 1);
if ((int)strlen(p) < 3) /* trap for case of no index at all */
return;
if ((int)strlen(p) > pos + 1)
if (p[pos + 1] == 'S') /* keep the Save marker if it exists */
if ((int)strlen(buf) > 1)
buf[1] = '\0';
for (c = p; *c; c++)
if (*c == '>' && (c == p || *(c - 1) == '\n')) {
old = c - p; /* if found, remove the old '>' mark */
text.firstPos = 0;
text.length = 1;
text.ptr = " ";
text.format = FMT8BIT;
XawTextReplace(iw, (XawTextPosition) old, (XawTextPosition) old + 1, &text);
break;
}
}
size = (int)strlen(buf); /* now write the specified marker */
old = (buf[0] == '>') ? pos : pos + 1;
text.firstPos = 0;
text.length = size;
text.ptr = buf;
text.format = FMT8BIT;
XawTextReplace(iw, (XawTextPosition) old, (XawTextPosition) old + size, &text);
XawTextSetInsertionPoint(iw, pos); /* reset our actual insertion point */
} /* markIndex */
/*
** @(#)LastNumber() - Get mail index number for last message in folder
*/
int
LastNumber(void)
{
int last_number;
Arg args[1];
String c, ep, str = NULL;
Widget iw = XtNameToWidget(toplevel, "topBox.indexWindow");
XtSetArg(args[0], XtNstring, &str);
XtGetValues(iw, args, 1);
ep = &str[(int)strlen(str) - 1];
for (c = ep - 1; c > str; c--)
if (*(c - 1) == '\n' && *(c + 1) != 'D')
break;
for (; c < ep && !isdigit(*c); c++);
(void) sscanf(c, "%d", &last_number);
return(last_number);
} /* LastNumber */
/*
** @(#)SelectionNumber() - Get mail index number from line position
*/
int
SelectionNumber(int undeleting)
{
Arg args[1];
String c, str = NULL;
Widget iw = XtNameToWidget(toplevel, "topBox.indexWindow");
XawTextPosition pos;
int selection_number = 0;
XtSetArg(args[0], XtNstring, &str);
XtGetValues(iw, args, 1);
for (pos = XawTextGetInsertionPoint(iw); pos > 0 && str[pos] != '\n'; pos--);
pos++;
if (! undeleting || str[pos + 1] == 'D') {
for (c = &str[pos]; *c && !isdigit(*c); c++);
(void) sscanf(c, "%d", &selection_number);
}
return(selection_number);
} /* SelectionNumber */
/* ARGSUSED */
/*
** @(#)SetCursor() - sets the wait cursor or restores the default
*/
void
SetCursor(int waiting)
/* a non-zero value sets the busy cursor */
{
if (! waiting)
XUnmapWindow(XtDisplay(toplevel), WaitCursorWindow);
else {
XMapWindow(XtDisplay(toplevel), WaitCursorWindow);
Waiting = TRUE; /* to prevent overwrite of important info */
}
XFlush(XtDisplay(toplevel));
} /* SetCursor */
/*
** @(#)SetXY() - Set relative window coordinates including specified offset
*/
void
SetXY(Widget target, Widget reference, int X_offset, int Y_offset)
{
Arg args[2];
Display *dpy = XtDisplay(reference);
Window dumy;
int x, y;
XTranslateCoordinates(dpy, XtWindow(reference),
RootWindow(dpy, DefaultScreen(dpy)),
X_offset, Y_offset, &x, &y, &dumy);
/*
** Keep window within root window borders (don't place it off-screen)
*/
if (! XtIsRealized(target))
XtRealizeWidget(target); /* to get width and height values */
if (x + (int) target->core.width > RootWidth)
x = RootWidth - target->core.width - 2;
if (y + (int)target->core.height > RootHeight)
y = RootHeight - target->core.height - 2;
XtSetArg(args[0], XtNx, x);
XtSetArg(args[1], XtNy, y);
XtSetValues(target, args, 2);
} /* end - SetXY */
/*
** @(#)TextGetLastPos() - return position of last text character
*/
XawTextPosition
TextGetLastPos(Widget w)
{
TextWidget ctx = (TextWidget) w;
if (ctx->text.source)
return (XawTextSourceScan(ctx->text.source,0,XawstAll,XawsdRight,1,TRUE));
else
return( (XawTextPosition) 0);
}
/*
** @(#)UpdateTitleBar() - replace information in the title bar title
*/
void
UpdateTitleBar(char *msg)
{
char message[BUFSIZ];
Arg args[1];
Widget w;
(void) sprintf(message, "%s%d - %s", TITLE, PATCHLEVEL, msg);
w = XtNameToWidget(toplevel, "topBox.titleBar.title");
XtSetArg(args[0], XtNlabel, (XtArgVal) message);
XtSetValues(w, args, 1);
w = XtNameToWidget(toplevel, "topBox.commandPanel.Newmail.Newmail_menu.menu.inc");
if (w)
XtSetSensitive(w, In_System_Folder());
} /* UpdateTitleBar */
/*
** @(#)writeTo() - write data to the specified text widget
*/
void
writeTo(Widget w, char *data, int do_append)
{
XawTextBlock text;
XawTextPosition startPos, endPos;
int l, n;
endPos = TextGetLastPos(w) + (do_append ? 0 : 1);
startPos = (do_append ? endPos : 0);
text.firstPos = 0;
text.length = (int)strlen(data);
text.ptr = data;
text.format = FMT8BIT;
XawTextReplace(w, (XawTextPosition) startPos, (XawTextPosition) endPos, &text);
XawTextSetInsertionPoint(w, (XawTextPosition) TextGetLastPos(w));
XawTextInvalidate(w, (XawTextPosition) 0, (XawTextPosition) endPos);
} /* writeTo */
/*
** @(#)writeText() - replace the current text string in the text window.
** Also look for an X-Face: header and if found, display.
*/
void
writeText(char *buf)
{
Arg args[2];
Widget w = XtNameToWidget(toplevel, "topBox.textWindow.text");
#ifdef X_FACE
Pixmap bits;
Dimension rWidth;
Display *dpy = XtDisplay(w);
Widget fw;
Window rw;
char cb[1024], fb[2048], *ptr, *xface;
int i, n, x, y;
#endif
if (buf && *buf) {
#ifndef X_FACE
XtSetArg(args[0], XtNstring, buf);
XtSetValues(w, args, 1);
#else
if (! (fw = XtNameToWidget(XtParent(w), "face"))) {
XtSetArg(args[0], XtNstring, buf);
XtSetValues(w, args, 1);
return;
}
/*
** First, unmap any current picture.
**
** Look for a line containing an 'X-Face:' header, followed by 72
** characters of compressed data. The second and any subsequent lines
** will contain an initial space (which is ignored), followed by 79
** characters of compressed data. The last line may contain fewer than 79
** characters.
**
** The X-Face: header and any immediate whitespace (tabs or spaces) will be
** removed, and the remaining line placed in the internal buffer (minus
** any trailing newline). On subsequent lines, initial whitespace will be
** removed, and the remainder of the data appended to the buffer (minus any
** trailing newline).
**
** A blank line, a line without an initial whitespace character,or the
** end of the input buffer will signify the end of the X-Face data. That
** buffer will then be uncompressed, and if the data was valid, displayed.
*/
if (XtIsManaged(fw))
XtUnmanageChild(fw);
for (ptr = buf; *ptr; ptr++) {
if (*ptr == '\n' ||
strncmp(ptr, "Status:", 7) == 0 ||
strncmp(ptr, "X-Face:", 7) == 0) break;
for (; *ptr && *ptr != '\n'; ptr++);
}
if (! *ptr || strncmp(ptr, "X-Face:", 7) != 0) {
XtSetArg(args[0], XtNstring, buf);
XtSetValues(w, args, 1);
return;
}
xface = ptr; /* keep track of the start position of X-Face header */
bzero(fb, 2048);
for (i = 0, ptr += 7; *ptr; ptr++) {
if (*ptr != ' ' && *ptr != '\t' && *ptr != '\n')
fb[i++] = *ptr;
if (*ptr == '\n' && *(ptr+1) && *(ptr+1) != ' ' && *(ptr+1) != '\t')
break;
}
if (XMail.No_X_Hdr) {
if (*ptr) ptr++;
bcopy(ptr, xface, (int)strlen(ptr) + 1); /* suppress the X-Face header */
}
XtSetArg(args[0], XtNstring, buf);
XtSetValues(w, args, 1);
if (uncompface(fb) >= 0) {
bzero(cb, 1024);
for (i = n = 0;i < 1024;) {
if (! sscanf(&fb[n], "%i%n", &x, &y)) break;
cb[i++] = revtable[(x >> 8) & 0xFF];
cb[i++] = revtable[x & 0xFF];
n += y;
while (fb[n] && (fb[n]==',' || fb[n]=='\n')) n++;
}
XtSetArg(args[0], XtNwidth, &rWidth);
XtGetValues(XtParent(w), args, 1);
if ( (int)rWidth > 0 )
n = (int) rWidth - 52; /* the width of the face minus 4 pixel inset */
else
n = 0;
XtSetArg(args[0], XtNbitmap, &bits);
XtGetValues(fw, args, 1);
if (bits != None)
XFreePixmap(dpy, bits );
rw = RootWindow(dpy, DefaultScreen(dpy));
bits = XCreateBitmapFromData(dpy, rw, cb, 48, 48);
XtSetArg(args[0], XtNbitmap, bits );
XtSetArg(args[1], XtNhorizDistance, n);
XtSetValues(fw, args, 2);
XtManageChild(fw);
}
#endif
}
} /* writeText */
syntax highlighted by Code2HTML, v. 0.9.1