home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl502b.zip / OS2 / patches < prev    next >
Text File  |  1996-02-26  |  12KB  |  480 lines
  1. *** e:/perl5.002b3/doio.c    Sat Feb 03 01:49:30 1996
  2. --- perl5/doio.c    Tue Feb 20 15:49:36 1996
  3. ***************
  4. *** 942,947 ****
  5. --- 942,949 ----
  6.       }
  7.   }
  8.   
  9. + #ifndef OS2
  10. + 
  11.   bool
  12.   do_exec(cmd)
  13.   char *cmd;
  14. ***************
  15. *** 1030,1035 ****
  16. --- 1032,1039 ----
  17.       do_execfree();
  18.       return FALSE;
  19.   }
  20. + 
  21. + #endif
  22.   
  23.   I32
  24.   apply(type,mark,sp)
  25. *** e:/perl5.002b3/ext/DynaLoader/dl_os2.xs    Tue Nov 14 04:58:42 1995
  26. --- perl5/ext/DynaLoader/dl_os2.xs    Tue Feb 20 17:58:38 1996
  27. ***************
  28. *** 28,34 ****
  29.           return (void *)handle;
  30.   
  31.       /* Not found. Check for non-FAT name and try truncated name. */
  32. -     /* Don't know if this helps though... */
  33.       for (beg = dot = path + strlen(path);
  34.            beg > path && !strchr(":/\\", *(beg-1));
  35.            beg--)
  36. --- 28,33 ----
  37. ***************
  38. *** 162,167 ****
  39. --- 161,167 ----
  40.   char *
  41.   mod2fname(sv)
  42.        SV   *sv;
  43. + 
  44.   
  45.   
  46.   # These functions should not need changing on any platform:
  47. *** e:/perl5.002b3/ext/DynaLoader/DynaLoader.pm    Thu Feb 01 19:00:30 1996
  48. --- perl5/ext/DynaLoader/DynaLoader.pm    Tue Feb 20 18:48:00 1996
  49. ***************
  50. *** 468,473 ****
  51. --- 468,474 ----
  52.       Linux: dld_create_reference(@dl_require_symbols); dld_link($filename)
  53.       NeXT:  rld_load($filename, @dl_resolve_using)
  54.       VMS:   lib$find_image_symbol($filename,$dl_require_symbols[0])
  55. +     OS/2:  DosLoadModule(,,$filename,)
  56.   
  57.   
  58.   =item dl_find_symbol()
  59. ***************
  60. *** 490,495 ****
  61. --- 491,497 ----
  62.       Linux: dld_get_func($symbol) and/or dld_get_symbol($symbol)
  63.       NeXT:  rld_lookup("_$symbol")
  64.       VMS:   lib$find_image_symbol($libref,$symbol)
  65. +     OS/2:  DosQueryProcAddr($libref,0,$symbol,)
  66.   
  67.   
  68.   =item dl_undef_symbols()
  69. *** e:/perl5.002b3/os2/os2.c    Sun Dec 24 19:43:02 1995
  70. --- perl5/os2/os2.c    Mon Feb 26 02:46:30 1996
  71. ***************
  72. *** 40,59 ****
  73.       int r, status;
  74.       Signal_t (*ihand)();     /* place to save signal during system() */
  75.       Signal_t (*qhand)();     /* place to save signal during system() */
  76.   
  77. !     if (pid < 0 || flag != 0)
  78.           return pid;
  79.   
  80.       ihand = signal(SIGINT, SIG_IGN);
  81.       qhand = signal(SIGQUIT, SIG_IGN);
  82.       r = waitpid(pid, &status, 0);
  83.       signal(SIGINT, ihand);
  84.       signal(SIGQUIT, qhand);
  85. - 
  86.       statusvalue = (U16)status;
  87.       if (r < 0)
  88.           return -1;
  89.       return status & 0xFFFF;
  90.   }
  91.   
  92.   int
  93. --- 40,72 ----
  94.       int r, status;
  95.       Signal_t (*ihand)();     /* place to save signal during system() */
  96.       Signal_t (*qhand)();     /* place to save signal during system() */
  97. + #ifndef __EMX__
  98. +     RESULTCODES res;
  99. +     int rpid;
  100. + #endif
  101.   
  102. !     if (pid <= 0 || (flag & 0xFF) != P_WAIT)
  103.           return pid;
  104.   
  105. + #ifdef __EMX__
  106.       ihand = signal(SIGINT, SIG_IGN);
  107.       qhand = signal(SIGQUIT, SIG_IGN);
  108.       r = waitpid(pid, &status, 0);
  109.       signal(SIGINT, ihand);
  110.       signal(SIGQUIT, qhand);
  111.       statusvalue = (U16)status;
  112.       if (r < 0)
  113.           return -1;
  114.       return status & 0xFFFF;
  115. + #else
  116. +     ihand = signal(SIGINT, SIG_IGN);
  117. +     r = DosWaitChild(DCWA_PROCESS, DCWW_WAIT, &res, &rpid, pid);
  118. +     signal(SIGINT, ihand);
  119. +     statusvalue = res.codeResult << 8 | res.codeTerminate;
  120. +     if (r)
  121. +         return -1;
  122. +     return statusvalue;
  123. + #endif
  124.   }
  125.   
  126.   int
  127. ***************
  128. *** 68,81 ****
  129.       int flag = P_WAIT, trueflag;
  130.   
  131.       if (sp > mark) {
  132. !     New(401,Argv, sp - mark + 1, char*);
  133. !     a = Argv;
  134. ! 
  135. !     if (mark < sp && SvIOKp(*(mark+1))) {
  136.           ++mark;
  137.           flag = SvIVx(*mark);
  138.       }
  139.   
  140.       while (++mark <= sp) {
  141.           if (*mark)
  142.           *a++ = SvPVx(*mark, na);
  143. --- 81,94 ----
  144.       int flag = P_WAIT, trueflag;
  145.   
  146.       if (sp > mark) {
  147. !     if (mark < sp && SvNOKp(*(mark+1))) {
  148.           ++mark;
  149.           flag = SvIVx(*mark);
  150.       }
  151.   
  152. +     New(401,Argv, sp - mark + 1, char*);
  153. +     a = Argv;
  154. + 
  155.       while (++mark <= sp) {
  156.           if (*mark)
  157.           *a++ = SvPVx(*mark, na);
  158. ***************
  159. *** 102,108 ****
  160.   }
  161.   
  162.   int
  163. ! do_spawn(cmd)
  164.   char *cmd;
  165.   {
  166.       register char **a;
  167. --- 115,121 ----
  168.   }
  169.   
  170.   int
  171. ! do_spawn2(cmd, execf)
  172.   char *cmd;
  173.   {
  174.       register char **a;
  175. ***************
  176. *** 132,138 ****
  177.           *s = '\0';
  178.           break;
  179.           }
  180. ! shell_cmd:  return result(P_WAIT, spawnl(P_NOWAIT,shell,shell,copt,cmd,(char*)0));
  181.       }
  182.       }
  183.       New(402,Argv, (s - cmd) / 2 + 2, char*);
  184. --- 145,153 ----
  185.           *s = '\0';
  186.           break;
  187.           }
  188. ! shell_cmd:  if (execf)
  189. !                 return spawnl(P_OVERLAY,shell,shell,copt,cmd,(char*)0);
  190. !         return result(P_WAIT, spawnl(P_WAIT,shell,shell,copt,cmd,(char*)0));
  191.       }
  192.       }
  193.       New(402,Argv, (s - cmd) / 2 + 2, char*);
  194. ***************
  195. *** 148,154 ****
  196.       }
  197.       *a = Nullch;
  198.       if (Argv[0]) {
  199. !     rc = result(P_WAIT, spawnvp(P_NOWAIT,Argv[0],Argv));
  200.       if (rc < 0 && dowarn)
  201.           warn("Can't spawn \"%s\": %s", Argv[0], Strerror(errno));
  202.       } else
  203. --- 163,172 ----
  204.       }
  205.       *a = Nullch;
  206.       if (Argv[0]) {
  207. !     if (execf)
  208. !         rc = spawnvp(P_OVERLAY,Argv[0],Argv);
  209. !         else
  210. !         rc = result(P_WAIT, spawnvp(P_NOWAIT,Argv[0],Argv));
  211.       if (rc < 0 && dowarn)
  212.           warn("Can't spawn \"%s\": %s", Argv[0], Strerror(errno));
  213.       } else
  214. ***************
  215. *** 157,162 ****
  216. --- 175,194 ----
  217.       return rc;
  218.   }
  219.   
  220. + int
  221. + do_spawn(cmd)
  222. + char *cmd;
  223. + {
  224. +     return do_spawn2(cmd, 0);
  225. + }
  226. + 
  227. + bool
  228. + do_exec(cmd)
  229. + char *cmd;
  230. + {
  231. +     return do_spawn2(cmd, 1);
  232. + }
  233. + 
  234.   /*****************************************************************************/
  235.   
  236.   #ifndef HAS_FORK
  237. ***************
  238. *** 170,195 ****
  239.   #endif
  240.   
  241.   /*****************************************************************************/
  242. ! /* not implemented in EMX 0.9a */
  243.   
  244.   void *    ctermid(x)    { return 0; }
  245.   
  246. ! #ifdef MYTTYNAME /* was not in emx0.9a */
  247. ! void *    ttyname(x)    { return 0; }
  248. ! #endif
  249.   
  250. ! void *    gethostent()    { return 0; }
  251. ! void *    getnetent()    { return 0; }
  252. ! void *    getprotoent()    { return 0; }
  253. ! void *    getservent()    { return 0; }
  254. ! void    sethostent(x)    {}
  255. ! void    setnetent(x)    {}
  256. ! void    setprotoent(x)    {}
  257. ! void    setservent(x)    {}
  258. ! void    endhostent(x)    {}
  259. ! void    endnetent(x)    {}
  260. ! void    endprotoent(x)    {}
  261. ! void    endservent(x)    {}
  262.   
  263.   /*****************************************************************************/
  264.   /* stat() hack for char/block device */
  265. --- 202,274 ----
  266.   #endif
  267.   
  268.   /*****************************************************************************/
  269. ! /* missing in malloc.c */
  270. ! 
  271. ! void *
  272. ! calloc(size_t n, size_t s)
  273. ! {
  274. !     void *p;
  275. ! 
  276. !     n *= s;
  277. !     p = malloc(n);
  278. !     if (p)
  279. !     memset(p, 0, n);
  280. !     return p;
  281. ! }
  282. ! 
  283. ! /*****************************************************************************/
  284. ! /* not implemented in EMX 0.9b */
  285.   
  286.   void *    ctermid(x)    { return 0; }
  287.   
  288. ! /*****************************************************************************/
  289. ! /* my socket forwarders - EMX lib only provides static forwarders */
  290. ! 
  291. ! static HMODULE htcp = 0;
  292.   
  293. ! static void *
  294. ! tcp0(char *name)
  295. ! {
  296. !     static BYTE buf[20];
  297. !     PFN fcn;
  298. !     if (!htcp)
  299. !     DosLoadModule(buf, sizeof buf, "tcp32dll", &htcp);
  300. !     if (htcp && DosQueryProcAddr(htcp, 0, name, &fcn) == 0)
  301. !     return (void *) ((void * (*)(void)) fcn) ();
  302. !     return 0;
  303. ! }
  304. ! 
  305. ! static void
  306. ! tcp1(char *name, int arg)
  307. ! {
  308. !     static BYTE buf[20];
  309. !     PFN fcn;
  310. !     if (!htcp)
  311. !     DosLoadModule(buf, sizeof buf, "tcp32dll", &htcp);
  312. !     if (htcp && DosQueryProcAddr(htcp, 0, name, &fcn) == 0)
  313. !     ((void (*)(int)) fcn) (arg);
  314. ! }
  315. ! 
  316. ! void *    gethostent()    { return tcp0("GETHOSTENT");  }
  317. ! void *    getnetent()    { return tcp0("GETNETENT");   }
  318. ! void *    getprotoent()    { return tcp0("GETPROTOENT"); }
  319. ! void *    getservent()    { return tcp0("GETSERVENT");  }
  320. ! void    sethostent(x)    { tcp1("SETHOSTENT",  x); }
  321. ! void    setnetent(x)    { tcp1("SETNETENT",   x); }
  322. ! void    setprotoent(x)    { tcp1("SETPROTOENT", x); }
  323. ! void    setservent(x)    { tcp1("SETSERVENT",  x); }
  324. ! void    endhostent()    { tcp0("ENDHOSTENT");  }
  325. ! void    endnetent()    { tcp0("ENDNETENT");   }
  326. ! void    endprotoent()    { tcp0("ENDPROTOENT"); }
  327. ! void    endservent()    { tcp0("ENDSERVENT");  }
  328. ! 
  329. ! /*****************************************************************************/
  330. ! /* not implemented in C Set++ */
  331. ! 
  332. ! #ifndef __EMX__
  333. ! int    setuid(x)    { errno = EINVAL; return -1; }
  334. ! int    setgid(x)    { errno = EINVAL; return -1; }
  335. ! #endif
  336.   
  337.   /*****************************************************************************/
  338.   /* stat() hack for char/block device */
  339. *** e:/perl5.002b3/os2/os2ish.h    Tue Feb 20 13:52:32 1996
  340. --- perl5/os2/os2ish.h    Tue Feb 20 14:20:58 1996
  341. ***************
  342. *** 4,10 ****
  343. --- 4,12 ----
  344.    *    This symbol, if defined, indicates that the ioctl() routine is
  345.    *    available to set I/O characteristics
  346.    */
  347. + #ifdef __EMX__
  348.   #define    HAS_IOCTL        /**/
  349. + #endif
  350.    
  351.   /* HAS_UTIME:
  352.    *    This symbol, if defined, indicates that the routine utime() is
  353. ***************
  354. *** 12,18 ****
  355. --- 14,22 ----
  356.    */
  357.   #define HAS_UTIME        /**/
  358.   
  359. + #ifndef __IBMC__
  360.   #define HAS_KILL
  361. + #endif
  362.   #define HAS_WAIT
  363.   
  364.   #ifndef SIGABRT
  365. ***************
  366. *** 21,27 ****
  367. --- 25,36 ----
  368.   #ifndef SIGILL
  369.   #    define SIGILL 6         /* blech */
  370.   #endif
  371. + 
  372. + #ifdef __IBMC__
  373. + #define ABORT() abort();
  374. + #else
  375.   #define ABORT() kill(getpid(),SIGABRT);
  376. + #endif
  377.   
  378.   #define BIT_BUCKET "/dev/null"  /* Will this work? */
  379.   
  380. ***************
  381. *** 29,40 ****
  382.       _response(argcp, argvp);            \
  383.       _wildcard(argcp, argvp); } while (0)
  384.   
  385. - 
  386. - #define PERL_SYS_INIT(argcp, argvp) do {    \
  387. -     _response(argcp, argvp);            \
  388. -     _wildcard(argcp, argvp); } while (0)
  389. - 
  390. - 
  391.   /*
  392.    * fwrite1() should be a routine with the same calling sequence as fwrite(),
  393.    * but which outputs all of the bytes requested as a single stream (unlike
  394. --- 38,43 ----
  395. ***************
  396. *** 47,60 ****
  397.   
  398.   /*****************************************************************************/
  399.   
  400.   #include <stdlib.h>    /* before the following definitions */
  401.   #include <unistd.h>    /* before the following definitions */
  402.   
  403.   #define chdir    _chdir2
  404.   #define getcwd    _getcwd2
  405.   
  406. ! /* This guy is needed for quick stdstd  */
  407.   
  408.   #if defined(USE_STDIO_PTR) && defined(STDIO_PTR_LVALUE) && defined(STDIO_CNT_LVALUE)
  409.   #  define _filbuf _fill
  410.       /* Perl uses ungetc only with successful return */
  411. --- 50,81 ----
  412.   
  413.   /*****************************************************************************/
  414.   
  415. + #ifdef __EMX__
  416. + 
  417.   #include <stdlib.h>    /* before the following definitions */
  418.   #include <unistd.h>    /* before the following definitions */
  419.   
  420.   #define chdir    _chdir2
  421.   #define getcwd    _getcwd2
  422.   
  423. ! #define OS2_STAT_HACK 1
  424. ! 
  425. ! #else /* __IBMC__ */
  426. ! 
  427. ! #define __EXTENDED__
  428. ! 
  429. ! #include <fcntl.h>
  430. ! #include <io.h>
  431. ! #include <direct.h>
  432. ! #include <process.h>
  433. ! 
  434. ! #define mkdir(x,y) _mkdir(x)
  435.   
  436. + #define OS2_STAT_HACK 0
  437. + 
  438. + #endif /* __IBMC__ */
  439. + 
  440. + /* This guy is needed for quick stdstd  */
  441.   #if defined(USE_STDIO_PTR) && defined(STDIO_PTR_LVALUE) && defined(STDIO_CNT_LVALUE)
  442.   #  define _filbuf _fill
  443.       /* Perl uses ungetc only with successful return */
  444. ***************
  445. *** 65,71 ****
  446.   
  447.   #define OP_BINARY O_BINARY
  448.   
  449. ! #define OS2_STAT_HACK 1
  450.   #if OS2_STAT_HACK
  451.   
  452.   #define Stat(fname,bufptr) os2_stat((fname),(bufptr))
  453. --- 86,92 ----
  454.   
  455.   #define OP_BINARY O_BINARY
  456.   
  457. ! 
  458.   #if OS2_STAT_HACK
  459.   
  460.   #define Stat(fname,bufptr) os2_stat((fname),(bufptr))
  461. *** e:/perl5.002b3/perl.c    Thu Feb 01 18:40:14 1996
  462. --- perl5/perl.c    Mon Feb 26 01:16:04 1996
  463. ***************
  464. *** 1174,1180 ****
  465.   #endif
  466.   #ifdef OS2
  467.       fputs("OS/2 port Copyright (c) 1990, 1991, Raymond Chen, Kai Uwe Rommel\n"
  468. !         "Version 5 port Copyright (c) 1994-1995, Andreas Kaiser\n", stdout);
  469.   #endif
  470.   #ifdef atarist
  471.       fputs("atariST series port, ++jrb  bammi@cadence.com\n", stdout);
  472. --- 1174,1180 ----
  473.   #endif
  474.   #ifdef OS2
  475.       fputs("OS/2 port Copyright (c) 1990, 1991, Raymond Chen, Kai Uwe Rommel\n"
  476. !         "Version 5 port Copyright (c) 1994-1996, Andreas Kaiser\n", stdout);
  477.   #endif
  478.   #ifdef atarist
  479.       fputs("atariST series port, ++jrb  bammi@cadence.com\n", stdout);
  480.