home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume17 / mgr / part17 < prev    next >
Text File  |  1989-01-19  |  52KB  |  1,676 lines
  1. Subject:  v17i018:  MGR, Bellcore window manager, Part18/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 18
  7. Archive-name: mgr/part18
  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 17 (of 61)."
  19. # Contents:  demo/icon/cycle.c demo/misc/hilbert.c demo/misc/overlayd.c
  20. #   font-16/Ucmrb8 font-16/Ucour9x16bu font-32/Ucmrb8
  21. #   font-32/Ucour9x16bu lib/dump.h misc/tjfilter.c src/blit/bitmap.h
  22. #   src/oblit/bitmap.h src/shape.c src/utmp.c
  23. # Wrapped by rsalz@papaya.bbn.com on Thu Nov 17 21:05:19 1988
  24. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  25. if test -f 'demo/icon/cycle.c' -a "${1}" != "-c" ; then 
  26.   echo shar: Will not clobber existing file \"'demo/icon/cycle.c'\"
  27. else
  28. echo shar: Extracting \"'demo/icon/cycle.c'\" \(3517 characters\)
  29. sed "s/^X//" >'demo/icon/cycle.c' <<'END_OF_FILE'
  30. X/*                        Copyright (c) 1988 Bellcore
  31. X *                            All Rights Reserved
  32. X *       Permission is granted to copy or use this program, EXCEPT that it
  33. X *       may not be sold for profit, the copyright notice must be reproduced
  34. X *       on copies, and credit should be given to Bellcore where it is due.
  35. X *       BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
  36. X */
  37. X/*    $Header: cycle.c,v 4.2 88/06/24 17:22:31 bianchi Exp $
  38. X    $Source: /tmp/mgrsrc/demo/icon/RCS/cycle.c,v $
  39. X*/
  40. Xstatic char    RCSid_[] = "$Source: /tmp/mgrsrc/demo/icon/RCS/cycle.c,v $$Revision: 4.2 $";
  41. X
  42. X#include <sys/time.h>
  43. X#include <stdio.h>
  44. X#include <signal.h>
  45. X#include "term.h"
  46. X
  47. X/*
  48. X * cycle -- a program to do simple flip-book animation
  49. X * Steve Hawley
  50. X */
  51. X
  52. X#define fsleep(x) \
  53. X   { \
  54. X   struct timeval time; \
  55. X   time.tv_sec = 0; \
  56. X   time.tv_usec = x; \
  57. X   select(0,0,0,0,&time); \
  58. X   }
  59. X
  60. X#define DEF_SPEED 90000
  61. X#define MAXBUF 512
  62. X
  63. Xstatic char    *cmd;
  64. Xstatic int    offset;    /* where icons end (offset from argc) */
  65. Xstatic int    bitcount;    /* number of bitmaps created */
  66. Xstatic char    cwd[MAXBUF];
  67. Xstatic int    w, h;
  68. X
  69. Xstatic
  70. Xcleanup()
  71. X{
  72. X    /* be a nice program and clean up */
  73. X    int i;
  74. X
  75. X    m_ttyreset();            /* reset echo */
  76. X    for (i = 1; i <= bitcount; i++)    /* free up bitmaps */
  77. X        m_bitdestroy(i);
  78. X    m_pop();            /* pop environment */
  79. X    exit(0);
  80. X}
  81. X
  82. Xmain(argc,argv)
  83. Xchar **argv;
  84. X{
  85. X    char    *getenv();
  86. X    int    speed, i;
  87. X    int    reverse = 0;
  88. X    FILE    *popen(), *fp = popen("/bin/pwd", "r");
  89. X
  90. X    cmd = *argv;
  91. X    argc--; argv++;
  92. X
  93. X    if (!fp) {
  94. X        fprintf(stderr,"%s: can't get current directory\n",cmd);
  95. X        exit(2);
  96. X    }
  97. X    fgets(cwd,sizeof(cwd),fp);
  98. X    *(cwd + strlen(cwd) - 1) = '\0';  /* blah */
  99. X    pclose(fp);
  100. X
  101. X    if (argc < 1)
  102. X        usage();
  103. X
  104. X    ckmgrterm();
  105. X
  106. X    m_setup(M_FLUSH);    /* flush output stream */
  107. X    m_push(P_BITMAP|P_EVENT|P_FLAGS);
  108. X    m_setmode(M_ABS);
  109. X
  110. X    signal(SIGINT,cleanup);        /* program loops forever */
  111. X    signal(SIGTERM,cleanup);    /* this gives a mechanism */
  112. X    signal(SIGQUIT,cleanup);    /* for cleaning up */
  113. X
  114. X    m_func(B_COPY);    /* bit copy, so we don't have to erase */
  115. X    m_clear();    /* clear the screen */
  116. X    m_ttyset()    ;/* no keybaord echo */
  117. X
  118. X    speed = DEF_SPEED;
  119. X    offset = 0;
  120. X
  121. X    while( argv[0][0] == '-' ) {
  122. X        switch( argv[0][1] ) {
  123. X        case 's':
  124. X            speed = atoi(&(argv[0][2]));
  125. X            break;
  126. X        case 'r':
  127. X            reverse = 1;
  128. X            break;
  129. X        default:
  130. X            usage();
  131. X        }
  132. X        argv++; argc--;
  133. X    }
  134. X
  135. X    if (argc < 1)
  136. X        usage();
  137. X
  138. X    for ( ; argc;  argv++, argc-- ) {
  139. X        bitcount++;
  140. X        loadmap( bitcount, *argv );
  141. X    }
  142. X    while(1) {
  143. X        for (i = 1; i <= bitcount; i++) {
  144. X            m_bitcopyto(0, 0, w, h, 0, 0, 0, i);
  145. X            fsleep(speed);
  146. X            /* delay a bit, so we can see animation */
  147. X        }
  148. X        if( !reverse )
  149. X            continue;
  150. X        for (i--;  i > 1;  i--) {
  151. X            m_bitcopyto(0, 0, w, h, 0, 0, 0, i);
  152. X            fsleep(speed);
  153. X        }
  154. X    }
  155. X}
  156. X
  157. X
  158. Xstatic
  159. Xloadmap( i, file )
  160. Xint    i;
  161. Xchar    *file;
  162. X{
  163. X    char    buf[MAXBUF];
  164. X
  165. X    if (*file == '/')
  166. X        m_bitfromfile(i, file);
  167. X    else if (strncmp(file, "../", 3) == 0) {
  168. X        sprintf(buf, "%s/%s", cwd, file);
  169. X        m_bitfromfile(i, buf);
  170. X    }
  171. X    else if (strncmp(file, "./", 2) == 0) {
  172. X        sprintf(buf, "%s%s", cwd, file+1);
  173. X        m_bitfromfile(i, buf);
  174. X    }
  175. X    else {
  176. X        m_bitfromfile(i, file);
  177. X    }
  178. X    m_gets(buf);
  179. X    sscanf(buf, "%d %d", &w, &h); /* load in icons. */
  180. X    if (w == 0 || h == 0) {
  181. X        fprintf(stderr, "%s: %s is not a bitmap.\n", cmd, file);
  182. X        cleanup();
  183. X    }
  184. X}
  185. X
  186. X
  187. Xstatic
  188. Xusage()
  189. X{
  190. X    fprintf(stderr, "Usage: %s [-sspeed] [-r] icon1 [icon2 ...iconn]\n",
  191. X        cmd);
  192. X    fputs("\
  193. X-sspeed    delay `speed' microseconds between frames\n\
  194. X-r    after running forward through the frames, reverse and run backwards\n",
  195. X        stderr);
  196. X    exit(1);
  197. X}
  198. END_OF_FILE
  199. # end of 'demo/icon/cycle.c'
  200. fi
  201. if test -f 'demo/misc/hilbert.c' -a "${1}" != "-c" ; then 
  202.   echo shar: Will not clobber existing file \"'demo/misc/hilbert.c'\"
  203. else
  204. echo shar: Extracting \"'demo/misc/hilbert.c'\" \(3548 characters\)
  205. sed "s/^X//" >'demo/misc/hilbert.c' <<'END_OF_FILE'
  206. X/*                        Copyright (c) 1988 Bellcore
  207. X *                            All Rights Reserved
  208. X *       Permission is granted to copy or use this program, EXCEPT that it
  209. X *       may not be sold for profit, the copyright notice must be reproduced
  210. X *       on copies, and credit should be given to Bellcore where it is due.
  211. X *       BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
  212. X */
  213. X/*    $Header: hilbert.c,v 4.3 88/05/31 13:22:43 bianchi Exp $
  214. X    $Source: /tmp/mgrsrc/demo/misc/RCS/hilbert.c,v $
  215. X*/
  216. Xstatic char    RCSid_[] = "$Source: /tmp/mgrsrc/demo/misc/RCS/hilbert.c,v $$Revision: 4.3 $";
  217. X
  218. X#include <signal.h>
  219. X#include "term.h"
  220. X
  221. X/* program to draw hilbert space filling curves (very quick).
  222. X * Steve Hawley            11/87 (Macintosh C implementation)
  223. X * translated from a pascal version from the Oberlin Computer Science
  224. X * Lab manual, Fall 1984, Author unknown.
  225. X * --------- ported to mgr by SAU: FAST version uses fast vector mode
  226. X */
  227. X
  228. Xint dir;
  229. X
  230. X/* global direction variable.  The original program used turtle graphics
  231. X * with turn functions taking angles.  I cheat since all turns in this
  232. X * program are 90 degrees, and make the directions be:
  233. X *        0: down
  234. X *        1: right
  235. X *        2: up
  236. X *        3: left
  237. X */
  238. X
  239. Xstart()
  240. X{
  241. X    /* put the graphics cursor somewhere nice, and initialize
  242. X     * the direction.
  243. X     */
  244. X
  245. X    m_go(10,10);
  246. X
  247. X    dir = 0;
  248. X}
  249. X
  250. Xleft()
  251. X{
  252. X    /* a turn to the left is actually the direction + 3
  253. X     * modulo 3.
  254. X     */
  255. X    dir = (dir + 3) & 0x3;
  256. X}
  257. X
  258. Xright()
  259. X{
  260. X    /* a right turn is the direction + 1 modulo 3 */
  261. X    dir = (dir + 1) & 0x3;
  262. X}
  263. X
  264. Xforward(size)
  265. Xregister int size;
  266. X{
  267. X    /* move the graphics cursor and draw a line segment.
  268. X     * The Macintosh function Line(dh, dv) draws a line from the
  269. X     * current graphics cursor to the graphics cursor displaced
  270. X     * by dh and dv (horizontal and vertical deltas).
  271. X     */
  272. X    switch(dir) {
  273. X    case 0:
  274. X        Line(0, size);
  275. X        break;
  276. X    case 1:
  277. X        Line(size, 0);
  278. X        break;
  279. X    case 2:
  280. X        Line(0, -size);
  281. X        break;
  282. X    case 3:
  283. X        Line(-size, 0);
  284. X        break;
  285. X    }
  286. X}
  287. X
  288. X/* mutually recursive hilbert functions: */
  289. Xlhilbert(size, level)
  290. Xregister int size, level;
  291. X{
  292. X    if (level > 0) {
  293. X        left();
  294. X        rhilbert(size, level-1);
  295. X        forward(size);
  296. X        right();
  297. X        lhilbert(size, level-1);
  298. X        forward(size);
  299. X        lhilbert(size, level-1);
  300. X        right();
  301. X        forward(size);
  302. X        rhilbert(size, level-1);
  303. X        left();
  304. X    }
  305. X}
  306. X
  307. Xrhilbert(size, level)
  308. Xregister int size, level;
  309. X{
  310. X    if (level > 0) {
  311. X        right();
  312. X        lhilbert(size, level-1);
  313. X        forward(size);
  314. X        left();
  315. X        rhilbert(size, level-1);
  316. X        forward(size);
  317. X        rhilbert(size, level-1);
  318. X        left();
  319. X        forward(size);
  320. X        lhilbert(size, level-1);
  321. X        right();
  322. X    }
  323. X}
  324. X
  325. Xmain (argc,argv)
  326. Xint    argc;
  327. Xchar    **argv;
  328. X{
  329. X    int clean();
  330. X
  331. X    ckmgrterm( *argv );
  332. X     m_setup(0);    
  333. X    signal(SIGTERM,clean);
  334. X    signal(SIGINT,clean);
  335. X    signal(SIGHUP,clean);
  336. X    system("stty litout");
  337. X    m_func(B_SET);
  338. X    /* initialize */
  339. X    start();
  340. X    m_clear();
  341. X    /* draw the hilbert (this is *very* fast) */
  342. X    rhilbert(8, 7);
  343. X    clean();
  344. X}
  345. X
  346. X/* FAST drawing stuff */
  347. X
  348. X#define SIZE    75            /* maximum # of points in a shot */
  349. X#define MAX    7                /* maximum distance */
  350. Xstatic int count = 0;
  351. Xchar buff[1024];    /* grunge buffer */
  352. X
  353. X/* add delta to grunge list */
  354. X
  355. Xint
  356. XLine(dx,dy)
  357. Xregister int dx,dy;
  358. X    {
  359. X    register int mx,my;
  360. X
  361. X    if (dx > MAX || dy > MAX) {
  362. X        mx = (dx>>1);
  363. X        my = (dy>>1);
  364. X       buff[count++] = (mx+8)<<4 | (my+8);
  365. X        dx = dx-mx;
  366. X        dy = dy-my;
  367. X        }
  368. X
  369. X    buff[count++] = (dx+8)<<4 | (dy+8);
  370. X    if (count >= SIZE)
  371. X        flush();
  372. X
  373. X    }
  374. X
  375. X/* flush pending grunge data */
  376. X
  377. Xint
  378. Xflush()
  379. X    {
  380. X    if (count > 0) {
  381. X        m_rfastdraw(count,buff);
  382. X        count = 0;
  383. X        }
  384. X    }
  385. X
  386. Xclean()
  387. X    {
  388. X    flush();
  389. X    m_flush();
  390. X    system("stty -litout");
  391. X    exit(0);
  392. X    }
  393. END_OF_FILE
  394. # end of 'demo/misc/hilbert.c'
  395. fi
  396. if test -f 'demo/misc/overlayd.c' -a "${1}" != "-c" ; then 
  397.   echo shar: Will not clobber existing file \"'demo/misc/overlayd.c'\"
  398. else
  399. echo shar: Extracting \"'demo/misc/overlayd.c'\" \(3450 characters\)
  400. sed "s/^X//" >'demo/misc/overlayd.c' <<'END_OF_FILE'
  401. X/*                        Copyright (c) 1988 Bellcore
  402. X *                            All Rights Reserved
  403. X *       Permission is granted to copy or use this program, EXCEPT that it
  404. X *       may not be sold for profit, the copyright notice must be reproduced
  405. X *       on copies, and credit should be given to Bellcore where it is due.
  406. X *       BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
  407. X */
  408. X/*    $Header: overlayd.c,v 4.1 88/06/22 14:37:59 bianchi Exp $
  409. X    $Source: /tmp/mgrsrc/demo/misc/RCS/overlayd.c,v $
  410. X*/
  411. Xstatic char    RCSid_[] = "$Source: /tmp/mgrsrc/demo/misc/RCS/overlayd.c,v $$Revision: 4.1 $";
  412. X
  413. X/*    overlayd        (S A Uhler)
  414. X *
  415. X *    turn off overlay plane anytime /dev/console gets scrunged (cgfour only)
  416. X */
  417. X
  418. X#include <sys/types.h>
  419. X#include <sys/stat.h>
  420. X#include <sys/ioctl.h>
  421. X#include <sys/file.h>
  422. X#include <sys/mman.h>
  423. X#include <stdio.h>
  424. X
  425. X#define CONSOLE     "/dev/console"
  426. X#define DISPLAY    "/dev/fb"
  427. X#define BITS    (1152*900)    /* bits in a plane */
  428. X#define SLEEP    5        /* polling interval */
  429. X
  430. X#define INIT    0    /* ok to init frame buffer */
  431. X#define OK    1    /* frame buffer ok, do it */
  432. X#define BAD    2    /* couldn't get fb, punt */
  433. X
  434. X
  435. Xmain(argc,argv)
  436. Xint argc;
  437. Xchar **argv;
  438. X   {
  439. X   struct stat statb;
  440. X   int fd;
  441. X   long mod_time;
  442. X   long now;
  443. X
  444. X   switch (fork()) {
  445. X   default:    /* parent */
  446. X      exit(0);
  447. X   case -1:    /* fork() error */
  448. X      perror( *argv );
  449. X      exit(1);
  450. X   case 0:     /* child */
  451. X
  452. X      /* fix environment */
  453. X
  454. X      fd = open("/dev/tty");
  455. X      ioctl(fd,TIOCNOTTY,0);
  456. X      close(fd);
  457. X      close(0); close(1); close(2);
  458. X      chdir("/");
  459. X
  460. X      overlay(DISPLAY,0);
  461. X      stat(CONSOLE,&statb);
  462. X      mod_time = statb.st_mtime;
  463. X
  464. X      while(1) {
  465. X         stat(CONSOLE,&statb);
  466. X         sleep(SLEEP);
  467. X         if (mod_time < statb.st_mtime) {
  468. X            mod_time = statb.st_mtime;
  469. X            overlay(DISPLAY,0);
  470. X            }
  471. X         }
  472. X      }
  473. X   }
  474. X
  475. Xstatic int state = INIT;
  476. X
  477. Xoverlay(name,how)
  478. Xchar *name;
  479. Xint how;
  480. X   {
  481. X   int fd;
  482. X   char  *malloc();
  483. X   static int *addr = (int * ) 0;    /* starting address of frame buffer */
  484. X   register int *start,*end;    /* range of addresses to change */
  485. X   int size,temp,pagesize;
  486. X   static int bits = BITS;
  487. X
  488. X   /* open the SUN screen */
  489. X
  490. X   switch(state) {
  491. X      case BAD:
  492. X         return(-1);
  493. X         break;
  494. X      case INIT:                /* first call, get fb */
  495. X         state = BAD;
  496. X         if ((fd = open(name,O_RDWR)) <0) {
  497. X            perror(name);
  498. X            return(-1);
  499. X            }
  500. X
  501. X         /* malloc space for frame buffer  -- overlay and enable planes */
  502. X
  503. X         pagesize = getpagesize();
  504. X         size = bits >> 2;    /* bitplane size in bytes  * 2 */
  505. X         size = (size+pagesize-1) &~ (pagesize-1);    /* round to next page */
  506. X
  507. X         if ((temp = (int) malloc(size+pagesize)) == 0) {
  508. X            perror("malloc");
  509. X            return(-1);
  510. X            }
  511. X   
  512. X         /* align space on a page boundary */
  513. X   
  514. X         addr = (int *)(((unsigned int)temp+pagesize-1) & ~(pagesize-1));
  515. X   
  516. X         /* map the frame buffer into malloc'd space */
  517. X   
  518. X         if (mmap(addr,size,PROT_WRITE,MAP_SHARED,fd,0) < 0) {
  519. X            perror("mmap");
  520. X            free(temp);
  521. X            return(-1);
  522. X            }
  523. X         state = OK;
  524. X         /* no break */
  525. X      case OK:         /* write data to plane */
  526. X
  527. X         start = addr + 128*1024/4;        /* start of enable plane */
  528. X         end =   start +(bits>>5);        /* end of enable plane */
  529. X
  530. X         while(start < end)
  531. X            *start++ = how;
  532. X      }
  533. X   }
  534. END_OF_FILE
  535. # end of 'demo/misc/overlayd.c'
  536. fi
  537. if test -f 'font-16/Ucmrb8' -a "${1}" != "-c" ; then 
  538.   echo shar: Will not clobber existing file \"'font-16/Ucmrb8'\"
  539. else
  540. echo shar: Extracting \"'font-16/Ucmrb8'\" \(3566 characters\)
  541. sed "s/^X//" >'font-16/Ucmrb8' <<'END_OF_FILE'
  542. Xbegin 644 cmrb8.fnt
  543. XM%@H0!8                 _S_AP'#_@                            
  544. XM        &                     ,                             
  545. XM                                                            
  546. XM                                       #_O\& ^!P?S_G\=P^'^_X
  547. XM<!P_X<!P  V  =P   /@<          #\   !P  ;'\<P<!P!@P         
  548. XM#!P' \#P!@_!X?P^!P        #X  </X'S\/\_P^/^/@?/^^!C/>/C^'P_ 
  549. XM_'\_[_O>_[_G\/A@#X&   P #P  '@ !X #P!P#CP                   
  550. XM      !\&#X  _YS!@=P<'\=QS/^'#_/^' <..' <#X-@ '<   &,'      
  551. XM     _    </\&S?/\/@< P&          P^'P-AF X/@_'X<P^    &  8!
  552. XMW#@'!W#\=AS',?AW!P#AV' 8Q['<=SN'89Q_',<QC',<QG# 8 &!@  8  < 
  553. XM  X  [  < < X< \            &           X!@'!W/^< 8'<'!C'<.#
  554. XM=AP?[_AP'#CC -@<!P?P    !C!P          /    '#_!LVS^#L# 8 P& 
  555. XM       8-@<'<=P.# ?QF',=P   #  # =QL!P=PS'<<!P&8=P< X?!P'<>Q
  556. XMW'<[AW&,?QS',8P^#X#@P# !@\  '  '   .  .P '    ' '           
  557. XM !@          . 8!P_C_A@&!W!P8QW#@W8^/\_X<!PXX           '\]X
  558. XM   #       #P   !P_S_O@_@[!@. .'X&      &'<'!W'<'@P' #!S'<' 
  559. XM<!@  8 8Q@<'<<QSG <#F'<' .'@<!W'\=QW.X=QP!P<P^'\/ ^ X, P 8?@
  560. XM !P_!\!\/@\/X'Q^#P'A_!P]S^!P_ _'X?C_/\_[G/^_Y_#@& <-P_XP!@?P
  561. XM^'\=P<!P?Q_O^' <..           !_-V    8       ^    <&8-CX'P/@
  562. XM #@#@\!@     #!W!P!P.#X/!\ P/AW!P' P/\# ,-\/AW' <Y\'PX!W!P#A
  563. XM\' =Q_'<=SN'8? <',/A_!P' <# & &-L   .X=@_&X=@X#<=P< X? <'^=P
  564. XMV'89P_,8.!W',YP^'<;@X!@'  /^_X8'\/A_'<' <'\_S_AP'#C@        
  565. XM   W;-@  #_@      /@   '!F#8? ,!P  X X_P8      P=P< 8'!N#8?@
  566. XM,!X=P   8   8'#W#X?AP'.?!\. ?P< X?!P'<;QW'X[A\#X'!S#X?P<!P' 
  567. XMP!@!@8    .'<<#N.<.!W'<' .'@'!_G<=QW.<.#@#@=QS.</ S X\ 8 \ #
  568. XM_C &!_#X8QW!@'!_'^_X<!PXX           -VW8   !@      #P   !P  
  569. XMV!X'P_@ . .#P_P '\  8'<' , 8;@''<' _#\   #   ,!P]P^',<!SGP?#
  570. XM_'<' .'P<!_&\=QP.X? /!P<P>'<' <!P, , 8&    /AW' [C_#@=QW!P#A
  571. XM\!P?YW'<=SG#@? X'</C_!P/@<#@& <  _X8'X=P^  =P8!P/C_/^' <..  
  572. XM         #=O>    P      !\       _X>!^;P #@#A^!@     &!W!P&!
  573. XMW/\!QW!P9P?    8/\& <-\/ASG,<YP' [AW!P#A^' ?QG'<<#N'X!P<','!
  574. XMW!X' X# # &!@   'X=QP.XX X'<=P< X? <'^=QW'<YPX#X.QW#X_P<!P' 
  575. XMX!@'  /^  \'<9QC'<, <!P?[_AP'#C@           W9C            ? 
  576. XM      &P_@_NX  8 P& 8!@  8# -@<#,=P.'<=P<&<9P   #  #  # &<<X
  577. XMS'<<!P&X=P<'X?AP'\9QW' _A^&,'!S!P=P^!P. P 8!@8   #O'<<#N. .!
  578. XMW'<' .'X'!SG<=QW.<.#'#L=P^/\'@,#@. 8!P #_@ &!W&<?QW#,' </\_X
  579. XM<!PXX           '\8P           'P   !P !L/X/[N  # 8  & \  / 
  580. XMP#X'!_&8#AV'X'!F'X' < 8 !@!P9AG'./AV',<!^'<'!^'<<QC&,=QP/X=Y
  581. XMW!P/@<&,9P<',, & 8&    [QV#L;AS#@-QW!P#A^!P<YW#8=AG#@XP['<'#
  582. XM_#<& [#@& <  _X !@/C_G\_Y_#X/A_O^' <..           !_#X       
  583. XM    !_    <  ;!\&<;P  8,    /  #P8 <'\?P\!\/ \!P/ \!P'      
  584. XM<#P_[_!P_#_/@/C_CX/#_O\][S#X^!_/N?@^!P'!C/^/A_#X P^!@_X '\? 
  585. XM>#\/A\!\_X^ X_X^/^_X<'P/Q\/X'@_@PYS_A@?P?!@^  /^            
  586. XM   _S_AP'#C@                                    &  #F       
  587. XM !P  8                     P                                
  588. XM   #P                     /^            '    .        !P <  
  589. XM          8        #_@              '^_X<!PXX               
  590. XM    !_                             8                        
  591. XM8                                                           
  592. XM             =P   ?@        < '            <         _X     
  593. XM         #_/^' </^                                          
  594. XM        ,                                                   
  595. XM                                              #X   'P       
  596. XM /@#P           '         /^               ?[_AP'#_@        
  597. XM                                                            
  598. XM                                                            
  599. XM                                                           #
  600. X!_@  
  601. X 
  602. Xend
  603. END_OF_FILE
  604. # end of 'font-16/Ucmrb8'
  605. fi
  606. if test -f 'font-16/Ucour9x16bu' -a "${1}" != "-c" ; then 
  607.   echo shar: Will not clobber existing file \"'font-16/Ucour9x16bu'\"
  608. else
  609. echo shar: Extracting \"'font-16/Ucour9x16bu'\" \(3393 characters\)
  610. sed "s/^X//" >'font-16/Ucour9x16bu' <<'END_OF_FILE'
  611. Xbegin 644 cour9x16bu.fnt
  612. XM%@D0!88              'X_AP.                                 
  613. XM                                                            
  614. XM                                                            
  615. XM                                ' X' X'     /S^' X          
  616. XM       X' X' X'  /P      ,     &&         ,                 
  617. XM                                               'Q@'P        
  618. XM                                   !P,'  <             <#@<#
  619. XM@<    !^/X<#@                #@<#@<#@< !^   P8!P# P,    
  620. XM    !@P&#X/ 8?@X_CX?    , & ?!X                             
  621. XM          8# #   !@ '   <  X ' & 8X#P          !@         , 
  622. XMP& !(            !P.!P.!P    #\_AP.                 .!P.!P.!
  623. XMP #\  8-AL/RQ-@,& 8"       &$@X8QF#A@,#&8S&   !@ ,#&,QP?@^?C
  624. XM_?X^>Y^/[S>X\?P\?A^?_O>_'>[W?Q@, ,#  &  ,   P &0 , 8!A@# 
  625. XM          &          P# 8,4@            ' X' X'     ?C^' X  
  626. XM               X' X' X'  ?@ !@V&QC),P!@8!@(!@     PS%AC 8>& 
  627. XM@ 9C,8   ,  8,9A! S&8S&$PF8S!@&&(P,(A&8QF8S,9,L8Q)(Q&)#& 8 P
  628. XM>  ,  P  #  8  P   & ,           8         # ,!AK<          
  629. XM   <#@<#@<     _/X<#@                #@<#@<#@<  _  _F UC 
  630. XM,# #&L&     ##,& ,!C88& #&,Q@P&!@  P!F<.#,PC&8# PC,& 89# QC$
  631. XMQC&QC,P@PQC$DAH8@88!@##,  8/#X.A\/'X.SX>#X9@QMFX/&X.V\?GX[GO
  632. XMQW.[W\, P&$9(            !P.!P.!P    'X_AP.                 
  633. XM.!P.!P.!P 'X  8 !L.!L&  , ,/@8     8,P8!@\9A\?@,/C&# 8,#^!@,
  634. XM:0H,S ,9D,C ,P8!AH,#F.3&,;&,QP##&&BZ&@T#!@# ,    !F,QF,QF&!F
  635. XM,P8!AL##;,QF,QF.;&&!F,22,Q&1@@# ( $@            ' X' X'     
  636. XM/S^' X                 X' X' X'  /P !@ &P.!@M@ P P</\ /X !@S
  637. XM!@, 9& 9C!AC'X  !@  #!AI&P^, QGP^, _!@&'@P.H],8_,8^!P,,8:.X,
  638. XM#08& , P     8QL)C,88,8S!@&'@,-LS,,QL8P, 8&8S-8>&8,,   8    
  639. XM           <#@<#@<    !^/X<#@                #@<#@<#@< !^   
  640. XM  _@,-F< # ##8&     ,#,&!@!G\!F,&&,!@  # _@8,&81#,P#&9#(SS,&
  641. XM&8;# VB\QC QC8!@PQAH;!8&# 8 8#     ?C&P&,_!@QC,& 8> PVS,PS&Q
  642. XMC ?!@9AH_@P+!@( P"  #            !P.!P.!P    #\_AP.         
  643. XM        .!P.!P.!P #\    !L8QK8@ , ,(@8     P,P8,#&!C&8PP8P$ 
  644. XM  &  #  8#^,;",9@,#&,P89AL,32)S&,#&,R&##&#!$%@881@!@,    #&,
  645. XM; 8S &#&,P8!AL##;,S#,;&, &&!F'AL'@\, P# 8  2            ' X'
  646. XM X'     ?C^' X                 X' X' X'  ?@ !@ &QC,EF  8!@ !
  647. XM@,  ,& 2!AC,8&,9C#!C P,!@,  8  S,(QF8S&$P&8S!AF&8Q,(C,PP,PS,
  648. XMX,,8,$0C!AC& # P    ,8S&(S&,8&8S!@&&8,-LS&8S&8P,89&8,$0S!AC#
  649. XM ,!@ !(            <#@<#@<     _/X<#@                #@<#@<#
  650. XM@<  _  &  ;'XC3V !@&    P  P8 P?G\? \?#X,#X< P& 8 # ,!YYW\/'
  651. XMX_W@/'N?CP]W]YW$>'@>'N_!X? P1'>/'\8 ,#     >VX/!V/GX/G.?@8YS
  652. XM\VW./#X/G@_ X.PP1'.&'\, P&  $@          ?[_?[_?[_?[_?___[_?[
  653. XM_?[_?[_?[_?[_?[_?[_?[_?[_?__ #_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[
  654. XM_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[
  655. XM_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[
  656. XM_   ' X' X'     /S^' X                 X' X' X'  /P      ,  
  657. XM   &&    (                     !                            
  658. XM    %@             'P 'P              P   ,        P 8      
  659. XM    #  !P,'   P            <#@<#@<    !^/X<#@               
  660. XM #@<#@<#@< !^                  !                      (     
  661. XM                           #@                               
  662. XM>   '@       '@#P          ^                     !P.!P.!P   
  663. XM #\_AP.                 .!P.!P.!P #\                        
  664. XM                                                            
  665. XM                                                            
  666. X(            
  667. X 
  668. Xend
  669. END_OF_FILE
  670. # end of 'font-16/Ucour9x16bu'
  671. fi
  672. if test -f 'font-32/Ucmrb8' -a "${1}" != "-c" ; then 
  673.   echo shar: Will not clobber existing file \"'font-32/Ucmrb8'\"
  674. else
  675. echo shar: Extracting \"'font-32/Ucmrb8'\" \(3566 characters\)
  676. sed "s/^X//" >'font-32/Ucmrb8' <<'END_OF_FILE'
  677. Xbegin 644 cmrb8.fnt
  678. XM& H0!8                 _S_AP'#_@                            
  679. XM        &                     ,                             
  680. XM                                                            
  681. XM                                       #_O\& ^!P?S_G\=P^'^_X
  682. XM<!P_X<!P  V  =P   /@<          #\   !P  ;'\<P<!P!@P         
  683. XM#!P' \#P!@_!X?P^!P        #X  </X'S\/\_P^/^/@?/^^!C/>/C^'P_ 
  684. XM_'\_[_O>_[_G\/A@#X&   P #P  '@ !X #P!P#CP                   
  685. XM      !\&#X  _YS!@=P<'\=QS/^'#_/^' <..' <#X-@ '<   &,'      
  686. XM     _    </\&S?/\/@< P&          P^'P-AF X/@_'X<P^    &  8!
  687. XMW#@'!W#\=AS',?AW!P#AV' 8Q['<=SN'89Q_',<QC',<QG# 8 &!@  8  < 
  688. XM  X  [  < < X< \            &           X!@'!W/^< 8'<'!C'<.#
  689. XM=AP?[_AP'#CC -@<!P?P    !C!P          /    '#_!LVS^#L# 8 P& 
  690. XM       8-@<'<=P.# ?QF',=P   #  # =QL!P=PS'<<!P&8=P< X?!P'<>Q
  691. XMW'<[AW&,?QS',8P^#X#@P# !@\  '  '   .  .P '    ' '           
  692. XM !@          . 8!P_C_A@&!W!P8QW#@W8^/\_X<!PXX           '\]X
  693. XM   #       #P   !P_S_O@_@[!@. .'X&      &'<'!W'<'@P' #!S'<' 
  694. XM<!@  8 8Q@<'<<QSG <#F'<' .'@<!W'\=QW.X=QP!P<P^'\/ ^ X, P 8?@
  695. XM !P_!\!\/@\/X'Q^#P'A_!P]S^!P_ _'X?C_/\_[G/^_Y_#@& <-P_XP!@?P
  696. XM^'\=P<!P?Q_O^' <..           !_-V    8       ^    <&8-CX'P/@
  697. XM #@#@\!@     #!W!P!P.#X/!\ P/AW!P' P/\# ,-\/AW' <Y\'PX!W!P#A
  698. XM\' =Q_'<=SN'8? <',/A_!P' <# & &-L   .X=@_&X=@X#<=P< X? <'^=P
  699. XMV'89P_,8.!W',YP^'<;@X!@'  /^_X8'\/A_'<' <'\_S_AP'#C@        
  700. XM   W;-@  #_@      /@   '!F#8? ,!P  X X_P8      P=P< 8'!N#8?@
  701. XM,!X=P   8   8'#W#X?AP'.?!\. ?P< X?!P'<;QW'X[A\#X'!S#X?P<!P' 
  702. XMP!@!@8    .'<<#N.<.!W'<' .'@'!_G<=QW.<.#@#@=QS.</ S X\ 8 \ #
  703. XM_C &!_#X8QW!@'!_'^_X<!PXX           -VW8   !@      #P   !P  
  704. XMV!X'P_@ . .#P_P '\  8'<' , 8;@''<' _#\   #   ,!P]P^',<!SGP?#
  705. XM_'<' .'P<!_&\=QP.X? /!P<P>'<' <!P, , 8&    /AW' [C_#@=QW!P#A
  706. XM\!P?YW'<=SG#@? X'</C_!P/@<#@& <  _X8'X=P^  =P8!P/C_/^' <..  
  707. XM         #=O>    P      !\       _X>!^;P #@#A^!@     &!W!P&!
  708. XMW/\!QW!P9P?    8/\& <-\/ASG,<YP' [AW!P#A^' ?QG'<<#N'X!P<','!
  709. XMW!X' X# # &!@   'X=QP.XX X'<=P< X? <'^=QW'<YPX#X.QW#X_P<!P' 
  710. XMX!@'  /^  \'<9QC'<, <!P?[_AP'#C@           W9C            ? 
  711. XM      &P_@_NX  8 P& 8!@  8# -@<#,=P.'<=P<&<9P   #  #  # &<<X
  712. XMS'<<!P&X=P<'X?AP'\9QW' _A^&,'!S!P=P^!P. P 8!@8   #O'<<#N. .!
  713. XMW'<' .'X'!SG<=QW.<.#'#L=P^/\'@,#@. 8!P #_@ &!W&<?QW#,' </\_X
  714. XM<!PXX           '\8P           'P   !P !L/X/[N  # 8  & \  / 
  715. XMP#X'!_&8#AV'X'!F'X' < 8 !@!P9AG'./AV',<!^'<'!^'<<QC&,=QP/X=Y
  716. XMW!P/@<&,9P<',, & 8&    [QV#L;AS#@-QW!P#A^!P<YW#8=AG#@XP['<'#
  717. XM_#<& [#@& <  _X !@/C_G\_Y_#X/A_O^' <..           !_#X       
  718. XM    !_    <  ;!\&<;P  8,    /  #P8 <'\?P\!\/ \!P/ \!P'      
  719. XM<#P_[_!P_#_/@/C_CX/#_O\][S#X^!_/N?@^!P'!C/^/A_#X P^!@_X '\? 
  720. XM>#\/A\!\_X^ X_X^/^_X<'P/Q\/X'@_@PYS_A@?P?!@^  /^            
  721. XM   _S_AP'#C@                                    &  #F       
  722. XM !P  8                     P                                
  723. XM   #P                     /^            '    .        !P <  
  724. XM          8        #_@              '^_X<!PXX               
  725. XM    !_                             8                        
  726. XM8                                                           
  727. XM             =P   ?@        < '            <         _X     
  728. XM         #_/^' </^                                          
  729. XM        ,                                                   
  730. XM                                              #X   'P       
  731. XM /@#P           '         /^               ?[_AP'#_@        
  732. XM                                                            
  733. XM                                                            
  734. XM                                                           #
  735. X!_@  
  736. X 
  737. Xend
  738. END_OF_FILE
  739. # end of 'font-32/Ucmrb8'
  740. fi
  741. if test -f 'font-32/Ucour9x16bu' -a "${1}" != "-c" ; then 
  742.   echo shar: Will not clobber existing file \"'font-32/Ucour9x16bu'\"
  743. else
  744. echo shar: Extracting \"'font-32/Ucour9x16bu'\" \(3393 characters\)
  745. sed "s/^X//" >'font-32/Ucour9x16bu' <<'END_OF_FILE'
  746. Xbegin 644 cour9x16bu.fnt
  747. XM& D0!88              'X_AP.                                 
  748. XM                                                            
  749. XM                                                            
  750. XM                                ' X' X'     /S^' X          
  751. XM       X' X' X'  /P      ,     &&         ,                 
  752. XM                                               'Q@'P        
  753. XM                                   !P,'  <             <#@<#
  754. XM@<    !^/X<#@                #@<#@<#@< !^   P8!P# P,    
  755. XM    !@P&#X/ 8?@X_CX?    , & ?!X                             
  756. XM          8# #   !@ '   <  X ' & 8X#P          !@         , 
  757. XMP& !(            !P.!P.!P    #\_AP.                 .!P.!P.!
  758. XMP #\  8-AL/RQ-@,& 8"       &$@X8QF#A@,#&8S&   !@ ,#&,QP?@^?C
  759. XM_?X^>Y^/[S>X\?P\?A^?_O>_'>[W?Q@, ,#  &  ,   P &0 , 8!A@# 
  760. XM          &          P# 8,4@            ' X' X'     ?C^' X  
  761. XM               X' X' X'  ?@ !@V&QC),P!@8!@(!@     PS%AC 8>& 
  762. XM@ 9C,8   ,  8,9A! S&8S&$PF8S!@&&(P,(A&8QF8S,9,L8Q)(Q&)#& 8 P
  763. XM>  ,  P  #  8  P   & ,           8         # ,!AK<          
  764. XM   <#@<#@<     _/X<#@                #@<#@<#@<  _  _F UC 
  765. XM,# #&L&     ##,& ,!C88& #&,Q@P&!@  P!F<.#,PC&8# PC,& 89# QC$
  766. XMQC&QC,P@PQC$DAH8@88!@##,  8/#X.A\/'X.SX>#X9@QMFX/&X.V\?GX[GO
  767. XMQW.[W\, P&$9(            !P.!P.!P    'X_AP.                 
  768. XM.!P.!P.!P 'X  8 !L.!L&  , ,/@8     8,P8!@\9A\?@,/C&# 8,#^!@,
  769. XM:0H,S ,9D,C ,P8!AH,#F.3&,;&,QP##&&BZ&@T#!@# ,    !F,QF,QF&!F
  770. XM,P8!AL##;,QF,QF.;&&!F,22,Q&1@@# ( $@            ' X' X'     
  771. XM/S^' X                 X' X' X'  /P !@ &P.!@M@ P P</\ /X !@S
  772. XM!@, 9& 9C!AC'X  !@  #!AI&P^, QGP^, _!@&'@P.H],8_,8^!P,,8:.X,
  773. XM#08& , P     8QL)C,88,8S!@&'@,-LS,,QL8P, 8&8S-8>&8,,   8    
  774. XM           <#@<#@<    !^/X<#@                #@<#@<#@< !^   
  775. XM  _@,-F< # ##8&     ,#,&!@!G\!F,&&,!@  # _@8,&81#,P#&9#(SS,&
  776. XM&8;# VB\QC QC8!@PQAH;!8&# 8 8#     ?C&P&,_!@QC,& 8> PVS,PS&Q
  777. XMC ?!@9AH_@P+!@( P"  #            !P.!P.!P    #\_AP.         
  778. XM        .!P.!P.!P #\    !L8QK8@ , ,(@8     P,P8,#&!C&8PP8P$ 
  779. XM  &  #  8#^,;",9@,#&,P89AL,32)S&,#&,R&##&#!$%@881@!@,    #&,
  780. XM; 8S &#&,P8!AL##;,S#,;&, &&!F'AL'@\, P# 8  2            ' X'
  781. XM X'     ?C^' X                 X' X' X'  ?@ !@ &QC,EF  8!@ !
  782. XM@,  ,& 2!AC,8&,9C#!C P,!@,  8  S,(QF8S&$P&8S!AF&8Q,(C,PP,PS,
  783. XMX,,8,$0C!AC& # P    ,8S&(S&,8&8S!@&&8,-LS&8S&8P,89&8,$0S!AC#
  784. XM ,!@ !(            <#@<#@<     _/X<#@                #@<#@<#
  785. XM@<  _  &  ;'XC3V !@&    P  P8 P?G\? \?#X,#X< P& 8 # ,!YYW\/'
  786. XMX_W@/'N?CP]W]YW$>'@>'N_!X? P1'>/'\8 ,#     >VX/!V/GX/G.?@8YS
  787. XM\VW./#X/G@_ X.PP1'.&'\, P&  $@          ?[_?[_?[_?[_?___[_?[
  788. XM_?[_?[_?[_?[_?[_?[_?[_?[_?__ #_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[
  789. XM_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[
  790. XM_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[_?[
  791. XM_   ' X' X'     /S^' X                 X' X' X'  /P      ,  
  792. XM   &&    (                     !                            
  793. XM    %@             'P 'P              P   ,        P 8      
  794. XM    #  !P,'   P            <#@<#@<    !^/X<#@               
  795. XM #@<#@<#@< !^                  !                      (     
  796. XM                           #@                               
  797. XM>   '@       '@#P          ^                     !P.!P.!P   
  798. XM #\_AP.                 .!P.!P.!P #\                        
  799. XM                                                            
  800. XM                                                            
  801. X(            
  802. X 
  803. Xend
  804. END_OF_FILE
  805. # end of 'font-32/Ucour9x16bu'
  806. fi
  807. if test -f 'lib/dump.h' -a "${1}" != "-c" ; then 
  808.   echo shar: Will not clobber existing file \"'lib/dump.h'\"
  809. else
  810. echo shar: Extracting \"'lib/dump.h'\" \(3420 characters\)
  811. sed "s/^X//" >'lib/dump.h' <<'END_OF_FILE'
  812. X/*                        Copyright (c) 1987 Bellcore
  813. X *                            All Rights Reserved
  814. X *       Permission is granted to copy or use this program, EXCEPT that it
  815. X *       may not be sold for profit, the copyright notice must be reproduced
  816. X *       on copies, and credit should be given to Bellcore where it is due.
  817. X *       BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
  818. X */
  819. X/*    $Header: dump.h,v 4.2 88/07/20 15:16:24 sau Exp $
  820. X    $Source: /tmp/mgrsrc/lib/RCS/dump.h,v $
  821. X*/
  822. Xstatic char    h_dump_[] = "$Source: /tmp/mgrsrc/lib/RCS/dump.h,v $$Revision: 4.2 $";
  823. X/* format for saved bitmaps */
  824. X
  825. X#define B_HSIZE        (sizeof(struct b_header))
  826. X#define B_OHSIZE        (sizeof(struct old_b_header))
  827. X
  828. X#define NEW_BHDR    1    /* flag for bitmapwrite */
  829. X#define OLD_BHDR    0    /* " */
  830. X
  831. X/* given bitmap header, get w[idth] and h[eight] */
  832. X
  833. X#define B_GETOLDHDR(hdr,W,H) ( \
  834. X    W = ((int)((hdr)->h_wide - ' ') << 6) + (hdr)->l_wide - ' ', \
  835. X    H = ((int)((hdr)->h_high - ' ') << 6) + (hdr)->l_high - ' ')
  836. X
  837. X#define B_GETHDR8(hdr,W,H,D) ( \
  838. X    W = ((int)((hdr)->h_wide - ' ') << 6) + (hdr)->l_wide - ' ', \
  839. X    H = ((int)((hdr)->h_high - ' ') << 6) + (hdr)->l_high - ' ', \
  840. X    D = ((int)((hdr)->depth - ' ')))
  841. X
  842. X/* given w[idth] and h[eight], produce header */
  843. X
  844. X#define B_PUTOLDHDR(hdr,w,h) \
  845. X    (hdr)->magic[0]='z', (hdr)->magic[1]='z', \
  846. X    (hdr)->h_wide = (((w)>>6)&0x3f) + ' ', \
  847. X    (hdr)->l_wide = ((w)&0x3f) + ' ', \
  848. X    (hdr)->h_high = (((h)>>6)&0x3f) + ' ', \
  849. X    (hdr)->l_high = ((h)&0x3f) + ' '
  850. X#define B8_PUTOLDHDR(hdr,w,h) \
  851. X    (hdr)->magic[0]='z', (hdr)->magic[1]='y', \
  852. X    (hdr)->h_wide = (((w)>>6)&0x3f) + ' ', \
  853. X    (hdr)->l_wide = ((w)&0x3f) + ' ', \
  854. X    (hdr)->h_high = (((h)>>6)&0x3f) + ' ', \
  855. X    (hdr)->l_high = ((h)&0x3f) + ' '
  856. X
  857. X#define B_PUTHDR8(hdr,w,h,d) ( \
  858. X    (hdr)->magic[0]='y', (hdr)->magic[1]='z', \
  859. X    (hdr)->h_wide = (((w)>>6)&0x3f) + ' ', \
  860. X    (hdr)->l_wide = ((w)&0x3f) + ' ', \
  861. X    (hdr)->h_high = (((h)>>6)&0x3f) + ' ', \
  862. X    (hdr)->l_high = ((h)&0x3f) + ' ', \
  863. X    (hdr)->depth = ((d)&0x3f) + ' ', \
  864. X    (hdr)->_reserved = ' ' )
  865. X
  866. X
  867. X/*    Bitmap header magic numbers for 1-bit-deep bitmaps with
  868. X    8, 16, and 32 bit padding.
  869. X    16 and 32 bit padding are ancient history, but still acknowledged.
  870. X*/
  871. X#define B_ISHDR8(hdr)    ((hdr)->magic[0]=='y' && (hdr)->magic[1]=='z')
  872. X
  873. X#define B_ISHDR16(hdr) \
  874. X    ((hdr)->magic[0]=='z' && (hdr)->magic[1]=='z')
  875. X#define B_ISHDR32(hdr) \
  876. X    ((hdr)->magic[0]=='x' && (hdr)->magic[1]=='z')
  877. X
  878. X#ifdef ALIGN32
  879. X#define B_ISHDR(hdr)    B_ISHDR32(hdr)
  880. X#define B8_ISHDR(hdr) \
  881. X    ((hdr)->magic[0]=='x' && (hdr)->magic[1]=='y')
  882. X#else
  883. X#define B_ISHDR(hdr)    B_ISHDR16(hdr)
  884. X#define B8_ISHDR(hdr) \
  885. X    ((hdr)->magic[0]=='z' && (hdr)->magic[1]=='y')
  886. X#endif
  887. X
  888. X/*
  889. X    #ifdef COLOR
  890. X    #define B_ISANY(hdr) \
  891. X        (B_ISHDR(hdr) || B8_ISHDR(hdr))
  892. X    #else
  893. X    #define B_ISANY(hdr)    B_ISHDR(hdr)
  894. X    #endif
  895. X*/
  896. X
  897. X/* number of bytes of data for bitmap */
  898. X
  899. X#define B_SIZE8(w,h,d)    ((h)*((((w*d)+7L)&~7L)>>3))
  900. X#define B_SIZE16(w,h,d)    ((h)*((((w*d)+15L)&~15L)>>3))
  901. X#define B_SIZE32(w,h,d)    ((h)*((((w*d)+31L)&~31L)>>3))
  902. X#define B_SIZE(w,h)    ((h)*((((w)+BITS)&~BITS)>>3))
  903. X#define B8_SIZE(w,h)    ((h)*(w))
  904. X
  905. Xstruct old_b_header {
  906. X   char magic[2];
  907. X   char h_wide;
  908. X   char l_wide;
  909. X   char h_high;
  910. X   char l_high;
  911. X   };
  912. X
  913. Xstruct b_header {
  914. X   char magic[2];
  915. X   char h_wide;
  916. X   char l_wide;
  917. X   char h_high;
  918. X   char l_high;
  919. X   char depth;
  920. X   char _reserved;    /* to pad b_header out to 8 bytes, which should be an
  921. X            exact alignment on any machine we are likely to
  922. X            encounter */
  923. X   };
  924. END_OF_FILE
  925. # end of 'lib/dump.h'
  926. fi
  927. if test -f 'misc/tjfilter.c' -a "${1}" != "-c" ; then 
  928.   echo shar: Will not clobber existing file \"'misc/tjfilter.c'\"
  929. else
  930. echo shar: Extracting \"'misc/tjfilter.c'\" \(3520 characters\)
  931. sed "s/^X//" >'misc/tjfilter.c' <<'END_OF_FILE'
  932. X/*                        Copyright (c) 1988 Bellcore
  933. X *                            All Rights Reserved
  934. X *       Permission is granted to copy or use this program, EXCEPT that it
  935. X *       may not be sold for profit, the copyright notice must be reproduced
  936. X *       on copies, and credit should be given to Bellcore where it is due.
  937. X *       BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
  938. X */
  939. X/* graphics print filter for hp think jet printer (mgr format) */
  940. X/* version 2 - eliminate trailing white space */
  941. X/* version 3 - rotate fat pictures */
  942. X
  943. X/*    $Header: tjfilter.c,v 1.3 88/08/24 10:36:59 bianchi Exp $
  944. X    $Source: /tmp/mgrsrc/misc/RCS/tjfilter.c,v $
  945. X*/
  946. Xstatic char    RCSid_[] = "$Source: /tmp/mgrsrc/misc/RCS/tjfilter.c,v $$Revision: 1.3 $";
  947. X
  948. X#include <stdio.h>
  949. X#include "dump.h"
  950. X#include <sgtty.h>
  951. X
  952. X#define MAX    640        /* maximum dots per line */
  953. X#define START    "\033*rA"    /* start graphics */
  954. X#define COUNT    "\033*b%dW"    /* bytes on this line */
  955. X#define END    "\033*rB\n"    /* end graphics */
  956. X#define LOW    "\033*640S"    /* low density print mode */
  957. X
  958. Xchar buff[MAX];
  959. X
  960. Xmain(argc,argv)
  961. Xint argc;
  962. Xchar **argv;
  963. X   {
  964. X   register int byteno;                /* byte number */
  965. X   register char *pntr;
  966. X   int mode;                    /* tty local modes */
  967. X   int reverse = 0;                /* reverse bits */
  968. X   int rotate = 0;                /* rotate bitmap */
  969. X   int w,h,d;                    /* bitmap size */
  970. X   int bytes;                    /* bytes/line of bitmap */
  971. X   int lastbyte;                /* last significant byte */
  972. X   unsigned char mask;                /* to mask last byte */
  973. X   char mask1;                    /* to mask last byte */
  974. X   int speed=0;                    /* set speed to 9600 baud */
  975. X   int clean();
  976. X   char *sprintf();
  977. X   FILE *input, *popen();            /* for rotate filter */
  978. X
  979. X   if (argc>1 && strcmp(argv[1],"-r")==0)
  980. X      reverse++;
  981. X   else if (argc>1 && strcmp(argv[1],"-s")==0)
  982. X      speed++;
  983. X
  984. X   if (argc>2 && strcmp(argv[2],"-r")==0)
  985. X      reverse++;
  986. X   else if (argc>2 && strcmp(argv[2],"-s")==0)
  987. X      speed++;
  988. X
  989. X   if (!bitmaphead( stdin, &w, &h, &d, &bytes )) {
  990. X      fprintf(stderr,"%s: invalid bitmap format \n",*argv);
  991. X      exit(2);
  992. X      }
  993. X
  994. X   /* rotate bitmap, if short and fat */
  995. X
  996. X   if (w>MAX && h<MAX && 
  997. X            (input = popen(sprintf(buff,"rotate -w %d -h %d",w,h),"r"))) {
  998. X      rotate++;
  999. X      if (!bitmaphead( stdin, &w, &h, &d, &bytes )) {
  1000. X         fprintf(stderr,"%s: invalid bitmap format \n",*argv);
  1001. X         exit(2);
  1002. X         }
  1003. X      }
  1004. X   else
  1005. X      input = stdin;
  1006. X      
  1007. X
  1008. X   mask = w%8 ? 0xff >> (w%8) : 0;
  1009. X   mask1 = ~(mask & 0xff);
  1010. X   lastbyte = w/8;
  1011. X
  1012. X   /* set up the printer */
  1013. X
  1014. X   ioctl(1,TIOCLGET,&mode);
  1015. X   mode |= LLITOUT;
  1016. X   ioctl(1,TIOCLSET,&mode);
  1017. X   if (speed)
  1018. X      set_speed(1,B9600);
  1019. X
  1020. X   printf(LOW);
  1021. X   printf(START);
  1022. X
  1023. X   while (fread(buff,bytes,1,input) > 0)  {
  1024. X      if (reverse)
  1025. X         invert(buff,bytes);
  1026. X      buff[lastbyte] &= mask1;
  1027. X      for(byteno=lastbyte, pntr=buff+byteno; byteno>=0; byteno--)
  1028. X         if (*pntr--)
  1029. X            break;
  1030. X      printf(COUNT,byteno+1);
  1031. X      fwrite(buff,byteno+1,1,stdout);
  1032. X      }
  1033. X
  1034. X   printf(END);
  1035. X   mode &= ~LLITOUT;
  1036. X   /* ioctl(1,TIOCLSET,&mode); */
  1037. X   if (rotate)
  1038. X      pclose(input);
  1039. X   exit(0);
  1040. X   }
  1041. X
  1042. X/* invert each bit */
  1043. X
  1044. Xinvert(data,count)
  1045. Xregister unsigned char *data;
  1046. Xint count;
  1047. X   {
  1048. X   register unsigned char *end = data + count;
  1049. X
  1050. X   while(data < end)
  1051. X      *data++ = ~*data;
  1052. X   }
  1053. X
  1054. X
  1055. X/*
  1056. X *    Set the terminal speed 
  1057. X */
  1058. X
  1059. Xset_speed(file,speed)
  1060. Xint file;        /* file pointer */
  1061. Xint speed;
  1062. X{
  1063. X    struct sgttyb buff;
  1064. X
  1065. X    gtty(file,&buff);
  1066. X    buff.sg_ospeed  = speed;
  1067. X    buff.sg_ispeed  = speed;
  1068. X    stty(file,&buff);
  1069. X        return(0);
  1070. X}
  1071. END_OF_FILE
  1072. # end of 'misc/tjfilter.c'
  1073. fi
  1074. if test -f 'src/blit/bitmap.h' -a "${1}" != "-c" ; then 
  1075.   echo shar: Will not clobber existing file \"'src/blit/bitmap.h'\"
  1076. else
  1077. echo shar: Extracting \"'src/blit/bitmap.h'\" \(3558 characters\)
  1078. sed "s/^X//" >'src/blit/bitmap.h' <<'END_OF_FILE'
  1079. X/*                        Copyright (c) 1987 Bellcore
  1080. X *                            All Rights Reserved
  1081. X *       Permission is granted to copy or use this program, EXCEPT that it
  1082. X *       may not be sold for profit, the copyright notice must be reproduced
  1083. X *       on copies, and credit should be given to Bellcore where it is due.
  1084. X *       BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
  1085. X */
  1086. X/*    $Header: bitmap.h,v 4.2 88/07/19 14:17:18 sau Exp $
  1087. X    $Source: /tmp/mgrsrc/src/blit/RCS/bitmap.h,v $
  1088. X*/
  1089. Xstatic char    h_bitmap_[] = "$Source: /tmp/mgrsrc/src/blit/RCS/bitmap.h,v $$Revision: 4.2 $";
  1090. X
  1091. X/* header file for SUN bitmap operations */
  1092. X
  1093. X#ifndef Min
  1094. X#define Min(x,y)    ((x)>(y)?y:x)
  1095. X#endif
  1096. X
  1097. Xtypedef int *DATA;
  1098. X
  1099. X#define bit_blit(dest,dx,dy,width,height,func,source,sx,sy)  \
  1100. X    mem_rop(dest,dx,dy,width,height,func,source,sx,sy) 
  1101. X
  1102. X#define bit_static(name,wide,high,data,n)    \
  1103. X    BITMAP name = {(DATA) data, &name, 0, 0, wide, high, _STATIC};
  1104. X#define NULL_DATA    ((DATA) 0)
  1105. X
  1106. X#define BIT_NULL    ((BITMAP *) 0)
  1107. X
  1108. X#define IS_SCREEN(x)    ((x)->type==_SCREEN)
  1109. X#define IS_MEMORY(x)    ((x)->type==_MEMORY)
  1110. X#define IS_PRIMARY(x)    ((x)->primary == (x))
  1111. X
  1112. X/*
  1113. X * OPCODE(expr), where expr is boolean expression involving SRC and DST,
  1114. X * is one of sixteen numbers encoding a rasterop opcode.
  1115. X */
  1116. X
  1117. X#define            DST     0xA    /* 1010 */ /* same as f_dest */
  1118. X#define            SRC    0xC    /* 1100 */ /* same as f_source */
  1119. X#define OPCODE(expr)    (0xF&(expr))
  1120. X
  1121. X/* names for common bitblit functions */
  1122. X
  1123. X#ifndef BIT_NOT
  1124. X#   define BIT_NOT(x)    (~(x))
  1125. X#endif
  1126. X#define BIT_SRC        SRC
  1127. X#define BIT_DST        DST
  1128. X#define BIT_SET        (BIT_SRC|BIT_NOT(BIT_SRC))
  1129. X#define BIT_CLR        (BIT_SRC&BIT_NOT(BIT_SRC))
  1130. X#define BIT_XOR        (BIT_SRC^BIT_DST)
  1131. X#define BIT_INVERT    (BIT_NOT(DST))
  1132. X#define GET_OP(x)    ((x)&0xf)
  1133. X
  1134. X/* change rop function for white-on-black */
  1135. X
  1136. X#define ROP_INVERT(x)    GET_OP(rev_ops[0xf&(x)])
  1137. X
  1138. X/* bitmap types */
  1139. X
  1140. X#define _SCREEN        1        /* frame buffer */
  1141. X#define _MEMORY        2        /* malloc'd space */
  1142. X#define _STATIC        3        /* don't free space at destroy time */
  1143. X
  1144. X/* member access macros */
  1145. X
  1146. X#define BIT_X(x)    x->x0
  1147. X#define BIT_Y(x)    x->y0
  1148. X#define BIT_DATA(x)    x->data
  1149. X#define BIT_WIDE(x)    x->wide
  1150. X#define BIT_HIGH(x)    x->high
  1151. X#define BIT_DEPTH(x)    1        /* no color support for now */
  1152. X
  1153. X
  1154. X/* bit mask for bitmap data padding */
  1155. X
  1156. X#define BITS    31L
  1157. X
  1158. X/* BIT_SIZE(map) == the number of chars needed to store the data of the bitmap.
  1159. X   Usually used with malloc(3).
  1160. X*/
  1161. X
  1162. X#define BIT_SIZE(m)     BIT_Size(BIT_WIDE(m), BIT_HIGH(m), BIT_DEPTH(m)) /* bytes */
  1163. X
  1164. X/* BIT_Size(wide,high,depth) = the number of chars needed to store the data of a
  1165. X   bitmap of the given number of bits wide high and deep.
  1166. X       Typical usage:
  1167. X        char    bitbuffer[ Bit_Size(16,16,1) ];
  1168. X*/
  1169. X
  1170. X#define BIT_Size(wide,high,d)     ((d)*((wide+BITS)&~BITS)*high>>3) /* bytes */
  1171. X
  1172. X#define BIT_LINE(x)     ((x->primary->wide+BITS)&~BITS) /* lng aligned (bits)*/
  1173. X
  1174. X/* structure and type definitions */
  1175. X
  1176. Xtypedef struct bitmap {
  1177. X   DATA    data;        /* bitmap data */
  1178. X   struct bitmap    *primary;    /* pointer to primary bitmap */
  1179. X   short        x0, y0;        /* starting coordinates, in bits.
  1180. X                                0, 0  ==  upper left corner of screen */
  1181. X   short        wide, high;    /* bitmap size, in bits */
  1182. X   unsigned short    type;        /* bitmap type */
  1183. X   } BITMAP;
  1184. X
  1185. X/* function declarations */
  1186. X
  1187. Xint mem_rop();
  1188. Xint bit_destroy();
  1189. Xint bit_line();
  1190. XBITMAP * bit_create();
  1191. XBITMAP * bit_alloc();
  1192. XBITMAP * bit_open();
  1193. X
  1194. X/* for non existant color support */
  1195. X
  1196. X#define DEPTH                1            /* bits per pixel */
  1197. X#define NOCOLOR         0xF
  1198. X#define GETCOLOR(x)     0
  1199. X#define PUTCOLOR(x)     0
  1200. X
  1201. X/* other */
  1202. X
  1203. X#define Bprintf(x)    /* gone */
  1204. END_OF_FILE
  1205. # end of 'src/blit/bitmap.h'
  1206. fi
  1207. if test -f 'src/oblit/bitmap.h' -a "${1}" != "-c" ; then 
  1208.   echo shar: Will not clobber existing file \"'src/oblit/bitmap.h'\"
  1209. else
  1210. echo shar: Extracting \"'src/oblit/bitmap.h'\" \(3547 characters\)
  1211. sed "s/^X//" >'src/oblit/bitmap.h' <<'END_OF_FILE'
  1212. X/*                        Copyright (c) 1987 Bellcore
  1213. X *                            All Rights Reserved
  1214. X *       Permission is granted to copy or use this program, EXCEPT that it
  1215. X *       may not be sold for profit, the copyright notice must be reproduced
  1216. X *       on copies, and credit should be given to Bellcore where it is due.
  1217. X *       BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
  1218. X */
  1219. X/*    $Header: bitmap.h,v 4.2 88/07/19 14:19:23 sau Exp $
  1220. X    $Source: /tmp/mgrsrc/src/oblit/RCS/bitmap.h,v $
  1221. X*/
  1222. Xstatic char    h_bitmap_[] = "$Source: /tmp/mgrsrc/src/oblit/RCS/bitmap.h,v $$Revision: 4.2 $";
  1223. X
  1224. X/* header file for SUN bitmap operations */
  1225. X
  1226. X#ifndef Min
  1227. X#define Min(x,y)    ((x)>(y)?y:x)
  1228. X#endif
  1229. X
  1230. Xtypedef unsigned short *DATA;
  1231. X
  1232. X#define bit_blit(dest,dx,dy,width,height,func,source,sx,sy)  \
  1233. X    mem_rop(dest,dx,dy,width,height,func,source,sx,sy) 
  1234. X
  1235. X#define bit_static(name,wide,high,data,n)    \
  1236. X    BITMAP name = {(DATA) data, &name, 0, 0, wide, high, _STATIC};
  1237. X#define NULL_DATA    ((DATA) 0)
  1238. X
  1239. X#define BIT_NULL    ((BITMAP *) 0)
  1240. X
  1241. X#define IS_SCREEN(x)    ((x)->type==_SCREEN)
  1242. X#define IS_MEMORY(x)    ((x)->type==_MEMORY)
  1243. X#define IS_PRIMARY(x)    ((x)->primary == (x))
  1244. X
  1245. X/*
  1246. X * OPCODE(expr), where expr is boolean expression involving SRC and DST,
  1247. X * is one of sixteen numbers encoding a rasterop opcode.
  1248. X */
  1249. X
  1250. X#define            DST     0xA    /* 1010 */ /* same as f_dest */
  1251. X#define            SRC    0xC    /* 1100 */ /* same as f_source */
  1252. X#define OPCODE(expr)    (0xF&(expr))
  1253. X
  1254. X/* names for common bitblit functions */
  1255. X
  1256. X#ifndef BIT_NOT
  1257. X#   define BIT_NOT(x)    (~(x))
  1258. X#endif
  1259. X#define BIT_SRC        SRC
  1260. X#define BIT_DST        DST
  1261. X#define BIT_SET        (BIT_SRC|BIT_NOT(BIT_SRC))
  1262. X#define BIT_CLR        (BIT_SRC&BIT_NOT(BIT_SRC))
  1263. X#define BIT_XOR        (BIT_SRC^BIT_DST)
  1264. X#define BIT_INVERT    (BIT_NOT(DST))
  1265. X#define GET_OP(x)    ((x)&0xf)
  1266. X
  1267. X/* change rop function for white-on-black */
  1268. X
  1269. X#define ROP_INVERT(x)    GET_OP(rev_ops[0xf&(x)])
  1270. X
  1271. X/* bitmap types */
  1272. X
  1273. X#define _SCREEN        1        /* frame buffer */
  1274. X#define _MEMORY        2        /* malloc'd space */
  1275. X#define _STATIC        3        /* don't free space at destroy time */
  1276. X
  1277. X/* member access macros */
  1278. X
  1279. X#define BIT_X(x)    x->x0
  1280. X#define BIT_Y(x)    x->y0
  1281. X#define BIT_DATA(x)    x->data
  1282. X#define BIT_WIDE(x)    x->wide
  1283. X#define BIT_HIGH(x)    x->high
  1284. X#define BIT_DEPTH(x)    1        /* no color support for now */
  1285. X
  1286. X
  1287. X/* bit mask for bitmap data padding */
  1288. X
  1289. X#define BITS    15L
  1290. X
  1291. X/* BIT_SIZE(map) == the number of chars needed to store the data of the bitmap.
  1292. X   Usually used with malloc(3).
  1293. X*/
  1294. X
  1295. X#define BIT_SIZE(m)     BIT_Size(BIT_WIDE(m), BIT_HIGH(m), BIT_DEPTH(m)) /* bytes */
  1296. X
  1297. X/* BIT_Size(wide,high,depth) = the number of chars needed to store the data of a
  1298. X   bitmap of the given number of bits wide high and deep.
  1299. X       Typical usage:
  1300. X        char    bitbuffer[ Bit_Size(16,16,1) ];
  1301. X*/
  1302. X
  1303. X#define BIT_Size(wide,high,d)     ((d)*((wide+BITS)&~BITS)*high>>3) /* bytes */
  1304. X
  1305. X#define BIT_LINE(x)    ((x->primary->wide+BITS)>>4) /* short aligned (shorts) */
  1306. X
  1307. X/* structure and type definitions */
  1308. X
  1309. Xtypedef struct bitmap {
  1310. X   DATA    data;        /* bitmap data */
  1311. X   struct bitmap    *primary;    /* pointer to primary bitmap */
  1312. X   short        x0, y0;        /* starting coordinates, in bits.
  1313. X                    0, 0  ==  upper left corner */
  1314. X   short        wide, high;    /* bitmap size, in bits */
  1315. X   unsigned short    type;        /* bitmap type */
  1316. X   } BITMAP;
  1317. X
  1318. X/* function declarations */
  1319. X
  1320. Xint mem_rop();
  1321. Xint bit_destroy();
  1322. Xint bit_line();
  1323. XBITMAP * bit_create();
  1324. XBITMAP * bit_alloc();
  1325. XBITMAP * bit_open();
  1326. X
  1327. X/* for non existant color support */
  1328. X
  1329. X#define DEPTH                1            /* bits per pixel */
  1330. X#define NOCOLOR         0xF
  1331. X#define GETCOLOR(x)     0
  1332. X#define PUTCOLOR(x)     0
  1333. X
  1334. X/* other */
  1335. X
  1336. X#define Bprintf(x)    /* gone */
  1337. END_OF_FILE
  1338. # end of 'src/oblit/bitmap.h'
  1339. fi
  1340. if test -f 'src/shape.c' -a "${1}" != "-c" ; then 
  1341.   echo shar: Will not clobber existing file \"'src/shape.c'\"
  1342. else
  1343. echo shar: Extracting \"'src/shape.c'\" \(3509 characters\)
  1344. sed "s/^X//" >'src/shape.c' <<'END_OF_FILE'
  1345. X/*                        Copyright (c) 1987 Bellcore
  1346. X *                            All Rights Reserved
  1347. X *       Permission is granted to copy or use this program, EXCEPT that it
  1348. X *       may not be sold for profit, the copyright notice must be reproduced
  1349. X *       on copies, and credit should be given to Bellcore where it is due.
  1350. X *       BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
  1351. X */
  1352. X/*    $Header: shape.c,v 4.1 88/06/21 13:34:38 bianchi Exp $
  1353. X    $Source: /tmp/mgrsrc/src/RCS/shape.c,v $
  1354. X*/
  1355. Xstatic char    RCSid_[] = "$Source: /tmp/mgrsrc/src/RCS/shape.c,v $$Revision: 4.1 $";
  1356. X
  1357. X/* re-shape a window */
  1358. X
  1359. X#include "bitmap.h"
  1360. X#include <stdio.h>     /* temporary */
  1361. X#include "defs.h"
  1362. X#include "font.h"
  1363. X#include "event.h"
  1364. X
  1365. X#define FSIZE(c)    ((int) (ACTIVE(font)->head.c))
  1366. X
  1367. X/* reshape a window with the mouse */
  1368. X
  1369. Xint shape_window()
  1370. X   {
  1371. X   int dx=16 ,dy=16 ;
  1372. X
  1373. X   SETMOUSEICON(&mouse_box);
  1374. X   move_mouse(screen,mouse,&mousex,&mousey,0);
  1375. X   SETMOUSEICON(&mouse_arrow);
  1376. X   get_rect(screen,mouse,mousex,mousey,&dx,&dy,0);
  1377. X   do_button(0);
  1378. X
  1379. X   /* look for shape event here */
  1380. X
  1381. X   do_event(EVENT_SHAPE,active,E_MAIN);
  1382. X
  1383. X   return(shape(mousex,mousey,dx,dy));
  1384. X   }
  1385. X
  1386. X/* reshape a window to specified dimentions */
  1387. X
  1388. Xint
  1389. Xshape(x,y,dx,dy)
  1390. Xint x,y,dx,dy;
  1391. X   {
  1392. X   int sx,sy,w,h;
  1393. X   register WINDOW *win;
  1394. X   register int i;
  1395. X
  1396. X   if (dx>0) {
  1397. X      sx= x; w = dx;
  1398. X      }
  1399. X   else {
  1400. X      sx= x+dx; w = -dx;
  1401. X      }
  1402. X   if (dy>0) {
  1403. X      sy= y; h = dy;
  1404. X      }
  1405. X   else {
  1406. X      sy= y+dy; h = -dy;
  1407. X      }
  1408. X
  1409. X   if (sx < 0) sx = 0;
  1410. X   
  1411. X   if (sx + w >= BIT_WIDE(screen))
  1412. X      w = BIT_WIDE(screen) - sx;
  1413. X
  1414. X   if (sy + h >= BIT_HIGH(screen))
  1415. X      h = BIT_HIGH(screen) - sy;
  1416. X
  1417. X   if (w < SUM_BDR + ACTIVE(font)->head.wide*MIN_X +1 ||
  1418. X       h < SUM_BDR + ACTIVE(font)->head.high*MIN_Y +1)
  1419. X       return(-1);
  1420. X
  1421. X#ifdef ALIGN
  1422. X   alignwin(screen,&sx,&w,SUM_BDR);
  1423. X#endif
  1424. X
  1425. X   /* remove current window position */
  1426. X
  1427. X   save_win(active);
  1428. X   erase_win(ACTIVE(border));
  1429. X   clip_bad(active);    /* invalidate clip lists */
  1430. X
  1431. X   /* redraw remaining windows */
  1432. X
  1433. X   repair(active);
  1434. X
  1435. X   /* adjust window state */
  1436. X
  1437. X   ACTIVE(x0) = sx;
  1438. X   ACTIVE(y0) = sy;
  1439. X   bit_destroy(ACTIVE(window));
  1440. X   bit_destroy(ACTIVE(border));
  1441. X   ACTIVE(border) = bit_create(screen,sx,sy,w,h);
  1442. X   ACTIVE(window) = bit_create(ACTIVE(border),
  1443. X                    SUM_BDR,SUM_BDR,w-SUM_BDR*2,h-SUM_BDR*2);
  1444. X
  1445. X   for(win=ACTIVE(next);win != (WINDOW *) 0;win=W(next)) {
  1446. X      if (W(flags)&W_ACTIVE && intersect(active,win))
  1447. X         save_win(win);
  1448. X      }
  1449. X
  1450. X   CLEAR(ACTIVE(window),ACTIVE(background));
  1451. X
  1452. X   border(active,BLK_BDR,WH_BDR);
  1453. X   bit_blit(ACTIVE(border),0,0,BIT_WIDE(ACTIVE(save))-SUM_BDR,
  1454. X          BIT_HIGH(ACTIVE(save))-SUM_BDR,BIT_SRC,ACTIVE(save),0,0);
  1455. X
  1456. X   /* make sure character cursor is in a good spot */
  1457. X
  1458. X   if (ACTIVE(x) > BIT_WIDE(ACTIVE(window))) {
  1459. X      ACTIVE(x) = 0;
  1460. X      ACTIVE(y) += FSIZE(high);
  1461. X      }
  1462. X   if (ACTIVE(y) > BIT_HIGH(ACTIVE(window))) {
  1463. X#ifdef WIERD
  1464. X      ACTIVE(y) = BIT_HIGH(ACTIVE(window));
  1465. X      scroll(ACTIVE(window),0,BIT_HIGH(ACTIVE(window)),
  1466. X             FSIZE(high),ACTIVE(background));
  1467. X      bit_blit(ACTIVE(window),0,BIT_HIGH(ACTIVE(window))-FSIZE(high),
  1468. X               BIT_WIDE(ACTIVE(save)),FSIZE(high),BIT_SRC,
  1469. X               ACTIVE(save),SUM_BDR,BIT_HIGH(ACTIVE(save))-FSIZE(high)-SUM_BDR);
  1470. X#else
  1471. X      ACTIVE(y) = BIT_HIGH(ACTIVE(window))-FSIZE(high);
  1472. X#endif
  1473. X      }
  1474. X
  1475. X   bit_destroy(ACTIVE(save));
  1476. X   ACTIVE(save) = (BITMAP *) 0;
  1477. X
  1478. X    clip_bad(active);                    /* invalidate clip lists */
  1479. X   un_covered();
  1480. X   return(0);
  1481. X   }
  1482. END_OF_FILE
  1483. # end of 'src/shape.c'
  1484. fi
  1485. if test -f 'src/utmp.c' -a "${1}" != "-c" ; then 
  1486.   echo shar: Will not clobber existing file \"'src/utmp.c'\"
  1487. else
  1488. echo shar: Extracting \"'src/utmp.c'\" \(3465 characters\)
  1489. sed "s/^X//" >'src/utmp.c' <<'END_OF_FILE'
  1490. X/*                        Copyright (c) 1987 Bellcore
  1491. X *                            All Rights Reserved
  1492. X *       Permission is granted to copy or use this program, EXCEPT that it
  1493. X *       may not be sold for profit, the copyright notice must be reproduced
  1494. X *       on copies, and credit should be given to Bellcore where it is due.
  1495. X *       BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
  1496. X */
  1497. X/*    $Header: utmp.c,v 4.1 88/06/21 13:34:52 bianchi Exp $
  1498. X    $Source: /tmp/mgrsrc/src/RCS/utmp.c,v $
  1499. X*/
  1500. Xstatic char    RCSid_[] = "$Source: /tmp/mgrsrc/src/RCS/utmp.c,v $$Revision: 4.1 $";
  1501. X
  1502. X/* manage utmp file */
  1503. X
  1504. X#include <pwd.h>
  1505. X#include <utmp.h>
  1506. X#include <sys/file.h>
  1507. X#include <sys/time.h>
  1508. X#include <stdio.h>
  1509. X
  1510. X#define UTMP    "/etc/utmp"
  1511. X#define TTYS    "/etc/ttys"
  1512. X
  1513. Xstatic struct utmp    entry, save_entry;
  1514. Xstatic char        zap[sizeof(entry)];
  1515. Xstatic int        save_slot;
  1516. X
  1517. X/* remove an entry from utmp file */
  1518. X
  1519. Xint
  1520. Xrm_utmp(line)    
  1521. Xchar *line;
  1522. X   {
  1523. X   return(_rm_utmp(line,0));
  1524. X   }
  1525. X
  1526. X/* remove and save an entry in the utmp file */
  1527. X
  1528. Xint
  1529. Xsave_utmp(line)
  1530. Xchar *line;
  1531. X   {
  1532. X   return(_rm_utmp(line,1));
  1533. X   }
  1534. X
  1535. X/* add an entry to the utmp file */
  1536. X
  1537. Xint
  1538. Xadd_utmp(fd,host)
  1539. Xint fd;
  1540. Xchar *host;
  1541. X   {
  1542. X   return(_add_utmp(fd,host,0));
  1543. X   }
  1544. X
  1545. X/* restore a previously saved utmp file entry */
  1546. X
  1547. Xint
  1548. Xrestore_utmp(fd,host)
  1549. Xint fd;
  1550. Xchar *host;
  1551. X   {
  1552. X   return(_add_utmp(fd,host,1));
  1553. X   }
  1554. X
  1555. X/* defined here so we needn't include defs.h */
  1556. X
  1557. X#ifdef SYSV
  1558. X#define index        strchr
  1559. X#define rindex        strrchr
  1560. X#endif
  1561. X
  1562. X/* utmp add-entry service routine */
  1563. X
  1564. Xint
  1565. X_add_utmp(fd,host,flag)
  1566. Xint fd;
  1567. Xchar *host;
  1568. Xint flag;
  1569. X   {
  1570. X   char *ttyname(), *rindex();
  1571. X   long time();
  1572. X   struct passwd *getpwuid();
  1573. X   struct timeval tp;
  1574. X   char *line = ttyname(0);
  1575. X   int tty;
  1576. X   int tell;
  1577. X
  1578. X   if ((fd = open(UTMP,O_RDWR)) >= 0) {
  1579. X      if (flag) {
  1580. X         lseek(fd,(long) (save_slot*sizeof(entry)),0);
  1581. X         write(fd,&save_entry,sizeof(entry));
  1582. X         }
  1583. X      else if (line && (tty=ttyslot())) {
  1584. X
  1585. X         lseek(fd,(long) (tty*sizeof(entry)),0);
  1586. X         if (rindex(line,'/'))
  1587. X            line = rindex(line,'/')+1;
  1588. X
  1589. X         strncpy(entry.ut_line, line, sizeof entry.ut_line);
  1590. X         strncpy(entry.ut_name, getpwuid(getuid())->pw_name,
  1591. X        sizeof entry.ut_name);
  1592. X         if (host == (char *) 0)
  1593. X            strcpy(entry.ut_host, "");
  1594. X         else
  1595. X            strncpy(entry.ut_host, host, sizeof entry.ut_host);
  1596. X         gettimeofday(&tp,0);
  1597. X         entry.ut_time = tp.tv_sec;
  1598. X      
  1599. X         write(fd,&entry,sizeof(entry));
  1600. X         }
  1601. X      close(fd);
  1602. X      return(tty);
  1603. X      }
  1604. X   return(-1);
  1605. X   }
  1606. X
  1607. X/* remove utmp entry service routine */
  1608. X
  1609. Xint
  1610. X_rm_utmp(line,flag)
  1611. Xchar *line;
  1612. Xint flag;
  1613. X   {
  1614. X   int tty;
  1615. X   int fd;
  1616. X   FILE *file;
  1617. X   char *fgets(), *rindex();
  1618. X   char buff[32];
  1619. X   int neof = 0;
  1620. X
  1621. X   /* find ttyslot */
  1622. X
  1623. X   if (line == (char *) 0) 
  1624. X      return(-1);
  1625. X
  1626. X   if (rindex(line,'/'))
  1627. X      line = rindex(line,'/')+1;
  1628. X
  1629. X   if (file = fopen(TTYS,"r")) {
  1630. X      for(tty=1; neof = fgets(buff,sizeof(buff),file) != NULL;tty++)
  1631. X         if (strncmp(line,buff+2,strlen(line)) == 0) break;
  1632. X      fclose(file);
  1633. X      }
  1634. X   else {
  1635. X      return(-2);
  1636. X      }
  1637. X      
  1638. X   /* zap utmp entry */
  1639. X
  1640. X   if ( neof &&(fd = open(UTMP,O_RDWR))>=0) {
  1641. X      lseek(fd,(long) (tty*sizeof(entry)),0);
  1642. X      if (flag) {
  1643. X     save_slot = tty;
  1644. X         read(fd,&save_entry,sizeof(entry));
  1645. X         lseek(fd,(long) (tty*sizeof(entry)),0);
  1646. X         }
  1647. X      write(fd,zap,sizeof(entry));
  1648. X      close(fd);
  1649. X      return(tty);
  1650. X      }
  1651. X   return(-1);
  1652. X   }
  1653. END_OF_FILE
  1654. # end of 'src/utmp.c'
  1655. fi
  1656. echo shar: End of archive 17 \(of 61\).
  1657. cp /dev/null ark17isdone
  1658. MISSING=""
  1659. for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 \
  1660.     21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 \
  1661.     38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 \
  1662.     55 56 57 58 59 60 61 ; do
  1663.     if test ! -f ark${I}isdone ; then
  1664.     MISSING="${MISSING} ${I}"
  1665.     fi
  1666. done
  1667. if test "${MISSING}" = "" ; then
  1668.     echo You have unpacked all 61 archives.
  1669.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  1670. else
  1671.     echo You still need to unpack the following archives:
  1672.     echo "        " ${MISSING}
  1673. fi
  1674. ##  End of shell archive.
  1675. exit 0
  1676.