home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / p / perl4036.zip / os2 / update.dif < prev   
Text File  |  1993-02-26  |  11KB  |  451 lines
  1. - deleted files:
  2.  
  3. os2/a2p.cs
  4. os2/a2p.def
  5. os2/alarm.c
  6. os2/alarm.h
  7. os2/crypt.c
  8. os2/dir.h
  9. os2/director.c
  10. os2/eg/*.pl
  11. os2/mktemp.c
  12. os2/perl.bad
  13. os2/perl.cs
  14. os2/perldb.dif
  15. os2/perlglob.bad
  16. os2/perlglob.cs
  17. os2/perlglob.def
  18. os2/popen.c
  19.  
  20. - new files:
  21.  
  22. os2/Makefile.a2p
  23. os2/README.OLD
  24. os2/alarm.pl
  25. os2/dump.cmd
  26.  
  27. - replaced files (i.e. new files included in the patch, no diffs):
  28.  
  29. os2/Makefile
  30. os2/README.OS2
  31. os2/config.h
  32. os2/glob.c
  33. os2/os2.c
  34. os2/perl.def
  35.  
  36. diff -cbr orig/doio.c new/doio.c
  37. *** orig/doio.c    Mon Feb 08 21:37:42 1993
  38. --- new/doio.c    Fri Feb 26 13:29:40 1993
  39. ***************
  40. *** 754,760 ****
  41.       if (optype == O_IOCTL)
  42.       retval = ioctl(fileno(stio->ifp), func, s);
  43.       else
  44. ! #ifdef DOSISH
  45.       fatal("fcntl is not implemented");
  46.   #else
  47.   #ifdef HAS_FCNTL
  48. --- 754,760 ----
  49.       if (optype == O_IOCTL)
  50.       retval = ioctl(fileno(stio->ifp), func, s);
  51.       else
  52. ! #ifdef MSDOS
  53.       fatal("fcntl is not implemented");
  54.   #else
  55.   #ifdef HAS_FCNTL
  56. diff -cbr orig/eval.c new/eval.c
  57. *** orig/eval.c    Mon Feb 08 21:37:46 1993
  58. --- new/eval.c    Fri Feb 26 13:40:50 1993
  59. ***************
  60. *** 54,61 ****
  61.   #ifdef I_FCNTL
  62.   #include <fcntl.h>
  63.   #endif
  64. ! #ifdef MSDOS
  65. ! /* I_FCNTL *MUST* not be defined for MS-DOS and OS/2
  66.      but fcntl.h is required for O_BINARY */
  67.   #include <fcntl.h>
  68.   #endif
  69. --- 54,61 ----
  70.   #ifdef I_FCNTL
  71.   #include <fcntl.h>
  72.   #endif
  73. ! #ifdef DOSISH
  74. ! /* I_FCNTL *MUST* not be defined for MS-DOS
  75.      but fcntl.h is required for O_BINARY */
  76.   #include <fcntl.h>
  77.   #endif
  78. ***************
  79. *** 1972,1977 ****
  80. --- 1972,1982 ----
  81.       break;
  82.   #endif
  83.       case O_SYSTEM:
  84. + #ifdef OS2
  85. + #ifdef HAS_FORK
  86. + #undef HAS_FORK
  87. + #endif
  88. + #endif
  89.   #ifdef HAS_FORK
  90.   #ifdef TAINT
  91.       if (arglast[2] - arglast[1] == 1) {
  92. ***************
  93. *** 2247,2253 ****
  94. --- 2252,2262 ----
  95.       taintproper("Insecure dependency in mkdir");
  96.   #endif
  97.   #ifdef HAS_MKDIR
  98. + #if defined(MSDOS) || defined(atarist) /* but not OS2 */
  99. +     value = (double)(mkdir(tmps) >= 0);
  100. + #else
  101.       value = (double)(mkdir(tmps,anum) >= 0);
  102. + #endif
  103.       goto donumset;
  104.   #else
  105.       (void)strcpy(buf,"mkdir ");
  106. diff -cbr orig/os2/suffix.c new/os2/suffix.c
  107. *** orig/os2/suffix.c    Mon Feb 08 21:36:28 1993
  108. --- new/os2/suffix.c    Sun Oct 04 22:03:04 1992
  109. ***************
  110. *** 130,136 ****
  111.   char *s;
  112.   {
  113.       HFILE hf;
  114. !     USHORT usAction;
  115.   
  116.       switch(DosOpen(s, &hf, &usAction, 0L, 0, FILE_OPEN,
  117.       OPEN_ACCESS_READONLY | OPEN_SHARE_DENYNONE, 0L)) {
  118. --- 130,136 ----
  119.   char *s;
  120.   {
  121.       HFILE hf;
  122. !     UINT usAction;
  123.   
  124.       switch(DosOpen(s, &hf, &usAction, 0L, 0, FILE_OPEN,
  125.       OPEN_ACCESS_READONLY | OPEN_SHARE_DENYNONE, 0L)) {
  126. diff -cbr orig/perl.c new/perl.c
  127. *** orig/perl.c    Mon Feb 08 21:35:20 1993
  128. --- new/perl.c    Fri Feb 26 13:29:52 1993
  129. ***************
  130. *** 61,66 ****
  131. --- 61,70 ----
  132.   #include "perly.h"
  133.   #include "patchlevel.h"
  134.   
  135. + #ifdef OS2
  136. + #include <fcntl.h>
  137. + #endif
  138. + 
  139.   char *getenv();
  140.   
  141.   #ifdef IAMSUID
  142. ***************
  143. *** 85,93 ****
  144.   static int nrslen = 1;
  145.   
  146.   main(argc,argv,env)
  147. ! register int argc;
  148. ! register char **argv;
  149. ! register char **env;
  150.   {
  151.       register STR *str;
  152.       register char *s;
  153. --- 89,97 ----
  154.   static int nrslen = 1;
  155.   
  156.   main(argc,argv,env)
  157. ! int argc;
  158. ! char **argv;
  159. ! char **env;
  160.   {
  161.       register STR *str;
  162.       register char *s;
  163. ***************
  164. *** 106,111 ****
  165. --- 110,119 ----
  166.   #endif
  167.   #endif
  168.   
  169. + #ifdef OS2
  170. +     os2init(&argc, &argv);
  171. + #endif
  172. + 
  173.       origargv = argv;
  174.       origargc = argc;
  175.       origenviron = environ;
  176. ***************
  177. *** 281,287 ****
  178.       /* open script */
  179.   
  180.       if (scriptname == Nullch)
  181. ! #ifdef MSDOS
  182.       {
  183.       if ( isatty(fileno(stdin)) )
  184.         moreswitches("v");
  185. --- 289,295 ----
  186.       /* open script */
  187.   
  188.       if (scriptname == Nullch)
  189. ! #ifdef DOSISH
  190.       {
  191.       if ( isatty(fileno(stdin)) )
  192.         moreswitches("v");
  193. ***************
  194. *** 290,296 ****
  195.   #else
  196.       scriptname = "-";
  197.   #endif
  198. !     if (dosearch && !index(scriptname, '/') && (s = getenv("PATH"))) {
  199.       char *xfound = Nullch, *xfailed = Nullch;
  200.       int len;
  201.   
  202. --- 298,308 ----
  203.   #else
  204.       scriptname = "-";
  205.   #endif
  206. !     if (dosearch && !index(scriptname, '/')
  207. ! #ifdef DOSISH
  208. !     && !index(scriptname, '\\') && access(scriptname, 0)
  209. ! #endif
  210. !     && (s = getenv("PATH"))) {
  211.       char *xfound = Nullch, *xfailed = Nullch;
  212.       int len;
  213.   
  214. ***************
  215. *** 312,323 ****
  216.   #ifndef DOSISH
  217.           if (len && tokenbuf[len-1] != '/')
  218.   #else
  219. - #ifdef atarist
  220.           if (len && ((tokenbuf[len-1] != '\\') && (tokenbuf[len-1] != '/')))
  221. - #else
  222. -         if (len && tokenbuf[len-1] != '\\')
  223.   #endif
  224. - #endif
  225.           (void)strcat(tokenbuf+len,"/");
  226.           (void)strcat(tokenbuf+len,scriptname);
  227.   #ifdef DEBUGGING
  228. --- 324,331 ----
  229. ***************
  230. *** 357,363 ****
  231.           sprintf(tokenbuf, "%s", cpp);
  232.       str_cat(str,"-I");
  233.       str_cat(str,PRIVLIB);
  234. ! #ifdef MSDOS
  235.       (void)sprintf(buf, "\
  236.   sed %s -e \"/^[^#]/b\" \
  237.    -e \"/^#[     ]*include[     ]/b\" \
  238. --- 365,371 ----
  239.           sprintf(tokenbuf, "%s", cpp);
  240.       str_cat(str,"-I");
  241.       str_cat(str,PRIVLIB);
  242. ! #ifdef DOSISH
  243.       (void)sprintf(buf, "\
  244.   sed %s -e \"/^[^#]/b\" \
  245.    -e \"/^#[     ]*include[     ]/b\" \
  246. ***************
  247. *** 505,511 ****
  248.           if (tmpstatbuf.st_dev != statbuf.st_dev ||
  249.           tmpstatbuf.st_ino != statbuf.st_ino) {
  250.           (void)fclose(rsfp);
  251. !         if (rsfp = mypopen("/bin/mail root","w")) {    /* heh, heh */
  252.               fprintf(rsfp,
  253.   "User %d tried to run dev %d ino %d in place of dev %d ino %d!\n\
  254.   (Filename of set-id script was %s, uid %d gid %d.)\n\nSincerely,\nperl\n",
  255. --- 513,519 ----
  256.           if (tmpstatbuf.st_dev != statbuf.st_dev ||
  257.           tmpstatbuf.st_ino != statbuf.st_ino) {
  258.           (void)fclose(rsfp);
  259. !         if (rsfp = mypopen("mail root","w")) {    /* heh, heh */
  260.               fprintf(rsfp,
  261.   "User %d tried to run dev %d ino %d in place of dev %d ino %d!\n\
  262.   (Filename of set-id script was %s, uid %d gid %d.)\n\nSincerely,\nperl\n",
  263. ***************
  264. *** 1380,1397 ****
  265.   #ifdef MSDOS
  266.       fputs("MS-DOS port Copyright (c) 1989, 1990, Diomidis Spinellis\n",
  267.       stdout);
  268.   #ifdef OS2
  269. !         fputs("OS/2 port Copyright (c) 1990, 1991, Raymond Chen, Kai Uwe Rommel\n",
  270.           stdout);
  271.   #endif
  272. - #endif
  273.   #ifdef atarist
  274.           fputs("atariST series port, ++jrb  bammi@cadence.com\n", stdout);
  275.   #endif
  276.       fputs("\n\
  277.   Perl may be copied only under the terms of either the Artistic License or the\n\
  278.   GNU General Public License, which may be found in the Perl 4.0 source kit.\n",stdout);
  279. ! #ifdef MSDOS
  280.           usage(origargv[0]);
  281.   #endif
  282.       exit(0);
  283. --- 1388,1405 ----
  284.   #ifdef MSDOS
  285.       fputs("MS-DOS port Copyright (c) 1989, 1990, Diomidis Spinellis\n",
  286.       stdout);
  287. + #endif
  288.   #ifdef OS2
  289. !         fputs("OS/2 port Copyright (c) 1990-1992, Raymond Chen, Kai Uwe Rommel\n",
  290.           stdout);
  291.   #endif
  292.   #ifdef atarist
  293.           fputs("atariST series port, ++jrb  bammi@cadence.com\n", stdout);
  294.   #endif
  295.       fputs("\n\
  296.   Perl may be copied only under the terms of either the Artistic License or the\n\
  297.   GNU General Public License, which may be found in the Perl 4.0 source kit.\n",stdout);
  298. ! #ifdef DOSISH
  299.           usage(origargv[0]);
  300.   #endif
  301.       exit(0);
  302. ***************
  303. *** 1430,1435 ****
  304. --- 1438,1450 ----
  305.       fprintf(stderr, "unexec of %s into %s failed!\n", perlpath, dumpname);
  306.       exit(status);
  307.   #else
  308. + #ifdef OS2
  309. +     int file = open("perldump", O_WRONLY|O_CREAT|O_TRUNC|O_BINARY, 0666);
  310. +     _core(file);
  311. +     close(file);
  312. +     fprintf(stderr, "Core dumped to file \"perldump\".\n");
  313. +     exit(0);
  314. + #else
  315.   #ifdef DOSISH
  316.       abort();    /* nothing else to do */
  317.   #else /* ! MSDOS */
  318. ***************
  319. *** 1442,1446 ****
  320. --- 1457,1462 ----
  321.       kill(getpid(),SIGABRT);    /* for use with undump */
  322.   #endif /* ! MSDOS */
  323.   #endif
  324. + #endif
  325.   }
  326.   
  327. diff -cbr orig/perl.h new/perl.h
  328. *** orig/perl.h    Mon Feb 08 21:36:00 1993
  329. --- new/perl.h    Fri Feb 26 13:29:54 1993
  330. ***************
  331. *** 63,69 ****
  332.   #endif
  333.   
  334.   /* define this once if either system, instead of cluttering up the src */
  335. ! #if defined(MSDOS) || defined(atarist)
  336.   #define DOSISH 1
  337.   #endif
  338.   
  339. --- 63,69 ----
  340.   #endif
  341.   
  342.   /* define this once if either system, instead of cluttering up the src */
  343. ! #if defined(MSDOS) || defined(atarist) || defined(OS2)
  344.   #define DOSISH 1
  345.   #endif
  346.   
  347. ***************
  348. *** 268,274 ****
  349.   #endif
  350.   
  351.   #include <errno.h>
  352. ! #ifndef MSDOS
  353.   #ifndef errno
  354.   extern int errno;     /* ANSI allows errno to be an lvalue expr */
  355.   #endif
  356. --- 268,274 ----
  357.   #endif
  358.   
  359.   #include <errno.h>
  360. ! #ifndef DOSISH
  361.   #ifndef errno
  362.   extern int errno;     /* ANSI allows errno to be an lvalue expr */
  363.   #endif
  364. ***************
  365. *** 278,285 ****
  366. --- 278,287 ----
  367.   #ifdef HAS_STRERROR
  368.   char *strerror();
  369.   #else
  370. + #ifndef __EMX__
  371.   extern int sys_nerr;
  372.   extern char *sys_errlist[];
  373. + #endif
  374.   #define strerror(e) ((e) < 0 || (e) >= sys_nerr ? "(unknown)" : sys_errlist[e])
  375.   #endif
  376.   #endif
  377. diff -cbr orig/str.c new/str.c
  378. *** orig/str.c    Mon Feb 08 21:35:28 1993
  379. --- new/str.c    Fri Feb 26 13:29:54 1993
  380. ***************
  381. *** 101,107 ****
  382.   char *
  383.   str_grow(str,newlen)
  384.   register STR *str;
  385. ! #ifndef DOSISH
  386.   register int newlen;
  387.   #else
  388.   unsigned long newlen;
  389. --- 101,107 ----
  390.   char *
  391.   str_grow(str,newlen)
  392.   register STR *str;
  393. ! #ifndef MSDOS
  394.   register int newlen;
  395.   #else
  396.   unsigned long newlen;
  397. diff -cbr orig/util.c new/util.c
  398. *** orig/util.c    Mon Feb 08 21:35:26 1993
  399. --- new/util.c    Fri Feb 26 13:29:56 1993
  400. ***************
  401. *** 1133,1139 ****
  402.       else
  403.       Safefree(environ[i]);
  404.       New(904, environ[i], strlen(nam) + strlen(val) + 2, char);
  405. ! #ifndef MSDOS
  406.       (void)sprintf(environ[i],"%s=%s",nam,val);/* all that work just for this */
  407.   #else
  408.       /* MS-DOS requires environment variable names to be in uppercase */
  409. --- 1133,1139 ----
  410.       else
  411.       Safefree(environ[i]);
  412.       New(904, environ[i], strlen(nam) + strlen(val) + 2, char);
  413. ! #ifndef DOSISH
  414.       (void)sprintf(environ[i],"%s=%s",nam,val);/* all that work just for this */
  415.   #else
  416.       /* MS-DOS requires environment variable names to be in uppercase */
  417. ***************
  418. *** 1487,1493 ****
  419.       return fdopen(p[this], mode);
  420.   }
  421.   #else
  422. ! #ifdef atarist
  423.   FILE *popen();
  424.   FILE *
  425.   mypopen(cmd,mode)
  426. --- 1487,1493 ----
  427.       return fdopen(p[this], mode);
  428.   }
  429.   #else
  430. ! #if defined(atarist) || defined(__EMX__)
  431.   FILE *popen();
  432.   FILE *
  433.   mypopen(cmd,mode)
  434. ***************
  435. *** 1645,1651 ****
  436.       return;
  437.   }
  438.   
  439. ! #ifdef atarist
  440.   int pclose();
  441.   int
  442.   mypclose(ptr)
  443. --- 1645,1651 ----
  444.       return;
  445.   }
  446.   
  447. ! #if defined(atarist) || defined(__EMX__)
  448.   int pclose();
  449.   int
  450.   mypclose(ptr)
  451.