Usenet 1994 January

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

/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume15 / olvwm-3.0 / part21 < prev next >

Wrap

Internet Message Format | 1992-02-03 | 27KB

Path: uunet!sun-barr!ames!pasteur!nntp From: scott.oaks@East.Sun.COM (Scott Oaks) Newsgroups: comp.sources.x Subject: v15i167: OpenLook Virtual Window Mgr (3.0), Part21/21 Message-ID: <1992Feb4.140141.8521@pasteur.Berkeley.EDU> Date: 4 Feb 92 14:01:41 GMT References: <csx-15i147-olvwm-3.0@uunet.UU.NET> Sender: dcmartin@msi.com (David C. Martin - Moderator) Organization: University of California, at Berkeley Lines: 932 Approved: dcmartin@msi.com Nntp-Posting-Host: postgres.berkeley.edu Submitted-by: scott.oaks@East.Sun.COM (Scott Oaks) Posting-number: Volume 15, Issue 167 Archive-name: olvwm-3.0/part21 # This is a shell archive. Remove anything before this line, then feed it # into a shell via "sh file" or similar. To overwrite existing files, # type "sh file -c". # The tool that generated this appeared in the comp.sources.unix newsgroup; # send mail to comp-sources-unix@uunet.uu.net if you want that tool. # If this archive is complete, you will see the following message at the end: # "End of archive 21 (of 21)." # Contents: Debug.c cmdstream.h gettext.h group.h helpcmd.h helpsend.c # kbdfuncs.h list.h notice.h olcursor.h olvwm.info openwin-menu # parse.l usleep.c # Wrapped by dcmartin@fascet on Tue Jan 14 05:54:49 1992 PATH=/bin:/usr/bin:/usr/ucb ; export PATH if test -f 'Debug.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Debug.c'\" else echo shar: Extracting \"'Debug.c'\" $1504 characters$ sed "s/^X//" >'Debug.c' <<'END_OF_FILE' X/* X * (c) Copyright 1989 Sun Microsystems, Inc. Sun design patents X * pending in the U.S. and foreign countries. See LEGAL_NOTICE X * file for terms of the license. X */ X X#ident "@(#)Debug.c 26.5 91/09/14 SMI" X X#include <errno.h> X#include <stdio.h> X#include <X11/Xos.h> X#include <X11/Xlib.h> X#include <X11/Xutil.h> X X#include "i18n.h" X#include "olwm.h" X#include "win.h" X Xchar *eventNames[] = { X "<EventZero>", X "<EventOne>", X "KeyPress", X "KeyRelease", X "ButtonPress", X "ButtonRelease", X "MotionNotify", X "EnterNotify", X "LeaveNotify", X "FocusIn", X "FocusOut", X "KeymapNotify", X "Expose", X "GraphicsExpose", X "NoExpose", X "VisibilityNotify", X "CreateNotify", X "DestroyNotify", X "UnmapNotify", X "MapNotify", X "MapRequest", X "ReparentNotify", X "ConfigureNotify", X "ConfigureRequest", X "GravityNotify", X "ResizeRequest", X "CirculateNotify", X "CirculateRequest", X "PropertyNotify", X "SelectionClear", X "SelectionRequest", X "SelectionNotify", X "ColormapNotify", X "ClientMessage", X "MappingNotify", X}; X XDebugEvent(ep, str) X XEvent *ep; X char *str; X{ X fprintf(stderr, "%s:%s - ", str, eventNames[ep->type]); X fflush(stderr); X} X Xstatic char *typeNames[] = { X "Frame", X "Icon", X "Resize", X "Pushpin", X "Button", X "Pane", X "IconPane", X "Colormap", X "Menu", X "NoFocus", X "Root", X "Busy", X}; X XDebugWindow(win) XWinGeneric *win; X{ X if (win == NULL) X fprintf(stderr, "other window - "); X else X fprintf(stderr, "win %x (self %d) %s - ",win,win->core.self, X typeNames[win->core.kind]); X fflush(stderr); X} END_OF_FILE if test 1504 -ne `wc -c <'Debug.c'`; then echo shar: \"'Debug.c'\" unpacked with wrong size! fi # end of 'Debug.c' fi if test -f 'cmdstream.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'cmdstream.h'\" else echo shar: Extracting \"'cmdstream.h'\" $1502 characters$ sed "s/^X//" >'cmdstream.h' <<'END_OF_FILE' X/* @(#) cmdstream.h 26.1 90/09/30 Sun Microsystems */ X/* X * (c) Copyright 1989 Sun Microsystems, Inc. Sun design patents X * pending in the U.S. and foreign countries. See LEGAL_NOTICE X * file for terms of the license. X */ X/* ---------------------------------------------------------------------- X * cmdstream.h X * ---------------------------------------------------------------------*/ X X#ident "@(#)cmdstream.h 26.6 91/09/14 SMI" X X#ifndef CMDSTREAM_H X#define CMDSTREAM_H X X#ifndef TRUE X#define TRUE 1 X#endif X X#ifndef FALSE X#define FALSE 0 X#endif X X/* ---------------------------------------------------------------------- X * Command Data Structures X * ---------------------------------------------------------------------*/ X Xtypedef enum _AttrType { X INT, FLOAT, STRING X} AttrType; X Xtypedef union _AttrValue { X int ival; X float fval; X char *sval; X} AttrValue; X Xtypedef struct _CmdAttr { X char *name; X AttrType type; X AttrValue value; X} CmdAttr; X Xtypedef struct _Command { X char *keyword; X void (*callback)(); X int attrLen; X CmdAttr *attrList; X} Command; X X/* ---------------------------------------------------------------------- X * Function Definitions X * ---------------------------------------------------------------------*/ X Xextern void SetCmdStream(/* FILE *instream, FILE * outstream */); Xextern int SendCmd(/* Command* cmd */); Xextern void RegisterCmd(/* Command *cmd */); Xextern int GetCmd(); Xextern int ParseCmd(/* char *line */); X X#endif /* CMDSTREAM_H */ END_OF_FILE if test 1502 -ne `wc -c <'cmdstream.h'`; then echo shar: \"'cmdstream.h'\" unpacked with wrong size! fi # end of 'cmdstream.h' fi if test -f 'gettext.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'gettext.h'\" else echo shar: Extracting \"'gettext.h'\" $1408 characters$ sed "s/^X//" >'gettext.h' <<'END_OF_FILE' X/* X * (c) Copyright 1989, 1990 Sun Microsystems, Inc. Sun design patents X * pending in the U.S. and foreign countries. See LEGAL_NOTICE X * file for terms of the license. X */ X X#ident "@(#)gettext.h 1.4 91/09/14 SMI" X X#define DEFAULT_DOMAIN "default" X#define DEFAULT_BINDING "/usr/lib/locale\n" X#define COOKIE 0xFF X#define BINDINGLISTDELIM '\n' X X#define MAX_VALUE_LEN 2047 X#define MAX_DOMAIN_LENGTH 255 X#define LC_NAMELEN 255 X X#include <ctype.h> X#include <errno.h> X#include <locale.h> X#include <stdio.h> X#include <sys/types.h> X#include <sys/param.h> X Xstruct domain_binding { X char *domain_name; X char *binding; X struct domain_binding *nextdomain; X}; X X X#include <fcntl.h> X#include <sys/file.h> X#include <sys/mman.h> X#include <sys/stat.h> X X#define MAX_MSG 64 X Xstruct struct_mo_info { X int message_mid; X int message_count; X int string_count_msgid; X int string_count_msg; X int message_struct_size; X} ; X Xstruct message_struct { X int less; X int more; X int msgid_offset; X int msg_offset; X}; X Xstruct message_so { X char *message_so_path; /* name of message shared object */ X int fd; /* file descriptor */ X struct struct_mo_info *mess_file_info; /* information of message file */ X struct message_struct *message_list;/* message list */ X char *msg_ids; /* actual message ids */ X char *msgs; /* actual messages */ X}; END_OF_FILE if test 1408 -ne `wc -c <'gettext.h'`; then echo shar: \"'gettext.h'\" unpacked with wrong size! fi # end of 'gettext.h' fi if test -f 'group.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'group.h'\" else echo shar: Extracting \"'group.h'\" $1785 characters$ sed "s/^X//" >'group.h' <<'END_OF_FILE' X/* X * (c) Copyright 1990 Sun Microsystems, Inc. Sun design patents X * pending in the U.S. and foreign countries. See LEGAL_NOTICE X * file for terms of the license. X */ X X#ifndef _OLWM_GROUP_H X#define _OLWM_GROUP_H X X#ident "@(#)group.h 26.6 91/09/14 SMI" X Xtypedef Window GroupID; Xtypedef void *(*GroupFunc)(/* Client *, void * */); X Xtypedef struct _group { X GroupID groupid; X Client *leader; X List *dependents; /* List of Client * */ X List *independents; /* List of Client * */ X } Group; X X#define GROUP_LEADER 0x01 X#define GROUP_DEPENDENT 0x02 X#define GROUP_INDEPENDENT 0x04 X Xextern void GroupInit(); X /* initialises the Group package; should be called only once X * at startup. X */ X Xextern void *GroupApply(); /* GroupID, GroupFunc, void *, mask */ X /* applies a function to each part of the group identified in the X * mask; as with any apply function, when the function returns X * a non-NULL value application stops and that value is returned. X */ X Xextern Group *GroupLookup(); /* GroupID */ X /* given a GroupID, returns the associated group structure, or NULL X * if there is none. X */ X Xextern Bool GroupAdd(); /* GroupID, Client *, mask */ X /* adds a client to the named group, creating the group if need be. X * The kind of client is specified in the mask field. Returns True X * if the client was successfully added. X */ X Xextern Bool GroupRemove(); /* GroupID, Client * */ X /* removes a client from the group. If the group becomes empty X * it is deleted. Returns True if the client was successfully deleted. X */ X Xextern Bool GroupIsLeader(); /* GroupID, Client * */ X /* returns whether a particular client is the leader of X * a group X */ X Xextern Client *GroupLeader(); /* GroupID */ X /* returns the leader of a group */ X X#endif /* _OLWM_GROUP_H */ END_OF_FILE if test 1785 -ne `wc -c <'group.h'`; then echo shar: \"'group.h'\" unpacked with wrong size! fi # end of 'group.h' fi if test -f 'helpcmd.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'helpcmd.h'\" else echo shar: Extracting \"'helpcmd.h'\" $743 characters$ sed "s/^X//" >'helpcmd.h' <<'END_OF_FILE' X/* X * (c) Copyright 1989, 1990 Sun Microsystems, Inc. Sun design patents X * pending in the U.S. and foreign countries. See LEGAL_NOTICE X * file for terms of the license. X */ X X/* ---------------------------------------------------------------------- X * helpcmd.h X * ---------------------------------------------------------------------*/ X X#ident "@(#)helpcmd.h 26.6 91/09/14 SMI" X X#include "cmdstream.h" X X#define HW_SCREEN_NO 0 X#define HW_MOUSE_X 1 X#define HW_MOUSE_Y 2 X#define HW_HELPKEY 3 X#define HW_ATTR_COUNT 4 X Xstatic CmdAttr helpCmdAttr[] = { X { "SCREEN_NO", INT }, X { "MOUSE_X", INT }, X { "MOUSE_Y", INT }, X { "HELPKEY", STRING } X}; X Xstatic Command helpCommand = { X "SHOWHELP", 0, HW_ATTR_COUNT, helpCmdAttr X}; X END_OF_FILE if test 743 -ne `wc -c <'helpcmd.h'`; then echo shar: \"'helpcmd.h'\" unpacked with wrong size! fi # end of 'helpcmd.h' fi if test -f 'helpsend.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'helpsend.c'\" else echo shar: Extracting \"'helpsend.c'\" $908 characters$ sed "s/^X//" >'helpsend.c' <<'END_OF_FILE' X/* X * (c) Copyright 1989 Sun Microsystems, Inc. Sun design patents X * pending in the U.S. and foreign countries. See LEGAL_NOTICE X * file for terms of the license. X */ X/* ---------------------------------------------------------------------- X * helpsend.c X * ---------------------------------------------------------------------*/ X X#ident "@(#)helpsend.c 26.6 91/09/14 SMI" X X#include "helpcmd.h" X X/* ---------------------------------------------------------------------- X * ShowHelpWindow X * ---------------------------------------------------------------------*/ Xint XShowHelpWindow(nscreen,mousex,mousey,helpkey) X int nscreen; X int mousex,mousey; X char *helpkey; X{ X helpCmdAttr[HW_SCREEN_NO].value.ival = nscreen; X helpCmdAttr[HW_MOUSE_X].value.ival = mousex; X helpCmdAttr[HW_MOUSE_Y].value.ival = mousey; X helpCmdAttr[HW_HELPKEY].value.sval = helpkey; X return (SendCmd(&helpCommand)); X} END_OF_FILE if test 908 -ne `wc -c <'helpsend.c'`; then echo shar: \"'helpsend.c'\" unpacked with wrong size! fi # end of 'helpsend.c' fi if test -f 'kbdfuncs.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'kbdfuncs.h'\" else echo shar: Extracting \"'kbdfuncs.h'\" $1734 characters$ sed "s/^X//" >'kbdfuncs.h' <<'END_OF_FILE' X/* X * (c) Copyright 1989, 1990 Sun Microsystems, Inc. Sun design patents X * pending in the U.S. and foreign countries. See LEGAL_NOTICE X * file for terms of the license. X */ X X#ifndef _OLWM_KBDFUNCS_H X#define _OLWM_KBDFUNCS_H X X#ident "@(#)kbdfuncs.h 1.1 olvwm version 1/3/92" X X/* X * Based on X#ident "@(#)kbdfuncs.h 1.5 91/09/14 SMI" X * X */ X Xextern void KeyBackFocus(); Xextern void KeyBeep(); Xextern void KeyFocusToPointer(); Xextern void KeyRaiseLowerPointer(); Xextern void KeyFrontFocus(); Xextern void KeyFullRestore(); Xextern void KeyLockColormap(); Xextern void KeyMove(); Xextern void KeyNextApp(); Xextern void KeyNextWindow(); Xextern void KeyOpenClosePointer(); Xextern void KeyOpenCloseFocus(); Xextern void KeyOwner(); Xextern void KeyPrevApp(); Xextern void KeyPrevWindow(); Xextern void KeyProperties(); Xextern void KeyQuit(); Xextern void KeyRefresh(); Xextern void KeyResize(); Xextern void KeyToggleInput(); Xextern void KeyTogglePin(); Xextern void KeyUnlockColormap(); Xextern void KeyWindowMenu(); Xextern void KeyWorkspaceMenu(); X Xextern void KeyMoveVDM(); Xextern void AddKeyBinding(); X Xtypedef struct { X char *rsrc_name; X char *dflt_binding; X void (*function)(); X SemanticAction action; X unsigned long flags; X} KeyDescriptor; X X/* values for flags */ X#define KD_IMMUNE (1<<0) /* immune to suspension */ X#define KD_SUNVIEW (1<<1) /* active if mouseless == SunView */ X#define KD_BASIC (1<<2) /* active if mouseless == basic */ X#define KD_FULL (1<<3) /* active if mouseless == full */ X X#define KD_BASIC_FULL (KD_BASIC | KD_FULL) X#define KD_ALWAYS (KD_SUNVIEW | KD_BASIC_FULL) X X#define KD_DYNAMIC KD_IMMUNE X X#endif /* _OLWM_KBDFUNCS_H */ END_OF_FILE if test 1734 -ne `wc -c <'kbdfuncs.h'`; then echo shar: \"'kbdfuncs.h'\" unpacked with wrong size! fi # end of 'kbdfuncs.h' fi if test -f 'list.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'list.h'\" else echo shar: Extracting \"'list.h'\" $1625 characters$ sed "s/^X//" >'list.h' <<'END_OF_FILE' X/* X * (c) Copyright 1989 Sun Microsystems, Inc. Sun design patents X * pending in the U.S. and foreign countries. See LEGAL_NOTICE X * file for terms of the license. X */ X X#ifndef _OLWM_LIST_H X#define _OLWM_LIST_H X X#ident "@(#)list.h 26.6 91/09/14 SMI" X Xtypedef struct _List { X void *value; X struct _List *next; X } List; X X#define NULL_LIST ((List *)0) X Xextern void ListInit(); X /* initialises the List package; should be called only once X * at startup. X */ X Xextern List *ListCons(); /* void *val, List *next */ X Xextern int ListCount(); /* List *l */ X /* returns number of items in a list X */ X Xextern void ListDestroy(); /* List *l */ X /* destroys all list cells in a list; does not affect list values X */ X Xextern void ListDestroyCell(); /* List **l */ X /* deletes one cell from a list; modifies the List* passed by X * reference to point to the next cell. X */ X Xextern List *ListDestroyCellByValue(); /* void *val, List *l */ X /* deletes the given cell from the list and passes back the X * (possibly modified) new list X */ X Xextern void *ListApply(); /* List *l, (void *)(*f)(), void *c */ X /* iteratively calls the function f with list values and the X * closure, until it returns a non-NULL value. Returns this non-Null X * value, or NULL if hte end of the list is reached. X */ X Xextern void *ListEnum(); /* List **l */ X /* used for enumerating a list in a loop. Returns the value of the X * cell, and modifies the cell pointer to point to the next cell. X */ X Xextern Bool ListIsAMebmer(); /* void *val, List *l */ X /* used for determining if val is in the given list X */ X X#endif /* _OLWM_LIST_H */ END_OF_FILE if test 1625 -ne `wc -c <'list.h'`; then echo shar: \"'list.h'\" unpacked with wrong size! fi # end of 'list.h' fi if test -f 'notice.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'notice.h'\" else echo shar: Extracting \"'notice.h'\" $691 characters$ sed "s/^X//" >'notice.h' <<'END_OF_FILE' X/* X * (c) Copyright 1990 Sun Microsystems, Inc. Sun design patents X * pending in the U.S. and foreign countries. See LEGAL_NOTICE X * file for terms of the license. X */ X X#ident "@(#)notice.h 26.8 91/09/14 SMI" X X#define NOTICE_CANCEL (-1) X X#define NOTICE_BUTTON_COUNT(b) sizeof((b))/sizeof(char *) X Xtypedef struct _noticeBox { X int numButtons; /* number of buttons */ X int defaultButton; /* index into buttonText array */ X char **buttonText; /* array of strings for button text */ X char *msgText; X int boxX; /* box origin (-1 =use default/centered) */ X int boxY; /* box origin (-1 =use default/centered) */ X} NoticeBox; X X/* function declarations */ Xextern int UseNoticeBox(); END_OF_FILE if test 691 -ne `wc -c <'notice.h'`; then echo shar: \"'notice.h'\" unpacked with wrong size! fi # end of 'notice.h' fi if test -f 'olcursor.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'olcursor.h'\" else echo shar: Extracting \"'olcursor.h'\" $512 characters$ sed "s/^X//" >'olcursor.h' <<'END_OF_FILE' X/* X * (c) Copyright 1990 Sun Microsystems, Inc. Sun design patents X * pending in the U.S. and foreign countries. See LEGAL_NOTICE X * file for terms of the license. X */ X X#ident "@(#)olcursor.h 26.5 91/09/14 SMI" X X#define OLC_basic 0 X#define OLC_move 2 X#define OLC_copy 4 X#define OLC_busy 6 X#define OLC_stop 8 X#define OLC_panning 10 X#define OLC_target 12 X#define OLC_nouse 14 X#define OLC_ptr 16 X#define OLC_beye 18 X#define OLC_rtarr 20 X#define OLC_xhair 22 X#define OLC_xcurs 24 X#define OLC_hourg 26 END_OF_FILE if test 512 -ne `wc -c <'olcursor.h'`; then echo shar: \"'olcursor.h'\" unpacked with wrong size! fi # end of 'olcursor.h' fi if test -f 'olvwm.info' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'olvwm.info'\" else echo shar: Extracting \"'olvwm.info'\" $1782 characters$ sed "s/^X//" >'olvwm.info' <<'END_OF_FILE' X# ----------------------------------------------- X# olvwm.info 31 October 1991 X# X# OpenWindows Version 3 X# ----------------------------------------------- X# @(#)olvwm.info 1.1 1/3/92 X##########################50###################### X:VDM: XVirtual Desktop Manager X XThe Virtual Desktop Manager (VDM) allows you to Xhave 1 or more logical desktops one of which may Xbe viewed at any time. Each desktop is Xrepresented by a region surrounded with Xa dashed line. X XThe background of the VDM represents the logical Xdesktops which you currently have; you can Xincrease or reduce this number simply by Xresizing the VDM. If you make the VDM smaller, Xthe rightmost and bottommost desktops will X"go away" and you will not be able to access Xany windows in that deskstop. The windows Xthemselves are still active, though, and will Xappear if you again make the VDM larger. X XThe desktop boundaries are not physical Xboundaries; a window can straddle a boundary Xand you can view portions of more that one Xdesktop at a time (whatever amount that will Xfit on your screen). Usually, though, you Xwill see a logical boundary between desktops. X XTo move to another desktop, you can use the arrow Xkeys or you can double-click the SELECT button Xinside the VDM at the location you want to go to. XPressing MENU in the VDM brings up a menu which Xalso allows you to move to a different desktop. X XThe small windows in the desktop represent each Xframe as it appears on your screen. In terms of Xwindow manager actions, they mimic the frame they Xrepresent: you can select and move them with Xthe SELECT button, you can bring up their Xwindow menu with the MENU button, you can drop Xitems from other tools into them, etc. All Xactions performed on one of these little Xwindows affects the frame the window represents. END_OF_FILE if test 1782 -ne `wc -c <'olvwm.info'`; then echo shar: \"'olvwm.info'\" unpacked with wrong size! fi # end of 'olvwm.info' fi if test -f 'openwin-menu' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'openwin-menu'\" else echo shar: Extracting \"'openwin-menu'\" $1424 characters$ sed "s/^X//" >'openwin-menu' <<'END_OF_FILE' X# X# @(#) openwin-menu 26.2 91/09/14 X# olwmmenu - OpenLook Window Manager default root menu file. X X"Workspace Menu" TITLE X"Programs" MENU X "Tools" MENU X "Command Tool..." $XVIEWHOME/bin/xview/cmdtool X "Mail Tool..." $XVIEWHOME/bin/xview/mailtool X "Shell Tool..." $XVIEWHOME/bin/xview/shelltool X "Tape Tool..." tapetool X "Print Tool..." printtool X "SunView Dbxtool..." /usr/bin/dbxtool X "Tools" END X "Text Editor..." /bin/xview/textedit X "File Manager..." $XVIEWHOME/bin/xview/filemgr X "Clock..." $XVIEWHOME/bin/xview/clock X "Calculator..." xcalc X "Snapshot..." $XVIEWHOME/bin/xview/snapshot X "Perf Meter..." $XVIEWHOME/bin/xview/perfmeter X "Icon Editor..." $XVIEWHOME/bin/xview/iconedit X "PostScript Shell..." $XVIEWHOME/bin/psterm X "Demos..." hyperview xnewsdemo.hv X"Programs" END PIN X"Utilities" MENU X "Utilities" TITLE X "Refresh" REFRESH X "Reset Input" kbd_mode -u X "Save Workspace" SAVE_WORKSPACE X "Lock Screen" xlock X "Console..." $XVIEWHOME/bin/xview/cmdtool -Wh 8 -C X "FlipDrag" FLIPDRAG X "Window Controls" WINDOW_CONTROLS X "Clipboard..." CLIPBOARD X "PrintScreen" PRINT_SCREEN X"Utilities" END X"Xterms" MENU X "24 lines..." xterm -geometry 80x24 X "34 lines..." xterm -geometry 80x34 X "56 lines..." xterm -geometry 80x56 X "console..." xterm -T console -geometry 80x24 -C X"Xterms" END PIN X"Properties..." PROPERTIES X"Exit..." EXIT END_OF_FILE if test 1424 -ne `wc -c <'openwin-menu'`; then echo shar: \"'openwin-menu'\" unpacked with wrong size! fi # end of 'openwin-menu' fi if test -f 'parse.l' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'parse.l'\" else echo shar: Extracting \"'parse.l'\" $1757 characters$ sed "s/^X//" >'parse.l' <<'END_OF_FILE' X%{ X/* X * (c) Copyright 1991 Scott Oaks X * See LEGAL_NOTICE file for terms of the license. X */ X X#ident "@(#)parse.l 1.1 olvwm version 1/3/92" X%} X%% X XWarp { yylval.ival = Warp; return WARP; } XOpen { yylval.ival = Open; return OPEN; } XRaise { yylval.ival = Raise; return RAISE; } XExecute { yylval.ival = Execute; return EXECUTE; } XGoto { yylval.ival = Goto; return GOTO; } XClose { yylval.ival = Close; return CLOSE; } XQuit { yylval.ival = Quit; return QUIT; } X XShift { yylval.ival = XK_Shift_L; return MODIFIER; } X"Shift Lock" { yylval.ival = XK_Shift_Lock; return MODIFIER; } X"Caps Lock" { yylval.ival = XK_Caps_Lock; return MODIFIER; } XControl { yylval.ival = XK_Control_L; return MODIFIER; } XCtrl { yylval.ival = XK_Control_L; return MODIFIER; } XCtl { yylval.ival = XK_Control_L; return MODIFIER; } XMeta { yylval.ival = XK_Meta_L; return MODIFIER; } XAlt { yylval.ival = XK_Alt_L; return MODIFIER; } XSuper { yylval.ival = XK_Super_L; return MODIFIER; } XHyper { yylval.ival = XK_Hyper_L; return MODIFIER; } XAny { yylval.ival = yylval.ival = -1; return MODIFIER; } XScreen { yylval.ival = SCREEN; return SCREEN; } XWINMENU { yylval.ival = WINMENU; return WINMENU; } X"+" { yylval.ival = PLUS; return PLUS; } X X[LRF][0-9]+ { yylval.sval = yytext; return KEY; } X X[0-9]+ { yylval.ival = atoi(yytext); return INT; } X X[A-Za-z_0-9]+ { yylval.sval = strdup(yytext); return WORD; } X X\: { return COLON; } X\, { return COMMA; } X X\{ { return OPENBRACE; } X\} { return CLOSEBRACE; } X X\"[^"]*\" { X if (yytext[yyleng - 1] == '\\') X yymore(); X else { X yylval.sval = strdup(yytext); X return WORD; X } X } X X\'[^']*\' { X if (yytext[yyleng - 1] == '\\') X yymore(); X else { X yylval.sval = strdup(yytext); X return WORD; X } X } X X^#.* ; X[ \t\n] ; X X%% END_OF_FILE if test 1757 -ne `wc -c <'parse.l'`; then echo shar: \"'parse.l'\" unpacked with wrong size! fi # end of 'parse.l' fi if test -f 'usleep.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'usleep.c'\" else echo shar: Extracting \"'usleep.c'\" $1866 characters$ sed "s/^X//" >'usleep.c' <<'END_OF_FILE' X/* X * (c) Copyright 1989 Sun Microsystems, Inc. Sun design patents X * pending in the U.S. and foreign countries. See LEGAL_NOTICE X * file for terms of the license. X */ X X#ident "@(#)usleep.c 26.8 91/09/14 SMI" X X/* X * usleep() compatibility function X * X * Under System V, implements usleep() using the interval timer. Otherwise, X * simply calls the library's usleep(). To use this implementation instead of X * the library's, you must define SYSV. If you want to this implementation X * to use BSD-style signals, you must define SYS *and* USE_BSD_SIGNALS, even X * if you're not on System V. X */ X X#include <sys/types.h> X#include <signal.h> X#include <sys/time.h> X Xvoid olwm_do_nothing() { } X Xint Xolwm_usleep(usec) X unsigned int usec; X{ X#ifdef SYSV X struct itimerval new, old; X#ifdef USE_BSD_SIGNALS X struct sigvec new_vec, old_vec; X#else X struct sigaction new_vec, old_vec; X#endif X X if (usec == 0) X return 0; X X new.it_interval.tv_sec = 0; X new.it_interval.tv_usec = 0; /* We only want one tick */ X new.it_value.tv_sec = usec / 1000000; X new.it_value.tv_usec = usec % 1000000; X X#ifdef USE_BSD_SIGNALS X new_vec.sv_handler = olwm_do_nothing; X new_vec.sv_mask= 0; X new_vec.sv_flags = 0; X X sigblock(sigmask(SIGALRM)); X sigvec(SIGALRM, &new_vec, &old_vec); X#else X new_vec.sa_handler = olwm_do_nothing; X new_vec.sa_mask.sigbits[0]= 0; X new_vec.sa_mask.sigbits[1]= 0; X new_vec.sa_mask.sigbits[2]= 0; X new_vec.sa_mask.sigbits[3]= 0; X new_vec.sa_flags = 0; X X sighold(SIGALRM); X sigaction(SIGALRM, &new_vec, &old_vec); X#endif X X setitimer(ITIMER_REAL, &new, &old); X X#ifdef USE_BSD_SIGNALS X sigpause(0); X sigvec(SIGALRM, &old_vec, (struct sigvec *)0); X#else X sigpause(SIGALRM); X sigaction(SIGALRM, &old_vec, (struct sigaction *)0); X#endif X X setitimer(ITIMER_REAL, &old, (struct itimerval *)0); X return 0; X X#else SYSV X X return usleep(usec); X X#endif /* SYSV */ X} END_OF_FILE if test 1866 -ne `wc -c <'usleep.c'`; then echo shar: \"'usleep.c'\" unpacked with wrong size! fi # end of 'usleep.c' fi echo shar: End of archive 21 $of 21$. cp /dev/null ark21isdone MISSING="" for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 ; do if test ! -f ark${I}isdone ; then MISSING="${MISSING} ${I}" fi done if test "${MISSING}" = "" ; then echo You have unpacked all 21 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 -- Molecular Simulations, Inc. mail: dcmartin@postgres.berkeley.edu 796 N. Pastoria Avenue uucp: uwvax!ucbvax!dcmartin Sunnyvale, California 94086 at&t: 408/522-9236