Usenet 1994 January

home *** CD-ROM | disk | FTP | other *** search

/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume4 / xtroff / part04 < prev next >

Wrap

Internet Message Format | 1989-07-16 | 58.5 KB

Path: uunet!island!argv From: argv@island.uu.net (Dan Heller) Newsgroups: comp.sources.x Subject: v04i049: xtroff -- troff previewer for X11, Part04/18 Message-ID: <880@island.uu.net> Date: 17 Jul 89 06:55:21 GMT Organization: Island Graphics, Marin County, California Lines: 2456 Approved: island!argv@sun.com Submitted-by: Mark Moraes <moraes@ai.toronto.edu> Posting-number: Volume 4, Issue 49 Archive-name: xtroff/part04 #! /bin/sh # This is a shell archive. Remove anything before this line, then unpack # it by saving it into a file and typing "sh file". To overwrite existing # files, type "sh file -c". You can also feed this as standard input via # unshar, or by typing "sh <file", e.g.. If this archive is complete, you # will see the following message at the end: # "End of archive 4 (of 18)." # Contents: xtroff/XtStuff/CheckItem.h xtroff/XtStuff/CheckItemP.h # xtroff/XtStuff/Menu.h xtroff/XtStuff/MenuItemP.h # xtroff/XtStuff/MenuP.h xtroff/XtStuff/MinibufP.h # xtroff/XtStuff/README.Menu xtroff/XtStuff/Window.c # xtroff/bitmaps/ditroff.bm xtroff/devpsc/README.char # xtroff/devpsc/README.note xtroff/devpsc/S.aux xtroff/devsun/db # xtroff/devsun/dr xtroff/devsun/gf xtroff/fixpoint.c # xtroff/fontstuff/MakeImFonts xtroff/fontstuff/vft2ch.c # Wrapped by moraes@neat.ai on Thu Jul 13 20:54:45 1989 PATH=/bin:/usr/bin:/usr/ucb ; export PATH if test -f 'xtroff/XtStuff/CheckItem.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'xtroff/XtStuff/CheckItem.h'\" else echo shar: Extracting \"'xtroff/XtStuff/CheckItem.h'\" $2210 characters$ sed "s/^X//" >'xtroff/XtStuff/CheckItem.h' <<'END_OF_FILE' X/* X* $Header: CheckItem.h,v 1.2 88/05/31 21:07:42 moraes Exp $ X*/ X X/* X * Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts. X * X * All Rights Reserved X * X * Permission to use, copy, modify, and distribute this software and its X * documentation for any purpose and without fee is hereby granted, X * provided that the above copyright notice appear in all copies and that X * both that copyright notice and this permission notice appear in X * supporting documentation, and that the name of Digital Equipment X * Corporation not be used in advertising or publicity pertaining to X * distribution of the software without specific, written prior permission. X * X * X * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING X * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL X * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR X * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, X * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, X * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS X * SOFTWARE. X */ X/* X * CheckItem.h - CheckItem button widget X * X * Author: Robert P. Shen X * Malcolm Forbes X * Digital Equipment Corporation X * ESG Systems Engineering X * X * Date: February 1, 1988 X */ X#ifndef _XtCheckItem_h X#define _XtCheckItem_h X X/*********************************************************************** X * X * CheckItem Widget X * X ***********************************************************************/ X X#define XtNcallback "callback" X#define XtNhighlightThickness "hightlightThickness" X#define XtNtranslations "translations" X X#ifndef _XtCheckState X#define _XtCheckState X#define XtNcheckState "checkState" X#define XtCCheckState "CheckState" X#define XtRCheckState "CheckState" Xtypedef enum { X XtitemChecked, X XtitemUnchecked X} XtCheckState; X#endif _XtCheckState X Xextern WidgetClass checkitemWidgetClass; X Xtypedef struct _CheckItemClassRec *CheckItemWidgetClass; Xtypedef struct _CheckItemRec *CheckItemWidget; X X X#endif _XtCheckItem_h X/* DON'T ADD STUFF AFTER THIS */ END_OF_FILE if test 2210 -ne `wc -c <'xtroff/XtStuff/CheckItem.h'`; then echo shar: \"'xtroff/XtStuff/CheckItem.h'\" unpacked with wrong size! fi # end of 'xtroff/XtStuff/CheckItem.h' fi if test -f 'xtroff/XtStuff/CheckItemP.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'xtroff/XtStuff/CheckItemP.h'\" else echo shar: Extracting \"'xtroff/XtStuff/CheckItemP.h'\" $3064 characters$ sed "s/^X//" >'xtroff/XtStuff/CheckItemP.h' <<'END_OF_FILE' X/* X* $Header: CheckItemP.h,v 1.2 88/05/31 21:07:43 moraes Exp $ X*/ X X/* X * Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts. X * X * All Rights Reserved X * X * Permission to use, copy, modify, and distribute this software and its X * documentation for any purpose and without fee is hereby granted, X * provided that the above copyright notice appear in all copies and that X * both that copyright notice and this permission notice appear in X * supporting documentation, and that the name of Digital Equipment X * Corporation not be used in advertising or publicity pertaining to X * distribution of the software without specific, written prior permission. X * X * X * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING X * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL X * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR X * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, X * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, X * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS X * SOFTWARE. X */ X/* X * CheckItemP.h - Private definitions for CheckItem widget X * X * Author: Robert P. Shen X * Malcolm Forbes X * Digital Equipment Corporation X * ESG Systems Engineering X * X * Date: February 1, 1988 X */ X X X#ifndef _XtCheckItemPrivate_h X#define _XtCheckItemPrivate_h X X/*********************************************************************** X * X * CheckItem Widget Private Data X * X ***********************************************************************/ X X/************************************ X * X * Class structure X * X ***********************************/ X X X /* New fields for the CheckItem widget class record */ Xtypedef struct _CheckItemClass X { X int makes_compiler_happy; /* not used */ X } CheckItemClassPart; X X /* Full class record declaration */ Xtypedef struct _CheckItemClassRec { X CoreClassPart core_class; X LabelClassPart label_class; X CheckItemClassPart checkitem_class; X} CheckItemClassRec; X Xextern CheckItemClassRec checkitemClassRec; X X/*************************************** X * X * Instance (widget) structure X * X **************************************/ X X /* New fields for the CheckItem widget record */ Xtypedef struct { X Pixmap gray_pixmap; X GC highlight_GC; X GC erase_highlight_GC; X GC inverse_GC; X GC inverse_text_GC; X Dimension highlight_thickness; X XtCallbackList callbacks; X Boolean set; X Boolean highlighted; X Boolean display_set; X Boolean display_highlighted; X Boolean check_state; X} CheckItemPart; X X X/* XtEventsPtr eventTable;*/ X X X /* Full widget declaration */ Xtypedef struct _CheckItemRec { X CorePart core; X SimplePart simple; X LabelPart label; X CheckItemPart checkitem; X} CheckItemRec; X X#endif _XtCheckItemPrivate_h X/* DON'T ADD STUFF AFTER THIS #endif */ X END_OF_FILE if test 3064 -ne `wc -c <'xtroff/XtStuff/CheckItemP.h'`; then echo shar: \"'xtroff/XtStuff/CheckItemP.h'\" unpacked with wrong size! fi # end of 'xtroff/XtStuff/CheckItemP.h' fi if test -f 'xtroff/XtStuff/Menu.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'xtroff/XtStuff/Menu.h'\" else echo shar: Extracting \"'xtroff/XtStuff/Menu.h'\" $2643 characters$ sed "s/^X//" >'xtroff/XtStuff/Menu.h' <<'END_OF_FILE' X/* X* $Header: Menu.h,v 1.2 88/06/01 02:47:17 moraes Exp $ X*/ X X/* X * Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts. X * X * All Rights Reserved X * X * Permission to use, copy, modify, and distribute this software and its X * documentation for any purpose and without fee is hereby granted, X * provided that the above copyright notice appear in all copies and that X * both that copyright notice and this permission notice appear in X * supporting documentation, and that the name of Digital Equipment X * Corporation not be used in advertising or publicity pertaining to X * distribution of the software without specific, written prior permission. X * X * X * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING X * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL X * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR X * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, X * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, X * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS X * SOFTWARE. X */ X/* Menu.h X * X * Author: Robert P. Shen X * Malcolm Forbes X * Digital Equipment Corporation X * ESG Systems Engineering X * X * Date: February 1, 1988 X */ X#ifndef _XtMenu_h X#define _XtMenu_h X X/*********************************************************************** X * X * Menu Widget (subclass of CompositeClass) X * X ***********************************************************************/ X X/* New fields */ X#define XtNxMargin "xMargin" X#define XtNyMargin "yMargin" X#define XtNmenuForeground "menuForeground" X#define XtNcheckForeground "checkForeground" X#define XtNmenuItemsList "menuItemsList" X X /*--------------------------------------------------------------* X * the following bit masks only apply when setting up * X * a Menu Items List. (This should be in a sub-widget ;-) * X *--------------------------------------------------------------*/ X X#define XtitemUnselectable 0x04 /* 0=selectable, 1=not */ X#define XtitemCheckable 0x02 /* 0=uncheckable, 1=checkable */ X#define XtitemIsChecked 0x01 /* 0=unchecked, 1=checked */ X X/* Class record constants */ X Xextern WidgetClass menuWidgetClass; X Xtypedef struct _MenuClassRec *MenuWidgetClass; Xtypedef struct _MenuRec *MenuWidget; X Xtypedef struct MenuItemsRec { X String text; X XtCallbackProc proc; X caddr_t closure; X Boolean flags; X}; X Xtypedef struct MenuItemsRec *MenuItems, MenuItemsList; X X#endif _XtMenu_h X/* DON'T ADD STUFF AFTER THIS #endif */ END_OF_FILE if test 2643 -ne `wc -c <'xtroff/XtStuff/Menu.h'`; then echo shar: \"'xtroff/XtStuff/Menu.h'\" unpacked with wrong size! fi # end of 'xtroff/XtStuff/Menu.h' fi if test -f 'xtroff/XtStuff/MenuItemP.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'xtroff/XtStuff/MenuItemP.h'\" else echo shar: Extracting \"'xtroff/XtStuff/MenuItemP.h'\" $3018 characters$ sed "s/^X//" >'xtroff/XtStuff/MenuItemP.h' <<'END_OF_FILE' X/* X* $Header: MenuItemP.h,v 1.2 88/05/31 21:07:50 moraes Exp $ X*/ X X/* X * Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts. X * X * All Rights Reserved X * X * Permission to use, copy, modify, and distribute this software and its X * documentation for any purpose and without fee is hereby granted, X * provided that the above copyright notice appear in all copies and that X * both that copyright notice and this permission notice appear in X * supporting documentation, and that the name of Digital Equipment X * Corporation not be used in advertising or publicity pertaining to X * distribution of the software without specific, written prior permission. X * X * X * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING X * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL X * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR X * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, X * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, X * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS X * SOFTWARE. X */ X/* X * MenuItemP.h - Private definitions for MenuItem widget X * X * Author: Robert P. Shen X * Malcolm Forbes X * Digital Equipment Corporation X * ESG Systems Engineering X * X * Date: February 1, 1988 X */ X X#ifndef _XtMenuItemPrivate_h X#define _XtMenuItemPrivate_h X X/*********************************************************************** X * X * MenuItem Widget Private Data X * X ***********************************************************************/ X X/************************************ X * X * Class structure X * X ***********************************/ X X X /* New fields for the MenuItem widget class record */ Xtypedef struct _MenuItemClass X { X int makes_compiler_happy; /* not used */ X } MenuItemClassPart; X X /* Full class record declaration */ Xtypedef struct _MenuItemClassRec { X CoreClassPart core_class; X LabelClassPart label_class; X MenuItemClassPart menuitem_class; X} MenuItemClassRec; X Xextern MenuItemClassRec menuitemClassRec; X X/*************************************** X * X * Instance (widget) structure X * X **************************************/ X X /* New fields for the MenuItem widget record */ Xtypedef struct { X Pixmap gray_pixmap; X GC highlight_GC; X GC erase_highlight_GC; X GC inverse_GC; X GC inverse_text_GC; X Dimension highlight_thickness; X XtCallbackList callbacks; X Boolean set; X Boolean highlighted; X Boolean display_set; X Boolean display_highlighted; X} MenuItemPart; X X X/* XtEventsPtr eventTable;*/ X X X /* Full widget declaration */ Xtypedef struct _MenuItemRec { X CorePart core; X SimplePart simple; X LabelPart label; X MenuItemPart menuitem; X} MenuItemRec; X X#endif _XtMenuItemPrivate_h X/* DON'T ADD STUFF AFTER THIS #endif */ X END_OF_FILE if test 3018 -ne `wc -c <'xtroff/XtStuff/MenuItemP.h'`; then echo shar: \"'xtroff/XtStuff/MenuItemP.h'\" unpacked with wrong size! fi # end of 'xtroff/XtStuff/MenuItemP.h' fi if test -f 'xtroff/XtStuff/MenuP.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'xtroff/XtStuff/MenuP.h'\" else echo shar: Extracting \"'xtroff/XtStuff/MenuP.h'\" $2578 characters$ sed "s/^X//" >'xtroff/XtStuff/MenuP.h' <<'END_OF_FILE' X/* X* $Header: MenuP.h,v 1.2 88/05/31 21:07:52 moraes Exp $ X*/ X X/* X * Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts. X * X * All Rights Reserved X * X * Permission to use, copy, modify, and distribute this software and its X * documentation for any purpose and without fee is hereby granted, X * provided that the above copyright notice appear in all copies and that X * both that copyright notice and this permission notice appear in X * supporting documentation, and that the name of Digital Equipment X * Corporation not be used in advertising or publicity pertaining to X * distribution of the software without specific, written prior permission. X * X * X * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING X * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL X * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR X * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, X * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, X * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS X * SOFTWARE. X */ X/* X * MenuPrivate.h - Private definitions for Menu widget X * X * Author: Robert P. Shen X * Malcolm Forbes X * Digital Equipment Corporation X * ESG Systems Engineering X * X * Date: February 1, 1988 X */ X X#ifndef _MenuP_h X#define _MenuP_h X X#include "Menu.h" X/*********************************************************************** X * X * Menu Widget Private Data X * X ***********************************************************************/ X X/* New fields for the Menu widget class record */ Xtypedef struct { X int mumble; /* No new procedures */ X} MenuClassPart; X X/* Full class record declaration */ Xtypedef struct _MenuClassRec { X CoreClassPart core_class; X CompositeClassPart composite_class; X MenuClassPart menu_class; X} MenuClassRec; X Xextern MenuClassRec menuClassRec; X X/* New fields for the Menu widget record */ Xtypedef struct { X Dimension x_margin, y_margin; X XtOrientation orient; X MenuItems items; X Pixel menu_foreground_pixel, check_foreground_pixel; X} MenuPart; X X X/**************************************************************** X * X * Full instance record declaration X * X ****************************************************************/ X Xtypedef struct _MenuRec { X CorePart core; X CompositePart composite; X MenuPart menu; X} MenuRec; X#endif _MenuP_h X/* DON'T ADD STUFF AFTER THIS #endif */ X X X X X X X X X X X X X X END_OF_FILE if test 2578 -ne `wc -c <'xtroff/XtStuff/MenuP.h'`; then echo shar: \"'xtroff/XtStuff/MenuP.h'\" unpacked with wrong size! fi # end of 'xtroff/XtStuff/MenuP.h' fi if test -f 'xtroff/XtStuff/MinibufP.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'xtroff/XtStuff/MinibufP.h'\" else echo shar: Extracting \"'xtroff/XtStuff/MinibufP.h'\" $2123 characters$ sed "s/^X//" >'xtroff/XtStuff/MinibufP.h' <<'END_OF_FILE' X/* X * MinibufP.h - Private definitions for Minibuf widget X * X */ X X#ifndef _XtMinibufP_h X#define _XtMinibufP_h X X/*********************************************************************** X * X * Minibuf Widget Private Data X * X ***********************************************************************/ X X#include "Minibuf.h" X X/* New fields for the Minibuf widget class record */ X Xtypedef struct {int foo;} MinibufClassPart; X X/* Full class record declaration */ Xtypedef struct _MinibufClassRec { X CoreClassPart core_class; X MinibufClassPart minibuf_class; X} MinibufClassRec; X Xextern MinibufClassRec minibufClassRec; X X/* New fields for the Minibuf widget record */ Xtypedef struct { X /* resources */ X Pixel foreground; X XFontStruct *finfo; X Cursor cursor; X Widget typeout; X X /* Callback stuff */ X XtCallbackList finishedCallback;/* X * Invoked on "newline" event X * (usually ^M) or "abort" event X * (usually ^G) X */ X X /* private state */ X GC normal_gc; X GC invert_gc; X int cursorX; /* Physical position of cursor in window */ X X /* Logical info */ X char *string; /* Actual buffer */ X int startPos; /* First character of string displayed in window */ X int cursorPos; /* Position of the cursor in the buffer */ X int mark; X char *killBuffer; X int killBufferLen; X int killBufferSize; X int size; /* Size of the string buffer */ X int len; /* Actual length of the string */ X int cols; /* Width of buffer in columns */ X int promptLen; /* First promptLen chars of string are X non-editable prompt */ X int arg; /* Universal argument */ X int typeoutColumns; /* Number of columns in the typeout window */ X int inputMode; /* True, if we are in input mode */ X int cursorOn; /* Records the state of the cursor */ X int completion; /* Are we doing completion */ X} MinibufPart; X X X/**************************************************************** X * X * Full instance record declaration X * X ****************************************************************/ X Xtypedef struct _MinibufRec { X CorePart core; X MinibufPart minibuf; X} MinibufRec; X X#endif _XtMinibufP_h END_OF_FILE if test 2123 -ne `wc -c <'xtroff/XtStuff/MinibufP.h'`; then echo shar: \"'xtroff/XtStuff/MinibufP.h'\" unpacked with wrong size! fi # end of 'xtroff/XtStuff/MinibufP.h' fi if test -f 'xtroff/XtStuff/README.Menu' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'xtroff/XtStuff/README.Menu'\" else echo shar: Extracting \"'xtroff/XtStuff/README.Menu'\" $1984 characters$ sed "s/^X//" >'xtroff/XtStuff/README.Menu' <<'END_OF_FILE' XMenu Widget X XTo create a menu widget, the application first builds a table of the menu Xitems to be used to construct the menu. This table is passed to the Menu XWidget at the menu creation time. Each menu item in the table conveys four Xpieces of information and has the following structure: X X {String text; XtCallback proc; caddr_t closure; Boolean flags} X X Where text : the text string to be displayed for this menu item. X proc : the callback procedure associated with this item. X closure : the closure to be returned by this item's callback X procedure. X flags : the flag indicates the sensitivity and check states X of this item. For simple applications, just pass NULL X here. The format of this field will be explained later. X XFor example, the following segment of C program shows how to build a simple Xmenu of three menu items. X/****************************************************************************/ X... X Xvoid procedure_a (widget, closure, call_data) X { X ... X } X Xvoid procedure_b (widget, closure, call_data) X{ X ... X} X Xstatic MenuItemsList menu_list [] = { X {"menu item 1", procedure_a, 1, NULL}, X {"menu item 2", procedure_a, 2, NULL}, X {"menu item 3", procedure_b, 1, NULL}, X {NULL, NULL, NULL, NLL} X }; X X {XtNmenuItemsList, (XtArgVal) menu_list} X }; X X... X Xmenu = XtCreateManagedWidget("my_menu", menuWidgetClass, parent_widget, X (ArgList) args, XtNumber(args)); X/****************************************************************************/ X XThe following new fields are created for the Menu Widget Part and are accessible Xto the application XName Type Default Description X XXtNorientation XtOrientation XtorientVertical Row/Column layout XXtNxMargin Dimension 0 x margin between items XXtNyMargin Dimension 0 y margin between items XXtNmenuForeground Pixel Black color for menu item XXtNcheckForeground Pixel Black color for check item X_______________________________________________________________________________ END_OF_FILE if test 1984 -ne `wc -c <'xtroff/XtStuff/README.Menu'`; then echo shar: \"'xtroff/XtStuff/README.Menu'\" unpacked with wrong size! fi # end of 'xtroff/XtStuff/README.Menu' fi if test -f 'xtroff/XtStuff/Window.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'xtroff/XtStuff/Window.c'\" else echo shar: Extracting \"'xtroff/XtStuff/Window.c'\" $3443 characters$ sed "s/^X//" >'xtroff/XtStuff/Window.c' <<'END_OF_FILE' X#ifndef lint Xstatic char rcsid[] = "$Header: Window.c,v 1.2 89/04/21 03:30:12 xwindows Exp $"; X#endif lint X X/* X * Window.c - Window widget X * X * Author: Chris Peterson X * M.I.T. X * Bldg. E40 - Project Athena X * 77 Massachussets Ave. X * Cambridge, MA 02139 X * X * Date: Tue Oct 27 1987 X * X * Based upon the label widget by Charles Haynes. X */ X X/* X * This is the window widget, its purpose is to allow windows to be X * used with the toolkit. I has a foreground color, as core does not X * and it is best if this resource is owned by the widget. X * It will also add a pixmap to the background of your window. X * X * Chris Peterson - 2/9/88 X */ X X#include <X11/IntrinsicP.h> X#include "Window.h" X#include "WindowP.h" X#include <X11/StringDefs.h> X X/**************************************************************** X * X * Full class record constant X * X ****************************************************************/ X X/* Private Data */ X Xstatic XtResource resources[] = { X {XtNpixmap, XtCpixmap, XtRString, sizeof(caddr_t), X XtOffset(WindowWidget, window.pixmap), XtRString, (caddr_t) NULL}, X {XtNforeground, XtCForeground, XtRPixel, sizeof(Pixel), X XtOffset(WindowWidget, window.foreground), XtRString, "Black"}, X}; X Xstatic void Realize(); X XWindowClassRec windowClassRec = { X { X/* core_class fields */ X /* superclass */ (WidgetClass) &widgetClassRec, X /* class_name */ "Window", X /* widget_size */ sizeof(WindowRec), X /* class_initialize */ NULL, X /* class_part_init */ NULL, X /* class_inited */ FALSE, X /* initialize */ NULL, X /* initialize_hook */ NULL, X /* realize */ Realize, X /* actions */ NULL, X /* num_actions */ 0, X /* resources */ resources, X /* num_resources */ XtNumber(resources), X /* xrm_class */ NULLQUARK, X /* compress_motion */ TRUE, X /* compress_exposure */ TRUE, X /* compress_enterleave*/ TRUE, X /* visible_interest */ FALSE, X /* destroy */ NULL, X /* resize */ NULL, X /* expose */ NULL, X /* set_values */ NULL, X /* set_values_hook */ NULL, X /* set_values_almost */ XtInheritSetValuesAlmost, X /* get_values_hook */ NULL, X /* accept_focus */ NULL, X /* version */ XtVersion, X /* callback_private */ NULL, X /* tm_table */ NULL, X /* query_geometry */ NULL, X#ifdef XtCAccelerators X /* display_accelerator*/ XtInheritDisplayAccelerator, X /* extension */ NULL X#endif /* XtCAccelerators */ X } X}; X XWidgetClass windowWidgetClass = (WidgetClass)&windowClassRec; X X/**************************************************************** X * X * Private Procedures X * X ****************************************************************/ X Xstatic void Realize(w, valueMask, attributes) X register Widget w; X Mask *valueMask; X XSetWindowAttributes *attributes; X{ X WindowWidget lw = (WindowWidget)w; X if (lw->window.pixmap != NULL) { X *valueMask |= CWBackPixmap; X *valueMask &= ~CWBackPixel; X attributes->background_pixmap = lw->window.pixmap; X } X X XtCreateWindow(w, (Cardinal) InputOutput, (Visual *)CopyFromParent, X *valueMask, attributes); X} /* Realize */ END_OF_FILE if test 3443 -ne `wc -c <'xtroff/XtStuff/Window.c'`; then echo shar: \"'xtroff/XtStuff/Window.c'\" unpacked with wrong size! fi # end of 'xtroff/XtStuff/Window.c' fi if test -f 'xtroff/bitmaps/ditroff.bm' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'xtroff/bitmaps/ditroff.bm'\" else echo shar: Extracting \"'xtroff/bitmaps/ditroff.bm'\" $3369 characters$ sed "s/^X//" >'xtroff/bitmaps/ditroff.bm' <<'END_OF_FILE' X#define ditroff_width 64 X#define ditroff_height 64 Xstatic char ditroff_bits[] = { X 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0xff, 0xff, X 0xff, 0xff, 0x01, 0x00, 0x00, 0x01, 0x00, 0x00, 0xf0, 0x3f, 0x01, 0x00, X 0x00, 0x01, 0x88, 0x88, 0x0c, 0xc0, 0x01, 0x00, 0x00, 0x01, 0x10, 0x11, X 0x83, 0x03, 0x07, 0x00, 0x00, 0x01, 0x44, 0xc4, 0x80, 0x03, 0x18, 0x00, X 0x00, 0x01, 0x20, 0x22, 0x80, 0x03, 0x20, 0x00, 0x00, 0x01, 0x00, 0x18, X 0xc0, 0x07, 0xc0, 0x00, 0x00, 0x01, 0x00, 0x04, 0xc0, 0x07, 0x00, 0x01, X 0x00, 0x41, 0x44, 0x06, 0xc0, 0x07, 0x00, 0x02, 0x00, 0x21, 0x22, 0x02, X 0xe0, 0x0f, 0x00, 0x02, 0x00, 0x89, 0x88, 0x01, 0xe0, 0x0f, 0x00, 0x04, X 0x00, 0x11, 0x91, 0x01, 0xf0, 0x1f, 0x00, 0x08, 0x00, 0x01, 0xc0, 0x00, X 0x30, 0x1f, 0x00, 0x08, 0x00, 0x01, 0x62, 0x00, 0x30, 0x1f, 0x00, 0x10, X 0x00, 0x89, 0x48, 0x00, 0x38, 0x3f, 0x00, 0x10, 0x00, 0x11, 0x31, 0x00, X 0x18, 0x3e, 0x00, 0x20, 0x00, 0x41, 0x24, 0x00, 0x1c, 0x7e, 0x00, 0x20, X 0x00, 0x21, 0x22, 0x00, 0x0c, 0x7c, 0x00, 0x20, 0x00, 0x01, 0x10, 0x00, X 0x0c, 0x7c, 0x00, 0x40, 0x00, 0x01, 0x10, 0x00, 0x0e, 0xfc, 0x00, 0x40, X 0x00, 0x41, 0x14, 0x00, 0x06, 0xf8, 0x00, 0x40, 0x00, 0x21, 0x12, 0x00, X 0xff, 0xff, 0x01, 0x40, 0x00, 0x89, 0x18, 0x00, 0xff, 0xff, 0x01, 0x40, X 0x00, 0x11, 0x11, 0x00, 0x03, 0xf0, 0x01, 0x40, 0x00, 0x41, 0x10, 0x80, X 0x03, 0xf0, 0x03, 0x40, 0x00, 0x01, 0x10, 0x80, 0x01, 0xe0, 0x03, 0x40, X 0x00, 0x89, 0x18, 0x80, 0x01, 0xe0, 0x03, 0x40, 0x00, 0x11, 0x31, 0xc0, X 0x01, 0xe0, 0x07, 0x20, 0x00, 0x41, 0x24, 0xc0, 0x00, 0xc0, 0x07, 0x20, X 0x00, 0x21, 0x22, 0xf0, 0x00, 0xc0, 0x0f, 0x20, 0x00, 0x01, 0x40, 0xfe, X 0x07, 0xf8, 0xff, 0x10, 0x00, 0x11, 0x51, 0xfe, 0x07, 0xf8, 0xff, 0x10, X 0x00, 0x41, 0xc4, 0x00, 0x00, 0x00, 0x00, 0x18, 0x00, 0x21, 0xa2, 0x00, X 0x00, 0x00, 0x00, 0x38, 0x00, 0x89, 0x88, 0x01, 0x00, 0x00, 0x00, 0x7c, X 0x00, 0x11, 0x11, 0x03, 0x00, 0x00, 0x00, 0xfe, 0x00, 0x01, 0x00, 0x06, X 0x00, 0x00, 0x00, 0xfe, 0x00, 0x21, 0x02, 0x06, 0x00, 0x00, 0x00, 0xff, X 0x00, 0x89, 0x88, 0x18, 0x00, 0x00, 0xc0, 0xff, 0x00, 0x11, 0x11, 0x31, X 0x00, 0x00, 0xe0, 0xff, 0x00, 0x41, 0x44, 0xc0, 0x00, 0x00, 0xf8, 0xff, X 0x00, 0x01, 0x00, 0x00, 0x03, 0x00, 0xff, 0xff, 0x00, 0x09, 0x88, 0x88, X 0x1c, 0xc0, 0xf1, 0xff, 0x00, 0x11, 0x11, 0x11, 0xf1, 0x3f, 0xe1, 0xff, X 0x00, 0x41, 0x44, 0x44, 0x44, 0x04, 0x81, 0xff, 0x00, 0x21, 0x02, 0x22, X 0x20, 0x22, 0x01, 0xff, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x01, 0xfe, X 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x01, 0xf8, 0x00, 0xff, 0xff, 0xff, X 0xff, 0xff, 0x01, 0xf0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, X 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x00, 0x07, 0x02, 0x01, X 0x00, 0xc0, 0x60, 0x00, 0x00, 0x09, 0x00, 0x01, 0x00, 0x20, 0x10, 0x00, X 0x00, 0x91, 0xc3, 0xa7, 0xe1, 0x20, 0x10, 0x00, 0x00, 0x11, 0x02, 0x61, X 0x12, 0xf9, 0x7c, 0x00, 0x00, 0x11, 0x02, 0x21, 0x10, 0x21, 0x10, 0x00, X 0x00, 0x11, 0x02, 0x21, 0x10, 0x21, 0x10, 0x00, 0x00, 0x11, 0x02, 0x21, X 0x10, 0x21, 0x10, 0x00, 0x00, 0x09, 0x02, 0x21, 0x10, 0x21, 0x10, 0x00, X 0x00, 0x07, 0x02, 0x26, 0xe0, 0x20, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, X 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, X 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}; END_OF_FILE if test 3369 -ne `wc -c <'xtroff/bitmaps/ditroff.bm'`; then echo shar: \"'xtroff/bitmaps/ditroff.bm'\" unpacked with wrong size! fi # end of 'xtroff/bitmaps/ditroff.bm' fi if test -f 'xtroff/devpsc/README.char' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'xtroff/devpsc/README.char'\" else echo shar: Extracting \"'xtroff/devpsc/README.char'\" $2665 characters$ sed "s/^X//" >'xtroff/devpsc/README.char' <<'END_OF_FILE' Xlocal/fonts/bdf/75dpi/devpsc/R 89/01/01. d. a. cahlander XNeWS collating sequence X 32-127 ascii characters X 128-159 installation dependant X 160-255 PostScript sequence X 256-319 ISO Latin 1 sequence X 320-511 installation dependant X X32 space X33 exclam X34 quotedbl X35 numbersign X36 dollar X37 percent X38 ampersand X39 quoteright X40 parenleft X41 parenright X42 asterisk X43 plus X44 comma X45 hyphen X46 period X47 slash X48 zero X49 one X50 two X51 three X52 four X53 five X54 six X55 seven X56 eight X57 nine X58 colon X59 semicolon X60 less X61 equal X62 greater X63 question X64 at X65 A X66 B X67 C X68 D X69 E X70 F X71 G X72 H X73 I X74 J X75 K X76 L X77 M X78 N X79 O X80 P X81 Q X82 R X83 S X84 T X85 U X86 V X87 W X88 X X89 Y X90 Z X91 bracketleft X92 backslash X93 bracketright X94 asciicircum X95 underscore X96 quoteleft X97 a X98 b X99 c X100 d X101 e X102 f X103 g X104 h X105 i X106 j X107 k X108 l X109 m X110 n X111 o X112 p X113 q X114 r X115 s X116 t X117 u X118 v X119 w X120 x X121 y X122 z X123 braceleft X124 bar X125 braceright X126 asciitilde X129 onequarter X130 onehalf X131 threequarters X161 exclamdown X162 cent X163 sterling X164 fraction X165 yen X166 florin X167 section X168 currency X169 quotesingle X170 quotedblleft X171 guillemotleft X172 guilsinglleft X173 guilsinglright X174 fi X175 fl X177 endash X178 dagger X179 daggerdbl X180 periodcentered X182 paragraph X183 bullet X184 quotesinglbase X185 quotedblbase X186 quotedblright X187 guillemotright X188 ellipsis X189 perthousand X191 questiondown X193 grave X194 acute X195 circumflex X196 tilde X197 macron X198 breve X199 dotaccent X200 dieresis X202 ring X203 cedilla X205 hungarumlaut X206 ogonek X207 caron X208 emdash X225 AE X227 ordfeminine X232 Lslash X233 Oslash X234 OE X235 ordmasculine X241 ae X245 dotlessi X248 lslash X249 oslash X250 oe X251 germandbls X256 Aacute X257 Acircumflex X258 Adieresis X259 Agrave X260 Aring X261 Atilde X262 Ccedilla X263 Eacute X264 Ecircumflex X265 Edieresis X266 Egrave X267 Iacute X268 Icircumflex X269 Idieresis X270 Igrave X271 Ntilde X272 Oacute X273 Ocircumflex X274 Odieresis X275 Ograve X276 Otilde X277 Scaron X278 Uacute X279 Ucircumflex X280 Udieresis X281 Ugrave X282 Ydieresis X283 Zcaron X284 aacute X285 acircumflex X286 adieresis X287 agrave X288 aring X289 atilde X290 ccedilla X291 eacute X292 ecircumflex X293 edieresis X294 egrave X295 iacute X296 icircumflex X297 idieresis X298 igrave X299 ntilde X300 oacute X301 ocircumflex X302 odieresis X303 ograve X304 otilde X305 scaron X306 uacute X307 ucircumflex X308 udieresis X309 ugrave X310 ydieresis X311 zcaron X320 Eth X321 Thorn X322 Yacute X323 brokenbar X324 copyright X325 degree X326 divide X327 eth X328 logicalnot X329 minus X330 mu X331 multiply X332 onesuperior X333 plusminus X334 registered X335 thorn X336 threesuperior X337 trademark X338 twosuperior X339 yacute END_OF_FILE if test 2665 -ne `wc -c <'xtroff/devpsc/README.char'`; then echo shar: \"'xtroff/devpsc/README.char'\" unpacked with wrong size! fi # end of 'xtroff/devpsc/README.char' fi if test -f 'xtroff/devpsc/README.note' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'xtroff/devpsc/README.note'\" else echo shar: Extracting \"'xtroff/devpsc/README.note'\" $2665 characters$ sed "s/^X//" >'xtroff/devpsc/README.note' <<'END_OF_FILE' Xlocal/fonts/bdf/75dpi/devpsc/R 89/01/01. d. a. cahlander XNeWS collating sequence X 32-127 ascii characters X 128-159 installation dependant X 160-255 PostScript sequence X 256-319 ISO Latin 1 sequence X 320-511 installation dependant X X32 space X33 exclam X34 quotedbl X35 numbersign X36 dollar X37 percent X38 ampersand X39 quoteright X40 parenleft X41 parenright X42 asterisk X43 plus X44 comma X45 hyphen X46 period X47 slash X48 zero X49 one X50 two X51 three X52 four X53 five X54 six X55 seven X56 eight X57 nine X58 colon X59 semicolon X60 less X61 equal X62 greater X63 question X64 at X65 A X66 B X67 C X68 D X69 E X70 F X71 G X72 H X73 I X74 J X75 K X76 L X77 M X78 N X79 O X80 P X81 Q X82 R X83 S X84 T X85 U X86 V X87 W X88 X X89 Y X90 Z X91 bracketleft X92 backslash X93 bracketright X94 asciicircum X95 underscore X96 quoteleft X97 a X98 b X99 c X100 d X101 e X102 f X103 g X104 h X105 i X106 j X107 k X108 l X109 m X110 n X111 o X112 p X113 q X114 r X115 s X116 t X117 u X118 v X119 w X120 x X121 y X122 z X123 braceleft X124 bar X125 braceright X126 asciitilde X129 onequarter X130 onehalf X131 threequarters X161 exclamdown X162 cent X163 sterling X164 fraction X165 yen X166 florin X167 section X168 currency X169 quotesingle X170 quotedblleft X171 guillemotleft X172 guilsinglleft X173 guilsinglright X174 fi X175 fl X177 endash X178 dagger X179 daggerdbl X180 periodcentered X182 paragraph X183 bullet X184 quotesinglbase X185 quotedblbase X186 quotedblright X187 guillemotright X188 ellipsis X189 perthousand X191 questiondown X193 grave X194 acute X195 circumflex X196 tilde X197 macron X198 breve X199 dotaccent X200 dieresis X202 ring X203 cedilla X205 hungarumlaut X206 ogonek X207 caron X208 emdash X225 AE X227 ordfeminine X232 Lslash X233 Oslash X234 OE X235 ordmasculine X241 ae X245 dotlessi X248 lslash X249 oslash X250 oe X251 germandbls X256 Aacute X257 Acircumflex X258 Adieresis X259 Agrave X260 Aring X261 Atilde X262 Ccedilla X263 Eacute X264 Ecircumflex X265 Edieresis X266 Egrave X267 Iacute X268 Icircumflex X269 Idieresis X270 Igrave X271 Ntilde X272 Oacute X273 Ocircumflex X274 Odieresis X275 Ograve X276 Otilde X277 Scaron X278 Uacute X279 Ucircumflex X280 Udieresis X281 Ugrave X282 Ydieresis X283 Zcaron X284 aacute X285 acircumflex X286 adieresis X287 agrave X288 aring X289 atilde X290 ccedilla X291 eacute X292 ecircumflex X293 edieresis X294 egrave X295 iacute X296 icircumflex X297 idieresis X298 igrave X299 ntilde X300 oacute X301 ocircumflex X302 odieresis X303 ograve X304 otilde X305 scaron X306 uacute X307 ucircumflex X308 udieresis X309 ugrave X310 ydieresis X311 zcaron X320 Eth X321 Thorn X322 Yacute X323 brokenbar X324 copyright X325 degree X326 divide X327 eth X328 logicalnot X329 minus X330 mu X331 multiply X332 onesuperior X333 plusminus X334 registered X335 thorn X336 threesuperior X337 trademark X338 twosuperior X339 yacute END_OF_FILE if test 2665 -ne `wc -c <'xtroff/devpsc/README.note'`; then echo shar: \"'xtroff/devpsc/README.note'\" unpacked with wrong size! fi # end of 'xtroff/devpsc/README.note' fi if test -f 'xtroff/devpsc/S.aux' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'xtroff/devpsc/S.aux'\" else echo shar: Extracting \"'xtroff/devpsc/S.aux'\" $1977 characters$ sed "s/^X//" >'xtroff/devpsc/S.aux' <<'END_OF_FILE' X33 333 0 X34 713 0 X35 500 0 X36 549 0 X37 833 0 X38 778 0 X39 439 0 X40 333 0 X41 333 0 X42 500 0 X43 549 0 X44 250 0 X45 549 0 X46 250 0 X47 278 0 X48 500 0 X49 500 0 X50 500 0 X51 500 0 X52 500 0 X53 500 0 X54 500 0 X55 500 0 X56 500 0 X57 500 0 X58 278 0 X59 278 0 X60 549 0 X61 549 0 X62 549 0 X63 444 0 X64 549 0 X65 722 0 X66 667 0 X67 722 0 X68 612 0 X69 611 0 X70 763 0 X71 603 0 X72 722 0 X73 333 0 X74 631 0 X75 722 0 X76 686 0 X77 889 0 X78 722 0 X79 722 0 X80 768 0 X81 741 0 X82 556 0 X83 592 0 X84 611 0 X85 690 0 X86 439 0 X87 768 0 X88 645 0 X89 795 0 X90 611 0 X91 333 0 X92 863 0 X93 333 0 X94 658 0 X95 500 0 X96 500 0 X97 631 0 X98 549 0 X99 549 0 X100 494 0 X101 439 0 X102 521 0 X103 411 0 X104 603 0 X105 329 0 X106 603 0 X107 549 0 X108 549 0 X109 576 0 X110 521 0 X111 549 0 X112 549 0 X113 521 0 X114 549 0 X115 603 0 X116 439 0 X117 576 0 X118 713 0 X119 686 0 X120 493 0 X121 686 0 X122 494 0 X123 480 0 X124 200 0 X125 480 0 X126 549 0 X161 620 0 X162 247 0 X163 549 0 X164 167 0 X165 713 0 X166 500 0 X167 753 0 X168 753 0 X169 753 0 X170 753 0 X171 1042 0 X172 987 0 X173 603 0 X174 987 0 X175 603 0 X176 400 0 X177 549 0 X178 411 0 X179 549 0 X180 549 0 X181 713 0 X182 494 0 X183 460 0 X184 549 0 X185 549 0 X186 549 0 X187 549 0 X188 1000 0 X189 603 0 X190 1000 0 X191 658 0 X192 823 0 X193 686 0 X194 795 0 X195 987 0 X196 768 0 X197 768 0 X198 823 0 X199 768 0 X200 768 0 X201 713 0 X202 713 0 X203 713 0 X204 713 0 X205 713 0 X206 713 0 X207 713 0 X208 768 0 X209 713 0 X210 790 0 X211 790 0 X212 890 0 X213 823 0 X214 549 0 X215 250 0 X216 713 0 X217 603 0 X218 603 0 X219 1042 0 X220 987 0 X221 603 0 X222 987 0 X223 603 0 X224 494 0 X225 329 0 X226 790 0 X227 790 0 X228 786 0 X229 713 0 X230 384 0 X231 384 0 X232 384 0 X233 384 0 X234 384 0 X235 384 0 X236 494 0 X237 494 0 X238 494 0 X239 494 0 X240 790 0 X241 329 0 X242 274 0 X243 686 0 X244 686 0 X245 686 0 X246 384 0 X247 384 0 X248 384 0 X249 384 0 X250 384 0 X251 384 0 X252 494 0 X253 494 0 X254 494 0 X133 722 1 X132 722 1 X134 790 1 X135 200 1 X137 500 1 X148 384 1 X136 384 1 X146 384 1 X141 494 1 X144 494 1 X142 494 1 X147 384 1 X145 384 1 X139 494 1 X143 494 1 X140 494 1 END_OF_FILE if test 1977 -ne `wc -c <'xtroff/devpsc/S.aux'`; then echo shar: \"'xtroff/devpsc/S.aux'\" unpacked with wrong size! fi # end of 'xtroff/devpsc/S.aux' fi if test -f 'xtroff/devsun/db' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'xtroff/devsun/db'\" else echo shar: Extracting \"'xtroff/devsun/db'\" $2001 characters$ sed "s/^X//" >'xtroff/devsun/db' <<'END_OF_FILE' X# Font /usr/lib/vfont/delegate.b.12, max width 17, max height 25 Xname db Xspacewidth 51 X# char width u/d octal Xcharset X\| 51 0 015 X\^ 0 0 015 Xda 51 0 01 X*a 51 0 02 X*b 51 1 03 Xan 51 0 04 Xno 51 0 05 Xmo 51 0 06 X*p 51 0 07 X*l 51 0 010 X*g 51 2 011 X*d 51 2 012 Xua 51 0 013 X+- 51 2 014 Xif 51 0 016 Xpd 51 0 017 Xsb 51 0 020 Xsp 51 0 021 Xca 51 0 022 Xcu 51 0 023 Xfa 51 0 024 Xte 51 0 025 XOX 51 0 026 X<> 51 0 027 X<- 51 0 030 X-> 51 0 031 X!= 51 0 032 Xap 51 0 033 X<= 51 0 034 X>= 51 0 035 X== 51 0 036 Xor 51 0 037 X! 51 0 041 X" 51 0 042 X# 51 0 043 X$ 51 0 044 X% 51 0 045 X& 51 0 046 X' 51 0 047 X( 51 0 050 X) 51 0 051 X* 51 0 052 X+ 51 0 053 X, 51 1 054 X- 51 0 055 Xhy " X\- " X. 51 0 056 X/ 51 0 057 X0 51 0 060 X1 51 0 061 X2 51 0 062 X3 51 0 063 X4 51 0 064 X5 51 0 065 X6 51 0 066 X7 51 0 067 X8 51 0 070 X9 51 0 071 X: 51 0 072 X; 51 1 073 X< 51 0 074 X= 51 0 075 X> 51 0 076 X? 51 0 077 X@ 51 0 0100 XA 51 0 0101 XB 51 0 0102 XC 51 0 0103 XD 51 0 0104 XE 51 0 0105 XF 51 0 0106 XG 51 0 0107 XH 51 0 0110 XI 51 0 0111 XJ 51 0 0112 XK 51 0 0113 XL 51 0 0114 XM 51 0 0115 XN 51 0 0116 XO 51 0 0117 XP 51 0 0120 XQ 51 1 0121 XR 51 0 0122 XS 51 0 0123 XT 51 0 0124 XU 51 0 0125 XV 51 0 0126 XW 51 0 0127 XX 51 0 0130 XY 51 0 0131 XZ 51 0 0132 X[ 51 0 0133 X\ 51 0 0134 X] 51 0 0135 X^ 51 0 0136 X_ 51 0 0137 X\_ " X` 51 0 0140 Xa 51 0 0141 Xb 51 0 0142 Xc 51 0 0143 Xd 51 0 0144 Xe 51 0 0145 Xf 51 0 0146 Xg 51 1 0147 Xh 51 0 0150 Xi 51 0 0151 Xj 51 1 0152 Xk 51 0 0153 Xl 51 0 0154 Xm 51 0 0155 Xn 51 0 0156 Xo 51 0 0157 Xp 51 1 0160 Xq 51 1 0161 Xr 51 0 0162 Xs 51 0 0163 Xt 51 0 0164 Xu 51 0 0165 Xv 51 0 0166 Xw 51 0 0167 Xx 51 0 0170 Xy 51 1 0171 Xz 51 0 0172 X{ 51 0 0173 X| 51 0 0174 X} 51 0 0175 X~ 51 0 0176 X?? 51 1 0177 END_OF_FILE if test 2001 -ne `wc -c <'xtroff/devsun/db'`; then echo shar: \"'xtroff/devsun/db'\" unpacked with wrong size! fi # end of 'xtroff/devsun/db' fi if test -f 'xtroff/devsun/dr' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'xtroff/devsun/dr'\" else echo shar: Extracting \"'xtroff/devsun/dr'\" $2001 characters$ sed "s/^X//" >'xtroff/devsun/dr' <<'END_OF_FILE' X# Font /usr/lib/vfont/delegate.r.12, max width 17, max height 25 Xname dr Xspacewidth 51 X# char width u/d octal Xcharset X\| 51 0 015 X\^ 0 0 015 Xda 51 3 01 X*a 51 3 02 X*b 51 3 03 Xan 51 3 04 Xno 51 3 05 Xmo 51 3 06 X*p 51 3 07 X*l 51 3 010 X*g 51 3 011 X*d 51 3 012 Xua 51 3 013 X+- 51 3 014 Xif 51 3 016 Xpd 51 3 017 Xsb 51 3 020 Xsp 51 3 021 Xca 51 3 022 Xcu 51 3 023 Xfa 51 3 024 Xte 51 3 025 XOX 51 3 026 X<> 51 3 027 X<- 51 3 030 X-> 51 3 031 X!= 51 3 032 Xap 51 3 033 X<= 51 3 034 X>= 51 3 035 X== 51 3 036 Xor 51 3 037 X! 51 3 041 X" 51 3 042 X# 51 3 043 X$ 51 3 044 X% 51 3 045 X& 51 3 046 X' 51 3 047 X( 51 3 050 X) 51 3 051 X* 51 3 052 X+ 51 3 053 X, 51 3 054 X- 51 3 055 Xhy " X\- " X. 51 3 056 X/ 51 3 057 X0 51 3 060 X1 51 3 061 X2 51 3 062 X3 51 3 063 X4 51 3 064 X5 51 3 065 X6 51 3 066 X7 51 3 067 X8 51 3 070 X9 51 3 071 X: 51 3 072 X; 51 3 073 X< 51 3 074 X= 51 3 075 X> 51 3 076 X? 51 3 077 X@ 51 3 0100 XA 51 3 0101 XB 51 3 0102 XC 51 3 0103 XD 51 3 0104 XE 51 3 0105 XF 51 3 0106 XG 51 3 0107 XH 51 3 0110 XI 51 3 0111 XJ 51 3 0112 XK 51 3 0113 XL 51 3 0114 XM 51 3 0115 XN 51 3 0116 XO 51 3 0117 XP 51 3 0120 XQ 51 3 0121 XR 51 3 0122 XS 51 3 0123 XT 51 3 0124 XU 51 3 0125 XV 51 3 0126 XW 51 3 0127 XX 51 3 0130 XY 51 3 0131 XZ 51 3 0132 X[ 51 3 0133 X\ 51 3 0134 X] 51 3 0135 X^ 51 3 0136 X_ 51 3 0137 X\_ " X` 51 3 0140 Xa 51 3 0141 Xb 51 3 0142 Xc 51 3 0143 Xd 51 3 0144 Xe 51 3 0145 Xf 51 3 0146 Xg 51 3 0147 Xh 51 3 0150 Xi 51 3 0151 Xj 51 3 0152 Xk 51 3 0153 Xl 51 3 0154 Xm 51 3 0155 Xn 51 3 0156 Xo 51 3 0157 Xp 51 3 0160 Xq 51 3 0161 Xr 51 3 0162 Xs 51 3 0163 Xt 51 3 0164 Xu 51 3 0165 Xv 51 3 0166 Xw 51 3 0167 Xx 51 3 0170 Xy 51 3 0171 Xz 51 3 0172 X{ 51 3 0173 X| 51 3 0174 X} 51 3 0175 X~ 51 3 0176 X?? 51 3 0177 END_OF_FILE if test 2001 -ne `wc -c <'xtroff/devsun/dr'`; then echo shar: \"'xtroff/devsun/dr'\" unpacked with wrong size! fi # end of 'xtroff/devsun/dr' fi if test -f 'xtroff/devsun/gf' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'xtroff/devsun/gf'\" else echo shar: Extracting \"'xtroff/devsun/gf'\" $2004 characters$ sed "s/^X//" >'xtroff/devsun/gf' <<'END_OF_FILE' X# Font /usr/lib/vfont/graphics.14, max width 35, max height 16 Xname gf Xspacewidth 41 X# char width u/d octal Xcharset X\| 41 0 040 X\^ 0 0 040 Xda 41 3 01 X*a 41 0 02 X*b 41 3 03 Xan 41 0 04 Xno 41 3 05 Xmo 41 3 06 X*p 41 1 07 X*l 41 3 010 X*g 41 2 011 X*d 41 2 012 Xua 41 2 013 X+- 41 2 014 XO+ 41 2 015 Xif 41 0 016 Xpd 41 2 017 Xsb 41 1 020 Xsp 41 1 021 Xca 41 3 022 Xcu 41 3 023 Xfa 41 2 024 Xte 41 3 025 XOX 41 3 026 X<> 41 0 027 X<- 41 0 030 X-> 41 0 031 X!= 41 3 032 Xap 41 0 033 X<= 41 1 034 X>= 41 1 035 X== 41 2 036 Xor 41 0 037 X! 41 2 041 X" 41 2 042 X# 41 0 043 X$ 41 2 044 X% 41 2 045 X& 41 3 046 X' 41 2 047 X( 41 2 050 X) 41 2 051 X* 41 2 052 X+ 41 0 053 X, 41 0 054 X- 41 0 055 X\- " X. 41 0 056 X/ 41 3 057 X0 41 2 060 X1 41 2 061 X2 41 2 062 X3 41 2 063 X4 41 2 064 X5 41 2 065 X6 41 2 066 X7 41 2 067 X8 41 2 070 X9 41 2 071 X: 41 0 072 X; 41 0 073 X< 41 0 074 X= 41 0 075 X> 41 0 076 X? 41 2 077 X@ 41 0 0100 XA 41 2 0101 XB 41 2 0102 XC 41 2 0103 XD 41 2 0104 XE 41 2 0105 XF 41 2 0106 XG 41 2 0107 XH 41 2 0110 XI 41 2 0111 XJ 41 2 0112 XK 41 2 0113 XL 41 2 0114 XM 41 2 0115 XN 41 2 0116 XO 41 2 0117 XP 41 2 0120 XQ 41 2 0121 XR 41 2 0122 XS 41 2 0123 XT 41 2 0124 XU 41 2 0125 XV 41 2 0126 XW 41 2 0127 XX 41 2 0130 XY 41 2 0131 XZ 41 2 0132 X[ 41 2 0133 X\ 41 3 0134 X] 41 2 0135 X^ 41 3 0136 X_ 41 0 0137 X` 41 2 0140 Xa 41 0 0141 Xb 41 2 0142 Xc 41 0 0143 Xd 41 2 0144 Xe 41 0 0145 Xf 41 2 0146 Xg 41 0 0147 Xh 41 2 0150 Xi 41 2 0151 Xj 41 2 0152 Xk 41 2 0153 Xl 41 2 0154 Xm 41 0 0155 Xn 41 0 0156 Xo 41 0 0157 Xp 41 0 0160 Xq 41 0 0161 Xr 41 0 0162 Xs 41 0 0163 Xt 41 2 0164 Xu 41 0 0165 Xv 41 0 0166 Xw 41 0 0167 Xx 41 0 0170 Xy 41 0 0171 Xz 41 0 0172 X{ 41 2 0173 X| 41 2 0174 X} 41 2 0175 X~ 41 2 0176 X?? 41 2 0177 END_OF_FILE if test 2004 -ne `wc -c <'xtroff/devsun/gf'`; then echo shar: \"'xtroff/devsun/gf'\" unpacked with wrong size! fi # end of 'xtroff/devsun/gf' fi if test -f 'xtroff/fixpoint.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'xtroff/fixpoint.c'\" else echo shar: Extracting \"'xtroff/fixpoint.c'\" $3191 characters$ sed "s/^X//" >'xtroff/fixpoint.c' <<'END_OF_FILE' X/* X * SunTroff - A program to display the output of Device Independent X * Troff as a window on a Sun Workstation. X * X * Authors - The original version of this program was written by X * Richard L. Hyde (Purdue) X * David Slattengren (Berkeley) X * It was nearly all rewritten, cleaned up and a more elegant X * user interface installed by X * Malcolm Slaney (Schlumberger Palo Alto Research) X * X * Legalese - This command was developed as an independent project X * to satisfy a need of the author. This program may contain X * bugs and the user is cautioned to independently verify that X * the program is suitable for the user's intended purpose. X * The program is made available on an ``as is'' basis with X * all faults and without any implied or expressed warranties X * or support from either the author, Malcolm Slaney, or X * Schlumberger Palo Alto Research Laboratory. X * X * I am putting this program in the public domain. You are X * free to use it as you wish. In return I ask two things. X * First, that you do not remove the names of the authors X * from this work. Secondly, if you make changes or X * improvements to this program that you pass these back to X * the author so that everybody can benefit from the X * improvements. X * X * Malcolm Slaney (December 1986) X * Schlumberger Palo Alto Research X * 3340 Hillview Avenue X * Palo Alto, CA 94304 X * (415) 496-4669 X * spar!malcolm@decwrl.dec.com X * malcolm@ecn.purdue.edu X * malcolm@spar.slb.com (Someday) X */ X X/* X * X * "long" fixed-point arithmetic package library X * X * This DEPENDS on a sign-filled arithmetic right-shift X */ X X#include "fixpoint.h" X X X#define F_INTEGER (((1<<F_INTSHFT)-1)<<F_INTSHFT) X#define F_FRACTION ((1<<F_INTSHFT)-1) X#define F_FRACT ((1<<F_QSHFT)-1) X#define F_SIGN_BIT (1 << ((F_INTSHFT * 2) - 1)) X X X/*----------------------------------------------------------------------------* X | Routine: fmult (fixed x, fixed y) X | X | Results: returns fixed-point product of x and y (fixed-point numbers) X | X | Bugs: Requires arithmetic right-shift X *----------------------------------------------------------------------------*/ X Xfixed fmult(x, y) Xregister fixed x; Xregister fixed y; X{ X return X ((x >> F_QSHFT) * (y >> F_QSHFT)) /* int * int */ X + (((x >> F_QSHFT) * (y & F_FRACT)) >> F_QSHFT) /* int * fract */ X + (((y >> F_QSHFT) * (x & F_FRACT)) >> F_QSHFT); /* fract * int */ X} X X X/*----------------------------------------------------------------------------* X | Routine: fdiv (fixed x, fixed y) X | X | Results: returns the fixed-point quotient of x / y (fixed-point numbers) X | X | Bugs: returns largest possible numbers on divide by zero. X | Requires arithmetic right-shift X *----------------------------------------------------------------------------*/ X Xfixed fdiv(x, y) Xregister fixed x; Xregister fixed y; X{ X register int i = F_INTSHFT; X register fixed temp; X X if (y == 0) X return (x < 0 ? (fixed) F_SIGN_BIT : (fixed)~F_SIGN_BIT); X X while (((temp = x << 1) & F_SIGN_BIT) == (x & F_SIGN_BIT)) { X x = temp; X i--; X } X while (!(y & 1)) { X y >>= 1; X i--; X } X if(i<0) X return ((x / y) >> -i); X return ((x / y) << i); X} END_OF_FILE if test 3191 -ne `wc -c <'xtroff/fixpoint.c'`; then echo shar: \"'xtroff/fixpoint.c'\" unpacked with wrong size! fi # end of 'xtroff/fixpoint.c' fi if test -f 'xtroff/fontstuff/MakeImFonts' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'xtroff/fontstuff/MakeImFonts'\" else echo shar: Extracting \"'xtroff/fontstuff/MakeImFonts'\" $3513 characters$ sed "s/^X//" >'xtroff/fontstuff/MakeImFonts' <<'END_OF_FILE' X#!/bin/sh X# X# This file can be used to make all the reduced fonts needed X# by SunTroff. The RSTFONTS variable points to the location of X# the RST fonts provided by Imagen. Finally the SUNTROFF_FONTS X# variable points to the final location of the reduced fonts. X# The DEVICE variable is the name of the device used for Imagen X# typesetting. The actual location of the reduced imagen fonts X# will be $SUNTROFF_FONTS/$DEVICE. X# XRSTFONTS=${1-/usr/local/lib/imagen/fonts/rst} XSUNTROFF_FONTS=${2-/usr/local/lib/suntroff/devimp} XDEVICE=imp X X# X# Reduce fonts by 120/300 X# X# Because of scalech this number must be a TWO digit percentage!! X# XPERCENT=${3-40} Xdpi=120 X XXWIN=${4} Xif test x$XWIN != x ; then X if test $XWIN != suntroff ; then X XWIN=x X FC=${5-bdftosnf} X extension='.snf' X else X XWIN= X FC= X extension= X fi Xfi XDEVICE=${6-sun} X X# If you don't have the current directory in your path (.) then X# you will need to change the BIN_DIR variable to point to the X# location of this directory. Many thanks to Len at Sentry for X# pointing this potential problem out. X# XBIN_DIR=. X XTEMP=/tmp/font XTEMP2=/tmp/font2 X Xif [ ! -d $SUNTROFF_FONTS ] Xthen X mkdir $SUNTROFF_FONTS Xelse X echo Font Directory already in place. Xfi X X# X# Now create those fonts that we can make by renaming..... X# X Xfor i in `cd $RSTFONTS;echo [a-zA-Z]/[0-9] [a-zA-Z]/[0-9][0-9] \ X [a-zA-Z][a-zA-Z]/[0-9] [a-zA-Z][a-zA-Z]/[0-9][0-9]` Xdo X if [ -r $RSTFONTS/$i ] X then X Size=`echo $i | sed "s/.*\///"` X Font=`echo $i | sed "s/\/.*//"` X NewSize=`expr $Size \* 100 / $PERCENT` X if test x$XWIN != x ; then X fname=`echo $Font | tr A-Z a-z` X fontname=$DEVICE.$fname.$NewSize.$dpi X fname=$fname$NewSize.snf X else X fname=$Font.$NewSize X fi X if [ ! -r $SUNTROFF_FONTS/$fname ] X then X echo Converting $RSTFONTS/$i to \ X $SUNTROFF_FONTS/$fname X $BIN_DIR/rst2ch $RSTFONTS/$i > $TEMP X if [ x$XWIN = x ] ; then X $BIN_DIR/ch2vft $TEMP > \ X $SUNTROFF_FONTS/$fname X else X $BIN_DIR/ch2vft $TEMP > $TEMP2 X $BIN_DIR/vf2bdf $TEMP2 $NewSize | \ X sed 's?^FONT .*$?FONT '$fontname'?' | \ X $FC > $SUNTROFF_FONTS/$fname X fi X X fi X fi Xdone X X# X# Now create the fonts that we need to make by bit reduction. X# First check to see if we have a font "close enough". Close X# enough is defined here to be within one point size. X# Xfor i in `cd $RSTFONTS;echo [a-zA-Z]/[0-9] [a-zA-Z]/[0-9][0-9] \ X [a-zA-Z][a-zA-Z]/[0-9] [a-zA-Z][a-zA-Z]/[0-9][0-9]` Xdo X if [ -r $RSTFONTS/$i ] X then X Size=`echo $i | sed "s/.*\///"` X Font=`echo $i | sed "s/\/.*//"` X X if [ x$XWIN = x ] X then X f1=$SUNTROFF_FONTS/$Font.`expr $Size - 1` X f2=$SUNTROFF_FONTS/$Font.`expr $Size` X f3=$SUNTROFF_FONTS/$Font.`expr $Size + 1` X fname=$Font.$Size X else X Font=`echo $Font | tr A-Z a-z` X f1=$SUNTROFF_FONTS/$Font`expr $Size - 1`$extension X f2=$SUNTROFF_FONTS/$Font`expr $Size`$extension X f3=$SUNTROFF_FONTS/$Font`expr $Size + 1`$extension X fontname=$DEVICE.$Font.$Size.$dpi X fname=$Font$Size$extension X fi X X if [ -r $f1 -o -r $f2 -o -r $f3 ] X then X true X else X echo scaling and converting $RSTFONTS/$i to \ X $SUNTROFF_FONTS/$fname X $BIN_DIR/rst2ch $RSTFONTS/$i > $TEMP X $BIN_DIR/scalech -s$PERCENT $TEMP > $TEMP2 X if test x$XWIN = x ; then X $BIN_DIR/ch2vft $TEMP2 > $SUNTROFF_FONTS/$i X else X $BIN_DIR/ch2vft $TEMP2 > $TEMP X $BIN_DIR/vf2bdf $TEMP $Size | X sed 's?^FONT .*$?FONT '$fontname'?' | \ X $FC > $SUNTROFF_FONTS/$fname X fi X fi X fi Xdone Xif [ x$XWIN != x ]; then X mkfontdir $SUNTROFF_FONTS Xfi END_OF_FILE if test 3513 -ne `wc -c <'xtroff/fontstuff/MakeImFonts'`; then echo shar: \"'xtroff/fontstuff/MakeImFonts'\" unpacked with wrong size! fi # end of 'xtroff/fontstuff/MakeImFonts' fi if test -f 'xtroff/fontstuff/vft2ch.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'xtroff/fontstuff/vft2ch.c'\" else echo shar: Extracting \"'xtroff/fontstuff/vft2ch.c'\" $3342 characters$ sed "s/^X//" >'xtroff/fontstuff/vft2ch.c' <<'END_OF_FILE' X/* Font translation for vfont-style fonts to character format. X * X * Use: vft2ch fontfile [ character_list ] X * X * Reads "fontfile" from current directory (or if not found, X * from VFONTDIR defined below) and converts it to a character font format X * editable by real people, and convertable BACK to vfont format by the X * ch2rst program. Output goes to stdout. X */ X X#include <stdio.h> X#include <ctype.h> X#include <vfont.h> X X X#define DIRSIZ 256 X#define MAGICNO 0436 X X#ifndef VFONTDIR X#define VFONTDIR "/usr/lib/vfont" X#endif VFONTDIR X X Xstruct header FontHeader; Xstruct dispatch disptable[DIRSIZ]; X Xchar IName[100]; Xlong fbase; X Xunsigned char defascii[DIRSIZ]; Xunsigned char *charswanted = defascii; Xchar charbits[20000]; Xint height, width, bwidth; X X Xmain(argc,argv) Xint argc; Xchar **argv; X{ X int FID,i,j; X X if (argc < 2) X error("usage: %s filename", argv[0]); X X for (i=0; i<DIRSIZ; i++) X defascii[i] = i; X if (argc >= 3) X charswanted = (unsigned char *) argv[2]; X X sprintf(IName,"%s/%s", VFONTDIR, argv[1]); X if ((FID = open(argv[1],0)) < 0) X if ((FID = open(IName,0)) < 0) X error("Can't find %s", argv[1]); X X if (read(FID,&FontHeader,sizeof FontHeader) != sizeof FontHeader) X error("bad header in Font file."); X if (FontHeader.magic != MAGICNO) X error("magic number %o wrong", FontHeader.magic); X if (read(FID,&disptable[0],sizeof disptable) != sizeof disptable) X error("bad dispatch table in Font file"); X fbase = sizeof FontHeader + sizeof disptable; X X while (*argv[1] != '.' || *(argv[1]+1) < '0' || *(argv[1]+1) > '9') X (argv[1])++; X printf("fontheader\nsize 46\nmag 1000\ndesiz %d\n", atoi(*argv)); X printf("rot 0\ncadv 0\nladv 1\nid 0\nres 200\n"); X X for (i=0; i<DIRSIZ; i++) { X j = charswanted[i]; X if (i>0 && j==0) X break; X if (disptable[j].nbytes != 0) { X register int k, l; X register int left = disptable[j].left; X register int right = disptable[j].right; X register int up = disptable[j].up; X register int down = disptable[j].down; X X X printf(":%d, width = %d.01\n", j, disptable[j].width); X X lseek(FID, fbase+disptable[j].addr, 0); X read(FID, charbits, disptable[j].nbytes); X height = up + down; X width = left + right; X bwidth = (width+7)/8; X for (k = up; k < 0; k++) { X for (l = left; l < 0; l++) X pbit(l, k, l==left && k==up); X for (l = 0; l <= left; l++) X pbit(l, k, l==left && k==up); X while (l < width) X pbit(l++, k, 0); X printf("\n"); X } X for (k = 0; k <= up; k++) { X for (l = left; l < 0; l++) X pbit(l, k, l==left && k==up); X for (l = 0; l <= left; l++) X pbit(l, k, l==left && k==up); X while (l < width) X pbit(l++, k, 0); X printf("\n"); X } X while (k < height) { X for (l = left; l < 0; l++) X pbit(l, k, 0); X for (l = 0; l <= left; l++) X pbit(l, k, 0); X while (l < width) X pbit(l++, k, 0); X printf("\n"); X k++; X } X printf("\n"); X } X } X} X X X/*VARARGS1*/ Xerror(string, a1, a2, a3, a4) Xchar *string; X{ X fprintf(stderr, "vft2ch: "); X fprintf(stderr, string, a1, a2, a3, a4); X fprintf(stderr, "\n"); X exit(8); X} X X Xpbit(col, row, flag) Xint col, row, flag; X{ X if (col<0 || row<0 || row>=height || col>=width) { X printf(flag?"x":"."); X return; X } X if ((charbits[row*bwidth + (col>>3)] & 0xff) & (0x80 >> (col&7))) X printf(flag?"X":"@"); X else X printf(flag?"x":"."); X} END_OF_FILE if test 3342 -ne `wc -c <'xtroff/fontstuff/vft2ch.c'`; then echo shar: \"'xtroff/fontstuff/vft2ch.c'\" unpacked with wrong size! fi # end of 'xtroff/fontstuff/vft2ch.c' fi echo shar: End of archive 4 $of 18$. cp /dev/null ark4isdone MISSING="" for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 ; do if test ! -f ark${I}isdone ; then MISSING="${MISSING} ${I}" fi done if test "${MISSING}" = "" ; then echo You have unpacked all 18 archives. rm -f ark[1-9]isdone ark[1-9][0-9]isdone else echo You still need to unpack the following archives: echo " " ${MISSING} fi ## End of shell archive. exit 0