home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / perl / update.dif < prev    next >
Text File  |  1991-06-17  |  15KB  |  573 lines
  1. diff -cbBwr perl-4.010/eval.c perl4010/eval.c
  2. *** perl-4.010/eval.c    Tue Jun 11 23:33:24 1991
  3. --- perl4010/eval.c    Wed Jun 12 00:00:16 1991
  4. ***************
  5. *** 34,39 ****
  6. --- 34,44 ----
  7.   #ifdef I_FCNTL
  8.   #include <fcntl.h>
  9.   #endif
  10. + #ifdef MSDOS
  11. + /* I_FCNTL *MUST* not be defined for MS-DOS and OS/2
  12. +    but fcntl.h is required for O_BINARY */
  13. + #include <fcntl.h>
  14. + #endif
  15.   #ifdef I_SYS_FILE
  16.   #include <sys/file.h>
  17.   #endif
  18. diff -cbBwr perl-4.010/os2/a2p.cs perl4010/os2/a2p.cs
  19. *** perl-4.010/os2/a2p.cs    Wed Mar 20 08:47:00 1991
  20. --- perl4010/os2/a2p.cs    Mon Jun 17 08:44:00 1991
  21. ***************
  22. *** 2,8 ****
  23.   (-W1 -Od -Ocgelt hash.c str.c util.c walk.c)
  24.   
  25.   setargv.obj
  26. ! ..\os2\a2p.def
  27.   a2p.exe
  28.   
  29.   -AL -LB -S0x9000
  30. --- 2,9 ----
  31.   (-W1 -Od -Ocgelt hash.c str.c util.c walk.c)
  32.   
  33.   setargv.obj
  34. ! 
  35. ! ..\os2\perl.def
  36.   a2p.exe
  37.   
  38.   -AL -LB -S0x9000
  39. diff -cbBwr perl-4.010/os2/eg/alarm.pl perl4010/os2/eg/alarm.pl
  40. *** perl-4.010/os2/eg/alarm.pl    Wed Mar 20 08:49:04 1991
  41. --- perl4010/os2/eg/alarm.pl    Mon Jun 17 00:08:18 1991
  42. ***************
  43. *** 4,12 ****
  44.     exit(0);
  45.   }
  46.   
  47. - $SIG{'INT'} = 'handler';
  48. - $SIG{'QUIT'} = 'handler';
  49.   $SIG{'ALRM'} = 'handler';
  50.   
  51.   print "Starting execution ...\n";
  52.   alarm(10);
  53. --- 4,14 ----
  54.     exit(0);
  55.   }
  56.   
  57.   $SIG{'ALRM'} = 'handler';
  58. + 
  59. + $SIG{'INT'} = 'handler';    # Ctrl-C pressed
  60. + $SIG{'BREAK'} = 'handler';    # Ctrl-Break pressed
  61. + $SIG{'TERM'} = 'handler';    # Killed by another process
  62.   
  63.   print "Starting execution ...\n";
  64.   alarm(10);
  65. diff -cbBwr perl-4.010/os2/glob.c perl4010/os2/glob.c
  66. *** perl-4.010/os2/glob.c    Wed Mar 20 08:49:00 1991
  67. --- perl4010/os2/glob.c    Mon Jun 17 10:49:22 1991
  68. ***************
  69. *** 1,18 ****
  70.   /*
  71.    * Globbing for OS/2.  Relies on the expansion done by the library
  72. !  * startup code. (dds)
  73.    */
  74.   
  75. ! #include <stdio.h>
  76. ! #include <string.h>
  77.   
  78. ! main(int argc, char *argv[])
  79.   {
  80. !   register i;
  81.   
  82.     for (i = 1; i < argc; i++)
  83.     {
  84. !     fputs(IsFileSystemFAT(argv[i]) ? strlwr(argv[i]) : argv[i], stdout);
  85. !     putchar(0);
  86.     }
  87.   }
  88. --- 1,22 ----
  89.   /*
  90.    * Globbing for OS/2.  Relies on the expansion done by the library
  91. !  * startup code.
  92.    */
  93.   
  94. ! #define PERLGLOB
  95. ! #include "director.c"
  96.   
  97. ! int main(int argc, char **argv)
  98.   {
  99. !   SHORT i;
  100. !   USHORT r;
  101. !   CHAR *f;
  102.   
  103.     for (i = 1; i < argc; i++)
  104.     {
  105. !     f = IsFileSystemFAT(argv[i]) ? strlwr(argv[i]) : argv[i];
  106. !     DosWrite(1, f, strlen(f) + 1, &r);
  107.     }
  108. + 
  109. +   return argc - 1;
  110.   }
  111. diff -cbBwr perl-4.010/os2/os2.c perl4010/os2/os2.c
  112. *** perl-4.010/os2/os2.c    Tue Jun 11 23:34:18 1991
  113. --- perl4010/os2/os2.c    Sun Jun 16 20:17:16 1991
  114. ***************
  115. *** 54,67 ****
  116.   { return -1; }
  117.   
  118.   
  119. ! /* extendd chdir() */
  120.   
  121.   int chdir(char *path)
  122.   {
  123.     if ( path[0] != 0 && path[1] == ':' )
  124. !     DosSelectDisk(toupper(path[0]) - '@');
  125.   
  126. !   DosChDir(path, 0L);
  127.   }
  128.   
  129.   
  130. --- 54,68 ----
  131.   { return -1; }
  132.   
  133.   
  134. ! /* extended chdir() */
  135.   
  136.   int chdir(char *path)
  137.   {
  138.     if ( path[0] != 0 && path[1] == ':' )
  139. !     if ( DosSelectDisk(toupper(path[0]) - '@') )
  140. !       return -1;
  141.   
  142. !   return DosChDir(path, 0L);
  143.   }
  144.   
  145.   
  146. ***************
  147. *** 102,107 ****
  148. --- 103,124 ----
  149.   }
  150.   
  151.   
  152. + /* wait for specific pid */
  153. + 
  154. + int wait4pid(int pid, int *status, int flags)
  155. + {
  156. +   RESULTCODES res;
  157. +   int endpid, rc;
  158. + 
  159. +   if ( DosCwait(DCWA_PROCESS, flags ? DCWW_NOWAIT : DCWW_WAIT,
  160. +                 &res, &endpid, pid) )
  161. +     return -1;
  162. + 
  163. +   *status = res.codeResult;
  164. +   return endpid;
  165. + }
  166. + 
  167. + 
  168.   /* kill */
  169.   
  170.   int kill(int pid, int sig)
  171. ***************
  172. *** 251,257 ****
  173.   usage(char *myname)
  174.   {
  175.   #ifdef MSDOS
  176. !   printf("\nUsage: %s [-acdnpsSvw] [-0[octal]] [-Dnumber] [-i[extension]] [-Idirectory]"
  177.   #else
  178.     printf("\nUsage: %s [-acdnpPsSuUvw] [-Dnumber] [-i[extension]] [-Idirectory]"
  179.   #endif
  180. --- 268,274 ----
  181.   usage(char *myname)
  182.   {
  183.   #ifdef MSDOS
  184. !   printf("\nUsage: %s [-acdnpPsSvw] [-0[octal]] [-Dnumber] [-i[extension]] [-Idirectory]"
  185.   #else
  186.     printf("\nUsage: %s [-acdnpPsSuUvw] [-Dnumber] [-i[extension]] [-Idirectory]"
  187.   #endif
  188. ***************
  189. *** 262,270 ****
  190.            "\n  -d  run scripts under debugger"
  191.            "\n  -n  assume 'while (<>) { ...script... }' loop arround your script"
  192.            "\n  -p  assume loop like -n but print line also like sed"
  193. - #ifndef MSDOS
  194.            "\n  -P  run script through C preprocessor befor compilation"
  195. - #endif
  196.            "\n  -s  enable some switch parsing for switches after script name"
  197.            "\n  -S  look for the script using PATH environment variable");
  198.   #ifndef MSDOS
  199. --- 279,285 ----
  200. diff -cbBwr perl-4.010/os2/perl.cs perl4010/os2/perl.cs
  201. *** perl-4.010/os2/perl.cs    Wed Mar 20 08:48:50 1991
  202. --- perl4010/os2/perl.cs    Mon Jun 17 08:44:00 1991
  203. ***************
  204. *** 1,15 ****
  205.   (-W1 -Od -Olt -DDEBUGGING -Gt2048
  206.   array.c cmd.c cons.c consarg.c doarg.c doio.c dolist.c dump.c form.c
  207. ! hash.c perl.c perly.c regcomp.c regexec.c stab.c str.c util.c
  208.   )
  209. ! (-W1 -Od -Olt -B2C2L -B3C3L -DDEBUGGING eval.c{evalargs.xc} toke.c)
  210.   (-W1 -Od -Olt -I. -Ios2
  211. ! os2\os2.c os2\popen.c os2\mktemp.c os2\director.c os2\suffix.c os2\alarm.c
  212.   )
  213.   
  214.   ; link with this library if you have GNU gdbm for OS/2
  215. ! ; remember to enable the NDBM symbol in config.h before compiling
  216.   lgdbm.lib
  217.   setargv.obj
  218.   os2\perl.def
  219.   os2\perl.bad
  220. --- 1,18 ----
  221.   (-W1 -Od -Olt -DDEBUGGING -Gt2048
  222.   array.c cmd.c cons.c consarg.c doarg.c doio.c dolist.c dump.c form.c
  223. ! hash.c perl.c regcomp.c regexec.c stab.c str.c util.c
  224.   )
  225. ! (-W1 -Od -Olt -DDEBUGGING -Gt2048 (-d perly.y))
  226. ! (-W1 -Od -Olt -B2C2L -B3C3L -DDEBUGGING eval.c toke.c)
  227.   (-W1 -Od -Olt -I. -Ios2
  228. ! os2\os2.c os2\popen.c os2\suffix.c
  229. ! os2\director.c os2\alarm.c os2\crypt.c
  230.   )
  231.   
  232.   ; link with this library if you have GNU gdbm for OS/2
  233. ! ; remember to enable the GDBM symbol in config.h before compiling
  234.   lgdbm.lib
  235. + 
  236.   setargv.obj
  237.   os2\perl.def
  238.   os2\perl.bad
  239. diff -cbBwr perl-4.010/os2/perl.def perl4010/os2/perl.def
  240. *** perl-4.010/os2/perl.def    Wed Mar 20 08:47:20 1991
  241. --- perl4010/os2/perl.def    Mon Jun 17 08:45:00 1991
  242. ***************
  243. *** 1,2 ****
  244. ! NAME PERL WINDOWCOMPAT NEWFILES
  245. ! DESCRIPTION 'PERL 3.0 - for MS-DOS and OS/2'
  246. --- 1,2 ----
  247. ! NAME WINDOWCOMPAT NEWFILES
  248. ! DESCRIPTION 'PERL 4.0 - for MS-DOS and OS/2'
  249. diff -cbBwr perl-4.010/os2/perlglob.cs perl4010/os2/perlglob.cs
  250. *** perl-4.010/os2/perlglob.cs    Wed Mar 20 08:49:04 1991
  251. --- perl4010/os2/perlglob.cs    Mon Jun 17 08:50:12 1991
  252. ***************
  253. *** 1,9 ****
  254.   os2\glob.c
  255. - (-DPERLGLOB os2\director.c)
  256.   
  257.   setargv.obj
  258. ! os2\perlglob.def
  259. ! os2\perlglob.bad
  260.   perlglob.exe
  261.   
  262.   -AS -LB -S0x1000
  263. --- 1,9 ----
  264.   os2\glob.c
  265.   
  266.   setargv.obj
  267. ! 
  268. ! os2\perl.def
  269. ! os2\perl.bad
  270.   perlglob.exe
  271.   
  272.   -AS -LB -S0x1000
  273. diff -cbBwr perl-4.010/os2/popen.c perl4010/os2/popen.c
  274. *** perl-4.010/os2/popen.c    Wed Mar 20 08:47:54 1991
  275. --- perl4010/os2/popen.c    Sun Jun 16 20:17:02 1991
  276. ***************
  277. *** 65,71 ****
  278.           if ( _osmode == DOS_MODE )
  279.             return dos_popen(cmd, mode);
  280.   
  281. !     if (DosMakePipe((PHFILE) &p[0], (PHFILE) &p[1], 4096) < 0)
  282.                   return NULL;
  283.   
  284.           myside = tst(p[WRITEH], p[READH]);
  285. --- 65,71 ----
  286.           if ( _osmode == DOS_MODE )
  287.             return dos_popen(cmd, mode);
  288.   
  289. !         if ( _pipe(p, 4096, 0) )
  290.                   return NULL;
  291.   
  292.           myside = tst(p[WRITEH], p[READH]);
  293. ***************
  294. *** 124,130 ****
  295.   {
  296.     int res;
  297.   
  298. !   if ( res = DosMakePipe((PHFILE) &filedes[0], (PHFILE) &filedes[1], 4096) )
  299.       return res;
  300.   
  301.     DosSetFHandState(filedes[0], OPEN_FLAGS_NOINHERIT);
  302. --- 124,130 ----
  303.   {
  304.     int res;
  305.   
  306. !   if ( res = _pipe(filedes, 4096, 0) )
  307.       return res;
  308.   
  309.     DosSetFHandState(filedes[0], OPEN_FLAGS_NOINHERIT);
  310. ***************
  311. *** 149,154 ****
  312. --- 150,156 ----
  313.   {
  314.       FILE *current;
  315.       char name[128];
  316. +     char *tmp = getenv("TMP");
  317.       int cur;
  318.       pipemode curmode;
  319.   
  320. ***************
  321. *** 165,172 ****
  322.       /*
  323.       ** get a name to use.
  324.       */
  325. !     strcpy(name, "piXXXXXX");
  326. !     Mktemp(name);
  327.   
  328.       /*
  329.       ** If we're reading, just call system to get a file filled with
  330. --- 167,177 ----
  331.       /*
  332.       ** get a name to use.
  333.       */
  334. !     strcpy(name, tmp ? tmp : "\\");
  335. !     if ( name[strlen(name) - 1] != '\\' )
  336. !       strcat(name, "\\");
  337. !     strcat(name, "piXXXXXX");
  338. !     mktemp(name);
  339.   
  340.       /*
  341.       ** If we're reading, just call system to get a file filled with
  342. diff -cbBwr perl-4.010/os2/README.OS2 perl4010/os2/README.OS2
  343. *** perl-4.010/os2/README.OS2    Wed Mar 20 08:46:26 1991
  344. --- perl4010/os2/README.OS2    Mon Jun 17 00:27:52 1991
  345. ***************
  346. *** 404,406 ****
  347. --- 404,436 ----
  348.   
  349.                                   Kai Uwe Rommel
  350.                                   rommel@lan.informatik.tu-muenchen.dbp.de
  351. + 
  352. + 
  353. + Verified perl 4.0 at patchlevel 10
  354. + Changes:
  355. + - some minor corrections and updates in various files
  356. + - new os2/config.h created from original config.H
  357. + - added support for crypt(), PD routine by A.Tanenbaum in new os2/crypt.c
  358. + - added support for wait4pid() in os2.c
  359. + - fixed/added support for -P option (requires a standard CPP for OS/2)
  360. + - os2/mktemp.c deleted, no longer needed
  361. + - new Makefile created for MS C 6.00 and it's NMAKE
  362. + - with os2/perl.cs, bison has no longer to be called manually
  363. + 
  364. + I have successfully run most tests. Diffs are in os2/tests.dif.
  365. + Often, only command names, shell expansion etc. have to be changed.
  366. + Test that still don't run are Unix-specific ones or fail because
  367. + of CR/LF-problems:
  368. + 
  369. + - io/argv.t, io/inplace.t, op/exec.t, op/glob.t  (minor problems)
  370. + - io/fs.t, io/pipe.t op/fork.t, op/magic.t, op/time.t
  371. +    (under OS/2 not supported features of Unix)
  372. + - op/pat.t (bug, not yet fixed)
  373. + 
  374. + Remember to remove the HAS_GDBM symbol from os2/config.h or
  375. + get GNU gdbm for OS/2.
  376. + 
  377. +                 June 1991
  378. + 
  379. +                                 Kai Uwe Rommel
  380. +                                 rommel@lan.informatik.tu-muenchen.dbp.de
  381. diff -cbBwr perl-4.010/perl.c perl4010/perl.c
  382. *** perl-4.010/perl.c    Tue Jun 11 23:37:02 1991
  383. --- perl4010/perl.c    Sun Jun 16 20:28:02 1991
  384. ***************
  385. *** 29,39 ****
  386.   #include "EXTERN.h"
  387.   #include "perl.h"
  388.   #include "perly.h"
  389. - #ifdef MSDOS
  390. - #include "patchlev.h"
  391. - #else
  392.   #include "patchlevel.h"
  393. - #endif
  394.   
  395.   char *getenv();
  396.   
  397. --- 29,35 ----
  398. ***************
  399. *** 321,328 ****
  400.       if (preprocess) {
  401.       str_cat(str,"-I");
  402.       str_cat(str,PRIVLIB);
  403.       (void)sprintf(buf, "\
  404. ! %ssed %s -e '/^[^#]/b' \
  405.    -e '/^#[     ]*include[     ]/b' \
  406.    -e '/^#[     ]*define[     ]/b' \
  407.    -e '/^#[     ]*if[     ]/b' \
  408. --- 317,338 ----
  409.       if (preprocess) {
  410.       str_cat(str,"-I");
  411.       str_cat(str,PRIVLIB);
  412. + #ifdef MSDOS
  413. +     (void)sprintf(buf, "\
  414. + sed %s -e \"/^[^#]/b\" \
  415. +  -e \"/^#[     ]*include[     ]/b\" \
  416. +  -e \"/^#[     ]*define[     ]/b\" \
  417. +  -e \"/^#[     ]*if[     ]/b\" \
  418. +  -e \"/^#[     ]*ifdef[     ]/b\" \
  419. +  -e \"/^#[     ]*ifndef[     ]/b\" \
  420. +  -e \"/^#[     ]*else/b\" \
  421. +  -e \"/^#[     ]*endif/b\" \
  422. +  -e \"s/^#.*//\" \
  423. +  %s | %s -C %s %s",
  424. +       (doextract ? "-e \"1,/^#/d\n\"" : ""),
  425. + #else
  426.       (void)sprintf(buf, "\
  427. ! /bin/sed %s -e '/^[^#]/b' \
  428.    -e '/^#[     ]*include[     ]/b' \
  429.    -e '/^#[     ]*define[     ]/b' \
  430.    -e '/^#[     ]*if[     ]/b' \
  431. ***************
  432. *** 332,343 ****
  433.    -e '/^#[     ]*endif/b' \
  434.    -e 's/^#.*//' \
  435.    %s | %s -C %s %s",
  436. - #ifdef MSDOS
  437. -       "",
  438. - #else
  439. -       "/bin/",
  440. - #endif
  441.         (doextract ? "-e '1,/^#/d\n'" : ""),
  442.         argv[0], CPPSTDIN, str_get(str), CPPMINUS);
  443.   #ifdef DEBUGGING
  444.       if (debug & 64) {
  445. --- 342,349 ----
  446.    -e '/^#[     ]*endif/b' \
  447.    -e 's/^#.*//' \
  448.    %s | %s -C %s %s",
  449.         (doextract ? "-e '1,/^#/d\n'" : ""),
  450. + #endif
  451.         argv[0], CPPSTDIN, str_get(str), CPPMINUS);
  452.   #ifdef DEBUGGING
  453.       if (debug & 64) {
  454. ***************
  455. *** 1197,1203 ****
  456.       fputs("MS-DOS port Copyright (c) 1989, 1990, Diomidis Spinellis\n",
  457.       stdout);
  458.   #ifdef OS2
  459. !         fputs("OS/2 port Copyright (c) 1990, Raymond Chen, Kai Uwe Rommel\n",
  460.           stdout);
  461.   #endif
  462.   #endif
  463. --- 1203,1209 ----
  464.       fputs("MS-DOS port Copyright (c) 1989, 1990, Diomidis Spinellis\n",
  465.       stdout);
  466.   #ifdef OS2
  467. !         fputs("OS/2 port Copyright (c) 1990, 1991, Raymond Chen, Kai Uwe Rommel\n",
  468.           stdout);
  469.   #endif
  470.   #endif
  471. diff -cbBwr perl-4.010/util.c perl4010/util.c
  472. *** perl-4.010/util.c    Tue Jun 11 23:36:18 1991
  473. --- perl4010/util.c    Sun Jun 16 19:55:42 1991
  474. ***************
  475. *** 1386,1391 ****
  476. --- 1386,1392 ----
  477.   #endif
  478.   #endif
  479.   }
  480. + #endif /* !MSDOS */
  481.   
  482.   pidgone(pid,status)
  483.   int pid;
  484. ***************
  485. *** 1402,1408 ****
  486.   #endif
  487.       return;
  488.   }
  489. - #endif /* !MSDOS */
  490.   
  491.   #ifndef HAS_MEMCMP
  492.   memcmp(s1,s2,len)
  493. --- 1403,1408 ----
  494. diff -cbBwr perl-4.010/x2p/a2py.c perl4010/x2p/a2py.c
  495. *** perl-4.010/x2p/a2py.c    Tue Jun 11 23:32:12 1991
  496. --- perl4010/x2p/a2py.c    Fri Jun 14 23:49:24 1991
  497. ***************
  498. *** 14,21 ****
  499.    *
  500.    */
  501.   
  502. ! #ifdef MSDOS
  503. ! #include "../patchlev.h"
  504.   #endif
  505.   #include "util.h"
  506.   char *index();
  507. --- 14,21 ----
  508.    *
  509.    */
  510.   
  511. ! #ifdef OS2
  512. ! #include "../patchlevel.h"
  513.   #endif
  514.   #include "util.h"
  515.   char *index();
  516. ***************
  517. *** 26,35 ****
  518.   int checkers = 0;
  519.   STR *walk();
  520.   
  521. ! #ifdef MSDOS
  522.   usage()
  523.   {
  524. !     printf("\nThis is the AWK to PERL translator, version 3.0, patchlevel %d\n", PATCHLEVEL);
  525.       printf("\nUsage: %s [-D<number>] [-F<char>] [-n<fieldlist>] [-<number>] filename\n", myname);
  526.       printf("\n  -D<number>      sets debugging flags."
  527.              "\n  -F<character>   the awk script to translate is always invoked with"
  528. --- 26,35 ----
  529.   int checkers = 0;
  530.   STR *walk();
  531.   
  532. ! #ifdef OS2
  533.   usage()
  534.   {
  535. !     printf("\nThis is the AWK to PERL translator, version 4.0, patchlevel %d\n", PATCHLEVEL);
  536.       printf("\nUsage: %s [-D<number>] [-F<char>] [-n<fieldlist>] [-<number>] filename\n", myname);
  537.       printf("\n  -D<number>      sets debugging flags."
  538.              "\n  -F<character>   the awk script to translate is always invoked with"
  539. ***************
  540. *** 85,91 ****
  541.           break;
  542.       default:
  543.           fatal("Unrecognized switch: %s\n",argv[0]);
  544. ! #ifdef MSDOS
  545.               usage();
  546.   #endif
  547.       }
  548. --- 85,91 ----
  549.           break;
  550.       default:
  551.           fatal("Unrecognized switch: %s\n",argv[0]);
  552. ! #ifdef OS2
  553.               usage();
  554.   #endif
  555.       }
  556. ***************
  557. *** 95,101 ****
  558.       /* open script */
  559.   
  560.       if (argv[0] == Nullch) {
  561. ! #ifdef MSDOS
  562.       if ( isatty(fileno(stdin)) )
  563.           usage();
  564.   #endif
  565. --- 95,101 ----
  566.       /* open script */
  567.   
  568.       if (argv[0] == Nullch) {
  569. ! #ifdef OS2
  570.       if ( isatty(fileno(stdin)) )
  571.           usage();
  572.   #endif
  573.