home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / mint / atarimgr / atari / demo.dif next >
Encoding:
Text File  |  1990-10-20  |  29.9 KB  |  1,236 lines
  1. *** icon/orig/browse.c    Thu Aug 24 07:41:54 1989
  2. --- icon/browse.c    Tue Sep 11 16:31:12 1990
  3. ***************
  4. *** 62,73 ****
  5.      int n = -1;                /* current icon */
  6.      int clean();
  7.      char *getenv();
  8.      FILE *popen(), *fd = popen("/bin/pwd","r");
  9. ! 
  10.      ckmgrterm( *argv );
  11.   
  12.      debug = (int) getenv("DEBUG");
  13.   
  14.      if (fd) {
  15.         fgets(cwd,sizeof(cwd),fd);
  16.         *(cwd + strlen(cwd) - 1) = '\0';    /* blah */
  17. --- 62,77 ----
  18.      int n = -1;                /* current icon */
  19.      int clean();
  20.      char *getenv();
  21. + #ifndef atarist
  22.      FILE *popen(), *fd = popen("/bin/pwd","r");
  23. ! #endif
  24.      ckmgrterm( *argv );
  25.   
  26.      debug = (int) getenv("DEBUG");
  27.   
  28. + #ifdef atarist
  29. +    getcwd(cwd, sizeof(cwd));
  30. + #else
  31.      if (fd) {
  32.         fgets(cwd,sizeof(cwd),fd);
  33.         *(cwd + strlen(cwd) - 1) = '\0';    /* blah */
  34. ***************
  35. *** 78,83 ****
  36. --- 82,88 ----
  37.         fprintf(stderr,"%s: can't get current directory\n",*argv);
  38.         exit(2);
  39.         }
  40. + #endif
  41.   
  42.      if (argc <2 || argc > MAXICONS) {
  43.         fprintf(stderr,"usage: %s icons... (up to %d)\n",*argv,MAXICONS);
  44. *** icon/orig/snap.c    Tue Jan 24 15:59:30 1989
  45. --- icon/snap.c    Sun Sep 23 18:52:06 1990
  46. ***************
  47. *** 70,75 ****
  48. --- 70,78 ----
  49.   
  50.      FILE *pf;
  51.      
  52. + #ifdef atarist
  53. +    _binmode(1);
  54. + #endif
  55.      ckmgrterm();
  56.   
  57.      debug = (int) getenv("DEBUG");
  58. ***************
  59. *** 140,146 ****
  60. --- 143,153 ----
  61.      menu_load(1,MENU_COUNT,menu);
  62.      menu_load(2,MENU_COUNT,rop);
  63.      m_selectmenu(1);
  64. + #ifdef atarist
  65. +    m_linkmenu(1,2,2,MF_AUTO);
  66. + #else
  67.      m_linkmenu(1,2,2,6);
  68. + #endif
  69.      m_clearmode(M_ACTIVATE);
  70.   
  71.      m_flush();
  72. ***************
  73. *** 204,211 ****
  74. --- 211,222 ----
  75.            break;
  76.         case 'F':                  /* file it */
  77.            if (tmp && !snapping) {
  78. + #ifdef atarist
  79. +             fclose(fp); fp = fopen(name, "w");
  80. + #else
  81.               fseek(fp,0L,0);
  82.               ftruncate(fileno(fp),0);
  83. + #endif
  84.           if (!bitmapwrite(fp,tmp,format) ) {
  85.                  m_push(P_ALL);
  86.                  m_font(0);
  87. *** icon/orig/zoom.c    Tue Jan 24 16:00:56 1989
  88. --- icon/zoom.c    Wed Sep 19 09:22:42 1990
  89. ***************
  90. *** 17,22 ****
  91. --- 17,25 ----
  92.   #include <sys/file.h>
  93.   #include "term.h"
  94.   #include "bitmap.h"
  95. + #ifdef atarist
  96. + #include "dump.h"
  97. + #endif
  98.   
  99.   /* general defines */
  100.   
  101. ***************
  102. *** 151,157 ****
  103. --- 154,164 ----
  104.   int debug=0;
  105.   char *title[MAXMARK];        /* title goes here */
  106.   int xmax,ymax,border;        /* screen parameters */
  107. + #ifdef atarist
  108. + char *str_save();
  109. + #else
  110.   char *str_save(), *sprintf();
  111. + #endif
  112.   char *prog;
  113.   
  114.   main(argc,argv)
  115. ***************
  116. *** 185,191 ****
  117. --- 192,202 ----
  118.      char dims[12];        /* string buffer for icon dims */
  119.      char line[512];        /* input buffer */
  120.   
  121. + #ifdef atarist
  122. +    char *malloc(), *rindex(), *get_str(), *strcpy();
  123. + #else
  124.      char *sprintf(), *malloc(), *rindex(), *get_str(), *strcpy();
  125. + #endif
  126.      int clean(), message();
  127.   
  128.      BITMAP *map;                /* what your editting */
  129. ***************
  130. *** 269,275 ****
  131. --- 280,291 ----
  132.      m_clear();
  133.      title[T_FUNC] = modes[mode].value;
  134.      title[T_OP] = options[function].value;
  135. + #ifdef atarist
  136. +    sprintf(dims,"%d x %d",W(map),H(map));
  137. +    title[T_SIZE] = dims;
  138. + #else
  139.      title[T_SIZE] = sprintf(dims,"%d x %d",W(map),H(map));
  140. + #endif
  141.      title[T_NAME] = name;
  142.      title[4] = NULL;
  143.      Do_title(title);
  144. ***************
  145. *** 383,390 ****
  146. --- 399,412 ----
  147.                       if (!yanked)
  148.                          message(SETMSG,"Can't yank bitmap");
  149.                       else
  150. + #ifdef atarist
  151. +                { sprintf(line, "Yanked bitmap %d x %d", W(new), H(new));
  152. +              message(SETMSG, line);
  153. +                }
  154. + #else
  155.                          message(SETMSG,sprintf(line,"Yanked bitmap %d x %d",
  156.                                  W(new),H(new)));
  157. + #endif
  158.                       break;
  159.                    case PUT:
  160.                       if (!yanked) {
  161. ***************
  162. *** 432,439 ****
  163. --- 454,466 ----
  164.                       zoom(map,x0,y0,x,y,SET);
  165.                       if (grid)
  166.                          draw_grid(map,x0,y0,x,y);
  167. + #ifdef atarist
  168. +                     sprintf(dims,"%d x %d", W(map),H(map));
  169. +             title[T_SIZE] = dims;
  170. + #else
  171.                       title[T_SIZE] = sprintf(dims,"%d x %d",
  172.                               W(map),H(map));
  173. + #endif
  174.                       Do_title(title);
  175.                       break;
  176.                    case GROW:
  177. ***************
  178. *** 456,463 ****
  179. --- 483,495 ----
  180.                       zoom(map,x0,y0,x,y,SET);
  181.                       if (grid)
  182.                          draw_grid(map,x0,y0,x,y);
  183. + #ifdef atarist
  184. +                     title[T_SIZE] = dims; sprintf(dims,"%d x %d",
  185. +                             W(map),H(map));
  186. + #else
  187.                       title[T_SIZE] = sprintf(dims,"%d x %d",
  188.                               W(map),H(map));
  189. + #endif
  190.                       Do_title(title);
  191.                       break;
  192.                    case SHIFT:
  193. ***************
  194. *** 522,528 ****
  195. --- 554,564 ----
  196.              zoom(map,x0,y0,x,y,SET);
  197.              if (grid)
  198.                 draw_grid(map,x0,y0,x,y);
  199. + #ifdef atarist
  200. +            title[T_SIZE] = dims; sprintf(dims,"%d x %d",W(map),H(map));
  201. + #else
  202.              title[T_SIZE] = sprintf(dims,"%d x %d",W(map),H(map));
  203. + #endif
  204.              Do_title(title);
  205.              if (function)
  206.                 INVERT(T_OP);
  207. ***************
  208. *** 560,566 ****
  209. --- 596,606 ----
  210.                 m_clear();
  211.                 code = get_scale(&x,&y,map);
  212.                 zoom(map,x0,y0,x,y,SET);
  213. + #ifdef atarist
  214. +               title[T_SIZE] = dims; sprintf(dims,"%d x %d",W(map),H(map));
  215. + #else
  216.                 title[T_SIZE] = sprintf(dims,"%d x %d",W(map),H(map));
  217. + #endif
  218.                 title[T_NAME] = strcpy(name,pntr);
  219.                 Do_title(title);
  220.                 if (grid)
  221. ***************
  222. *** 575,582 ****
  223. --- 615,628 ----
  224.                    bit_destroy(yanked);
  225.                 yanked = new;
  226.                 new = BIT_NULL;
  227. + #ifdef atarist
  228. +               sprintf(line,"Yanked %s (%d x %d)",
  229. +                       pntr,W(yanked),H(yanked));
  230. +           message(SETMSG, line);
  231. + #else
  232.                 message(SETMSG,sprintf(line,"Yanked %s (%d x %d)",
  233.                         pntr,W(yanked),H(yanked)));
  234. + #endif
  235.                 if (function == YANK) {
  236.                    INVERT(T_OP); 
  237.                    function = 0;
  238. ***************
  239. *** 655,661 ****
  240.                 zoom(map,x0,y0,x,y,SET);
  241.                 if (grid)
  242.                    draw_grid(map,x0,y0,x,y);
  243. !               title[T_SIZE] = sprintf(dims,"%d x %d", W(map),H(map));
  244.                 Do_title(title);
  245.                 }
  246.              break;
  247. --- 701,707 ----
  248.                 zoom(map,x0,y0,x,y,SET);
  249.                 if (grid)
  250.                    draw_grid(map,x0,y0,x,y);
  251. !               title[T_SIZE] = dims; sprintf(dims,"%d x %d", W(map),H(map));
  252.                 Do_title(title);
  253.                 }
  254.              break;
  255. ***************
  256. *** 907,919 ****
  257. --- 953,975 ----
  258.      char tmp[100];
  259.   
  260.      if ((fp = fopen(name,"r")) == NULL ) {
  261. + #ifdef atarist
  262. +       sprintf(tmp, "Can't find %s", name);
  263. +       message(SETMSG, tmp);
  264. + #else
  265.         message(SETMSG,sprintf(tmp,"Can't find %s",name));
  266. + #endif
  267.         return(BIT_NULL);
  268.         }
  269.   
  270.      if( !( map = bitmapread(fp) ) ) {
  271.         fclose(fp);
  272. + #ifdef atarist
  273. +       sprintf(tmp, "%s is not an icon or is damaged", name);
  274. +       message(SETMSG, tmp);
  275. + #else
  276.         message(SETMSG,sprintf(tmp,"%s is not an icon or is damaged",name));
  277. + #endif
  278.         return(BIT_NULL);
  279.         }
  280.   
  281. ***************
  282. *** 956,964 ****
  283. --- 1012,1027 ----
  284.      FILE *fp = fopen(name,"w");
  285.      char tmp[100];
  286.   
  287. + #ifdef atarist
  288. +    if (fp == NULL  || !bitmapwrite(fp,map,NEW_BHDR)) {
  289. +       dprintf(stderr, "Can't write file %s\n",name);
  290. +       sprintf(tmp, "Can't write file %s",name);
  291. +       message(SETMSG,tmp);
  292. + #else
  293.      if (fp == NULL  ||  !bitmapwrite(fp,map)) {
  294.         dprintf(stderr,"Can't write file %s\n",name);
  295.         message(SETMSG,sprintf(tmp,"Can't write file %s",name));
  296. + #endif
  297.         return(0);
  298.         }
  299.      fclose(fp);
  300. *** ify/orig/icondata.c    Mon Oct  2 09:17:26 1989
  301. --- ify/icondata.c    Mon Sep 17 21:54:50 1990
  302. ***************
  303. *** 64,77 ****
  304.       int s, old_mode, new_mode;
  305.   
  306.       m_flush();
  307.       ioctl(fileno(m_termout),TIOCLGET,&old_mode);
  308.       new_mode = old_mode | LLITOUT;
  309.       ioctl(fileno(m_termout),TIOCLSET,&new_mode);
  310. ! 
  311.       m_bitdestroy(n);
  312.       m_bitldto(*w=68,*h=55,0,0,n,s=B_SIZE32(68,55,1));
  313.       fwrite(iconbits,s,1,m_termout);
  314.       m_flush();
  315. ! 
  316.       ioctl(fileno(m_termout),TIOCLSET,&old_mode);
  317.   }
  318. --- 64,79 ----
  319.       int s, old_mode, new_mode;
  320.   
  321.       m_flush();
  322. + #ifndef atarist
  323.       ioctl(fileno(m_termout),TIOCLGET,&old_mode);
  324.       new_mode = old_mode | LLITOUT;
  325.       ioctl(fileno(m_termout),TIOCLSET,&new_mode);
  326. ! #endif
  327.       m_bitdestroy(n);
  328.       m_bitldto(*w=68,*h=55,0,0,n,s=B_SIZE32(68,55,1));
  329.       fwrite(iconbits,s,1,m_termout);
  330.       m_flush();
  331. ! #ifndef atarist
  332.       ioctl(fileno(m_termout),TIOCLSET,&old_mode);
  333. + #endif
  334.   }
  335. *** ify/orig/ify.c    Mon Oct  2 09:17:28 1989
  336. --- ify/ify.c    Tue Sep 18 23:44:54 1990
  337. ***************
  338. *** 62,68 ****
  339.   
  340.   /* general tty mashing stuff: */
  341.   #define TTYSUFFIXLEN (3)    /* length of ptty suffix + 1 */
  342. ! #define TTYPREFIX "/dev/tty"    /* prefix for pttys */
  343.   #define TTYPREFIXLEN (sizeof(TTYPREFIX)+1) /* length of TTYPREFIX+1 */
  344.   char ttytemp[TTYPREFIXLEN+TTYSUFFIXLEN];    /* for FULLTTYNAME() */
  345.   #define FULLTTYNAME(suff)    /* make full name from suffix - temporary! */\
  346. --- 62,73 ----
  347.   
  348.   /* general tty mashing stuff: */
  349.   #define TTYSUFFIXLEN (3)    /* length of ptty suffix + 1 */
  350. ! #ifdef atarist
  351. ! #define TTYPREFIX "Q:/ttyp."    /* prefix for pttys */
  352. ! #else
  353. ! #define TTYPREFIX "/dev/tty"
  354. ! #endif
  355. ! 
  356.   #define TTYPREFIXLEN (sizeof(TTYPREFIX)+1) /* length of TTYPREFIX+1 */
  357.   char ttytemp[TTYPREFIXLEN+TTYSUFFIXLEN];    /* for FULLTTYNAME() */
  358.   #define FULLTTYNAME(suff)    /* make full name from suffix - temporary! */\
  359. ***************
  360. *** 172,177 ****
  361. --- 177,186 ----
  362.       m_ttyset();
  363.       m_push(P_EVENT | P_FLAGS | P_MENU | P_POSITION);
  364.       signal(SIGINT, catchint);
  365. + #ifdef atarist
  366. +     signal(SIGTTOU, SIG_IGN);
  367. +     signal(SIGTTIN, SIG_IGN);
  368. + #endif
  369.       DUPKEYOFF;
  370.       m_setmode(M_ABS);
  371.       m_setmode(M_NOWRAP);
  372. ***************
  373. *** 179,184 ****
  374. --- 188,196 ----
  375.       m_func(B_SRC);
  376.       m_flush();
  377.   
  378. + #ifdef atarist
  379. +     strcpy(ourtty, "/dev/fd2");        /* sigh -- the best we can do */
  380. + #else
  381.       {
  382.       char *ttyname();
  383.       char *t = ttyname(2);    /* get tty attached to stderr */
  384. ***************
  385. *** 187,203 ****
  386. --- 199,223 ----
  387.           shutdown("Can't find name of tty");
  388.       strcpy(ourtty, t);    /* make a copy of ttyname()'s value */
  389.       }
  390. + #endif
  391.   
  392.       /* turn off general write permission to the tty, so we can accept
  393.          m_sendme() messages */
  394.       {
  395. + #ifdef atarist
  396. +     oldmode = 0600;
  397. + #else
  398.       struct stat ttymode;
  399.   
  400.       if (stat(ourtty, &ttymode) == -1)
  401.         closedown(THEERROR("ourtty stat: "));
  402.       oldmode = ttymode.st_mode; /* get the old protection bits */
  403. + #endif
  404.       }
  405.   
  406. + #ifdef atarist
  407. +     windowpid = 0;
  408. + #else
  409.       /* Can we use m_sendto messages? */
  410.       if ((oldmode & 077) == 0 || chmod(ourtty, 00600) != -1)
  411.         windowpid = getwid();
  412. ***************
  413. *** 215,220 ****
  414. --- 235,241 ----
  415.       m_pop();
  416.       m_flush();
  417.       }
  418. + #endif
  419.   
  420.       get_param(NULL, &disp_w, &disp_h, &border);
  421.       get_font(&font_w, &font_h);
  422. ***************
  423. *** 437,443 ****
  424. --- 458,468 ----
  425.           FILE *ttyfp, *oldtermout;
  426.           int ttyfd;
  427.   
  428. + #ifdef atarist
  429. +         if ((ttyfp = fopen(FULLTTYNAME(tty), "a")) == NULL)
  430. + #else
  431.           if ((ttyfp = fopen(FULLTTYNAME(tty), "w")) == NULL)
  432. + #endif
  433.             closedown(THEERROR("open tty II: "));
  434.           ttyfd = fileno(ttyfp);
  435.   
  436. ***************
  437. *** 451,457 ****
  438. --- 476,486 ----
  439.           DUPKEYON;
  440.           
  441.           /* make sure that the window isn't currently ^S-ed */
  442. + #ifdef atarist
  443. +         if (iocuddle(ttyfd, TIOCSTART, 0) == -1)
  444. + #else
  445.           if (iocuddle(ttyfd, TIOCSTART) == -1)
  446. + #endif
  447.             closedown(THEERROR("iocuddle TIOCSTART II: "));
  448.   
  449.           /* don't notice the windows that haven't been closed yet */
  450. ***************
  451. *** 490,502 ****
  452.             sleep(WAITTIME);
  453.   
  454.           /* stop all output to that ptty */
  455.           if (iocuddle(ttyfd, TIOCSTOP) == -1)
  456.             closedown(THEERROR("iocuddle TIOCSTOP: "));
  457.           
  458.           /* queue escape codes to re-open them when output is
  459.              re-enabled */
  460.           foreachwindow(layout, layoutlen, tty, queueopen, CNULL);
  461. ! 
  462.           fclose(ttyfp);    /* close the tty - we're done */
  463.   
  464.           makemenu();        /* refresh the menu's view of life */
  465. --- 519,536 ----
  466.             sleep(WAITTIME);
  467.   
  468.           /* stop all output to that ptty */
  469. + #ifdef atarist
  470. +         if (iocuddle(ttyfd, TIOCSTOP, 0) == -1)
  471. + #else
  472.           if (iocuddle(ttyfd, TIOCSTOP) == -1)
  473. + #endif
  474.             closedown(THEERROR("iocuddle TIOCSTOP: "));
  475.           
  476. + #ifndef atarist
  477.           /* queue escape codes to re-open them when output is
  478.              re-enabled */
  479.           foreachwindow(layout, layoutlen, tty, queueopen, CNULL);
  480. ! #endif
  481.           fclose(ttyfp);    /* close the tty - we're done */
  482.   
  483.           makemenu();        /* refresh the menu's view of life */
  484. ***************
  485. *** 535,546 ****
  486.       /* quick hack for positioning windows on a full screen */
  487.       static int next_x, next_y, widest;
  488.   
  489.       if (w->num == 0)
  490.         sprintf(title, "%-5s",
  491. !           (notify[0] == '\0' ? FULLTTYNAME(w->tty) : notify));
  492.       else
  493.         sprintf(title, "%-5s(%d)",
  494. !           (notify[0] == '\0' ? FULLTTYNAME(w->tty) : notify),
  495.             w->num);
  496.   
  497.       width = strlen(title)*font_w + 2*border;
  498. --- 569,586 ----
  499.       /* quick hack for positioning windows on a full screen */
  500.       static int next_x, next_y, widest;
  501.   
  502. + #ifdef atarist
  503. + #define NM_OFFSET 3
  504. + #else
  505. + #define NM_OFFSET 0
  506. + #endif
  507. + 
  508.       if (w->num == 0)
  509.         sprintf(title, "%-5s",
  510. !           (notify[0] == '\0' ? FULLTTYNAME(w->tty)+NM_OFFSET : notify));
  511.       else
  512.         sprintf(title, "%-5s(%d)",
  513. !           (notify[0] == '\0' ? FULLTTYNAME(w->tty)+NM_OFFSET : notify),
  514.             w->num);
  515.   
  516.       width = strlen(title)*font_w + 2*border;
  517. ***************
  518. *** 627,635 ****
  519. --- 667,689 ----
  520.       m_flush();
  521.   
  522.       /* re-enable output to that ptty */
  523. + #ifdef atarist
  524. +     DUPKEYOFF;
  525. +     layoutlen = get_all(layout);
  526. +     DUPKEYON;
  527. + 
  528. +     if (iocuddle(ttyfd, TIOCSTART, 0) == -1)
  529. + #else
  530.       if (iocuddle(ttyfd, TIOCSTART) == -1)
  531. + #endif
  532.         closedown(THEERROR("iocuddle TIOCSTART: "));
  533.       
  534. + #ifdef atarist
  535. +         /* send escape codes to re-open them when output is
  536. +            re-enabled */
  537. +         foreachwindow(layout, layoutlen, tty, queueopen, CNULL);
  538. + #endif
  539. + 
  540.       /* queue escape codes to let us know when they're all
  541.          opened, if we can */
  542.       if (windowpid != 0) {
  543. *** misc/orig/getpty.c    Thu Aug 24 07:29:46 1989
  544. --- misc/getpty.c    Wed Sep 19 10:45:08 1990
  545. ***************
  546. *** 12,18 ****
  547. --- 12,25 ----
  548.   #include <sys/wait.h>
  549.   
  550.   #include <sys/file.h>
  551. + #ifdef atarist
  552. + #include <signal.h>
  553. + #include <osbind.h>
  554. + #define TBDELAY 0
  555. + #define getdtablesize() 20
  556. + #else
  557.   #include <sys/signal.h>
  558. + #endif
  559.   #include <sgtty.h>
  560.   #include <stdio.h>
  561.   
  562. ***************
  563. *** 19,24 ****
  564. --- 26,37 ----
  565.   #include <errno.h>
  566.   #include <pwd.h>
  567.   
  568. + #ifdef atarist
  569. + # ifndef EWOULDBLOCK
  570. + #  define EWOULDBLOCK 130
  571. + # endif
  572. + #endif
  573. + 
  574.   /*
  575.   **    size of input and output buffers
  576.   */
  577. ***************
  578. *** 252,259 ****
  579. --- 265,277 ----
  580.   #define index        strchr
  581.   #endif
  582.   
  583. + #ifdef atarist
  584. + static char *line = "Q:/ttyp.XX";
  585. + static int  pty_index=5;    /* better hit rate than 0 */
  586. + #else
  587.   static char *line = "/dev/ptypX";
  588.   static int  pty_index=5;    /* better hit rate than 0 */
  589. + #endif
  590.   extern char **environ;
  591.   
  592.   /* place to save tty modes */
  593. ***************
  594. *** 273,279 ****
  595. --- 291,299 ----
  596.      char list[20];
  597.   
  598.      strcpy(list,"0123456789abcdef");
  599. + #ifndef atarist
  600.      line[5] = 'p';
  601. + #endif
  602.   /*
  603.      for(line[8]='p';line[8]!='r';line[8]='q')
  604.   */
  605. ***************
  606. *** 284,296 ****
  607. --- 304,322 ----
  608.        {
  609.           printf("trying %s\n",line);
  610.        }
  611. + #ifdef atarist
  612. +      if ((fd = Fcreate(line, FA_SYSTEM|FA_HIDDEN)) >= 0) {
  613. + #else
  614.            if ((fd = open(line,2)) >= 0) {
  615. + #endif
  616.               /* pty_index = (pty_index+i)%16; */
  617.           if (verboseflag)
  618.           {
  619.           printf("   GOT %s\n",line);
  620.           }
  621. + #ifndef atarist
  622.               line[5] = 't';
  623. + #endif
  624.               return(fd);
  625.               }
  626.            }
  627. ***************
  628. *** 300,306 ****
  629. --- 326,334 ----
  630.   int getatty()
  631.      {
  632.      int fd;
  633. + #ifndef atarist
  634.      line[5]='t';
  635. + #endif
  636.      fd=open(line,2);
  637.      if (fd<0) {
  638.         sleep(3);
  639. ***************
  640. *** 354,366 ****
  641. --- 382,398 ----
  642.   
  643.      if ((*file=getapty()) < 0)
  644.         return(-1);
  645. + #ifndef atarist
  646.      ioctl(*file,TIOCREMOTE,0);    /* I dunno */
  647.   
  648.      ioctl(0,TIOCGETD,&t_ldisc);
  649. + #endif
  650.      ioctl(0,TIOCGETP,&t_sgttyb);
  651.      ioctl(0,TIOCGETC,&t_tchars);
  652.      ioctl(0,TIOCGLTC,&t_ltchars);
  653. + #ifndef atarist
  654.      ioctl(0,TIOCLGET,&t_lflags);
  655. + #endif
  656.   
  657.      if ((pid=fork()) != 0) {
  658.         return(pid);
  659. ***************
  660. *** 395,400 ****
  661. --- 427,433 ----
  662.   
  663.      /* set the uid stuff up */
  664.   
  665. + #ifndef atarist
  666.      if (geteuid() < 2) {
  667.         int uid = getuid();
  668.         fchmod(fd,0622);
  669. ***************
  670. *** 408,425 ****
  671.   
  672.      dup(fd), dup(fd), dup(fd);
  673.      close(fd);
  674. ! 
  675.      setpgrp(group,group);
  676.      ioctl(0,TIOCSPGRP,&group);
  677.   
  678.      t_ldisc=NTTYDISC;
  679.      t_sgttyb.sg_flags = ECHO|CRMOD|EVENP|ODDP;
  680.   
  681.      ioctl(0,TIOCSETD,&t_ldisc);
  682.      ioctl(0,TIOCSETP,&t_sgttyb);
  683.      ioctl(0,TIOCSETC,&t_tchars);
  684.      ioctl(0,TIOCSLTC,&t_ltchars);
  685.      ioctl(0,TIOCLSET,&t_lflags);
  686.   
  687.      /* add a utmp entry */
  688.   
  689. --- 441,467 ----
  690.   
  691.      dup(fd), dup(fd), dup(fd);
  692.      close(fd);
  693. ! #else
  694. !    Fforce(-1, fd); Fforce(0, fd); Fforce(1, fd); Fforce(2, fd);
  695. !    Fclose(fd);
  696. ! #endif
  697.      setpgrp(group,group);
  698.      ioctl(0,TIOCSPGRP,&group);
  699.   
  700. + #ifndef atarist
  701.      t_ldisc=NTTYDISC;
  702. + #endif
  703.      t_sgttyb.sg_flags = ECHO|CRMOD|EVENP|ODDP;
  704.   
  705. + #ifndef atarist
  706.      ioctl(0,TIOCSETD,&t_ldisc);
  707. + #endif
  708.      ioctl(0,TIOCSETP,&t_sgttyb);
  709.      ioctl(0,TIOCSETC,&t_tchars);
  710.      ioctl(0,TIOCSLTC,&t_ltchars);
  711. + #ifndef atarist
  712.      ioctl(0,TIOCLSET,&t_lflags);
  713. + #endif
  714.   
  715.      /* add a utmp entry */
  716.   
  717. ***************
  718. *** 448,453 ****
  719. --- 490,508 ----
  720.   
  721.   /* get a complete path name from command */
  722.   
  723. + #ifdef atarist
  724. + char *
  725. + get_path(name)
  726. + char *name;
  727. +    {
  728. +    char *getenv(), *findfile();
  729. +    static char *extensions[] = { "ttp", "prg", "tos", 0 };
  730. + 
  731. +    return findfile(name, getenv("PATH"), extensions);
  732. +    }
  733. + 
  734. + #else /* !atarist */
  735. + 
  736.   static char path[512];
  737.   static char start[512];
  738.   
  739. ***************
  740. *** 490,495 ****
  741. --- 545,552 ----
  742.         return((char *) 0);
  743.         }
  744.      }
  745. + 
  746. + #endif /* atarist */
  747.   
  748.   /* change an environment variable */
  749.   
  750. *** misc/orig/lock.c    Fri Sep 29 16:18:34 1989
  751. --- misc/lock.c    Wed Sep 19 11:55:50 1990
  752. ***************
  753. *** 5,11 ****
  754.    *       on copies, and credit should be given to Bellcore where it is due.
  755.    *       BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
  756.    */
  757. ! /* ************************************************************ *\
  758.   /* star-trek lock screen (sau/sdh) */
  759.   
  760.   #include <sgtty.h>
  761. --- 5,12 ----
  762.    *       on copies, and credit should be given to Bellcore where it is due.
  763.    *       BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
  764.    */
  765. ! 
  766. ! /* ************************************************************ */
  767.   /* star-trek lock screen (sau/sdh) */
  768.   
  769.   #include <sgtty.h>
  770. ***************
  771. *** 19,31 ****
  772.   #define HIGH    BIT_HIGH(display)
  773.   #define NICE    10
  774.   
  775.   struct passwd *pwd, *getpwuid();
  776.   struct timeval poll = {0,50000};
  777.   struct sgttyb sg,save;
  778.   char buff[100];
  779.   static int dir = 1;
  780.   
  781. ! main()
  782.      {
  783.      int read;
  784.       int pid;
  785. --- 20,39 ----
  786.   #define HIGH    BIT_HIGH(display)
  787.   #define NICE    10
  788.   
  789. + #ifdef atarist
  790. + char passwd[80];
  791. + struct timeval poll = {1,0};
  792. + #else
  793.   struct passwd *pwd, *getpwuid();
  794.   struct timeval poll = {0,50000};
  795. + #endif
  796.   struct sgttyb sg,save;
  797.   char buff[100];
  798.   static int dir = 1;
  799.   
  800. ! main(argc, argv)
  801. !    int argc;
  802. !    char *argv[];
  803.      {
  804.      int read;
  805.       int pid;
  806. ***************
  807. *** 38,44 ****
  808. --- 46,56 ----
  809.           exit(1);
  810.         }
  811.   
  812. + #ifdef atarist
  813. +    strcpy(passwd, argv[1] ? argv[1] : "");
  814. + #else
  815.      pwd = getpwuid(getuid());
  816. + #endif
  817.   
  818.      signal(SIGINT,SIG_IGN);
  819.      signal(SIGHUP,SIG_IGN);
  820. ***************
  821. *** 56,72 ****
  822.      bit_blit(display,0,0,WIDE,HIGH,BIT_SET,NULL,0,0);
  823.      if (NICE > 0)
  824.         nice(NICE);
  825.       if ((pid=fork()) == 0) {/* child */
  826.           signal(SIGALRM,flop);
  827.           fly(display);
  828.           }
  829. !    else {
  830.           while(1) {
  831.               read = 1;
  832.               if (select(32,&read,0,0,&poll) && read) {
  833.                   gets(buff);
  834.                   kill(pid,SIGALRM);    /* change directions */
  835.                   if (strcmp(pwd->pw_passwd,crypt(buff,pwd->pw_passwd)) == 0) {
  836.                       stty(0,&save);
  837.                       kill(pid,SIGKILL);
  838.                       while(wait(0)!=pid);
  839. --- 68,94 ----
  840.      bit_blit(display,0,0,WIDE,HIGH,BIT_SET,NULL,0,0);
  841.      if (NICE > 0)
  842.         nice(NICE);
  843. + #ifdef atarist
  844. +         { void _do_fly();
  845. +            pid = tfork(_do_fly, display);
  846. +         }
  847. + #else
  848.       if ((pid=fork()) == 0) {/* child */
  849.           signal(SIGALRM,flop);
  850.           fly(display);
  851.           }
  852. !       else {
  853. ! #endif
  854.           while(1) {
  855.               read = 1;
  856.               if (select(32,&read,0,0,&poll) && read) {
  857.                   gets(buff);
  858.                   kill(pid,SIGALRM);    /* change directions */
  859. + #ifdef atarist
  860. +                 if (strcmp(passwd,buff) == 0) {
  861. + #else
  862.                   if (strcmp(pwd->pw_passwd,crypt(buff,pwd->pw_passwd)) == 0) {
  863. + #endif
  864.                       stty(0,&save);
  865.                       kill(pid,SIGKILL);
  866.                       while(wait(0)!=pid);
  867. ***************
  868. *** 75,81 ****
  869. --- 97,105 ----
  870.                       }
  871.                   }
  872.               }
  873. + #ifndef atarist
  874.           }
  875. + #endif
  876.       }
  877.   
  878.   /* star trek effect */
  879. ***************
  880. *** 94,100 ****
  881. --- 118,128 ----
  882.   #define BG_COLOR    4        /* usually blue */
  883.   #define SSIZE    2    /* star size */
  884.   #define MAXZ 500 /* maximum z depth */
  885. + #ifdef atarist
  886. + #define NSTARS 128
  887. + #else
  888.   #define NSTARS 256 /* maximum number of stars */
  889. + #endif
  890.   #define SPEED    6        /* star speed */
  891.   #define SCALE    (short)7    /* for rotator */
  892.   #define COUNT    (short)3    /* for rotator */
  893. ***************
  894. *** 243,245 ****
  895. --- 271,331 ----
  896.      {
  897.      dir = 1-dir;
  898.       }
  899. + 
  900. + #ifdef atarist
  901. + void
  902. + _do_fly(display)
  903. +     BITMAP *display;
  904. + {
  905. +     signal(SIGALRM, flop);
  906. +     fly(display);
  907. + }
  908. + 
  909. + /*
  910. +  * routines to fork off a thread to do the star flying
  911. +  */
  912. + 
  913. + #undef Random
  914. + #include <osbind.h>
  915. + #include <basepage.h>
  916. + 
  917. + #define STKSIZE 8192L
  918. + 
  919. + void
  920. + _start_thread(b)
  921. +     BASEPAGE *b;
  922. + {
  923. +     void (*func)();
  924. +     long arg;
  925. + 
  926. +     func = (void (*)())b->p_dbase;
  927. +     arg = b->p_dlen;
  928. +     func(arg);
  929. +     Pterm0();
  930. + }
  931. + 
  932. + int
  933. + tfork(func, arg)
  934. +     void (*func)();
  935. +     long arg;
  936. + {
  937. +     BASEPAGE *b;
  938. +     int pid;
  939. + 
  940. +     b = (BASEPAGE *)Pexec(PE_CBASEPAGE, 0L, "", 0L);
  941. +     Mshrink(b, STKSIZE);
  942. +     b->p_tbase = (char *)_start_thread;
  943. +     b->p_dbase = (char *)func;
  944. +     b->p_dlen = arg;
  945. +     pid = Pexec(104, 0L, b, 0L);
  946. +     return pid;
  947. + }
  948. + 
  949. + nice(x)
  950. + {
  951. + /* we should maybe call the MiNT Pnice() function; but we could get
  952. +    locked out if someone else has a high priority
  953. +  */
  954. + }
  955. + 
  956. + #endif /* atarist */
  957. *** misc/orig/mgrmode.c    Tue Jan 24 15:58:36 1989
  958. --- misc/mgrmode.c    Wed Sep 19 12:06:04 1990
  959. ***************
  960. *** 126,131 ****
  961. --- 126,143 ----
  962.   }
  963.   
  964.   
  965. + #if __STDC__
  966. + #define    CASE(arg)    if( EQ(#arg, mode) ) {\
  967. +                 switch( setclear ) {\
  968. +                 case SET:\
  969. +                     m_setmode( M_##arg );\
  970. +                     return;\
  971. +                 case CLEAR:\
  972. +                     m_clearmode( M_##arg );\
  973. +                     return;\
  974. +                 }\
  975. +             }
  976. + #else
  977.   #define    CASE(arg)    if( EQ("arg", mode) ) {\
  978.                   switch( setclear ) {\
  979.                   case SET:\
  980. ***************
  981. *** 136,141 ****
  982. --- 148,154 ----
  983.                       return;\
  984.                   }\
  985.               }
  986. + #endif
  987.   
  988.   static
  989.   action( setclear, mode, originalmode )
  990. *** misc/orig/set_emacs.c    Thu Jun  8 14:17:12 1989
  991. --- misc/set_emacs.c    Thu Sep 27 23:27:40 1990
  992. ***************
  993. *** 17,22 ****
  994. --- 17,35 ----
  995.   
  996.   #define ENTRY    "\'px|mgr|mgr teminal emulator:am:km:li#%d:co#%d:bs:cl=^L:ce=\\Ec:cd=\\EC:cm=\\E%%r%%d,%%dM:cs=\\E%%d,%%d%t:ve=\\Et:al=\\Ea:AL=\\E%%da:DL=\\E%%dd:dl=\\Ed:ic=\\EA:dc=\\EE:ta=^I:up=\\Eu:do=\\Ef:nd=\\Er:ku=\\E[A:kd=\\E[B:kr=\\E[C:kl=\\E[D:so=\\Ei:se=\\En:\'"
  997.   
  998. + #ifdef atarist
  999. + char *
  1000. + getpass(str)
  1001. + char *str;
  1002. + {
  1003. +     static char buf[80];
  1004. + 
  1005. +     fputs(str, stdout); fflush(stdout);
  1006. +     fgets(buf, 80, stdin);
  1007. +     return buf;
  1008. + }
  1009. + #endif
  1010. + 
  1011.   main(argc,argv)
  1012.   int argc;
  1013.   char **argv;
  1014. ***************
  1015. *** 38,48 ****
  1016. --- 51,67 ----
  1017.      sprintf(get,"%c%d%c",ESC,G_WINSIZE,E_GETINFO);
  1018.      sscanf(getpass(get),"%d %d\n",&cols,&rows);
  1019.      
  1020. + #ifdef atarist
  1021. +    if (b_flag && shell && strcmp(shell+strlen(shell)-2,"sh")!=0) {
  1022. + #else
  1023.      if (b_flag && shell && strcmp(shell+strlen(shell)-3,"csh")==0) {        /* csh */
  1024.         printf("set noglob;");
  1025. + #endif
  1026.         printf("setenv TERMCAP ");
  1027.         printf(ENTRY,rows,cols);
  1028. + #ifndef atarist
  1029.         printf(";unset noglob\n");
  1030. + #endif
  1031.         }
  1032.      else                            /* /bin/sh */
  1033.        {
  1034. ***************
  1035. *** 51,54 ****
  1036. --- 70,76 ----
  1037.         printf(ENTRY,rows,cols);
  1038.         putchar('\n');
  1039.        }
  1040. + #ifdef atarist
  1041. +    return 0;
  1042. + #endif
  1043.      } 
  1044. *** misc/orig/set_termcap.c    Tue Mar 21 08:35:58 1989
  1045. --- misc/set_termcap.c    Thu Sep 27 23:27:40 1990
  1046. ***************
  1047. *** 17,22 ****
  1048. --- 17,35 ----
  1049.   
  1050.   #define ENTRY    "\'px|mgr|mgr teminal emulator:am:li#%d:co#%d:bs:cl=^L:ce=\\Ec:cd=\\EC:cm=\\E%%r%%d,%%dM:al=\\Ea:dl=\\Ed:ic=\\EA:dc=\\EE:ta=^I:up=\\Eu:do=\\Ef:nd=\\Er:ku=\\E[A:kd=\\E[B:kr=\\E[C:kl=\\E[D:so=\\Ei:se=\\En:vs=\\EV:ve=\\Ev:\'"
  1051.   
  1052. + #ifdef atarist
  1053. + char *
  1054. + getpass(str)
  1055. + char *str;
  1056. + {
  1057. +     static char buf[80];
  1058. + 
  1059. +     fputs(str, stdout); fflush(stdout);
  1060. +     fgets(buf, 80, stdin);
  1061. +     return buf;
  1062. + }
  1063. + #endif
  1064. + 
  1065.   main(argc,argv)
  1066.   int argc;
  1067.   char **argv;
  1068. ***************
  1069. *** 37,48 ****
  1070.   
  1071.      sprintf(get,"%c%d%c",ESC,G_WINSIZE,E_GETINFO);
  1072.      sscanf(getpass(get),"%d %d\n",&cols,&rows);
  1073. !    
  1074.      if (b_flag && shell && strcmp(shell+strlen(shell)-3,"csh")==0) {        /* csh */
  1075.         printf("set noglob;");
  1076.         printf("setenv TERMCAP ");
  1077.         printf(ENTRY,rows,cols);
  1078.         printf(";unset noglob\n");
  1079.         }
  1080.      else                            /* /bin/sh */
  1081.        {
  1082. --- 50,67 ----
  1083.   
  1084.      sprintf(get,"%c%d%c",ESC,G_WINSIZE,E_GETINFO);
  1085.      sscanf(getpass(get),"%d %d\n",&cols,&rows);
  1086. ! 
  1087. ! #ifdef atarist
  1088. !    if (b_flag && shell && strcmp(shell+strlen(shell)-2,"sh")!=0) {
  1089. ! #else
  1090.      if (b_flag && shell && strcmp(shell+strlen(shell)-3,"csh")==0) {        /* csh */
  1091.         printf("set noglob;");
  1092. + #endif
  1093.         printf("setenv TERMCAP ");
  1094.         printf(ENTRY,rows,cols);
  1095. + #ifndef atarist
  1096.         printf(";unset noglob\n");
  1097. + #endif
  1098.         }
  1099.      else                            /* /bin/sh */
  1100.        {
  1101. ***************
  1102. *** 51,54 ****
  1103. --- 70,76 ----
  1104.         printf(ENTRY,rows,cols);
  1105.         putchar('\n');
  1106.        }
  1107. + #ifdef atarist
  1108. +    return 0;
  1109. + #endif
  1110.      } 
  1111. *** misc/orig/show.c    Tue Jan 16 11:18:30 1990
  1112. --- misc/show.c    Wed Sep 19 10:33:24 1990
  1113. ***************
  1114. *** 40,45 ****
  1115. --- 40,49 ----
  1116.       int op = - 1;
  1117.      int clean();
  1118.   
  1119. + #ifdef atarist
  1120. +    _binmode(1);
  1121. +    stdin->_flag |= _IOBIN;    /* make everything binary mode */
  1122. + #endif
  1123.      ckmgrterm( *argv );
  1124.   
  1125.      /* check arguments */
  1126. ***************
  1127. *** 91,98 ****
  1128. --- 95,104 ----
  1129.   
  1130.      m_setup(0);
  1131.   
  1132. + #ifndef atarist
  1133.      ioctl(fileno(m_termout),TIOCLGET,&mode);
  1134.      mode |= LLITOUT;
  1135. + #endif
  1136.   
  1137.      signal(SIGINT,clean);
  1138.      signal(SIGTERM,clean);
  1139. ***************
  1140. *** 100,106 ****
  1141. --- 106,114 ----
  1142.      get_size(&wx,&wy,0,0);
  1143.      get_param(0,0,0,&border);
  1144.   
  1145. + #ifndef atarist
  1146.      ioctl(fileno(m_termout),TIOCLSET,&mode);
  1147. + #endif
  1148.   
  1149.       if (op != -1)
  1150.         m_func(op);
  1151. ***************
  1152. *** 133,139 ****
  1153. --- 141,149 ----
  1154.   clean(n)
  1155.   int n;
  1156.      {
  1157. + #ifndef atarist
  1158.      mode &= ~LLITOUT;
  1159.      ioctl(fileno(m_termout),TIOCLSET,&mode);
  1160. + #endif
  1161.      exit(n);
  1162.      }
  1163. *** tests/orig/half.c    Tue Jan 24 15:57:42 1989
  1164. --- tests/half.c    Mon Sep 17 22:07:16 1990
  1165. ***************
  1166. *** 15,24 ****
  1167. --- 15,31 ----
  1168.   #include <stdio.h>
  1169.   #include <sgtty.h>
  1170.   
  1171. + #ifdef atarist
  1172. + #define WIDE    300
  1173. + #define HIGH    150
  1174. + #define X    50
  1175. + #define Y    50
  1176. + #else
  1177.   #define WIDE    400
  1178.   #define HIGH    300
  1179.   #define X    200
  1180.   #define Y    200
  1181. + #endif
  1182.   
  1183.   main(argc,argv)
  1184.   int argc;
  1185. ***************
  1186. *** 78,85 ****
  1187.   
  1188.      else if (pid == 0) {        /* new shell (child) */
  1189.   
  1190. !       /* remove controlling tty */
  1191.   
  1192.         ioctl(open("/dev/tty",0),TIOCNOTTY,0);
  1193.   
  1194.         /* close all files */
  1195. --- 85,106 ----
  1196.   
  1197.      else if (pid == 0) {        /* new shell (child) */
  1198.   
  1199. ! #ifdef atarist
  1200. !       for (i = 3; i < 20; i++)
  1201. !           close(i);
  1202.   
  1203. +       i = open(name, 2);
  1204. +       if (i < 0) {
  1205. +           perror(name);
  1206. +           _exit(2);
  1207. +       }
  1208. +       dup2(i, -1);
  1209. +       dup2(i, 0);
  1210. +       dup2(i, 1);
  1211. +       dup2(i, 2);
  1212. +       close(i);
  1213. + #else
  1214. +       /* remove controlling tty */
  1215.         ioctl(open("/dev/tty",0),TIOCNOTTY,0);
  1216.   
  1217.         /* close all files */
  1218. ***************
  1219. *** 92,98 ****
  1220.         open(name,0);    /* stdin */
  1221.         open(name,1);    /* stdout */
  1222.         open(name,1);    /* stderr */
  1223. !    
  1224.         /* get our own process group */
  1225.         
  1226.         group = getpid();
  1227. --- 113,120 ----
  1228.         open(name,0);    /* stdin */
  1229.         open(name,1);    /* stdout */
  1230.         open(name,1);    /* stderr */
  1231. ! #endif
  1232. ! 
  1233.         /* get our own process group */
  1234.         
  1235.         group = getpid();
  1236.