home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / zip / mint / atarimgr.lzh / ATARI / SRC.DIF < prev   
Text File  |  1990-10-20  |  27KB  |  1,126 lines
  1. Here are the diffs to the mgr/src subdirectory. I haven't provided Makefile
  2. diffs, because I ended up makeing a lot of strange changes ("Makefile" and my
  3. "make" didn't seem to be compatible, so I just hacked out everything that
  4. didn't work right and did it by hand). The only substantial difference was
  5. that I used BLITDIR=atari instead of BLITDIR=port.
  6.  
  7. *** src/orig/copyright.c    Sun Aug  5 13:56:54 1990
  8. --- src/copyright.c    Thu Sep 27 20:38:18 1990
  9. ***************
  10. *** 16,21 ****
  11. --- 16,24 ----
  12.   #include <sys/signal.h>
  13.   #include "bitmap.h"
  14.   #include "copyright.h"
  15. + #ifdef atarist
  16. + extern void _do_fly();
  17. + #endif
  18.   
  19.   #define SSIZE    3        /* star size */
  20.   
  21. ***************
  22. *** 43,48 ****
  23. --- 46,52 ----
  24.       BITMAP *notice = &cr;
  25.       int x = (BIT_WIDE(where)-BIT_WIDE(notice))/2;
  26.       int y = BIT_HIGH(where)/2;
  27. + 
  28.       int high = BIT_HIGH(logo[0]);
  29.       int wide = BIT_WIDE(logo[0]);
  30.       int mask = 1;        /* select mask (1 == kbd) */
  31. ***************
  32. *** 50,55 ****
  33. --- 54,65 ----
  34.       register int i;
  35.       char c;
  36.   
  37. + #ifdef atarist
  38. + /* make sure as much as possible fits on the screen */
  39. +     if (y < high + BIT_HIGH(notice)) {
  40. +             y = BIT_HIGH(where) - BIT_HIGH(notice);
  41. +     }
  42. + #endif
  43.       c1.x1 = x - SSIZE;
  44.       c1.y1 = y - SSIZE;
  45.       c1.x2 = BIT_WIDE(notice) + x;
  46. ***************
  47. *** 71,79 ****
  48.   
  49.       /* kick off stars */
  50.   
  51.       if ((pid=fork()) == 0) /* child */
  52.           fly(where,c1,c2);
  53. !    else {
  54.           for(i=0;select(32,&mask,0,0,&delay) <= 0;i++,mask=1)
  55.               bit_blit(where,x,y,wide,high,
  56.               BIT_SRC|GETCOLOR(BG_COLOR),
  57. --- 81,93 ----
  58.   
  59.       /* kick off stars */
  60.   
  61. + #ifdef atarist
  62. +     pid = tfork(_do_fly, where);
  63. + #else
  64.       if ((pid=fork()) == 0) /* child */
  65.           fly(where,c1,c2);
  66. !         else {
  67. ! #endif
  68.           for(i=0;select(32,&mask,0,0,&delay) <= 0;i++,mask=1)
  69.               bit_blit(where,x,y,wide,high,
  70.               BIT_SRC|GETCOLOR(BG_COLOR),
  71. ***************
  72. *** 81,92 ****
  73. --- 95,157 ----
  74.           read(0,&c,1);
  75.           kill(pid,SIGTERM);
  76.           while(wait(0)!=pid);
  77. + #ifndef atarist
  78.           }
  79. + #endif
  80.       }
  81.   
  82.   /* star trek effect */
  83.   
  84. + #ifdef atarist
  85. + /*
  86. +  * routines to fork off a thread to do the star flying
  87. +  */
  88. + 
  89. + #include <osbind.h>
  90. + #include <basepage.h>
  91. + 
  92. + #define STKSIZE 8192L
  93. + 
  94. + void
  95. + _start_thread(b)
  96. +     BASEPAGE *b;
  97. + {
  98. +     void (*func)();
  99. +     long arg;
  100. + 
  101. +     func = (void (*)())b->p_dbase;
  102. +     arg = b->p_dlen;
  103. +     func(arg);
  104. +     Pterm0();
  105. + }
  106. + 
  107. + int
  108. + tfork(func, arg)
  109. +     void (*func)();
  110. +     long arg;
  111. + {
  112. +     BASEPAGE *b;
  113. +     int pid;
  114. + 
  115. +     b = (BASEPAGE *)Pexec(PE_CBASEPAGE, 0L, "", 0L);
  116. +     Mshrink(b, STKSIZE);
  117. +     b->p_tbase = (char *)_start_thread;
  118. +     b->p_dbase = (char *)func;
  119. +     b->p_dlen = arg;
  120. +     pid = Pexec(104, 0L, b, 0L);
  121. +     return pid;
  122. + }
  123. + 
  124. + void
  125. + _do_fly(where)
  126. +     BITMAP *where;
  127. + {
  128. +     fly(where, c1, c2);
  129. + }
  130.   
  131. + #undef Random
  132. + #endif /* atarist */
  133. + 
  134.   /*
  135.    * porter.c  Steve Hawley 4/3/87
  136.    * rehacked 5/18/1988 for extra speed.
  137. ***************
  138. *** 131,137 ****
  139.                           stp->y = Random();
  140.                           stp->z = (Random() % MAXZ) + 1;
  141.                           stp->color = Random() % 23;
  142. !                                 if (stp->color == BG_COLOR)
  143.                               stp->color++;
  144.               
  145.                   } while(project(where,stp->x, stp->y, stp->z, stp->color, ON,clip1,clip2)); /* on screen? */
  146. --- 196,202 ----
  147.                           stp->y = Random();
  148.                           stp->z = (Random() % MAXZ) + 1;
  149.                           stp->color = Random() % 23;
  150. !             if (stp->color == BG_COLOR)
  151.                               stp->color++;
  152.               
  153.                   } while(project(where,stp->x, stp->y, stp->z, stp->color, ON,clip1,clip2)); /* on screen? */
  154. ***************
  155. *** 146,154 ****
  156.                                   stp->y = Random();
  157.                                   stp->z = MAXZ;
  158.                           }
  159. !                                 else {        /* rotate universe */
  160. !                                     cordic(&stp->x,&stp->y,SCALE,COUNT);
  161. !                                 }
  162.                           if (project(where,stp->x, stp->y, stp->z, stp->color, ON,clip1,clip2)) {
  163.                                   /* if projection is off screen, get a new position */
  164.                                   stp->x = Random();
  165. --- 211,219 ----
  166.                                   stp->y = Random();
  167.                                   stp->z = MAXZ;
  168.                           }
  169. !             else {        /* rotate universe */
  170. !                     cordic(&stp->x,&stp->y,SCALE,COUNT);
  171. !             }
  172.                           if (project(where,stp->x, stp->y, stp->z, stp->color, ON,clip1,clip2)) {
  173.                                   /* if projection is off screen, get a new position */
  174.                                   stp->x = Random();
  175. ***************
  176. *** 243,245 ****
  177. --- 308,311 ----
  178.      *x = tempx;
  179.      *y = tempy;
  180.   }
  181. + 
  182. *** src/orig/cut.c    Mon Sep 10 12:07:10 1990
  183. --- src/cut.c    Mon Sep 10 23:28:38 1990
  184. ***************
  185. *** 190,197 ****
  186. --- 190,202 ----
  187.            break;
  188.         }
  189.      *pntr = '\0';
  190. + #ifndef atarist
  191. + /* sigh -- these were allocated with fixed data, so freeing them causes
  192. +    big problems on the atari
  193. +  */
  194.      bit_destroy(check);
  195.      bit_destroy(glyph);
  196. + #endif
  197.   
  198.      /* put text into snarf buffer */
  199.   
  200. *** src/orig/defines.h    Sun Aug  5 13:55:44 1990
  201. --- src/defines.h    Mon Sep 17 01:28:58 1990
  202. ***************
  203. *** 41,49 ****
  204. --- 41,56 ----
  205.   #define SCREEN_DEV    "/dev/bwtwo0"    /* where to find the frame buffer */
  206.   #endif
  207.   #define MOUSE_DEV    "/dev/mouse"    /* where to find the mouse */
  208. + 
  209.   #define TERMNAME    "mgr"        /* name of termcap entry */
  210. + 
  211. + #ifdef atarist
  212. + #define STARTFILE    "mgr.rc"
  213. + #else
  214.   #define STARTFILE    ".mgrc"        /* name of mgr startup file */
  215.   #define HOST        "win "        /* name of host for utmp file */
  216. + #endif
  217. + 
  218.   #ifndef FONTDIR
  219.   #  define FONTDIR        "/usr/mgr/font" /* where to find the fonts */
  220.   #endif
  221. *** src/orig/defs.h    Mon Apr  3 09:09:46 1989
  222. --- src/defs.h    Mon Sep 10 12:23:10 1990
  223. ***************
  224. *** 23,31 ****
  225.   #ifdef DEBUG
  226.   extern char debug_level[];
  227.   char *index();
  228.   #define dprintf(x) \
  229.       if (debug && index(debug_level,'x')) fprintf
  230. ! #endif
  231.   
  232.   /* macros -- for speed */
  233.   
  234. --- 23,36 ----
  235.   #ifdef DEBUG
  236.   extern char debug_level[];
  237.   char *index();
  238. + # ifdef __STDC__
  239.   #define dprintf(x) \
  240. +     if (debug && index(debug_level,(#x)[0])) fprintf
  241. + # else
  242. + #define dprintf(x) \
  243.       if (debug && index(debug_level,'x')) fprintf
  244. ! # endif
  245. ! #endif /* DEBUG */
  246.   
  247.   /* macros -- for speed */
  248.   
  249. *** src/orig/destroy.c    Sun Aug  5 13:55:56 1990
  250. --- src/destroy.c    Thu Sep 27 20:38:30 1990
  251. ***************
  252. *** 35,41 ****
  253. --- 35,45 ----
  254.   register WINDOW *win;
  255.      {
  256.      int i;
  257. + #ifdef atarist
  258. +    int status;
  259. + #else
  260.      union wait status;
  261. + #endif
  262.   
  263.      if (win == (WINDOW *) 0)
  264.         return(-1);
  265. ***************
  266. *** 63,68 ****
  267. --- 67,75 ----
  268.   #ifdef DEBUG
  269.         dprintf(d)(stderr,"%s: destroy main %s\r\n",W(tty),W(alt)?"ALT":"");
  270.   #endif
  271. + #ifdef atarist
  272. +     if (W(pid) > 1)
  273. + #endif
  274.         killpg(W(pid),SIGHUP);
  275.   
  276.         if (geteuid() < 1) {
  277. ***************
  278. *** 87,97 ****
  279. --- 94,112 ----
  280.         dprintf(d)(stderr,"waiting for ..."); fflush(stderr);
  281.   #endif
  282.         if (W(pid) > 1) {
  283. + #ifdef atarist
  284. +          wait(&status);
  285. +      if ( (status & 0177) == 0177 ) {
  286. +         kill(W(pid), SIGCONT);
  287. +         wait(&status);
  288. +     }
  289. + #else
  290.            i = wait3(&status,WNOHANG,0L);
  291.            if (i == 0) {                     /* start it so it can die */
  292.               kill(W(pid),SIGCONT);
  293.               wait(&status);
  294.               }
  295. + #endif
  296.            }
  297.   #ifdef DEBUG
  298.         dprintf(d)(stderr," %d\r\n",i);
  299. *** src/orig/do_button.c    Sun Aug  5 13:56:00 1990
  300. --- src/do_button.c    Thu Sep 27 20:39:36 1990
  301. ***************
  302. *** 253,258 ****
  303. --- 253,261 ----
  304.      /* fix pttys */
  305.      if (geteuid() < 2)
  306.         for(win=active;win != (WINDOW *) 0;win=W(next)) {
  307. + #ifdef atarist
  308. +         if (W(pid) > 1)
  309. + #endif
  310.               killpg(W(pid),SIGHUP);
  311.            chmod(W(tty),0666);
  312.            chown(W(tty),0,0);
  313. *** src/orig/down_load.c    Sun Aug  5 13:56:04 1990
  314. --- src/down_load.c    Tue Sep 11 16:57:06 1990
  315. ***************
  316. *** 172,177 ****
  317. --- 172,181 ----
  318.   
  319.                      if (c == '/' || (c == '.' && W(snarf)[1]=='/'))
  320.                         strcpy(filename,W(snarf));
  321. + #ifdef atarist
  322. +            else if (c == '\\' || (c && W(snarf)[1] == ':'))
  323. +                strcpy(filename,W(snarf));
  324. + #endif
  325.                      else
  326.                         sprintf(filename,"%s/%s",icon_dir,W(snarf));
  327.   
  328. ***************
  329. *** 239,246 ****
  330. --- 243,252 ----
  331.   #ifdef DEBUG
  332.                         dprintf(y)(stderr,"saving bitmap %d x %d on %s (%d)\n",BIT_WIDE(b),BIT_HIGH(b),W(snarf),fileno(fp));
  333.   #endif
  334. + #ifndef atarist
  335.                         if (exists<0)    /* file just created */
  336.                            fchown(fileno(fp),getuid(),getgid());
  337. + #endif
  338.                         bitmapwrite( fp, b, get_bm_type() );
  339.                         fclose(fp);
  340.   #ifdef DEBUG
  341. *** src/orig/get_menu.c    Sun Sep  9 11:52:20 1990
  342. --- src/get_menu.c    Sun Sep 23 20:37:26 1990
  343. ***************
  344. *** 64,70 ****
  345. --- 64,75 ----
  346.   #define HIGH        (font->head.high+2)
  347.   
  348.   extern BITMAP mouse_bull, mouse_bull2;
  349. + #ifdef atarist
  350. + static unsigned int save_bits[BLIP];
  351. + #else
  352.   static unsigned short save_bits[BLIP];
  353. + #endif
  354. + 
  355.   static bit_static(track,BLIP,BLIP,save_bits,DEPTH);
  356.   
  357.   /* allocate space for and initialize menu */
  358. ***************
  359. *** 279,285 ****
  360. --- 284,294 ----
  361.            done++;
  362.            }
  363.   
  364. + #ifdef atarist
  365. +       x_position = BETWEEN(1, x_position, BIT_WIDE(inside) - 1);
  366. + #else
  367.         x_position = BETWEEN(BLIP/2, x_position, BIT_WIDE(inside) - BLIP/2);
  368. + #endif
  369.   
  370.         TRACKON(inside,x_position,y_position);        /* on */
  371.   
  372. *** src/orig/getshell.c    Sun Aug  5 13:56:14 1990
  373. --- src/getshell.c    Thu Sep 27 20:40:08 1990
  374. ***************
  375. *** 19,28 ****
  376.   #include "bitmap.h"
  377.   #include "defs.h"
  378.   
  379.   #define SHELL        "/bin/sh"
  380. - 
  381.   static char line[] = {"/dev/ptypX"};
  382.   static int  pty_index=5;        /* better hit rate than 0 */
  383.   extern char **environ;
  384.   
  385.   /*    get a pty line */
  386. --- 19,36 ----
  387.   #include "bitmap.h"
  388.   #include "defs.h"
  389.   
  390. + #ifdef atarist
  391. + #include <osbind.h>
  392. + #include <mintbind.h>
  393. + #define SHELL        "init.prg"
  394. + static char line[] = {"Q:\\ttyp.XX"};
  395. + static int pty_index = 0;
  396. + #else
  397.   #define SHELL        "/bin/sh"
  398.   static char line[] = {"/dev/ptypX"};
  399.   static int  pty_index=5;        /* better hit rate than 0 */
  400. + #endif
  401. + 
  402.   extern char **environ;
  403.   
  404.   /*    get a pty line */
  405. ***************
  406. *** 33,45 ****
  407. --- 41,60 ----
  408.      register int i;
  409.      int fd;
  410.   
  411. + #ifndef atarist
  412.      line[5] = 'p';
  413. + #endif
  414. + 
  415.      for(line[8]='p';line[8]<'r';line[8]+= 1)
  416.         for (i=1;i<=16;i++) {
  417.            line[9]="0123456789abcdef"[(pty_index+i)%16];
  418. + #ifdef atarist
  419. +      if ((fd = Fcreate(line, FA_SYSTEM|FA_HIDDEN)) >= 0) {
  420. + #else
  421.            if ((fd = open(line,2)) >= 0) {
  422.               /* pty_index = (pty_index+i)%16;   temp */
  423.               line[5] = 't';
  424. + #endif
  425.               return(fd);
  426.               }
  427.            }
  428. ***************
  429. *** 49,55 ****
  430. --- 64,74 ----
  431.   int getatty()
  432.      {
  433.      int fd;
  434. + 
  435. + #ifndef atarist
  436.      line[5]='t';
  437. + #endif
  438. + 
  439.      fd=open(line,2);
  440.      if (fd<0) {
  441.         sleep(3);
  442. ***************
  443. *** 106,112 ****
  444. --- 125,133 ----
  445.      if ((pid=fork()) > 0) {
  446.         /* parent side of fork */
  447.         char buff[2];
  448. + #ifndef atarist
  449.         read(*file,buff,sizeof(buff));    /* wait for slave side to open */
  450. + #endif
  451.   #ifdef DEBUG
  452.         dprintf(s)(stderr,"EXEC done, slave side open\r\n ");
  453.   #endif
  454. ***************
  455. *** 146,151 ****
  456. --- 167,173 ----
  457.   
  458.      for(i=0;i<tty_slots;i++) if (i != fd) close(i);
  459.   
  460. + #ifndef atarist
  461.      /* set the uid-0 stuff up */
  462.   
  463.      if (geteuid() < 1) {
  464. ***************
  465. *** 163,172 ****
  466. --- 185,202 ----
  467.      close(fd);
  468.      dup(i);
  469.      dup(i);
  470. + #else
  471. +    Fforce(-1, fd);
  472. +    Fforce(0, fd);
  473. +    Fforce(1, fd);
  474. +    Fforce(2, fd);
  475. +    Fclose(fd);
  476. + #endif
  477.   
  478.      setpgrp(group,group);
  479.      ioctl(0,TIOCSPGRP,&group);
  480.   
  481. + #ifndef atarist
  482.       adjust_mode(NTTYDISC,ECHO|CRMOD|EVENP|ODDP);
  483.       restore_modes(0);
  484.   
  485. ***************
  486. *** 176,181 ****
  487. --- 206,212 ----
  488.      add_utmp(0,sprintf(who,"%s%c",HOST,line[9]));
  489.   #endif
  490.   
  491. + #endif /* atarist */
  492.      /* start the command */
  493.   
  494.   #ifdef DEBUG
  495. ***************
  496. *** 185,191 ****
  497. --- 216,224 ----
  498.      do_env("TERM=",TERMNAME);
  499.      do_env("TERMCAP=","");
  500.   
  501. + #ifndef atarist
  502.      write(2,"\n",1);    /* tell master that slave side is open */
  503. + #endif
  504.      execve(name,argv,environ);
  505.      _exit(1);
  506.      }
  507. ***************
  508. *** 201,212 ****
  509. --- 234,258 ----
  510.   
  511.      if ((*file=getapty()) < 0)
  512.         return((char *) 0);
  513. + #ifndef atarist
  514.      ioctl(*file,TIOCREMOTE,0);    /* I dunno */
  515. + #endif
  516.      return(line);
  517.      }
  518.   
  519.   /* get a complete path name from command */
  520.   
  521. + #ifdef atarist
  522. + char *
  523. + get_path(name)
  524. + char *name;
  525. +    {
  526. +    char *getenv(), *findfile();
  527. +    static char *extensions[] = { "ttp", "prg", "tos", 0 };
  528. + 
  529. +    return findfile(name, getenv("PATH"), extensions);
  530. +    }
  531. + #else
  532.   static char path[512];
  533.   static char start[512];
  534.   
  535. ***************
  536. *** 239,244 ****
  537. --- 285,291 ----
  538.         return((char *) 0);
  539.         }
  540.      }
  541. + #endif /* atarist */
  542.   
  543.   /* change an environment variable */
  544.   
  545. *** src/orig/kbd.c    Sun Aug  5 13:56:20 1990
  546. --- src/kbd.c    Thu Sep 27 20:40:32 1990
  547. ***************
  548. *** 12,17 ****
  549. --- 12,21 ----
  550.   
  551.   #include <stdio.h>
  552.   #include <sys/signal.h>
  553. + #ifdef atarist
  554. + #include <osbind.h>
  555. + #endif
  556. + 
  557.   #include "bitmap.h"
  558.   #include "defs.h"
  559.   #ifdef sun
  560. ***************
  561. *** 65,70 ****
  562. --- 69,77 ----
  563.   
  564.      write( 2, "\007", 1 );
  565.   */
  566. + #ifdef atarist
  567. +    Bconout(2, 7);
  568. + #endif
  569.      }
  570.   
  571.   #ifdef BELL
  572. *** src/orig/mgr.c    Tue Apr 24 09:28:06 1990
  573. --- src/mgr.c    Thu Sep 27 20:36:50 1990
  574. ***************
  575. *** 14,20 ****
  576. --- 14,30 ----
  577.   
  578.   #include "bitmap.h"
  579.   #include <stdio.h>
  580. + #ifdef atarist
  581. + #include <osbind.h>
  582. + #include <signal.h>
  583. + #include <time.h>
  584. + 
  585. + long _stksize = 32*1024L;
  586. + extern int __mint;
  587. + #else
  588.   #include <sys/signal.h>
  589. + #endif
  590. + 
  591.   #ifdef sun
  592.   #include <sys/time.h> 
  593.   #endif
  594. ***************
  595. *** 29,35 ****
  596.   #endif
  597.   #define POLL(poll)        (poll&mask ? &set_poll : (struct timeval *) 0)
  598.   
  599. ! #ifdef sun
  600.   struct timeval set_poll = {
  601.      (long) 0, (long) POLL_INT
  602.      };                /* set select to poll */
  603. --- 39,45 ----
  604.   #endif
  605.   #define POLL(poll)        (poll&mask ? &set_poll : (struct timeval *) 0)
  606.   
  607. ! #if defined(sun) || defined(atarist)
  608.   struct timeval set_poll = {
  609.      (long) 0, (long) POLL_INT
  610.      };                /* set select to poll */
  611. ***************
  612. *** 56,72 ****
  613.      char *screen_dev = SCREEN_DEV;    /* name of frame buffer */
  614.      char *default_font = (char * )0;    /* default font */
  615.      char *rindex(), *getenv(), *ttyname();
  616.      char *term = getenv("TERM");        /* place to put terminal name */
  617.   #ifdef SHRINK
  618.      BITMAP *prime;
  619.   #endif
  620.   
  621.      SETMOUSEICON(&mouse_arrow);
  622. !     timestamp();                            /* initialize the timestamp */
  623.   
  624.      /* process arguments */
  625.   
  626.      sprintf(start_file,"%s/%s",getenv("HOME"),STARTFILE);
  627.      while(--argc > 0) {
  628.         argv++;
  629.   #ifdef DEBUG
  630. --- 66,105 ----
  631.      char *screen_dev = SCREEN_DEV;    /* name of frame buffer */
  632.      char *default_font = (char * )0;    /* default font */
  633.      char *rindex(), *getenv(), *ttyname();
  634. + #ifdef atarist
  635. +    char *term;
  636. + #else
  637.      char *term = getenv("TERM");        /* place to put terminal name */
  638. + #endif
  639.   #ifdef SHRINK
  640.      BITMAP *prime;
  641.   #endif
  642.   
  643. + #ifdef atarist
  644. +    _binmode(1);
  645. +    if (__mint < 6) {
  646. +     fprintf(stderr, "MGR requires MiNT version 0.6 or higher\n");
  647. +     exit(2);
  648. +    }
  649. +    printf("\033E\033f");    /* clear screen, turn off cursor */
  650. +    fflush(stdout);
  651. + #endif
  652. + 
  653.      SETMOUSEICON(&mouse_arrow);
  654. !    timestamp();                            /* initialize the timestamp */
  655.   
  656.      /* process arguments */
  657.   
  658. + #ifdef atarist
  659. +    term = getenv("MGRFONT"); if (term) font_dir = term;
  660. +    term = getenv("MGRICON"); if (term) icon_dir = term;
  661. +    term = getenv("HOME"); if (!term) term = "";
  662. +    sprintf(start_file, "%s/%s", term, STARTFILE);
  663. +    term = getenv("TERM");
  664. + #else
  665.      sprintf(start_file,"%s/%s",getenv("HOME"),STARTFILE);
  666. + #endif
  667. + 
  668.      while(--argc > 0) {
  669.         argv++;
  670.   #ifdef DEBUG
  671. ***************
  672. *** 157,162 ****
  673. --- 190,196 ----
  674.      /* free all unused fd's */
  675.   
  676.      count = getdtablesize();
  677. + 
  678.      for(i=3;i<count;i++)
  679.         close(i);
  680.   
  681. ***************
  682. *** 227,233 ****
  683. --- 261,271 ----
  684.                           break;
  685.         case SIGILL:    /* <= 3.0 abort gererates this one */
  686.         case SIGCONT:
  687. + #ifdef atarist
  688. +       case SIGABRT:
  689. + #else
  690.         case SIGIOT:    /* 3.2 abort generates this (gee thanks, SUN!) */
  691. + #endif
  692.         case SIGQUIT:
  693.                           break;
  694.         case SIGTTIN:
  695. ***************
  696. *** 300,306 ****
  697.         dprintf(l)(stderr,"select: mask=0x%x poll=0x%x 0x%x got\r\n",
  698.                    mask,poll,reads);
  699.   #endif
  700. ! #ifdef sun
  701.         if (select(32,&reads,0,0,POLL(poll)) <0) {
  702.   #ifdef DEBUG
  703.            dprintf(l)(stderr,"select failed %d->%d\r\n",
  704. --- 338,344 ----
  705.         dprintf(l)(stderr,"select: mask=0x%x poll=0x%x 0x%x got\r\n",
  706.                    mask,poll,reads);
  707.   #endif
  708. ! #if defined(sun) || defined(atarist)
  709.         if (select(32,&reads,0,0,POLL(poll)) <0) {
  710.   #ifdef DEBUG
  711.            dprintf(l)(stderr,"select failed %d->%d\r\n",
  712. ***************
  713. *** 329,342 ****
  714.         /* process keyboard input */
  715.         
  716.         if (reads&1 && active && !(ACTIVE(flags)&W_NOINPUT)) {
  717.            read(0,&c,1);
  718. ! #ifdef BUCKEY
  719.            if ( (ACTIVE(flags)&W_NOBUCKEY)  ||  !do_buckey(c) )
  720.               write(ACTIVE(to_fd),&c,1);
  721. ! #else
  722.            write(ACTIVE(to_fd),&c,1);
  723. ! #endif
  724. !             if (ACTIVE(flags)&W_DUPKEY && c==ACTIVE(dup))
  725.                write(ACTIVE(to_fd),&c,1);
  726.            continue;
  727.            }
  728. --- 367,390 ----
  729.         /* process keyboard input */
  730.         
  731.         if (reads&1 && active && !(ACTIVE(flags)&W_NOINPUT)) {
  732. + #ifdef atarist
  733. + # ifdef BUCKEY
  734. +          if ( kbd_getch(&c) || (ACTIVE(flags)&W_NOBUCKEY)  ||  !do_buckey(c) )
  735. +             write(ACTIVE(to_fd),&c,1);
  736. + # else
  737. +      kbd_getch(&c);
  738. +          write(ACTIVE(to_fd),&c,1);
  739. + # endif
  740. + #else
  741.            read(0,&c,1);
  742. ! # ifdef BUCKEY
  743.            if ( (ACTIVE(flags)&W_NOBUCKEY)  ||  !do_buckey(c) )
  744.               write(ACTIVE(to_fd),&c,1);
  745. ! # else
  746.            write(ACTIVE(to_fd),&c,1);
  747. ! # endif
  748. ! #endif /* atarist */
  749. !      if (ACTIVE(flags)&W_DUPKEY && c==ACTIVE(dup))
  750.                write(ACTIVE(to_fd),&c,1);
  751.            continue;
  752.            }
  753. ***************
  754. *** 498,503 ****
  755. --- 546,563 ----
  756.   int
  757.   timestamp()
  758.       {
  759. + #ifdef atarist
  760. +     static long offset = 0;
  761. + 
  762. +     if (offset == 0) {
  763. +         offset = clock();
  764. +         return 0;
  765. +         }
  766. +     else {
  767. +         return (clock() - offset)/2;    /* clock is 200 HZ */
  768. +         }
  769. +     }
  770. + #else
  771.       static long offset = 0;
  772.       struct timeval timeval;
  773.       
  774. ***************
  775. *** 511,513 ****
  776. --- 571,646 ----
  777.           return((timeval.tv_sec - offset) * 100 + timeval.tv_usec / 10000);
  778.           }
  779.       }
  780. + #endif /* atarist */
  781. + 
  782. + #ifdef atarist
  783. + /* routine for reading the keyboard -- returns 1 if the key should be
  784. +    passed directly to the application, 0 if it might be a buckey key
  785. +    (i.e. if the ALT key was depressed)
  786. +  */
  787. + #include <osbind.h>
  788. + 
  789. + #define MAXSCAN 0x39
  790. + 
  791. + /* table for normal (unshifted) keys */
  792. + char normtab[MAXSCAN + 1] = {
  793. +    0, '\033', '1', '2', '3', '4', '5', '6',    /* 0 - 0x7     */
  794. +  '7', '8', '9', '0', '-', '=', '\010', '\011',    /* 0x8 - 0xf    */
  795. +  'q', 'w', 'e', 'r', 't', 'y', 'u', 'i',    /* 0x10 - 0x17    */
  796. +  'o', 'p', '[', ']', '\r', 0, 'a', 's',        /* 0x18 - 0x1f    */
  797. +  'd', 'f', 'g', 'h', 'j', 'k', 'l', ';',    /* 0x20 - 0x27    */
  798. +  '\'', '`', 0, '\\', 'z', 'x', 'c', 'v',    /* 0x28 - 0x2f    */
  799. +  'b', 'n', 'm', ',', '.', '/', 0, 0,        /* 0x30 - 0x37  */
  800. +   0, ' ' };                    /* 0x38 - 0x39    */
  801. + 
  802. + /* table for shifted keys */
  803. + char shfttab[MAXSCAN + 1] = {
  804. +    0, '\033', '!', '@', '#', '$', '%', '^',    /* 0 - 0x7     */
  805. +  '&', '*', '(', ')', '_', '+', '\010', '\011',    /* 0x8 - 0xf    */
  806. +  'Q', 'W', 'E', 'R', 'T', 'Y', 'U', 'I',    /* 0x10 - 0x17    */
  807. +  'O', 'P', '{', '}', '\r', 0, 'A', 'S',        /* 0x18 - 0x1f    */
  808. +  'D', 'F', 'G', 'H', 'J', 'K', 'L', ':',    /* 0x20 - 0x27    */
  809. +  '"', '~', 0, '|', 'Z', 'X', 'C', 'V',        /* 0x28 - 0x2f    */
  810. +  'B', 'N', 'M', '<', '>', '?', 0, 0,        /* 0x30 - 0x37  */
  811. +  0, ' ' };                    /* 0x38 - 0x39    */
  812. + 
  813. + 
  814. + #define _SHFT    0x3
  815. + #define _CTRL    0x4
  816. + #define _ALT    0x8
  817. + 
  818. + int
  819. + kbd_getch(c)
  820. +     char *c;
  821. + {
  822. +     long r;
  823. +     int scan, key, shft;
  824. + 
  825. +     r = Crawio(0xff);
  826. +     key = r & 0xff;
  827. +     shft = Kbshift(-1);
  828. +     if (key == 0) {
  829. +         scan = (r & 0x00ff0000) >> 16;
  830. +         if (scan >= 0x78 && scan <= 0x83) {
  831. +         /* compensate for TOS's silly ALT key remapping */
  832. +             scan = scan - 0x76;
  833. +         }
  834. +         if ( (scan <= MAXSCAN) && (shft & _ALT) ) {
  835. +             if (shft & _CTRL)
  836. +                 key = shfttab[scan] & 0x1f;
  837. +             else if (shft & _SHFT)
  838. +                 key = shfttab[scan];
  839. +             else
  840. +                 key = normtab[scan];
  841. +         }
  842. +     }
  843. +     if (shft & _ALT) {
  844. +         *c = key | 0x80;
  845. +         return 0;    /* might be buckey */
  846. +     }
  847. +     else {
  848. +         *c = key;
  849. +         return 1;    /* not buckey */
  850. +     }
  851. + }
  852. + #endif /* atarist */
  853. *** src/orig/set_mode.c    Tue Apr 24 09:37:32 1990
  854. --- src/set_mode.c    Sat Aug 11 22:24:24 1990
  855. ***************
  856. *** 28,36 ****
  857. --- 28,40 ----
  858.   int set_mouseio(file)
  859.   int file;                /* file descriptor */
  860.      {
  861. + #ifdef atarist
  862. +    return 0;
  863. + #else
  864.      set_mode(file,RAW,ECHO,B1200);
  865.      fcntl(file,F_SETFL,fcntl(file,F_GETFL,0)|FNDELAY); /* for 4.1 */
  866.      return(ioctl(file,TIOCEXCL,0));
  867. + #endif
  868.      }
  869.   
  870.   /* reset input tty modes */
  871. ***************
  872. *** 69,77 ****
  873. --- 73,85 ----
  874.      {
  875.      int tty;
  876.   
  877. + #ifdef atarist
  878. +    close(-1);
  879. + #else
  880.      tty = open("/dev/tty",2);
  881.      ioctl(tty,TIOCNOTTY,0);
  882.      close(tty);
  883. + #endif
  884.      }
  885.   
  886.   /*********************************************************************/
  887. ***************
  888. *** 89,109 ****
  889. --- 97,121 ----
  890.   save_modes(fd)
  891.   int fd;            /* fd to save tty modes from */
  892.       {
  893. + #ifndef atarist
  894.      ioctl(fd,TIOCGETD,&t_ldisc);
  895.      ioctl(fd,TIOCGETP,&t_sgttyb);
  896.      ioctl(fd,TIOCGETC,&t_tchars);
  897.      ioctl(fd,TIOCGLTC,&t_ltchars);
  898.      ioctl(fd,TIOCLGET,&t_lflags);
  899. + #endif
  900.       }
  901.   
  902.   restore_modes(fd)
  903.   int fd;
  904.       {
  905. + #ifndef atarist
  906.      ioctl(fd,TIOCSETD,&t_ldisc);
  907.      ioctl(fd,TIOCSETP,&t_sgttyb);
  908.      ioctl(fd,TIOCSETC,&t_tchars);
  909.      ioctl(fd,TIOCSLTC,&t_ltchars);
  910.      ioctl(fd,TIOCLSET,&t_lflags);
  911. + #endif
  912.       }
  913.   
  914.   adjust_mode(disc,flags)
  915. ***************
  916. *** 110,115 ****
  917. --- 122,129 ----
  918.   int flags;        /* flags */
  919.   int disc;        /* line disc */
  920.       {
  921. + #ifndef atarist
  922.      t_ldisc=disc;
  923.      t_sgttyb.sg_flags = flags;
  924. + #endif
  925.       }
  926. *** src/orig/sigdata.c    Sun Aug  5 13:56:36 1990
  927. --- src/sigdata.c    Sat Aug 11 01:23:48 1990
  928. ***************
  929. *** 12,17 ****
  930. --- 12,18 ----
  931.   
  932.   #include <stdio.h>
  933.   
  934. + #ifndef atarist
  935.   /* signal names, descriptions (for debugging) */
  936.   
  937.   struct signame {
  938. ***************
  939. *** 62,64 ****
  940. --- 63,78 ----
  941.      fflush(stderr);
  942.      abort();
  943.      }
  944. + #else /* atarist */
  945. + int
  946. + catch(sig)
  947. + int sig;
  948. + {
  949. +     extern char *sys_siglist[];
  950. + 
  951. +     _quit();
  952. +     fprintf(stderr, "got a %s\r\n", sys_siglist[sig]);
  953. +     fflush(stderr);
  954. +     abort();
  955. + }
  956. + #endif /* atarist */
  957. *** src/orig/subs.c    Fri Jun  9 09:02:40 1989
  958. --- src/subs.c    Thu Sep 27 20:41:08 1990
  959. ***************
  960. *** 446,456 ****
  961. --- 446,458 ----
  962.      sleep(1);                /* wait for CONT signal */
  963.      signal(SIGTSTP, catch);
  964.   
  965. + #ifndef atarist
  966.      if (set_kbd(1) != 0) {    /* reopen kbd (as 0) */
  967.         _quit();
  968.         fprintf(stderr,"Sorry, Can't reopen kbd\n");
  969.         exit(1);
  970.         }
  971. + #endif
  972.      mouse = mouse_reopen();
  973.      set_tty(0);
  974.      bell_on();    /* this resets the keyboard! */
  975. ***************
  976. *** 654,659 ****
  977. --- 656,664 ----
  978.   system(command)
  979.   char *command;
  980.   {
  981. + #ifdef atarist
  982. +     char *shell;
  983. + #endif
  984.           int status, pid, w;
  985.           register int (*istat)(), (*qstat)();
  986.   
  987. ***************
  988. *** 668,677 ****
  989. --- 673,691 ----
  990.                   setreuid(uid,uid);
  991.                   setregid(gid,gid);
  992.   
  993. + #ifdef atarist
  994. +         uid = open("V:\\NULL", 0);
  995. +         dup2(uid, 0);
  996. +         close(uid);
  997. +         shell = getenv("SHELL");
  998. +         if (!shell) shell = "ksh";
  999. +         execlp(shell, shell, "-c", command, 0);
  1000. + #else
  1001.           close(0);
  1002.           open("/dev/null",0);
  1003.   
  1004.                   execl("/bin/sh", "sh", "-c", command, 0);
  1005. + #endif
  1006.                   _exit(127);
  1007.           }
  1008.           istat = signal(SIGINT, SIG_IGN);
  1009. *** src/orig/utmp.c    Sun Aug  5 13:56:42 1990
  1010. --- src/utmp.c    Sat Sep  8 01:42:48 1990
  1011. ***************
  1012. *** 12,17 ****
  1013. --- 12,18 ----
  1014.   
  1015.   /* manage utmp file */
  1016.   
  1017. + #ifndef atarist
  1018.   #include <pwd.h>
  1019.   #include <utmp.h>
  1020.   #include <sys/file.h>
  1021. ***************
  1022. *** 24,29 ****
  1023. --- 25,31 ----
  1024.   static struct utmp    entry, save_entry;
  1025.   static char        zap[sizeof(entry)];
  1026.   static int        save_slot;
  1027. + #endif
  1028.   
  1029.   /* remove an entry from utmp file */
  1030.   
  1031. ***************
  1032. *** 78,83 ****
  1033. --- 80,86 ----
  1034.   char *host;
  1035.   int flag;
  1036.      {
  1037. + #ifndef atarist
  1038.      char *ttyname(), *rindex();
  1039.      long time();
  1040.      struct passwd *getpwuid();
  1041. ***************
  1042. *** 113,118 ****
  1043. --- 116,122 ----
  1044.         return(tty);
  1045.         }
  1046.      return(-1);
  1047. + #endif /* atarist */
  1048.      }
  1049.   
  1050.   /* remove utmp entry service routine */
  1051. ***************
  1052. *** 122,127 ****
  1053. --- 126,132 ----
  1054.   char *line;
  1055.   int flag;
  1056.      {
  1057. + #ifndef atarist
  1058.      int tty;
  1059.      int fd;
  1060.      FILE *file;
  1061. ***************
  1062. *** 160,163 ****
  1063. --- 165,169 ----
  1064.         return(tty);
  1065.         }
  1066.      return(-1);
  1067. + #endif /* atarist */
  1068.      }
  1069. *** src/orig/Write.c    Sun Aug  5 13:55:48 1990
  1070. --- src/Write.c    Tue Sep 11 05:03:12 1990
  1071. ***************
  1072. *** 20,25 ****
  1073. --- 20,47 ----
  1074.   
  1075.   extern errno;
  1076.   
  1077. + #ifdef atarist
  1078. + 
  1079. + int
  1080. + Write(fd,buff,len)
  1081. + register int fd, len;
  1082. + register char *buff;
  1083. +    {
  1084. +    register int count = 0;
  1085. +    register int r;
  1086. + 
  1087. +    while (count < len) {
  1088. +       r = write(fd, buff+count, len - count);
  1089. +       if (r < 0)
  1090. +          break;
  1091. +       else
  1092. +          count += r;
  1093. +    }
  1094. +    return count;
  1095. +    }
  1096. +    
  1097. + #else
  1098. + 
  1099.   int
  1100.   Write(fd,buff,len)
  1101.   register int fd, len;
  1102. ***************
  1103. *** 44,46 ****
  1104. --- 66,69 ----
  1105.         }
  1106.      return(count);
  1107.      }
  1108. + #endif /* atarist */
  1109. *** src/orig/write_ok.c    Sun Aug  5 13:56:48 1990
  1110. --- src/write_ok.c    Tue Sep 18 19:35:40 1990
  1111. ***************
  1112. *** 68,75 ****
  1113. --- 68,79 ----
  1114.   char *name;        /* file to check mode for */
  1115.   int mask;        /* these bits must be turned off */
  1116.      {
  1117. + #ifdef atarist
  1118. +    return 1;        /* security? we don't need no steenking security :-( */
  1119. + #else
  1120.      struct stat buff;
  1121.      if (stat(name,&buff) < 0)
  1122.         return(0);
  1123.      return((buff.st_mode&mask) == 0);
  1124. + #endif
  1125.      }
  1126.