home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / perl_419 / perl.dif < prev    next >
Encoding:
Text File  |  1993-10-23  |  18.8 KB  |  803 lines
  1. *** ../arg.h    Mon Nov 11 10:44:40 1991
  2. --- arg.h    Fri Nov 15 14:50:56 1991
  3. ***************
  4. *** 286,292 ****
  5. --- 286,296 ----
  6.   #define O_REWINDDIR 263
  7.   #define O_CLOSEDIR 264
  8.   #define O_SYSCALL 265
  9. + #ifdef atarist
  10. + #define PERL_O_PIPE 266
  11. + #else
  12.   #define O_PIPE 266
  13. + #endif
  14.   #define O_TRY 267
  15.   #define O_EVALONCE 268
  16.   #define MAXO 269
  17. *** ../doarg.c    Fri Nov 15 10:13:32 1991
  18. --- doarg.c    Fri Nov 15 14:50:57 1991
  19. ***************
  20. *** 1666,1672 ****
  21. --- 1666,1676 ----
  22.       register STR **st = stack->ary_array;
  23.       register int sp = arglast[1];
  24.       register int items = arglast[2] - sp;
  25. + #ifdef atarist
  26. +     unsigned long arg[14]; /* yes, we really need that many ! */
  27. + #else
  28.       unsigned long arg[8];
  29. + #endif
  30.       register int i = 0;
  31.       int retval = -1;
  32.   
  33. ***************
  34. *** 1723,1728 ****
  35. --- 1727,1758 ----
  36.       retval = syscall(arg[0],arg[1],arg[2],arg[3],arg[4],arg[5],arg[6],
  37.         arg[7]);
  38.       break;
  39. + #ifdef atarist
  40. +     case 9:
  41. +     retval = syscall(arg[0],arg[1],arg[2],arg[3],arg[4],arg[5],arg[6],
  42. +       arg[7], arg[8]);
  43. +     break;
  44. +     case 10:
  45. +     retval = syscall(arg[0],arg[1],arg[2],arg[3],arg[4],arg[5],arg[6],
  46. +       arg[7], arg[8], arg[9]);
  47. +     break;
  48. +     case 11:
  49. +     retval = syscall(arg[0],arg[1],arg[2],arg[3],arg[4],arg[5],arg[6],
  50. +       arg[7], arg[8], arg[9], arg[10]);
  51. +     break;
  52. +     case 12:
  53. +     retval = syscall(arg[0],arg[1],arg[2],arg[3],arg[4],arg[5],arg[6],
  54. +       arg[7], arg[8], arg[9], arg[10], arg[11]);
  55. +     break;
  56. +     case 13:
  57. +     retval = syscall(arg[0],arg[1],arg[2],arg[3],arg[4],arg[5],arg[6],
  58. +       arg[7], arg[8], arg[9], arg[10], arg[11], arg[12]);
  59. +     break;
  60. +     case 14:
  61. +     retval = syscall(arg[0],arg[1],arg[2],arg[3],arg[4],arg[5],arg[6],
  62. +       arg[7], arg[8], arg[9], arg[10], arg[11], arg[12], arg[13]);
  63. +     break;
  64. + #endif /* atarist */
  65.       }
  66.       return retval;
  67.   #else
  68. *** ../doio.c    Mon Nov 11 10:38:04 1991
  69. --- doio.c    Fri Nov 15 14:50:58 1991
  70. ***************
  71. *** 100,105 ****
  72. --- 100,106 ----
  73.       FILE *saveofp = Nullfp;
  74.       char savetype = ' ';
  75.   
  76. +     mode[0] = mode[1] = mode[2] = '\0';
  77.       name = myname;
  78.       forkprocess = 1;        /* assume true if no fork */
  79.       while (len && isSPACE(name[len-1]))
  80. ***************
  81. *** 384,390 ****
  82.               }
  83.   #endif
  84.   #ifdef HAS_RENAME
  85. ! #ifndef MSDOS
  86.               if (rename(oldname,str->str_ptr) < 0) {
  87.               warn("Can't rename %s to %s: %s, skipping file",
  88.                 oldname, str->str_ptr, strerror(errno) );
  89. --- 385,391 ----
  90.               }
  91.   #endif
  92.   #ifdef HAS_RENAME
  93. ! #ifndef MSDOS_OR_ATARI
  94.               if (rename(oldname,str->str_ptr) < 0) {
  95.               warn("Can't rename %s to %s: %s, skipping file",
  96.                 oldname, str->str_ptr, strerror(errno) );
  97. ***************
  98. *** 411,417 ****
  99.   #endif
  100.           }
  101.           else {
  102. ! #ifndef MSDOS
  103.               if (UNLINK(oldname) < 0) {
  104.               warn("Can't rename %s to %s: %s, skipping file",
  105.                 oldname, str->str_ptr, strerror(errno) );
  106. --- 412,418 ----
  107.   #endif
  108.           }
  109.           else {
  110. ! #ifndef MSDOS_OR_ATARI
  111.               if (UNLINK(oldname) < 0) {
  112.               warn("Can't rename %s to %s: %s, skipping file",
  113.                 oldname, str->str_ptr, strerror(errno) );
  114. ***************
  115. *** 700,706 ****
  116.       }
  117.       else {
  118.       retval = (int)str_gnum(argstr);
  119. ! #ifdef MSDOS
  120.       s = (char*)(long)retval;        /* ouch */
  121.   #else
  122.       s = (char*)retval;        /* ouch */
  123. --- 701,707 ----
  124.       }
  125.       else {
  126.       retval = (int)str_gnum(argstr);
  127. ! #ifdef MSDOS_OR_ATARI
  128.       s = (char*)(long)retval;        /* ouch */
  129.   #else
  130.       s = (char*)retval;        /* ouch */
  131. ***************
  132. *** 711,717 ****
  133.       if (optype == O_IOCTL)
  134.       retval = ioctl(fileno(stio->ifp), func, s);
  135.       else
  136. ! #ifdef MSDOS
  137.       fatal("fcntl is not implemented");
  138.   #else
  139.   #ifdef HAS_FCNTL
  140. --- 712,718 ----
  141.       if (optype == O_IOCTL)
  142.       retval = ioctl(fileno(stio->ifp), func, s);
  143.       else
  144. ! #ifdef MSDOS_OR_ATARI
  145.       fatal("fcntl is not implemented");
  146.   #else
  147.   #ifdef HAS_FCNTL
  148. ***************
  149. *** 2469,2475 ****
  150.   int effective;
  151.   register struct stat *statbufp;
  152.   {
  153. ! #ifdef MSDOS
  154.       /* [Comments and code from Len Reed]
  155.        * MS-DOS "user" is similar to UNIX's "superuser," but can't write
  156.        * to write-protected files.  The execute permission bit is set
  157. --- 2470,2476 ----
  158.   int effective;
  159.   register struct stat *statbufp;
  160.   {
  161. ! #ifdef MSDOS_OR_ATARI
  162.       /* [Comments and code from Len Reed]
  163.        * MS-DOS "user" is similar to UNIX's "superuser," but can't write
  164.        * to write-protected files.  The execute permission bit is set
  165. ***************
  166. *** 2488,2493 ****
  167. --- 2489,2497 ----
  168.        *        Sun's PC-NFS.]
  169.        */
  170.   
  171. +      /* Atari stat() does pretty much the same thing. we set x_bit_set_in_stat
  172. +       * too so it will actually look into the files for magic numbers
  173. +       */
  174.        return (bit & statbufp->st_mode) ? TRUE : FALSE;
  175.   
  176.   #else /* ! MSDOS */
  177. *** ../eval.c    Mon Nov 11 10:38:05 1991
  178. --- eval.c    Fri Nov 15 14:51:00 1991
  179. ***************
  180. *** 390,396 ****
  181.           old_rschar = rschar;
  182.           old_rslen = rslen;
  183.           rslen = 1;
  184. ! #ifdef MSDOS
  185.           rschar = 0;
  186.   #else
  187.   #ifdef CSH
  188. --- 390,396 ----
  189.           old_rschar = rschar;
  190.           old_rslen = rslen;
  191.           rslen = 1;
  192. ! #ifdef MSDOS_OR_ATARI
  193.           rschar = 0;
  194.   #else
  195.   #ifdef CSH
  196. ***************
  197. *** 433,439 ****
  198.               (void) interp(str,stab_val(last_in_stab),sp);
  199.               st = stack->ary_array;
  200.               tmpstr = Str_new(55,0);
  201. ! #ifdef MSDOS
  202.               str_set(tmpstr, "perlglob ");
  203.               str_scat(tmpstr,str);
  204.               str_cat(tmpstr," |");
  205. --- 433,439 ----
  206.               (void) interp(str,stab_val(last_in_stab),sp);
  207.               st = stack->ary_array;
  208.               tmpstr = Str_new(55,0);
  209. ! #ifdef MSDOS_OR_ATARI
  210.               str_set(tmpstr, "perlglob ");
  211.               str_scat(tmpstr,str);
  212.               str_cat(tmpstr," |");
  213. ***************
  214. *** 2862,2869 ****
  215.           stab = stabent(str_get(st[1]),TRUE);
  216.       if (!stab || !(stio = stab_io(stab)) || !(fp = stio->ifp))
  217.           goto say_undef;
  218. ! #ifdef MSDOS
  219.       str_set(str, (setmode(fileno(fp), O_BINARY) != -1) ? Yes : No);
  220.   #else
  221.       str_set(str, Yes);
  222.   #endif
  223. --- 2862,2879 ----
  224.           stab = stabent(str_get(st[1]),TRUE);
  225.       if (!stab || !(stio = stab_io(stab)) || !(fp = stio->ifp))
  226.           goto say_undef;
  227. ! #ifdef MSDOS_OR_ATARI
  228. ! #ifdef atarist
  229. !     if(fflush(fp))
  230. !        str_set(str, No);
  231. !     else
  232. !     {
  233. !         fp->_flag |= _IOBIN;
  234. !         str_set(str, Yes);
  235. !     }
  236. ! #else
  237.       str_set(str, (setmode(fileno(fp), O_BINARY) != -1) ? Yes : No);
  238. + #endif
  239.   #else
  240.       str_set(str, Yes);
  241.   #endif
  242. ***************
  243. *** 2938,2944 ****
  244. --- 2948,2958 ----
  245.       case O_SYSCALL:
  246.       value = (double)do_syscall(arglast);
  247.       goto donumset;
  248. + #ifdef atarist
  249. +     case PERL_O_PIPE:
  250. + #else
  251.       case O_PIPE:
  252. + #endif
  253.   #ifdef HAS_PIPE
  254.       if ((arg[1].arg_type & A_MASK) == A_WORD)
  255.           stab = arg[1].arg_ptr.arg_stab;
  256. *** ../handy.h    Mon Nov 11 10:45:27 1991
  257. --- handy.h    Fri Nov 15 14:51:00 1991
  258. ***************
  259. *** 74,80 ****
  260. --- 74,84 ----
  261.   #define isLOWER(c) (isascii(c) && islower(c))
  262.   #endif
  263.   
  264. + #ifdef STANDARD_C
  265. + #define MEM_SIZE size_t
  266. + #else
  267.   #define MEM_SIZE unsigned int
  268. + #endif
  269.   
  270.   /* Line numbers are unsigned, 16 bits. */
  271.   typedef unsigned short line_t;
  272. *** ../malloc.c    Mon Nov 11 10:39:14 1991
  273. --- malloc.c    Fri Nov 15 14:51:00 1991
  274. ***************
  275. *** 120,130 ****
  276.   
  277.   MALLOCPTRTYPE *
  278.   malloc(nbytes)
  279. !     register unsigned nbytes;
  280.   {
  281.         register union overhead *p;
  282.         register int bucket = 0;
  283. !       register unsigned shiftr;
  284.   
  285.   #ifdef safemalloc
  286.   #ifdef DEBUGGING
  287. --- 120,130 ----
  288.   
  289.   MALLOCPTRTYPE *
  290.   malloc(nbytes)
  291. !     register unsigned long nbytes;
  292.   {
  293.         register union overhead *p;
  294.         register int bucket = 0;
  295. !       register unsigned long shiftr;
  296.   
  297.   #ifdef safemalloc
  298.   #ifdef DEBUGGING
  299. ***************
  300. *** 220,254 ****
  301.         register union overhead *op;
  302.         register int rnu;       /* 2^rnu bytes will be requested */
  303.         register int nblks;     /* become nblks blocks of the desired size */
  304. !     register int siz;
  305.   
  306.         if (nextf[bucket])
  307.             return;
  308.       /*
  309.        * Insure memory is allocated
  310.        * on a page boundary.  Should
  311.        * make getpageize call?
  312.        */
  313. !       op = (union overhead *)sbrk(0);
  314.   #ifndef I286
  315. !       if ((int)op & 0x3ff)
  316. !           (void)sbrk(1024 - ((int)op & 0x3ff));
  317.   #else
  318.       /* The sbrk(0) call on the I286 always returns the next segment */
  319.   #endif
  320.   
  321. ! #ifndef I286
  322.       /* take 2k unless the block is bigger than that */
  323.         rnu = (bucket <= 8) ? 11 : bucket + 3;
  324.   #else
  325.       /* take 16k unless the block is bigger than that 
  326. !        (80286s like large segments!)        */
  327.         rnu = (bucket <= 11) ? 14 : bucket + 3;
  328.   #endif
  329.         nblks = 1 << (rnu - (bucket + 3));  /* how many blocks to get */
  330.         if (rnu < bucket)
  331.           rnu = bucket;
  332. !     op = (union overhead *)sbrk(1 << rnu);
  333.       /* no more room! */
  334.         if ((int)op == -1)
  335.             return;
  336. --- 220,256 ----
  337.         register union overhead *op;
  338.         register int rnu;       /* 2^rnu bytes will be requested */
  339.         register int nblks;     /* become nblks blocks of the desired size */
  340. !     register long siz;
  341.   
  342.         if (nextf[bucket])
  343.             return;
  344. + #ifndef atarist /* on the atari we dont have to worry about this */
  345.       /*
  346.        * Insure memory is allocated
  347.        * on a page boundary.  Should
  348.        * make getpageize call?
  349.        */
  350. !       op = (union overhead *)sbrk(0L);
  351.   #ifndef I286
  352. !       if ((unsigned int)op & 0x3ff)
  353. !           (void)sbrk((long)(1024L - ((int)op & 0x3ff)));
  354.   #else
  355.       /* The sbrk(0) call on the I286 always returns the next segment */
  356.   #endif
  357. + #endif /* atarist */
  358.   
  359. ! #if !(defined(I286) || defined(atarist))
  360.       /* take 2k unless the block is bigger than that */
  361.         rnu = (bucket <= 8) ? 11 : bucket + 3;
  362.   #else
  363.       /* take 16k unless the block is bigger than that 
  364. !        (80286s like large segments!), probably good on the atari too */
  365.         rnu = (bucket <= 11) ? 14 : bucket + 3;
  366.   #endif
  367.         nblks = 1 << (rnu - (bucket + 3));  /* how many blocks to get */
  368.         if (rnu < bucket)
  369.           rnu = bucket;
  370. !     op = (union overhead *)sbrk(1L << rnu);
  371.       /* no more room! */
  372.         if ((int)op == -1)
  373.             return;
  374. ***************
  375. *** 280,286 ****
  376.   free(mp)
  377.       MALLOCPTRTYPE *mp;
  378.   {   
  379. !       register int size;
  380.       register union overhead *op;
  381.       char *cp = (char*)mp;
  382.   
  383. --- 282,288 ----
  384.   free(mp)
  385.       MALLOCPTRTYPE *mp;
  386.   {   
  387. !       register long size;
  388.       register union overhead *op;
  389.       char *cp = (char*)mp;
  390.   
  391. ***************
  392. *** 339,345 ****
  393.   MALLOCPTRTYPE *
  394.   realloc(mp, nbytes)
  395.       MALLOCPTRTYPE *mp; 
  396. !     unsigned nbytes;
  397.   {   
  398.         register u_int onb;
  399.       union overhead *op;
  400. --- 341,347 ----
  401.   MALLOCPTRTYPE *
  402.   realloc(mp, nbytes)
  403.       MALLOCPTRTYPE *mp; 
  404. !     unsigned long nbytes;
  405.   {   
  406.         register u_int onb;
  407.       union overhead *op;
  408. *** ../perl.c    Fri Nov 15 10:14:00 1991
  409. --- perl.c    Fri Nov 15 14:51:01 1991
  410. ***************
  411. *** 239,245 ****
  412.       scriptname = e_tmpname;
  413.       }
  414.   
  415. ! #ifdef MSDOS
  416.   #define PERLLIB_SEP ';'
  417.   #else
  418.   #define PERLLIB_SEP ':'
  419. --- 239,245 ----
  420.       scriptname = e_tmpname;
  421.       }
  422.   
  423. ! #ifdef MSDOS_OR_ATARI
  424.   #define PERLLIB_SEP ';'
  425.   #else
  426.   #define PERLLIB_SEP ':'
  427. ***************
  428. *** 296,314 ****
  429.   
  430.       bufend = s + strlen(s);
  431.       while (*s) {
  432. ! #ifndef MSDOS
  433.           s = cpytill(tokenbuf,s,bufend,':',&len);
  434.   #else
  435.           for (len = 0; *s && *s != ';'; tokenbuf[len++] = *s++);
  436.           tokenbuf[len] = '\0';
  437.   #endif
  438.           if (*s)
  439.           s++;
  440. ! #ifndef MSDOS
  441.           if (len && tokenbuf[len-1] != '/')
  442.   #else
  443.           if (len && tokenbuf[len-1] != '\\')
  444.   #endif
  445.           (void)strcat(tokenbuf+len,"/");
  446.           (void)strcat(tokenbuf+len,scriptname);
  447.   #ifdef DEBUGGING
  448. --- 296,323 ----
  449.   
  450.       bufend = s + strlen(s);
  451.       while (*s) {
  452. ! #ifndef MSDOS_OR_ATARI
  453.           s = cpytill(tokenbuf,s,bufend,':',&len);
  454.   #else
  455. + #ifdef atarist
  456. +         for (len = 0; *s && *s != ',' && *s != ';'; tokenbuf[len++] = *s++);
  457. +         tokenbuf[len] = '\0';
  458. + #else
  459.           for (len = 0; *s && *s != ';'; tokenbuf[len++] = *s++);
  460.           tokenbuf[len] = '\0';
  461.   #endif
  462. + #endif
  463.           if (*s)
  464.           s++;
  465. ! #ifndef MSDOS_OR_ATARI
  466.           if (len && tokenbuf[len-1] != '/')
  467.   #else
  468. + #ifdef atarist
  469. +         if (len && ((tokenbuf[len-1] != '\\') || (tokenbuf[len-1] != '/')))
  470. + #else
  471.           if (len && tokenbuf[len-1] != '\\')
  472.   #endif
  473. + #endif
  474.           (void)strcat(tokenbuf+len,"/");
  475.           (void)strcat(tokenbuf+len,scriptname);
  476.   #ifdef DEBUGGING
  477. ***************
  478. *** 361,367 ****
  479.    -e '/^#[     ]*endif/b' \
  480.    -e 's/^[     ]*#.*//' \
  481.    %s | %s -C %s %s",
  482. ! #ifdef MSDOS
  483.         "",
  484.   #else
  485.         "/bin/",
  486. --- 370,376 ----
  487.    -e '/^#[     ]*endif/b' \
  488.    -e 's/^[     ]*#.*//' \
  489.    %s | %s -C %s %s",
  490. ! #ifdef MSDOS_OR_ATARI
  491.         "",
  492.   #else
  493.         "/bin/",
  494. ***************
  495. *** 1305,1310 ****
  496. --- 1314,1322 ----
  497.           stdout);
  498.   #endif
  499.   #endif
  500. + #ifdef atarist
  501. +         fputs("atariST series port, ++jrb  bammi@cadence.com\n", stdout);
  502. + #endif
  503.       fputs("\n\
  504.   Perl may be copied only under the terms of either the Artistic License or the\n\
  505.   GNU General Public License, which may be found in the Perl 4.0 source kit.\n",stdout);
  506. ***************
  507. *** 1346,1352 ****
  508.       fprintf(stderr, "unexec of %s into %s failed!\n", perlpath, dumpname);
  509.       exit(status);
  510.   #else
  511. ! #ifdef MSDOS
  512.       abort();    /* nothing else to do */
  513.   #else /* ! MSDOS */
  514.   #   ifndef SIGABRT
  515. --- 1358,1364 ----
  516.       fprintf(stderr, "unexec of %s into %s failed!\n", perlpath, dumpname);
  517.       exit(status);
  518.   #else
  519. ! #ifdef MSDOS_OR_ATARI
  520.       abort();    /* nothing else to do */
  521.   #else /* ! MSDOS */
  522.   #   ifndef SIGABRT
  523. *** ../perl.h    Fri Nov 15 11:41:42 1991
  524. --- perl.h    Fri Nov 15 14:51:02 1991
  525. ***************
  526. *** 53,59 ****
  527.   char Error[1];
  528.   #endif
  529.   
  530. ! #ifdef MSDOS
  531.   /* This stuff now in the MS-DOS config.h file. */
  532.   #else /* !MSDOS */
  533.   
  534. --- 53,64 ----
  535.   char Error[1];
  536.   #endif
  537.   
  538. ! /* define this once if either system, instead of cluttering up the src */
  539. ! #if defined(MSDOS) || defined(atarist)
  540. ! #define MSDOS_OR_ATARI 1
  541. ! #endif
  542. ! 
  543. ! #ifdef MSDOS_OR_ATARI
  544.   /* This stuff now in the MS-DOS config.h file. */
  545.   #else /* !MSDOS */
  546.   
  547. ***************
  548. *** 457,463 ****
  549. --- 462,472 ----
  550.   #   endif
  551.   #endif
  552.   
  553. + #if STANDARD_C
  554. + typedef size_t STRLEN;
  555. + #else
  556.   typedef unsigned int STRLEN;
  557. + #endif
  558.   
  559.   typedef struct arg ARG;
  560.   typedef struct cmd CMD;
  561. ***************
  562. *** 553,559 ****
  563.   
  564.   #define GROWSTR(pp,lp,len) if (*(lp) < (len)) growstr(pp,lp,len)
  565.   
  566. ! #ifndef MSDOS
  567.   #define STR_GROW(str,len) if ((str)->str_len < (len)) str_grow(str,len)
  568.   #define Str_Grow str_grow
  569.   #else
  570. --- 562,568 ----
  571.   
  572.   #define GROWSTR(pp,lp,len) if (*(lp) < (len)) growstr(pp,lp,len)
  573.   
  574. ! #ifndef MSDOS_OR_ATARI
  575.   #define STR_GROW(str,len) if ((str)->str_len < (len)) str_grow(str,len)
  576.   #define Str_Grow str_grow
  577.   #else
  578. ***************
  579. *** 561,567 ****
  580.   #define STR_GROW(str,len) if ((str)->str_len < (unsigned long)len) \
  581.           str_grow(str,(unsigned long)len)
  582.   #define Str_Grow(str,len) str_grow(str,(unsigned long)(len))
  583. ! #endif /* MSDOS */
  584.   
  585.   #ifndef BYTEORDER
  586.   #define BYTEORDER 0x1234
  587. --- 570,576 ----
  588.   #define STR_GROW(str,len) if ((str)->str_len < (unsigned long)len) \
  589.           str_grow(str,(unsigned long)len)
  590.   #define Str_Grow(str,len) str_grow(str,(unsigned long)(len))
  591. ! #endif /* MSDOS_OR_ATARI */
  592.   
  593.   #ifndef BYTEORDER
  594.   #define BYTEORDER 0x1234
  595. ***************
  596. *** 828,834 ****
  597.   EXT bool tainted INIT(FALSE);        /* using variables controlled by $< */
  598.   #endif
  599.   
  600. ! #ifndef MSDOS
  601.   #define TMPPATH "/tmp/perl-eXXXXXX"
  602.   #else
  603.   #define TMPPATH "plXXXXXX"
  604. --- 837,843 ----
  605.   EXT bool tainted INIT(FALSE);        /* using variables controlled by $< */
  606.   #endif
  607.   
  608. ! #ifndef MSDOS_OR_ATARI
  609.   #define TMPPATH "/tmp/perl-eXXXXXX"
  610.   #else
  611.   #define TMPPATH "plXXXXXX"
  612. *** ../regcomp.c    Mon Nov 11 10:45:28 1991
  613. --- regcomp.c    Fri Nov 15 14:51:03 1991
  614. ***************
  615. *** 86,92 ****
  616. --- 86,96 ----
  617.   #define    ISMULT1(c)    ((c) == '*' || (c) == '+' || (c) == '?')
  618.   #define    ISMULT2(s)    ((*s) == '*' || (*s) == '+' || (*s) == '?' || \
  619.       ((*s) == '{' && regcurly(s)))
  620. + #ifdef atarist
  621. + #define    PERL_META    "^$.[()|?+*\\"
  622. + #else
  623.   #define    META    "^$.[()|?+*\\"
  624. + #endif
  625.   
  626.   #ifdef SPSTART
  627.   #undef SPSTART        /* dratted cpp namespace... */
  628. *** ../str.c    Mon Nov 11 10:40:46 1991
  629. --- str.c    Fri Nov 15 14:51:04 1991
  630. ***************
  631. *** 81,87 ****
  632.   char *
  633.   str_grow(str,newlen)
  634.   register STR *str;
  635. ! #ifndef MSDOS
  636.   register int newlen;
  637.   #else
  638.   unsigned long newlen;
  639. --- 81,87 ----
  640.   char *
  641.   str_grow(str,newlen)
  642.   register STR *str;
  643. ! #ifndef MSDOS_OR_ATARI
  644.   register int newlen;
  645.   #else
  646.   unsigned long newlen;
  647. *** ../toke.c    Fri Nov 15 10:14:26 1991
  648. --- toke.c    Fri Nov 15 14:51:05 1991
  649. ***************
  650. *** 63,69 ****
  651. --- 63,73 ----
  652.   #endif
  653.   #define CLINE (cmdline = (curcmd->c_line < cmdline ? curcmd->c_line : cmdline))
  654.   
  655. + #ifdef atarist
  656. + #define PERL_META(c) ((c) | 128)
  657. + #else
  658.   #define META(c) ((c) | 128)
  659. + #endif
  660.   
  661.   #define RETURN(retval) return (bufptr = s,(int)retval)
  662.   #define OPERATOR(retval) return (expectterm = TRUE,bufptr = s,(int)retval)
  663. ***************
  664. *** 102,110 ****
  665. --- 106,120 ----
  666.   /* This does similarly for list operators, merely by pretending that the
  667.    * paren came before the listop rather than after.
  668.    */
  669. + #ifdef atarist
  670. + #define LOP(f) return(CLINE, *s == '(' || (s = skipspace(s), *s == '(') ? \
  671. +     (*s = (char) PERL_META('('), bufptr = oldbufptr, '(') : \
  672. +     (yylval.ival=f,expectterm = TRUE,bufptr = s,(int)LISTOP))
  673. + #else
  674.   #define LOP(f) return(CLINE, *s == '(' || (s = skipspace(s), *s == '(') ? \
  675.       (*s = (char) META('('), bufptr = oldbufptr, '(') : \
  676.       (yylval.ival=f,expectterm = TRUE,bufptr = s,(int)LISTOP))
  677. + #endif
  678.   /* grandfather return to old style */
  679.   #define OLDLOP(f) return(yylval.ival=f,expectterm = TRUE,bufptr = s,(int)LISTOP)
  680.   
  681. ***************
  682. *** 150,156 ****
  683. --- 160,170 ----
  684.       if (*s != '(')
  685.       s = skipspace(s);
  686.       if (*s == '(') {
  687. + #ifdef atarist
  688. +     *s = PERL_META('(');
  689. + #else
  690.       *s = META('(');
  691. + #endif
  692.       bufptr = oldbufptr;
  693.       return '(';
  694.       }
  695. ***************
  696. *** 999,1005 ****
  697. --- 1013,1023 ----
  698.       if (strEQ(d,"package"))
  699.           OPERATOR(PACKAGE);
  700.       if (strEQ(d,"pipe"))
  701. + #ifdef atarist
  702. +         FOP22(PERL_O_PIPE);
  703. + #else
  704.           FOP22(O_PIPE);
  705. + #endif
  706.       break;
  707.       case 'q': case 'Q':
  708.       SNARFWORD;
  709. *** ../util.c    Fri Nov 15 10:14:27 1991
  710. --- util.c    Fri Nov 15 14:51:06 1991
  711. ***************
  712. *** 1372,1378 ****
  713.   VTOH(vtohl,long)
  714.   #endif
  715.   
  716. ! #ifndef MSDOS
  717.   FILE *
  718.   mypopen(cmd,mode)
  719.   char    *cmd;
  720. --- 1372,1378 ----
  721.   VTOH(vtohl,long)
  722.   #endif
  723.   
  724. ! #ifndef MSDOS_OR_ATARI
  725.   FILE *
  726.   mypopen(cmd,mode)
  727.   char    *cmd;
  728. ***************
  729. *** 1446,1453 ****
  730.       forkprocess = pid;
  731.       return fdopen(p[this], mode);
  732.   }
  733. ! #endif /* !MSDOS */
  734.   
  735.   #ifdef NOTDEF
  736.   dumpfds(s)
  737.   char *s;
  738. --- 1446,1465 ----
  739.       forkprocess = pid;
  740.       return fdopen(p[this], mode);
  741.   }
  742. ! #else
  743. ! #ifdef atarist
  744. ! FILE *popen();
  745. ! FILE *
  746. ! mypopen(cmd,mode)
  747. ! char    *cmd;
  748. ! char    *mode;
  749. ! {
  750. !     return popen(cmd, mode);
  751. ! }
  752. ! #endif
  753.   
  754. + #endif /* !MSDOS_OR_ATARI */
  755. + 
  756.   #ifdef NOTDEF
  757.   dumpfds(s)
  758.   char *s;
  759. ***************
  760. *** 1488,1494 ****
  761.   }
  762.   #endif
  763.   
  764. ! #ifndef MSDOS
  765.   int
  766.   mypclose(ptr)
  767.   FILE *ptr;
  768. --- 1500,1506 ----
  769.   }
  770.   #endif
  771.   
  772. ! #ifndef MSDOS_OR_ATARI
  773.   int
  774.   mypclose(ptr)
  775.   FILE *ptr;
  776. ***************
  777. *** 1587,1593 ****
  778.   #endif
  779.       return;
  780.   }
  781. ! #endif /* !MSDOS */
  782.   
  783.   #ifndef HAS_MEMCMP
  784.   memcmp(s1,s2,len)
  785. --- 1599,1615 ----
  786.   #endif
  787.       return;
  788.   }
  789. ! #else
  790. ! #ifdef atarist
  791. ! int pclose();
  792. ! int
  793. ! mypclose(ptr)
  794. ! FILE *ptr;
  795. ! {
  796. !     return pclose(ptr);
  797. ! }
  798. ! #endif
  799. ! #endif /* !MSDOS_OR_ATARI */
  800.   
  801.   #ifndef HAS_MEMCMP
  802.   memcmp(s1,s2,len)
  803.