home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume17 / mgr / part25 < prev    next >
Text File  |  1989-01-19  |  48KB  |  1,422 lines
  1. Subject:  v17i026:  MGR, Bellcore window manager, Part25/61
  2. Newsgroups: comp.sources.unix
  3. Approved: rsalz@uunet.UU.NET
  4.  
  5. Submitted-by: Stephen A. Uhler <sau@bellcore.com>
  6. Posting-number: Volume 17, Issue 26
  7. Archive-name: mgr/part25
  8.  
  9.  
  10.  
  11.  
  12. #! /bin/sh
  13. # This is a shell archive.  Remove anything before this line, then unpack
  14. # it by saving it into a file and typing "sh file".  To overwrite existing
  15. # files, type "sh file -c".  You can also feed this as standard input via
  16. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  17. # will see the following message at the end:
  18. #        "End of archive 25 (of 61)."
  19. # Contents:  demo/misc/ether.c demo/misc/lock.c demo/msg/client.c
  20. #   font-16/U81 src/copyright.c src/get_info.c
  21. # Wrapped by rsalz@papaya.bbn.com on Thu Nov 17 21:05:30 1988
  22. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  23. if test -f 'demo/misc/ether.c' -a "${1}" != "-c" ; then 
  24.   echo shar: Will not clobber existing file \"'demo/misc/ether.c'\"
  25. else
  26. echo shar: Extracting \"'demo/misc/ether.c'\" \(7443 characters\)
  27. sed "s/^X//" >'demo/misc/ether.c' <<'END_OF_FILE'
  28. X/*                        Copyright (c) 1987 Bellcore
  29. X *                            All Rights Reserved
  30. X *       Permission is granted to copy or use this program, EXCEPT that it
  31. X *       may not be sold for profit, the copyright notice must be reproduced
  32. X *       on copies, and credit should be given to Bellcore where it is due.
  33. X *       BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
  34. X */
  35. X/*    $Header: ether.c,v 4.2 88/06/22 14:37:31 bianchi Exp $
  36. X    $Source: /tmp/mgrsrc/demo/misc/RCS/ether.c,v $
  37. X*/
  38. Xstatic char    RCSid_[] = "$Source: /tmp/mgrsrc/demo/misc/RCS/ether.c,v $$Revision: 4.2 $";
  39. X
  40. X/* strip_chart vmstat output version II */
  41. X
  42. X#include "term.h"
  43. X#include <signal.h>
  44. X#include <sgtty.h>
  45. X
  46. XFILE *popen(), *file;
  47. X
  48. X#define INTERVAL    60    /* bar interval (in secs) */
  49. X#define SCROLL        4    /* # of scrolls per window */
  50. X#define MAX        3    /* max number of plots */
  51. X#define FREQ        3    /* update frequency (secs)*/
  52. X#define DELTA        4    /* pixels/update */
  53. X
  54. X#define Min(x,y)    ((x)>(y)?(y):(x))
  55. X#define Max(x,y)    ((x)>(y)?(x):(y))
  56. X#define dprintf        if (debug) fprintf
  57. X
  58. Xchar *labels[] = {        /* graph labels */
  59. X   "Input" , "Output", "Coll."
  60. X   };
  61. X
  62. Xint indx[] = {            /* field indeces into netstat(1) */
  63. X   0, 2, 4
  64. X   };
  65. X
  66. Xint limit[] = {            /* default maximums */
  67. X   15, 15, 3
  68. X   };
  69. X
  70. Xmain(argc,argv)
  71. Xint argc;
  72. Xchar **argv;
  73. X   {
  74. X   register int i;
  75. X   register int x;    /* current plot position */
  76. X   int bar=0;        /* hash mark counter */
  77. X   int back=0;        /* enable background writes */
  78. X   int solid=1;        /* make solid lines */
  79. X   int freq = FREQ;    /* update frequency (secs) */
  80. X   int size;        /* size of label region */
  81. X   int interval;    /* hash mark interval (secs) */
  82. X
  83. X   char host[16];    /* hostname */
  84. X   char title[255];    /* chart title */
  85. X   char line[255];    /* vmstat input buffer */
  86. X   char *fields[20];    /* place for raw input fields */
  87. X   char *sprintf();
  88. X
  89. X   int current[MAX];    /* current data value */
  90. X   int old[MAX];    /* previous data value */
  91. X   int first =1;    /* first time through */ 
  92. X   int clean();
  93. X
  94. X   int f_high, f_wide;        /* font size */
  95. X   int high,wide;        /* window size */
  96. X   int x1;            /* left margin */
  97. X   int x2;            /* title */
  98. X   int y1;            /* title line */
  99. X   int y2;            /* first bar */
  100. X   int scroll;            /* scroll amount */
  101. X   int delta=DELTA;        /* pixels/line */
  102. X   int item;
  103. X   int dummy;
  104. X   int debug=0;
  105. X
  106. X   ckmgrterm( *argv );
  107. X
  108. X   for(i=1;i<argc;i++) {
  109. X      if (strcmp(argv[i],"-d")==0) {
  110. X         debug++;
  111. X         }
  112. X      else if (strncmp(argv[i],"-f",2)==0) {
  113. X         freq = atoi(argv[i]+2);
  114. X         if (freq < 1) freq = 1;
  115. X         if (freq > 120) freq = 120;
  116. X         }
  117. X      else if (strncmp(argv[i],"-m",2)==0) {
  118. X         int max;
  119. X         max = atoi(argv[i]+2);
  120. X         if (max < 1) max = 1;
  121. X         if (max > 999) max = 999;
  122. X         limit[0] = limit[1] = max;
  123. X         limit[2] = (max>=5) ? max/5 : 1;
  124. X         
  125. X         }
  126. X      else
  127. X         fprintf(stderr,"%s: unknown flag %s. Ignored\n",*argv,argv[i]);
  128. X      }
  129. X
  130. X   if ((file = popen(sprintf(line,"netstat %d",freq),"r")) == NULL)
  131. X      exit(1);
  132. X
  133. X   m_setup(M_FLUSH);
  134. X   m_ttyset();
  135. X   m_push(P_EVENT|P_FLAGS);
  136. X   m_setmode(M_ABS);
  137. X
  138. X   signal(SIGINT,clean);
  139. X   signal(SIGTERM,clean);
  140. X
  141. X   system("stty -ctlecho");
  142. X   m_setevent(RESHAPE,"R\fRedrawing...\n");
  143. X   m_setevent(REDRAW,"R\fRedrawing...\n");
  144. X   first = 1;
  145. X
  146. X   while (1) {
  147. X
  148. X      for(size=0,i=0;i<MAX;i++)
  149. X         size = Max(size,strlen(labels[i]));
  150. X
  151. X      /* clear the screen, flush pending input */
  152. X
  153. X      read_it(fileno(m_termin),line);
  154. X
  155. X      /* get font size */
  156. X
  157. X      get_font(&f_wide,&f_high);
  158. X
  159. X      /* get window size */
  160. X
  161. X      get_size(&dummy,&dummy,&wide,&high);
  162. X   
  163. X      if (wide==0 || high==0 || f_wide==0 || f_high==0) {
  164. X         fprintf(stderr,"Can't get window info\n");
  165. X         clean();
  166. X         }
  167. X
  168. X      /* get the title */
  169. X
  170. X      gethostname(host,sizeof(host));
  171. X
  172. X      sprintf(title,"Network statistics for %s in packets/%d seconds",
  173. X              host,freq);
  174. X
  175. X      if (strlen(title)*f_wide > wide)
  176. X         sprintf(title,"%s (pkts/%ds.)",host,freq);
  177. X
  178. X      /* make sure window is big enough */
  179. X
  180. X      if (f_high * (2*MAX+1) > high) {
  181. X         fprintf(stderr,"\fWindow isn't tall enough\n");
  182. X         m_gets(line);
  183. X         continue;
  184. X         }
  185. X      if (f_high * (3*MAX +1) > high)
  186. X         size += 3;
  187. X
  188. X      if (strlen(title)*f_wide > wide || 3*size*f_wide > wide*2) {
  189. X         fprintf(stderr,"\fWindow isn't\nwide enough\n");
  190. X         m_gets(line);
  191. X         continue;
  192. X         }
  193. X
  194. X      /* calculate key positions */
  195. X
  196. X      x1 = (size*f_wide+1);
  197. X      x2 = (wide-strlen(title)*f_wide)/2;
  198. X      y1 = f_high +1;
  199. X      y2 = (high - y1) /MAX;
  200. X      high--;
  201. X
  202. X      m_func(B_SET);
  203. X      m_clear();
  204. X      x = x1;
  205. X      scroll = Max((wide-x1)/SCROLL,10);
  206. X      scroll += scroll%delta;
  207. X
  208. X      if (freq >15)
  209. X         interval = INTERVAL * 10 /freq;
  210. X      else 
  211. X         interval = INTERVAL / freq;
  212. X
  213. X      /* draw form */
  214. X
  215. X      m_moveprint(x2,y1,title);
  216. X
  217. X      for(i=0;i<MAX;i++) {
  218. X         m_moveprint(x1-f_wide,high-i*y2,"0");
  219. X         m_moveprint(x1-f_wide*3,high-(i+1)*y2+f_wide*2+1,
  220. X                     sprintf(line,"%3d",limit[i]));
  221. X         m_moveprint(1,high-i*y2-(y2-f_high)/2,labels[i]);
  222. X         m_line(x1,high-i*y2,wide,high-i*y2);
  223. X         }
  224. X   
  225. X      m_line(0,y1,wide,y1);
  226. X      m_line(x1,y1,x1,high);
  227. X      m_movecursor(x1,0);
  228. X      m_flush();
  229. X
  230. X      /* read the data */
  231. X
  232. X      while (fgets(line,sizeof(line),file) != NULL) {
  233. X         i = parse(line,fields);
  234. X         if (strcmp(*fields,"input")==0) {
  235. X            fgets(line,sizeof(line),file);
  236. X            fgets(line,sizeof(line),file);
  237. X            continue;
  238. X            }
  239. X
  240. X         /* calculate new line position */
  241. X
  242. X         for(i=0;i<MAX;i++) {
  243. X            current[i] = atoi(fields[indx[i]]) *
  244. X                         (y2-3)/limit[i];
  245. X            current[i] = Min(current[i],y2-3) + y2*i + 1;
  246. X
  247. X            if (!first) {
  248. X               m_line(x,high-old[i],x+delta,high-current[i]);
  249. X               if (solid)
  250. X                  m_line(x+delta,high-y2*i,x+delta,high-current[i]);
  251. X               }
  252. X
  253. X            dprintf(stderr,"%s %d->%d, ",labels[i],
  254. X                            high-old[i],high-current[i]);
  255. X            old[i] = current[i];
  256. X            }
  257. X         dprintf(stderr," [%d]\n",high);
  258. X   
  259. X         if (++bar  == interval) {
  260. X            m_line(x,y1,x,high);
  261. X            bar = 0;
  262. X            dprintf(stderr,"---------\n");
  263. X            }
  264. X
  265. X         if (first)
  266. X            first = 0;
  267. X         else
  268. X            x += delta;
  269. X
  270. X         if (x > wide-delta) {
  271. X
  272. X            /* scroll the display */
  273. X
  274. X            x -= scroll;
  275. X            m_func(B_COPY);
  276. X            m_bitcopy(x1+1,y1+1,wide-x1-1,high-y1-1,x1+scroll+1,y1+1);
  277. X            m_func(B_CLEAR);
  278. X            m_bitwrite(wide-scroll,y1+1,scroll,high);
  279. X            m_func(B_SET);
  280. X         
  281. X            dprintf(stderr,"scroll to %d,%d from %d,%d\n",
  282. X                    x1+1,y1+1,x1+scroll+1,y1+1);
  283. X            for(i=0;i<MAX;i++) 
  284. X               m_line(wide-scroll,high-i*y2,wide,high-i*y2);
  285. X            }
  286. X         m_flush();
  287. X         if (read_it(fileno(m_termin),line) && *line == 'R')
  288. X            break;
  289. X         }
  290. X      }
  291. X   }
  292. X
  293. Xclean()            /* clean up on SIGINT */
  294. X   {
  295. X   m_pop(0);
  296. X   pclose(file);
  297. X   m_clear();
  298. X   m_flush();
  299. X   m_ttyreset();
  300. X   exit(1);
  301. X   }
  302. X
  303. Xint read_it(fd,line)    /* non blocking read */
  304. Xint fd;
  305. Xchar *line;
  306. X   {
  307. X   long rd;
  308. X
  309. X   ioctl(fd,FIONREAD,&rd);
  310. X   line[rd] = '\0';
  311. X   if (rd > 0)  {
  312. X      return(read(fd,line,rd));
  313. X      }
  314. X   else
  315. X      return(0);
  316. X   }
  317. END_OF_FILE
  318. # end of 'demo/misc/ether.c'
  319. fi
  320. if test -f 'demo/misc/lock.c' -a "${1}" != "-c" ; then 
  321.   echo shar: Will not clobber existing file \"'demo/misc/lock.c'\"
  322. else
  323. echo shar: Extracting \"'demo/misc/lock.c'\" \(6857 characters\)
  324. sed "s/^X//" >'demo/misc/lock.c' <<'END_OF_FILE'
  325. X/*                        Copyright (c) 1987 Bellcore
  326. X *                            All Rights Reserved
  327. X *       Permission is granted to copy or use this program, EXCEPT that it
  328. X *       may not be sold for profit, the copyright notice must be reproduced
  329. X *       on copies, and credit should be given to Bellcore where it is due.
  330. X *       BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
  331. X */
  332. X/* ************************************************************ *\
  333. X/* star-trek lock screen (sau/sdh) */
  334. X
  335. X#include <sgtty.h>
  336. X#include <stdio.h>
  337. X#include <pwd.h>
  338. X#include <sys/time.h>
  339. X#include <signal.h>
  340. X#include "bitmap.h"
  341. X
  342. X#define WIDE    BIT_WIDE(display)
  343. X#define HIGH    BIT_HIGH(display)
  344. X#define NICE    10
  345. X
  346. Xstruct passwd *pwd, *getpwuid();
  347. Xstruct timeval poll = {0,50000};
  348. Xstruct sgttyb sg,save;
  349. Xchar buff[100];
  350. Xstatic int dir = 1;
  351. X
  352. Xmain()
  353. X   {
  354. X   int read;
  355. X    int pid;
  356. X    int flip();
  357. X   BITMAP *display = bit_open("/dev/bwtwo0");
  358. X   BITMAP *stash = bit_alloc(WIDE,HIGH,NULL,1);
  359. X
  360. X   if (!(display&&stash)) {
  361. X      printf("Can't initialize the display, sorry\n");
  362. X        exit(1);
  363. X      }
  364. X
  365. X   pwd = getpwuid(getuid());
  366. X
  367. X   signal(SIGINT,SIG_IGN);
  368. X   signal(SIGHUP,SIG_IGN);
  369. X   signal(SIGTERM,SIG_IGN);
  370. X   signal(SIGQUIT,SIG_IGN);
  371. X   signal(SIGTSTP,SIG_IGN);
  372. X
  373. X   gtty(0,&sg);
  374. X   save = sg;
  375. X   sg.sg_flags &= ~(ECHO|RAW);
  376. X   sg.sg_flags |= CBREAK;
  377. X   stty(0,&sg);
  378. X   
  379. X   bit_blit(stash,0,0,WIDE,HIGH,BIT_SRC,display,0,0);
  380. X   bit_blit(display,0,0,WIDE,HIGH,BIT_SET,NULL,0,0);
  381. X   if (NICE > 0)
  382. X      nice(NICE);
  383. X    if ((pid=fork()) == 0) {/* child */
  384. X        signal(SIGALRM,flip);
  385. X        fly(display);
  386. X        }
  387. X   else {
  388. X        while(1) {
  389. X            read = 1;
  390. X            if (select(32,&read,0,0,&poll) && read) {
  391. X                gets(buff);
  392. X                kill(pid,SIGALRM);    /* change directions */
  393. X                if (strcmp(pwd->pw_passwd,crypt(buff,pwd->pw_passwd)) == 0) {
  394. X                    stty(0,&save);
  395. X                    kill(pid,SIGKILL);
  396. X                    while(wait(0)!=pid);
  397. X                    bit_blit(display,0,0,WIDE,HIGH,BIT_SRC,stash,0,0);
  398. X                    exit(0);
  399. X                    }
  400. X                }
  401. X            }
  402. X        }
  403. X    }
  404. X
  405. X/* star trek effect */
  406. X/*
  407. X * porter.c  Steve Hawley 4/3/87
  408. X * rehacked 5/18/1988 for extra speed.
  409. X * re-re hacked 6/20/88 for MGR (SAU)
  410. X * A demo to get stars inspired by Star Trek without
  411. X * using quickdraw, and by addressing the screen directly.
  412. X * this version is roughly 8 times faster than its quickdraw
  413. X * equivalent.
  414. X * In considering the bit drawing routines, remember that
  415. X * on the macintosh, a bit turned on is black, not white.
  416. X */
  417. X
  418. X#define BG_COLOR    4        /* usually blue */
  419. X#define SSIZE    2    /* star size */
  420. X#define MAXZ 500 /* maximum z depth */
  421. X#define NSTARS 256 /* maximum number of stars */
  422. X#define SPEED    6        /* star speed */
  423. X#define SCALE    (short)7    /* for rotator */
  424. X#define COUNT    (short)3    /* for rotator */
  425. X#define ON 1  /* plotting states */
  426. X#define OFF 0
  427. X#define Random() rand()
  428. X
  429. Xshort maxv, maxh; /* display size */
  430. Xshort hmaxv, hmaxh;    /* 1/2 display size */
  431. X
  432. Xstruct st {
  433. X   short x, y, z;
  434. X    short color;
  435. X    short dir;
  436. X   } stars[NSTARS]; /* our galaxy */
  437. X
  438. Xfly (where)
  439. XBITMAP *where;
  440. X{
  441. X        register short i;
  442. X        register struct st *stp;
  443. X
  444. X        init_all(where);     /* set up global variables */
  445. X        for (i=0, stp = stars; i< NSTARS; i++, stp++) {
  446. X                /* initialize galaxy */
  447. X                do {
  448. X                        stp->x = Random();
  449. X                        stp->y = Random();
  450. X                        stp->z = (Random() % MAXZ) + 1;
  451. X                        stp->dir = dir ? COUNT : -COUNT;
  452. X                        stp->color = Random() % 23;
  453. X                                if (stp->color == BG_COLOR)
  454. X                            stp->color++;
  455. X            
  456. X                } while(project(where,stp->x, stp->y, stp->z, stp->color, ON)); /* on screen? */
  457. X        }
  458. X        while (1) { /* loop 'til button */
  459. X                i = NSTARS;
  460. X                stp = stars;
  461. X                do {
  462. X                        project(where,stp->x, stp->y, stp->z, stp->color, OFF); /* turn star off*/
  463. X                        if ((stp->z -= SPEED) <= 0) { /* star went past us */
  464. X                                stp->x = Random();
  465. X                                stp->y = Random();
  466. X                                stp->z = MAXZ;
  467. X                                stp->dir = dir ? COUNT : -COUNT;
  468. X                        }
  469. X                                else {        /* rotate universe */
  470. X                                    cordic(&stp->x,&stp->y,SCALE,stp->dir);
  471. X                                }
  472. X                        if (project(where,stp->x, stp->y, stp->z, stp->color, ON)) {
  473. X                                /* if projection is off screen, get a new position */
  474. X                                stp->x = Random();
  475. X                                stp->y = Random();
  476. X                                stp->z = MAXZ;
  477. X                                stp->dir = dir ? COUNT : -COUNT;
  478. X                        }
  479. X                ++stp;
  480. X                } while(--i);
  481. X        }
  482. X}
  483. X
  484. Xproject(where,x, y, z, col, state)
  485. Xregister BITMAP *where;
  486. Xregister short x, y, z;
  487. Xregister int col;
  488. Xregister short state;
  489. X{
  490. X        
  491. X        /* one-point perspective projection */
  492. X        /* the offsets (maxh/2) and maxv/2) ensure that the
  493. X         * projection is screen centered
  494. X         */
  495. X        x = (x/z) + hmaxh;
  496. X        y = (y/z) + hmaxv;
  497. X        return(xplot(where,x, y, z, col, state));
  498. X
  499. X}
  500. X
  501. Xinit_all(where)
  502. Xregister BITMAP *where;
  503. X{
  504. X   maxv = BIT_HIGH(where);
  505. X   hmaxv = maxv>>1;
  506. X   maxh = BIT_WIDE(where);
  507. X   hmaxh = maxh>>1;
  508. X}       
  509. X
  510. Xxplot(where,x, y, z, col, state)
  511. Xregister BITMAP *where;
  512. Xregister int x, y;
  513. Xregister int z;    /* actually z position */
  514. Xregister int col;
  515. Xint state;
  516. X{
  517. X        register int size = SSIZE;
  518. X        /* are we on the screen? If not, let the caller know*/
  519. X        if (x < 0 || x >= maxh || y < 0 || y >= maxv )
  520. X            return(1);
  521. X
  522. X      if (z > (3*MAXZ/4))
  523. X         size--;
  524. X      else if ( z< (MAXZ/4))
  525. X         size++;
  526. X      bit_blit(where,x,y,size,size, state ?
  527. X        BIT_SRC^BIT_DST | GETCOLOR(col)^GETCOLOR(BG_COLOR) :
  528. X        BIT_SRC | GETCOLOR(BG_COLOR),
  529. X                 0l,0,0);
  530. X        return(0);
  531. X}
  532. X
  533. X/* CORDIC rotator. Takes as args a point (x,y) and spins it */
  534. X/* count steps counter-clockwise.                   1       */
  535. X/*                                Rotates atan( --------- ) */
  536. X/*                                                  scale   */
  537. X/*                                                 2        */
  538. X/* Therefore a scale of 5 is 1.79 degrees/step and          */
  539. X/* a scale of 4 is 3.57 degrees/step                        */
  540. X
  541. Xcordic(x, y, scale, count)
  542. Xshort *x, *y;
  543. Xregister short scale, count;
  544. X
  545. X{
  546. X   register short tempx, tempy;
  547. X
  548. X   tempx = *x;
  549. X   tempy = *y;
  550. X
  551. X   if (count > 0) /* positive count (counter-clockwise) */
  552. X      for (; count; count--){
  553. X         tempx -= (tempy >> scale);
  554. X         tempy += (tempx >> scale); 
  555. X      }
  556. X   else          /* negative count (clockwise) */
  557. X      for (; count; count++){
  558. X         tempx += (tempy >> scale);
  559. X         tempy -= (tempx >> scale);
  560. X      }
  561. X
  562. X   *x = tempx;
  563. X   *y = tempy;
  564. X}
  565. X
  566. Xint flip()
  567. X   {
  568. X   dir = 1-dir;
  569. X    }
  570. END_OF_FILE
  571. # end of 'demo/misc/lock.c'
  572. fi
  573. if test -f 'demo/msg/client.c' -a "${1}" != "-c" ; then 
  574.   echo shar: Will not clobber existing file \"'demo/msg/client.c'\"
  575. else
  576. echo shar: Extracting \"'demo/msg/client.c'\" \(6568 characters\)
  577. sed "s/^X//" >'demo/msg/client.c' <<'END_OF_FILE'
  578. X/*    $Header: client.c,v 4.1 88/06/21 14:02:36 bianchi Exp $
  579. X    $Source: /tmp/mgrsrc/demo/msg/RCS/client.c,v $
  580. X*/
  581. Xstatic char    RCSid_[] = "$Source: /tmp/mgrsrc/demo/msg/RCS/client.c,v $$Revision: 4.1 $";
  582. X
  583. X/*                        Copyright (c) 1987 Bellcore
  584. X *                            All Rights Reserved
  585. X *       Permission is granted to copy or use this program, EXCEPT that it
  586. X *       may not be sold for profit, the copyright notice must be reproduced
  587. X *       on copies, and credit should be given to Bellcore where it is due.
  588. X *       BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
  589. X */
  590. X/* sample client for testing server (template only) */
  591. X
  592. X#include <stdio.h>
  593. X#include <signal.h>
  594. X#include "term.h"
  595. X#include "do.h"
  596. X
  597. X#define MAX    20    /* max # of servers */
  598. X
  599. Xstruct server {
  600. X   int id;
  601. X   char *name;
  602. X   };
  603. X
  604. Xstruct server servers[MAX];
  605. Xint cnt=0;            /* server count */
  606. X 
  607. Xmain(argc,argv)
  608. Xint argc;
  609. Xchar **argv;
  610. X   {
  611. X   register int i;
  612. X   char *ttyname();
  613. X   char *str_save();
  614. X   int clean();
  615. X   char message[100];
  616. X   char line[100];
  617. X   char args[100];
  618. X   char name[20];
  619. X   int id;
  620. X
  621. X   ckmgrterm( *argv );
  622. X
  623. X   m_setup(M_FLUSH);
  624. X   chmod(ttyname(2),0600);        /* this is not gauranteed */
  625. X   m_push(P_EVENT|P_FLAGS);        /* save old events and flags */
  626. X   signal(SIGTERM,clean);        /* cleanup upon termination */
  627. X   signal(SIGINT,clean);
  628. X   m_setevent(NOTIFY,"client");        /* my name is "client" */
  629. X   m_setevent(ACCEPT,"&%f:%m\r");    /* get messages: &<from>:<message\r */
  630. X   m_setevent(BUTTON_1,"D %n");
  631. X   m_setevent(BUTTON_2,"X %n is id %w");
  632. X   sprintf(message,"%c",C_WHO);
  633. X   m_broadcast(message);        /* ask all servers for their id's */
  634. X   m_flush();
  635. X
  636. X   /* loop, reading lines from keyboard */
  637. X
  638. X   while(m_gets(line) != NULL) {
  639. X      printf("got: %s",line);
  640. X      if (*line == '&') {
  641. X         sscanf(line+1,"%d:%s %[^\n]", &id,message,args);
  642. X         switch (*message) {
  643. X            case S_HI:            /* received server announcement */
  644. X               printf("Server %d (%s) started [%s]\n",id,message,args);
  645. X               install(args,id);
  646. X               break;
  647. X
  648. X            case S_BYE:            /* a server died */
  649. X               printf("Server %d died\n",id);
  650. X               for(i=0;i<cnt;i++)
  651. X                  if (servers[i].id == id) {
  652. X                     printf("server %s (%d) removed from %d\n",
  653. X                            servers[i].name,servers[i].id,i);
  654. X                     servers[i].id = 0;
  655. X                     free(servers[i].name);
  656. X                     break;
  657. X                     }
  658. X                  if (i+1 == cnt && cnt>0)
  659. X                     cnt--;
  660. X               break;
  661. X
  662. X            case S_REPLY:            /* a server reply message */
  663. X               printf("Server %d replied %s\n",id,message);
  664. X               switch (message[1]) {
  665. X                  case R_WHO:            /* who are you */
  666. X                     install(args,id);
  667. X                     break;
  668. X                  case R_RCVD:            /* received command */
  669. X                     printf("Command received\n");
  670. X                     break;
  671. X                  case R_DO:            /* working on command */
  672. X                     printf("Command is executing\n");
  673. X                     break;
  674. X                  case R_DONE:            /* command completed */
  675. X                     printf("Command completed\n");
  676. X                     break;
  677. X                  case R_BAD:            /* command rejected */
  678. X                     printf("Command rejected\n");
  679. X                     break;
  680. X                  case R_UNKWN:            /* unknown command */
  681. X                     printf("Command unknown\n");
  682. X                     break;
  683. X                  default:
  684. X                     printf("Unknown server reply\n");
  685. X                  }
  686. X               break;
  687. X
  688. X            case C_WHO:            /* some other client sent this */
  689. X               printf("got a client WHO message\n");
  690. X               break;
  691. X
  692. X            default:
  693. X               printf("non-server message from %d (%s)\n",id,message);
  694. X               break;
  695. X            }
  696. X         }
  697. X
  698. X      /* not a message, must be a button hit or kbd */
  699. X
  700. X      else {
  701. X         switch (*line) {
  702. X            case 'L':            /* list servers */
  703. X               for(i=0;i<cnt;i++) {
  704. X                  if (servers[i].id > 0)
  705. X                     printf("%d) server %d is [%s]\n",
  706. X                             i,servers[i].id, servers[i].name);
  707. X                  }
  708. X               break;
  709. X
  710. X            case 'S':            /* put file in snarf buffer */
  711. X               m_snarf(line+2);
  712. X               printf("Putting->snarf buffer: %s\n",line+2);
  713. X               break;
  714. X
  715. X            case 'D':            /* send command to server */
  716. X               sscanf(line,"%*s %s %[^\n]", name,args);
  717. X               for(i=0;i<cnt;i++) 
  718. X                  if (servers[i].id > 0 && strcmp(servers[i].name,name)==0) {
  719. X                     printf("sending [%s] to %s (%d)\n",
  720. X                             args,name,servers[i].id);
  721. X                     sprintf(message,"%c %s",C_DO,args);
  722. X                     m_sendto(servers[i].id,message);
  723. X                     break;
  724. X                     }
  725. X               if (i==cnt)
  726. X                  printf("Can't find server [%s]\n",name);
  727. X               break;
  728. X
  729. X            case '?':            /* list commands */
  730. X               printf("L        list servers\n");
  731. X               printf("D <server> <command>        do a command\n");
  732. X               printf("?        ask for help\n");
  733. X               break;
  734. X
  735. X            default:
  736. X               printf("Not a message: %s\n",line);
  737. X            }
  738. X         }
  739. X      m_flush();
  740. X      }
  741. X   }
  742. X   
  743. X/*    Clean up and exit */
  744. X
  745. Xclean(n)
  746. Xint n;
  747. X   {
  748. X   m_popall();
  749. X   exit(n);
  750. X   }
  751. X
  752. X/* save a copy of string s */
  753. X
  754. Xchar *
  755. Xstr_save(s)
  756. Xchar *s;
  757. X   {
  758. X   char *malloc(), *strcpy();
  759. X   return(strcpy(malloc(strlen(s)+1),s)); 
  760. X   }
  761. X
  762. X/* install a server */
  763. X
  764. Xint
  765. Xinstall(name,id)
  766. Xchar *name;
  767. Xint id;
  768. X   {
  769. X   register int i,spot = -1;
  770. X
  771. X   for(i=0;i<cnt;i++)
  772. X      if (servers[i].id == id) {
  773. X         printf("server id %d already installed at %d\n",id,i);
  774. X         if (strcmp(name,servers[i].name) != 0) {
  775. X            free(servers[i].name);
  776. X            servers[i].name = str_save(name);
  777. X            }
  778. X         return(i);
  779. X         }
  780. X      else if (spot == -1 && servers[i].id == 0)
  781. X         spot = i;
  782. X
  783. X
  784. X      if (spot != -1) {
  785. X         servers[spot].id = id;
  786. X         servers[spot].name = str_save(name);
  787. X         printf("server %s (%d) installed at %d\n",
  788. X                name,id,spot);
  789. X         }
  790. X      else if (cnt < MAX) {
  791. X         servers[cnt].id = id;
  792. X         servers[cnt].name = str_save(name);
  793. X         printf("server %s (%d) installed at %d\n",
  794. X                name,id,cnt);
  795. X         cnt++;
  796. X         }
  797. X   return(i);
  798. X   }
  799. END_OF_FILE
  800. # end of 'demo/msg/client.c'
  801. fi
  802. if test -f 'font-16/U81' -a "${1}" != "-c" ; then 
  803.   echo shar: Will not clobber existing file \"'font-16/U81'\"
  804. else
  805. echo shar: Extracting \"'font-16/U81'\" \(7749 characters\)
  806. sed "s/^X//" >'font-16/U81' <<'END_OF_FILE'
  807. Xbegin 644 81.fnt
  808. XM%@X9!8  __@,    .                 #        !X         # #__P
  809. XM                          P!C &##,  8#P#@ !PX              .
  810. XM#\ X ?P'\ ,#_\'\/_X/@'\            #\   " _X!_#_P__O_X?PP!A^
  811. XM  &P!L # &X!A_#_P'\/_ ?P?_L ; &P!L 9 "__@'YP ?@ $    $      
  812. XM                                                        #@,!
  813. XMP    ![_^ P   #\                 > #      /X         , /_^  
  814. XM                        # &, 8,,P.!@[@?  .!P              P?
  815. XMX'@'_Q_\!P/_Q_\__C_A_\            ?X   <#_\?_/_S_^__G_S &'X 
  816. XM ; .P . [@&?_/_Q_\__'_Q_^P!L ; &P!D +_^ ?C !^  X    P       
  817. XM            '      #                                   8 P!@
  818. XM    /__X#    ?X         >      #\ ,      PP         8!@ 8   
  819. XM         (             , 8P!@Q_A\,#'!\  P#              '#AT
  820. XMV 8#& P& P & P .,&& P           #AP  !P, Q@,P#, #  8#, 8&  !
  821. XML!S  \'O 9@,P#& S ,8# ,# &8#, 9@,8!@ X!@.  8 'P   &         
  822. XM&   #P  8  < !P8  ,                  P               # # #  
  823. XM  !S__@,   #C@        #\   @_ /P P      !@    !P& Q@& !@    
  824. XM        @             P!C ,&/_,8P8,#P & &              8<#V8
  825. XM# &P!@P#  P!@ Q@,P!@           <#@  /@P!L ; &P , # &P!@8  &P
  826. XM., #X^\!L ; &P!L ; & P, 9@,P!F Q@& # & 8 !@ [@   X  !@     8
  827. XM   ?  !@ !P '!@  P                 #                , , ,   
  828. XM '/_^ P   <&         (X# &/_!M@#       &     ?P8#& 8 &      
  829. XM      '  !F         # &, P9\^QF!@P'  8 8             #A@/!@,
  830. XM ; &# , # & #& S &           !@&   V# &P!L ;  P , ; &!@  ;!P
  831. XMP -W;8&P!L ; &P!L 8# P!F S &,&# P 8 8!P & ''   #P  &     !@ 
  832. XM #   &     <&  #                  ,                8 P!@    
  833. XM8/_X#   !@8         A@. YP<.W , '@    8    #CA@,,#  8       
  834. XM     <  >>         , 8P?_VS;&8'& 8 !@!@ ,           ,& X&  !
  835. XM@ 88 P ,   88#, 8             8  #8, ;  P!L #  P , 8&  !L.# 
  836. XM S9M@; &P!L ; &P  ,# &,&, 8P8,# #@!@#  8 X.   /@  8     &   
  837. XM,   8      8  ,                  P               !@# &    !@
  838. XM__@,  #,#          # <'& 0S, P!_@   !@    <'& PP, !@        
  839. XM   #X '@>         P!C!__;,'S .X#  & & !X ,        !P8'@8  & 
  840. XM#!@#  P  !@P8P!@            !@_ 8PP!L # &P , #  P!@8  &QP, #
  841. XM'&S!L ; &P!L ;   P, 8P8P!AC 88 , & . !@' <   ^ _A@     8   P
  842. XM  !@     !@  P&      &         #                & , 8    &#_
  843. XM^ P!X8P, P   #X/PP, XX< ',[__,S    &!__^!@,8##_P &!X        
  844. XM 8=P!X >   @ 0  # &,!@Q\P., > (  X <### P        &!@^!@  P ,
  845. XM,,, #   ,#WA@.#@    &  &   ./_!C# &P , ;  P , # &!@  ;. P ,(
  846. XM;,&P!L ; &P!L  # P!C!C &&,!A@!@ 8 8 & X P  !P'_&/ /X#Q@_ # #
  847. XMQF/ #   &#@# ;G&?@/P8\ \9C@#^!_Q@&8!F 9 "8!G_X 8 P!@    X/_X
  848. XM# /QF!@'@   \#__ 8!W \ 8QO_]C&    8?__^& Q@,'^  8?X"$ P  P #
  849. XM#C@>  >'_[ #   ,   &##S !@'P   #@!P.,<#         X&'8&  & !@P
  850. XMPP ,   P#X'CX? #@ !X  >  !Q@.&,, S  P!L #  P , 8&  !MP#  PAL
  851. XM8; &P#, ; ,8  ,# &&,, 8-@#, . !@!P 8        P&;_#_P_V/_!_P_V
  852. XM;_ ,  P8< ,!^^;_#_QO\/]F_@?\'_& 9@&8!F 9@&?_@# # #    # __@,
  853. XM!AL8, S   ' ,SP!@#X \!#" P$,(X<#YC@  <8#& P88!_C P88&  !@ 8<
  854. XM''@  >?_L ,   P   8,'\ & _    . ' \SP,        # 8Y@8  P!\&##
  855. XM_PQP & ' ']A\ ?  >   >  ., <P8__, # &_^/_C  __@8  &^ , # &QA
  856. XML ;_\P!O_Q_X P, 88PP!@^ /P P & # !@       # 9X,,!C!XP,'_#!Y\
  857. XM, P #!C@ P&,9X.,#'@PP>?'# 8# 8!G Y@&<#F 8 , < , .    ,#_^0PD
  858. XM#QAP#,/_\8 C& & ' #\ , # PPWSX?^<   Y@,8#!A@'^>'C PP  #'_[P>
  859. XM>  !X  8!@  #   #!@/X P'.    X < _\ P        <!G&!@ & 'P8,/_
  860. XMS?P 8!_ '&'P!\ '@?_@> !PQXS!C_\P , ;_X_^, #_^!@  ;P P , ;#&P
  861. XM!O_# &_\!_P# P!AC# &#X > &  8 . &         !G 9@&8#F 8# 8#G 8
  862. XM#  ,&< # 8QG 9@&<!F YP,,!@,!@&,#& 8X<8!@!@!P P X <! P/_YC&P.
  863. XM&#P88__S  ,8 \ < _X P ,#__QXS [@  !V Q@,#,  9,R8!F   &?_G!P>
  864. XM  >  !@&   ,   ,& SP# X<   #@!P!_@#        !@&X8&  P !C P #/
  865. XMCP# >/  8. 'P!X!_^ > .#/[,&, S  P!L #  P/L 8&  !O@#  P!L,; &
  866. XMP , ; 8 # ,# ,(8-@ P X !@ 8 8         >8!F !@&8!@,!@&8!@,
  867. XM  P;@ ,!C&8!F 9@&8!F  P  P& 8X<8!ASA@& , # # # #X$# __G,[ 8X
  868. XM#AA@ #, !A@'P!P'!P#  P/__##8!L   #8#& P,P !L>/______\!@.. > 
  869. XM'@?_C P   P   P8#/@8#AS   . ' #\/_\  ?_@  . ?!@8 &  #,#  &X#
  870. XM ,!@, !@  . >     >!P,QM_\P!L # &P , # ^P!@8  &W , # &P9L ; 
  871. XM P!L!@ & P, 8-@PAAC # #  & !P!@        ?Y@&8 & 9_^ P& 9@& P 
  872. XM#!^  P&,9@&8!F 9@&8 #_@# 8!AAA@&#\& 8!@ & , 8 ?PP,#_^,S,!C@'
  873. XM,#  ,_@&& [ '@P# , # PP\,-@&P   -@,8# S  &PP_______P, =P >!X
  874. XM!_^,#   #   /_X,V!G.#L   8 8 ?X__P !_^   P!X&!@ P  ,__@ ; &!
  875. XM@, 8 &    !X    !X& S&W_S &P , ;  P , ; &!@  ;. P , ;!FP!L #
  876. XM &P#  8# P!@V#'&&, , 8  8 # &        /YF 9@ 8!G_X# 8!F 8#  ,
  877. XM'\ # 8QF 9@&8!F 9@ '_ ,!@&'.& 8'@8!@,  8 P!@!GF!P/_X[<P&. <P
  878. XM,  S  88'& 6# , P ,!#"PPV ;    V Q@,!X  ;'C8!F   &?_@^  >>  
  879. XM  88       __FS8,^X.P  !@!@#_P#        ' ' 8& &   ;_^ !L 8& 
  880. XMP!@ 8    !X!_^ > 8#/^8#, ;  P!L #  P!L 8&  !L<#  P!L#; &P , 
  881. XM; , !@,# &!P,^8P8 P#@ !@ . 8       !P&8!F !@&8  ,!@&8!@,  P<
  882. XMX ,!C&8!F 9@&8!F   & P& 8,P8Q@_!@&!@ !@# & ,/X& __AMC XX!V 8
  883. XM #, !@PX8!8, P#   &,;'C8!N   '8#& P'@ !DS(P,,   Q_^!P  9@   
  884. XM!A@      !@P?/@V/@>   & & \SP,      X 8 \!@8 P P!@## &P!@P# 
  885. XM&P!@X   !X'_X'@  ,?Q@,P!L ; &P , # &P!@8# &PX, # &P-L ;  P-L
  886. XM S & P, 8' W=C!@# ,  &  8!@       & 9@&8 & 9@  P& 9@& P #!AP
  887. XM P&,9@&8!F 9@&8   8# 8!@_!GF'.& 8,  & , 8 @? 8#_^#\$#S@'8!@ 
  888. XM 8 ,#' P%@X' ,   ,S'SY@,<   Y@,<' >  &>'AA@8  &!@ '     !_^#
  889. XM,       &# _\&8W!X   8 8#C' P X   'P#@#P.!@& # & ,, ; &# , ;
  890. XM &'P X !X  !X   X . [ &P!L ;  P , ; &!@, ;!PP , ; >P!L # ^P#
  891. XM, 8# P!@<#X^8# ,!@  8 !P&        8#G 9@&8#F 8# 8#F 8#  ,&#@#
  892. XM 8QF 9@&<!F Y@ ,!@,!@.!X&S8X<8#A@  P P P" X!@/_X/P8;/@[ #  !
  893. XMP P,8# >!XX P/_\?X.'##@X  '& PXX P  8P,"$ P  P,  (     '_X,P
  894. XM   ,   P8!_@9C>/P   P# ,,,# 'P   ? , +AP& P & P P8#& P8 8#& 
  895. XMP? 'P !X  >  <!P'P!L Q@,P#, #  8#, 8& 8#,#C  P!L!Y@,P &!S ,8
  896. XM# ,!@, @/!Y@, P.  !@ # 8       !@>>## 8P>,!@, P>8!@,  P8' ,!
  897. XMC&8!F 9X,,'F  P& P##X'@>'G XP^,  # # #    & __@> _'__, ,  #P
  898. XM# ; & P'_@# __P>   /\!___X8#!_ # __A_@      !@  @'_Y_^   >  
  899. XM  P  #!@#,##X_S   #@< !X , ?   !\!P '^'_C_^?_ #!_\?_!@!_\?_!
  900. XM\ ?  !@ !@ !P#_[ &__'_S_\__L !_\P!A^!_\P'/_[ &P#G_S  ?_L 9_\
  901. XM P'_P" X#L 8# __@'X .?@       #_9O\/_#_8_\ P#_9@& P #!@. P&,
  902. XM9@&,#&_P_V8 !_P!\/]@,!P.8!C_9_^ & , 8    8#_^ P!X'/X@ 0  #X,
  903. XM!L <  'X ,        /@!__^!@,!P ,#__!X            ?_G_X   P   
  904. XM#   ,& ,P,' ^    '#@ #  P \   #@&  /P?^/_X?P ,!_ ?P& !_ ?P#@
  905. XM \        ' #^, ;_@'\/_#_^P !_# &'X!_# ,__L ; .'\,  ?WP!A_ #
  906. XM '\ (# &P!@,#_^ ?@ 9^        'YF/ /X#Q@_@# #QF 8#  ,& 8# 8QF
  907. XM 8_\8\ \9@ #^ #P/& P& 9 "#QG_X . P'    !@/_X    ,           
  908. XM                                                            
  909. XM                        !P                                 !
  910. XMP                                                   ,       
  911. XM                                           &      P         
  912. XM!_!@  !@                 &     #     #, __@    P            
  913. XM                                                            
  914. XM                       &                                  & 
  915. XM                                                            
  916. XM                                          8     #           
  917. XM &   &                  8     ,     ,P#_^    #              
  918. XM                                                            
  919. XM                      P                                  P  
  920. XM                                                            
  921. XM                    /__                ,#      ,            
  922. XM8   8                ,#      P     S /_X    ,               
  923. XM                                                            
  924. XM                    "                                  "    
  925. XM                                                            
  926. XM                   __\                _\     /@           !@
  927. XM  !@                _\     #     !\ __@    P                
  928. XM                                                            
  929. XM                                                            
  930. XM                                                            
  931. XM                                    !_      \            &  
  932. X: &                !_      ,     #@  
  933. X 
  934. Xend
  935. END_OF_FILE
  936. # end of 'font-16/U81'
  937. fi
  938. if test -f 'src/copyright.c' -a "${1}" != "-c" ; then 
  939.   echo shar: Will not clobber existing file \"'src/copyright.c'\"
  940. else
  941. echo shar: Extracting \"'src/copyright.c'\" \(7128 characters\)
  942. sed "s/^X//" >'src/copyright.c' <<'END_OF_FILE'
  943. X/*                        Copyright (c) 1988 Bellcore
  944. X *                            All Rights Reserved
  945. X *       Permission is granted to copy or use this program, EXCEPT that it
  946. X *       may not be sold for profit, the copyright notice must be reproduced
  947. X *       on copies, and credit should be given to Bellcore where it is due.
  948. X *       BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
  949. X */
  950. X/*    $Header: copyright.c,v 4.3 88/07/11 13:46:06 sau Exp $
  951. X    $Source: /tmp/mgrsrc/src/RCS/copyright.c,v $
  952. X*/
  953. Xstatic char    RCSid_[] = "$Source: /tmp/mgrsrc/src/RCS/copyright.c,v $$Revision: 4.3 $";
  954. X
  955. X/* flash a copyright notice at Mgr startup */
  956. X
  957. X#include <sys/time.h> 
  958. X#include <sys/signal.h>
  959. X#include "bitmap.h"
  960. X#include "copyright.h"
  961. X
  962. X#define SSIZE    3        /* star size */
  963. X
  964. X#define BG_COLOR        4    /* background color */
  965. X#define LOGO_COLOR    2    
  966. X#define CR_COLOR        5    /* copyright color */
  967. X
  968. Xstatic BITMAP *logo[] =
  969. X    { &lb_0, &lb_1, &lb_2, &lb_3, &lb_4, &lb_5, &lb_6, &lb_7};
  970. X
  971. Xstatic struct timeval delay = {
  972. X   (long) 0, (long) 120000
  973. X   };
  974. X
  975. X/* for "star trek" clip areas */
  976. X
  977. Xstruct rect {
  978. X    short x1,y1;
  979. X    short x2,y2;
  980. X    }c1,c2;
  981. X
  982. Xcopyright(where)
  983. XBITMAP *where;    /* where to blast the copyright */
  984. X    {
  985. X    BITMAP *notice = &cr;
  986. X    int x = (BIT_WIDE(where)-BIT_WIDE(notice))/2;
  987. X    int y = BIT_HIGH(where)/2;
  988. X    int high = BIT_HIGH(logo[0]);
  989. X    int wide = BIT_WIDE(logo[0]);
  990. X    int mask = 1;        /* select mask (1 == kbd) */
  991. X    int pid;                /* pid of "startrek" program */
  992. X    register int i;
  993. X    char c;
  994. X
  995. X    c1.x1 = x - SSIZE;
  996. X    c1.y1 = y - SSIZE;
  997. X    c1.x2 = BIT_WIDE(notice) + x;
  998. X    c1.y2 = BIT_HIGH(notice) + y;
  999. X
  1000. X    bit_blit(where,0,0,BIT_WIDE(where),
  1001. X            BIT_HIGH(where),BIT_SRC|GETCOLOR(BG_COLOR),0l,0,0);
  1002. X    bit_blit(where,x,y,BIT_WIDE(notice),BIT_HIGH(notice),
  1003. X            BIT_SRC^BIT_DST|GETCOLOR(BG_COLOR)^GETCOLOR(CR_COLOR),
  1004. X            notice,0,0);
  1005. X
  1006. X    x = (BIT_WIDE(where)-wide)/2;
  1007. X    y = y - high - BIT_HIGH(notice);
  1008. X
  1009. X    c2.x1 = x - SSIZE;
  1010. X    c2.y1 = y - SSIZE;
  1011. X    c2.x2 = wide + x;
  1012. X    c2.y2 = high + y;
  1013. X
  1014. X    /* kick off stars */
  1015. X
  1016. X    if ((pid=fork()) == 0) /* child */
  1017. X        fly(where,c1,c2);
  1018. X   else {
  1019. X        for(i=0;select(32,&mask,0,0,&delay) <= 0;i++,mask=1)
  1020. X            bit_blit(where,x,y,wide,high,
  1021. X            BIT_SRC|GETCOLOR(BG_COLOR),
  1022. X            logo[i%8],0,0);
  1023. X        read(0,&c,1);
  1024. X        kill(pid,SIGTERM);
  1025. X        while(wait(0)!=pid);
  1026. X        }
  1027. X    }
  1028. X
  1029. X/* star trek effect */
  1030. X
  1031. X
  1032. X/*
  1033. X * porter.c  Steve Hawley 4/3/87
  1034. X * rehacked 5/18/1988 for extra speed.
  1035. X * re-re hacked 6/20/88 for MGR (SAU)
  1036. X * A demo to get stars inspired by Star Trek without
  1037. X * using quickdraw, and by addressing the screen directly.
  1038. X * this version is roughly 8 times faster than its quickdraw
  1039. X * equivalent.
  1040. X * In considering the bit drawing routines, remember that
  1041. X * on the macintosh, a bit turned on is black, not white.
  1042. X */
  1043. X
  1044. X#define MAXZ 500 /* maximum z depth */
  1045. X#define NSTARS 256 /* maximum number of stars */
  1046. X#define SPEED    8        /* star speed */
  1047. X#define SCALE    (short)6    /* for rotator */
  1048. X#define COUNT    (short)3    /* for rotator */
  1049. X#define ON 1  /* plotting states */
  1050. X#define OFF 0
  1051. X#define Random() rand()
  1052. X
  1053. Xshort maxv, maxh; /* display size */
  1054. Xshort hmaxv, hmaxh;    /* 1/2 display size */
  1055. X
  1056. Xstruct st {
  1057. X        short x, y, z;
  1058. X    short color;
  1059. X        } stars[NSTARS]; /* our galaxy */
  1060. X
  1061. Xfly (where,clip1,clip2)
  1062. XBITMAP *where;
  1063. Xstruct rect clip1, clip2;        /* "holes" in galaxy */
  1064. X{
  1065. X        register short i;
  1066. X        register struct st *stp;
  1067. X
  1068. X        init_all(where);     /* set up global variables */
  1069. X        for (i=0, stp = stars; i< NSTARS; i++, stp++) {
  1070. X                /* initialize galaxy */
  1071. X                do {
  1072. X                        stp->x = Random();
  1073. X                        stp->y = Random();
  1074. X                        stp->z = (Random() % MAXZ) + 1;
  1075. X                        stp->color = Random() % 23;
  1076. X                                if (stp->color == BG_COLOR)
  1077. X                            stp->color++;
  1078. X            
  1079. X                } while(project(where,stp->x, stp->y, stp->z, stp->color, ON,clip1,clip2)); /* on screen? */
  1080. X        }
  1081. X        while (1) { /* loop 'til button */
  1082. X                i = NSTARS;
  1083. X                stp = stars;
  1084. X                do {
  1085. X                        project(where,stp->x, stp->y, stp->z, stp->color, OFF,clip1,clip2); /* turn star off*/
  1086. X                        if ((stp->z -= SPEED) <= 0) { /* star went past us */
  1087. X                                stp->x = Random();
  1088. X                                stp->y = Random();
  1089. X                                stp->z = MAXZ;
  1090. X                        }
  1091. X                                else {        /* rotate universe */
  1092. X                                    cordic(&stp->x,&stp->y,SCALE,COUNT);
  1093. X                                }
  1094. X                        if (project(where,stp->x, stp->y, stp->z, stp->color, ON,clip1,clip2)) {
  1095. X                                /* if projection is off screen, get a new position */
  1096. X                                stp->x = Random();
  1097. X                                stp->y = Random();
  1098. X                                stp->z = MAXZ;
  1099. X                        }
  1100. X                ++stp;
  1101. X                } while(--i);
  1102. X        }
  1103. X}
  1104. X
  1105. Xproject(where,x, y, z, col, state,clip1,clip2)
  1106. Xregister BITMAP *where;
  1107. Xregister short x, y, z;
  1108. Xregister int col;
  1109. Xregister short state;
  1110. Xstruct rect clip1, clip2;
  1111. X{
  1112. X        
  1113. X        /* one-point perspective projection */
  1114. X        /* the offsets (maxh/2) and maxv/2) ensure that the
  1115. X         * projection is screen centered
  1116. X         */
  1117. X        x = (x/z) + hmaxh;
  1118. X        y = (y/z) + hmaxv;
  1119. X        return(xplot(where,x, y, col, state,clip1,clip2));
  1120. X
  1121. X}
  1122. X
  1123. Xinit_all(where)
  1124. Xregister BITMAP *where;
  1125. X{
  1126. X   maxv = BIT_HIGH(where);
  1127. X   hmaxv = maxv>>1;
  1128. X   maxh = BIT_WIDE(where);
  1129. X   hmaxh = maxh>>1;
  1130. X}       
  1131. X
  1132. Xxplot(where,x, y, col, state,clip1,clip2)
  1133. Xregister BITMAP *where;
  1134. Xregister int x, y;
  1135. Xregister int col;
  1136. Xint state;
  1137. Xstruct rect clip1, clip2;
  1138. X{
  1139. X        register short *line, b;
  1140. X        
  1141. X        /* are we on the screen? If not, let the caller know*/
  1142. X        if (x < 0 || x >= maxh || y < 0 || y >= maxv )
  1143. X            return(1);
  1144. X        if (!(x < clip1.x1 || x >= clip1.x2 || y < clip1.y1 || y >= clip1.y2 ))
  1145. X            return(0);
  1146. X        if (!(x < clip2.x1 || x >= clip2.x2 || y < clip2.y1 || y >= clip2.y2 ))
  1147. X            return(0);
  1148. X
  1149. X        bit_blit(where,x,y,SSIZE,SSIZE, state ?
  1150. X        BIT_SRC^BIT_DST | GETCOLOR(col)^GETCOLOR(BG_COLOR) :
  1151. X        BIT_SRC | GETCOLOR(BG_COLOR),
  1152. X                 0l,0,0);
  1153. X        return(0);
  1154. X}
  1155. X
  1156. X/* CORDIC rotator. Takes as args a point (x,y) and spins it */
  1157. X/* count steps counter-clockwise.                   1       */
  1158. X/*                                Rotates atan( --------- ) */
  1159. X/*                                                  scale   */
  1160. X/*                                                 2        */
  1161. X/* Therefore a scale of 5 is 1.79 degrees/step and          */
  1162. X/* a scale of 4 is 3.57 degrees/step                        */
  1163. X
  1164. Xcordic(x, y, scale, count)
  1165. Xshort *x, *y;
  1166. Xregister short scale, count;
  1167. X
  1168. X{
  1169. X   register short tempx, tempy;
  1170. X
  1171. X   tempx = *x;
  1172. X   tempy = *y;
  1173. X
  1174. X   if (count > 0) /* positive count (counter-clockwise) */
  1175. X      for (; count; count--){
  1176. X         tempx -= (tempy >> scale);
  1177. X         tempy += (tempx >> scale); 
  1178. X      }
  1179. X   else          /* negative count (clockwise) */
  1180. X      for (; count; count++){
  1181. X         tempx += (tempy >> scale);
  1182. X         tempy += (tempx >> scale);
  1183. X      }
  1184. X
  1185. X   *x = tempx;
  1186. X   *y = tempy;
  1187. X}
  1188. END_OF_FILE
  1189. # end of 'src/copyright.c'
  1190. fi
  1191. if test -f 'src/get_info.c' -a "${1}" != "-c" ; then 
  1192.   echo shar: Will not clobber existing file \"'src/get_info.c'\"
  1193. else
  1194. echo shar: Extracting \"'src/get_info.c'\" \(7612 characters\)
  1195. sed "s/^X//" >'src/get_info.c' <<'END_OF_FILE'
  1196. X/*                        Copyright (c) 1987 Bellcore
  1197. X *                            All Rights Reserved
  1198. X *       Permission is granted to copy or use this program, EXCEPT that it
  1199. X *       may not be sold for profit, the copyright notice must be reproduced
  1200. X *       on copies, and credit should be given to Bellcore where it is due.
  1201. X *       BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
  1202. X */
  1203. X/*    $Header: get_info.c,v 4.3 88/08/22 11:42:35 sau Exp $
  1204. X    $Source: /tmp/mgrsrc/src/RCS/get_info.c,v $
  1205. X*/
  1206. Xstatic char    RCSid_[] = "$Source: /tmp/mgrsrc/src/RCS/get_info.c,v $$Revision: 4.3 $";
  1207. X
  1208. X/* return info to shell */
  1209. X
  1210. X#include "bitmap.h"
  1211. X#include "font.h"
  1212. X#include "defs.h"
  1213. X#include "menu.h"
  1214. X#include "event.h"
  1215. X#include <stdio.h>
  1216. X#include "window.h"
  1217. X
  1218. X/*    BUTTON_SYS is never reported as a possible button setting. */
  1219. X#define    RPT_BUTTON()    (button_state == BUTTON_SYS ? 0 : button_state )
  1220. X
  1221. Xget_info(win,window,text)
  1222. Xregister WINDOW *win;            /* window info is about */
  1223. XBITMAP *window;                /* window's bitmap data */
  1224. XBITMAP *text;                /* window's text region */
  1225. X   {
  1226. X   int cnt = W(esc_cnt);        /* # of leading ESC #'s */
  1227. X   int count;                /* whatever */
  1228. X   char font_buff[MAX_PATH];        /* space to store a path name */
  1229. X   char coords[1024];            /* space for return value */
  1230. X   register WINDOW *win2;        /* generic window pntr */
  1231. X   struct font *Get_font();
  1232. X
  1233. X   if (cnt == 1) {        /* info about spot */
  1234. X      for(win2=active;win2!=(WINDOW *) 0;win2=win2->next)
  1235. X         if (mousein(W(esc)[0],W(esc)[1],win2,1))
  1236. X            break;
  1237. X      if (win2 != (WINDOW *) 0)
  1238. X         sprintf(coords,"%s %s %d %d\n",
  1239. X                  win->tty+strlen(win->tty)-2,
  1240. X                  win2->tty+strlen(win2->tty)-2,win2->num,win2->pid);
  1241. X      else
  1242. X         sprintf(coords,"\n");
  1243. X      Write(W(to_fd),coords,strlen(coords));
  1244. X      return;
  1245. X      }
  1246. X      
  1247. X#ifdef DEBUG
  1248. X   dprintf(i)(stderr,"%s: getting info %d\r\n",W(tty),*W(esc));
  1249. X#endif
  1250. X   switch (W(esc)[0]) {
  1251. X      case G_TERMCAP:    /* send termcap entry back to shell */
  1252. X           {
  1253. X           int lines = T_HIGH/FSIZE(high);
  1254. X           int cols  = T_WIDE/FSIZE(wide);
  1255. X           sprintf(coords,"%s:am:li#%d:co#%d:bs:cl=^L:ce=\\E%c:cd=\\E%c:cm=\\E%%r%%d%c%%d%c:al=\\E%c:dl=\\E%c:ic=\\E%c:dc=\\E%c:im=:ta=^I:up=\\E%c:do=\\E%c:nd=\\E%c:ku=\\E[A:kd=\\E[B:kr=\\E[C:kl=\\E[D:so=\\E%c:se=\\E%c:vs=\\E%c:ve=\\E%c:\n",
  1256. X                   C_NAME,lines,cols,E_CLEAREOL,E_CLEAREOS,
  1257. X                   E_SEP1,E_CUP,E_ADDLINE,E_DELETELINE,E_ADDCHAR,E_DELETECHAR, 
  1258. X                   E_UPLINE,E_DOWN,E_RIGHT,E_STANDOUT,E_STANDEND,
  1259. X                   E_VI,E_NOVI);
  1260. X           }
  1261. X           break;
  1262. X      case G_WINSIZE:                    /* cols, lines */
  1263. X           sprintf(coords,"%d %d\n", T_WIDE/FSIZE(wide),
  1264. X              T_HIGH/FSIZE(high));
  1265. X           break;
  1266. X      case G_FONT:                    /* font wide, high, # */
  1267. X           {
  1268. X           register int id = W(font)->ident;
  1269. X           sprintf(coords,"%d %d %d %s\n", FSIZE(wide),
  1270. X              FSIZE(high),id,id>0?fontlist[id-1]:
  1271. X              "default.fnt");
  1272. X           }
  1273. X           break;
  1274. X      case G_CURSOR:                    /* x,y gx,gy cursor_type */
  1275. X           sprintf(coords,"%d %d %d %d %d\n",
  1276. X              W(x)/FSIZE(wide),
  1277. X              W(y)/FSIZE(high)-1,
  1278. X              W(gx), W(gy),
  1279. X              W(curs_type));
  1280. X           break;
  1281. X      case G_TEXT:            /* text region size: x,y,wide,high */
  1282. X           sprintf(coords,"%d %d %d %d\n",
  1283. X              W(text.x),W(text.y),W(text.wide),W(text.high));
  1284. X           break;
  1285. X      case G_MOUSE:                    /* mouse coordinates */
  1286. X           sprintf(coords,"%d %d %d\n", mousex, mousey, RPT_BUTTON());
  1287. X           break;
  1288. X      case G_MOUSE2:                /* massaged coordinates */
  1289. X           if (W(flags)&W_ABSCOORDS)
  1290. X              sprintf(coords, "%d %d %d\n", mousex-W(x0), mousey-W(y0), 
  1291. X                    RPT_BUTTON());
  1292. X           else
  1293. X              sprintf(coords,"%d %d %d\n",
  1294. X                    (mousex-W(x0))*GMAX/BIT_WIDE(W(window)),
  1295. X                    (mousey-W(y0))*GMAX/BIT_HIGH(W(window)),
  1296. X                    RPT_BUTTON());
  1297. X           break;
  1298. X      case G_COORDS:                    /* window coords */
  1299. X           sprintf(coords,"%d %d %d %d\n",W(x0),W(y0),
  1300. X              WIDE,HIGH);
  1301. X           break;
  1302. X      case G_STATUS:                    /* window status */
  1303. X           sprintf(coords,"%c\n",W(flags)&W_ACTIVE
  1304. X                   ? C_EXPOSED: C_OBSCURED);
  1305. X           if (win == active)
  1306. X              *coords = C_ACTIVE;
  1307. X           break;
  1308. X      case G_ALLMINE:            /* window status for client windows */
  1309. X      case G_ALL:                /* complete window status */
  1310. X           {
  1311. X           register char status;
  1312. X           *coords = '\0';
  1313. X           for(win2=active;win2!=(WINDOW *) 0;win2=win2->next) {
  1314. X              if (*W(esc)==G_ALLMINE && win2->main != W(main))
  1315. X                 continue;
  1316. X              status = win2->flags&W_ACTIVE ? C_EXPOSED:C_OBSCURED;
  1317. X              if (win2 == win)
  1318. X                 status += ('A'-'a');
  1319. X              sprintf(coords+strlen(coords),"%d %d %d %d %s %d %c %d\n",
  1320. X                      win2->x0,
  1321. X                      win2->y0,
  1322. X                      win2->BIT_WIDE(border),
  1323. X                      win2->BIT_HIGH(border),
  1324. X                      win2->tty+strlen(win2->tty)-2,
  1325. X                      win2->num,
  1326. X                      status,
  1327. X              win2->setid);
  1328. X               Write(W(to_fd),coords,strlen(coords));
  1329. X               *coords = '\0';
  1330. X               }
  1331. X           sprintf(coords+strlen(coords),"\n");
  1332. X           }
  1333. X           break;
  1334. X      case G_NOTIFY:            /* list windows with notify set  */
  1335. X           {
  1336. X           register char *str;
  1337. X           *coords = '\0';
  1338. X           for(win2=active;win2!=(WINDOW *) 0;win2=win2->next) {
  1339. X#ifdef DEBUG
  1340. X              dprintf(i)(stderr,"  checking %s\r\n",win2->tty);
  1341. X#endif
  1342. X              if (IS_EVENT(win2,EVENT_NOTIFY) &&
  1343. X                    (str = win2->events[GET_EVENT(EVENT_NOTIFY)])) {
  1344. X                 sprintf(coords+strlen(coords),"%d.%d %d %s\n",
  1345. X                          win2->pid,win2->num,strlen(str),str);
  1346. X                 Write(W(to_fd),coords,strlen(coords));
  1347. X                 *coords = '\0';
  1348. X#ifdef DEBUG
  1349. X                 dprintf(i)(stderr,"    got %s\r\n",str);
  1350. X#endif
  1351. X                 } 
  1352. X              }
  1353. X           sprintf(coords+strlen(coords),"\n");
  1354. X           }
  1355. X           break;
  1356. X      case G_SYSTEM:                    /* system status */
  1357. X           gethostname(coords,sizeof(coords));
  1358. X           sprintf(coords+strlen(coords)," %d %d %d %d %d\n",
  1359. X                      BIT_WIDE(screen),
  1360. X                      BIT_HIGH(screen),
  1361. X                      SUM_BDR,
  1362. X                      DEPTH,
  1363. X                      BITS+1);
  1364. X           break;
  1365. X      case G_ID:                    /* client window id */
  1366. X           for(count=0,win2=W(main);win2;win2=win2->alt)
  1367. X              count++;
  1368. X           sprintf(coords,"%d %d\n",W(num),count);
  1369. X           break;
  1370. X      case G_FLAGS:                    /* window flags */
  1371. X           sprintf(coords,"%0x\n",W(flags));
  1372. X           break;
  1373. X#ifdef OBSOLETE
  1374. X      case G_ALLFONT:                    /* font information */
  1375. X           {
  1376. X           register struct font *temp;
  1377. X           register int i;
  1378. X 
  1379. X           sprintf(coords,"%d %d",font->head.wide,
  1380. X                                 font->head.high);
  1381. X           for(i=0;i<MAXFONT;i++)  {
  1382. X              temp=Get_font(i);
  1383. X              sprintf(coords+strlen(coords), "  %d %d",
  1384. X                            temp->head.wide,
  1385. X                            temp->head.high);
  1386. X              }
  1387. X           strcat(coords,"\n");
  1388. X           }
  1389. X           break;
  1390. X#endif
  1391. X      }
  1392. X   if (strlen(coords))
  1393. X      Write(W(to_fd),coords,strlen(coords));
  1394. X#ifdef DEBUG
  1395. X   dprintf(i)(stderr,"  sending (%d) [%s]\r\n",
  1396. X                 strlen(coords),coords);
  1397. X#endif
  1398. X   }
  1399. END_OF_FILE
  1400. # end of 'src/get_info.c'
  1401. fi
  1402. echo shar: End of archive 25 \(of 61\).
  1403. cp /dev/null ark25isdone
  1404. MISSING=""
  1405. for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 \
  1406.     21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 \
  1407.     38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 \
  1408.     55 56 57 58 59 60 61 ; do
  1409.     if test ! -f ark${I}isdone ; then
  1410.     MISSING="${MISSING} ${I}"
  1411.     fi
  1412. done
  1413. if test "${MISSING}" = "" ; then
  1414.     echo You have unpacked all 61 archives.
  1415.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  1416. else
  1417.     echo You still need to unpack the following archives:
  1418.     echo "        " ${MISSING}
  1419. fi
  1420. ##  End of shell archive.
  1421. exit 0
  1422.