home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume30 / perl / patch22 < prev    next >
Text File  |  1992-06-11  |  50KB  |  1,914 lines
  1. Newsgroups: comp.sources.misc
  2. From: lwall@netlabs.com (Larry Wall)
  3. Subject:  v30i033:  perl - The perl programming language, Patch22
  4. Message-ID: <1992Jun11.180156.29879@sparky.imd.sterling.com>
  5. X-Md4-Signature: a4f9af2c555f881298a086024a338c39
  6. Date: Thu, 11 Jun 1992 18:01:56 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: lwall@netlabs.com (Larry Wall)
  10. Posting-number: Volume 30, Issue 33
  11. Archive-name: perl/patch22
  12. Environment: UNIX, MS-DOS, OS2
  13. Patch-To: perl: Volume 18, Issue 19-54
  14.  
  15. System: perl version 4.0
  16. Patch #: 22
  17. Priority: highish
  18. Subject: patch #20, continued
  19.  
  20. Description:
  21.     See patch #20.
  22.  
  23. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your perl source
  24.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  25.     If you don't have the patch program, apply the following by hand,
  26.     or get patch (version 2.0, latest patchlevel).
  27.  
  28.     After patching:
  29.         *** DO NOTHING--INSTALL ALL PATCHES UP THROUGH #33 FIRST ***
  30.  
  31.     If patch indicates that patchlevel is the wrong version, you may need
  32.     to apply one or more previous patches, or the patch may already
  33.     have been applied.  See the patchlevel.h file to find out what has or
  34.     has not been applied.  In any event, don't continue with the patch.
  35.  
  36.     If you are missing previous patches they can be obtained from me:
  37.  
  38.     Larry Wall
  39.     lwall@netlabs.com
  40.  
  41.     If you send a mail message of the following form it will greatly speed
  42.     processing:
  43.  
  44.     Subject: Command
  45.     @SH mailpatch PATH perl 4.0 LIST
  46.            ^ note the c
  47.  
  48.     where PATH is a return path FROM ME TO YOU either in Internet notation,
  49.     or in bang notation from some well-known host, and LIST is the number
  50.     of one or more patches you need, separated by spaces, commas, and/or
  51.     hyphens.  Saying 35- says everything from 35 to the end.
  52.  
  53.  
  54. Index: patchlevel.h
  55. Prereq: 21
  56. 1c1
  57. < #define PATCHLEVEL 21
  58. ---
  59. > #define PATCHLEVEL 22
  60.  
  61. Index: atarist/atarist.c
  62. *** atarist/atarist.c.old    Mon Jun  8 17:35:03 1992
  63. --- atarist/atarist.c    Mon Jun  8 17:35:05 1992
  64. ***************
  65. *** 0 ****
  66. --- 1,282 ----
  67. + /*
  68. +  * random stuff for atariST
  69. +  */
  70. + 
  71. + #include "EXTERN.h"
  72. + #include "perl.h"
  73. + 
  74. + /* call back stuff, atari specific stuff below */
  75. + /* Be sure to refetch the stack pointer after calling these routines. */
  76. + 
  77. + int
  78. + callback(subname, sp, gimme, hasargs, numargs)
  79. + char *subname;
  80. + int sp;            /* stack pointer after args are pushed */
  81. + int gimme;        /* called in array or scalar context */
  82. + int hasargs;        /* whether to create a @_ array for routine */
  83. + int numargs;        /* how many args are pushed on the stack */
  84. + {
  85. +     static ARG myarg[3];    /* fake syntax tree node */
  86. +     int arglast[3];
  87. +     
  88. +     arglast[2] = sp;
  89. +     sp -= numargs;
  90. +     arglast[1] = sp--;
  91. +     arglast[0] = sp;
  92. + 
  93. +     if (!myarg[0].arg_ptr.arg_str)
  94. +     myarg[0].arg_ptr.arg_str = str_make("",0);
  95. + 
  96. +     myarg[1].arg_type = A_WORD;
  97. +     myarg[1].arg_ptr.arg_stab = stabent(subname, FALSE);
  98. + 
  99. +     myarg[2].arg_type = hasargs ? A_EXPR : A_NULL;
  100. + 
  101. +     return do_subr(myarg, gimme, arglast);
  102. + }
  103. + 
  104. + int
  105. + callv(subname, sp, gimme, argv)
  106. + char *subname;
  107. + register int sp;    /* current stack pointer */
  108. + int gimme;        /* called in array or scalar context */
  109. + register char **argv;    /* null terminated arg list, NULL for no arglist */
  110. + {
  111. +     register int items = 0;
  112. +     int hasargs = (argv != 0);
  113. + 
  114. +     astore(stack, ++sp, Nullstr);    /* reserve spot for 1st return arg */
  115. +     if (hasargs) {
  116. +     while (*argv) {
  117. +         astore(stack, ++sp, str_2mortal(str_make(*argv,0)));
  118. +         items++;
  119. +         argv++;
  120. +     }
  121. +     }
  122. +     return callback(subname, sp, gimme, hasargs, items);
  123. + }
  124. + 
  125. + #include <process.h>
  126. + #include <stdio.h>
  127. + 
  128. + long _stksize = 64*1024L;
  129. + unsigned long __DEFAULT_BUFSIZ__ = 4 * 1024L;
  130. + 
  131. + /*
  132. +  * The following code is based on the do_exec and do_aexec functions
  133. +  * in file doio.c
  134. +  */
  135. + int
  136. + do_aspawn(really,arglast)
  137. + STR *really;
  138. + int *arglast;
  139. + {
  140. +     register STR **st = stack->ary_array;
  141. +     register int sp = arglast[1];
  142. +     register int items = arglast[2] - sp;
  143. +     register char **a;
  144. +     char **argv;
  145. +     char *tmps;
  146. +     int status;
  147. + 
  148. +     if (items) {
  149. +     New(1101,argv, items+1, char*);
  150. +     a = argv;
  151. +     for (st += ++sp; items > 0; items--,st++) {
  152. +         if (*st)
  153. +         *a++ = str_get(*st);
  154. +         else
  155. +         *a++ = "";
  156. +     }
  157. +     *a = Nullch;
  158. +     if (really && *(tmps = str_get(really)))
  159. +         status = spawnvp(-P_WAIT,tmps,argv); /* -P_WAIT is a hack, see spawnvp.c in the lib */
  160. +     else
  161. +         status = spawnvp(-P_WAIT,argv[0],argv);
  162. +     Safefree(argv);
  163. +     }
  164. +     return status;
  165. + }
  166. + 
  167. + 
  168. + int
  169. + do_spawn(cmd)
  170. + char *cmd;
  171. + {
  172. +     return system(cmd);
  173. + }
  174. + 
  175. + #if 0 /* patchlevel 79 onwards we can */
  176. + /*
  177. +  * we unfortunately cannot use the super efficient fread/write from the lib
  178. +  */
  179. + size_t fread(void *data, size_t size, size_t count, FILE *fp)
  180. + {
  181. +     size_t i, j;
  182. +     unsigned char *buf = (unsigned char *)data;
  183. +     int c;
  184. + 
  185. +     for(i = 0; i < count; i++)
  186. +     {
  187. +     for(j = 0; j < size; j++)
  188. +     {
  189. +         if((c = getc(fp)) == EOF)
  190. +            return 0;
  191. +         *buf++ = c;
  192. +         }
  193. +     }
  194. +     return i;
  195. + }
  196. + 
  197. + size_t fwrite(const void *data, size_t size, size_t count, FILE *fp)
  198. + {
  199. +     size_t i, j;
  200. +     const unsigned char *buf = (const unsigned char *)data;
  201. + 
  202. +     for(i = 0; i < count; i++)
  203. +     {
  204. +     for(j = 0; j < size; j++)
  205. +     {
  206. +         if(fputc(*buf++, fp) == EOF)
  207. +            return 0;
  208. +         }
  209. +     }
  210. +     return i;
  211. + }
  212. + #endif
  213. + 
  214. + #ifdef HAS_SYSCALL
  215. + #define __NO_INLINE__
  216. + #include <osbind.h> /* must include this for proper protos */
  217. + 
  218. + /* these must match osbind.pl */
  219. + #define TRAP_1_W        1
  220. + #define TRAP_1_WW        2
  221. + #define TRAP_1_WL        3
  222. + #define TRAP_1_WLW        4
  223. + #define TRAP_1_WWW        5
  224. + #define TRAP_1_WLL        6
  225. + #define TRAP_1_WWLL        7
  226. + #define TRAP_1_WLWW        8
  227. + #define TRAP_1_WWLLL        9
  228. + #define TRAP_13_W        10
  229. + #define TRAP_13_WW        11
  230. + #define TRAP_13_WL        12
  231. + #define TRAP_13_WWW        13
  232. + #define TRAP_13_WWL        14
  233. + #define TRAP_13_WWLWWW        15
  234. + #define TRAP_14_W        16
  235. + #define TRAP_14_WW        17
  236. + #define TRAP_14_WL        18
  237. + #define TRAP_14_WWW        19
  238. + #define TRAP_14_WWL        20
  239. + #define TRAP_14_WWLL        21
  240. + #define TRAP_14_WLLW        22
  241. + #define TRAP_14_WLLL        23
  242. + #define TRAP_14_WWWL        24
  243. + #define TRAP_14_WWWWL        25
  244. + #define TRAP_14_WLLWW        26
  245. + #define TRAP_14_WWWWWWW        27
  246. + #define TRAP_14_WLLWWWWW    28
  247. + #define TRAP_14_WLLWWWWLW    29
  248. + #define TRAP_14_WLLWWWWWLW    30
  249. + 
  250. + int syscall(trap, fn, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12 )
  251. + unsigned long trap, fn, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12;
  252. + {
  253. +   /* for now */
  254. +   switch(trap)
  255. +   {
  256. +     case TRAP_1_W:
  257. +       return trap_1_w(fn);
  258. +       
  259. +     case TRAP_1_WW:
  260. +       return trap_1_ww(fn, a1);
  261. +       
  262. +     case TRAP_1_WL:
  263. +       return trap_1_wl(fn, a1);
  264. +       
  265. +     case TRAP_1_WLW:
  266. +       return trap_1_wlw(fn, a1, a2);
  267. +       
  268. +     case TRAP_1_WWW:
  269. +       return trap_1_www(fn, a1, a2);
  270. +       
  271. +     case TRAP_1_WLL:
  272. +       return trap_1_wll(fn, a1, a2);
  273. +       
  274. +     case TRAP_1_WWLL:
  275. +       return trap_1_wwll(fn, a1, a2, a3);
  276. +       
  277. +     case TRAP_1_WLWW:
  278. +       return trap_1_wlww(fn, a1, a2, a3);
  279. +       
  280. +     case TRAP_1_WWLLL:
  281. +       return trap_1_wwlll(fn, a1, a2, a3, a4);
  282. +       
  283. +     case TRAP_13_W:
  284. +       return trap_13_w(fn);
  285. +       
  286. +     case TRAP_13_WW:
  287. +       return trap_13_ww(fn, a1);
  288. +       
  289. +     case TRAP_13_WL:
  290. +       return trap_13_wl(fn, a1);
  291. +       
  292. +     case TRAP_13_WWW:
  293. +       return trap_13_www(fn, a1, a2);
  294. +       
  295. +     case TRAP_13_WWL:
  296. +       return trap_13_wwl(fn, a1, a2);
  297. +       
  298. +     case TRAP_13_WWLWWW:
  299. +       return trap_13_wwlwww(fn, a1, a2, a3, a4, a5);
  300. +       
  301. +     case TRAP_14_W:
  302. +       return trap_14_w(fn);
  303. +       
  304. +     case TRAP_14_WW:
  305. +       return trap_14_ww(fn, a1);
  306. +       
  307. +     case TRAP_14_WL:
  308. +       return trap_14_wl(fn, a1);
  309. +       
  310. +     case TRAP_14_WWW:
  311. +       return trap_14_www(fn, a1, a2);
  312. +       
  313. +     case TRAP_14_WWL:
  314. +       return trap_14_wwl(fn, a1, a2);
  315. +       
  316. +     case TRAP_14_WWLL:
  317. +       return trap_14_wwll(fn, a1, a2, a3);
  318. +       
  319. +     case TRAP_14_WLLW:
  320. +       return trap_14_wllw(fn, a1, a2, a3);
  321. +       
  322. +     case TRAP_14_WLLL:
  323. +       return trap_14_wlll(fn, a1, a2, a3);
  324. +       
  325. +     case TRAP_14_WWWL:
  326. +       return trap_14_wwwl(fn, a1, a2, a3);
  327. +       
  328. +     case TRAP_14_WWWWL:
  329. +       return trap_14_wwwwl(fn, a1, a2, a3, a4);
  330. +       
  331. +     case TRAP_14_WLLWW:
  332. +       return trap_14_wllww(fn, a1, a2, a3, a4);
  333. +       
  334. +     case TRAP_14_WWWWWWW:
  335. +       return trap_14_wwwwwww(fn, a1, a2, a3, a4, a5, a6);
  336. +       
  337. +     case TRAP_14_WLLWWWWW:
  338. +       return trap_14_wllwwwww(fn, a1, a2, a3, a4, a5, a6, a7);
  339. +       
  340. +     case TRAP_14_WLLWWWWLW:
  341. +       return trap_14_wllwwwwlw(fn, a1, a2, a3, a4, a5, a6, a7, a8);
  342. +       
  343. +     case TRAP_14_WLLWWWWWLW:
  344. +       return trap_14_wllwwwwwlw(fn, a1, a2, a3, a4, a5, a6, a7, a8, a9);
  345. +   }      
  346. + }
  347. + #endif
  348. + 
  349.  
  350. Index: lib/bigfloat.pl
  351. *** lib/bigfloat.pl.old    Mon Jun  8 17:48:39 1992
  352. --- lib/bigfloat.pl    Mon Jun  8 17:48:39 1992
  353. ***************
  354. *** 1,8 ****
  355.   package bigfloat;
  356.   require "bigint.pl";
  357. - 
  358.   # Arbitrary length float math package
  359.   #
  360.   # number format
  361.   #   canonical strings have the form /[+-]\d+E[+-]\d+/
  362.   #   Input values can have inbedded whitespace
  363. --- 1,9 ----
  364.   package bigfloat;
  365.   require "bigint.pl";
  366.   # Arbitrary length float math package
  367.   #
  368. + # by Mark Biggar
  369. + #
  370.   # number format
  371.   #   canonical strings have the form /[+-]\d+E[+-]\d+/
  372.   #   Input values can have inbedded whitespace
  373. ***************
  374. *** 66,72 ****
  375.   # negation
  376.   sub main'fneg { #(fnum_str) return fnum_str
  377.       local($_) = &'fnorm($_[0]);
  378. !     substr($_,0,1) =~ tr/+-/-+/ if ($_ ne '+0E+0'); # flip sign
  379.       $_;
  380.   }
  381.   
  382. --- 67,74 ----
  383.   # negation
  384.   sub main'fneg { #(fnum_str) return fnum_str
  385.       local($_) = &'fnorm($_[0]);
  386. !     vec($_,0,8) =^ ord('+') ^ ord('-') unless $_ eq '+0E+0'; # flip sign
  387. !     s/^H/N/;
  388.       $_;
  389.   }
  390.   
  391. ***************
  392. *** 73,79 ****
  393.   # absolute value
  394.   sub main'fabs { #(fnum_str) return fnum_str
  395.       local($_) = &'fnorm($_[0]);
  396. !     substr($_,0,1) = '+' unless $_ eq 'NaN';                       # mash sign
  397.       $_;
  398.   }
  399.   
  400. --- 75,81 ----
  401.   # absolute value
  402.   sub main'fabs { #(fnum_str) return fnum_str
  403.       local($_) = &'fnorm($_[0]);
  404. !     s/^-/+/;                               # mash sign
  405.       $_;
  406.   }
  407.   
  408. ***************
  409. *** 198,215 ****
  410.       local($x, $y) = (&'fnorm($_[0]),&'fnorm($_[1]));
  411.       if ($x eq "NaN" || $y eq "NaN") {
  412.       undef;
  413. -     } elsif ($x eq $y) {
  414. -     0;
  415. -     } elsif (ord($x) != ord($y)) {
  416. -     (ord($y) - ord($x));                # based on signs
  417.       } else {
  418. !     local($xm,$xe) = split('E',$x);
  419. !     local($ym,$ye) = split('E',$y);
  420. !     if ($xe ne $ye) {
  421. !         ($xe - $ye) * (substr($x,0,1).'1');
  422. !     } else {
  423. !         &bigint'cmp($xm,$ym);           # based on value
  424. !     }
  425.       }
  426.   }
  427.   
  428. --- 200,212 ----
  429.       local($x, $y) = (&'fnorm($_[0]),&'fnorm($_[1]));
  430.       if ($x eq "NaN" || $y eq "NaN") {
  431.       undef;
  432.       } else {
  433. !     ord($y) <=> ord($x)
  434. !     ||
  435. !     (  local($xm,$xe,$ym,$ye) = split('E', $x."E$y"),
  436. !          (($xe <=> $ye) * (substr($x,0,1).'1')
  437. !              || &bigint'cmp($xm,$ym))
  438. !     );
  439.       }
  440.   }
  441.   
  442.  
  443. Index: lib/bigint.pl
  444. *** lib/bigint.pl.old    Mon Jun  8 17:48:42 1992
  445. --- lib/bigint.pl    Mon Jun  8 17:48:42 1992
  446. ***************
  447. *** 138,156 ****
  448.   # GCD -- Euclids algorithm Knuth Vol 2 pg 296
  449.   sub main'bgcd { #(num_str, num_str) return num_str
  450.       local($x,$y) = (&'bnorm($_[0]),&'bnorm($_[1]));
  451. !     if ($x eq 'NaN') {
  452.       'NaN';
  453. !     }
  454. !     elsif ($y eq 'NaN') {
  455. !     'NaN';
  456. !     }
  457. !     else {
  458.       ($x, $y) = ($y,&'bmod($x,$y)) while $y ne '+0';
  459.       $x;
  460.       }
  461.   }
  462.   
  463. ! # routine to add two base 100000 numbers
  464.   #   stolen from Knuth Vol 2 Algorithm A pg 231
  465.   #   there are separate routines to add and sub as per Kunth pg 233
  466.   sub add { #(int_num_array, int_num_array) return int_num_array
  467. --- 138,152 ----
  468.   # GCD -- Euclids algorithm Knuth Vol 2 pg 296
  469.   sub main'bgcd { #(num_str, num_str) return num_str
  470.       local($x,$y) = (&'bnorm($_[0]),&'bnorm($_[1]));
  471. !     if ($x eq 'NaN' || $y eq 'NaN') {
  472.       'NaN';
  473. !     } else {
  474.       ($x, $y) = ($y,&'bmod($x,$y)) while $y ne '+0';
  475.       $x;
  476.       }
  477.   }
  478.   
  479. ! # routine to add two base 1e5 numbers
  480.   #   stolen from Knuth Vol 2 Algorithm A pg 231
  481.   #   there are separate routines to add and sub as per Kunth pg 233
  482.   sub add { #(int_num_array, int_num_array) return int_num_array
  483. ***************
  484. *** 158,179 ****
  485.       $car = 0;
  486.       for $x (@x) {
  487.       last unless @y || $car;
  488. !     $x -= 100000 if $car = (($x += shift @y + $car) >= 100000);
  489.       }
  490.       for $y (@y) {
  491.       last unless $car;
  492. !     $y -= 100000 if $car = (($y += $car) >= 100000);
  493.       }
  494.       (@x, @y, $car);
  495.   }
  496.   
  497. ! # subtract base 100000 numbers -- stolen from Knuth Vol 2 pg 232, $x > $y
  498.   sub sub { #(int_num_array, int_num_array) return int_num_array
  499.       local(*sx, *sy) = @_;
  500.       $bar = 0;
  501.       for $sx (@sx) {
  502.       last unless @y || $bar;
  503. !     $sx += 100000 if $bar = (($sx -= shift @sy + $bar) < 0);
  504.       }
  505.       @sx;
  506.   }
  507. --- 154,175 ----
  508.       $car = 0;
  509.       for $x (@x) {
  510.       last unless @y || $car;
  511. !     $x -= 1e5 if $car = (($x += shift @y + $car) >= 1e5);
  512.       }
  513.       for $y (@y) {
  514.       last unless $car;
  515. !     $y -= 1e5 if $car = (($y += $car) >= 1e5);
  516.       }
  517.       (@x, @y, $car);
  518.   }
  519.   
  520. ! # subtract base 1e5 numbers -- stolen from Knuth Vol 2 pg 232, $x > $y
  521.   sub sub { #(int_num_array, int_num_array) return int_num_array
  522.       local(*sx, *sy) = @_;
  523.       $bar = 0;
  524.       for $sx (@sx) {
  525.       last unless @y || $bar;
  526. !     $sx += 1e5 if $bar = (($sx -= shift @sy + $bar) < 0);
  527.       }
  528.       @sx;
  529.   }
  530. ***************
  531. *** 195,201 ****
  532.           for $y (@y) {
  533.           $prod = $x * $y + $prod[$cty] + $car;
  534.           $prod[$cty++] =
  535. !             $prod - ($car = int($prod * (1/100000))) * 100000;
  536.           }
  537.           $prod[$cty] += $car if $car;
  538.           $x = shift @prod;
  539. --- 191,197 ----
  540.           for $y (@y) {
  541.           $prod = $x * $y + $prod[$cty] + $car;
  542.           $prod[$cty++] =
  543. !             $prod - ($car = int($prod * 1e-5)) * 1e5;
  544.           }
  545.           $prod[$cty] += $car if $car;
  546.           $x = shift @prod;
  547. ***************
  548. *** 218,232 ****
  549.       $srem = $y[0];
  550.       $sr = (shift @x ne shift @y) ? '-' : '+';
  551.       $car = $bar = $prd = 0;
  552. !     if (($dd = int(100000/($y[$#y]+1))) != 1) {
  553.       for $x (@x) {
  554.           $x = $x * $dd + $car;
  555. !         $x -= ($car = int($x * (1/100000))) * 100000;
  556.       }
  557.       push(@x, $car); $car = 0;
  558.       for $y (@y) {
  559.           $y = $y * $dd + $car;
  560. !         $y -= ($car = int($y * (1/100000))) * 100000;
  561.       }
  562.       }
  563.       else {
  564. --- 214,228 ----
  565.       $srem = $y[0];
  566.       $sr = (shift @x ne shift @y) ? '-' : '+';
  567.       $car = $bar = $prd = 0;
  568. !     if (($dd = int(1e5/($y[$#y]+1))) != 1) {
  569.       for $x (@x) {
  570.           $x = $x * $dd + $car;
  571. !         $x -= ($car = int($x * 1e-5)) * 1e5;
  572.       }
  573.       push(@x, $car); $car = 0;
  574.       for $y (@y) {
  575.           $y = $y * $dd + $car;
  576. !         $y -= ($car = int($y * 1e-5)) * 1e5;
  577.       }
  578.       }
  579.       else {
  580. ***************
  581. *** 235,254 ****
  582.       @q = (); ($v2,$v1) = @y[$#y-1,$#y];
  583.       while ($#x > $#y) {
  584.       ($u2,$u1,$u0) = @x[($#x-2)..$#x];
  585. !     $q = (($u0 == $v1) ? 99999 : int(($u0*100000+$u1)/$v1));
  586. !     --$q while ($v2*$q > ($u0*100000+$u1-$q*$v1)*100000+$u2);
  587.       if ($q) {
  588.           ($car, $bar) = (0,0);
  589.           for ($y = 0, $x = $#x-$#y-1; $y <= $#y; ++$y,++$x) {
  590.           $prd = $q * $y[$y] + $car;
  591. !         $prd -= ($car = int($prd * (1/100000))) * 100000;
  592. !         $x[$x] += 100000 if ($bar = (($x[$x] -= $prd + $bar) < 0));
  593.           }
  594.           if ($x[$#x] < $car + $bar) {
  595.           $car = 0; --$q;
  596.           for ($y = 0, $x = $#x-$#y-1; $y <= $#y; ++$y,++$x) {
  597. !             $x[$x] -= 100000
  598. !             if ($car = (($x[$x] += $y[$y] + $car) > 100000));
  599.           }
  600.           }   
  601.       }
  602. --- 231,250 ----
  603.       @q = (); ($v2,$v1) = @y[$#y-1,$#y];
  604.       while ($#x > $#y) {
  605.       ($u2,$u1,$u0) = @x[($#x-2)..$#x];
  606. !     $q = (($u0 == $v1) ? 99999 : int(($u0*1e5+$u1)/$v1));
  607. !     --$q while ($v2*$q > ($u0*1e5+$u1-$q*$v1)*1e5+$u2);
  608.       if ($q) {
  609.           ($car, $bar) = (0,0);
  610.           for ($y = 0, $x = $#x-$#y-1; $y <= $#y; ++$y,++$x) {
  611.           $prd = $q * $y[$y] + $car;
  612. !         $prd -= ($car = int($prd * 1e-5)) * 1e5;
  613. !         $x[$x] += 1e5 if ($bar = (($x[$x] -= $prd + $bar) < 0));
  614.           }
  615.           if ($x[$#x] < $car + $bar) {
  616.           $car = 0; --$q;
  617.           for ($y = 0, $x = $#x-$#y-1; $y <= $#y; ++$y,++$x) {
  618. !             $x[$x] -= 1e5
  619. !             if ($car = (($x[$x] += $y[$y] + $car) > 1e5));
  620.           }
  621.           }   
  622.       }
  623. ***************
  624. *** 259,265 ****
  625.       if ($dd != 1) {
  626.           $car = 0;
  627.           for $x (reverse @x) {
  628. !         $prd = $car * 100000 + $x;
  629.           $car = $prd - ($tmp = int($prd / $dd)) * $dd;
  630.           unshift(@d, $tmp);
  631.           }
  632. --- 255,261 ----
  633.       if ($dd != 1) {
  634.           $car = 0;
  635.           for $x (reverse @x) {
  636. !         $prd = $car * 1e5 + $x;
  637.           $car = $prd - ($tmp = int($prd / $dd)) * $dd;
  638.           unshift(@d, $tmp);
  639.           }
  640.  
  641. Index: usub/bsdcurses.mus
  642. *** usub/bsdcurses.mus.old    Mon Jun  8 17:52:25 1992
  643. --- usub/bsdcurses.mus    Mon Jun  8 17:52:26 1992
  644. ***************
  645. *** 1,6 ****
  646. ! /* $RCSfile: bsdcurses.mus,v $$Revision: 4.0.1.1 $$Date: 91/11/05 19:04:53 $
  647.    *
  648.    * $Log:    bsdcurses.mus,v $
  649.    * Revision 4.0.1.1  91/11/05  19:04:53  lwall
  650.    * initial checkin
  651.    * 
  652. --- 1,9 ----
  653. ! /* $RCSfile: bsdcurses.mus,v $$Revision: 4.0.1.2 $$Date: 92/06/08 16:05:28 $
  654.    *
  655.    * $Log:    bsdcurses.mus,v $
  656. +  * Revision 4.0.1.2  92/06/08  16:05:28  lwall
  657. +  * patch20: &getcap eventually dumped core in bsdcurses
  658. +  * 
  659.    * Revision 4.0.1.1  91/11/05  19:04:53  lwall
  660.    * initial checkin
  661.    * 
  662. ***************
  663. *** 476,484 ****
  664.   CASE int erasechar
  665.   END
  666.   
  667. ! CASE char* getcap
  668. ! I    char*        str
  669. ! END
  670.   
  671.       case US_getyx:
  672.       if (items != 3)
  673. --- 479,496 ----
  674.   CASE int erasechar
  675.   END
  676.   
  677. !     case US_getcap:
  678. !     if (items != 1)
  679. !         fatal("Usage: &getcap($str)");
  680. !     else {
  681. !         char* retval;
  682. !         char*    str =        (char*)        str_get(st[1]);
  683. !         char output[50], *outputp = output;
  684. ! 
  685. !         retval = tgetstr(str, &outputp);
  686. !         str_set(st[0], (char*) retval);
  687. !     }
  688. !     return sp;
  689.   
  690.       case US_getyx:
  691.       if (items != 3)
  692.  
  693. Index: c2ph.SH
  694. *** c2ph.SH.old    Mon Jun  8 17:45:44 1992
  695. --- c2ph.SH    Mon Jun  8 17:45:45 1992
  696. ***************
  697. *** 19,24 ****
  698. --- 19,25 ----
  699.   : Move anything that needs config subs from !NO!SUBS! section to !GROK!THIS!.
  700.   : Protect any dollar signs and backticks that you do not want interpreted
  701.   : by putting a backslash in front.  You may delete these comments.
  702. + rm -f c2ph
  703.   $spitshell >c2ph <<!GROK!THIS!
  704.   #!$bin/perl
  705.   #
  706. ***************
  707. *** 36,42 ****
  708.   #   See the usage message for more.  If this isn't enough, read the code.
  709.   #
  710.   
  711. ! $RCSID = '$RCSfile: c2ph.SH,v $$Revision: 4.0.1.1 $$Date: 91/11/05 16:02:29 $';
  712.   
  713.   
  714.   ######################################################################
  715. --- 37,43 ----
  716.   #   See the usage message for more.  If this isn't enough, read the code.
  717.   #
  718.   
  719. ! $RCSID = '$RCSfile: c2ph.SH,v $$Revision: 4.0.1.2 $$Date: 92/06/08 11:56:08 $';
  720.   
  721.   
  722.   ######################################################################
  723.  
  724. Index: atarist/test/ccon
  725. *** atarist/test/ccon.old    Mon Jun  8 17:44:56 1992
  726. --- atarist/test/ccon    Mon Jun  8 17:44:56 1992
  727. ***************
  728. *** 0 ****
  729. --- 1,5 ----
  730. + require 'osbind.pl';
  731. + 
  732. +  &Cconws("Hello World\r\n");
  733. +  $str = "This is a string being printed by Fwrite Gemdos trap\r\n";
  734. +  &Fwrite(1, length($str), $str);
  735.  
  736. Index: cflags.SH
  737. *** cflags.SH.old    Mon Jun  8 17:45:49 1992
  738. --- cflags.SH    Mon Jun  8 17:45:50 1992
  739. ***************
  740. *** 19,24 ****
  741. --- 19,25 ----
  742.   : Move anything that needs config subs from !NO!SUBS! section to !GROK!THIS!.
  743.   : Protect any dollar signs and backticks that you do not want interpreted
  744.   : by putting a backslash in front.  You may delete these comments.
  745. + rm -f cflags
  746.   $spitshell >cflags <<!GROK!THIS!
  747.   !GROK!THIS!
  748.   
  749.  
  750. Index: x2p/cflags.SH
  751. *** x2p/cflags.SH.old    Mon Jun  8 17:52:53 1992
  752. --- x2p/cflags.SH    Mon Jun  8 17:52:53 1992
  753. ***************
  754. *** 19,24 ****
  755. --- 19,25 ----
  756.   : Move anything that needs config subs from !NO!SUBS! section to !GROK!THIS!.
  757.   : Protect any dollar signs and backticks that you do not want interpreted
  758.   : by putting a backslash in front.  You may delete these comments.
  759. + rm -f cflags
  760.   $spitshell >cflags <<!GROK!THIS!
  761.   !GROK!THIS!
  762.   
  763.  
  764. Index: lib/chat2.pl
  765. *** lib/chat2.pl.old    Mon Jun  8 17:48:49 1992
  766. --- lib/chat2.pl    Mon Jun  8 17:48:49 1992
  767. ***************
  768. *** 108,113 ****
  769. --- 108,114 ----
  770.           die "Cannot exec @cmd: $!";
  771.       }
  772.       close(TTY);
  773. +     $PID{$next} = $pid;
  774.       $next; # return symbol for switcharound
  775.   }
  776.   
  777. ***************
  778. *** 258,267 ****
  779. --- 259,273 ----
  780.   ## like close $handle
  781.   
  782.   sub close { ## public
  783. +     local($pid);
  784.       if ($_[0] =~ /$nextpat/) {
  785. +         $pid = $PID{$_[0]};
  786.            *S = shift;
  787. +     } else {
  788. +         $pid = $PID{$next};
  789.       }
  790.       close(S);
  791. +     waitpid($pid,0);
  792.       if (defined $S{"needs_close"}) { # is it a listen socket?
  793.           local(*NS) = $S{"needs_close"};
  794.           delete $S{"needs_close"};
  795.  
  796. Index: cmd.c
  797. *** cmd.c.old    Mon Jun  8 17:45:54 1992
  798. --- cmd.c    Mon Jun  8 17:45:55 1992
  799. ***************
  800. *** 1,4 ****
  801. ! /* $RCSfile: cmd.c,v $$Revision: 4.0.1.4 $$Date: 91/11/11 16:29:33 $
  802.    *
  803.    *    Copyright (c) 1991, Larry Wall
  804.    *
  805. --- 1,4 ----
  806. ! /* $RCSfile: cmd.c,v $$Revision: 4.0.1.5 $$Date: 92/06/08 12:00:39 $
  807.    *
  808.    *    Copyright (c) 1991, Larry Wall
  809.    *
  810. ***************
  811. *** 6,11 ****
  812. --- 6,15 ----
  813.    *    License or the Artistic License, as specified in the README file.
  814.    *
  815.    * $Log:    cmd.c,v $
  816. +  * Revision 4.0.1.5  92/06/08  12:00:39  lwall
  817. +  * patch20: the switch optimizer didn't do anything in subroutines
  818. +  * patch20: removed implicit int declarations on funcions
  819. +  * 
  820.    * Revision 4.0.1.4  91/11/11  16:29:33  lwall
  821.    * patch19: do {$foo ne "bar";} returned wrong value
  822.    * patch19: some earlier patches weren't propagated to alternate 286 code
  823. ***************
  824. *** 34,40 ****
  825.   #  include <varargs.h>
  826.   #endif
  827.   
  828. ! static STR str_chop;
  829.   
  830.   void grow_dlevel();
  831.   
  832. --- 38,44 ----
  833.   #  include <varargs.h>
  834.   #endif
  835.   
  836. ! static STR strchop;
  837.   
  838.   void grow_dlevel();
  839.   
  840. ***************
  841. *** 81,86 ****
  842. --- 85,94 ----
  843.   tail_recursion_entry:
  844.   #ifdef DEBUGGING
  845.       dlevel = entdlevel;
  846. +     if (debug & 4)
  847. +     deb("mortals = (%d/%d) stack, = (%d/%d)\n",
  848. +         tmps_max, tmps_base,
  849. +         savestack->ary_fill, firstsave);
  850.   #endif
  851.   #ifdef TAINT
  852.       tainted = 0;    /* Each statement is presumed innocent */
  853. ***************
  854. *** 575,586 ****
  855.           match = (retstr->str_cur != 0);
  856.           tmps = str_get(retstr);
  857.           tmps += retstr->str_cur - match;
  858. !         str_nset(&str_chop,tmps,match);
  859.           *tmps = '\0';
  860.           retstr->str_nok = 0;
  861.           retstr->str_cur = tmps - retstr->str_ptr;
  862.           STABSET(retstr);
  863. !         retstr = &str_chop;
  864.           goto flipmaybe;
  865.       case CFT_ARRAY:
  866.           match = cmd->c_short->str_u.str_useful; /* just to get register */
  867. --- 583,594 ----
  868.           match = (retstr->str_cur != 0);
  869.           tmps = str_get(retstr);
  870.           tmps += retstr->str_cur - match;
  871. !         str_nset(&strchop,tmps,match);
  872.           *tmps = '\0';
  873.           retstr->str_nok = 0;
  874.           retstr->str_cur = tmps - retstr->str_ptr;
  875.           STABSET(retstr);
  876. !         retstr = &strchop;
  877.           goto flipmaybe;
  878.       case CFT_ARRAY:
  879.           match = cmd->c_short->str_u.str_useful; /* just to get register */
  880. ***************
  881. *** 728,733 ****
  882. --- 736,745 ----
  883.       }
  884.       goto doswitch;
  885.       case C_CSWITCH:
  886. +     if (multiline) {
  887. +         cmd = cmd->c_next;            /* can't assume anything */
  888. +         goto tail_recursion_entry;
  889. +     }
  890.       match = *(str_get(STAB_STR(cmd->c_stab))) & 255;
  891.         doswitch:
  892.       match -= cmd->ucmd.scmd.sc_offset;
  893. ***************
  894. *** 942,948 ****
  895.   #ifdef DEBUGGING
  896.   #  ifndef I_VARARGS
  897.   /*VARARGS1*/
  898. ! deb(pat,a1,a2,a3,a4,a5,a6,a7,a8)
  899.   char *pat;
  900.   {
  901.       register int i;
  902. --- 954,960 ----
  903.   #ifdef DEBUGGING
  904.   #  ifndef I_VARARGS
  905.   /*VARARGS1*/
  906. ! void deb(pat,a1,a2,a3,a4,a5,a6,a7,a8)
  907.   char *pat;
  908.   {
  909.       register int i;
  910. ***************
  911. *** 954,960 ****
  912.   }
  913.   #  else
  914.   /*VARARGS1*/
  915. ! deb(va_alist)
  916.   va_dcl
  917.   {
  918.       va_list args;
  919. --- 966,972 ----
  920.   }
  921.   #  else
  922.   /*VARARGS1*/
  923. ! void deb(va_alist)
  924.   va_dcl
  925.   {
  926.       va_list args;
  927. ***************
  928. *** 973,978 ****
  929. --- 985,991 ----
  930.   #  endif
  931.   #endif
  932.   
  933. + int
  934.   copyopt(cmd,which)
  935.   register CMD *cmd;
  936.   register CMD *which;
  937.  
  938. Index: cmd.h
  939. *** cmd.h.old    Mon Jun  8 17:46:02 1992
  940. --- cmd.h    Mon Jun  8 17:46:02 1992
  941. ***************
  942. *** 1,4 ****
  943. ! /* $RCSfile: cmd.h,v $$Revision: 4.0.1.1 $$Date: 91/06/07 10:28:50 $
  944.    *
  945.    *    Copyright (c) 1991, Larry Wall
  946.    *
  947. --- 1,4 ----
  948. ! /* $RCSfile: cmd.h,v $$Revision: 4.0.1.2 $$Date: 92/06/08 12:01:02 $
  949.    *
  950.    *    Copyright (c) 1991, Larry Wall
  951.    *
  952. ***************
  953. *** 6,11 ****
  954. --- 6,14 ----
  955.    *    License or the Artistic License, as specified in the README file.
  956.    *
  957.    * $Log:    cmd.h,v $
  958. +  * Revision 4.0.1.2  92/06/08  12:01:02  lwall
  959. +  * patch20: removed implicit int declarations on funcions
  960. +  * 
  961.    * Revision 4.0.1.1  91/06/07  10:28:50  lwall
  962.    * patch4: new copyright notice
  963.    * patch4: length($`), length($&), length($') now optimized to avoid string copy
  964. ***************
  965. *** 167,169 ****
  966. --- 170,176 ----
  967.   void opt_arg();
  968.   ARG* evalstatic();
  969.   int cmd_exec();
  970. + #ifdef DEBUGGING
  971. + void deb();
  972. + #endif
  973. + int copyopt();
  974.  
  975. Index: config.H
  976. *** config.H.old    Mon Jun  8 17:46:07 1992
  977. --- config.H    Mon Jun  8 17:46:07 1992
  978. ***************
  979. *** 9,14 ****
  980. --- 9,15 ----
  981.    * that running config.h.SH again will wipe out any changes you've made.
  982.    * For a more permanent change edit config.sh and rerun config.h.SH.
  983.    */
  984. +  /*SUPPRESS 460*/
  985.   
  986.   
  987.   /* EUNICE
  988. ***************
  989. *** 25,35 ****
  990.   /*#undef    EUNICE        /**/
  991.   /*#undef    VMS        /**/
  992.   
  993.   /* ALIGNBYTES
  994.    *    This symbol contains the number of bytes required to align a double.
  995.    *    Usual values are 2, 4, and 8.
  996.    */
  997. ! #define ALIGNBYTES 2        /**/
  998.   
  999.   /* BIN
  1000.    *    This symbol holds the name of the directory in which the user wants
  1001. --- 26,41 ----
  1002.   /*#undef    EUNICE        /**/
  1003.   /*#undef    VMS        /**/
  1004.   
  1005. + /* LOC_SED
  1006. +  *     This symbol holds the complete pathname to the sed program.
  1007. +  */
  1008. + #define LOC_SED "/bin/sed"             /**/
  1009. + 
  1010.   /* ALIGNBYTES
  1011.    *    This symbol contains the number of bytes required to align a double.
  1012.    *    Usual values are 2, 4, and 8.
  1013.    */
  1014. ! #define ALIGNBYTES 8        /**/
  1015.   
  1016.   /* BIN
  1017.    *    This symbol holds the name of the directory in which the user wants
  1018. ***************
  1019. *** 40,46 ****
  1020.   
  1021.   /* BYTEORDER
  1022.    *    This symbol contains an encoding of the order of bytes in a long.
  1023. !  *    Usual values (in octal) are 01234, 04321, 02143, 03412...
  1024.    */
  1025.   #define BYTEORDER 0x4321        /**/
  1026.   
  1027. --- 46,52 ----
  1028.   
  1029.   /* BYTEORDER
  1030.    *    This symbol contains an encoding of the order of bytes in a long.
  1031. !  *    Usual values (in hex) are 0x1234, 0x4321, 0x2143, 0x3412...
  1032.    */
  1033.   #define BYTEORDER 0x4321        /**/
  1034.   
  1035. ***************
  1036. *** 68,75 ****
  1037. --- 74,89 ----
  1038.   /* HAS_BCOPY
  1039.    *    This symbol, if defined, indicates that the bcopy routine is available
  1040.    *    to copy blocks of memory.  Otherwise you should probably use memcpy().
  1041. +  *    If neither is defined, roll your own.
  1042.    */
  1043. + /* SAFE_BCOPY
  1044. +  *    This symbol, if defined, indicates that the bcopy routine is available
  1045. +  *    to copy potentially overlapping copy blocks of bcopy.  Otherwise you
  1046. +  *    should probably use memmove() or memcpy().  If neither is defined,
  1047. +  *    roll your own.
  1048. +  */
  1049.   #define    HAS_BCOPY        /**/
  1050. + #define    SAFE_BCOPY        /**/
  1051.   
  1052.   /* HAS_BZERO
  1053.    *    This symbol, if defined, indicates that the bzero routine is available
  1054. ***************
  1055. *** 89,96 ****
  1056.    *        1 = couldn't cast < 0
  1057.    *        2 = couldn't cast >= 0x80000000
  1058.    */
  1059. ! /*#undef    CASTNEGFLOAT    /**/
  1060. ! #define    CASTFLAGS 1    /**/
  1061.   
  1062.   /* CHARSPRINTF
  1063.    *    This symbol is defined if this system declares "char *sprintf()" in
  1064. --- 103,110 ----
  1065.    *        1 = couldn't cast < 0
  1066.    *        2 = couldn't cast >= 0x80000000
  1067.    */
  1068. ! #define    CASTNEGFLOAT    /**/
  1069. ! #define    CASTFLAGS 0    /**/
  1070.   
  1071.   /* CHARSPRINTF
  1072.    *    This symbol is defined if this system declares "char *sprintf()" in
  1073. ***************
  1074. *** 180,186 ****
  1075.    *    This symbol, if defined, indicates that the gethostent() routine is
  1076.    *    available to lookup host names in some data base or other.
  1077.    */
  1078. ! /*#undef    HAS_GETHOSTENT        /**/
  1079.   
  1080.   /* HAS_GETPGRP
  1081.    *    This symbol, if defined, indicates that the getpgrp() routine is
  1082. --- 194,200 ----
  1083.    *    This symbol, if defined, indicates that the gethostent() routine is
  1084.    *    available to lookup host names in some data base or other.
  1085.    */
  1086. ! #define    HAS_GETHOSTENT        /**/
  1087.   
  1088.   /* HAS_GETPGRP
  1089.    *    This symbol, if defined, indicates that the getpgrp() routine is
  1090. ***************
  1091. *** 232,237 ****
  1092. --- 246,257 ----
  1093.   /*#undef    index strchr    /* cultural */
  1094.   /*#undef    rindex strrchr    /*  differences? */
  1095.   
  1096. + /* HAS_ISASCII
  1097. +  *    This symbol, if defined, indicates that the isascii routine is available
  1098. +  *    to test characters for asciiness.
  1099. +  */
  1100. + #define    HAS_ISASCII        /**/
  1101. + 
  1102.   /* HAS_KILLPG
  1103.    *    This symbol, if defined, indicates that the killpg routine is available
  1104.    *    to kill process groups.  If unavailable, you probably should use kill
  1105. ***************
  1106. *** 256,263 ****
  1107. --- 276,303 ----
  1108.    *    to copy blocks of memory.  Otherwise you should probably use bcopy().
  1109.    *    If neither is defined, roll your own.
  1110.    */
  1111. + /* SAFE_MEMCPY
  1112. +  *    This symbol, if defined, indicates that the memcpy routine is available
  1113. +  *    to copy potentially overlapping copy blocks of memory.  Otherwise you
  1114. +  *    should probably use memmove() or bcopy().  If neither is defined,
  1115. +  *    roll your own.
  1116. +  */
  1117.   #define    HAS_MEMCPY        /**/
  1118. + /*#undef    SAFE_MEMCPY        /**/
  1119.   
  1120. + /* HAS_MEMMOVE
  1121. +  *    This symbol, if defined, indicates that the memmove routine is available
  1122. +  *    to move potentially overlapping blocks of memory.  Otherwise you
  1123. +  *    should use bcopy() or roll your own.
  1124. +  */
  1125. + /*#undef    HAS_MEMMOVE        /**/
  1126. + 
  1127. + /* HAS_MEMSET
  1128. +  *    This symbol, if defined, indicates that the memset routine is available
  1129. +  *    to set a block of memory to a character.  If undefined, roll your own.
  1130. +  */
  1131. + #define    HAS_MEMSET        /**/
  1132. + 
  1133.   /* HAS_MKDIR
  1134.    *    This symbol, if defined, indicates that the mkdir routine is available
  1135.    *    to create directories.  Otherwise you should fork off a new process to
  1136. ***************
  1137. *** 273,297 ****
  1138.   
  1139.   /* HAS_MSGCTL
  1140.    *    This symbol, if defined, indicates that the msgctl() routine is
  1141. !  *    available to stat symbolic links.
  1142.    */
  1143.   #define    HAS_MSGCTL        /**/
  1144.   
  1145.   /* HAS_MSGGET
  1146.    *    This symbol, if defined, indicates that the msgget() routine is
  1147. !  *    available to stat symbolic links.
  1148.    */
  1149.   #define    HAS_MSGGET        /**/
  1150.   
  1151.   /* HAS_MSGRCV
  1152.    *    This symbol, if defined, indicates that the msgrcv() routine is
  1153. !  *    available to stat symbolic links.
  1154.    */
  1155.   #define    HAS_MSGRCV        /**/
  1156.   
  1157.   /* HAS_MSGSND
  1158.    *    This symbol, if defined, indicates that the msgsnd() routine is
  1159. !  *    available to stat symbolic links.
  1160.    */
  1161.   #define    HAS_MSGSND        /**/
  1162.   
  1163. --- 313,337 ----
  1164.   
  1165.   /* HAS_MSGCTL
  1166.    *    This symbol, if defined, indicates that the msgctl() routine is
  1167. !  *    available to control message passing.
  1168.    */
  1169.   #define    HAS_MSGCTL        /**/
  1170.   
  1171.   /* HAS_MSGGET
  1172.    *    This symbol, if defined, indicates that the msgget() routine is
  1173. !  *    available to get messages.
  1174.    */
  1175.   #define    HAS_MSGGET        /**/
  1176.   
  1177.   /* HAS_MSGRCV
  1178.    *    This symbol, if defined, indicates that the msgrcv() routine is
  1179. !  *    available to receive messages.
  1180.    */
  1181.   #define    HAS_MSGRCV        /**/
  1182.   
  1183.   /* HAS_MSGSND
  1184.    *    This symbol, if defined, indicates that the msgsnd() routine is
  1185. !  *    available to send messages.
  1186.    */
  1187.   #define    HAS_MSGSND        /**/
  1188.   
  1189. ***************
  1190. *** 326,331 ****
  1191. --- 366,377 ----
  1192.    */
  1193.   #define    HAS_RENAME        /**/
  1194.   
  1195. + /* HAS_REWINDDIR
  1196. +  *    This symbol, if defined, indicates that the rewindir routine is
  1197. +  *    available to rewind directories.
  1198. +  */
  1199. + #define    HAS_REWINDDIR        /**/
  1200. + 
  1201.   /* HAS_RMDIR
  1202.    *    This symbol, if defined, indicates that the rmdir routine is available
  1203.    *    to remove directories.  Otherwise you should fork off a new process to
  1204. ***************
  1205. *** 333,338 ****
  1206. --- 379,390 ----
  1207.    */
  1208.   #define    HAS_RMDIR        /**/
  1209.   
  1210. + /* HAS_SEEKDIR
  1211. +  *    This symbol, if defined, indicates that the seekdir routine is
  1212. +  *    available to seek into directories.
  1213. +  */
  1214. + #define    HAS_SEEKDIR        /**/
  1215. + 
  1216.   /* HAS_SELECT
  1217.    *    This symbol, if defined, indicates that the select() subroutine
  1218.    *    exists.
  1219. ***************
  1220. *** 347,365 ****
  1221.   
  1222.   /* HAS_SEMCTL
  1223.    *    This symbol, if defined, indicates that the semctl() routine is
  1224. !  *    available to stat symbolic links.
  1225.    */
  1226.   #define    HAS_SEMCTL        /**/
  1227.   
  1228.   /* HAS_SEMGET
  1229.    *    This symbol, if defined, indicates that the semget() routine is
  1230. !  *    available to stat symbolic links.
  1231.    */
  1232.   #define    HAS_SEMGET        /**/
  1233.   
  1234.   /* HAS_SEMOP
  1235.    *    This symbol, if defined, indicates that the semop() routine is
  1236. !  *    available to stat symbolic links.
  1237.    */
  1238.   #define    HAS_SEMOP        /**/
  1239.   
  1240. --- 399,417 ----
  1241.   
  1242.   /* HAS_SEMCTL
  1243.    *    This symbol, if defined, indicates that the semctl() routine is
  1244. !  *    available to control semaphores.
  1245.    */
  1246.   #define    HAS_SEMCTL        /**/
  1247.   
  1248.   /* HAS_SEMGET
  1249.    *    This symbol, if defined, indicates that the semget() routine is
  1250. !  *    available to get semaphores ids.
  1251.    */
  1252.   #define    HAS_SEMGET        /**/
  1253.   
  1254.   /* HAS_SEMOP
  1255.    *    This symbol, if defined, indicates that the semop() routine is
  1256. !  *    available to perform semaphore operations.
  1257.    */
  1258.   #define    HAS_SEMOP        /**/
  1259.   
  1260. ***************
  1261. *** 437,443 ****
  1262.   
  1263.   /* HAS_SHMAT
  1264.    *    This symbol, if defined, indicates that the shmat() routine is
  1265. !  *    available to stat symbolic links.
  1266.    */
  1267.   /* VOID_SHMAT
  1268.    *    This symbol, if defined, indicates that the shmat() routine
  1269. --- 489,495 ----
  1270.   
  1271.   /* HAS_SHMAT
  1272.    *    This symbol, if defined, indicates that the shmat() routine is
  1273. !  *    available to attach a shared memory segment.
  1274.    */
  1275.   /* VOID_SHMAT
  1276.    *    This symbol, if defined, indicates that the shmat() routine
  1277. ***************
  1278. *** 449,467 ****
  1279.   
  1280.   /* HAS_SHMCTL
  1281.    *    This symbol, if defined, indicates that the shmctl() routine is
  1282. !  *    available to stat symbolic links.
  1283.    */
  1284.   #define    HAS_SHMCTL        /**/
  1285.   
  1286.   /* HAS_SHMDT
  1287.    *    This symbol, if defined, indicates that the shmdt() routine is
  1288. !  *    available to stat symbolic links.
  1289.    */
  1290.   #define    HAS_SHMDT        /**/
  1291.   
  1292.   /* HAS_SHMGET
  1293.    *    This symbol, if defined, indicates that the shmget() routine is
  1294. !  *    available to stat symbolic links.
  1295.    */
  1296.   #define    HAS_SHMGET        /**/
  1297.   
  1298. --- 501,519 ----
  1299.   
  1300.   /* HAS_SHMCTL
  1301.    *    This symbol, if defined, indicates that the shmctl() routine is
  1302. !  *    available to control a shared memory segment.
  1303.    */
  1304.   #define    HAS_SHMCTL        /**/
  1305.   
  1306.   /* HAS_SHMDT
  1307.    *    This symbol, if defined, indicates that the shmdt() routine is
  1308. !  *    available to detach a shared memory segment.
  1309.    */
  1310.   #define    HAS_SHMDT        /**/
  1311.   
  1312.   /* HAS_SHMGET
  1313.    *    This symbol, if defined, indicates that the shmget() routine is
  1314. !  *    available to get a shared memory segment id.
  1315.    */
  1316.   #define    HAS_SHMGET        /**/
  1317.   
  1318. ***************
  1319. *** 520,525 ****
  1320. --- 572,583 ----
  1321.    */
  1322.   #define    HAS_SYSCALL        /**/
  1323.   
  1324. + /* HAS_TELLDIR
  1325. +  *    This symbol, if defined, indicates that the telldir routine is
  1326. +  *    available to tell your location in directories.
  1327. +  */
  1328. + #define    HAS_TELLDIR        /**/
  1329. + 
  1330.   /* HAS_TRUNCATE
  1331.    *    This symbol, if defined, indicates that the truncate routine is
  1332.    *    available to truncate files.
  1333. ***************
  1334. *** 737,745 ****
  1335. --- 795,808 ----
  1336.   /*#undef    I_MY_DIR    /**/
  1337.   /*#undef    DIRNAMLEN    /**/
  1338.   
  1339. + /* MYMALLOC
  1340. +  *    This symbol, if defined, indicates that we're using our own malloc.
  1341. +  */
  1342.   /* MALLOCPTRTYPE
  1343.    *    This symbol defines the kind of ptr returned by malloc and realloc.
  1344.    */
  1345. + #define MYMALLOC            /**/
  1346. + 
  1347.   #define MALLOCPTRTYPE char         /**/
  1348.   
  1349.   
  1350.  
  1351. Index: msdos/config.h
  1352. *** msdos/config.h.old    Mon Jun  8 17:49:30 1992
  1353. --- msdos/config.h    Mon Jun  8 17:49:31 1992
  1354. ***************
  1355. *** 79,86 ****
  1356. --- 79,94 ----
  1357.   /* HAS_BCOPY
  1358.    *    This symbol, if defined, indicates that the bcopy routine is available
  1359.    *    to copy blocks of memory.  Otherwise you should probably use memcpy().
  1360. +  *    If neither is defined, roll your own.
  1361.    */
  1362. + /* SAFE_BCOPY
  1363. +  *    This symbol, if defined, indicates that the bcopy routine is available
  1364. +  *    to copy potentially overlapping copy blocks of bcopy.  Otherwise you
  1365. +  *    should probably use memmove() or memcpy().  If neither is defined,
  1366. +  *    roll your own.
  1367. +  */
  1368.   /*#undef    HAS_BCOPY        /**/
  1369. + /*#undef    SAFE_BCOPY        /**/
  1370.   
  1371.   /* HAS_BZERO
  1372.    *    This symbol, if defined, indicates that the bzero routine is available
  1373. ***************
  1374. *** 243,248 ****
  1375. --- 251,262 ----
  1376.   #define    index strchr    /* cultural */
  1377.   #define    rindex strrchr    /*  differences? */
  1378.   
  1379. + /* HAS_ISASCII
  1380. +  *    This symbol, if defined, indicates that the isascii routine is available
  1381. +  *    to test characters for asciiness.
  1382. +  */
  1383. + #define    HAS_ISASCII        /**/
  1384. + 
  1385.   /* HAS_KILLPG
  1386.    *    This symbol, if defined, indicates that the killpg routine is available
  1387.    *    to kill process groups.  If unavailable, you probably should use kill
  1388. ***************
  1389. *** 267,274 ****
  1390. --- 281,308 ----
  1391.    *    to copy blocks of memory.  Otherwise you should probably use bcopy().
  1392.    *    If neither is defined, roll your own.
  1393.    */
  1394. + /* SAFE_MEMCPY
  1395. +  *    This symbol, if defined, indicates that the memcpy routine is available
  1396. +  *    to copy potentially overlapping copy blocks of memory.  Otherwise you
  1397. +  *    should probably use memmove() or bcopy().  If neither is defined,
  1398. +  *    roll your own.
  1399. +  */
  1400.   #define    HAS_MEMCPY        /**/
  1401. + /*#undef    SAFE_MEMCPY        /**/
  1402.   
  1403. + /* HAS_MEMMOVE
  1404. +  *    This symbol, if defined, indicates that the memmove routine is available
  1405. +  *    to move potentially overlapping blocks of memory.  Otherwise you
  1406. +  *    should use bcopy() or roll your own.
  1407. +  */
  1408. + /*#undef    HAS_MEMMOVE        /**/
  1409. + 
  1410. + /* HAS_MEMSET
  1411. +  *    This symbol, if defined, indicates that the memset routine is available
  1412. +  *    to set a block of memory to a character.  If undefined, roll your own.
  1413. +  */
  1414. + #define    HAS_MEMSET        /**/
  1415. + 
  1416.   /* HAS_MKDIR
  1417.    *    This symbol, if defined, indicates that the mkdir routine is available
  1418.    *    to create directories.  Otherwise you should fork off a new process to
  1419. ***************
  1420. *** 284,308 ****
  1421.   
  1422.   /* HAS_MSGCTL
  1423.    *    This symbol, if defined, indicates that the msgctl() routine is
  1424. !  *    available to stat symbolic links.
  1425.    */
  1426.   /*#undef    HAS_MSGCTL        /**/
  1427.   
  1428.   /* HAS_MSGGET
  1429.    *    This symbol, if defined, indicates that the msgget() routine is
  1430. !  *    available to stat symbolic links.
  1431.    */
  1432.   /*#undef    HAS_MSGGET        /**/
  1433.   
  1434.   /* HAS_MSGRCV
  1435.    *    This symbol, if defined, indicates that the msgrcv() routine is
  1436. !  *    available to stat symbolic links.
  1437.    */
  1438.   /*#undef    HAS_MSGRCV        /**/
  1439.   
  1440.   /* HAS_MSGSND
  1441.    *    This symbol, if defined, indicates that the msgsnd() routine is
  1442. !  *    available to stat symbolic links.
  1443.    */
  1444.   /*#undef    HAS_MSGSND        /**/
  1445.   
  1446. --- 318,342 ----
  1447.   
  1448.   /* HAS_MSGCTL
  1449.    *    This symbol, if defined, indicates that the msgctl() routine is
  1450. !  *    available to control message passing.
  1451.    */
  1452.   /*#undef    HAS_MSGCTL        /**/
  1453.   
  1454.   /* HAS_MSGGET
  1455.    *    This symbol, if defined, indicates that the msgget() routine is
  1456. !  *    available to get messages.
  1457.    */
  1458.   /*#undef    HAS_MSGGET        /**/
  1459.   
  1460.   /* HAS_MSGRCV
  1461.    *    This symbol, if defined, indicates that the msgrcv() routine is
  1462. !  *    available to receive messages.
  1463.    */
  1464.   /*#undef    HAS_MSGRCV        /**/
  1465.   
  1466.   /* HAS_MSGSND
  1467.    *    This symbol, if defined, indicates that the msgsnd() routine is
  1468. !  *    available to send messages.
  1469.    */
  1470.   /*#undef    HAS_MSGSND        /**/
  1471.   
  1472. ***************
  1473. *** 337,342 ****
  1474. --- 371,382 ----
  1475.    */
  1476.   #define    HAS_RENAME        /**/
  1477.   
  1478. + /* HAS_REWINDDIR
  1479. +  *    This symbol, if defined, indicates that the rewindir routine is
  1480. +  *    available to rewind directories.
  1481. +  */
  1482. + #define    HAS_REWINDDIR        /**/
  1483. + 
  1484.   /* HAS_RMDIR
  1485.    *    This symbol, if defined, indicates that the rmdir routine is available
  1486.    *    to remove directories.  Otherwise you should fork off a new process to
  1487. ***************
  1488. *** 344,349 ****
  1489. --- 384,395 ----
  1490.    */
  1491.   #define    HAS_RMDIR        /**/
  1492.   
  1493. + /* HAS_SEEKDIR
  1494. +  *    This symbol, if defined, indicates that the seekdir routine is
  1495. +  *    available to seek into directories.
  1496. +  */
  1497. + #define    HAS_SEEKDIR        /**/
  1498. + 
  1499.   /* HAS_SELECT
  1500.    *    This symbol, if defined, indicates that the select() subroutine
  1501.    *    exists.
  1502. ***************
  1503. *** 358,376 ****
  1504.   
  1505.   /* HAS_SEMCTL
  1506.    *    This symbol, if defined, indicates that the semctl() routine is
  1507. !  *    available to stat symbolic links.
  1508.    */
  1509.   /*#undef    HAS_SEMCTL        /**/
  1510.   
  1511.   /* HAS_SEMGET
  1512.    *    This symbol, if defined, indicates that the semget() routine is
  1513. !  *    available to stat symbolic links.
  1514.    */
  1515.   /*#undef    HAS_SEMGET        /**/
  1516.   
  1517.   /* HAS_SEMOP
  1518.    *    This symbol, if defined, indicates that the semop() routine is
  1519. !  *    available to stat symbolic links.
  1520.    */
  1521.   /*#undef    HAS_SEMOP        /**/
  1522.   
  1523. --- 404,422 ----
  1524.   
  1525.   /* HAS_SEMCTL
  1526.    *    This symbol, if defined, indicates that the semctl() routine is
  1527. !  *    available to control semaphores.
  1528.    */
  1529.   /*#undef    HAS_SEMCTL        /**/
  1530.   
  1531.   /* HAS_SEMGET
  1532.    *    This symbol, if defined, indicates that the semget() routine is
  1533. !  *    available to get semaphores ids.
  1534.    */
  1535.   /*#undef    HAS_SEMGET        /**/
  1536.   
  1537.   /* HAS_SEMOP
  1538.    *    This symbol, if defined, indicates that the semop() routine is
  1539. !  *    available to perform semaphore operations.
  1540.    */
  1541.   /*#undef    HAS_SEMOP        /**/
  1542.   
  1543. ***************
  1544. *** 448,472 ****
  1545.   
  1546.   /* HAS_SHMAT
  1547.    *    This symbol, if defined, indicates that the shmat() routine is
  1548. !  *    available to stat symbolic links.
  1549.    */
  1550.   /*#undef    HAS_SHMAT        /**/
  1551.   
  1552.   /* HAS_SHMCTL
  1553.    *    This symbol, if defined, indicates that the shmctl() routine is
  1554. !  *    available to stat symbolic links.
  1555.    */
  1556.   /*#undef    HAS_SHMCTL        /**/
  1557.   
  1558.   /* HAS_SHMDT
  1559.    *    This symbol, if defined, indicates that the shmdt() routine is
  1560. !  *    available to stat symbolic links.
  1561.    */
  1562.   /*#undef    HAS_SHMDT        /**/
  1563.   
  1564.   /* HAS_SHMGET
  1565.    *    This symbol, if defined, indicates that the shmget() routine is
  1566. !  *    available to stat symbolic links.
  1567.    */
  1568.   /*#undef    HAS_SHMGET        /**/
  1569.   
  1570. --- 494,524 ----
  1571.   
  1572.   /* HAS_SHMAT
  1573.    *    This symbol, if defined, indicates that the shmat() routine is
  1574. !  *    available to attach a shared memory segment.
  1575.    */
  1576. + /* VOID_SHMAT
  1577. +  *    This symbol, if defined, indicates that the shmat() routine
  1578. +  *    returns a pointer of type void*.
  1579. +  */
  1580.   /*#undef    HAS_SHMAT        /**/
  1581.   
  1582. + /*#undef    VOIDSHMAT        /**/
  1583. + 
  1584.   /* HAS_SHMCTL
  1585.    *    This symbol, if defined, indicates that the shmctl() routine is
  1586. !  *    available to control a shared memory segment.
  1587.    */
  1588.   /*#undef    HAS_SHMCTL        /**/
  1589.   
  1590.   /* HAS_SHMDT
  1591.    *    This symbol, if defined, indicates that the shmdt() routine is
  1592. !  *    available to detach a shared memory segment.
  1593.    */
  1594.   /*#undef    HAS_SHMDT        /**/
  1595.   
  1596.   /* HAS_SHMGET
  1597.    *    This symbol, if defined, indicates that the shmget() routine is
  1598. !  *    available to get a shared memory segment id.
  1599.    */
  1600.   /*#undef    HAS_SHMGET        /**/
  1601.   
  1602. ***************
  1603. *** 528,533 ****
  1604. --- 580,591 ----
  1605.    */
  1606.   /*#undef    HAS_SYSCALL        /**/
  1607.   
  1608. + /* HAS_TELLDIR
  1609. +  *    This symbol, if defined, indicates that the telldir routine is
  1610. +  *    available to tell your location in directories.
  1611. +  */
  1612. + #define    HAS_TELLDIR        /**/
  1613. + 
  1614.   /* HAS_TRUNCATE
  1615.    *    This symbol, if defined, indicates that the truncate routine is
  1616.    *    available to truncate files.
  1617. ***************
  1618. *** 745,755 ****
  1619. --- 803,819 ----
  1620.   /*#undef    I_MY_DIR    /**/
  1621.   /*#undef    DIRNAMLEN    /**/
  1622.   
  1623. + /* MYMALLOC
  1624. +  *    This symbol, if defined, indicates that we're using our own malloc.
  1625. +  */
  1626.   /* MALLOCPTRTYPE
  1627.    *    This symbol defines the kind of ptr returned by malloc and realloc.
  1628.    */
  1629. + #define MYMALLOC            /**/
  1630. + 
  1631.   #define MALLOCPTRTYPE void         /**/
  1632.   
  1633. + 
  1634.   /* RANDBITS
  1635.    *    This symbol contains the number of bits of random number the rand()
  1636.    *    function produces.  Usual values are 15, 16, and 31.
  1637. ***************
  1638. *** 758,764 ****
  1639.   
  1640.   /* SCRIPTDIR
  1641.    *    This symbol holds the name of the directory in which the user wants
  1642. !  *    to put publicly executable scripts for the package in question.  It
  1643.    *    is often a directory that is mounted across diverse architectures.
  1644.    */
  1645.   #define SCRIPTDIR "C:/bin/perl"             /**/
  1646. --- 822,828 ----
  1647.   
  1648.   /* SCRIPTDIR
  1649.    *    This symbol holds the name of the directory in which the user wants
  1650. !  *    to keep publicly executable scripts for the package in question.  It
  1651.    *    is often a directory that is mounted across diverse architectures.
  1652.    */
  1653.   #define SCRIPTDIR "C:/bin/perl"             /**/
  1654.  
  1655. Index: consarg.c
  1656. *** consarg.c.old    Mon Jun  8 17:46:26 1992
  1657. --- consarg.c    Mon Jun  8 17:46:28 1992
  1658. ***************
  1659. *** 1,4 ****
  1660. ! /* $RCSfile: consarg.c,v $$Revision: 4.0.1.3 $$Date: 91/11/05 16:21:16 $
  1661.    *
  1662.    *    Copyright (c) 1991, Larry Wall
  1663.    *
  1664. --- 1,4 ----
  1665. ! /* $RCSfile: consarg.c,v $$Revision: 4.0.1.4 $$Date: 92/06/08 12:26:27 $
  1666.    *
  1667.    *    Copyright (c) 1991, Larry Wall
  1668.    *
  1669. ***************
  1670. *** 6,11 ****
  1671. --- 6,17 ----
  1672.    *    License or the Artistic License, as specified in the README file.
  1673.    *
  1674.    * $Log:    consarg.c,v $
  1675. +  * Revision 4.0.1.4  92/06/08  12:26:27  lwall
  1676. +  * patch20: new warning for use of x with non-numeric right operand
  1677. +  * patch20: modulus with highest bit in left operand set didn't always work
  1678. +  * patch20: illegal lvalue message could be followed by core dump
  1679. +  * patch20: deleted some minor memory leaks
  1680. +  * 
  1681.    * Revision 4.0.1.3  91/11/05  16:21:16  lwall
  1682.    * patch11: random cleanup
  1683.    * patch11: added eval {}
  1684. ***************
  1685. *** 57,62 ****
  1686. --- 63,69 ----
  1687.       }
  1688.       else {
  1689.           arg[3].arg_flags = 0;
  1690. +         arg[3].arg_len = 0;
  1691.           arg[3].arg_type = A_EXPR;
  1692.           arg[3].arg_ptr.arg_arg = limarg;
  1693.       }
  1694. ***************
  1695. *** 63,68 ****
  1696. --- 70,76 ----
  1697.       }
  1698.       else {
  1699.       arg[3].arg_flags = 0;
  1700. +     arg[3].arg_len = 0;
  1701.       arg[3].arg_type = A_NULL;
  1702.       arg[3].arg_ptr.arg_arg = Nullarg;
  1703.       }
  1704. ***************
  1705. *** 344,350 ****
  1706.       str_scat(str,s2);
  1707.       break;
  1708.       case O_REPEAT:
  1709. !     CHECK12;
  1710.       i = (int)str_gnum(s2);
  1711.       tmps = str_get(s1);
  1712.       str_nset(str,"",0);
  1713. --- 352,361 ----
  1714.       str_scat(str,s2);
  1715.       break;
  1716.       case O_REPEAT:
  1717. !     CHECK2;
  1718. !     if (dowarn && !s2->str_nok && !looks_like_number(s2))
  1719. !         warn("Right operand of x is not numeric");
  1720. !     CHECK1;
  1721.       i = (int)str_gnum(s2);
  1722.       tmps = str_get(s1);
  1723.       str_nset(str,"",0);
  1724. ***************
  1725. *** 392,403 ****
  1726.           yyerror("Illegal modulus of constant zero");
  1727.           return arg;
  1728.       }
  1729. !     tmp2 = (long)str_gnum(s1);
  1730.   #ifndef lint
  1731. !     if (tmp2 >= 0)
  1732. !         str_numset(str,(double)(tmp2 % tmplong));
  1733. !     else
  1734.           str_numset(str,(double)((tmplong-((-tmp2 - 1) % tmplong)) - 1));
  1735.   #else
  1736.       tmp2 = tmp2;
  1737.   #endif
  1738. --- 403,416 ----
  1739.           yyerror("Illegal modulus of constant zero");
  1740.           return arg;
  1741.       }
  1742. !     value = str_gnum(s1);
  1743.   #ifndef lint
  1744. !     if (value >= 0.0)
  1745. !         str_numset(str,(double)(((unsigned long)value) % tmplong));
  1746. !     else {
  1747. !         tmp2 = (long)value;
  1748.           str_numset(str,(double)((tmplong-((-tmp2 - 1) % tmplong)) - 1));
  1749. +     }
  1750.   #else
  1751.       tmp2 = tmp2;
  1752.   #endif
  1753. ***************
  1754. *** 847,852 ****
  1755. --- 860,866 ----
  1756.           (void)sprintf(tokenbuf,
  1757.             "Illegal expression (%s) as lvalue",opname[arg1->arg_type]);
  1758.           yyerror(tokenbuf);
  1759. +         return arg;
  1760.       }
  1761.       arg[1].arg_type = A_LEXPR | (arg[1].arg_type & A_DONT);
  1762.       if (arg->arg_type == O_ASSIGN && (arg1[1].arg_flags & AF_ARYOK)) {
  1763. ***************
  1764. *** 871,876 ****
  1765. --- 885,891 ----
  1766.       (void)sprintf(tokenbuf,
  1767.         "Illegal item (%s) as lvalue",argname[arg[1].arg_type&A_MASK]);
  1768.       yyerror(tokenbuf);
  1769. +     return arg;
  1770.       }
  1771.       arg[1].arg_type = A_LVAL | (arg[1].arg_type & A_DONT);
  1772.   #ifdef DEBUGGING
  1773. ***************
  1774. *** 897,902 ****
  1775. --- 912,918 ----
  1776.       return arg;
  1777.   }
  1778.   
  1779. + void
  1780.   dehoist(arg,i)
  1781.   ARG *arg;
  1782.   {
  1783. ***************
  1784. *** 976,1001 ****
  1785.       node = arg;
  1786.       arg = op_new(i);
  1787.       tmpstr = arg->arg_ptr.arg_str;
  1788. ! #ifdef STRUCTCOPY
  1789. !     *arg = *node;        /* copy everything except the STR */
  1790. ! #else
  1791. !     (void)bcopy((char *)node, (char *)arg, sizeof(ARG));
  1792. ! #endif
  1793.       arg->arg_ptr.arg_str = tmpstr;
  1794.       for (j = i; ; ) {
  1795. ! #ifdef STRUCTCOPY
  1796. !         arg[j] = node[2];
  1797. ! #else
  1798. !         (void)bcopy((char *)(node+2), (char *)(arg+j), sizeof(ARG));
  1799. ! #endif
  1800.           arg[j].arg_flags |= AF_ARYOK;
  1801.           --j;        /* Bug in Xenix compiler */
  1802.           if (j < 2) {
  1803. ! #ifdef STRUCTCOPY
  1804. !         arg[1] = node[1];
  1805. ! #else
  1806. !         (void)bcopy((char *)(node+1), (char *)(arg+1), sizeof(ARG));
  1807. ! #endif
  1808.           free_arg(node);
  1809.           break;
  1810.           }
  1811. --- 992,1005 ----
  1812.       node = arg;
  1813.       arg = op_new(i);
  1814.       tmpstr = arg->arg_ptr.arg_str;
  1815. !     StructCopy(node, arg, ARG);    /* copy everything except the STR */
  1816.       arg->arg_ptr.arg_str = tmpstr;
  1817.       for (j = i; ; ) {
  1818. !         StructCopy(node+2, arg+j, ARG);
  1819.           arg[j].arg_flags |= AF_ARYOK;
  1820.           --j;        /* Bug in Xenix compiler */
  1821.           if (j < 2) {
  1822. !         StructCopy(node+1, arg+1, ARG);
  1823.           free_arg(node);
  1824.           break;
  1825.           }
  1826. ***************
  1827. *** 1008,1013 ****
  1828. --- 1012,1019 ----
  1829.       arg[2].arg_flags |= AF_ARYOK;
  1830.       arg->arg_type = O_LIST;
  1831.       arg->arg_len = i;
  1832. +     str_free(arg->arg_ptr.arg_str);
  1833. +     arg->arg_ptr.arg_str = Nullstr;
  1834.       return arg;
  1835.   }
  1836.   
  1837.  
  1838. Index: t/comp/cpp.t
  1839. Prereq: 4.0
  1840. *** t/comp/cpp.t.old    Mon Jun  8 17:52:01 1992
  1841. --- t/comp/cpp.t    Mon Jun  8 17:52:02 1992
  1842. ***************
  1843. *** 1,6 ****
  1844.   #!./perl -P
  1845.   
  1846. ! # $Header: cpp.t,v 4.0 91/03/20 01:50:05 lwall Locked $
  1847.   
  1848.   print "1..3\n";
  1849.   
  1850. --- 1,18 ----
  1851.   #!./perl -P
  1852.   
  1853. ! # $RCSfile: cpp.t,v $$Revision: 4.0.1.1 $$Date: 92/06/08 15:42:08 $
  1854. ! 
  1855. ! open(CONFIG,"../config.sh") || die;
  1856. ! while (<CONFIG>) {
  1857. !     if (/^cppstdin/) {
  1858. !     if (/^cppstdin='(.*cppstdin)'/ && ! -e $1) {
  1859. !         print "1..0\n";
  1860. !         exit;         # Can't test till after install, alas.
  1861. !     }
  1862. !     last;
  1863. !     }
  1864. ! }
  1865. ! close CONFIG;
  1866.   
  1867.   print "1..3\n";
  1868.   
  1869.  
  1870. Index: hints/cray.sh
  1871. *** hints/cray.sh.old    Mon Jun  8 17:47:47 1992
  1872. --- hints/cray.sh    Mon Jun  8 17:47:48 1992
  1873. ***************
  1874. *** 0 ****
  1875. --- 1,3 ----
  1876. + case `uname -r` in
  1877. + 6.1*) shellflags="-m+65536" ;;
  1878. + esac
  1879.  
  1880. Index: lib/ctime.pl
  1881. Prereq: 4.0
  1882. *** lib/ctime.pl.old    Mon Jun  8 17:48:52 1992
  1883. --- lib/ctime.pl    Mon Jun  8 17:48:52 1992
  1884. ***************
  1885. *** 3,9 ****
  1886.   ;# Waldemar Kebsch, Federal Republic of Germany, November 1988
  1887.   ;# kebsch.pad@nixpbe.UUCP
  1888.   ;# Modified March 1990, Feb 1991 to properly handle timezones
  1889. ! ;#  $Id: ctime.pl,v 1.8 91/02/04 18:28:12 hakanson Exp $
  1890.   ;#   Marion Hakanson (hakanson@cse.ogi.edu)
  1891.   ;#   Oregon Graduate Institute of Science and Technology
  1892.   ;#
  1893. --- 3,9 ----
  1894.   ;# Waldemar Kebsch, Federal Republic of Germany, November 1988
  1895.   ;# kebsch.pad@nixpbe.UUCP
  1896.   ;# Modified March 1990, Feb 1991 to properly handle timezones
  1897. ! ;#  $RCSfile: ctime.pl,v $$Revision: 4.0.1.1 $$Date: 92/06/08 13:38:06 $
  1898.   ;#   Marion Hakanson (hakanson@cse.ogi.edu)
  1899.   ;#   Oregon Graduate Institute of Science and Technology
  1900.   ;#
  1901. ***************
  1902. *** 24,29 ****
  1903. --- 24,30 ----
  1904.       package ctime;
  1905.   
  1906.       local($time) = @_;
  1907. +     local($[) = 0;
  1908.       local($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst);
  1909.   
  1910.       # Determine what time zone is in effect.
  1911.  
  1912. *** End of Patch 22 ***
  1913. exit 0 # Just in case...
  1914.