home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl501m.zip / patches / patch.1b < prev    next >
Text File  |  1995-04-20  |  12KB  |  434 lines
  1. # This is my patch  patch.1b for perl5.001.  See description below.
  2. #    Andy Dougherty        doughera@lafcol.lafayette.edu
  3. exit 0           # Just in case
  4.  
  5. This is my patch  patch.1b  for perl5.001.  
  6.  
  7. [Actually, that's a lie.  This is just a reposting of two of my
  8. patches (removing some byacc dependencies and fixing some set*id
  9. stuff) + one version of the x2p/walk.c emit_split() patch.
  10. I've just usurped the letter 'b' to fit in my patch sequence. 
  11. You probably have already applied these as well, but again here they
  12. are all packaged up nice and neatly for storage on ftp sites.]
  13.  
  14. To apply, change to your perl directory,
  15. and apply with 
  16.     patch -p1 < thispatch.
  17.  
  18.     Patch and enjoy,
  19.  
  20.     Andy Dougherty            doughera@lafcol.lafayette.edu
  21.     Dept. of Physics
  22.     Lafayette College, Easton PA
  23.  
  24. >From doughera@lafcol.lafayette.edu Wed Mar 15 14:35:34 1995
  25. Date: Wed, 15 Mar 1995 14:11:48 -0500 (EST)
  26. From: Andy Dougherty <doughera@lafcol.lafayette.edu>
  27. To: Perl Porters <perl5-porters@africa.nicoh.com>
  28. Subject: 5.001 byacc/perly problem?
  29.  
  30. Here's one possible solution to the byacc problem.  Short summary:
  31. make will think your perly.[ch] are out of date because perly.c.diff
  32. has changed.  They aren't really out of date, but the ordering of the
  33. timestamps in the distribution fools make.   I had put some traps in
  34. perly.fixer to check to make sure that everything got run only if
  35. you ran the same version of byacc (1.8) as Larry, but the traps aren't good
  36. enough:  There's a Cygnus version of byacc out there that also calls
  37. itself 1.8 (with a +Cygnus xxx note attached).  I don't think I'll
  38. ever be able to reliably detect all mutant byacc's, so the safest
  39. course of action seems to be to never run byacc.
  40. (Yes, the perly.fixer check could be a _lot_ smarter.  Volunteers?)
  41.  
  42. This simple-minded fix just puts in a 
  43. perly.c: perly.y
  44.     - touch perly.c
  45. perly.h: perly.y
  46.     - touch perly.h
  47. to bring perly.[ch] up to date, if needed.
  48. The '-' are in case your source is read-only.
  49.  
  50. It also does the same trick in x2p/Makefile.SH.
  51.  
  52. WARNING!  Danger!   Larry, if you do this, it means you have to
  53. explicitly call
  54.     make run_byacc
  55. whenever you change perly.y, perly.c.diff, or 
  56.     cd x2p; make run_byacc
  57. if you change x2p/a2p.y.
  58.  
  59. However, it might be worth it.  I leave it up to you.
  60.  
  61. Apply with
  62.     patch -p1 < thisfile
  63.  
  64. Patch and enjoy,
  65.  
  66.     Andy Dougherty        doughera@lafcol.lafayette.edu
  67.     Dept. of Physics
  68.     Lafayette College, Easton PA 18042
  69.  
  70.  
  71. Index: Makefile.SH
  72. *** perl5.001/Makefile.SH    Sun Mar 12 02:35:37 1995
  73. --- perl5.001a/Makefile.SH    Wed Mar 15 09:03:26 1995
  74. ***************
  75. *** 273,314 ****
  76.   
  77.   install: all
  78.       ./perl installperl
  79. - !NO!SUBS!
  80. - 
  81. - : Only print out the rules for running byacc if the user _has_ byacc.
  82. - : Otherwise, comment them out.  Users who really know what they are
  83. - : doing can uncomment them and run yacc or bison or whatever.
  84. - case "$d_byacc" in
  85. - 'define')
  86. -     comment1=''
  87. -     comment2='#' ;;
  88. - *)    comment1='#'
  89. -     comment2='' ;;
  90. - esac
  91. - 
  92. - $spitshell >>Makefile <<!GROK!THIS!
  93. - 
  94. - perly.h: perly.c
  95. -     @ echo Dummy dependency for dumb parallel make
  96. -     touch perly.h
  97.   
  98.   # I now supply perly.c with the kits, so the following section is
  99. ! # used only if you have byacc.
  100. ! 
  101. ! ${comment1}perly.c:     perly.y perly.c.diff
  102. ! ${comment1}    @ echo 'Expect' 109 shift/reduce and 1 reduce/reduce conflict
  103. ! ${comment1}    \$(BYACC) -d perly.y
  104. ! ${comment1}    sh \$(shellflags) ./perly.fixer y.tab.c perly.c
  105. ! ${comment1}    mv y.tab.h perly.h
  106. ! ${comment1}    echo 'extern YYSTYPE yylval;' >>perly.h
  107. ! 
  108. ! # This version is used if you do not have byacc.
  109. ! ${comment2}perly.c:    perly.y
  110. ! ${comment2}    touch perly.c
  111.   
  112. ! !GROK!THIS!
  113.   
  114. - $spitshell >>Makefile <<'!NO!SUBS!'
  115.   # Extensions:
  116.   # Names added to $(dynamic_ext) or $(static_ext) will automatically
  117.   # get built.  There should ordinarily be no need to change any of
  118. --- 273,302 ----
  119.   
  120.   install: all
  121.       ./perl installperl
  122.   
  123.   # I now supply perly.c with the kits, so the following section is
  124. ! # used only if you force byacc to run by saying
  125. ! #     make run_byacc
  126. ! # Since we patch up the byacc output, the perly.fixer script needs
  127. ! # to run with precisely the same version of byacc as I use.  You
  128. ! # normally shouldn't remake perly.[ch].
  129. ! 
  130. ! run_byacc:
  131. !     @ echo 'Expect' 109 shift/reduce and 1 reduce/reduce conflict
  132. !     $(BYACC) -d perly.y
  133. !     sh $(shellflags) ./perly.fixer y.tab.c perly.c
  134. !     mv y.tab.h perly.h
  135. !     echo 'extern YYSTYPE yylval;' >>perly.h
  136. ! 
  137. ! # We don't want to regenerate perly.c and perly.h, but they might
  138. ! # appear out-of-date after a patch is applied or a new distribution is
  139. ! # made.
  140. ! perly.c: perly.y
  141. !     - touch perly.c
  142.   
  143. ! perly.h: perly.y
  144. !     - touch perly.h
  145.   
  146.   # Extensions:
  147.   # Names added to $(dynamic_ext) or $(static_ext) will automatically
  148.   # get built.  There should ordinarily be no need to change any of
  149. ***************
  150. *** 374,382 ****
  151.   
  152.   # When done, touch perlmain.c so that it doesn't get remade each time.
  153.   depend: makedepend
  154. -     - test -f perly.h || cp /dev/null perly.h
  155.       ./makedepend
  156. -     - test -s perly.h || /bin/rm -f perly.h
  157.       - test -s perlmain.c && touch perlmain.c
  158.       cd x2p; $(MAKE) depend
  159.   
  160. --- 362,368 ----
  161. Index: x2p/Makefile.SH
  162. *** perl5.001/x2p/Makefile.SH    Sat Mar 11 14:34:07 1995
  163. --- perl5.001a/x2p/Makefile.SH    Wed Mar 15 09:03:40 1995
  164. ***************
  165. *** 17,27 ****
  166.   */*) cd `expr X$0 : 'X\(.*\)/'` ;;
  167.   esac
  168.   
  169. - : Configure sets byacc=byacc if byacc is not found.  We reset it to ''
  170. - case "$byacc" in
  171. - 'byacc') byacc='';;
  172. - esac
  173. - 
  174.   echo "Extracting x2p/Makefile (with variable substitutions)"
  175.   rm -f Makefile
  176.   cat >Makefile <<!GROK!THIS!
  177. --- 17,22 ----
  178. ***************
  179. *** 77,112 ****
  180.   a2p: $(obj) a2p.o
  181.       $(CC) $(LDFLAGS) $(obj) a2p.o $(libs) -o a2p
  182.   
  183. - !NO!SUBS!
  184. - 
  185. - : Only print out the rules for running byacc if the user _has_ byacc.
  186. - : Otherwise, comment them out.  Users who really know what they are
  187. - : doing can uncomment them and run yacc or bison or whatever.
  188. - : Configure sets byacc=byacc if byacc is not found.
  189. - case "$byacc" in
  190. - '')
  191. -     comment1='#' 
  192. -     comment2='' ;;
  193. - *)    comment1=''
  194. -     comment2='#' ;;
  195. - esac
  196. - 
  197. - $spitshell >>Makefile <<!GROK!THIS!
  198. - 
  199.   # I now supply a2p.c with the kits, so the following section is
  200. ! # commented out if you don't have byacc.
  201.   
  202. ! ${comment1}a2p.c:     a2p.y
  203. ! ${comment1}    @ echo Expect many shift/reduce and reduce/reduce conflicts
  204. ! ${comment1}    \$(BYACC) a2p.y
  205. ! ${comment1}    mv y.tab.c a2p.c
  206. ! 
  207. ! # This version is used if you do not have byacc.
  208. ! ${comment2}a2p.c:    a2p.y
  209. ! ${comment2}    touch a2p.c
  210. ! 
  211. ! !GROK!THIS!
  212. ! cat >>Makefile <<'!NO!SUBS!'
  213.   
  214.   a2p.o: a2p.c a2py.c a2p.h EXTERN.h util.h INTERN.h handy.h ../config.h str.h hash.h
  215.       $(CCCMD) $(LARGE) a2p.c
  216. --- 72,90 ----
  217.   a2p: $(obj) a2p.o
  218.       $(CC) $(LDFLAGS) $(obj) a2p.o $(libs) -o a2p
  219.   
  220.   # I now supply a2p.c with the kits, so the following section is
  221. ! # used only if you force byacc to run by saying
  222. ! # make  run_byacc
  223.   
  224. ! run_byacc:
  225. !     @ echo Expect many shift/reduce and reduce/reduce conflicts
  226. !     $(BYACC) a2p.y
  227. !     mv y.tab.c a2p.c
  228. ! 
  229. ! # We don't want to regenerate a2p.c, but it might appear out-of-date
  230. ! # after a patch is applied or a new distribution is made.
  231. ! a2p.c: a2p.y
  232. !     - touch a2p.c
  233.   
  234.   a2p.o: a2p.c a2py.c a2p.h EXTERN.h util.h INTERN.h handy.h ../config.h str.h hash.h
  235.       $(CCCMD) $(LARGE) a2p.c
  236.  
  237. End of patch.
  238.  
  239.  
  240. Index: pp_hot.c
  241. *** perl5.001/pp_hot.c    Mon Mar  6 23:55:34 1995
  242. --- perl5.001a/pp_hot.c    Thu Mar 16 10:23:30 1995
  243. ***************
  244. *** 571,632 ****
  245.       if (delaymagic & DM_UID) {
  246.   #ifdef HAS_SETRESUID
  247.           (void)setresuid(uid,euid,(Uid_t)-1);
  248. ! #else /* not HAS_SETRESUID */
  249. ! #ifdef HAS_SETREUID
  250.           (void)setreuid(uid,euid);
  251. ! #else /* not HAS_SETREUID */
  252. ! #ifdef HAS_SETRUID
  253.           if ((delaymagic & DM_UID) == DM_RUID) {
  254.           (void)setruid(uid);
  255.           delaymagic &= ~DM_RUID;
  256.           }
  257. ! #endif /* HAS_SETRUID */
  258. ! #endif /* HAS_SETRESUID */
  259. ! #ifdef HAS_SETEUID
  260.           if ((delaymagic & DM_UID) == DM_EUID) {
  261.           (void)seteuid(uid);
  262.           delaymagic &= ~DM_EUID;
  263.           }
  264. ! #endif /* HAS_SETEUID */
  265.           if (delaymagic & DM_UID) {
  266.           if (uid != euid)
  267.               DIE("No setreuid available");
  268.           (void)setuid(uid);
  269.           }
  270. ! #endif /* not HAS_SETREUID */
  271.           uid = (int)getuid();
  272.           euid = (int)geteuid();
  273.       }
  274.       if (delaymagic & DM_GID) {
  275.   #ifdef HAS_SETRESGID
  276.           (void)setresgid(gid,egid,(Gid_t)-1);
  277. ! #else /* not HAS_SETREGID */
  278. ! #ifdef HAS_SETREGID
  279.           (void)setregid(gid,egid);
  280. ! #else /* not HAS_SETREGID */
  281. ! #endif /* not HAS_SETRESGID */
  282. ! #ifdef HAS_SETRGID
  283.           if ((delaymagic & DM_GID) == DM_RGID) {
  284.           (void)setrgid(gid);
  285.           delaymagic &= ~DM_RGID;
  286.           }
  287. ! #endif /* HAS_SETRGID */
  288. ! #ifdef HAS_SETRESGID
  289. !         (void)setresgid(gid,egid,(Gid_t)-1);
  290. ! #else /* not HAS_SETREGID */
  291. ! #ifdef HAS_SETEGID
  292.           if ((delaymagic & DM_GID) == DM_EGID) {
  293.           (void)setegid(gid);
  294.           delaymagic &= ~DM_EGID;
  295.           }
  296. ! #endif /* HAS_SETEGID */
  297.           if (delaymagic & DM_GID) {
  298.           if (gid != egid)
  299.               DIE("No setregid available");
  300.           (void)setgid(gid);
  301.           }
  302. ! #endif /* not HAS_SETRESGID */
  303. ! #endif /* not HAS_SETREGID */
  304.           gid = (int)getgid();
  305.           egid = (int)getegid();
  306.       }
  307. --- 571,628 ----
  308.       if (delaymagic & DM_UID) {
  309.   #ifdef HAS_SETRESUID
  310.           (void)setresuid(uid,euid,(Uid_t)-1);
  311. ! #else
  312. ! #  ifdef HAS_SETREUID
  313.           (void)setreuid(uid,euid);
  314. ! #  else
  315. ! #    ifdef HAS_SETRUID
  316.           if ((delaymagic & DM_UID) == DM_RUID) {
  317.           (void)setruid(uid);
  318.           delaymagic &= ~DM_RUID;
  319.           }
  320. ! #    endif /* HAS_SETRUID */
  321. ! #    ifdef HAS_SETEUID
  322.           if ((delaymagic & DM_UID) == DM_EUID) {
  323.           (void)seteuid(uid);
  324.           delaymagic &= ~DM_EUID;
  325.           }
  326. ! #    endif /* HAS_SETEUID */
  327.           if (delaymagic & DM_UID) {
  328.           if (uid != euid)
  329.               DIE("No setreuid available");
  330.           (void)setuid(uid);
  331.           }
  332. ! #  endif /* HAS_SETREUID */
  333. ! #endif /* HAS_SETRESUID */
  334.           uid = (int)getuid();
  335.           euid = (int)geteuid();
  336.       }
  337.       if (delaymagic & DM_GID) {
  338.   #ifdef HAS_SETRESGID
  339.           (void)setresgid(gid,egid,(Gid_t)-1);
  340. ! #else
  341. ! #  ifdef HAS_SETREGID
  342.           (void)setregid(gid,egid);
  343. ! #  else
  344. ! #    ifdef HAS_SETRGID
  345.           if ((delaymagic & DM_GID) == DM_RGID) {
  346.           (void)setrgid(gid);
  347.           delaymagic &= ~DM_RGID;
  348.           }
  349. ! #    endif /* HAS_SETRGID */
  350. ! #    ifdef HAS_SETEGID
  351.           if ((delaymagic & DM_GID) == DM_EGID) {
  352.           (void)setegid(gid);
  353.           delaymagic &= ~DM_EGID;
  354.           }
  355. ! #    endif /* HAS_SETEGID */
  356.           if (delaymagic & DM_GID) {
  357.           if (gid != egid)
  358.               DIE("No setregid available");
  359.           (void)setgid(gid);
  360.           }
  361. ! #  endif /* HAS_SETREGID */
  362. ! #endif /* HAS_SETRESGID */
  363.           gid = (int)getgid();
  364.           egid = (int)getegid();
  365.       }
  366.  
  367. End of patch.
  368. Index: x2p/walk.c
  369. *** perl5.001a/x2p/walk.c    Tue Mar  7 11:52:33 1995
  370. --- perl5.001b/x2p/walk.c    Fri Mar 31 13:56:10 1995
  371. ***************
  372. *** 12,23 ****
  373.   #include "a2p.h"
  374.   #include "util.h"
  375.   
  376. - static void tab();
  377. - static void fixtab();
  378. - static void addsemi();
  379. - static void emit_split();
  380. - static void numericize();
  381. - 
  382.   bool exitval = FALSE;
  383.   bool realexit = FALSE;
  384.   bool saw_getline = FALSE;
  385. --- 12,17 ----
  386. ***************
  387. *** 32,43 ****
  388.   STR *subs;
  389.   STR *curargs = Nullstr;
  390.   
  391. ! void addsemi _(( STR *str ));
  392. ! void emit_split _(( STR *str, int level ));
  393. ! void fixtab _(( STR *str, int lvl ));
  394. ! void numericize _(( int node ));
  395.   int prewalk _(( int numit, int level, int node, int *numericptr ));
  396. - void tab _(( STR *str, int lvl ));
  397.   STR * walk _(( int useval, int level, int node, int *numericptr, int minprec ));
  398.   
  399.   
  400. --- 26,38 ----
  401.   STR *subs;
  402.   STR *curargs = Nullstr;
  403.   
  404. ! static void addsemi _(( STR *str ));
  405. ! static void emit_split _(( STR *str, int level ));
  406. ! static void fixtab _(( STR *str, int lvl ));
  407. ! static void numericize _(( int node ));
  408. ! static void tab _(( STR *str, int lvl ));
  409. ! 
  410.   int prewalk _(( int numit, int level, int node, int *numericptr ));
  411.   STR * walk _(( int useval, int level, int node, int *numericptr, int minprec ));
  412.   
  413.   
  414. ***************
  415. *** 1606,1612 ****
  416.       str_cat(str,";");
  417.   }
  418.   
  419. ! void
  420.   emit_split(str,level)
  421.   register STR *str;
  422.   int level;
  423. --- 1601,1607 ----
  424.       str_cat(str,";");
  425.   }
  426.   
  427. ! static void
  428.   emit_split(str,level)
  429.   register STR *str;
  430.   int level;
  431.  
  432.  
  433. End of patch.
  434.