Usenet 1994 January/usenetsourcesnewsgroupsinfomagicjanuary1994.iso/sources/unix/volume17/mgr/part35

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

Subject:  v17i036:  MGR, Bellcore window manager, Part35/61
Newsgroups: comp.sources.unix
Approved: [e-mail]

Submitted-by: Stephen A. Uhler <[e-mail]>
Posting-number: Volume 17, Issue 36
Archive-name: mgr/part35




#! /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 35 (of 61)."
# Contents:  demo/misc/hpmgr.c font-16/Uoldeng22x30r lib/term.c
#   src/get_menus.c
# Wrapped by [e-mail] on Thu Nov 17 21:05:43 1988
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'demo/misc/hpmgr.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'demo/misc/hpmgr.c'\"
else
echo shar: Extracting \"'demo/misc/hpmgr.c'\" \(12178 characters\)
sed "s/^X//" >'demo/misc/hpmgr.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/*
X**    hp2621 terminal emulator
X*/
X#ifndef lint
Xstatic char rcsid[] = "$Header: hpmgr.c,v 4.2 88/06/22 14:37:42 bianchi Exp $";
X#endif
X
X#include "term.h"
X#include <ctype.h>
X
X#define MAX_ROW        24
X#define MAX_COL        80
X
X#define C_X    (MAX_COL*f_w)        /* width of the screen */
X#define C_Y    (MAX_ROW*f_h)        /* height of the screen */
X/*
XFILE *outfile;
X*/
X
Xextern int more_out;
Xstatic char *m_fields[16];
X
Xint cur_x = 0;        /* cursor location */
Xint cur_y = 0;
X
Xextern char *shiftline();
Xextern char *del_line();
Xint banner_space;
Xint x,y,w,h,f_w,f_h;
X
Xint in_mode = 0;    /* insert mode flag */
X
X#define    min(a,b)    ((a)<(b)?(a):(b))
X#define    max(a,b)    ((a)>(b)?(a):(b))
X
Xint margin;
X
Xmain(argc,argv)
Xint argc;
Xchar **argv;
X{
X    extern int verboseflag;
X    int dummy;
X
X    ckmgrterm( *argv );
X
X    if (argc > 1 && !(strcmp(argv[1],"-v")))
X    {
X        verboseflag = 1;
X    }
X
X/*
X    if ((outfile = fopen("hpmgr.out","w+")) == NULL)
X    {
X        printf("can't create logfile\n");
X        exit(1);
X    }
X*/
X
X    m_termin = stdin;
X    m_termout = stdout;
X
X    m_push(P_MENU|P_POSITION|P_EVENT|P_FLAGS);
X    m_setmode(M_ABS);
X    get_size(&x,&y,&w,&h);
X    get_font(&f_w,&f_h);
X    get_margin(&margin);
X
X    banner_space = f_h+2;
X
X    m_setmode(M_BACKGROUND);
X
X    if ((w != C_X ) || ((C_Y + banner_space )!= h))
X    {
X        m_shapewindow(x,y,C_X+(2*margin),
X                  C_Y + banner_space + (2*margin));
X    }
X
X    get_size(&x,&y,&w,&h);
X    m_clear();
X
X    /* print the banner line */
X    m_printstr("                   HP2621 EMULATOR");
X    m_flush();
X    m_func(B_INVERT);
X    m_bitwrite(0,0,w,banner_space-1);
X    m_flush();
X    m_func(B_OR);
X
X    m_textregion(0,banner_space,C_X,C_Y);
X    m_clear();
X    m_flush();
X
X    do_env("TERM=","h2");
X    do_env("TERMCAP=","");
X    getpty((char**)0);
X    printf("\n\rPANIC -- getpty failed!! something is wrong!!\n\r");
X}
X
X
X
Xint
Xget_margin(x)
Xint *x;
X
X   {
X   register int count;
X
X   if ((count = get_info(G_SYSTEM,m_fields)) >= 4) {
X      *x = atoi(m_fields[3]);
X      return(1);
X      }
X   else
X    return(-count);
X   }
X
Xinmassage(ptr,cnt)
Xchar *ptr; int cnt;
X{
X    return(cnt);
X}
X
Xoutmassage(ptr,cnt)
Xchar *ptr; int cnt;
X{
X    char *start = ptr;
X    char *to, *sptr, *shiftptr;
X    int newcnt = 0;
X    char newbuf[1024];
X    char smallb[1024];
X    static char holdb[1024];
X
X    static int gotesc = 0;
X    static int gotamp = 0;
X    static int gota = 0;
X    static int gotc = 0;
X    static int goty = 0;
X    static int gotr = 0;
X    static int gotd = 0;
X    static int gotj = 0;
X
X    static int xval = 0;
X    static int yval = 0;
X
X/*
Xfprintf(outfile,"outmassage --  more = %d  cnt = %d\n",more_out,cnt);
Xfflush(outfile);
X*/
X    /*
X    **    check to see if we have more data on hold
X    */
X    if (cnt == -2)
X    {
X        if (more_out)
X        {
X            to = ptr;
X            mystrncpy(&to,holdb,more_out);
X            cnt = more_out;
X            more_out = 0;
X        }
X        else
X        {
X            printf("panic -- outmassage got cnt = %d and more_out = %d\n",
X                            cnt,more_out);
X            exit(1);
X        }
X    }
X    else
X    {
X        if (cnt <= 0)
X            return(cnt);
X    }
X
X    for(to = newbuf;(cnt > 0) && (newcnt < (1024-100));ptr++,cnt--)
X    {
X
X        *ptr &= 0177;
X/*
Xfputc(*ptr,outfile);
X*/
X
X        if (gotesc)
X        {
X            switch (*ptr)
X            {
X                case '\000':
X                    goto out;
X                case ESC :
X                    gotamp = gota = gotc = gotj = gotd  =
X                        goty = gotr = 0;
X                    goto out;
X                case '&' :
X                    gotamp = 1;
X                    goto out;
X                case 'a' :
X                    gota = 1;
X                    goto out;
X                case 'y' :
X                    goty = 1;
X                    goto out;
X                case 'r' :
X                    gotr = 1;
X                    goto out;
X                case 'c' :
X                    gotc = 1;
X                    goto out;
X
X                case 'd' :
X                    gotd = 1;
X                    goto out;
X                case '1' :
X                case '2' :
X                case '3' :
X                    /*
X                    **    skip tabs for now
X                    */
X                    if (!gotamp)
X                    {
X                        gotesc = 0;
X                        goto out;
X                    }
X                case '0' :
X                case '4' :
X                case '5' :
X                case '6' :
X                case '7' :
X                case '8' :
X                case '9' :
X                    if (gotc || goty || gotr)
X                    {
X                        yval *=10;
X                        yval += (*ptr) - '0';
X                    }
X                    else
X                    {
X                        xval *=10;
X                        xval += (*ptr) - '0';
X                    }
X                    goto out;
X                case 'j' :
X                    gotj = 1;
X                    goto out;
X                /*
X                **    begin standout mode
X                */
X                case 'D' :
X                    if (gotamp && gotd)
X                    {
X                        *to++ = ESC;
X                        *to++ = 'i';
X                        newcnt += 2;
X                    }
X                    gotesc = gotamp = gotj = gotd = 0;
X                    goto out;
X                /*
X                **    skip keyboard mode for now
X                **    but  handle end of standout mode
X                */
X                case '@' :
X                    if (gotamp && gotd)
X                    {
X                        *to++ = ESC;
X                        *to++ = 'n';
X                        newcnt += 2;
X                    }
X                    gotesc = gotamp = gotj = gotd = 0;
X                    goto out;
X                case 'B' :
X                    if (gotamp)
X                    {
X                        gotesc = gotamp = gotj = 0;
X                        goto out;
X                    }
X                    goto parsepanic;
X
X                /*
X                **    clear screen
X                */
X                case 'J' :
X                    *to++ = ESC;
X                    *to++ = 'C';
X                    newcnt += 2;
X                    gotesc = 0;
X                    goto out;
X
X                /*
X                **    home cursor
X                */
X                case 'H' :
X                    sprintf(smallb,"%c%d,%dM",ESC,0,0);
X                    mystrncpy(&to,smallb,strlen(smallb));
X                    newcnt += strlen(smallb);
X                    cur_x = cur_y = gotesc = 0;
X                    goto out;
X
X                /*
X                **    clear to eol
X                */
X                case 'K' :
X                    *to++ = ESC;
X                    *to++ = 'c';
X                    newcnt += 2;
X                    gotesc =0;
X                    goto out;
X
X                /*
X                **    delete line
X                */
X                case 'M' :
X                    *to++ = ESC;
X                    *to++ = 'd';
X                    newcnt += 2;
X                    gotesc = 0;
X                    goto out;
X
X                /*
X                **    end insert mode
X                */
X                case 'R' :
X                    if (gota && gotamp)
X                    {
X                        goto vertaddr;
X                    }
X                    in_mode = 0;
X                    gotesc = 0;
X                    goto out;
X                /*
X                **    start insert mode
X                */
X                case 'Q' :
X                    in_mode = 1;
X                    gotesc = 0;
X                    goto out;
X
X                /*
X                **    open line
X                */
X                case 'L' :
X                    *to++ = ESC;
X                    *to++ = 'a';
X                    newcnt += 2;
X                    gotesc=0;
X                    goto out;
X
X                /*
X                **    up line
X                */
X                case 'A' :
X                    *to++ = ESC;
X                    *to++ = 'u';
X                    newcnt += 2;
X                    gotesc=0;
X                    goup();
X                    goto out;
X
X                case 'i' :
X                    cur_x -= (cur_x%8?cur_x%8:8);
X                    sprintf(smallb,"%c%d,%dM", ESC,cur_x,cur_y);
X                    mystrncpy(&to,smallb,strlen(smallb));
X                    newcnt += strlen(smallb);
X                    gotesc = 0;
X                    goto out;
X
X                /*
X                **    delete char
X                */
X                case 'P' :
X                    shiftptr = del_line();
X                    mystrncpy(&to,shiftptr,strlen(shiftptr));
X                    newcnt += strlen(shiftptr);
X                    gotesc=0;
X                    goto out;
X
X                /*
X                **    non destructive space
X                **    and horizontal motion
X                */
X                case 'C' :
X                    if (gotamp)
X                    {
X                        if (gota)
X                        {
X                            if(gotr||goty)
X                            {
X                                goto fulladdr;
X                            }
X                            sprintf(smallb,
X                                "%c%d,%dM",ESC,xval,cur_y);
X                            mystrncpy(&to,smallb,strlen(smallb));
X                            newcnt += strlen(smallb);
X                            cur_x = xval;
X                            gotesc = gotamp = gota =
X                                gotc = xval = yval = 0;
X                        }
X                        else
X                        {
X                            goto parsepanic;
X                        }
X                    }
X                    else
X                    {
X                        *to++ = ESC;
X                        *to++ = 'r';
X                        newcnt += 2;
X                        gotesc=0;
X                        goright();
X                    }
X                    goto out;
X
X
X                case 'Y' :
X            vertaddr:
X                    if (gotamp && gota)
X                    {
X            fulladdr:
X                        if (goty || gotr)
X                        {
X                            int tmp;
X                            tmp = xval;
X                            xval = yval;
X                            yval = tmp;
X                        }
X                        if (gotc || goty || gotr)
X                        {
X                            /*
X                            **    2-D cursor motion
X                            */
X/*
Xfprintf(outfile,"xval = %d, yval = %d",xval,yval);
Xfflush(outfile);
X*/
X                            if (yval > MAX_ROW-1)
X                            {
X                                fprintf(stderr,
X                                "PANIC -- got address > 23 = %d", yval);
X                                sleep(10);
X                            }
X                            sprintf(smallb,"%c%d,%dM",
X                                ESC,xval,yval);
X                            mystrncpy(&to,smallb,strlen(smallb));
X                            newcnt += strlen(smallb);
X                            cur_x = xval;
X                            cur_y = yval;
X                            gotesc = gotamp = gota = gotc =
X                                xval = yval = goty = gotr = 0;
X                        }
X                        else
X                        {
X                            /*
X                            **    vertical motion
X                            */
X                            if (xval > MAX_ROW-1)
X                            {
X                                fprintf(stderr,
X                                "PANIC -- got address > 23 = %d", xval);
X                                sleep(10);
X                            }
X                            sprintf(smallb,
X                                "%c%d,%dM",ESC,cur_x,xval);
X                            mystrncpy(&to,smallb,strlen(smallb));
X                            newcnt += strlen(smallb);
X                            cur_y = xval;
X                            gotesc = gotamp = gota =
X                                gotr = goty = gotc = xval = yval = 0;
X                        }
X                        goto out;
X                    }
X                    else
X                    {
X                        goto parsepanic;
X                    }
X                default :
X          parsepanic:;
X/*
X                    fprintf(outfile,"|BAD ESCAPE CODE esc = %d gotamp = %d gota = %d gotc = %d gotj = %d goty = %d gotr = %d code = %o|\n",
X                    gotesc,gotamp,gota,gotc,
X                        gotj,goty,gotr,*ptr);
X*/
X                    printf("|BAD ESCAPE CODE esc = %d gotamp = %d gota = %d gotc = %d gotj = %d goty = %d gotr = %d code = %o|\n",
X                    gotesc,gotamp,gota,gotc,
X                        gotj,goty,gotr,*ptr);
X                    sleep(10);
X                    gotesc = gotamp = gota = gotc = xval = yval = 0;
X                    goto out;
X            }
X        }
X
X        switch (*ptr)
X        {
X            case '\000' :
X                break;
X            case ESC:
X                gotamp = gota = gotc = gotj =
X                    goty = gotr = xval = yval = 0;
X                gotesc = 1;
X                break;
X            case '\010' :
X                goleft();
X                goto dochar;
X            case '\012' :
X                godown();
X                goto dochar;
X            case '\015' :
X                cur_x = 0;
X                goto dochar;
X            case '\011' :
X                cur_x += (8 - (cur_x%8));
X                goto dochar;
X            default:
X                if (in_mode && isprint(*ptr))
X                {
X                    shiftptr = shiftline();
X                    mystrncpy(&to,shiftptr,strlen(shiftptr));
X                    newcnt += strlen(shiftptr);
X                }
X                goright();
X        dochar :
X                *to++ = *ptr;
X                newcnt++;
X                break;
X        }
X    out:;
X    }
X
X    /*
X    **    make sure we didn't over run the end of the buffer
X    */
X    if ((newcnt < 0) || (newcnt >= 1024))
X    {
X        printf("panic: newcnt = %d, out of range\n",newcnt);
X    }
X    /*
X    **    did we run out of buffer space before finishing the input?
X    */
X    if (cnt)
X    {
X        to = holdb;
X        mystrncpy(&to,ptr,cnt);
X        more_out = cnt;
X    }
X    strncpy(start,newbuf,newcnt);
X/*
X    fprintf(outfile,"newcnt = %d\n",newcnt);
X    if ((newcnt > 0) && (newcnt < 1024))
X        fwrite(start,sizeof(char),newcnt,outfile);
X*/
X    return(newcnt);
X}
X
Xgoright()
X{
X    if (cur_x == (MAX_COL-1))
X    {
X        cur_x = 0;
X        godown();
X    }
X    else
X    {
X        cur_x++;
X    }
X}
X
Xgoleft()
X{
X    cur_x = max(0,cur_x - 1);
X}
X
Xgoup()
X{
X    cur_y = max(0,cur_y - 1);
X}
X
Xgodown()
X{
X    cur_y = min(MAX_ROW - 1, cur_y + 1);
X}
X
Xchar *
Xshiftline()
X{
X    static char shiftbuf[1024];
X    static char buf2[1024];
X
X/*
Xfprintf(outfile,"cur_x = %d cur_y = %d\n\n",cur_x, cur_y);
Xfflush(outfile);
X*/
X
X    /*    m_func     */
X    sprintf(shiftbuf,"%c%d%c",ESC,B_COPY,E_BITBLT);
X
X    /*    m_bitcopy */
X    sprintf(buf2,"%c%d,%d,%d,%d,%d,%d%c",
X          ESC,
X          (cur_x+1)*f_w,            /* dest  x */
X          banner_space + (cur_y*f_h),        /* dest  y */
X          f_w*((MAX_COL-1)-cur_x),        /* width  */
X          f_h,                    /* height */
X          cur_x*f_w,                /* src  x */
X          banner_space + (cur_y*f_h),        /* src  y */
X          E_BITBLT);
X    strcat(shiftbuf,buf2);
X
X    /*    m_func        */
X    sprintf(buf2,"%c%d%c",ESC,B_CLEAR,E_BITBLT);
X    strcat(shiftbuf,buf2);
X
X/*
X    sprintf(buf2,"%c%d,%d,%d,%d%c",
X          ESC,
X          cur_x*f_w,             x
X          banner_space + (cur_y*f_h),     y
X          f_w,                width
X          f_h,                height
X          E_BITBLT);
X    strcat(shiftbuf,buf2);
X
X*/
X    /*    m_func        */
X    sprintf(buf2,"%c%d%c",ESC,B_OR,E_BITBLT);
X    strcat(shiftbuf,buf2);
X    return(shiftbuf);
X}
X
Xchar *
Xdel_line()
X{
X    static char shiftbuf[1024];
X    static char buf2[1024];
X    /*    m_func     */
X    sprintf(shiftbuf,"%c%d%c",ESC,B_COPY,E_BITBLT);
X
X    /*    m_bitcopy */
X    sprintf(buf2,"%c%d,%d,%d,%d,%d,%d%c",
X          ESC,
X          cur_x*f_w,                /* dest x */
X          banner_space + (cur_y*f_h),        /* dest y */
X          f_w*((MAX_COL-1)-cur_x),        /* width  */
X          f_h,                    /* height */
X          (cur_x+1)*f_w,            /* src  x */
X          banner_space + (cur_y*f_h),        /* src  y */
X          E_BITBLT);
X    strcat(shiftbuf,buf2);
X
X    /*    m_func        */
X    sprintf(buf2,"%c%d%c",ESC,B_CLEAR,E_BITBLT);
X    strcat(shiftbuf,buf2);
X
X    sprintf(buf2,"%c%d,%d,%d,%d%c",
X          ESC,
X          C_X-f_w,            /*  x */
X          banner_space + (cur_y*f_h),    /*  y */
X          f_w,                /* width  */
X          f_h,                /* height */
X          E_BITBLT);
X    strcat(shiftbuf,buf2);
X
X    /*    m_func        */
X    sprintf(buf2,"%c%d%c",ESC,B_OR,E_BITBLT);
X    strcat(shiftbuf,buf2);
X    return(shiftbuf);
X}
X
Xmystrncpy(to,from,cnt)
Xchar **to, *from; int cnt;
X{
X    while(cnt > 0)
X    {
X        **to = *from;
X        (*to)++;    /* increment the pointer,NOT the pointer to the pointer */
X        from++;
X        cnt--;
X    }
X}
Xcleanup()
X{
X    m_pop();
X    m_textreset();
X    m_clear();
X    exit(0);
X}
END_OF_FILE
# end of 'demo/misc/hpmgr.c'
fi
if test -f 'font-16/Uoldeng22x30r' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'font-16/Uoldeng22x30r'\"
else
echo shar: Extracting \"'font-16/Uoldeng22x30r'\" \(12277 characters\)
sed "s/^X//" >'font-16/Uoldeng22x30r' <<'END_OF_FILE'
Xbegin 644 oldeng22x30r.fnt
XM%A8>"%L@                          @
XM
XM          /0 XP,  1 G_P XSQ!QB( !$ XW@!D  #C, XW@#C>  !$@> 1
XM "& /(P  A@#R.  _  ?@0#$8 (C  P&# 8"(.(P!
XM   @      $              #      "          "   (
XM
XM         !P
XM                                              ?X!_@^ (O __X!
XM_G_#_'X B\!_OR"R  '^8!_OP'^_( #ET_ _ ./ ?KZ #CP'JW !_P __P'E
XM] <OH!Y??@\#X?)Z!P 0                  !       ,      (
XM /@     4          4   0
XM                                             #X
XM                                      "
XM                      _L!_#. 1_ __\!_/_#^/X!'\!_9\&Y  '\X!_1
XMY']GP -VY_!_ \7@_L< /%X/[#@"!XA__P!V. ^QP =GQQ.'P_*\!__P
XM              "@      <      $       SP     <          <  !P
XM                            "       @  "
XM                     !X                                #  #(
XM  !@  &   .  /^  (( ! P  P  #                             @\
XM!&,. R> 90>!&0.",9P#)X!&X8 [  $8X!&@^$;A@ 9\Y#B>!WCPCX< =X\(
XM^#@$ _!'_@!T. /AP ?'1P.'@G,< __@                  #P      <
XM     &      !QP     <          <  !P
XM    $      !   $                                          H
XM                               'T 'P  #Z  /H  .  /^  ?X #_@
XM!]  'T                            !< #8.!F( #0. !@  "X@&80 !
XMX0 =   "X !@< 'A !ITX#@(#.AP#H< SH< Z#@$ . $" !T. .AP ='1P'(
XM '(< /_                   #X      <      /      !P      <
XM       <  !P                            <      #   ,
XM                                  0
XM      ![X +@  ]\ #WP  <  ?\ !_P '_@ >^ ![X
XM          =. ,X.#.( '0. &@  ,X@,X@ &X  =   ,X &@( ;A #ITX#P(
XM#.@X#H< SH. Z#@& $ (B !T. .AP ='1P'( '(<  "
XM  !P      <      '@     !P      <          <  !P
XM                <      &   8
XM          @                               !PX #@  X< #AP  <
XM 0  !W@  _  <. !PX                            ^. <X.#.( '0.
XM.@  <X@,Y  .X  =   <X .@  [A #ITX#P('.@X#H<!SH. Z#@/P  9B !T
XM. .AP ='1P#P '(<  "                    @      <      #P
XM!P      <   0  !   <  !P                            <      &
XM   8
XM                  !PX #@  X< #AP  8  0  !P   "  <. !PX
XM                      ^' <Z,&.( '8> .@  <X@8Z  .Z( =   <X .A
XMP [A #ITX"X(&.@<#H<!CH' Z#@;^#@SB !T. .AP ='1P#P '(<  $
XM                      <      !X     !P      <   X  #@  <  !P
XM                            <      .   X
XM                                                      !PX #@
XM  X< #AP  X  0  !P   "  <. !PX "   (                      "'
XM \Z8&.( /7N >G  \_@8\  >Z\ ]   \X >FX![A 'OWX&X(..@<'O\#CH'!
XMZ' 9_]PSB #W^ >_P ='1P/^ //\  (                           <
XM      \     !P      <   0  !   <  !P
XM    <      .   X
XM                              !PX #@  P< #!P  T  0  !P   $
XM<. !PX '   <                      $'!\[L..( ?0. ^OH!\_@X_@ ^
XM[<!]  !\X ^XX#[A /OWX.<(..@</H<#CH'#Z< </\ACB 'T. ^AP ]_?P/^
XM ?(<  0                           <       >@    !^      <
XM       <  !P                            ?@     .   X
XM
XM      !PX #@   <  !P !L  XX !P   (  <. !PX /@  ^
XM          '_A\^...( ?0. ^_P!\_@XZ8 ^^<!]  !\X ^@<#[A /OWX.?X
XM.._\/H<#CO_#[^ /!^!CB 'T. ^AP!]'1P/^ ?(< '\
XM      $P  =@  &   O  !@ !^   ,  <P  R  #(  <0 !P  """ ((  "
XM !$   @  R0  80 ?@  @@ '"  <(( X2 #+( /@@
XM                                          !PX #@   \  #@ !<
XM _] !P@  (  ?^ !QX '   <                      /_A\Z...( ?7N
XM^@@!\_@XZ, ^Z<!]  !\X ^@<#[A /OWX/^(..@</H<#CH'#_. 'Y/#CB 'W
XM^ ^_P!]'1P!X ?(< '\                       /]  ?Z  /P ''  'P
XM!\   R0 =Z !\  'P  =X !P  '//@<^  /  #^  #P !_P !_@ ?  !QP '
XMO0 >\]!\^ 'WP ?_
XM                  !PX #@  #\  '  "<  Y^ !WT  8  /\ "^X "   (
XM                      /_P<Z...( '8> .@@ <X@X[\ .[\ =   <X .@
XM8 [A #ITX".(..@<#O\#CH' ^. #_##CB !T. .AP!]_?P"< '(< '\
XM                  &^  =\ !_P ''  \P !P  '#P >< "X  #@  >< !P
XM  /WW _< !SH 'G0 <Z "[P '?  <  !SX #S@ //.!/\ +C@ G^
XM                                            ^         !PX #@
XM  '\  #H $<  @> !XX  P  ?^  0X                            (!
XMP<[^..( '0. .@@ <X@XZ. .Z< =   <X .AP [A #ITX"'(.._\#H<#CO_
XMZ'  _[#CB !T. .AP ='1P"< '/\ "                        ".  <<
XM !Y@ ''  <X !P  '#@ <<  X  #@  <, !P  ''' << !QP #C@ <<  Y@
XM'&  <  !QP #C@ ... .8 #C@  ,
XM                   !\         !PX #@  ,   !P /_@  . !PX  P
XM<.   X                            0!P<Z...( '0. .@@ <X@XZ. .
XM[\ =   <X .GP [A #ITX"'(&.@8#H<!CH& Z'  '_#CB !T. .AP ='1P$.
XM '(< "                        #.  << !P  ''  << !P  '#@ <<
XMX  #@  <8 !P  ''' << !QP #C@ <<  X  '$  <  !QP #C@ ... '  #C
XM@  P                                                   #X
XM      !PX #@  (   !P  <   . !PX !P  <.   X
XM          0 X8[^',) '0. .@@ <X@8S\ .Z< =   <X .XX [! #ITX"#H
XM',@8#H<!S(& Z'  $_!S"0!T. .AP ='1P$. '(< $
XM      &N  << !P  ''  <8 !P  '#@ <<  X  #@  =X !P  ''' << !QP
XM #C@ <<  X  '^  <  !QP #C@ ... '  #C@ !
XM                                          !PX #@  0   !P  <
XM  . !PX !@  <.   X                            @ X1R.'() &0.
XM,@@ 8X@<B, ,R< =   8X ,@X R! #ITX"#H# @P#H< P(, Z#@ $;!R"0!T
XM. .AP ='1P(' '(< (                        ..  << !P  ''  =@
XM!P  '#@ <<  X  #@  >X !P  ''' << !QP #C@ <<  X  !_@ <  !QP #
XMC@ ... #@ #C@ /P
XM    (      "      !PX #@  0   !P  <   . !PX #@  <.   X "   (
XM                     !P0<#".#P+ %P. /P@ 8X@,"8 .B8 9  !PX /A
XM< _! #ITX'!X# @P#H< P(, \#@ (3 \"P!\. .AP ?'1P<' '(< 0
XM                  ..  << !P  ''  >  !P  '#@ <<  X  #@  <X !P
XM  ''' << !QP #C@ <<  X   C@ <  !QP #C@ ... #@ #C@ $
XM                                        <      '      !PX #@
XM  3X  ]P  <  /N !PX #P  <.  >X '   <                     '\@
XM</R.#0^ '\. ?^B!^X@,"X ?C8#1  'XX ?R<!_Y(/)TX;QX!PC@/H< <(X!
XM_+@'_" T/@!_. .!P ?G1Q_+D'(< ?@$                      ..  <<
XM !P  ''  <  !P  '#@ <<  X  #@  <= !P  ''' << !QP #C@ <<  X
XM!C@ <  !QP #C@ ... YP #C@ $
XM                ^      /@     !]X #H  G] !_P  =  ?^ !]X #V
XM?>  _X /@  ^                     /_ <?^.!_\ /_> __\#_X@'#P _
XM^0'Q  /\P _\.C__P?)TXO\X \O ?N\ /;P#_QT/_\ ?_ #_^@/_P _W_S_S
XMH'(< __X                      '?  N< "X@ +G  ?$ "Y  'S@ ^<
XMX  #@  N> "Z  /OG@^> "YP 'S@ N<  Y  #[@ N@ !SX #C@ ...!_R #C
XM@ /\@                                               >      '
XM      "^  'P  _^ #_   ^  _X "^  !X  O@ !_@ '   >
XM         >. ,\?P _X >/P!X/X'GP@#C !Y\0/^  >>@!XX/'@_@_RX=\<X
XM .\ ?O  #G 'CAX9_X /^ 'CW '@ !Y[P'CAP(_X!__P
XM      #F  '@  ?  !X  /X  >  /_@ <8  <  !P  '<  <  ''' <<  >
XM /\  '\ !>  '^  '  #]P %\  7]P#^\ #_@ ?_
XM                            *      "       ,  !@  X$ ""   ,
XM P0  ,   @  #  !!  "   *                     P$ %@'  /( P#@#
XM !P,!@@ \ # 8@(\  P' # 0&, ' C@0+@(8 #P 3L   ^ ,! PPGP #R ,
XMB !  # 1 ,! @8'P# ?@                      !$  "   ,   @  #@
XM (   S0 (0  (   P  "(  (  """ ((  (  +P  "<  ,   8  "   P@
XMP  #C ",8 !@   ^
XM    $                                                      $
XM                     P  !@    ( P  #   ,  @   #  @(   P  #
XM ,   @  #@      #H   " ,   @@   " ,      #   ,   8
XM                                         !P  0      X
XM             #@   <                           "
XM                                        (
XM                                   (                     @
XM!     ( @  "   (  @   "  0&   @  "   (   @  #       #H   " (
XM   A    " (      "   (   8
XM                 !P  (      X                    #@   <
XM                      "'
XM
XM                                 @  !     ( @  "   (  @   "
XM 8!@  @  "   (   0  "       #H   # (   1    " (      "   (
XM 8'P                                                  P  ,
XM    8                    #@   <                           "/
XM@
XM
XM         @  !     ( @  "   (  @   "  <    @  "   (   0  "
XM    #H   #"(   .    " (      "   (   /_X
XM                            & P  .      8
XM #@   <                           #_@
XM
XM                                             @  !     ( @  "
XM " (  @   "  <    @  "   ( ( ,  "       #H   #B(        " (
XM     "   (   /_\
XM    -A@  .     'P                    #@   >
XM          #X@
XM
XM                     0   @    8 0  ! , $ !@   !  \    0  !
XM $ P #@ !       #@   !\$        & $      !   $   'X$
XM                                        +7   >     /@
XM             #    <                           !P@
XM
XM                                                         ,
XM 9    X ,   PP # #@    P X    ,   P  ##      P      #0    \#
XM        . #       P  #     $
XM                 N   <     /                     "    8
XM                        @
XM
XM                                 #   &    0 #   /   P!     ,
XM P    #   ,   \      ,      "     8 P       $  P      ,   P
XM                                                     8   8
XM   )                     $    0                            #
XM         P@(    X     @ (        @   (    __@
XM                                          & P   X       8
XM                     #@   !P
XM#_@
XM
XM                                (   !      @ (   " "  @ "
XM  "  <     (   "    @ @ #   "         Z    #B @         "  @
XM       "    @   #__
XM                 V&   #@      ?                         .
XM '@                                /B
XM
XM
XM       0   "     &  0   $ P !  8     $ #P     0   $   ! ,  #
XM@  $        #@    'P!          8 !        $   !    'X$
XM                                                   "UP   >
XM    #X                         P    <
XM          <(
XM
XM                                          P   &0    X  P   ,
XM,  # #@     , .      P   ,   ##       ,        -     / #
XM     #@ #        ,   #      0
XM                           N   !P      /
XM     "    !@                                  @
XM
XM
XM                 P   &    !   P   /   # $      , P      P
XM,   #P       ,        @     8 #         $  #        ,   #
XM
XM !@   &       D                         0    $
X5                    ,
X
Xend
END_OF_FILE
# end of 'font-16/Uoldeng22x30r'
fi
if test -f 'lib/term.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'lib/term.c'\"
else
echo shar: Extracting \"'lib/term.c'\" \(12324 characters\)
sed "s/^X//" >'lib/term.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: term.c,v 4.3 88/07/01 09:33:49 bianchi Exp $
X    $Source: /tmp/mgrsrc/lib/RCS/term.c,v $
X*/
Xstatic char    RCSid_[] = "$Source: /tmp/mgrsrc/lib/RCS/term.c,v $$Revision: 4.3 $";
X
X/* routines for writing to mgr terminal emulator */
X
X#include "term.h"
X#include "restart.h"
X
XFILE    *m_termout;
XFILE    *m_termin;
Xint    m_flags;
Xint    m_envcount = 0;
Xint    m_saveenvcount = 0;
Xchar    m_escchar = ESC;
Xchar    m_menuchar = M_DELIM;
X
Xjmp_buf _env;
X
Xstruct sgttyb    sgtty__save[TTYMAX];
Xint        sgtty_cnt = 0;
Xchar        m_linebuf[MAXLINE];
Xstatic char    *m_fields[16];
X
X/******************************************************************************
X *
X *    setup
X */
X
Xint
Xm_setup(flags)
Xint flags;
X   {
X   m_flags = flags;
X
X   if (!(m_flags&M_DEBUG)) {
X      m_termout = fopen(M_DEVICEOUT,"w");
X      m_termin = fopen(M_DEVICEIN,"r");
X      }
X
X   if (m_termin == NULL || m_termout == NULL)
X      m_flags |= M_DEBUG;
X
X   if (m_flags&M_DEBUG) {
X      m_termin = stdin;
X      m_termout = stdout;
X      }
X   return(m_flags);
X   }
X
X/******************************************************************************
X *
X *    get generic window parameters
X */
X
Xint
Xget_info(type,list)
Xint type;
Xchar **list;
X   {
X   if (type > G_MAX )
X      return(-1);
X   switch( type ) {
X   case G_ALL:
X   case G_ALLMINE:
X    return(-1);
X   }
X   _m_ttyset();
X   m_getinfo(type);
X   m_gets(m_linebuf);
X   _m_ttyreset();
X   return  parse(m_linebuf,list);
X   }
X
X/******************************************************************************
X *
X *    read window parameters off of standard input
X */
X
Xint
Xget_windata(windatap)
Xstruct window_data *windatap;
X   {
X   if( parse(m_gets(m_linebuf),m_fields) < 8 )
X    return 0;
X   windatap->x = atoi(m_fields[0]);
X   windatap->y = atoi(m_fields[1]);
X   windatap->w = atoi(m_fields[2]);
X   windatap->h = atoi(m_fields[3]);
X   strcpy(windatap->tty,m_fields[4]);
X   windatap->num = atoi(m_fields[5]);
X   windatap->status = *m_fields[6];
X   windatap->setid = atoi(m_fields[7]);
X   return 1;
X}
X
X/******************************************************************************
X *
X *    Get window parameters, one window at a time.
X *    Returns 1 if window_data structure has been filled, 0 otherwise.
X *    It is important to call get_eachwin() in a tight loop that doesn't
X *    ever exit, so that all the data is picked up.
X */
X
Xint
Xget_eachwin( windatap )
Xstruct window_data *windatap;
X   {
X   static int i = 0;
X
X   if( !i ) {
X      _m_ttyset();
X      m_getinfo(G_ALL);
X   }
X   i = get_windata( windatap );
X   if( !i )
X      _m_ttyreset();
X   return(i);
X   }
X
X
X/******************************************************************************
X *
X *    Get window parameters for the current window set, one window at a time.
X *    Returns 1 if window_data structure has been filled, 0 otherwise.
X *    It is important to call get_eachcleintwin() in a tight loop that
X *    doesn' tever exit, so that all the data is picked up.
X */
X
Xint
Xget_eachclientwin( windatap )
Xstruct window_data *windatap;
X   {
X   static int i = 0;
X
X   if( !i ) {
X      _m_ttyset();
X      m_getinfo(G_ALLMINE);
X   }
X   i = get_windata( windatap );
X   if( !i )
X      _m_ttyreset();
X   return(i);
X   }
X
X/******************************************************************************
X *
X *    Get all window parameters.
X *    NOTE CAREFULLY: The array of window_data structures pointed to by
X *    list must be more than the total number of windows on the screen;
X *    not a robust technique.
X *    get_eachwin() is recommended above this.
X */
X
Xint
Xget_all(list)
Xstruct window_data *list;
X   {
X   register int i;
X
X   for(i=0;  get_eachwin( list );  i++ )
X      list++;
X   return(i);
X   }
X
X/******************************************************************************
X *
X *    Get window parameters for client windows.
X *    NOTE CAREFULLY: The array of window_data structures pointed to by
X *    list must be more than the total number of windows on the screen;
X *    not a robust technique.
X *    get_eachclientwin() is recommended above this.
X */
X
Xint
Xget_client(list)
Xstruct window_data *list;
X   {
X   register int i;
X
X   _m_ttyset();
X   m_getinfo(G_ALLMINE);
X   for(i=0;  get_windata( list );  i++ )
X      list++;
X   _m_ttyreset();
X   return(i);
X   }
X
X/******************************************************************************
X *
X *    get the window size
X */
X
Xint
Xget_size(x,y,wide,high)
Xint *x, *y, *wide, *high;
X
X   {
X   register int count;
X
X   if ((count = get_info(G_COORDS,m_fields)) >= 4) {
X      if (x)
X         *x = atoi(m_fields[0]);
X      if (y)
X         *y = atoi(m_fields[1]);
X      if (wide)
X         *wide = atoi(m_fields[2]);
X      if (high)
X         *high = atoi(m_fields[3]);
X      return(count);
X      }
X   else return(-count);
X   }
X
X/******************************************************************************
X *
X *    get the mouse coords
X */
X
Xint
Xget_mouse(x,y)
Xint *x, *y;
X
X   {
X   register int count;
X
X   if ((count = get_info(G_MOUSE2,m_fields)) >= 3) {
X      if (x)
X         *x = atoi(m_fields[0]);
X      if (y)
X         *y = atoi(m_fields[1]);
X      return(atoi(m_fields[2]));
X      }
X   else return(-count);
X   }
X
X/******************************************************************************
X *
X *    get system parameters
X */
X
Xint
Xget_param(host,xmax,ymax,border)
Xchar *host;
Xint *xmax, *ymax, *border;
X
X   {
X   register int count;
X
X   if ((count = get_info(G_SYSTEM,m_fields)) >= 4) {
X      if (host)
X         strcpy(host,m_fields[0]);
X      if (xmax)
X         *xmax = atoi(m_fields[1]);
X      if (ymax)
X         *ymax = atoi(m_fields[2]);
X      if (border)
X         *border = atoi(m_fields[3]);
X      return(count);
X      }
X   else return(-count);
X   }
X
X/******************************************************************************
X *
X *    get the cursor position
X */
X
Xint
Xget_cursor(x,y)
Xint *x, *y;
X
X   {
X   register int count;
X
X   if ((count = get_info(G_CURSOR,m_fields)) > 2) {
X      if (x)
X         *x = atoi(m_fields[0]);
X      if (y)
X         *y = atoi(m_fields[1]);
X      return(2);
X      }
X   else return(-count);
X   }
X
X/******************************************************************************
X *
X *    get the window size - rows and columns
X */
X
Xint
Xget_colrow(cols,rows)
Xint *cols, *rows;
X
X   {
X   register int count;
X
X   if ((count = get_info(G_WINSIZE,m_fields)) == 2) {
X      if (cols)
X         *cols = atoi(m_fields[0]);
X      if (rows)
X         *rows = atoi(m_fields[1]);
X      return(2);
X      }
X   else return(-count);
X   }
X
X/******************************************************************************
X *
X *    get the termcap entry
X */
X
Xchar *
Xget_termcap()
X   {
X   _m_ttyset();
X   m_getinfo(G_TERMCAP);
X   m_gets(m_linebuf);
X   _m_ttyreset();
X   return(m_linebuf);
X   }
X
X/******************************************************************************
X *
X *    get the font size
X */
X
Xint
Xget_font(wide,high)
Xint  *wide, *high;
X
X   {
X   register int count, result;
X
X   if ((count = get_info(G_FONT,m_fields)) >= 3) {
X      if (wide)
X         *wide = atoi(m_fields[0]);
X      if (high)
X         *high = atoi(m_fields[1]);
X      result = atoi(m_fields[2]);
X      return(result);
X      }
X   else return(-count);
X   }
X
X/******************************************************************************
X *
X *    make a new window
X */
X
Xint
Xm_makewindow(x,y,wide,high)
Xint  x,y,wide,high;
X   {
X   register int count, result;
X   _m_ttyset();
X   m_newwin(x,y,wide,high);
X   m_gets(m_linebuf);
X   _m_ttyreset();
X   return(atoi(m_linebuf));
X   }
X
X/******************************************************************************
X *
X *    see if window is active
X */
X
Xint
Xis_active()
X   {
X   *m_linebuf = '\0';
X   get_info(G_STATUS,m_fields);
X   return(*m_linebuf == 'a');
X   }
X
X/******************************************************************************
X *
X *    return last line read
X */
X
Xchar *
Xm_lastline()
X   {
X   return(m_linebuf);
X   }
X
X/******************************************************************************
X *
X *    down load a menu
X */
X
Xmenu_load(n,count,text)
Xint n;                /* menu number */
Xint count;            /* number of menu items */
Xstruct menu_entry *text;    /* menu choices */
X   {
X   register int i, len;
X
X   if (text == (struct menu_entry *) 0)
X      return (-1);
X
X   /* calculate string lengths */
X
X   len = 2 * count + 1;
X
X   for (i=0;i<count;i++)
X       len += strlen(text[i].value) + strlen(text[i].action);
X
X   fprintf(m_termout,"%c%d,%d%c%c",m_escchar,n,len,E_MENU,m_menuchar);
X
X   for (i=0;i<count;i++)
X      fprintf(m_termout,"%s%c",text[i].value,m_menuchar);
X
X   for (i=0;i<count;i++)
X      fprintf(m_termout,"%s%c",text[i].action,m_menuchar);
X
X   m_flush();
X   }
X
X/******************************************************************************
X *
X *    download a bitmap
X */
X
Xm_bitload(x,y,w,h,data)
Xint x,y;
Xint w,h;
Xregister char *data;
X   {
X   register int size = h * ((w+15)&~15)/8;        /* round to 16 bit boundary */
X   m_bitld(w,h,x,y,size);
X   while(size-- > 0)
X      fputc(*data++,m_termout);
X   m_flush();
X   }
X
X/******************************************************************************
X *
X *    Set and save the terminal mode  (if required);
X */
X
Xm_ttyset()
X   {
X    int code;
X   struct sgttyb buff;
X
X   code = gtty(fileno(m_termout),sgtty__save + sgtty_cnt);
X
X   if (sgtty__save[sgtty_cnt].sg_flags&(ECHO|RAW)) {
X      buff = sgtty__save[sgtty_cnt];
X      buff.sg_flags &= ~(ECHO|RAW);
X      m_flush();
X      stty(fileno(m_termout),&buff);
X      }
X
X   if (sgtty_cnt < TTYMAX)
X      sgtty_cnt++;
X
X    return(code);
X   }
X
X
X/******************************************************************************
X *
X *    Restore the terminal mode
X */
X
Xm_ttyreset()
X   {
X   if (sgtty_cnt)
X      sgtty_cnt--;
X   else
X      return(1);
X
X   if (sgtty__save[sgtty_cnt].sg_flags&(ECHO|RAW)) {
X      m_flush();
X      return(stty(fileno(m_termout),sgtty__save + sgtty_cnt));
X      }
X   else
X      return(0);
X   }
X
X/******************************************************************************
X *
X *    change the terminal modes
X */
X
Xm_resetflags(flags)
X   {
X   struct sgttyb buff;
X      gtty(fileno(m_termin),&buff);
X      if (buff.sg_flags & flags) {
X         buff.sg_flags &= ~flags;
X     m_flush();
X         stty(fileno(m_termin),&buff);
X         }
X   }
X
Xm_setflags(flags)
X   {
X   struct sgttyb buff;
X      gtty(fileno(m_termin),&buff);
X      if (!( buff.sg_flags & flags)) {
X         buff.sg_flags |= flags;
X     m_flush();
X         stty(fileno(m_termin),&buff);
X         }
X   }
X
X/**
X    Given a bitmap id and an icon name,
X    have mgr load that icon into that bitmap, returning the icon width
X    and height via the given integer pointers.
X    Return a positive number if successful.
X    If the icon is not loaded, set the width and height values to 0 and
X    return 0.
X*/
Xint
Xm_bitfile( bitmapid, iconname, iconwidthp, iconheightp )
Xint    bitmapid;
Xchar    *iconname;
Xint    *iconwidthp,
X    *iconheightp;
X   {
X    *iconwidthp = *iconheightp = 0;
X    m_bitfromfile( bitmapid, iconname );
X    m_flush();
X    return( sscanf( m_get(), "%d %d", iconwidthp, iconheightp ) == 2 );
X   }
X
X/*****************************************************************************
X *    parse a line into fields
X */
X
X#ifndef iswhite
X#define iswhite(x)    ((x)==' ' || (x)=='\t')
X#endif
X
Xint
Xparse(line,fields)
Xregister char *line;
Xregister char **fields;
X   {
X   int inword = 0;
X   int count = 0;
X   char *start;
X   register char c;
X
X   for(start = line;(c = *line) && c != '\n';line++)
X      if (inword && iswhite(c)) {
X         inword = 0;
X         *line = '\0';
X         *fields++ = start;
X         count++;
X         }
X      else if (!inword && !iswhite(c)) {
X         start = line;
X         inword = 1;
X         }
X
X   if (inword) {
X      *fields++ = start;
X      count++;
X      if (c == '\n')
X         *line = '\0';
X      }
X   *fields = (char *) 0;
X   return(count);
X   }
X
X/******************************************
X *    stuff for restarting
X */
X
X_Catch()
X   {
X   ioctl(fileno(m_termin),TIOCFLUSH,0);
X   longjmp(_env,1);
X   }
X
X_Clean()
X   {
X   while(m_saveenvcount < m_envcount)
X      m_pop(0);
X   exit(1);
X   }
END_OF_FILE
# end of 'lib/term.c'
fi
if test -f 'src/get_menus.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'src/get_menus.c'\"
else
echo shar: Extracting \"'src/get_menus.c'\" \(11895 characters\)
sed "s/^X//" >'src/get_menus.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: get_menus.c,v 4.1 88/06/21 13:33:43 bianchi Exp $
X    $Source: /tmp/mgrsrc/src/RCS/get_menus.c,v $
X*/
Xstatic char    RCSid_[] = "$Source: /tmp/mgrsrc/src/RCS/get_menus.c,v $$Revision: 4.1 $";
X
X/******************************************************************************
X *
X *    low level popup menu management routines
X */
X
X#include <stdio.h>
X#include "bitmap.h"
X#include "menu.h"
X#include "font.h"
X
X#define MAX_LIST    100    /* max number of choices */
X#define BLIP        8    /* size of cursor blip */
X
X#define BETWEEN(a,x,b)    (x)<(a)?a:((x)>(b)?b:x)
X
X#define Pr_ropall(S,f)    bit_blit(S,0,0,BIT_WIDE(S),BIT_HIGH(S),f,NULL_DATA,0,0)
X
X#define BAR(s,z)    bit_blit(s, 0, (z+1)*state->bar_sizey, \
X                               state->bar_sizex, state->bar_sizey, \
X                               BIT_NOT(BIT_DST), NULL_DATA, 0, 0);
X
X#ifdef NOTRACK
X#define TRACKON(s,x,y)
X#define TRACKOFF(s,x,y)
X#else
X#define TRACKON(s,x,y) { \
X    bit_blit(&track,0,0,BLIP,BLIP, \
X    BIT_SRC,s,(x)-BLIP/2,(y)-BLIP/2); \
X    bit_blit(s,(x)-BLIP/2,(y)-BLIP/2,BLIP,BLIP, \
X    BIT_NOT(BIT_SRC) & BIT_DST,&mouse_bull,0,0); \
X    bit_blit(s,(x)-BLIP/2,(y)-BLIP/2,BLIP,BLIP, \
X    BIT_SRC | BIT_DST,&mouse_bull2,0,0); \
X    }
X#define TRACKOFF(s,x,y) \
X    bit_blit(s,(x)-BLIP/2,(y)-BLIP/2,BLIP,BLIP, \
X    BIT_SRC,&track,0,0)
X#endif
X
X#ifndef Min
X#define Min(x,y)        ((x)>(y)?(y):(x))
X#endif
X#ifndef Max
X#define Max(x,y)        ((x)>(y)?(x):(y))
X#endif
X#define LIMIT(x,max)        (x)>(max)?1:(-(x)>(max)?-1:0)
X#define Abs(x)            ((x)>0?(x):-(x))
X#define MENU            struct menu_state
X
X/*    The height of each selection area (i.e. word) in the pop-up menu.
X    The 2 extra pixels create a 1-pixel boarder above and below each word.
X*/
X#define HIGH        (font->head.high+2)
X
Xextern BITMAP mouse_bull, mouse_bull2;
Xstatic unsigned short save_bits[BLIP];
Xstatic bit_static(track,BLIP,BLIP,save_bits,DEPTH);
X
X/* allocate space for and initialize menu */
X
Xstruct menu_state *
Xmenu_define(font,list,values,max,fg,bg)
Xstruct font *font;        /* which font to use for menu */
Xchar *list[];            /* list of menu items */
Xchar *values[];            /* list of return values */
Xint max;            /* max number of menu items */
Xint fg,bg;        /* clt values for menu color */
X   {
X   register int i, incr, count;    /* counters */
X   int size_x=0, size_y=0;
X   struct menu_state *state;    /* menu state */
X   char *malloc(), *save_line();
X   BITMAP *menu,            /* menu image */
X     *box,            /* menu pix_rect */
X     *inside,        /* box - border */
X     *save;            /* part of screen covered by menu */
X   int box_x, box_y;        /* dimensions of menu box */
X
X   /* find size of box */
X
X   for(count=0;list[count]!=(char *) 0 && count<(max>0?max:MAX_LIST); count++) {
X      size_x = Max(size_x,strlen(list[count]));
X      }
X
X   /*    The 2 extra pixels are to allow a 1-pixel border to the left and right
X    of each word.
X   */
X   size_x = size_x * font->head.wide + 2;
X   size_y = count * HIGH;
X   box_x =size_x+2*MENU_BORDER;
X   box_y =size_y+2*MENU_BORDER;
X
X   /* build box */
X
X   menu = bit_alloc(box_x,box_y,NULL_DATA,DEPTH);
X   inside = bit_create(menu,MENU_BORDER,MENU_BORDER,size_x,size_y);
X
X   /* paint text into box */
X
X#ifdef COLOR
X   Pr_ropall(menu,BIT_SRC|GETCOLOR(fg));
X   Pr_ropall(inside,BIT_SRC|GETCOLOR(bg));
X#else
X   Pr_ropall(menu,BIT_SET);
X   Pr_ropall(inside,BIT_CLR);
X#endif
X   for(i=0,incr=HIGH-1;i<count;i++,incr+=HIGH) {
X#ifdef COLOR
X      /* do local color here */
X      put_str(inside,1,incr,font,
X              BIT_SRC^BIT_DST | GETCOLOR(bg)^GETCOLOR(fg),list[i]);
X#else
X      put_str(inside,1,incr,font,BIT_SRC,list[i]);
X#endif
X      }
X
X   /* save the menu state */
X
X   if ((state = (MENU *) malloc(sizeof(struct menu_state))) == (MENU *) 0) {
X      bit_destroy(inside);
X      bit_destroy(menu);
X      return(state);
X      }
X
X   /* get the values */
X
X   if (values != (char **) 0) {
X      state -> action = (struct menu_action *)
X               malloc(count * sizeof(struct menu_action));
X      if (state->action) for(i=0;i<count;i++) {
X         state->action[i].value = save_line(values[i]);
X         state->action[i].next_menu = -1;
X         }
X
X      }
X   else
X      state->action = (struct menu_action *) 0;
X
X   state -> menu = menu;
X   state -> bar_sizex = size_x;
X   state -> bar_sizey = HIGH;
X   state -> count = count;
X   state -> current = 0;
X   state -> next = -1;
X   state->flags = 0;
X   state -> screen = (BITMAP *) 0;
X   state -> save = (BITMAP *) 0;
X
X   bit_destroy(inside);
X   return(state);
X   }
X
X/* put the menu on the display */
X
Xstruct menu_state *
Xmenu_setup(state,screen,x,y,start)
Xstruct menu_state *state;    /* existing menu state */
XBITMAP *screen;            /* where to put the menu */
Xint x,y;            /* current offset of mouse on screen */
Xint start;            /* preselected item */
X   {
X   register int i, incr, count;    /* counters */
X   char *malloc();
X
X   /* position the box on the screen */
X
X   if (state->BIT_WIDE(menu)>BIT_WIDE(screen) ||
X       state->BIT_WIDE(menu)>BIT_WIDE(screen) ||
X       state->save)
X       return((MENU *) 0);
X
X   x = Min(x,BIT_WIDE(screen) - state->BIT_WIDE(menu));
X   y = Min(y,BIT_HIGH(screen) -
X                 state->BIT_HIGH(menu) - state->bar_sizey);
X   y = Max(y,state->bar_sizey+BLIP);
X
X   state->save = bit_alloc(state->BIT_WIDE(menu),state->BIT_HIGH(menu),
X                  NULL_DATA,DEPTH);
X   bit_blit(state->save,0,0,state->BIT_WIDE(menu),
X          state->BIT_HIGH(menu),BIT_SRC,screen,x,y);
X
X   /* initialize the menu */
X
X   state -> screen = screen;
X   state -> current = start;
X   state -> menu_startx = x;
X   state -> menu_starty = y;
X   state -> x_pos = state-> bar_sizex/2;
X
X   bit_blit(screen,x,y,state->BIT_WIDE(menu),state->BIT_HIGH(menu),BIT_SRC,
X          state->menu,0,0);
X
X   if (start>=0 && start<state->count) {
X       BITMAP *inside = bit_create(screen,state->menu_startx+MENU_BORDER,
X                    state->menu_starty+MENU_BORDER,
X                    state->bar_sizex,state->bar_sizey*state->count);
X       BAR(inside,start-1);
X       bit_destroy(inside);
X       }
X
X   return(state);
X   }
X
X
X/******************************************************************************
X
Xallow user to select an item
X
X */
X
Xint menu_get(state,mouse,button,exit)
Xstruct menu_state *state;
Xint mouse;            /* fd to read mouse data from */
Xint button;            /* button termination condition (not yet)*/
Xint exit;            /* off-menu exit codes */
X   {
X   register BITMAP *inside;    /* the menu */
X   register int y_position;
X   register int x_position;
X   int push;
X   int x_mouse, y_mouse;    /* mouse delta's */
X   int done=0;
X   int inverse;            /* selected item */
X   int count;            /* number of items */
X   int old;
X
X   if (state == (MENU *) 0)
X       return(-1);
X
X   old = inverse = state -> current;
X   count = state -> count;
X   state->exit=0;
X
X   /* set up text region */
X
X   inside = bit_create(state->screen,state->menu_startx+MENU_BORDER,
X                    state->menu_starty+MENU_BORDER - state->bar_sizey,
X                    state->bar_sizex,state->bar_sizey*(count+2));
X
X   /* make sure we aren't already exited */
X
X   if (exit&EXIT_BOTTOM && inverse >= count) {
X      old = inverse = count-1;
X      BAR(inside,inverse);    /* on */
X      }
X
X   /* set initial blip position */
X
X   x_position = state->x_pos;
X   y_position = state->bar_sizey*(inverse+1) + state->bar_sizey/2;
X
X   /* track the mouse */
X
X   TRACKON(inside,x_position,y_position);        /* on */
X   do {
X      push = mouse_get(mouse,&x_mouse,&y_mouse);
X      TRACKOFF(inside,x_position,y_position);        /* off */
X      x_position += x_mouse;
X      y_position -= y_mouse;
X      y_position = BETWEEN(BLIP, y_position, (2+count)*state->bar_sizey-BLIP);
X
X      if (x_position <= 0 && (exit&EXIT_LEFT)) {
X         state->exit = EXIT_LEFT;
X         done++;
X         }
X      else if (x_position >= BIT_WIDE(inside) && (exit&EXIT_RIGHT)) {
X         state->exit = EXIT_RIGHT;
X         done++;
X         }
X
X      x_position = BETWEEN(BLIP/2, x_position, BIT_WIDE(inside) - BLIP/2);
X
X      TRACKON(inside,x_position,y_position);        /* on */
X
X      if (done)
X         break;
X
X      /* fix bar */
X
X      inverse = (2+count) * y_position / BIT_HIGH(inside) - 1;
X      if (inverse != old) {
X         TRACKOFF(inside,x_position,y_position);        /* off */
X         if (old >=0 && old < count)
X            BAR(inside,old);        /* off */
X         if (inverse >=0 && inverse < count)
X            BAR(inside,inverse);    /* on */
X         old = inverse;
X
X         if (inverse < 0 && exit&EXIT_TOP) {
X            state->exit = EXIT_TOP;
X            done++;
X            }
X         else if (inverse >= count && exit&EXIT_BOTTOM) {
X            state->exit = EXIT_BOTTOM;
X            done++;
X            }
X         TRACKON(inside,x_position,y_position);        /* on */
X         }
X      }
X      while (push != button && !done);
X   state->current = inverse;
X   state->x_pos = x_position;
X   TRACKOFF(inside,x_position,y_position);        /* off */
X   bit_destroy(inside);
X   return(0);
X   }
X
X/******************************************************************************
X
Xremove the menu drom the screen, restore previous screen contents
X
X */
X
Xstruct menu_state *
Xmenu_remove(state)
Xstruct menu_state *state;
X   {
X   if (state == (MENU *) 0) return(state);
X   if (state->save != (BITMAP *) 0) {
X      bit_blit(state->screen,state->menu_startx,state->menu_starty,
X         state->BIT_WIDE(save),state->BIT_HIGH(save),BIT_SRC,state->save,0,0);
X      bit_destroy(state->save);
X      state->save = (BITMAP *) 0;
X      }
X   return(state);
X   }
X
X/* free space associated with a menu */
X
Xint
Xmenu_destroy(state)
Xstruct menu_state *state;
X   {
X   register int i;
X
X   menu_remove(state);
X
X   if (state->menu != (BITMAP *)0)
X      bit_destroy(state->menu);
X
X   if (state->action != (struct menu_action *) 0) {
X      for(i=0;i<state->count;i++)
X         if (state->action[i].value)
X            free(state->action[i].value);
X      free(state->action);
X      }
X
X   free(state);
X   return(0);
X   }
X
X/* put a character string into a bitmap - only used for menus */
X
Xint
Xput_str(map,x,y,font,op,str)
XBITMAP *map;
Xregister int x;
Xint y;
Xstruct font *font;
Xint op;
Xregister char *str;
X   {
X   register char c;
X   register int wide = font->head.wide;
X   register int high = font->head.high;
X
X   while (c = *str++) {
X      bit_blit(map,x,y-high,wide,high,op,font->glyph[c],0,0);
X      x+=wide;
X      }
X   }
X
X/* copy a menu  - for environment stacks */
X
Xstruct menu_state *
Xmenu_copy(menu)
Xregister struct menu_state *menu;
X   {
X   register struct menu_state *tmp;
X   register int i;
X   char *alloc(), *malloc(), *save_line();
X
X   if (menu == (struct menu_state *) 0)
X      return(menu);
X
X   if ((tmp = (struct menu_state *) malloc(sizeof(struct menu_state)))
X                                                   == (struct menu_state *) 0)
X      return((struct menu_state *) 0);
X
X   bcopy((char *) menu,(char *)tmp,sizeof(struct menu_state));
X
X   /* copy menu image */
X
X   if (menu->menu) {
X      tmp->menu = bit_alloc(BIT_WIDE(menu->menu),
X                            BIT_HIGH(menu->menu),NULL_DATA,DEPTH);
X      bit_blit(tmp->menu,0,0,BIT_WIDE(tmp->menu),BIT_HIGH(tmp->menu),
X                            BIT_SRC,menu->menu,0,0);
X      }
X
X   /* copy menu values */
X
X   if (menu->action != (struct menu_action *) 0) {
X      tmp->action = (struct menu_action *)
X                    malloc(sizeof(struct menu_action)*menu->count);
X      if (tmp->action)
X         for(i=0;i<menu->count;i++) {
X            tmp->action[i].value = save_line(menu->action[i].value);
X            tmp->action[i].next_menu = menu->action[i].next_menu;
X            }
X      }
X
X   return(tmp);
X   }
END_OF_FILE
# end of 'src/get_menus.c'
fi
echo shar: End of archive 35 \(of 61\).
cp /dev/null ark35isdone
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