Usenet 1994 January

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

/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume17 / mgr / part30 < prev next >

Wrap

Internet Message Format | 1989-01-19 | 46.5 KB

Subject: v17i031: MGR, Bellcore window manager, Part30/61 Newsgroups: comp.sources.unix Approved: rsalz@uunet.UU.NET Submitted-by: Stephen A. Uhler <sau@bellcore.com> Posting-number: Volume 17, Issue 31 Archive-name: mgr/part30 #! /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 30 (of 61)." # Contents: demo/icon/browse.c demo/icon/iconmail.c lib/window.h # src/do_button.c src/do_menu.c # Wrapped by rsalz@papaya.bbn.com on Thu Nov 17 21:05:37 1988 PATH=/bin:/usr/bin:/usr/ucb ; export PATH if test -f 'demo/icon/browse.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'demo/icon/browse.c'\" else echo shar: Extracting \"'demo/icon/browse.c'\" $9077 characters$ sed "s/^X//" >'demo/icon/browse.c' <<'END_OF_FILE' X/* Copyright (c) 1987 Bellcore X * All Rights Reserved X * Permission is granted to copy or use this program, EXCEPT that it X * may not be sold for profit, the copyright notice must be reproduced X * on copies, and credit should be given to Bellcore where it is due. X * BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM. X */ X/* $Header: browse.c,v 4.2 88/07/19 14:12:58 sau Exp $ X $Source: /tmp/mgrsrc/demo/icon/RCS/browse.c,v $ X*/ Xstatic char RCSid_[] = "$Source: /tmp/mgrsrc/demo/icon/RCS/browse.c,v $$Revision: 4.2 $"; X X/* display bitmap files on window */ X X#include "term.h" X#include <signal.h> X X#define GAP 3 /* space between icons */ X#define MAXICONS 500 /* max number of icons */ X#define SAVE 2 /* temp bitmap # */ X X#define dprintf if(debug)fprintf X Xstruct icon_pos { X int x,y; /* position on window */ X int w,h; /* size of icon */ X char *name; /* name of icon */ X }; X Xstruct icon_pos icons[MAXICONS]; Xchar line[MAXLINE]; /* input buffer */ Xchar cwd[MAXLINE]; Xint win_x, win_y; /* window position */ Xint win_high, win_wide; /* window size */ Xint f_wide, f_high; /* font size */ Xint debug; Xchar **first; /* pntr to first icon */ Xint invert = 0; X Xstruct menu_entry menu1[] = { X "reread","r\r","next","n\r", "prev","p\r", "quit","q\r", X }; X Xstruct menu_entry menu2[] = { X "reread","r\r","next","n\r", "quit","q\r" X }; X Xstruct menu_entry menu3[] = { X "reread","r\r","prev","p\r", "quit","q\r" X }; X Xstruct menu_entry menu4[] = { X "reread","r\r","quit","q\r" X }; X Xmain(argc,argv) Xchar **argv; X { X int page = 1; /* current page number */ X int count; /* number of icons on page */ X int x,y; /* mouse position */ X int n = -1; /* current icon */ X int clean(); X char *getenv(); X FILE *popen(), *fd = popen("/bin/pwd","r"); X X ckmgrterm( *argv ); X X debug = (int) getenv("DEBUG"); X X if (fd) { X fgets(cwd,sizeof(cwd),fd); X *(cwd + strlen(cwd) - 1) = '\0'; /* blah */ X dprintf(stderr,"Got cwd: [%s]\n",cwd); X pclose(fd); X } X else { X fprintf(stderr,"%s: can't get current directory\n",*argv); X exit(2); X } X X if (argc <2 || argc > MAXICONS) { X fprintf(stderr,"usage: %s icons... (up to %d)\n",*argv,MAXICONS); X exit(1); X } X X if (strcmp(argv[1],"-r")==0) { X invert++; X argv++; X argc--; X } X X first = ++argv; X argc--; X X m_setup(M_FLUSH); X m_push(P_BITMAP|P_MENU|P_EVENT|P_FLAGS); X m_ttyset(); X X menu_load(1,4,menu1); X menu_load(2,3,menu2); X menu_load(3,3,menu3); X menu_load(4,2,menu4); X X signal(SIGINT,clean); X signal(SIGTERM,clean); X X m_setmode(M_ABS); X m_setmode(M_NOWRAP); X get_size(&win_x,&win_y,&win_wide, &win_high); X get_font(&f_wide, &f_high); X X m_setevent(BUTTON_1,"^%p\r"); X m_setevent(BUTTON_1U,"$\r"); X m_setevent(MOVE,"M\r"); X m_setevent(RESHAPED,"R\r"); X m_setevent(REDRAW,"r\r"); X X count = fill_page(first,icons); X X if (count == 0) { X fprintf(stderr,"%s: no files in icon format\n",*--argv); X clean(3); X } X X set_menu(first-argv,argc-count-(first-argv)-1); X X dprintf(stderr,"Got %d,%d %dx%d [%dx%d]\n", X win_x, win_y, win_wide, win_high, f_wide, f_high); X X while(m_gets(line) != NULL) { X dprintf(stderr,"Got [%s]\n",line); X switch(*line) { X case 'q': X clean(0); X break; X case ':': /* got a message - send current icon back */ X sscanf(line+1,"%d",&x); X if (n >= 0) { X m_sendto(x,icons[n].name); X dprintf(stderr,"sent [%s] to %d\n", X icons[n].name,x); X } X break; X case '^': /* button down */ X sscanf(line+1,"%d %d",&x,&y); X n = find_icon(icons,x,y); X if (n >= 0) { X border(icons[n],B_SET); X sprintf(line,"%s/%s",cwd,icons[n].name); X m_setevent(NOTIFY,line); X sprintf(line,"%s (%d x %d)", icons[n].name, X icons[n].w, icons[n].h); X pop_text(line, icons[n].x+icons[n].w/2, X icons[n].y+icons[n].h + GAP); X border(icons[n],B_CLEAR); X } X break; X case 'n': /* next icons */ X if ((first-argv) + count >= argc) X break; X first += 2*count/3 + 1; X count = fill_page(first,icons); X set_menu(first-argv,argc-count-(first-argv)-1); X break; X case 'p': /* previous icons */ X if (first == argv) X break; X first -= 2*count/3 + 1 ; X if (first < argv) X first = argv; X count = fill_page(first,icons); X set_menu(first-argv,argc-count-(first-argv)-1); X break; X case 'M': /* window moved */ X get_size(&win_x,&win_y,&win_wide, &win_high); X break; X case 'r': /* window redrawn */ X count = fill_page(first,icons); X set_menu(first-argv,argc-count-(first-argv)-1); X break; X case 'R': /* window shaped*/ X dprintf(stderr,"Got %d,%d %dx%d [%dx%d]\n", X win_x, win_y, win_wide, win_high, f_wide, f_high); X x = win_wide; X y = win_high; X get_size(&win_x,&win_y,&win_wide, &win_high); X if (y != win_high || x>win_wide) { X count = fill_page(first,icons); X set_menu(first-argv,argc-count-(first-argv)-1); X } X break; X default: /* button up (let go of button too fast) */ X break; X } X } X clean(0); X } X Xint Xfill_page(names,icon) Xchar **names; Xstruct icon_pos *icon; X { X register int count = 0; X int x=GAP, y=GAP; /* current icon position */ X int w,h; /* current icon size */ X int maxh = 0; /* max y extent of icons */ X X if (invert) X m_func(B_COPYINVERTED); X else X m_func(B_COPY); X m_clear(); X for(;*names;names++) { X if (**names == '/') X m_bitfile(1,*names, &w, &h); X else { X m_bitfile(1,sprintf(line,"%s/%s",cwd,*names), &w, &h); X } X dprintf(stderr,"getting %s -> %s",*names,line); X if (w==0 || h == 0) X continue; X X if (w + x + 2*GAP > win_wide) { X x = GAP; X y += maxh + GAP; X maxh = 0; X } X X if (y + h + GAP > win_high) { X dprintf(stderr,"%s won't fit\n",*names); X break; X } X X m_movecursor(x,y); X m_bitcopyto(x,y,w,h,0,0,0,1); X count++; X icon->x = x; X icon->y = y; X icon->w = w; X icon->h = h; X icon->name = *names; X X icon++; X x += w + GAP; X maxh = h>maxh ? h : maxh; X } X icon->x = -1; X m_movecursor(0,win_high-f_high-GAP); X return(count); X } X Xclean(code) Xint code; X { X m_bitdestroy(1); X m_pop(); X m_ttyreset(); X exit(code); X } X X/* border an icon */ X Xborder(icon,how) Xstruct icon_pos icon; Xint how; X { X int x=icon.x, y=icon.y, w=icon.w, h=icon.h; X dprintf(stderr,"border: %d,%d %dx%d\n",x,y,w,h); X X m_func(how); X m_bitwrite(x-GAP,y-GAP,w+2*GAP,GAP); X m_bitwrite(x-GAP,y+h,w+2*GAP,GAP); X m_bitwrite(x-GAP,y,GAP,h); X m_bitwrite(x+w,y,GAP,h); X } X X/* find an icon */ X Xint Xfind_icon(icon,x,y) Xregister struct icon_pos *icon; Xregister int x,y; X { X register int i = 0; X X dprintf(stderr,"Looking for: %d %d [%d]\n",x,y); X X for(;icon->x != -1;i++,icon++) { X if (y>icon->y && x>icon->x && X y < icon->y + icon->h && X x < icon->x + icon->w) { X dprintf(stderr,"found %d\n",i); X return(i); X } X } X return(-1); X } X Xpop_text(s,x,y) Xchar *s; /* text to display */ Xint x,y; /* center of window */ X { X int wide = (strlen(s)<5?5:strlen(s)) * f_wide + 10; X int high = f_high + 4*GAP; X int x0 = x - wide/2; X int y0 = y + f_high; X X if (x0<0) X x0 = GAP; X if (x0+wide > win_wide) X x0 = win_wide-wide-GAP; X if (y0+high > win_high - f_wide) X y0 = GAP; X X if (x0 < 0 || y0 + high > win_high - f_wide-GAP < 0) { X m_gets(line); X return(1); X } X X /* save current window text */ X X m_func(B_SRC); X m_bitcopyto(0,0,wide,high,x0,y0,SAVE,0); X X /* draw border */ X X m_func(B_SET); X m_bitwrite(x0,y0,wide,high); X m_func(B_CLEAR); X m_bitwrite(x0+GAP,y0+GAP,wide-2*GAP,high-2*GAP); X m_moveprint(x0+2*GAP,y0+(high-f_high)/2+GAP+f_high,s); X m_movecursor(win_wide,y); X X m_gets(line); X X /* restore data */ X X m_func(B_SRC); X m_bitcopyto(x0,y0,wide,high,0,0,0,SAVE); X m_bitdestroy(SAVE); X } X Xint Xset_menu(front,back) Xint front; Xint back; X { X register int i; X if (front>0 && back>0) X i = 1; X else if (front > 0) X i = 3; X else if (back > 0) X i = 2; X else X i = 4; X X m_selectmenu(i); X dprintf(stderr,"set menu %d (%d,%d)\n",i,front,back); X return(i); X } END_OF_FILE # end of 'demo/icon/browse.c' fi if test -f 'demo/icon/iconmail.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'demo/icon/iconmail.c'\" else echo shar: Extracting \"'demo/icon/iconmail.c'\" $8565 characters$ sed "s/^X//" >'demo/icon/iconmail.c' <<'END_OF_FILE' X/* Copyright (c) 1987 Bellcore X * All Rights Reserved X * Permission is granted to copy or use this program, EXCEPT that it X * may not be sold for profit, the copyright notice must be reproduced X * on copies, and credit should be given to Bellcore where it is due. X * BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM. X */ X/* $Header: iconmail.c,v 4.2 88/06/30 16:21:42 bianchi Exp $ X $Source: /tmp/mgrsrc/demo/icon/RCS/iconmail.c,v $ X*/ Xstatic char RCSid_[] = "$Source: /tmp/mgrsrc/demo/icon/RCS/iconmail.c,v $$Revision: 4.2 $"; X X/* check for new mail (icon version) */ X X#include <sys/types.h> X#include <sys/stat.h> X#include <sys/time.h> /* for fsleep */ X#include <signal.h> X#include <sgtty.h> X#include <stdio.h> X X#include <term.h> X#include "mail_icons.h" X X#define MSG_READING "\freading mail ...\r" X#define MSG_CHECKING "\rChecking for new mail..." X X#define MAILF "/usr/spool/mail" /* spool file */ X#define MAIL "mail" /* name of mail command */ X#define POLL 60 /* polling interval */ X#define XPOS 240 /* x start of mail window */ X#define YPOS 190 /* y start of mail window */ X#define W_WIDE 80 /* width of mail window */ X#define W_HIGH 24 /* height of mail window */ X#define MAX_ICON 64 /* max icon size */ X X#define PROCESSED 2 /* new mail already processed */ X X#define S(x) statb.x X#define Isflag(arg,flag) (!strncmp(arg,flag,strlen(flag))) X#define Max(x,y) ((x)>(y)?(x):(y)) X#define dprintf if(debug) fprintf X X#define fsleep() \ X { \ X struct timeval time; \ X time.tv_sec = 0; \ X time.tv_usec = 330000; \ X select(0,0,0,0,&time); \ X } X X#define MENU_COUNT (sizeof(menu)/sizeof(struct menu_entry)) X Xstruct menu_entry menu[] = { X "print","t\r", X "delete","dt\r", X "next","n\r", X "quit","q\r", X "help","?\r", X "headers","h *\r", X "abort","x\r", X}; X Xstatic struct stat statb; /* spool file status */ Xstatic char mail[255]; /* spool file path name */ Xstatic long omtime=0l; /* previous file mod. time */ Xstatic int state = 0; /* mail & window state */ Xstatic int poll = POLL; /* poll interval */ Xstatic int debug=0; /* for mgrmail -d >& /dev/tty?? */ Xstatic int x,y; /* window position */ Xstatic int w,h; /* window size */ Xstatic int border; /* size of mgr border */ Xstatic int local=0; /* use local icon only */ Xstatic int local_mode = -1;/* local mode bits for tty */ Xstatic int cwide, chigh; /* width and height of font characters */ Xstatic char *termcap; X Xmain(argc,argv) X char **argv; X{ X register int i; X int xpos = XPOS; /* screen position of mail subwindow */ X int ypos = YPOS; X int font = -1; /* font to use for mail subwindow */ X int shape = 1; /* initially reshape window */ X char *command = MAIL; /* name of readmail command */ X X char *getenv(); X char *user = getenv("USER"); X char line[MAXLINE]; /* event input buffer */ X X int clean(), update(); X X /* make sure environment is ok */ X X ckmgrterm( *argv ); X X if (user==NULL || *user=='\0') { X fprintf(stderr, "%s: No USER environment variable value.\n", X argv[0]); X exit(2); X } X X /* process arguments */ X X for(i=1;i<argc;i++) { X if (Isflag(argv[i],"-s")) X shape = 0; X else if (Isflag(argv[i],"-d")) X debug = 1; X else if (Isflag(argv[i],"-l")) X local = 1; X else if (Isflag(argv[i],"-x")) X xpos = atoi(argv[i]+2); X else if (Isflag(argv[i],"-y")) X ypos = atoi(argv[i]+2); X else if (Isflag(argv[i],"-f")) X font = atoi(argv[i]+2); X else if (Isflag(argv[i],"-p")) X poll = Max(atoi(argv[i]+2),10); X else if (Isflag(argv[i],"-M")) X command = argv[i]+2; X else X usage(argv[0],argv[i]); X } X sprintf(mail,"%s/%s",MAILF,user); X X /* set up window environment */ X X m_setup(M_FLUSH); X m_push(P_MENU|P_BITMAP|P_FONT|P_EVENT|P_FLAGS|P_POSITION); X if (font < 0) X font = 0; X m_font(font); X get_font( &cwide, &chigh ); X X signal(SIGHUP,clean); X signal(SIGTERM,clean); X signal(SIGINT,clean); X signal(SIGALRM,update); X X dprintf(stderr,"pushing environment\n"); fflush(stderr); X m_ttyset(); X m_setmode(M_NOWRAP); X m_setmode(M_ABS); X m_func(B_COPY); X X download_icon(&mbox_closed,1); X download_icon(&mbox_full,2); X download_icon(&mbox_zip,5); X download_icon(&mbox_open,6); X X get_size(&x,&y,&w,&h); X get_param(0,0,0,&border); X m_movecursor(x+30,0); X X m_setmode(M_ACTIVATE); X if (shape) { X m_shapewindow(x,y,2*border+MAX_ICON, 2*border+MAX_ICON); X get_size(&x,&y,&w,&h); X } X X m_setevent(ACTIVATE,"A\r"); X m_setevent(REDRAW,"R\r"); X X m_clearmode(M_ACTIVATE); X set_icon(mbox_closed); X X dprintf(stderr,"Starting state 0x%x\n",state); fflush(stderr); X X update(); X X termcap = getenv("TERMCAP"); X if( termcap ) X *termcap = '\0'; X X /* wait for an event */ X X while(1) { X if( m_gets(line) == NULL ) { X clearerr( m_termin ); X continue; X } X dprintf(stderr,"state 0x%x line : %c\n",state,*line); X fflush(stderr); X switch(*line) { X case 'A': /* window is activated */ X if (!stat(mail,&statb) && S(st_size)) X do_mail(command,font,xpos,ypos); X else { X set_icon(mbox_open); X sleep(2); X m_clearmode(M_ACTIVATE); X } X state &= ~PROCESSED; X update(); X break; X case 'R': /* screen is redrawn */ X state &= ~PROCESSED; X get_size(&x,&y,&w,&h); X m_movecursor(x+30,0); X update(); X break; X } X } X} X X/* run readmail in a subwindow */ X Xdo_mail(command,font,xpos,ypos) Xchar *command; Xint font,xpos,ypos; X { X int code; X int n; X X alarm(0); X m_push(P_EVENT | P_FONT); X dprintf(stderr,"doing mail\n"); fflush(stderr); X n = m_makewindow(xpos, ypos, W_WIDE*cwide + 2*border, X W_HIGH*chigh + 2*border); X if (n==0) { /* can't make window */ X m_printstr("\007\fCan't open mail window, sorry"); X m_pop(); X return(0); X } X /* X if( *termcap && newtermcap[0] == '\0' ) { X strcpy( newtermcap, get_termcap() ); X termcap = newtermcap; X } X */ X set_icon(mbox_zip); X m_selectwin(n); X m_font(font); X menu_load(1,MENU_COUNT,menu); X m_selectmenu(1); X m_printstr(MSG_READING); X m_ttyreset(); X code = system(command); X m_printstr(MSG_CHECKING); X sleep(1); /* for "New mail arrived" message */ X dprintf(stderr,"Readmail completed code %d\n",code); fflush(stderr); X m_ttyset(); X m_selectwin(0); X m_destroywin(n); X m_pop(); X m_clearmode(M_ACTIVATE); X dprintf(stderr,"window deactivated\n"); fflush(stderr); X } X X/* check the spool file for new mail and update message */ X Xint Xupdate() X{ X alarm(0); X dprintf(stderr,"checking mail state 0x%x\n",state); fflush(stderr); X if (!stat(mail,&statb) && S(st_mtime)>S(st_atime) && S(st_size)) { X state &= ~PROCESSED; X if (S(st_mtime) != omtime) { X dprintf(stderr," First time New mail\n"); fflush(stderr); X m_printstr("\007"); X set_icon(mbox_full); X omtime = S(st_mtime); X } X } X else if (!(state&PROCESSED)) { X dprintf(stderr," Clearing new mail\n"); fflush(stderr); X set_icon(mbox_closed); X state |= PROCESSED; X } X alarm(poll); X} X X/* Clean up and exit */ X Xclean(n) Xint n; X{ X m_ttyreset(); X m_selectwin(0); X m_popall(); X exit(n); X} X Xusage(name,error) Xchar *name, *error; X{ X fprintf(stderr,"Invalid flag: %s\n",error); X fprintf(stderr, X "usage: %s -[s|x<pos>|y<pos>|f<font>|p<poll>|M<mail_program>]\n" X ,name); X exit(1); X} X X/* down load an icon */ X Xdownload_icon(icon,where) Xregister struct icon *icon; /* name of icon to download */ Xint where; /* bitmap to download icon to */ X { X X int size; X int w_in=0, h_in=0; X X if (!local) { X /* first try the local machine */ X dprintf(stderr,"looking for %s\n",icon->name); X m_bitfile(where, icon->name, &w_in, &h_in ); X } X X if (h_in==0 || w_in==0) { /* can't find icon */ X dprintf(stderr,"Couldn't find %s, downloading\n",icon->name); X if (local_mode == -1) X ioctl(fileno(m_termout),TIOCLGET,&local_mode); X local_mode |= LLITOUT; X ioctl(fileno(m_termout),TIOCLSET,&local_mode); X X size = icon->h * (((icon->w+15)&~15)>>3); X m_bitldto(icon->w,icon->h,0,0,where,size); X m_flush(); X write(fileno(m_termout),icon->data,size); X local_mode &= ~LLITOUT; X ioctl(fileno(m_termout),TIOCLSET,&local_mode); X } X else { X dprintf(stderr,"Found %s (%d x %d) expected %d x %d\n", X icon->name,w_in,h_in,icon->w,icon->h); X icon->w = w_in; X icon->h = h_in; X } X icon->type = where; X } X Xset_icon(name) Xstruct icon name; /* name of icon */ X { X int x0 = (w-name.w)/2; X int y0 = (h-name.h)/2; X X m_clear(); X m_bitcopyto(x0,y0,name.w,name.h,0,0,0,name.type); X dprintf(stderr,"copy %s to %d,%d (%d x %d)from %d\n", X name.name,x0,y0,name.w,name.h,name.type); X m_flush(); X } END_OF_FILE # end of 'demo/icon/iconmail.c' fi if test -f 'lib/window.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'lib/window.h'\" else echo shar: Extracting \"'lib/window.h'\" $8727 characters$ sed "s/^X//" >'lib/window.h' <<'END_OF_FILE' X/* Copyright (c) 1988 Bellcore X * All Rights Reserved X * Permission is granted to copy or use this program, EXCEPT that it X * may not be sold for profit, the copyright notice must be reproduced X * on copies, and credit should be given to Bellcore where it is due. X * BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM. X */ X/* $Header: window.h,v 4.2 88/08/12 07:41:26 sau Exp $ X $Source: /tmp/mgrsrc/lib/RCS/window.h,v $ X*/ Xstatic char h_window_[] = "$Source: /tmp/mgrsrc/lib/RCS/window.h,v $$Revision: 4.2 $"; X X/* defines for terminal emulator */ X X/* text flags - for commands with text string arguments */ X X#define T_INVALID 0 /* invalid command */ X#define T_FONT 1 /* down load a new font */ X#define T_MENU 2 /* down load a menu */ X#define T_EVENT 3 /* down load an event string */ X#define T_YANK 4 /* fill the yank bufffer */ X#define T_BITMAP 5 /* down load a bit map */ X#define T_COMMAND 6 /* start a new window & command in it */ X#define T_GIMME 7 /* send me stuff */ X#define T_SMAP 8 /* save a bitmap on a file */ X#define T_GMAP 9 /* read a bitmap from a file */ X#define T_SEND 10 /* send a message to another application */ X#define T_GRUNCH 11 /* fast-draw, short vector mode */ X#define T_STRING 12 /* write a text sting into an offscreen bitmap */ X X/* option codes for GETMODE / SETMODE */ X X#define M_STANDOUT 0 /* window is in standout mode */ X#define M_WOB 1 /* window is white on black */ X#define M_AUTOEXPOSE 2 /* expose window upon shell output */ X#define M_BACKGROUND 3 /* permit obscured window to update */ X#define M_NOINPUT 4 /* don't accept keyboard input */ X#define M_NOWRAP 5 /* don't auto wrap */ X#define M_OVERSTRIKE 6 /* overstrike mode */ X#define M_ABS 7 /* use absolute coordinates */ X#define M_ACTIVATE 8 /* activate / hide window; not a mode */ X#define M_STACK 12 /* permit event stacking */ X#define M_DUPKEY 13 /* set keyboard escape key */ X#define M_NOBUCKEY 14 /* prevent mgr processing buckey keys, X pass them through to the application */ X X/* cut/paste options */ X X#define M_SNARFLINES 9 /* only snarf entire lines */ X#define M_SNARFTABS 10 /* change spaces to tabs in snarf */ X#define M_SNARFHARD 11 /* snarf even if errors */ X X/* option codes for GETINFO */ X X#define G_MOUSE 0 /* mouse coordinates */ X#define G_TERMCAP 1 /* send back termcap entry */ X#define G_WINSIZE 2 /* cols, lines */ X#define G_FONT 3 /* font wide, high, # */ X#define G_COORDS 4 /* window coords */ X#define G_STATUS 5 /* window status */ X#define G_ALL 6 /* complete window status */ X#define G_SYSTEM 7 /* system status */ X#define G_ALLFONT 8 /* font information */ X#define G_TEXT 9 /* text region size */ X#define G_ALLMINE 10 /* window status for client windows */ X#define G_CURSOR 11 /* character/ graphics cursor position */ X#define G_MOUSE2 12 /* cooked mouse coordinates */ X#define G_NOTIFY 13 /* gimme info re notify windows */ X#define G_ID 14 /* my client window number */ X#define G_FLAGS 15 /* current window flags */ X#define G_MAX 15 /* maximum GETINFO value */ X X/* option codes for stacking window environment */ X X#define P_MENU 0x001 /* push menus */ X#define P_EVENT 0x002 /* push events */ X#define P_FONT 0x004 /* push current font */ X#define P_CURSOR 0x008 /* push current cursor position */ X#define P_BITMAP 0x010 /* push saved bitmaps */ X#define P_POSITION 0x020 /* push window location */ X#define P_WINDOW 0x040 /* push window contents */ X#define P_FLAGS 0x080 /* push window flags */ X#define P_MOUSE 0x100 /* push mouse position */ X#define P_TEXT 0x200 /* push text region */ X X X#define P_ALL 0x3ff /* push everything */ X#define P_MAX 0x400 /* end of codes marker */ X#define P_DEFAULT (P_MENU | P_EVENT | P_FONT | P_FLAGS | P_TEXT) X#define P_CLEAR 0x400 /* clear new environment */ X X/* menu_flags */ X X#define MF_SNIP 8 /* don't send action for parent of s/o menu */ X#define MF_PAGE 4 /* auto-page for menus */ X#define MF_AUTO 2 /* auto-right exit for menus */ X#define MF_CLEAR 1 /* clear menu flags */ X X/* Escape codes */ X X#define ESC '\033' /* escape character */ X X#define E_MINUS '-' /* set the munus flag */ X#define E_SEP1 ',' /* primary field seperator */ X#define E_SEP2 ';' /* secondary field seperator */ X#define E_MOUSE '?' /* testing -- move the mouse */ X#define E_ADDLINE 'a' /* add a new line */ X#define E_ADDCHAR 'A' /* add a character */ X#define E_BITBLT 'b' /* do a bit blit */ X#define E_BITCRT 'B' /* create a bit blit */ X#define E_CLEAREOL 'c' /* clear */ X#define E_CLEAREOS 'C' /* clear */ X#define E_DELETELINE 'd' /* delete a line */ X#define E_BITLOAD 'D' /* download a bitmap */ X#define E_EVENT 'e' /* download events */ X#define E_DELETECHAR 'E' /* delete a char */ X#define E_DOWN 'f' /* down 1 line */ X#define E_FONT 'F' /* pick a new font */ X#define E_GO 'g' /* Go; move graphics pointer */ X#define E_MOVE 'G' /* move to x,y pixels */ X#define E_SETCURSOR 'h' /* select cursor style */ X#define E_BLEEP 'H' /* blink a section of the screen */ X#define E_GETINFO 'I' /* get info from mgr */ X#define E_STANDOUT 'i' /* start standout mode */ X#define E_FCOLOR 'j' /* set forground color */ X#define E_BCOLOR 'J' /* set background color */ X#define E_LINE 'l' /* Plot a line */ X#define E_LINK 'L' /* menu links */ X#define E_MENU 'm' /* download menus */ X#define E_CUP 'M' /* move to col, row (zero origin) */ X#define E_STANDEND 'n' /* end standout mode */ X#define E_CIRCLE 'o' /* Plot a circle or an ellipse or an arc */ X#define E_PUSH 'P' /* push window environment */ X#define E_POP 'p' /* pop window environment */ X#define E_RUBBER 'R' /* rubber band a line/rect (obsolete) */ X#define E_RIGHT 'r' /* right 1 column */ X#define E_CLEARMODE 's' /* clear window mode */ X#define E_SETMODE 'S' /* set a window mode */ X#define E_TEXTREGION 't' /* set the text region */ X#define E_UPLINE 'u' /* up 1 line */ X#define E_BITGET 'U' /* upload a bitmap */ X#define E_SHAPE 'W' /* reshape window, make it active */ X#define E_SIZE 'w' /* reshape window: cols,rows */ X#define E_GIMME 'x' /* send me data */ X#define E_PUTSNARF 'y' /* put the snarf buffer */ X#define E_SNARF 'Y' /* snarf text into the snarf buffer */ X#define E_VI 'V' /* set vi mode */ X#define E_NOVI 'v' /* turn off vi mode */ X#define E_HALFWIN 'z' /* make a 1/2 window */ X#define E_MAKEWIN 'Z' /* make/goto a new window */ X#define E_NULL '$' /* do nothing, force exit */ X#define E_SMAP '>' /* save a bitmap */ X#define E_GMAP '<' /* get a bitmap */ X#define E_SEND '|' /* send a message to another application */ X#define E_CURSOR '%' /* set mouse cursor */ X#define E_GRUNCH ':' /* graphics crunch mode (experimental) */ X#define E_STRING '.' /* write characters in offscreen bitmap */ X#ifdef XMENU X#define E_XMENU 'X' /* extended menu operations */ X#endif X X X/* misc */ X X#define C_NOCHAR '?' /* for character not in font */ X#define C_EXPOSED 'e' /* window is not obscured */ X#define C_ACTIVE 'a' /* window has input focus */ X#define C_NOTACTIVE 'n' /* window is obscured */ X#define C_OBSCURED 'o' /* window is obscured */ X#define C_NAME "px|mgr|mgr teminal emulator" X X#define C_NULL '\000' /* null */ X#define C_BS '\b' /* back space */ X#define C_FF '\f' /* form feed */ X#define C_BELL '\007' /* bell */ X#define C_TAB '\t' /* tab */ X#define C_RETURN '\r' /* return */ X#define C_NL '\n' /* line feed */ X X/* cursor styles */ X#define CS_BLOCK 0 /* standard block cursor */ X#define CS_LEFT 1 /* left vertical bar */ X#define CS_RIGHT 2 /* right vertical bar */ X#define CS_BOX 3 /* outline */ X#define CS_UNDER 4 /* underline */ X X/* some raster op functions (for bit_copy) */ X X#ifndef BIT_NOT X#define BIT_NOT(x) (~(x)) /* from bitmap.h */ X#endif X#define B_SRC (0xc) X#define B_DST (0xa) X#define B_OR (B_SRC|B_DST) X#define B_COPY (B_SRC) X#define B_COPYINVERTED ((BIT_NOT(B_SRC))&0xf) X#define B_XOR (B_SRC^B_DST) X#define B_AND (B_SRC&B_DST) X X/* raster op functions (for bit_write and bit_line) */ X X#define B_SET (0xf) X#define B_CLEAR (0x0) X#define B_INVERT ((BIT_NOT(B_DST))&0xf) X X/* where to find icon directory */ X X#ifndef ICONDIR X# define ICONDIR "/usr/mgr/icon" /* readable by all icons */ X#endif X X/* other macros */ X X#define Scalex(x) \ X (W(flags)&W_ABSCOORDS ? (x) : (x) * (int)BIT_WIDE(W(window))/GMAX) X#define Scaley(y) \ X (W(flags)&W_ABSCOORDS ? (y) : (y) * (int)BIT_HIGH(W(window))/GMAX) X#define Scalexy(y) \ X (W(flags)&W_ABSCOORDS ? (y) : \ X (y) * (int)(BIT_HIGH(W(window))+BIT_WIDE(W(window)))/(2*GMAX)) X X#define FSIZE(c) ((int) (W(font)->head.c)) X#define WIDE BIT_WIDE(window) X#define HIGH BIT_HIGH(window) X#define T_WIDE BIT_WIDE(text) X#define T_HIGH BIT_HIGH(text) END_OF_FILE # end of 'lib/window.h' fi if test -f 'src/do_button.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'src/do_button.c'\" else echo shar: Extracting \"'src/do_button.c'\" $8518 characters$ sed "s/^X//" >'src/do_button.c' <<'END_OF_FILE' X/* Copyright (c) 1987 Bellcore X * All Rights Reserved X * Permission is granted to copy or use this program, EXCEPT that it X * may not be sold for profit, the copyright notice must be reproduced X * on copies, and credit should be given to Bellcore where it is due. X * BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM. X */ X/* $Header: do_button.c,v 4.2 88/06/28 15:25:58 bianchi Exp $ X $Source: /tmp/mgrsrc/src/RCS/do_button.c,v $ X*/ Xstatic char RCSid_[] = "$Source: /tmp/mgrsrc/src/RCS/do_button.c,v $$Revision: 4.2 $"; X X/* Figure out what to do with a button push */ X X#include "bitmap.h" X#include <stdio.h> /* temporary */ X#include <sys/signal.h> X#include "menu.h" X#include "defs.h" X#include "font.h" X#include "event.h" X Xdo_button(button) Xint button; X { X register WINDOW *win; /* window of interest */ X int choice; /* current menu choice */ X int choice_ok; /* valid choice flag */ X struct menu_state *state; /* place to keep menu state */ X register int which_menu; /* which menu indicator */ X X#ifdef DEBUG X dprintf(b)(stderr,"do button %d (button state id %d)\n",button,button_state); X#endif X X /* Insist on a transition before taking any action. X */ X if( button == button_state ) X return; X X /* Other button codes, such as chords, are not recognized and have no X effect. X */ X switch( button ) { X case 0: X case BUTTON_SYS: X case BUTTON_2: X case BUTTON_1: X break; X default: X return; X } X X /* If button was down and now no button is down, X send the event stating the formerly down button is now up. X If some button is down, the same or some other, X do nothing. X Note that this creates a fundmental property of MGR: namely that X once a button is pressed, no other button pressings have any effect X until all buttons are released. X */ X if( button_state ) { X if ( button == 0 ) { X int b_event = -button_state; X X /* button_state must be cleared before sending a Button_Up event to X prevent any event action from thinking the button is still down. X */ X button_state = 0; X do_event( b_event, active, E_MAIN ); X } X return; X } X X /* button_state is the global record of the current button state. X */ X button_state = button; X X /* Check for events associated with this button being pushed. X */ X do_event(button,active,E_MAIN); X switch (button) { X case BUTTON_1: /* temporary vi hack */ X#ifdef VI X if (active && ACTIVE(flags)&W_VI) { X X int x = mousex-(ACTIVE(x0)+ACTIVE(text).x); X int y = mousey-(ACTIVE(y0)+ACTIVE(text).y); X int dx = ACTIVE(text).wide ? X ACTIVE(text).wide : BIT_WIDE(ACTIVE(window)); X int dy = ACTIVE(text).wide ? X ACTIVE(text).high : BIT_HIGH(ACTIVE(window)); X X if (x<0 || x > dx) X break; X if (y>=0 && y<=dy) { X char buff[10]; X sprintf(buff,"%dH%d|", X y/ACTIVE(font)->head.high+1, X x/ACTIVE(font)->head.wide+1); X write(ACTIVE(to_fd),buff,strlen(buff)); X } X else if (y<0) X write(ACTIVE(to_fd),"\025",1); /* ASCII Control-U */ X else X write(ACTIVE(to_fd),"\004",1); /* ASCII Control-D */ X } X#endif X if (active) { X go_menu(1); X } X break; X case BUTTON_2: /* for applic. menu */ X if (active) { X go_menu(0); X } X break; X case BUTTON_SYS: /* for system operation */ X /* see if mouse is in a window */ X if (mousex < STRIPE) X win = (WINDOW *) 0; X else X for(win=active;win != (WINDOW *) 0;win=W(next)) X if(mousein(mousex,mousey,win,1)) X break; X X /* do a menu for no window, or active window */ X if (win == active || win == (WINDOW *) 0) { X if (active && win == active) { X state = menu_define(font,active_menu,0,0, X PUTCOLOR(W(style)), X PUTCOLOR(W(background))); X which_menu = 1; X } X else if (next_window >= MAXWIN) { X state = menu_define(font,full_menu,0,0,MENU_FG,MENU_BG); X which_menu = 2; X } X else { X state = menu_define(font,main_menu,0,0,MENU_FG,MENU_BG); X which_menu = 3; X } X if (active) { X cursor_off(); X if (which_menu != 1) X ACTIVE_OFF(); X } X state = menu_setup(state,screen,mousex,mousey,0); X menu_get(state,mouse,0,0); X choice = menu_choice(state); X choice_ok = menu_ischoice(state); X menu_destroy(state); X if (choice_ok) { X switch(which_menu) { X case 1: X ACTIVE_OFF(); X (*active_functions[choice])(); X break; X case 2: X (*full_functions[choice])(); X break; X case 3: X (*main_functions[choice])(); X break; X } X } X if (active) { X ACTIVE(flags) &= ~W_NOINPUT; X ACTIVE_ON(); X cursor_on(); X } X do_button(0); X } X else { X /* bring obscured window to the top */ X#ifdef DEBUG X dprintf(b)(stderr,"activating: %s\r\n",W(tty)); X#endif X if (active) { X ACTIVE_OFF(); X cursor_off(); X } X expose(win); X if (active) { X ACTIVE(flags) &= ~W_NOINPUT; X ACTIVE_ON(); X cursor_on(); X } X } X break; X } X return; X } X X/* hide the active window */ X Xint hide_win() X { X hide(active); X } X X/* quit with confirm */ X Xint quit() X { X struct menu_state *state; /* place to keep menu state */ X int confirm; X X /* confirm the quit */ X X state = menu_define(font,quit_menu,0,0,MENU_BG,MENU_FG); X state = menu_setup(state,screen,mousex,mousey,0); X X /* The extra call to menu_get() makes the use of the mouse buttons X consistent on the menus; namely the action is selected by the button X going up. X */ X menu_get(state,mouse,BUTTON_SYS,0); X menu_get(state,mouse,0,0); X X confirm = menu_ischoice(state) ? menu_choice(state) : 0; X menu_destroy(state); X if (confirm == M_QUIT) { X _quit(); X exit(0); X } X else if (confirm == M_SUSPEND) X suspend(); X } X X/* really quit */ X Xint X_quit() X { X register WINDOW *win; X static int really_quit=0; X X if (really_quit++) { /* we're in bad shape */ X perror("PANIC!! Error during _quit()!"); X setreuid(getuid(),getuid()); X abort(); X } X X MOUSE_OFF(mousex,mousey); X X sleep(1); /* let the key (if any) un-press before resetting X the kbd */ X set_kbd(0); /* fix up keyboard modes */ X kbd_reset(); /* reset the keyboard */ X reset_tty(0); /* fix up console tty modes */ X X /* fix pttys */ X if (geteuid() < 2) X for(win=active;win != (WINDOW *) 0;win=W(next)) { X chmod(W(tty),0666); X chown(W(tty),0,0); X } X X /* fix utmp file */ X X#ifdef WHO X close(getdtablesize()-1); /* make sure there are enough fd's left */ X for(win=active;win != (WINDOW *) 0;win=W(next)) X if (W(tty)) X rm_utmp(W(tty)); X restore_utmp(0,""); X#endif X X CLEAR(screen,BIT_CLR); X do_cmd( 'q' ); /* do the quiting command */ X } X X/* redraw the screen, restore contents of saved windows */ X Xint redraw() X { X register WINDOW *win; X X#ifdef DEBUG X dprintf(b)(stderr,"\r\n\tREDRAW\r\n"); X#endif X for(win=active;win != (WINDOW *) 0;win=W(next)) { X if (W(flags)&W_ACTIVE) { X save_win(win); X do_event(EVENT_REDRAW,win,E_MAIN); X } X } X X erase_win(screen,0,0); X if (active) { X for(win=ACTIVE(prev);win != active;win=W(prev)) { X restore_win(win); X border(win,BLK_BDR,WH_BDR); X } X restore_win(active); X border(active,BLK_BDR,WH_BDR); X } X } END_OF_FILE # end of 'src/do_button.c' fi if test -f 'src/do_menu.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'src/do_menu.c'\" else echo shar: Extracting \"'src/do_menu.c'\" $8358 characters$ sed "s/^X//" >'src/do_menu.c' <<'END_OF_FILE' X/* Copyright (c) 1987 Bellcore X * All Rights Reserved X * Permission is granted to copy or use this program, EXCEPT that it X * may not be sold for profit, the copyright notice must be reproduced X * on copies, and credit should be given to Bellcore where it is due. X * BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM. X */ X/* $Header: do_menu.c,v 4.1 88/06/21 13:21:47 bianchi Exp $ X $Source: /tmp/mgrsrc/src/RCS/do_menu.c,v $ X*/ Xstatic char RCSid_[] = "$Source: /tmp/mgrsrc/src/RCS/do_menu.c,v $$Revision: 4.1 $"; X/* high level menu manipulation routines */ X X#include "bitmap.h" X#include <stdio.h> /* temporary */ X#include "menu.h" X#include "defs.h" X#include "font.h" X X/* do a tree of menus */ X Xstatic int x_page = 5; /* offset for paging menu */ Xstatic int y_page = -5; Xstatic int x_slide = 40; /* offset for scrolling menu */ Xstatic int y_slide = 10; X Xstruct menu_result * Xdo_menus(screen,mouse,x,y,font,menu_list,menu,exit_code) XBITMAP *screen; /* bitmap screen */ Xint mouse; /* fd to get mouse coordinates */ Xint x,y; /* where the menu goes on the screen */ Xstruct font *font; /* font to use for menus */ Xstruct menu_state *menu_list[]; /* list of available menus */ Xint menu; /* current menu number */ Xint exit_code; /* valid exit codes */ X { X struct menu_state *state; /* 'cookie' for menu system */ X struct menu_result *result; /* messages for nodes of menu tree chosen */ X int done=0; /* true if ok to backup a level */ X int first = 1; /* true upon entry */ X int next; /* next menu # */ X struct menu_result *add_result(); X char *print_menu(); X X /* set up menu, get menu 'cookie' */ X X state = menu_list[menu]; /* fetch the menu state */ X result = (struct menu_result *) 0; X state = menu_setup(state,screen,x,y,menu_choice(state)); X X if (state == (struct menu_state *) 0) { X perror("Error setting up menu"); X return(NULL); X } X X /* see if another page */ X X if (state->next >= 0) X exit_code |= EXIT_BOTTOM; X else X exit_code &= ~EXIT_BOTTOM; X X#ifdef DEBUG X dprintf(m)(stderr," Setting up menu %d at %d,%d: valid states %s\n", X menu,x,y,print_menu(exit_code)); X#endif X X /* get selection on current menu */ X X while (!done) X { X X /* get menu state from user */ X#ifdef DEBUG X dprintf(m)(stderr," from user ..."); fflush(stderr); X#endif X X /* do auto right menus */ X X if (state->flags&MENU_PAGE && exit_code&EXIT_BOTTOM && first && X state->current >= state->count ) { X first=0; X state->exit = EXIT_BOTTOM; X } X else if (state->flags&MENU_AUTO && exit_code&EXIT_RIGHT && first) { X first=0; X state->exit = EXIT_RIGHT; X } X else X menu_get(state,mouse,0,exit_code); X X /* execute appropriate state action */ X X#ifdef DEBUG X dprintf(m)(stderr,"got menu %d (at %d,%d) selection %d (%s)\n", X menu,x,y,menu_choice(state),print_menu(menu_exit(state))); X#endif X X switch (menu_exit(state)) { X case EXIT_LEFT: /* slid off to the left */ X case EXIT_TOP: /* slid of the top */ X result = NULL; X done++; X break; X case EXIT_CHOICE: /* add current choice onto list */ X result = add_result(state,result); X done++; X break; X case EXIT_RIGHT: /* slid off top the right */ X if ((next = menu_next(state)) >=0 && /* link exists */ X menu_list[next] && /* menu exists */ X menu_list[next]->save == (BITMAP *) 0 && /* not used */ X (result=do_menus(screen,mouse, /* choice */ X x+x_slide,y-y_slide,font,menu_list, X next,exit_code|EXIT_LEFT))) { X done++; X } X break; X case EXIT_BOTTOM: X if ((next = menu_next(state)) >=0 && /* menu exists */ X menu_list[next]->save == (BITMAP *) 0 && /* not used */ X (result=do_menus(screen,mouse, /* choice */ X x+x_page,y+y_page,font,menu_list, X next,exit_code|EXIT_TOP))) { X done++; X } X break; X default: X if( !debug ) X break; X fprintf(stderr,"invalid menu state: 0%o\n",menu_exit(state)); X result = NULL; X done++; X break; X } X } X X#ifdef DEBUG X dprintf(m)(stderr," Tearing down %d at %d,%d choice: %d, returning: %s\n", X menu,x,y,menu_choice(state),print_menu(menu_exit(state))); X#endif X X /* add our action onto action list */ X X if (menu_exit(state) == EXIT_RIGHT && result && !(state->flags&MENU_SNIP)) { X result = add_result(state,result); X } X X /* erase menu from the screen */ X X menu_remove(state); X return(result); X } X X/* add a value to list of menu values */ X Xstruct menu_result * Xadd_result(state,list) Xstruct menu_state *state; /* menu to add choice to */ Xstruct menu_result *list; /* current list of results */ X { X register struct menu_result *current; /* current result */ X char *malloc(); X X /* set up list */ X X if (list == (struct menu_result *) 0) { X list = (struct menu_result *) malloc(sizeof(struct menu_result)); X list->next = NULL; X list->value = NULL; X } X else if (list->value == NULL) X return(list); X X /* add entry to existing list */ X X if (menu_value(state) && *menu_value(state) && X (current = (struct menu_result *) X malloc(sizeof(struct menu_result)))) { X current->value = menu_value(state); X current->next = list; X } X else X current = list; X return(current); X } X X/* do a tree of menus */ X Xgo_menu(n) Xint n; /* which menu button (0 or 1) */ X { X struct menu_result *result = NULL; /* result of menu selection */ X register struct menu_result *current; /* current action */ X int pushed; X int exit = EXIT_RIGHT; /* enable sliding and paging */ X register int menu = ACTIVE(menu[n]); X X#ifdef DEBUG X dprintf(m)(stderr,"Starting menu %d, button %d\n",menu,n); X#endif X X /* go get a menu selection, return list of actions */ X X if (menu>=0 /* && mousein(mousex,mousey,active,0) */) { X result = do_menus(screen,mouse,mousex,mousey, X font,ACTIVE(menus),menu,exit); X X /* send list of actions, and free action space */ X X for(current=result;current;) { X if (current->value) X Write(ACTIVE(to_fd),current->value,strlen(current->value)); X result = current; X current = current->next; X free(result); X } X X /* button is no longer pushed down; record that fact */ X do_button( 0 ); X } X return; X } X X/* define a menu from menu download string */ X Xstruct menu_state * Xdo_menu(line,font,fg,bg) Xchar *line; Xstruct font *font; Xint fg,bg; /* fg and bg color */ X { X register int count; X char *fields[MAXITEMS]; X X count = get_fields(line+1,*line,fields,MAXITEMS)/2; X X#ifdef DEBUG X dprintf(m)(stderr,"Setting up a menu, %d items\n",count); X#endif X if (count < 1) X return((struct menu_state *) 0); X X return(menu_define(font,fields,fields+count,count,fg,bg)); X } X X X/******************************************************************************* X * X * break a line into its component fields X */ X Xstatic int Xget_fields(line,delim,fields,max) Xchar *line; /* line to break into fields */ Xchar **fields; /* resultant fields */ Xchar delim; /* field delimeter */ Xint max; /* max # fields */ X { X register char c, *start; X register int count; X X for(count=0,start=line; count<max && (c = *line); line++) X if (c == delim) { X fields[count++]=start; X *line = '\0'; X start=line+1; X } X if (start<line) X fields[count++] = start; X fields[count]=(char *) 0; X return(count); X } X X/* set slideing defaults */ X Xint Xset_slide(x,y) Xint x,y; X { X if (x || y) { X x_slide = x; X y_slide = y; X } X return(0); X } X X/* set paging defaults */ X Xint Xset_page(x,y) Xint x,y; X { X if (x || y) { X x_page = x; X y_page = y; X } X return(0); X } END_OF_FILE # end of 'src/do_menu.c' fi echo shar: End of archive 30 $of 61$. cp /dev/null ark30isdone 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 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 \ 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 \ 55 56 57 58 59 60 61 ; do if test ! -f ark${I}isdone ; then MISSING="${MISSING} ${I}" fi done if test "${MISSING}" = "" ; then echo You have unpacked all 61 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