home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / zip / language / slperl.zoo / atarist / perl4035.diff < prev    next >
Text File  |  1992-07-05  |  2KB  |  94 lines
  1. *** ../atarist.dist/config.h    Tue Jun  9 14:38:43 1992
  2. --- config.h    Tue Jun  9 16:53:35 1992
  3. ***************
  4. *** 164,170 ****
  5.    *    This symbol, if defined, indicates to the C program that
  6.    *    the fcntl() function exists.
  7.    */
  8. ! /* #define    HAS_FCNTL        /**/
  9.   
  10.   /* FLEXFILENAMES
  11.    *    This symbol, if defined, indicates that the system supports filenames
  12. --- 164,172 ----
  13.    *    This symbol, if defined, indicates to the C program that
  14.    *    the fcntl() function exists.
  15.    */
  16. ! #ifdef __MINT__
  17. ! #define    HAS_FCNTL        /**/
  18. ! #endif
  19.   
  20.   /* FLEXFILENAMES
  21.    *    This symbol, if defined, indicates that the system supports filenames
  22. *** ../atarist.dist/echo.c    Tue Jun  9 14:39:02 1992
  23. --- echo.c    Tue Jun  9 16:48:01 1992
  24. ***************
  25. *** 90,98 ****
  26.       if(final_newline) putchar('\n');
  27.       return 0;
  28.   }
  29. - 
  30. -                   
  31. -     
  32. -     
  33. -     
  34. -     
  35. --- 90,92 ----
  36. *** ../atarist.dist/usersub.c    Tue Jun  9 14:40:59 1992
  37. --- usersub.c    Tue Jun  9 16:44:41 1992
  38. ***************
  39. *** 4,9 ****
  40. --- 4,11 ----
  41.   
  42.   int userinit()
  43.   {
  44. + #ifndef __MINT__
  45.       install_null();    /* install device /dev/null or NUL: */
  46. + #endif
  47.       return 0;
  48.   }
  49. *** ../atarist.dist/usub/makefile.st    Tue Jun  9 14:39:36 1992
  50. --- usub/makefile.st    Tue Jun  9 17:03:13 1992
  51. ***************
  52. *** 15,17 ****
  53. --- 15,23 ----
  54.   
  55.   curses.c: acurses.mus
  56.       perl mus acurses.mus >curses.c
  57. + 
  58. + clean:
  59. +     rm -f *.o curses.c
  60. + 
  61. + realclean:
  62. +     rm -f cperl.ttp report core
  63. *** ../atarist.dist/usub/acurses.mus    Tue Jun  9 14:37:44 1992
  64. --- usub/acurses.mus    Tue Jun  9 17:04:07 1992
  65. ***************
  66. *** 624,632 ****
  67.   CASE void tstp
  68.   END
  69.   
  70. ! CASE int _putchar
  71. ! I    char        ch
  72. ! END
  73.   
  74.       case US_testcallback:
  75.       sp = callback("callback", sp + items, curcsv->wantarray, 1, items);
  76. --- 624,640 ----
  77.   CASE void tstp
  78.   END
  79.   
  80. !     case US__putchar:
  81. !     if (items != 1)
  82. !         fatal("Usage: &_putchar($ch)");
  83. !     else {
  84. !         int retval;
  85. !         char    ch =        (char)        str_gnum(st[1]);
  86. ! 
  87. !         retval = _putchar(ch, stdout);
  88. !         str_numset(st[0], (double) retval);
  89. !     }
  90. !     return sp;
  91.   
  92.       case US_testcallback:
  93.       sp = callback("callback", sp + items, curcsv->wantarray, 1, items);
  94.