home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume30 / perl / patch27 < prev    next >
Text File  |  1992-06-11  |  50KB  |  2,152 lines
  1. Newsgroups: comp.sources.misc
  2. From: lwall@netlabs.com (Larry Wall)
  3. Subject:  v30i038:  perl - The perl programming language, Patch27
  4. Message-ID: <1992Jun11.180557.600@sparky.imd.sterling.com>
  5. X-Md4-Signature: fae7b51e5429e8b3f976ee9caff0eee3
  6. Date: Thu, 11 Jun 1992 18:05:57 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: lwall@netlabs.com (Larry Wall)
  10. Posting-number: Volume 30, Issue 38
  11. Archive-name: perl/patch27
  12. Environment: UNIX, MS-DOS, OS2
  13. Patch-To: perl: Volume 18, Issue 19-54
  14.  
  15. System: perl version 4.0
  16. Patch #: 27
  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: 26
  56. 1c1
  57. < #define PATCHLEVEL 26
  58. ---
  59. > #define PATCHLEVEL 27
  60.  
  61. Index: dolist.c
  62. *** dolist.c.old    Mon Jun  8 17:46:54 1992
  63. --- dolist.c    Mon Jun  8 17:46:55 1992
  64. ***************
  65. *** 1,4 ****
  66. ! /* $RCSfile: dolist.c,v $$Revision: 4.0.1.4 $$Date: 91/11/11 16:33:19 $
  67.    *
  68.    *    Copyright (c) 1991, Larry Wall
  69.    *
  70. --- 1,4 ----
  71. ! /* $RCSfile: dolist.c,v $$Revision: 4.0.1.5 $$Date: 92/06/08 13:13:27 $
  72.    *
  73.    *    Copyright (c) 1991, Larry Wall
  74.    *
  75. ***************
  76. *** 6,11 ****
  77. --- 6,22 ----
  78.    *    License or the Artistic License, as specified in the README file.
  79.    *
  80.    * $Log:    dolist.c,v $
  81. +  * Revision 4.0.1.5  92/06/08  13:13:27  lwall
  82. +  * patch20: g pattern modifer sometimes returned extra values
  83. +  * patch20: m/$pattern/g didn't work
  84. +  * patch20: pattern modifiers i and o didn't interact right
  85. +  * patch20: @ in unpack failed too often
  86. +  * patch20: Perl now distinguishes overlapped copies from non-overlapped
  87. +  * patch20: slice on null list in scalar context returned random value
  88. +  * patch20: splice with negative offset didn't work with $[ = 1
  89. +  * patch20: fixed some memory leaks in splice
  90. +  * patch20: scalar keys %array now counts keys for you
  91. +  * 
  92.    * Revision 4.0.1.4  91/11/11  16:33:19  lwall
  93.    * patch19: added little-endian pack/unpack options
  94.    * patch19: sort $subname was busted by changes in 4.018
  95. ***************
  96. *** 40,45 ****
  97. --- 51,58 ----
  98.   #include "EXTERN.h"
  99.   #include "perl.h"
  100.   
  101. + static int sortcmp();
  102. + static int sortsub();
  103.   
  104.   #ifdef BUGGY_MSC
  105.    #pragma function(memcmp)
  106. ***************
  107. *** 63,68 ****
  108. --- 76,83 ----
  109.       char *myhint = hint;
  110.       int global;
  111.       int safebase;
  112. +     char *truebase = s;
  113. +     register REGEXP *rx = spat->spat_regexp;
  114.   
  115.       hint = Nullch;
  116.       if (!spat) {
  117. ***************
  118. *** 100,115 ****
  119.       if (debug & 8)
  120.           deb("2.SPAT /%s/\n",t);
  121.   #endif
  122. !     if (spat->spat_regexp) {
  123. !         regfree(spat->spat_regexp);
  124. !         spat->spat_regexp = Null(REGEXP*);    /* crucial if regcomp aborts */
  125. !     }
  126.       spat->spat_regexp = regcomp(t,t+tmpstr->str_cur,
  127.           spat->spat_flags & SPAT_FOLD);
  128.       if (!spat->spat_regexp->prelen && lastspat)
  129.           spat = lastspat;
  130.       if (spat->spat_flags & SPAT_KEEP) {
  131. !         scanconst(spat,spat->spat_regexp->precomp, spat->spat_regexp->prelen);
  132.           if (spat->spat_runtime)
  133.           arg_free(spat->spat_runtime);    /* it won't change, so */
  134.           spat->spat_runtime = Nullarg;    /* no point compiling again */
  135. --- 115,131 ----
  136.       if (debug & 8)
  137.           deb("2.SPAT /%s/\n",t);
  138.   #endif
  139. !     if (!global && rx)
  140. !         regfree(rx);
  141. !     spat->spat_regexp = Null(REGEXP*);    /* crucial if regcomp aborts */
  142.       spat->spat_regexp = regcomp(t,t+tmpstr->str_cur,
  143.           spat->spat_flags & SPAT_FOLD);
  144.       if (!spat->spat_regexp->prelen && lastspat)
  145.           spat = lastspat;
  146.       if (spat->spat_flags & SPAT_KEEP) {
  147. !         if (!(spat->spat_flags & SPAT_FOLD))
  148. !         scanconst(spat,spat->spat_regexp->precomp,
  149. !             spat->spat_regexp->prelen);
  150.           if (spat->spat_runtime)
  151.           arg_free(spat->spat_runtime);    /* it won't change, so */
  152.           spat->spat_runtime = Nullarg;    /* no point compiling again */
  153. ***************
  154. *** 120,135 ****
  155.           }
  156.       }
  157.       if (global) {
  158. !         if (spat->spat_regexp->startp[0]) {
  159. !         s = spat->spat_regexp->endp[0];
  160.           }
  161.       }
  162.       else if (!spat->spat_regexp->nparens)
  163.           gimme = G_SCALAR;            /* accidental array context? */
  164. !     if (regexec(spat->spat_regexp, s, strend, s, 0,
  165.         srchstr->str_pok & SP_STUDIED ? srchstr : Nullstr,
  166.         safebase)) {
  167. !         if (spat->spat_regexp->subbase || global)
  168.           curspat = spat;
  169.           lastspat = spat;
  170.           goto gotcha;
  171. --- 136,162 ----
  172.           }
  173.       }
  174.       if (global) {
  175. !         if (rx) {
  176. !             if (rx->startp[0]) {
  177. !             s = rx->endp[0];
  178. !             if (s == rx->startp[0])
  179. !             s++;
  180. !             if (s > strend) {
  181. !             regfree(rx);
  182. !             rx = spat->spat_regexp;
  183. !             goto nope;
  184. !             }
  185. !         }
  186. !         regfree(rx);
  187.           }
  188.       }
  189.       else if (!spat->spat_regexp->nparens)
  190.           gimme = G_SCALAR;            /* accidental array context? */
  191. !     rx = spat->spat_regexp;
  192. !     if (regexec(rx, s, strend, s, 0,
  193.         srchstr->str_pok & SP_STUDIED ? srchstr : Nullstr,
  194.         safebase)) {
  195. !         if (rx->subbase || global)
  196.           curspat = spat;
  197.           lastspat = spat;
  198.           goto gotcha;
  199. ***************
  200. *** 152,172 ****
  201.           ch = '?';
  202.           else
  203.           ch = '/';
  204. !         deb("2.SPAT %c%s%c\n",ch,spat->spat_regexp->precomp,ch);
  205.       }
  206.   #endif
  207. !     if (!spat->spat_regexp->prelen && lastspat)
  208.           spat = lastspat;
  209.       t = s;
  210.       play_it_again:
  211. !     if (global && spat->spat_regexp->startp[0])
  212. !         t = s = spat->spat_regexp->endp[0];
  213.       if (myhint) {
  214.           if (myhint < s || myhint > strend)
  215.           fatal("panic: hint in do_match");
  216.           s = myhint;
  217. !         if (spat->spat_regexp->regback >= 0) {
  218. !         s -= spat->spat_regexp->regback;
  219.           if (s < t)
  220.               s = t;
  221.           }
  222. --- 179,206 ----
  223.           ch = '?';
  224.           else
  225.           ch = '/';
  226. !         deb("2.SPAT %c%s%c\n",ch,rx->precomp,ch);
  227.       }
  228.   #endif
  229. !     if (!rx->prelen && lastspat) {
  230.           spat = lastspat;
  231. +         rx = spat->spat_regexp;
  232. +     }
  233.       t = s;
  234.       play_it_again:
  235. !     if (global && rx->startp[0]) {
  236. !         t = s = rx->endp[0];
  237. !         if (s == rx->startp[0])
  238. !         s++,t++;
  239. !         if (s > strend)
  240. !         goto nope;
  241. !     }
  242.       if (myhint) {
  243.           if (myhint < s || myhint > strend)
  244.           fatal("panic: hint in do_match");
  245.           s = myhint;
  246. !         if (rx->regback >= 0) {
  247. !         s -= rx->regback;
  248.           if (s < t)
  249.               s = t;
  250.           }
  251. ***************
  252. *** 190,198 ****
  253.   #endif
  254.           else if (spat->spat_flags & SPAT_ALL)
  255.               goto yup;
  256. !         if (s && spat->spat_regexp->regback >= 0) {
  257.               ++spat->spat_short->str_u.str_useful;
  258. !             s -= spat->spat_regexp->regback;
  259.               if (s < t)
  260.               s = t;
  261.           }
  262. --- 224,232 ----
  263.   #endif
  264.           else if (spat->spat_flags & SPAT_ALL)
  265.               goto yup;
  266. !         if (s && rx->regback >= 0) {
  267.               ++spat->spat_short->str_u.str_useful;
  268. !             s -= rx->regback;
  269.               if (s < t)
  270.               s = t;
  271.           }
  272. ***************
  273. *** 207,220 ****
  274.           spat->spat_short = Nullstr;    /* opt is being useless */
  275.           }
  276.       }
  277. !     if (!spat->spat_regexp->nparens && !global) {
  278.           gimme = G_SCALAR;            /* accidental array context? */
  279.           safebase = FALSE;
  280.       }
  281. !     if (regexec(spat->spat_regexp, s, strend, t, 0,
  282.         srchstr->str_pok & SP_STUDIED ? srchstr : Nullstr,
  283.         safebase)) {
  284. !         if (spat->spat_regexp->subbase || global)
  285.           curspat = spat;
  286.           lastspat = spat;
  287.           if (spat->spat_flags & SPAT_ONCE)
  288. --- 241,254 ----
  289.           spat->spat_short = Nullstr;    /* opt is being useless */
  290.           }
  291.       }
  292. !     if (!rx->nparens && !global) {
  293.           gimme = G_SCALAR;            /* accidental array context? */
  294.           safebase = FALSE;
  295.       }
  296. !     if (regexec(rx, s, strend, truebase, 0,
  297.         srchstr->str_pok & SP_STUDIED ? srchstr : Nullstr,
  298.         safebase)) {
  299. !         if (rx->subbase || global)
  300.           curspat = spat;
  301.           lastspat = spat;
  302.           if (spat->spat_flags & SPAT_ONCE)
  303. ***************
  304. *** 223,229 ****
  305.       }
  306.       else {
  307.           if (global)
  308. !         spat->spat_regexp->startp[0] = Nullch;
  309.           if (gimme == G_ARRAY)
  310.           return sp;
  311.           str_sset(str,&str_no);
  312. --- 257,263 ----
  313.       }
  314.       else {
  315.           if (global)
  316. !         rx->startp[0] = Nullch;
  317.           if (gimme == G_ARRAY)
  318.           return sp;
  319.           str_sset(str,&str_no);
  320. ***************
  321. *** 238,244 ****
  322.       if (gimme == G_ARRAY) {
  323.       int iters, i, len;
  324.   
  325. !     iters = spat->spat_regexp->nparens;
  326.       if (global && !iters)
  327.           i = 1;
  328.       else
  329. --- 272,278 ----
  330.       if (gimme == G_ARRAY) {
  331.       int iters, i, len;
  332.   
  333. !     iters = rx->nparens;
  334.       if (global && !iters)
  335.           i = 1;
  336.       else
  337. ***************
  338. *** 251,264 ****
  339.       for (i = !i; i <= iters; i++) {
  340.           st[++sp] = str_mortal(&str_no);
  341.           /*SUPPRESS 560*/
  342. !         if (s = spat->spat_regexp->startp[i]) {
  343. !         len = spat->spat_regexp->endp[i] - s;
  344.           if (len > 0)
  345.               str_nset(st[sp],s,len);
  346.           }
  347.       }
  348. !     if (global)
  349.           goto play_it_again;
  350.       return sp;
  351.       }
  352.       else {
  353. --- 285,300 ----
  354.       for (i = !i; i <= iters; i++) {
  355.           st[++sp] = str_mortal(&str_no);
  356.           /*SUPPRESS 560*/
  357. !         if (s = rx->startp[i]) {
  358. !         len = rx->endp[i] - s;
  359.           if (len > 0)
  360.               str_nset(st[sp],s,len);
  361.           }
  362.       }
  363. !     if (global) {
  364. !         truebase = rx->subbeg;
  365.           goto play_it_again;
  366. +     }
  367.       return sp;
  368.       }
  369.       else {
  370. ***************
  371. *** 274,283 ****
  372.       if (spat->spat_flags & SPAT_ONCE)
  373.       spat->spat_flags |= SPAT_USED;
  374.       if (global) {
  375. !     spat->spat_regexp->subbeg = t;
  376. !     spat->spat_regexp->subend = strend;
  377. !     spat->spat_regexp->startp[0] = s;
  378. !     spat->spat_regexp->endp[0] = s + spat->spat_short->str_cur;
  379.       curspat = spat;
  380.       goto gotcha;
  381.       }
  382. --- 310,319 ----
  383.       if (spat->spat_flags & SPAT_ONCE)
  384.       spat->spat_flags |= SPAT_USED;
  385.       if (global) {
  386. !     rx->subbeg = t;
  387. !     rx->subend = strend;
  388. !     rx->startp[0] = s;
  389. !     rx->endp[0] = s + spat->spat_short->str_cur;
  390.       curspat = spat;
  391.       goto gotcha;
  392.       }
  393. ***************
  394. *** 284,296 ****
  395.       if (sawampersand) {
  396.       char *tmps;
  397.   
  398. !     if (spat->spat_regexp->subbase)
  399. !         Safefree(spat->spat_regexp->subbase);
  400. !     tmps = spat->spat_regexp->subbase = nsavestr(t,strend-t);
  401. !     spat->spat_regexp->subbeg = tmps;
  402. !     spat->spat_regexp->subend = tmps + (strend-t);
  403. !     tmps = spat->spat_regexp->startp[0] = tmps + (s - t);
  404. !     spat->spat_regexp->endp[0] = tmps + spat->spat_short->str_cur;
  405.       curspat = spat;
  406.       }
  407.       str_sset(str,&str_yes);
  408. --- 320,332 ----
  409.       if (sawampersand) {
  410.       char *tmps;
  411.   
  412. !     if (rx->subbase)
  413. !         Safefree(rx->subbase);
  414. !     tmps = rx->subbase = nsavestr(t,strend-t);
  415. !     rx->subbeg = tmps;
  416. !     rx->subend = tmps + (strend-t);
  417. !     tmps = rx->startp[0] = tmps + (s - t);
  418. !     rx->endp[0] = tmps + spat->spat_short->str_cur;
  419.       curspat = spat;
  420.       }
  421.       str_sset(str,&str_yes);
  422. ***************
  423. *** 299,308 ****
  424.       return sp;
  425.   
  426.   nope:
  427. !     spat->spat_regexp->startp[0] = Nullch;
  428. !     ++spat->spat_short->str_u.str_useful;
  429. !     if (global)
  430. !     spat->spat_regexp->startp[0] = Nullch;
  431.       if (gimme == G_ARRAY)
  432.       return sp;
  433.       str_sset(str,&str_no);
  434. --- 335,343 ----
  435.       return sp;
  436.   
  437.   nope:
  438. !     rx->startp[0] = Nullch;
  439. !     if (spat->spat_short)
  440. !     ++spat->spat_short->str_u.str_useful;
  441.       if (gimme == G_ARRAY)
  442.       return sp;
  443.       str_sset(str,&str_no);
  444. ***************
  445. *** 628,634 ****
  446.           goto reparse;
  447.           break;
  448.       case '@':
  449. !         if (len > strend - s)
  450.           fatal("@ outside of string");
  451.           s = strbeg + len;
  452.           break;
  453. --- 663,669 ----
  454.           goto reparse;
  455.           break;
  456.       case '@':
  457. !         if (len > strend - strbeg)
  458.           fatal("@ outside of string");
  459.           s = strbeg + len;
  460.           break;
  461. ***************
  462. *** 775,781 ****
  463.           len = along;
  464.           if (checksum) {
  465.           while (len-- > 0) {
  466. !             bcopy(s,(char*)&ashort,sizeof(short));
  467.               s += sizeof(short);
  468.               culong += ashort;
  469.           }
  470. --- 810,816 ----
  471.           len = along;
  472.           if (checksum) {
  473.           while (len-- > 0) {
  474. !             Copy(s,&ashort,1,short);
  475.               s += sizeof(short);
  476.               culong += ashort;
  477.           }
  478. ***************
  479. *** 782,788 ****
  480.           }
  481.           else {
  482.           while (len-- > 0) {
  483. !             bcopy(s,(char*)&ashort,sizeof(short));
  484.               s += sizeof(short);
  485.               str = Str_new(38,0);
  486.               str_numset(str,(double)ashort);
  487. --- 817,823 ----
  488.           }
  489.           else {
  490.           while (len-- > 0) {
  491. !             Copy(s,&ashort,1,short);
  492.               s += sizeof(short);
  493.               str = Str_new(38,0);
  494.               str_numset(str,(double)ashort);
  495. ***************
  496. *** 798,804 ****
  497.           len = along;
  498.           if (checksum) {
  499.           while (len-- > 0) {
  500. !             bcopy(s,(char*)&aushort,sizeof(unsigned short));
  501.               s += sizeof(unsigned short);
  502.   #ifdef HAS_NTOHS
  503.               if (datumtype == 'n')
  504. --- 833,839 ----
  505.           len = along;
  506.           if (checksum) {
  507.           while (len-- > 0) {
  508. !             Copy(s,&aushort,1,unsigned short);
  509.               s += sizeof(unsigned short);
  510.   #ifdef HAS_NTOHS
  511.               if (datumtype == 'n')
  512. ***************
  513. *** 813,819 ****
  514.           }
  515.           else {
  516.           while (len-- > 0) {
  517. !             bcopy(s,(char*)&aushort,sizeof(unsigned short));
  518.               s += sizeof(unsigned short);
  519.               str = Str_new(39,0);
  520.   #ifdef HAS_NTOHS
  521. --- 848,854 ----
  522.           }
  523.           else {
  524.           while (len-- > 0) {
  525. !             Copy(s,&aushort,1,unsigned short);
  526.               s += sizeof(unsigned short);
  527.               str = Str_new(39,0);
  528.   #ifdef HAS_NTOHS
  529. ***************
  530. *** 835,841 ****
  531.           len = along;
  532.           if (checksum) {
  533.           while (len-- > 0) {
  534. !             bcopy(s,(char*)&aint,sizeof(int));
  535.               s += sizeof(int);
  536.               if (checksum > 32)
  537.               cdouble += (double)aint;
  538. --- 870,876 ----
  539.           len = along;
  540.           if (checksum) {
  541.           while (len-- > 0) {
  542. !             Copy(s,&aint,1,int);
  543.               s += sizeof(int);
  544.               if (checksum > 32)
  545.               cdouble += (double)aint;
  546. ***************
  547. *** 845,851 ****
  548.           }
  549.           else {
  550.           while (len-- > 0) {
  551. !             bcopy(s,(char*)&aint,sizeof(int));
  552.               s += sizeof(int);
  553.               str = Str_new(40,0);
  554.               str_numset(str,(double)aint);
  555. --- 880,886 ----
  556.           }
  557.           else {
  558.           while (len-- > 0) {
  559. !             Copy(s,&aint,1,int);
  560.               s += sizeof(int);
  561.               str = Str_new(40,0);
  562.               str_numset(str,(double)aint);
  563. ***************
  564. *** 859,865 ****
  565.           len = along;
  566.           if (checksum) {
  567.           while (len-- > 0) {
  568. !             bcopy(s,(char*)&auint,sizeof(unsigned int));
  569.               s += sizeof(unsigned int);
  570.               if (checksum > 32)
  571.               cdouble += (double)auint;
  572. --- 894,900 ----
  573.           len = along;
  574.           if (checksum) {
  575.           while (len-- > 0) {
  576. !             Copy(s,&auint,1,unsigned int);
  577.               s += sizeof(unsigned int);
  578.               if (checksum > 32)
  579.               cdouble += (double)auint;
  580. ***************
  581. *** 869,875 ****
  582.           }
  583.           else {
  584.           while (len-- > 0) {
  585. !             bcopy(s,(char*)&auint,sizeof(unsigned int));
  586.               s += sizeof(unsigned int);
  587.               str = Str_new(41,0);
  588.               str_numset(str,(double)auint);
  589. --- 904,910 ----
  590.           }
  591.           else {
  592.           while (len-- > 0) {
  593. !             Copy(s,&auint,1,unsigned int);
  594.               s += sizeof(unsigned int);
  595.               str = Str_new(41,0);
  596.               str_numset(str,(double)auint);
  597. ***************
  598. *** 883,889 ****
  599.           len = along;
  600.           if (checksum) {
  601.           while (len-- > 0) {
  602. !             bcopy(s,(char*)&along,sizeof(long));
  603.               s += sizeof(long);
  604.               if (checksum > 32)
  605.               cdouble += (double)along;
  606. --- 918,924 ----
  607.           len = along;
  608.           if (checksum) {
  609.           while (len-- > 0) {
  610. !             Copy(s,&along,1,long);
  611.               s += sizeof(long);
  612.               if (checksum > 32)
  613.               cdouble += (double)along;
  614. ***************
  615. *** 893,899 ****
  616.           }
  617.           else {
  618.           while (len-- > 0) {
  619. !             bcopy(s,(char*)&along,sizeof(long));
  620.               s += sizeof(long);
  621.               str = Str_new(42,0);
  622.               str_numset(str,(double)along);
  623. --- 928,934 ----
  624.           }
  625.           else {
  626.           while (len-- > 0) {
  627. !             Copy(s,&along,1,long);
  628.               s += sizeof(long);
  629.               str = Str_new(42,0);
  630.               str_numset(str,(double)along);
  631. ***************
  632. *** 909,915 ****
  633.           len = along;
  634.           if (checksum) {
  635.           while (len-- > 0) {
  636. !             bcopy(s,(char*)&aulong,sizeof(unsigned long));
  637.               s += sizeof(unsigned long);
  638.   #ifdef HAS_NTOHL
  639.               if (datumtype == 'N')
  640. --- 944,950 ----
  641.           len = along;
  642.           if (checksum) {
  643.           while (len-- > 0) {
  644. !             Copy(s,&aulong,1,unsigned long);
  645.               s += sizeof(unsigned long);
  646.   #ifdef HAS_NTOHL
  647.               if (datumtype == 'N')
  648. ***************
  649. *** 927,933 ****
  650.           }
  651.           else {
  652.           while (len-- > 0) {
  653. !             bcopy(s,(char*)&aulong,sizeof(unsigned long));
  654.               s += sizeof(unsigned long);
  655.               str = Str_new(43,0);
  656.   #ifdef HAS_NTOHL
  657. --- 962,968 ----
  658.           }
  659.           else {
  660.           while (len-- > 0) {
  661. !             Copy(s,&aulong,1,unsigned long);
  662.               s += sizeof(unsigned long);
  663.               str = Str_new(43,0);
  664.   #ifdef HAS_NTOHL
  665. ***************
  666. *** 951,957 ****
  667.           if (sizeof(char*) > strend - s)
  668.               break;
  669.           else {
  670. !             bcopy(s,(char*)&aptr,sizeof(char*));
  671.               s += sizeof(char*);
  672.           }
  673.           str = Str_new(44,0);
  674. --- 986,992 ----
  675.           if (sizeof(char*) > strend - s)
  676.               break;
  677.           else {
  678. !             Copy(s,&aptr,1,char*);
  679.               s += sizeof(char*);
  680.           }
  681.           str = Str_new(44,0);
  682. ***************
  683. *** 966,972 ****
  684.           if (s + sizeof(quad) > strend)
  685.               aquad = 0;
  686.           else {
  687. !             bcopy(s,(char*)&aquad,sizeof(quad));
  688.               s += sizeof(quad);
  689.           }
  690.           str = Str_new(42,0);
  691. --- 1001,1007 ----
  692.           if (s + sizeof(quad) > strend)
  693.               aquad = 0;
  694.           else {
  695. !             Copy(s,&aquad,1,quad);
  696.               s += sizeof(quad);
  697.           }
  698.           str = Str_new(42,0);
  699. ***************
  700. *** 979,985 ****
  701.           if (s + sizeof(unsigned quad) > strend)
  702.               auquad = 0;
  703.           else {
  704. !             bcopy(s,(char*)&auquad,sizeof(unsigned quad));
  705.               s += sizeof(unsigned quad);
  706.           }
  707.           str = Str_new(43,0);
  708. --- 1014,1020 ----
  709.           if (s + sizeof(unsigned quad) > strend)
  710.               auquad = 0;
  711.           else {
  712. !             Copy(s,&auquad,1,unsigned quad);
  713.               s += sizeof(unsigned quad);
  714.           }
  715.           str = Str_new(43,0);
  716. ***************
  717. *** 996,1002 ****
  718.           len = along;
  719.           if (checksum) {
  720.           while (len-- > 0) {
  721. !             bcopy(s, (char *)&afloat, sizeof(float));
  722.               s += sizeof(float);
  723.               cdouble += afloat;
  724.           }
  725. --- 1031,1037 ----
  726.           len = along;
  727.           if (checksum) {
  728.           while (len-- > 0) {
  729. !             Copy(s, &afloat,1, float);
  730.               s += sizeof(float);
  731.               cdouble += afloat;
  732.           }
  733. ***************
  734. *** 1003,1009 ****
  735.           }
  736.           else {
  737.           while (len-- > 0) {
  738. !             bcopy(s, (char *)&afloat, sizeof(float));
  739.               s += sizeof(float);
  740.               str = Str_new(47, 0);
  741.               str_numset(str, (double)afloat);
  742. --- 1038,1044 ----
  743.           }
  744.           else {
  745.           while (len-- > 0) {
  746. !             Copy(s, &afloat,1, float);
  747.               s += sizeof(float);
  748.               str = Str_new(47, 0);
  749.               str_numset(str, (double)afloat);
  750. ***************
  751. *** 1018,1024 ****
  752.           len = along;
  753.           if (checksum) {
  754.           while (len-- > 0) {
  755. !             bcopy(s, (char *)&adouble, sizeof(double));
  756.               s += sizeof(double);
  757.               cdouble += adouble;
  758.           }
  759. --- 1053,1059 ----
  760.           len = along;
  761.           if (checksum) {
  762.           while (len-- > 0) {
  763. !             Copy(s, &adouble,1, double);
  764.               s += sizeof(double);
  765.               cdouble += adouble;
  766.           }
  767. ***************
  768. *** 1025,1031 ****
  769.           }
  770.           else {
  771.           while (len-- > 0) {
  772. !             bcopy(s, (char *)&adouble, sizeof(double));
  773.               s += sizeof(double);
  774.               str = Str_new(48, 0);
  775.               str_numset(str, (double)adouble);
  776. --- 1060,1066 ----
  777.           }
  778.           else {
  779.           while (len-- > 0) {
  780. !             Copy(s, &adouble,1, double);
  781.               s += sizeof(double);
  782.               str = Str_new(48, 0);
  783.               str_numset(str, (double)adouble);
  784. ***************
  785. *** 1182,1188 ****
  786.       sp--;
  787.       }
  788.       else {
  789. !     if (numarray) {
  790.           if (st[max])
  791.           st[sp] = afetch(ary,
  792.             ((int)str_gnum(st[max])) - arybase, lval);
  793. --- 1217,1225 ----
  794.       sp--;
  795.       }
  796.       else {
  797. !     if (sp == max)
  798. !         st[sp] = &str_undef;
  799. !     else if (numarray) {
  800.           if (st[max])
  801.           st[sp] = afetch(ary,
  802.             ((int)str_gnum(st[max])) - arybase, lval);
  803. ***************
  804. *** 1225,1233 ****
  805.       STR **tmparyval;
  806.   
  807.       if (++sp < max) {
  808. !     offset = ((int)str_gnum(st[sp])) - arybase;
  809.       if (offset < 0)
  810.           offset += ary->ary_fill + 1;
  811.       if (++sp < max) {
  812.           length = (int)str_gnum(st[sp++]);
  813.           if (length < 0)
  814. --- 1262,1272 ----
  815.       STR **tmparyval;
  816.   
  817.       if (++sp < max) {
  818. !     offset = (int)str_gnum(st[sp]);
  819.       if (offset < 0)
  820.           offset += ary->ary_fill + 1;
  821. +     else
  822. +         offset -= arybase;
  823.       if (++sp < max) {
  824.           length = (int)str_gnum(st[sp++]);
  825.           if (length < 0)
  826. ***************
  827. *** 1284,1291 ****
  828.       }
  829.       else {
  830.           st[sp] = ary->ary_array[offset+length-1];
  831. !         if (ary->ary_flags & ARF_REAL)
  832.           str_2mortal(st[sp]);
  833.       }
  834.       ary->ary_fill += diff;
  835.   
  836. --- 1323,1333 ----
  837.       }
  838.       else {
  839.           st[sp] = ary->ary_array[offset+length-1];
  840. !         if (ary->ary_flags & ARF_REAL) {
  841.           str_2mortal(st[sp]);
  842. +         for (i = length - 1, dst = &ary->ary_array[offset]; i > 0; i--)
  843. +             str_free(*dst++);    /* free them now */
  844. +         }
  845.       }
  846.       ary->ary_fill += diff;
  847.   
  848. ***************
  849. *** 1306,1312 ****
  850.           if (after) {            /* anything to pull down? */
  851.           src = ary->ary_array + offset + length;
  852.           dst = src + diff;        /* diff is negative */
  853. !         Copy(src, dst, after, STR*);
  854.           }
  855.           Zero(&ary->ary_array[ary->ary_fill+1], -diff, STR*);
  856.                           /* avoid later double free */
  857. --- 1348,1354 ----
  858.           if (after) {            /* anything to pull down? */
  859.           src = ary->ary_array + offset + length;
  860.           dst = src + diff;        /* diff is negative */
  861. !         Move(src, dst, after, STR*);
  862.           }
  863.           Zero(&ary->ary_array[ary->ary_fill+1], -diff, STR*);
  864.                           /* avoid later double free */
  865. ***************
  866. *** 1334,1340 ****
  867.           if (offset) {
  868.               src = ary->ary_array;
  869.               dst = src - diff;
  870. !             Copy(src, dst, offset, STR*);
  871.           }
  872.           ary->ary_array -= diff;        /* diff is positive */
  873.           ary->ary_max += diff;
  874. --- 1376,1382 ----
  875.           if (offset) {
  876.               src = ary->ary_array;
  877.               dst = src - diff;
  878. !             Move(src, dst, offset, STR*);
  879.           }
  880.           ary->ary_array -= diff;        /* diff is positive */
  881.           ary->ary_max += diff;
  882. ***************
  883. *** 1345,1358 ****
  884.               astore(ary, ary->ary_fill + diff, Nullstr);
  885.           else
  886.               ary->ary_fill += diff;
  887.           if (after) {
  888.               dst = ary->ary_array + ary->ary_fill;
  889.               src = dst - diff;
  890.               for (i = after; i; i--) {
  891. !             if (*dst)        /* str was hanging around */
  892. !                 str_free(*dst);    /*  after $#foo */
  893. !             *dst-- = *src;
  894. !             *src-- = Nullstr;
  895.               }
  896.           }
  897.           }
  898. --- 1387,1403 ----
  899.               astore(ary, ary->ary_fill + diff, Nullstr);
  900.           else
  901.               ary->ary_fill += diff;
  902. +         dst = ary->ary_array + ary->ary_fill;
  903. +         for (i = diff; i > 0; i--) {
  904. +             if (*dst)            /* str was hanging around */
  905. +             str_free(*dst);        /*  after $#foo */
  906. +             dst--;
  907. +         }
  908.           if (after) {
  909.               dst = ary->ary_array + ary->ary_fill;
  910.               src = dst - diff;
  911.               for (i = after; i; i--) {
  912. !             *dst-- = *src--;
  913.               }
  914.           }
  915.           }
  916. ***************
  917. *** 1374,1383 ****
  918.           }
  919.           sp += length - 1;
  920.       }
  921. !     else if (length) {
  922. !         st[sp] = tmparyval[length-1];
  923. !         if (ary->ary_flags & ARF_REAL)
  924.           str_2mortal(st[sp]);
  925.           Safefree(tmparyval);
  926.       }
  927.       else
  928. --- 1419,1431 ----
  929.           }
  930.           sp += length - 1;
  931.       }
  932. !     else if (length--) {
  933. !         st[sp] = tmparyval[length];
  934. !         if (ary->ary_flags & ARF_REAL) {
  935.           str_2mortal(st[sp]);
  936. +         while (length-- > 0)
  937. +             str_free(tmparyval[length]);
  938. +         }
  939.           Safefree(tmparyval);
  940.       }
  941.       else
  942. ***************
  943. *** 1450,1456 ****
  944.           *down-- = *up;
  945.       }
  946.       i = arglast[2] - arglast[1];
  947. !     Copy(down+1,up,i/2,STR*);
  948.       return arglast[2] - 1;
  949.   }
  950.   
  951. --- 1498,1504 ----
  952.           *down-- = *up;
  953.       }
  954.       i = arglast[2] - arglast[1];
  955. !     Move(down+1,up,i/2,STR*);
  956.       return arglast[2] - 1;
  957.   }
  958.   
  959. ***************
  960. *** 1543,1550 ****
  961.           if (stab) {
  962.           if (!stab_sub(stab) || !(sortcmd = stab_sub(stab)->cmd))
  963.               fatal("Undefined subroutine \"%s\" in sort", 
  964. !             stab_name(stab));
  965. !         stash = stab_stash(stab);
  966.           }
  967.           else
  968.           sortcmd = Nullcmd;
  969. --- 1591,1598 ----
  970.           if (stab) {
  971.           if (!stab_sub(stab) || !(sortcmd = stab_sub(stab)->cmd))
  972.               fatal("Undefined subroutine \"%s\" in sort", 
  973. !             stab_ename(stab));
  974. !         stash = stab_estash(stab);
  975.           }
  976.           else
  977.           sortcmd = Nullcmd;
  978. ***************
  979. *** 1587,1593 ****
  980.       return sp+max;
  981.   }
  982.   
  983. ! int
  984.   sortsub(str1,str2)
  985.   STR **str1;
  986.   STR **str2;
  987. --- 1635,1641 ----
  988.       return sp+max;
  989.   }
  990.   
  991. ! static int
  992.   sortsub(str1,str2)
  993.   STR **str1;
  994.   STR **str2;
  995. ***************
  996. *** 1598,1603 ****
  997. --- 1646,1652 ----
  998.       return (int)str_gnum(*stack->ary_array);
  999.   }
  1000.   
  1001. + static int
  1002.   sortcmp(strp1,strp2)
  1003.   STR **strp1;
  1004.   STR **strp2;
  1005. ***************
  1006. *** 1736,1742 ****
  1007.       if (!maxarg)
  1008.       return sp;
  1009.       str = Str_new(49,0);
  1010. !     stab_fullname(str, csv->stab);
  1011.       (void)astore(stack,++sp, str_2mortal(str));
  1012.       (void)astore(stack,++sp,
  1013.         str_2mortal(str_nmake((double)csv->hasargs)) );
  1014. --- 1785,1791 ----
  1015.       if (!maxarg)
  1016.       return sp;
  1017.       str = Str_new(49,0);
  1018. !     stab_efullname(str, csv->stab);
  1019.       (void)astore(stack,++sp, str_2mortal(str));
  1020.       (void)astore(stack,++sp,
  1021.         str_2mortal(str_nmake((double)csv->hasargs)) );
  1022. ***************
  1023. *** 1848,1854 ****
  1024.       int dovalues = (kv == O_VALUES || kv == O_HASH);
  1025.   
  1026.       if (gimme != G_ARRAY) {
  1027. !     str_sset(str,&str_undef);
  1028.       STABSET(str);
  1029.       st[++sp] = str;
  1030.       return sp;
  1031. --- 1897,1909 ----
  1032.       int dovalues = (kv == O_VALUES || kv == O_HASH);
  1033.   
  1034.       if (gimme != G_ARRAY) {
  1035. !     i = 0;
  1036. !     (void)hiterinit(hash);
  1037. !     /*SUPPRESS 560*/
  1038. !     while (entry = hiternext(hash)) {
  1039. !         i++;
  1040. !     }
  1041. !     str_numset(str,(double)i);
  1042.       STABSET(str);
  1043.       st[++sp] = str;
  1044.       return sp;
  1045.  
  1046. Index: makedepend.SH
  1047. *** makedepend.SH.old    Mon Jun  8 17:49:22 1992
  1048. --- makedepend.SH    Mon Jun  8 17:49:22 1992
  1049. ***************
  1050. *** 13,23 ****
  1051.   */*) cd `expr X$0 : 'X\(.*\)/'` ;;
  1052.   esac
  1053.   echo "Extracting makedepend (with variable substitutions)"
  1054.   $spitshell >makedepend <<!GROK!THIS!
  1055.   $startsh
  1056. ! # $RCSfile: makedepend.SH,v $$Revision: 4.0.1.3 $$Date: 91/11/05 17:56:33 $
  1057.   #
  1058.   # $Log:    makedepend.SH,v $
  1059.   # Revision 4.0.1.3  91/11/05  17:56:33  lwall
  1060.   # patch11: various portability fixes
  1061.   # 
  1062. --- 13,27 ----
  1063.   */*) cd `expr X$0 : 'X\(.*\)/'` ;;
  1064.   esac
  1065.   echo "Extracting makedepend (with variable substitutions)"
  1066. + rm -f makedepend
  1067.   $spitshell >makedepend <<!GROK!THIS!
  1068.   $startsh
  1069. ! # $RCSfile: makedepend.SH,v $$Revision: 4.0.1.4 $$Date: 92/06/08 13:51:24 $
  1070.   #
  1071.   # $Log:    makedepend.SH,v $
  1072. + # Revision 4.0.1.4  92/06/08  13:51:24  lwall
  1073. + # patch20: various and sundry fixes
  1074. + # 
  1075.   # Revision 4.0.1.3  91/11/05  17:56:33  lwall
  1076.   # patch11: various portability fixes
  1077.   # 
  1078. ***************
  1079. *** 53,58 ****
  1080. --- 57,65 ----
  1081.   
  1082.   $spitshell >>makedepend <<'!NO!SUBS!'
  1083.   
  1084. + PATH="$PATH:."
  1085. + export PATH
  1086. + 
  1087.   $cat /dev/null >.deptmp
  1088.   $rm -f *.c.c c/*.c.c
  1089.   if test -f Makefile; then
  1090. ***************
  1091. *** 83,103 ****
  1092.   # for file in `cat /dev/null`; do
  1093.       case "$file" in
  1094.       *.c) filebase=`basename $file .c` ;;
  1095. !     *.y) filebase=`basename $file .c` ;;
  1096.       esac
  1097.       $echo "Finding dependencies for $filebase.o."
  1098. !     $sed -n <$file >$file.c \
  1099.       -e "/^${filebase}_init(/q" \
  1100.       -e '/^#/{' \
  1101.       -e 's|/\*.*$||' \
  1102.       -e 's|\\$||' \
  1103.       -e p \
  1104. !     -e '}'
  1105. !     $cppstdin -I/usr/local/include -I. $cppflags $cppminus <$file.c | sed -e 's#\.[0-9][0-9]*\.c#'"$file.c#" | \
  1106.       $sed \
  1107.       -e 's/^[     ]*#[     ]*line/#/' \
  1108. !     -e '/^# *[0-9][0-9]* *"/!d' \
  1109.       -e 's/^.*"\(.*\)".*$/'$filebase'.o: \1/' \
  1110.       -e 's|: \./|: |' \
  1111.       -e 's|\.c\.c|.c|' | \
  1112.       $uniq | $sort | $uniq >> .deptmp
  1113. --- 90,117 ----
  1114.   # for file in `cat /dev/null`; do
  1115.       case "$file" in
  1116.       *.c) filebase=`basename $file .c` ;;
  1117. !     *.y) filebase=`basename $file .y` ;;
  1118.       esac
  1119. +     case "$file" in
  1120. +     */*) finc="-I`echo $file | sed 's#/[^/]*$##`" ;;
  1121. +     *)   finc= ;;
  1122. +     esac
  1123.       $echo "Finding dependencies for $filebase.o."
  1124. !     ( $echo "#line 1 \"$file\""; \
  1125. !       $sed -n <$file \
  1126.       -e "/^${filebase}_init(/q" \
  1127.       -e '/^#/{' \
  1128.       -e 's|/\*.*$||' \
  1129.       -e 's|\\$||' \
  1130.       -e p \
  1131. !     -e '}' ) >$file.c
  1132. !     $cppstdin $finc -I/usr/local/include -I. $cppflags $cppminus <$file.c |
  1133.       $sed \
  1134. +     -e 's#\.[0-9][0-9]*\.c#'"$file.c#" \
  1135.       -e 's/^[     ]*#[     ]*line/#/' \
  1136. !     -e '/^# *[0-9][0-9]* *[".\/]/!d' \
  1137.       -e 's/^.*"\(.*\)".*$/'$filebase'.o: \1/' \
  1138. +     -e 's/^# *[0-9][0-9]* \(.*\)$/'$filebase'.o: \1/' \
  1139.       -e 's|: \./|: |' \
  1140.       -e 's|\.c\.c|.c|' | \
  1141.       $uniq | $sort | $uniq >> .deptmp
  1142.  
  1143. Index: atarist/makefile.sm
  1144. *** atarist/makefile.sm.old    Mon Jun  8 17:35:16 1992
  1145. --- atarist/makefile.sm    Mon Jun  8 17:35:16 1992
  1146. ***************
  1147. *** 0 ****
  1148. --- 1,457 ----
  1149. + # : Makefile.SH,v 9820Revision: 4.0.1.2 9820Date: 91/06/07 10:14:43 $
  1150. + #
  1151. + # $Log:    makefile.sm,v $
  1152. + # Revision 4.0.1.1  92/06/08  11:50:00  lwall
  1153. + # Initial revision
  1154. + # 
  1155. + # Revision 4.0.1.2  91/06/07  10:14:43  lwall
  1156. + # patch4: cflags now emits entire cc command except for the filename
  1157. + # patch4: alternate make programs are now semi-supported
  1158. + # patch4: uperl.o no longer tries to link in libraries prematurely
  1159. + # patch4: installperl now installs x2p stuff too
  1160. + # 
  1161. + # Revision 4.0.1.1  91/04/11  17:30:39  lwall
  1162. + # patch1: C flags are now settable on a per-file basis
  1163. + # 
  1164. + # Revision 4.0  91/03/20  00:58:54  lwall
  1165. + # 4.0 baseline.
  1166. + # 
  1167. + # 
  1168. + 
  1169. + CC = cgcc
  1170. + YACC = bison -y
  1171. + LDFLAGS = 
  1172. + CLDFLAGS = 
  1173. + SMALL = 
  1174. + LARGE =  
  1175. + mallocsrc = malloc.c
  1176. + mallocobj = malloc.o
  1177. + SLN = ln -s
  1178. + 
  1179. + libs = -lgdbm -lpml 
  1180. + 
  1181. + public = perl.ttp
  1182. + 
  1183. + # To use an alternate make, set  in config.sh.
  1184. + MAKE = make
  1185. + 
  1186. + 
  1187. + CCCMD = $(CC) -O2 -fomit-frame-pointer -fstrength-reduce -c -DMYMALLOC
  1188. + 
  1189. + private = 
  1190. + 
  1191. + scripts = 
  1192. + 
  1193. + manpages = perl.man h2ph.man
  1194. + 
  1195. + util = echo.ttp perlglob.ttp
  1196. + 
  1197. + sh = Makefile.SH makedepend.SH h2ph.SH
  1198. + 
  1199. + h1 = EXTERN.h INTERN.h arg.h array.h cmd.h config.h form.h handy.h
  1200. + h2 = hash.h perl.h regcomp.h regexp.h spat.h stab.h str.h util.h
  1201. + 
  1202. + h = $(h1) $(h2)
  1203. + 
  1204. + c1 = array.c cmd.c cons.c consarg.c doarg.c doio.c dolist.c dump.c
  1205. + c2 = eval.c form.c hash.c $(mallocsrc) perl.c regcomp.c regexec.c
  1206. + c3 = stab.c str.c toke.c util.c atarist.c usersub.c
  1207. + 
  1208. + c = $(c1) $(c2) $(c3)
  1209. + 
  1210. + obj1 = array.o cmd.o cons.o consarg.o doarg.o doio.o dolist.o dump.o
  1211. + obj2 = eval.o form.o hash.o $(mallocobj) perl.o regcomp.o regexec.o
  1212. + obj3 = stab.o str.o toke.o util.o atarist.o
  1213. + 
  1214. + obj = $(obj1) $(obj2) $(obj3)
  1215. + 
  1216. + lintflags = -hbvxac
  1217. + 
  1218. + # grrr
  1219. + SHELL = /bin/sh
  1220. + 
  1221. + .c.o:
  1222. +     $(CCCMD) $*.c
  1223. + 
  1224. + all: $(public)  $(util)
  1225. + 
  1226. + # This is the standard version that contains no "taint" checks and is
  1227. + # used for all scripts that aren't set-id or running under something set-id.
  1228. + # The $& notation is tells Sequent machines that it can do a parallel make,
  1229. + # and is harmless otherwise.
  1230. + 
  1231. + perl.ttp: perly.o $(obj) usersub.o
  1232. +     $(CC) $(LARGE) $(CLDFLAGS) $(obj) perly.o usersub.o $(libs) -o perl.ttp -v -s
  1233. + 
  1234. + echo.ttp: wildmat.o echo.c
  1235. +     $(CC) -O -mshort -fomit-frame-pointer -o echo.ttp \
  1236. +     echo.c wildmat.o -liio16 -s
  1237. + 
  1238. + perlglob.ttp: wildmat.o perlglob.c
  1239. +     $(CC) -O -mshort -fomit-frame-pointer -o perlglob.ttp \
  1240. +     perlglob.c wildmat.o -liio16 -s
  1241. + 
  1242. + wildmat.o: wildmat.c
  1243. +     $(CC) -O -mshort -fomit-frame-pointer -c wildmat.c
  1244. + 
  1245. + perly.h: perly.c
  1246. +     @ echo Dummy dependency for dumb parallel make
  1247. +     touch perly.h
  1248. + 
  1249. + perly.c: perly.y perly.fixer
  1250. +     @ echo 'Expect either' 29 shift/reduce and 59 reduce/reduce conflicts...
  1251. +     @ echo '           or' 27 shift/reduce and 61 reduce/reduce conflicts...
  1252. +     $(YACC) -d perly.y
  1253. +     sh ./perly.fixer y.tab.c perly.c
  1254. +     mv y.tab.h perly.h
  1255. +     echo 'extern YYSTYPE yylval;' >>perly.h
  1256. + 
  1257. + perly.o: perly.c perly.h $(h)
  1258. +     $(CCCMD) perly.c
  1259. + 
  1260. + 
  1261. + clean:
  1262. +     rm -f *.o 
  1263. + 
  1264. + realclean: clean
  1265. +     rm -f *.ttp report core
  1266. +     rm -f perly.c perly.h 
  1267. + 
  1268. + # The following lint has practically everything turned on.  Unfortunately,
  1269. + # you have to wade through a lot of mumbo jumbo that can't be suppressed.
  1270. + # If the source file has a /*NOSTRICT*/ somewhere, ignore the lint message
  1271. + # for that spot.
  1272. + 
  1273. + lint: perly.c $(c)
  1274. +     lint $(lintflags) $(defs) perly.c $(c) > perl.fuzz
  1275. + 
  1276. + depend: makedepend
  1277. +     - test -f perly.h || cp /dev/null perly.h
  1278. +     ./makedepend
  1279. +     - test -s perly.h || /bin/rm -f perly.h
  1280. + 
  1281. + test: perl
  1282. +     - cd t && chmod +x TEST */*.t
  1283. +     - cd t && (rm -f perl; $(SLN) ../perl .) && ./perl TEST </dev/tty
  1284. + 
  1285. + clist:
  1286. +     echo $(c) | tr ' ' '\012' >.clist
  1287. + 
  1288. + hlist:
  1289. +     echo $(h) | tr ' ' '\012' >.hlist
  1290. + 
  1291. + shlist:
  1292. +     echo $(sh) | tr ' ' '\012' >.shlist
  1293. + 
  1294. + # AUTOMATICALLY GENERATED MAKE DEPENDENCIES--PUT NOTHING BELOW THIS LINE
  1295. + # If this runs make out of memory, delete /usr/include lines.
  1296. + array.o: EXTERN.h
  1297. + array.o: arg.h
  1298. + array.o: array.c
  1299. + array.o: array.h
  1300. + array.o: cmd.h
  1301. + array.o: config.h
  1302. + array.o: form.h
  1303. + array.o: handy.h
  1304. + array.o: hash.h
  1305. + array.o: perl.h
  1306. + array.o: regexp.h
  1307. + array.o: spat.h
  1308. + array.o: stab.h
  1309. + array.o: str.h
  1310. + array.o: util.h
  1311. + cmd.o: EXTERN.h
  1312. + cmd.o: arg.h
  1313. + cmd.o: array.h
  1314. + cmd.o: cmd.c
  1315. + cmd.o: cmd.h
  1316. + cmd.o: config.h
  1317. + cmd.o: form.h
  1318. + cmd.o: handy.h
  1319. + cmd.o: hash.h
  1320. + cmd.o: perl.h
  1321. + cmd.o: regexp.h
  1322. + cmd.o: spat.h
  1323. + cmd.o: stab.h
  1324. + cmd.o: str.h
  1325. + cmd.o: util.h
  1326. + cons.o: EXTERN.h
  1327. + cons.o: arg.h
  1328. + cons.o: array.h
  1329. + cons.o: cmd.h
  1330. + cons.o: config.h
  1331. + cons.o: cons.c
  1332. + cons.o: form.h
  1333. + cons.o: handy.h
  1334. + cons.o: hash.h
  1335. + cons.o: perl.h
  1336. + cons.o: perly.h
  1337. + cons.o: regexp.h
  1338. + cons.o: spat.h
  1339. + cons.o: stab.h
  1340. + cons.o: str.h
  1341. + cons.o: util.h
  1342. + consarg.o: EXTERN.h
  1343. + consarg.o: arg.h
  1344. + consarg.o: array.h
  1345. + consarg.o: cmd.h
  1346. + consarg.o: config.h
  1347. + consarg.o: consarg.c
  1348. + consarg.o: form.h
  1349. + consarg.o: handy.h
  1350. + consarg.o: hash.h
  1351. + consarg.o: perl.h
  1352. + consarg.o: regexp.h
  1353. + consarg.o: spat.h
  1354. + consarg.o: stab.h
  1355. + consarg.o: str.h
  1356. + consarg.o: util.h
  1357. + doarg.o: EXTERN.h
  1358. + doarg.o: arg.h
  1359. + doarg.o: array.h
  1360. + doarg.o: cmd.h
  1361. + doarg.o: config.h
  1362. + doarg.o: doarg.c
  1363. + doarg.o: form.h
  1364. + doarg.o: handy.h
  1365. + doarg.o: hash.h
  1366. + doarg.o: perl.h
  1367. + doarg.o: regexp.h
  1368. + doarg.o: spat.h
  1369. + doarg.o: stab.h
  1370. + doarg.o: str.h
  1371. + doarg.o: util.h
  1372. + doio.o: EXTERN.h
  1373. + doio.o: arg.h
  1374. + doio.o: array.h
  1375. + doio.o: cmd.h
  1376. + doio.o: config.h
  1377. + doio.o: doio.c
  1378. + doio.o: form.h
  1379. + doio.o: handy.h
  1380. + doio.o: hash.h
  1381. + doio.o: perl.h
  1382. + doio.o: regexp.h
  1383. + doio.o: spat.h
  1384. + doio.o: stab.h
  1385. + doio.o: str.h
  1386. + doio.o: util.h
  1387. + dolist.o: EXTERN.h
  1388. + dolist.o: arg.h
  1389. + dolist.o: array.h
  1390. + dolist.o: cmd.h
  1391. + dolist.o: config.h
  1392. + dolist.o: dolist.c
  1393. + dolist.o: form.h
  1394. + dolist.o: handy.h
  1395. + dolist.o: hash.h
  1396. + dolist.o: perl.h
  1397. + dolist.o: regexp.h
  1398. + dolist.o: spat.h
  1399. + dolist.o: stab.h
  1400. + dolist.o: str.h
  1401. + dolist.o: util.h
  1402. + dump.o: EXTERN.h
  1403. + dump.o: arg.h
  1404. + dump.o: array.h
  1405. + dump.o: cmd.h
  1406. + dump.o: config.h
  1407. + dump.o: dump.c
  1408. + dump.o: form.h
  1409. + dump.o: handy.h
  1410. + dump.o: hash.h
  1411. + dump.o: perl.h
  1412. + dump.o: regexp.h
  1413. + dump.o: spat.h
  1414. + dump.o: stab.h
  1415. + dump.o: str.h
  1416. + dump.o: util.h
  1417. + eval.o: EXTERN.h
  1418. + eval.o: arg.h
  1419. + eval.o: array.h
  1420. + eval.o: cmd.h
  1421. + eval.o: config.h
  1422. + eval.o: eval.c
  1423. + eval.o: form.h
  1424. + eval.o: handy.h
  1425. + eval.o: hash.h
  1426. + eval.o: perl.h
  1427. + eval.o: regexp.h
  1428. + eval.o: spat.h
  1429. + eval.o: stab.h
  1430. + eval.o: str.h
  1431. + eval.o: util.h
  1432. + form.o: EXTERN.h
  1433. + form.o: arg.h
  1434. + form.o: array.h
  1435. + form.o: cmd.h
  1436. + form.o: config.h
  1437. + form.o: form.c
  1438. + form.o: form.h
  1439. + form.o: handy.h
  1440. + form.o: hash.h
  1441. + form.o: perl.h
  1442. + form.o: regexp.h
  1443. + form.o: spat.h
  1444. + form.o: stab.h
  1445. + form.o: str.h
  1446. + form.o: util.h
  1447. + hash.o: EXTERN.h
  1448. + hash.o: arg.h
  1449. + hash.o: array.h
  1450. + hash.o: cmd.h
  1451. + hash.o: config.h
  1452. + hash.o: form.h
  1453. + hash.o: handy.h
  1454. + hash.o: hash.c
  1455. + hash.o: hash.h
  1456. + hash.o: perl.h
  1457. + hash.o: regexp.h
  1458. + hash.o: spat.h
  1459. + hash.o: stab.h
  1460. + hash.o: str.h
  1461. + hash.o: util.h
  1462. + perl.o: EXTERN.h
  1463. + perl.o: arg.h
  1464. + perl.o: array.h
  1465. + perl.o: cmd.h
  1466. + perl.o: config.h
  1467. + perl.o: form.h
  1468. + perl.o: handy.h
  1469. + perl.o: hash.h
  1470. + perl.o: patchlevel.h
  1471. + perl.o: perl.c
  1472. + perl.o: perl.h
  1473. + perl.o: perly.h
  1474. + perl.o: regexp.h
  1475. + perl.o: spat.h
  1476. + perl.o: stab.h
  1477. + perl.o: str.h
  1478. + perl.o: util.h
  1479. + regcomp.o: EXTERN.h
  1480. + regcomp.o: INTERN.h
  1481. + regcomp.o: arg.h
  1482. + regcomp.o: array.h
  1483. + regcomp.o: cmd.h
  1484. + regcomp.o: config.h
  1485. + regcomp.o: form.h
  1486. + regcomp.o: handy.h
  1487. + regcomp.o: hash.h
  1488. + regcomp.o: perl.h
  1489. + regcomp.o: regcomp.c
  1490. + regcomp.o: regcomp.h
  1491. + regcomp.o: regexp.h
  1492. + regcomp.o: spat.h
  1493. + regcomp.o: stab.h
  1494. + regcomp.o: str.h
  1495. + regcomp.o: util.h
  1496. + regexec.o: EXTERN.h
  1497. + regexec.o: arg.h
  1498. + regexec.o: array.h
  1499. + regexec.o: cmd.h
  1500. + regexec.o: config.h
  1501. + regexec.o: form.h
  1502. + regexec.o: handy.h
  1503. + regexec.o: hash.h
  1504. + regexec.o: perl.h
  1505. + regexec.o: regcomp.h
  1506. + regexec.o: regexec.c
  1507. + regexec.o: regexp.h
  1508. + regexec.o: spat.h
  1509. + regexec.o: stab.h
  1510. + regexec.o: str.h
  1511. + regexec.o: util.h
  1512. + stab.o: EXTERN.h
  1513. + stab.o: arg.h
  1514. + stab.o: array.h
  1515. + stab.o: cmd.h
  1516. + stab.o: config.h
  1517. + stab.o: form.h
  1518. + stab.o: handy.h
  1519. + stab.o: hash.h
  1520. + stab.o: perl.h
  1521. + stab.o: regexp.h
  1522. + stab.o: spat.h
  1523. + stab.o: stab.c
  1524. + stab.o: stab.h
  1525. + stab.o: str.h
  1526. + stab.o: util.h
  1527. + str.o: EXTERN.h
  1528. + str.o: arg.h
  1529. + str.o: array.h
  1530. + str.o: cmd.h
  1531. + str.o: config.h
  1532. + str.o: form.h
  1533. + str.o: handy.h
  1534. + str.o: hash.h
  1535. + str.o: perl.h
  1536. + str.o: perly.h
  1537. + str.o: regexp.h
  1538. + str.o: spat.h
  1539. + str.o: stab.h
  1540. + str.o: str.c
  1541. + str.o: str.h
  1542. + str.o: util.h
  1543. + toke.o: EXTERN.h
  1544. + toke.o: arg.h
  1545. + toke.o: array.h
  1546. + toke.o: cmd.h
  1547. + toke.o: config.h
  1548. + toke.o: form.h
  1549. + toke.o: handy.h
  1550. + toke.o: hash.h
  1551. + toke.o: perl.h
  1552. + toke.o: perly.h
  1553. + toke.o: regexp.h
  1554. + toke.o: spat.h
  1555. + toke.o: stab.h
  1556. + toke.o: str.h
  1557. + toke.o: toke.c
  1558. + toke.o: util.h
  1559. + util.o: EXTERN.h
  1560. + util.o: arg.h
  1561. + util.o: array.h
  1562. + util.o: cmd.h
  1563. + util.o: config.h
  1564. + util.o: form.h
  1565. + util.o: handy.h
  1566. + util.o: hash.h
  1567. + util.o: perl.h
  1568. + util.o: regexp.h
  1569. + util.o: spat.h
  1570. + util.o: stab.h
  1571. + util.o: str.h
  1572. + util.o: util.c
  1573. + util.o: util.h
  1574. + atarist.o: EXTERN.h
  1575. + atarist.o: arg.h
  1576. + atarist.o: array.h
  1577. + atarist.o: cmd.h
  1578. + atarist.o: config.h
  1579. + atarist.o: form.h
  1580. + atarist.o: handy.h
  1581. + atarist.o: hash.h
  1582. + atarist.o: perl.h
  1583. + atarist.o: regexp.h
  1584. + atarist.o: spat.h
  1585. + atarist.o: stab.h
  1586. + atarist.o: str.h
  1587. + atarist.o: atarist.c
  1588. + atarist.o: util.h
  1589. + 
  1590. + malloc.o: EXTERN.h
  1591. + malloc.o: arg.h
  1592. + malloc.o: array.h
  1593. + malloc.o: cmd.h
  1594. + malloc.o: config.h
  1595. + malloc.o: form.h
  1596. + malloc.o: handy.h
  1597. + malloc.o: hash.h
  1598. + malloc.o: perl.h
  1599. + malloc.o: regexp.h
  1600. + malloc.o: spat.h
  1601. + malloc.o: stab.h
  1602. + malloc.o: str.h
  1603. + malloc.o: malloc.c
  1604. + malloc.o: util.h
  1605. + 
  1606.  
  1607. Index: atarist/makefile.st
  1608. *** atarist/makefile.st.old    Mon Jun  8 17:35:18 1992
  1609. --- atarist/makefile.st    Mon Jun  8 17:35:19 1992
  1610. ***************
  1611. *** 0 ****
  1612. --- 1,462 ----
  1613. + # : Makefile.SH,v 9820Revision: 4.0.1.2 9820Date: 91/06/07 10:14:43 $
  1614. + #
  1615. + # $Log:    makefile.st,v $
  1616. + # Revision 4.0.1.1  92/06/08  11:50:13  lwall
  1617. + # Initial revision
  1618. + # 
  1619. + # Revision 4.0.1.2  91/06/07  10:14:43  lwall
  1620. + # patch4: cflags now emits entire cc command except for the filename
  1621. + # patch4: alternate make programs are now semi-supported
  1622. + # patch4: uperl.o no longer tries to link in libraries prematurely
  1623. + # patch4: installperl now installs x2p stuff too
  1624. + # 
  1625. + # Revision 4.0.1.1  91/04/11  17:30:39  lwall
  1626. + # patch1: C flags are now settable on a per-file basis
  1627. + # 
  1628. + # Revision 4.0  91/03/20  00:58:54  lwall
  1629. + # 4.0 baseline.
  1630. + # 
  1631. + # 
  1632. + 
  1633. + CC = cgcc
  1634. + YACC = bison -y
  1635. + LDFLAGS = 
  1636. + CLDFLAGS = 
  1637. + SMALL = 
  1638. + LARGE =  
  1639. + mallocsrc = 
  1640. + mallocobj = 
  1641. + SLN = ln -s
  1642. + 
  1643. + libs = -lgdbm -lpml 
  1644. + 
  1645. + public = perl.ttp
  1646. + 
  1647. + # To use an alternate make, set  in config.sh.
  1648. + MAKE = make
  1649. + 
  1650. + 
  1651. + CCCMD = $(CC) -O2 -fomit-frame-pointer -fstrength-reduce -c
  1652. + 
  1653. + private = 
  1654. + 
  1655. + scripts = 
  1656. + 
  1657. + manpages = perl.man h2ph.man
  1658. + 
  1659. + util = echo.ttp perlglob.ttp
  1660. + 
  1661. + sh = Makefile.SH makedepend.SH h2ph.SH
  1662. + 
  1663. + h1 = EXTERN.h INTERN.h arg.h array.h cmd.h config.h form.h handy.h
  1664. + h2 = hash.h perl.h regcomp.h regexp.h spat.h stab.h str.h util.h
  1665. + 
  1666. + h = $(h1) $(h2)
  1667. + 
  1668. + c1 = array.c cmd.c cons.c consarg.c doarg.c doio.c dolist.c dump.c
  1669. + c2 = eval.c form.c hash.c $(mallocsrc) perl.c regcomp.c regexec.c
  1670. + c3 = stab.c str.c toke.c util.c atarist.c usersub.c
  1671. + 
  1672. + c = $(c1) $(c2) $(c3)
  1673. + 
  1674. + obj1 = array.o cmd.o cons.o consarg.o doarg.o doio.o dolist.o dump.o
  1675. + obj2 = eval.o form.o hash.o $(mallocobj) perl.o regcomp.o regexec.o
  1676. + obj3 = stab.o str.o toke.o util.o atarist.o
  1677. + 
  1678. + obj = $(obj1) $(obj2) $(obj3)
  1679. + 
  1680. + lintflags = -hbvxac
  1681. + 
  1682. + # grrr
  1683. + SHELL = /bin/sh
  1684. + 
  1685. + .c.o:
  1686. +     $(CCCMD) $*.c
  1687. + 
  1688. + all: $(public)  $(util)
  1689. + 
  1690. + # This is the standard version that contains no "taint" checks and is
  1691. + # used for all scripts that aren't set-id or running under something set-id.
  1692. + # The $& notation is tells Sequent machines that it can do a parallel make,
  1693. + # and is harmless otherwise.
  1694. + 
  1695. + perl.ttp: perly.o $(obj) usersub.o
  1696. +     $(CC) $(LARGE) $(CLDFLAGS) $(obj) perly.o usersub.o $(libs) -o perl.ttp -v -s
  1697. + 
  1698. + echo.ttp: wildmat.o echo.c
  1699. +     $(CC) -O -mshort -fomit-frame-pointer -o echo.ttp \
  1700. +     echo.c wildmat.o -liio16 -s
  1701. + 
  1702. + perlglob.ttp: wildmat.o perlglob.c
  1703. +     $(CC) -O -mshort -fomit-frame-pointer -o perlglob.ttp \
  1704. +     perlglob.c wildmat.o -liio16 -s
  1705. + 
  1706. + # we cant do a uperl.o, so we do our best.
  1707. + #
  1708. + uperl.a: perly.o $(obj)
  1709. +     car rs uperl.a perly.o $(obj)
  1710. + 
  1711. + wildmat.o: wildmat.c
  1712. +     $(CC) -O -mshort -fomit-frame-pointer -c wildmat.c
  1713. + 
  1714. + perly.h: perly.c
  1715. +     @ echo Dummy dependency for dumb parallel make
  1716. +     touch perly.h
  1717. + 
  1718. + perly.c: perly.y perly.fixer
  1719. +     @ echo 'Expect either' 29 shift/reduce and 59 reduce/reduce conflicts...
  1720. +     @ echo '           or' 27 shift/reduce and 61 reduce/reduce conflicts...
  1721. +     $(YACC) -d perly.y
  1722. +     sh ./perly.fixer y.tab.c perly.c
  1723. +     mv y.tab.h perly.h
  1724. +     echo 'extern YYSTYPE yylval;' >>perly.h
  1725. + 
  1726. + perly.o: perly.c perly.h $(h)
  1727. +     $(CCCMD) perly.c
  1728. + 
  1729. + 
  1730. + clean:
  1731. +     rm -f *.o 
  1732. + 
  1733. + realclean: clean
  1734. +     rm -f *.ttp report core
  1735. +     rm -f perly.c perly.h 
  1736. + 
  1737. + # The following lint has practically everything turned on.  Unfortunately,
  1738. + # you have to wade through a lot of mumbo jumbo that can't be suppressed.
  1739. + # If the source file has a /*NOSTRICT*/ somewhere, ignore the lint message
  1740. + # for that spot.
  1741. + 
  1742. + lint: perly.c $(c)
  1743. +     lint $(lintflags) $(defs) perly.c $(c) > perl.fuzz
  1744. + 
  1745. + depend: makedepend
  1746. +     - test -f perly.h || cp /dev/null perly.h
  1747. +     ./makedepend
  1748. +     - test -s perly.h || /bin/rm -f perly.h
  1749. + 
  1750. + test: perl
  1751. +     - cd t && chmod +x TEST */*.t
  1752. +     - cd t && (rm -f perl; $(SLN) ../perl .) && ./perl TEST </dev/tty
  1753. + 
  1754. + clist:
  1755. +     echo $(c) | tr ' ' '\012' >.clist
  1756. + 
  1757. + hlist:
  1758. +     echo $(h) | tr ' ' '\012' >.hlist
  1759. + 
  1760. + shlist:
  1761. +     echo $(sh) | tr ' ' '\012' >.shlist
  1762. + 
  1763. + # AUTOMATICALLY GENERATED MAKE DEPENDENCIES--PUT NOTHING BELOW THIS LINE
  1764. + # If this runs make out of memory, delete /usr/include lines.
  1765. + array.o: EXTERN.h
  1766. + array.o: arg.h
  1767. + array.o: array.c
  1768. + array.o: array.h
  1769. + array.o: cmd.h
  1770. + array.o: config.h
  1771. + array.o: form.h
  1772. + array.o: handy.h
  1773. + array.o: hash.h
  1774. + array.o: perl.h
  1775. + array.o: regexp.h
  1776. + array.o: spat.h
  1777. + array.o: stab.h
  1778. + array.o: str.h
  1779. + array.o: util.h
  1780. + cmd.o: EXTERN.h
  1781. + cmd.o: arg.h
  1782. + cmd.o: array.h
  1783. + cmd.o: cmd.c
  1784. + cmd.o: cmd.h
  1785. + cmd.o: config.h
  1786. + cmd.o: form.h
  1787. + cmd.o: handy.h
  1788. + cmd.o: hash.h
  1789. + cmd.o: perl.h
  1790. + cmd.o: regexp.h
  1791. + cmd.o: spat.h
  1792. + cmd.o: stab.h
  1793. + cmd.o: str.h
  1794. + cmd.o: util.h
  1795. + cons.o: EXTERN.h
  1796. + cons.o: arg.h
  1797. + cons.o: array.h
  1798. + cons.o: cmd.h
  1799. + cons.o: config.h
  1800. + cons.o: cons.c
  1801. + cons.o: form.h
  1802. + cons.o: handy.h
  1803. + cons.o: hash.h
  1804. + cons.o: perl.h
  1805. + cons.o: perly.h
  1806. + cons.o: regexp.h
  1807. + cons.o: spat.h
  1808. + cons.o: stab.h
  1809. + cons.o: str.h
  1810. + cons.o: util.h
  1811. + consarg.o: EXTERN.h
  1812. + consarg.o: arg.h
  1813. + consarg.o: array.h
  1814. + consarg.o: cmd.h
  1815. + consarg.o: config.h
  1816. + consarg.o: consarg.c
  1817. + consarg.o: form.h
  1818. + consarg.o: handy.h
  1819. + consarg.o: hash.h
  1820. + consarg.o: perl.h
  1821. + consarg.o: regexp.h
  1822. + consarg.o: spat.h
  1823. + consarg.o: stab.h
  1824. + consarg.o: str.h
  1825. + consarg.o: util.h
  1826. + doarg.o: EXTERN.h
  1827. + doarg.o: arg.h
  1828. + doarg.o: array.h
  1829. + doarg.o: cmd.h
  1830. + doarg.o: config.h
  1831. + doarg.o: doarg.c
  1832. + doarg.o: form.h
  1833. + doarg.o: handy.h
  1834. + doarg.o: hash.h
  1835. + doarg.o: perl.h
  1836. + doarg.o: regexp.h
  1837. + doarg.o: spat.h
  1838. + doarg.o: stab.h
  1839. + doarg.o: str.h
  1840. + doarg.o: util.h
  1841. + doio.o: EXTERN.h
  1842. + doio.o: arg.h
  1843. + doio.o: array.h
  1844. + doio.o: cmd.h
  1845. + doio.o: config.h
  1846. + doio.o: doio.c
  1847. + doio.o: form.h
  1848. + doio.o: handy.h
  1849. + doio.o: hash.h
  1850. + doio.o: perl.h
  1851. + doio.o: regexp.h
  1852. + doio.o: spat.h
  1853. + doio.o: stab.h
  1854. + doio.o: str.h
  1855. + doio.o: util.h
  1856. + dolist.o: EXTERN.h
  1857. + dolist.o: arg.h
  1858. + dolist.o: array.h
  1859. + dolist.o: cmd.h
  1860. + dolist.o: config.h
  1861. + dolist.o: dolist.c
  1862. + dolist.o: form.h
  1863. + dolist.o: handy.h
  1864. + dolist.o: hash.h
  1865. + dolist.o: perl.h
  1866. + dolist.o: regexp.h
  1867. + dolist.o: spat.h
  1868. + dolist.o: stab.h
  1869. + dolist.o: str.h
  1870. + dolist.o: util.h
  1871. + dump.o: EXTERN.h
  1872. + dump.o: arg.h
  1873. + dump.o: array.h
  1874. + dump.o: cmd.h
  1875. + dump.o: config.h
  1876. + dump.o: dump.c
  1877. + dump.o: form.h
  1878. + dump.o: handy.h
  1879. + dump.o: hash.h
  1880. + dump.o: perl.h
  1881. + dump.o: regexp.h
  1882. + dump.o: spat.h
  1883. + dump.o: stab.h
  1884. + dump.o: str.h
  1885. + dump.o: util.h
  1886. + eval.o: EXTERN.h
  1887. + eval.o: arg.h
  1888. + eval.o: array.h
  1889. + eval.o: cmd.h
  1890. + eval.o: config.h
  1891. + eval.o: eval.c
  1892. + eval.o: form.h
  1893. + eval.o: handy.h
  1894. + eval.o: hash.h
  1895. + eval.o: perl.h
  1896. + eval.o: regexp.h
  1897. + eval.o: spat.h
  1898. + eval.o: stab.h
  1899. + eval.o: str.h
  1900. + eval.o: util.h
  1901. + form.o: EXTERN.h
  1902. + form.o: arg.h
  1903. + form.o: array.h
  1904. + form.o: cmd.h
  1905. + form.o: config.h
  1906. + form.o: form.c
  1907. + form.o: form.h
  1908. + form.o: handy.h
  1909. + form.o: hash.h
  1910. + form.o: perl.h
  1911. + form.o: regexp.h
  1912. + form.o: spat.h
  1913. + form.o: stab.h
  1914. + form.o: str.h
  1915. + form.o: util.h
  1916. + hash.o: EXTERN.h
  1917. + hash.o: arg.h
  1918. + hash.o: array.h
  1919. + hash.o: cmd.h
  1920. + hash.o: config.h
  1921. + hash.o: form.h
  1922. + hash.o: handy.h
  1923. + hash.o: hash.c
  1924. + hash.o: hash.h
  1925. + hash.o: perl.h
  1926. + hash.o: regexp.h
  1927. + hash.o: spat.h
  1928. + hash.o: stab.h
  1929. + hash.o: str.h
  1930. + hash.o: util.h
  1931. + perl.o: EXTERN.h
  1932. + perl.o: arg.h
  1933. + perl.o: array.h
  1934. + perl.o: cmd.h
  1935. + perl.o: config.h
  1936. + perl.o: form.h
  1937. + perl.o: handy.h
  1938. + perl.o: hash.h
  1939. + perl.o: patchlevel.h
  1940. + perl.o: perl.c
  1941. + perl.o: perl.h
  1942. + perl.o: perly.h
  1943. + perl.o: regexp.h
  1944. + perl.o: spat.h
  1945. + perl.o: stab.h
  1946. + perl.o: str.h
  1947. + perl.o: util.h
  1948. + regcomp.o: EXTERN.h
  1949. + regcomp.o: INTERN.h
  1950. + regcomp.o: arg.h
  1951. + regcomp.o: array.h
  1952. + regcomp.o: cmd.h
  1953. + regcomp.o: config.h
  1954. + regcomp.o: form.h
  1955. + regcomp.o: handy.h
  1956. + regcomp.o: hash.h
  1957. + regcomp.o: perl.h
  1958. + regcomp.o: regcomp.c
  1959. + regcomp.o: regcomp.h
  1960. + regcomp.o: regexp.h
  1961. + regcomp.o: spat.h
  1962. + regcomp.o: stab.h
  1963. + regcomp.o: str.h
  1964. + regcomp.o: util.h
  1965. + regexec.o: EXTERN.h
  1966. + regexec.o: arg.h
  1967. + regexec.o: array.h
  1968. + regexec.o: cmd.h
  1969. + regexec.o: config.h
  1970. + regexec.o: form.h
  1971. + regexec.o: handy.h
  1972. + regexec.o: hash.h
  1973. + regexec.o: perl.h
  1974. + regexec.o: regcomp.h
  1975. + regexec.o: regexec.c
  1976. + regexec.o: regexp.h
  1977. + regexec.o: spat.h
  1978. + regexec.o: stab.h
  1979. + regexec.o: str.h
  1980. + regexec.o: util.h
  1981. + stab.o: EXTERN.h
  1982. + stab.o: arg.h
  1983. + stab.o: array.h
  1984. + stab.o: cmd.h
  1985. + stab.o: config.h
  1986. + stab.o: form.h
  1987. + stab.o: handy.h
  1988. + stab.o: hash.h
  1989. + stab.o: perl.h
  1990. + stab.o: regexp.h
  1991. + stab.o: spat.h
  1992. + stab.o: stab.c
  1993. + stab.o: stab.h
  1994. + stab.o: str.h
  1995. + stab.o: util.h
  1996. + str.o: EXTERN.h
  1997. + str.o: arg.h
  1998. + str.o: array.h
  1999. + str.o: cmd.h
  2000. + str.o: config.h
  2001. + str.o: form.h
  2002. + str.o: handy.h
  2003. + str.o: hash.h
  2004. + str.o: perl.h
  2005. + str.o: perly.h
  2006. + str.o: regexp.h
  2007. + str.o: spat.h
  2008. + str.o: stab.h
  2009. + str.o: str.c
  2010. + str.o: str.h
  2011. + str.o: util.h
  2012. + toke.o: EXTERN.h
  2013. + toke.o: arg.h
  2014. + toke.o: array.h
  2015. + toke.o: cmd.h
  2016. + toke.o: config.h
  2017. + toke.o: form.h
  2018. + toke.o: handy.h
  2019. + toke.o: hash.h
  2020. + toke.o: perl.h
  2021. + toke.o: perly.h
  2022. + toke.o: regexp.h
  2023. + toke.o: spat.h
  2024. + toke.o: stab.h
  2025. + toke.o: str.h
  2026. + toke.o: toke.c
  2027. + toke.o: util.h
  2028. + util.o: EXTERN.h
  2029. + util.o: arg.h
  2030. + util.o: array.h
  2031. + util.o: cmd.h
  2032. + util.o: config.h
  2033. + util.o: form.h
  2034. + util.o: handy.h
  2035. + util.o: hash.h
  2036. + util.o: perl.h
  2037. + util.o: regexp.h
  2038. + util.o: spat.h
  2039. + util.o: stab.h
  2040. + util.o: str.h
  2041. + util.o: util.c
  2042. + util.o: util.h
  2043. + atarist.o: EXTERN.h
  2044. + atarist.o: arg.h
  2045. + atarist.o: array.h
  2046. + atarist.o: cmd.h
  2047. + atarist.o: config.h
  2048. + atarist.o: form.h
  2049. + atarist.o: handy.h
  2050. + atarist.o: hash.h
  2051. + atarist.o: perl.h
  2052. + atarist.o: regexp.h
  2053. + atarist.o: spat.h
  2054. + atarist.o: stab.h
  2055. + atarist.o: str.h
  2056. + atarist.o: atarist.c
  2057. + atarist.o: util.h
  2058. + 
  2059. + malloc.o: EXTERN.h
  2060. + malloc.o: arg.h
  2061. + malloc.o: array.h
  2062. + malloc.o: cmd.h
  2063. + malloc.o: config.h
  2064. + malloc.o: form.h
  2065. + malloc.o: handy.h
  2066. + malloc.o: hash.h
  2067. + malloc.o: perl.h
  2068. + malloc.o: regexp.h
  2069. + malloc.o: spat.h
  2070. + malloc.o: stab.h
  2071. + malloc.o: str.h
  2072. + malloc.o: malloc.c
  2073. + malloc.o: util.h
  2074. + 
  2075.  
  2076. Index: os2/mktemp.c
  2077. *** os2/mktemp.c.old    Mon Jun  8 17:49:56 1992
  2078. --- os2/mktemp.c    Mon Jun  8 17:49:57 1992
  2079. ***************
  2080. *** 1,28 ****
  2081. ! /* MKTEMP.C using TMP environment variable */
  2082. ! 
  2083. ! #include <stdio.h>
  2084. ! #include <stdlib.h>
  2085. ! #include <string.h>
  2086. ! #include <io.h>
  2087. ! 
  2088. ! void Mktemp(char *file)
  2089. ! {
  2090. !   char fname[32], *tmp;
  2091. ! 
  2092. !   tmp = getenv("TMP");
  2093. ! 
  2094. !   if ( tmp != NULL )
  2095. !   {
  2096. !     strcpy(fname, file);
  2097. !     strcpy(file, tmp);
  2098. ! 
  2099. !     if ( file[strlen(file) - 1] != '\\' )
  2100. !       strcat(file, "\\");
  2101. ! 
  2102. !     strcat(file, fname);
  2103. !   }
  2104. ! 
  2105. !   mktemp(file);
  2106. ! }
  2107. ! 
  2108. ! /* End of MKTEMP.C */
  2109. --- 1 ----
  2110. ! (deprecated)
  2111.  
  2112. Index: hints/ncr_tower.sh
  2113. *** hints/ncr_tower.sh.old    Mon Jun  8 17:48:06 1992
  2114. --- hints/ncr_tower.sh    Mon Jun  8 17:48:06 1992
  2115. ***************
  2116. *** 1,2 ****
  2117. --- 1,8 ----
  2118. + optimize='-O0'
  2119.   ccflags="$ccflags -W2,-Sl,2000"
  2120. + eval_cflags='large="-W0,-XL"'
  2121. + teval_cflags=$eval_cflags
  2122.   d_mkdir=$undef
  2123. + usemymalloc='y'
  2124. + mallocsrc='malloc.c'
  2125. + mallocobj='malloc.o'
  2126.  
  2127. Index: hints/next.sh
  2128. *** hints/next.sh.old    Mon Jun  8 17:48:08 1992
  2129. --- hints/next.sh    Mon Jun  8 17:48:09 1992
  2130. ***************
  2131. *** 2,4 ****
  2132. --- 2,5 ----
  2133.   nativegcc='define'
  2134.   groupstype="int"
  2135.   usemymalloc="n"
  2136. + libswanted='dbm sys_s'
  2137.  
  2138. Index: atarist/test/osexample.pl
  2139. *** atarist/test/osexample.pl.old    Mon Jun  8 17:45:10 1992
  2140. --- atarist/test/osexample.pl    Mon Jun  8 17:45:11 1992
  2141. ***************
  2142. *** 0 ****
  2143. --- 1,5 ----
  2144. + require 'osbind.pl';
  2145. + 
  2146. +  &Cconws("Hello World\r\n");
  2147. +  $str = "This is a string being printed by Fwrite Gemdos trap\r\n";
  2148. +  &Fwrite(1, length($str), $str);
  2149.  
  2150. *** End of Patch 27 ***
  2151. exit 0 # Just in case...
  2152.