home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume7 / patch2 / patch7 < prev    next >
Internet Message Format  |  1987-02-01  |  24KB
  1. From ihnp4!sdcrdcf!lwall Sat Jan 31 10:42:41 1987
  2. Received: by mirror.TMC.COM (4.12/UUCP-Project/rel-1.0/08-20-86)
  3.     id AA22616; Sat, 31 Jan 87 10:41:49 est
  4. Received: by ihnp4.ATT.COM id AA16645; 31 Jan 87 07:18:03 CST (Sat)
  5. Received: by sdc.uucp (4.12/sdcrdcf)
  6.     id AA20106; Fri, 30 Jan 87 23:02:07 pst
  7. Date: Fri, 30 Jan 87 23:02:07 pst
  8. From: ihnp4!sdcrdcf!lwall (Larry Wall)
  9. Message-Id: <8701310702.AA20106@sdc.uucp>
  10. Subject: patch 2.0 patch #7
  11. Organization: System Development Corporation, Santa Monica
  12. Apparently-To: hplabs!seismo!mirror!source-archives
  13. Status: R
  14.  
  15. System: patch version 2.0
  16. Patch #: 7
  17. Priority: LOW (MEDIUM if you're trying to install mangled patches)
  18. Subject: Some mangled patches result in misleading diagnostics.
  19. From: lwall@sdcrdcf.UUCP
  20.  
  21. Description:
  22.     Certain kinds of mangled patches (namely ones in which the line
  23.     numbers are wrong) can give misleading error messages.  At best,
  24.     the line numbers (in the patch file) are wrong.  At worst, the
  25.     error message reads, "core dumped".  At least I hope that was
  26.     the worst.
  27.  
  28. Repeat-By:
  29.     Take a new-style context diff, one which adds some lines, and edit
  30.     the replacement line numbers so that the maximim line number is one
  31.     less than it ought to be.  Run patch.  Watch it puke.
  32.  
  33.     Make an old-style diff of the same patch.  Run patch.  Note the
  34.     uninformative error message with incorrect line numbers.
  35.  
  36. Fix:    From rn, say "| patch -d DIR", where DIR is your patch source
  37.     directory.  Outside of rn, say "cd DIR; patch <thisarticle".
  38.     If you don't have the patch program, apply the following by hand,
  39.     or get patch.
  40.  
  41.     If patch indicates that patchlevel is the wrong version, you may need
  42.     to apply one or more previous patches, or the patch may already
  43.     have been applied.  See the patchlevel.h file to find out what has or
  44.     has not been applied.  In any event, don't continue with the patch.
  45.  
  46.     If you are missing previous patches they can be obtained from me:
  47.  
  48.     Larry Wall
  49.     {allegra,burdvax,cbosgd,hplabs,ihnp4,sdcsvax}!sdcrdcf!lwall
  50.  
  51.     If you send a mail message of the following form (only left-justified)
  52.     it will greatly speed processing:
  53.  
  54.     Subject: Command
  55.     @SH mailpatch PATH patch 2.0 LIST
  56.            ^ note the c
  57.  
  58.     where PATH is a return path FROM ME TO YOU in bang notation, and LIST
  59.     is the number of one or more patches you need, separated by spaces,
  60.     commas, and/or hyphens.  Saying 35- says everything from 35 to the end.
  61.  
  62. Index: patchlevel.h
  63. Prereq: 6
  64. 1c1
  65. < #define PATCHLEVEL 6
  66. ---
  67. > #define PATCHLEVEL 7
  68.  
  69. Index: patch.c
  70. Prereq: 2.0.1.2
  71. *** patch.c.old    Fri Jan 30 22:48:49 1987
  72. *** patch.c    Fri Jan 30 22:49:04 1987
  73. ***************
  74. *** 1,5
  75.   char rcsid[] =
  76. !     "$Header: patch.c,v 2.0.1.2 86/11/21 09:39:15 lwall Exp $";
  77.   
  78.   /* patch - a program to apply diffs to original files
  79.    *
  80.  
  81. --- 1,5 -----
  82.   char rcsid[] =
  83. !     "$Header: patch.c,v 2.0.1.3 87/01/30 22:45:50 lwall Exp $";
  84.   
  85.   /* patch - a program to apply diffs to original files
  86.    *
  87. ***************
  88. *** 9,14
  89.    * money off of it, or pretend that you wrote it.
  90.    *
  91.    * $Log:    patch.c,v $
  92.    * Revision 2.0.1.2  86/11/21  09:39:15  lwall
  93.    * Fuzz factor caused offset of installed lines.
  94.    * 
  95.  
  96. --- 9,18 -----
  97.    * money off of it, or pretend that you wrote it.
  98.    *
  99.    * $Log:    patch.c,v $
  100. +  * Revision 2.0.1.3  87/01/30  22:45:50  lwall
  101. +  * Improved diagnostic on sync error.
  102. +  * Moved do_ed_script() to pch.c.
  103. +  * 
  104.    * Revision 2.0.1.2  86/11/21  09:39:15  lwall
  105.    * Fuzz factor caused offset of installed lines.
  106.    * 
  107. ***************
  108. *** 88,94
  109.   LINENUM locate_hunk();
  110.   void abort_hunk();
  111.   void apply_hunk();
  112. - void do_ed_script();
  113.   void init_output();
  114.   void init_reject();
  115.   void copy_till();
  116.  
  117. --- 92,97 -----
  118.   LINENUM locate_hunk();
  119.   void abort_hunk();
  120.   void apply_hunk();
  121.   void init_output();
  122.   void init_reject();
  123.   void copy_till();
  124. ***************
  125. *** 584,592
  126.       }
  127.       else {
  128.           if (pch_char(new) != pch_char(old)) {
  129. !         say3("Out-of-sync patch, lines %ld,%ld\n",
  130. !             pch_hunk_beg() + old - 1,
  131. !             pch_hunk_beg() + new - 1);
  132.   #ifdef DEBUGGING
  133.           say3("oldchar = '%c', newchar = '%c'\n",
  134.               pch_char(old), pch_char(new));
  135.  
  136. --- 587,595 -----
  137.       }
  138.       else {
  139.           if (pch_char(new) != pch_char(old)) {
  140. !         say3("Out-of-sync patch, lines %ld,%ld--mangled text or line numbers, maybe?\n",
  141. !             pch_hunk_beg() + old,
  142. !             pch_hunk_beg() + new);
  143.   #ifdef DEBUGGING
  144.           say3("oldchar = '%c', newchar = '%c'\n",
  145.               pch_char(old), pch_char(new));
  146. ***************
  147. *** 646,713
  148.       if (R_do_defines && def_state != OUTSIDE) {
  149.       fputs(end_defined, ofp);
  150.       }
  151. - }
  152. - 
  153. - /* Apply an ed script by feeding ed itself. */
  154. - 
  155. - void
  156. - do_ed_script()
  157. - {
  158. -     Reg1 char *t;
  159. -     Reg2 long beginning_of_this_line;
  160. -     Reg3 bool this_line_is_command = FALSE;
  161. -     Reg4 FILE *pipefp;
  162. -     FILE *popen();
  163. - 
  164. -     if (!skip_rest_of_patch) {
  165. -     Unlink(TMPOUTNAME);
  166. -     copy_file(filearg[0], TMPOUTNAME);
  167. -     if (verbose)
  168. -         Sprintf(buf, "/bin/ed %s", TMPOUTNAME);
  169. -     else
  170. -         Sprintf(buf, "/bin/ed - %s", TMPOUTNAME);
  171. -     pipefp = popen(buf, "w");
  172. -     }
  173. -     for (;;) {
  174. -     beginning_of_this_line = ftell(pfp);
  175. -     if (pgets(buf, sizeof buf, pfp) == Nullch) {
  176. -         next_intuit_at(beginning_of_this_line);
  177. -         break;
  178. -     }
  179. -     for (t=buf; isdigit(*t) || *t == ','; t++) ;
  180. -     this_line_is_command = (isdigit(*buf) &&
  181. -       (*t == 'd' || *t == 'c' || *t == 'a') );
  182. -     if (this_line_is_command) {
  183. -         if (!skip_rest_of_patch)
  184. -         fputs(buf, pipefp);
  185. -         if (*t != 'd') {
  186. -         while (pgets(buf, sizeof buf, pfp) != Nullch) {
  187. -             if (!skip_rest_of_patch)
  188. -             fputs(buf, pipefp);
  189. -             if (strEQ(buf, ".\n"))
  190. -             break;
  191. -         }
  192. -         }
  193. -     }
  194. -     else {
  195. -         next_intuit_at(beginning_of_this_line);
  196. -         break;
  197. -     }
  198. -     }
  199. -     if (skip_rest_of_patch)
  200. -     return;
  201. -     fprintf(pipefp, "w\n");
  202. -     fprintf(pipefp, "q\n");
  203. -     Fflush(pipefp);
  204. -     Pclose(pipefp);
  205. -     ignore_signals();
  206. -     if (move_file(TMPOUTNAME, outname) < 0) {
  207. -     toutkeep = TRUE;
  208. -     chmod(TMPOUTNAME, filemode);
  209. -     }
  210. -     else
  211. -     chmod(outname, filemode);
  212. -     set_signals();
  213.   }
  214.   
  215.   /* Open the new file. */
  216.  
  217. --- 649,654 -----
  218.       if (R_do_defines && def_state != OUTSIDE) {
  219.       fputs(end_defined, ofp);
  220.       }
  221.   }
  222.   
  223.   /* Open the new file. */
  224.  
  225. Index: pch.c
  226. Prereq: 2.0.1.4
  227. *** pch.c.old    Fri Jan 30 22:50:06 1987
  228. *** pch.c    Fri Jan 30 22:50:30 1987
  229. ***************
  230. *** 1,4
  231. ! /* $Header: pch.c,v 2.0.1.4 87/01/05 16:59:53 lwall Exp $
  232.    *
  233.    * $Log:    pch.c,v $
  234.    * Revision 2.0.1.4  87/01/05  16:59:53  lwall
  235.  
  236. --- 1,4 -----
  237. ! /* $Header: pch.c,v 2.0.1.5 87/01/30 22:47:42 lwall Exp $
  238.    *
  239.    * $Log:    pch.c,v $
  240.    * Revision 2.0.1.5  87/01/30  22:47:42  lwall
  241. ***************
  242. *** 1,6
  243.   /* $Header: pch.c,v 2.0.1.4 87/01/05 16:59:53 lwall Exp $
  244.    *
  245.    * $Log:    pch.c,v $
  246.    * Revision 2.0.1.4  87/01/05  16:59:53  lwall
  247.    * New-style context diffs caused double call to free().
  248.    * 
  249.  
  250. --- 1,9 -----
  251.   /* $Header: pch.c,v 2.0.1.5 87/01/30 22:47:42 lwall Exp $
  252.    *
  253.    * $Log:    pch.c,v $
  254. +  * Revision 2.0.1.5  87/01/30  22:47:42  lwall
  255. +  * Improved responses to mangled patches.
  256. +  * 
  257.    * Revision 2.0.1.4  87/01/05  16:59:53  lwall
  258.    * New-style context diffs caused double call to free().
  259.    * 
  260. ***************
  261. *** 42,47
  262.   static int hunkmax = INITHUNKMAX;    /* size of above arrays to begin with */
  263.   static int p_indent;            /* indent to patch */
  264.   static LINENUM p_base;            /* where to intuit this time */
  265.   static LINENUM p_start;            /* where intuit found a patch */
  266.   static LINENUM p_efake = -1;        /* end of faked up lines--don't free */
  267.   static LINENUM p_bfake = -1;        /* beg of faked up lines */
  268.  
  269. --- 45,51 -----
  270.   static int hunkmax = INITHUNKMAX;    /* size of above arrays to begin with */
  271.   static int p_indent;            /* indent to patch */
  272.   static LINENUM p_base;            /* where to intuit this time */
  273. + static LINENUM p_bline;            /* line # of p_base */
  274.   static LINENUM p_start;            /* where intuit found a patch */
  275.   static LINENUM p_sline;            /* and the line number for it */
  276.   static LINENUM p_hunk_beg;        /* line number of current hunk */
  277. ***************
  278. *** 43,48
  279.   static int p_indent;            /* indent to patch */
  280.   static LINENUM p_base;            /* where to intuit this time */
  281.   static LINENUM p_start;            /* where intuit found a patch */
  282.   static LINENUM p_efake = -1;        /* end of faked up lines--don't free */
  283.   static LINENUM p_bfake = -1;        /* beg of faked up lines */
  284.   
  285.  
  286. --- 47,54 -----
  287.   static LINENUM p_base;            /* where to intuit this time */
  288.   static LINENUM p_bline;            /* line # of p_base */
  289.   static LINENUM p_start;            /* where intuit found a patch */
  290. + static LINENUM p_sline;            /* and the line number for it */
  291. + static LINENUM p_hunk_beg;        /* line number of current hunk */
  292.   static LINENUM p_efake = -1;        /* end of faked up lines--don't free */
  293.   static LINENUM p_bfake = -1;        /* beg of faked up lines */
  294.   
  295. ***************
  296. *** 80,86
  297.       fatal2("patch file %s not found\n", filename);
  298.       Fstat(fileno(pfp), &filestat);
  299.       p_filesize = filestat.st_size;
  300. !     next_intuit_at(0L);            /* start at the beginning */
  301.       set_hunkmax();
  302.   }
  303.   
  304.  
  305. --- 86,92 -----
  306.       fatal2("patch file %s not found\n", filename);
  307.       Fstat(fileno(pfp), &filestat);
  308.       p_filesize = filestat.st_size;
  309. !     next_intuit_at(0L,1L);            /* start at the beginning */
  310.       set_hunkmax();
  311.   }
  312.   
  313. ***************
  314. *** 155,161
  315.           "an ed script" );
  316.       if (p_indent && verbose)
  317.       say3("(Patch is indented %d space%s.)\n", p_indent, p_indent==1?"":"s");
  318. !     skip_to(p_start);
  319.       while (filearg[0] == Nullch) {
  320.       if (force) {
  321.           say1("No file to patch.  Skipping...\n");
  322.  
  323. --- 161,167 -----
  324.           "an ed script" );
  325.       if (p_indent && verbose)
  326.       say3("(Patch is indented %d space%s.)\n", p_indent, p_indent==1?"":"s");
  327. !     skip_to(p_start,p_sline);
  328.       while (filearg[0] == Nullch) {
  329.       if (force) {
  330.           say1("No file to patch.  Skipping...\n");
  331. ***************
  332. *** 192,197
  333.       Reg4 long this_line = 0;
  334.       Reg5 long previous_line;
  335.       Reg6 long first_command_line = -1;
  336.       Reg7 bool last_line_was_command = FALSE;
  337.       Reg8 bool this_is_a_command = FALSE;
  338.       Reg9 bool stars_last_line = FALSE;
  339.  
  340. --- 198,204 -----
  341.       Reg4 long this_line = 0;
  342.       Reg5 long previous_line;
  343.       Reg6 long first_command_line = -1;
  344. +     long fcl_line;
  345.       Reg7 bool last_line_was_command = FALSE;
  346.       Reg8 bool this_is_a_command = FALSE;
  347.       Reg9 bool stars_last_line = FALSE;
  348. ***************
  349. *** 210,215
  350.   
  351.       ok_to_create_file = FALSE;
  352.       Fseek(pfp, p_base, 0);
  353.       for (;;) {
  354.       previous_line = this_line;
  355.       last_line_was_command = this_is_a_command;
  356.  
  357. --- 217,223 -----
  358.   
  359.       ok_to_create_file = FALSE;
  360.       Fseek(pfp, p_base, 0);
  361. +     p_input_line = p_bline - 1;
  362.       for (;;) {
  363.       previous_line = this_line;
  364.       last_line_was_command = this_is_a_command;
  365. ***************
  366. *** 216,221
  367.       stars_last_line = stars_this_line;
  368.       this_line = ftell(pfp);
  369.       indent = 0;
  370.       if (fgets(buf, sizeof buf, pfp) == Nullch) {
  371.           if (first_command_line >= 0L) {
  372.                       /* nothing but deletes!? */
  373.  
  374. --- 224,230 -----
  375.       stars_last_line = stars_this_line;
  376.       this_line = ftell(pfp);
  377.       indent = 0;
  378. +     p_input_line++;
  379.       if (fgets(buf, sizeof buf, pfp) == Nullch) {
  380.           if (first_command_line >= 0L) {
  381.                       /* nothing but deletes!? */
  382. ***************
  383. *** 220,225
  384.           if (first_command_line >= 0L) {
  385.                       /* nothing but deletes!? */
  386.           p_start = first_command_line;
  387.           retval = ED_DIFF;
  388.           goto scan_exit;
  389.           }
  390.  
  391. --- 229,235 -----
  392.           if (first_command_line >= 0L) {
  393.                       /* nothing but deletes!? */
  394.           p_start = first_command_line;
  395. +         p_sline = fcl_line;
  396.           retval = ED_DIFF;
  397.           goto scan_exit;
  398.           }
  399. ***************
  400. *** 225,230
  401.           }
  402.           else {
  403.           p_start = this_line;
  404.           retval = 0;
  405.           goto scan_exit;
  406.           }
  407.  
  408. --- 235,241 -----
  409.           }
  410.           else {
  411.           p_start = this_line;
  412. +         p_sline = p_input_line;
  413.           retval = 0;
  414.           goto scan_exit;
  415.           }
  416. ***************
  417. *** 240,245
  418.         (*t == 'd' || *t == 'c' || *t == 'a') );
  419.       if (first_command_line < 0L && this_is_a_command) { 
  420.           first_command_line = this_line;
  421.           p_indent = indent;        /* assume this for now */
  422.       }
  423.       if (!stars_last_line && strnEQ(s, "*** ", 4))
  424.  
  425. --- 251,257 -----
  426.         (*t == 'd' || *t == 'c' || *t == 'a') );
  427.       if (first_command_line < 0L && this_is_a_command) { 
  428.           first_command_line = this_line;
  429. +         fcl_line = p_input_line;
  430.           p_indent = indent;        /* assume this for now */
  431.       }
  432.       if (!stars_last_line && strnEQ(s, "*** ", 4))
  433. ***************
  434. *** 263,268
  435.         strEQ(s, ".\n") ) {
  436.           p_indent = indent;
  437.           p_start = first_command_line;
  438.           retval = ED_DIFF;
  439.           goto scan_exit;
  440.       }
  441.  
  442. --- 275,281 -----
  443.         strEQ(s, ".\n") ) {
  444.           p_indent = indent;
  445.           p_start = first_command_line;
  446. +         p_sline = fcl_line;
  447.           retval = ED_DIFF;
  448.           goto scan_exit;
  449.       }
  450. ***************
  451. *** 277,282
  452.           s++;
  453.           p_indent = indent;
  454.           p_start = previous_line;
  455.           retval = (*(s-1) == '*' ? NEW_CONTEXT_DIFF : CONTEXT_DIFF);
  456.           goto scan_exit;
  457.       }
  458.  
  459. --- 290,296 -----
  460.           s++;
  461.           p_indent = indent;
  462.           p_start = previous_line;
  463. +         p_sline = p_input_line - 1;
  464.           retval = (*(s-1) == '*' ? NEW_CONTEXT_DIFF : CONTEXT_DIFF);
  465.           goto scan_exit;
  466.       }
  467. ***************
  468. *** 284,289
  469.         last_line_was_command &&
  470.         (strnEQ(s, "< ", 2) || strnEQ(s, "> ", 2)) ) {
  471.           p_start = previous_line;
  472.           p_indent = indent;
  473.           retval = NORMAL_DIFF;
  474.           goto scan_exit;
  475.  
  476. --- 298,304 -----
  477.         last_line_was_command &&
  478.         (strnEQ(s, "< ", 2) || strnEQ(s, "> ", 2)) ) {
  479.           p_start = previous_line;
  480. +         p_sline = p_input_line - 1;
  481.           p_indent = indent;
  482.           retval = NORMAL_DIFF;
  483.           goto scan_exit;
  484. ***************
  485. *** 352,358
  486.   /* Remember where this patch ends so we know where to start up again. */
  487.   
  488.   void
  489. ! next_intuit_at(file_pos)
  490.   long file_pos;
  491.   {
  492.       p_base = file_pos;
  493.  
  494. --- 367,373 -----
  495.   /* Remember where this patch ends so we know where to start up again. */
  496.   
  497.   void
  498. ! next_intuit_at(file_pos,file_line)
  499.   long file_pos;
  500.   long file_line;
  501.   {
  502. ***************
  503. *** 354,359
  504.   void
  505.   next_intuit_at(file_pos)
  506.   long file_pos;
  507.   {
  508.       p_base = file_pos;
  509.   }
  510.  
  511. --- 369,375 -----
  512.   void
  513.   next_intuit_at(file_pos,file_line)
  514.   long file_pos;
  515. + long file_line;
  516.   {
  517.       p_base = file_pos;
  518.       p_bline = file_line;
  519. ***************
  520. *** 356,361
  521.   long file_pos;
  522.   {
  523.       p_base = file_pos;
  524.   }
  525.   
  526.   /* Basically a verbose fseek() to the actual diff listing. */
  527.  
  528. --- 372,378 -----
  529.   long file_line;
  530.   {
  531.       p_base = file_pos;
  532. +     p_bline = file_line;
  533.   }
  534.   
  535.   /* Basically a verbose fseek() to the actual diff listing. */
  536. ***************
  537. *** 361,367
  538.   /* Basically a verbose fseek() to the actual diff listing. */
  539.   
  540.   void
  541. ! skip_to(file_pos)
  542.   long file_pos;
  543.   {
  544.       char *ret;
  545.  
  546. --- 378,384 -----
  547.   /* Basically a verbose fseek() to the actual diff listing. */
  548.   
  549.   void
  550. ! skip_to(file_pos,file_line)
  551.   long file_pos;
  552.   long file_line;
  553.   {
  554. ***************
  555. *** 363,368
  556.   void
  557.   skip_to(file_pos)
  558.   long file_pos;
  559.   {
  560.       char *ret;
  561.   
  562.  
  563. --- 380,386 -----
  564.   void
  565.   skip_to(file_pos,file_line)
  566.   long file_pos;
  567. + long file_line;
  568.   {
  569.       char *ret;
  570.   
  571. ***************
  572. *** 379,384
  573.       }
  574.       else
  575.       Fseek(pfp, file_pos, 0);
  576.   }
  577.   
  578.   /* True if there is more of the current diff listing to process. */
  579.  
  580. --- 397,403 -----
  581.       }
  582.       else
  583.       Fseek(pfp, file_pos, 0);
  584. +     p_input_line = file_line - 1;
  585.   }
  586.   
  587.   /* True if there is more of the current diff listing to process. */
  588. ***************
  589. *** 419,424
  590.                       /* # of copiable lines in ptrn */
  591.   
  592.       ret = pgets(buf, sizeof buf, pfp);
  593.       if (ret == Nullch || strnNE(buf, "********", 8)) {
  594.           next_intuit_at(line_beginning);
  595.           return FALSE;
  596.  
  597. --- 438,444 -----
  598.                       /* # of copiable lines in ptrn */
  599.   
  600.       ret = pgets(buf, sizeof buf, pfp);
  601. +     p_input_line++;
  602.       if (ret == Nullch || strnNE(buf, "********", 8)) {
  603.           next_intuit_at(line_beginning,p_input_line);
  604.           return FALSE;
  605. ***************
  606. *** 420,426
  607.   
  608.       ret = pgets(buf, sizeof buf, pfp);
  609.       if (ret == Nullch || strnNE(buf, "********", 8)) {
  610. !         next_intuit_at(line_beginning);
  611.           return FALSE;
  612.       }
  613.       p_context = 100;
  614.  
  615. --- 440,446 -----
  616.       ret = pgets(buf, sizeof buf, pfp);
  617.       p_input_line++;
  618.       if (ret == Nullch || strnNE(buf, "********", 8)) {
  619. !         next_intuit_at(line_beginning,p_input_line);
  620.           return FALSE;
  621.       }
  622.       p_context = 100;
  623. ***************
  624. *** 424,429
  625.           return FALSE;
  626.       }
  627.       p_context = 100;
  628.       while (p_end < p_max) {
  629.           line_beginning = ftell(pfp);
  630.           ret = pgets(buf, sizeof buf, pfp);
  631.  
  632. --- 444,450 -----
  633.           return FALSE;
  634.       }
  635.       p_context = 100;
  636. +     p_hunk_beg = p_input_line + 1;
  637.       while (p_end < p_max) {
  638.           line_beginning = ftell(pfp);
  639.           ret = pgets(buf, sizeof buf, pfp);
  640. ***************
  641. *** 427,432
  642.       while (p_end < p_max) {
  643.           line_beginning = ftell(pfp);
  644.           ret = pgets(buf, sizeof buf, pfp);
  645.           if (ret == Nullch) {
  646.           if (p_max - p_end < 4)
  647.               Strcpy(buf, "  \n");  /* assume blank lines got chopped */
  648.  
  649. --- 448,454 -----
  650.       while (p_end < p_max) {
  651.           line_beginning = ftell(pfp);
  652.           ret = pgets(buf, sizeof buf, pfp);
  653. +         p_input_line++;
  654.           if (ret == Nullch) {
  655.           if (p_max - p_end < 4)
  656.               Strcpy(buf, "  \n");  /* assume blank lines got chopped */
  657. ***************
  658. *** 438,444
  659.               fatal1("Unexpected end of file in patch.\n");
  660.           }
  661.           }
  662. -         p_input_line++;
  663.           p_end++;
  664.           assert(p_end < hunkmax);
  665.           p_char[p_end] = *buf;
  666.  
  667. --- 460,465 -----
  668.               fatal1("Unexpected end of file in patch.\n");
  669.           }
  670.           }
  671.           p_end++;
  672.           assert(p_end < hunkmax);
  673.           p_char[p_end] = *buf;
  674. ***************
  675. *** 491,498
  676.           break;
  677.           case '-':
  678.           if (buf[1] == '-') {
  679. !             if (p_end != p_ptrn_lines + 1 &&
  680. !             p_end != p_ptrn_lines + 2) {
  681.               if (p_end == 1) {
  682.                   /* `old' lines were omitted - set up to fill */
  683.                   /* them in from 'new' context lines. */
  684.  
  685. --- 512,520 -----
  686.           break;
  687.           case '-':
  688.           if (buf[1] == '-') {
  689. !             if (repl_beginning ||
  690. !             (p_end != p_ptrn_lines + 1 + (p_char[p_end-1] == '\n')))
  691. !             {
  692.               if (p_end == 1) {
  693.                   /* `old' lines were omitted - set up to fill */
  694.                   /* them in from 'new' context lines. */
  695. ***************
  696. *** 502,510
  697.                   fillcnt = p_ptrn_lines;
  698.               }
  699.               else {
  700. !                 if (repl_beginning && repl_could_be_missing){
  701. !                 repl_missing = TRUE;
  702. !                 goto hunk_done;
  703.                   }
  704.                   fatal3("Unexpected --- at line %ld: %s",
  705.                   p_input_line, buf);
  706.  
  707. --- 524,537 -----
  708.                   fillcnt = p_ptrn_lines;
  709.               }
  710.               else {
  711. !                 if (repl_beginning) {
  712. !                 if (repl_could_be_missing){
  713. !                     repl_missing = TRUE;
  714. !                     goto hunk_done;
  715. !                 }
  716. !                 fatal3(
  717. ! "Duplicate \"---\" at line %ld--check line numbers at line %ld.\n",
  718. !                     p_input_line, p_hunk_beg + repl_beginning);
  719.                   }
  720.                   else {
  721.                   fatal4(
  722. ***************
  723. *** 506,513
  724.                   repl_missing = TRUE;
  725.                   goto hunk_done;
  726.                   }
  727. !                 fatal3("Unexpected --- at line %ld: %s",
  728. !                 p_input_line, buf);
  729.               }
  730.               }
  731.               repl_beginning = p_end;
  732.  
  733. --- 533,546 -----
  734.   "Duplicate \"---\" at line %ld--check line numbers at line %ld.\n",
  735.                       p_input_line, p_hunk_beg + repl_beginning);
  736.                   }
  737. !                 else {
  738. !                 fatal4(
  739. ! "%s \"---\" at line %ld--check line numbers at line %ld.\n",
  740. !                     (p_end <= p_ptrn_lines
  741. !                     ? "Premature"
  742. !                     : "Overdue" ),
  743. !                     p_input_line, p_hunk_beg);
  744. !                 }
  745.               }
  746.               }
  747.               repl_beginning = p_end;
  748. ***************
  749. *** 649,655
  750.           p_bfake = filldst;        /* remember where not to free() */
  751.           p_efake = filldst + fillcnt - 1;
  752.           while (fillcnt-- > 0) {
  753. !         while (p_char[fillsrc] != ' ')
  754.               fillsrc++;
  755.           p_line[filldst] = p_line[fillsrc];
  756.           p_char[filldst] = p_char[fillsrc];
  757.  
  758. --- 682,688 -----
  759.           p_bfake = filldst;        /* remember where not to free() */
  760.           p_efake = filldst + fillcnt - 1;
  761.           while (fillcnt-- > 0) {
  762. !         while (fillsrc <= p_end && p_char[fillsrc] != ' ')
  763.               fillsrc++;
  764.           if (fillsrc > p_end)
  765.               fatal2("Replacement text or line numbers mangled in hunk at line %ld\n",
  766. ***************
  767. *** 651,656
  768.           while (fillcnt-- > 0) {
  769.           while (p_char[fillsrc] != ' ')
  770.               fillsrc++;
  771.           p_line[filldst] = p_line[fillsrc];
  772.           p_char[filldst] = p_char[fillsrc];
  773.           p_len[filldst] = p_len[fillsrc];
  774.  
  775. --- 684,692 -----
  776.           while (fillcnt-- > 0) {
  777.           while (fillsrc <= p_end && p_char[fillsrc] != ' ')
  778.               fillsrc++;
  779. +         if (fillsrc > p_end)
  780. +             fatal2("Replacement text or line numbers mangled in hunk at line %ld\n",
  781. +             p_hunk_beg);
  782.           p_line[filldst] = p_line[fillsrc];
  783.           p_char[filldst] = p_char[fillsrc];
  784.           p_len[filldst] = p_len[fillsrc];
  785. ***************
  786. *** 678,684
  787.       ret = pgets(buf, sizeof buf, pfp);
  788.       p_input_line++;
  789.       if (ret == Nullch || !isdigit(*buf)) {
  790. !         next_intuit_at(line_beginning);
  791.           return FALSE;
  792.       }
  793.       p_first = (LINENUM)atol(buf);
  794.  
  795. --- 714,720 -----
  796.       ret = pgets(buf, sizeof buf, pfp);
  797.       p_input_line++;
  798.       if (ret == Nullch || !isdigit(*buf)) {
  799. !         next_intuit_at(line_beginning,p_input_line);
  800.           return FALSE;
  801.       }
  802.       p_first = (LINENUM)atol(buf);
  803. ***************
  804. *** 994,999
  805.   LINENUM
  806.   pch_hunk_beg()
  807.   {
  808. !     return p_input_line - p_end - 1;
  809.   }
  810.   
  811.  
  812. --- 1030,1036 -----
  813.   LINENUM
  814.   pch_hunk_beg()
  815.   {
  816. !     return p_hunk_beg;
  817.   }
  818.   
  819.   /* Apply an ed script by feeding ed itself. */
  820. ***************
  821. *** 997,999
  822.       return p_input_line - p_end - 1;
  823.   }
  824.   
  825.  
  826. --- 1033,1098 -----
  827.       return p_hunk_beg;
  828.   }
  829.   
  830. + /* Apply an ed script by feeding ed itself. */
  831. + 
  832. + void
  833. + do_ed_script()
  834. + {
  835. +     Reg1 char *t;
  836. +     Reg2 long beginning_of_this_line;
  837. +     Reg3 bool this_line_is_command = FALSE;
  838. +     Reg4 FILE *pipefp;
  839. +     FILE *popen();
  840. + 
  841. +     if (!skip_rest_of_patch) {
  842. +     Unlink(TMPOUTNAME);
  843. +     copy_file(filearg[0], TMPOUTNAME);
  844. +     if (verbose)
  845. +         Sprintf(buf, "/bin/ed %s", TMPOUTNAME);
  846. +     else
  847. +         Sprintf(buf, "/bin/ed - %s", TMPOUTNAME);
  848. +     pipefp = popen(buf, "w");
  849. +     }
  850. +     for (;;) {
  851. +     beginning_of_this_line = ftell(pfp);
  852. +     if (pgets(buf, sizeof buf, pfp) == Nullch) {
  853. +         next_intuit_at(beginning_of_this_line,p_input_line);
  854. +         break;
  855. +     }
  856. +     p_input_line++;
  857. +     for (t=buf; isdigit(*t) || *t == ','; t++) ;
  858. +     this_line_is_command = (isdigit(*buf) &&
  859. +       (*t == 'd' || *t == 'c' || *t == 'a') );
  860. +     if (this_line_is_command) {
  861. +         if (!skip_rest_of_patch)
  862. +         fputs(buf, pipefp);
  863. +         if (*t != 'd') {
  864. +         while (pgets(buf, sizeof buf, pfp) != Nullch) {
  865. +             p_input_line++;
  866. +             if (!skip_rest_of_patch)
  867. +             fputs(buf, pipefp);
  868. +             if (strEQ(buf, ".\n"))
  869. +             break;
  870. +         }
  871. +         }
  872. +     }
  873. +     else {
  874. +         next_intuit_at(beginning_of_this_line,p_input_line);
  875. +         break;
  876. +     }
  877. +     }
  878. +     if (skip_rest_of_patch)
  879. +     return;
  880. +     fprintf(pipefp, "w\n");
  881. +     fprintf(pipefp, "q\n");
  882. +     Fflush(pipefp);
  883. +     Pclose(pipefp);
  884. +     ignore_signals();
  885. +     if (move_file(TMPOUTNAME, outname) < 0) {
  886. +     toutkeep = TRUE;
  887. +     chmod(TMPOUTNAME, filemode);
  888. +     }
  889. +     else
  890. +     chmod(outname, filemode);
  891. +     set_signals();
  892. + }
  893.  
  894. Index: pch.h
  895. Prereq: 2.0
  896. *** pch.h.old    Fri Jan 30 22:49:38 1987
  897. *** pch.h    Fri Jan 30 22:49:40 1987
  898. ***************
  899. *** 1,4
  900. ! /* $Header: pch.h,v 2.0 86/09/17 15:39:57 lwall Exp $
  901.    *
  902.    * $Log:    pch.h,v $
  903.    * Revision 2.0  86/09/17  15:39:57  lwall
  904.  
  905. --- 1,4 -----
  906. ! /* $Header: pch.h,v 2.0.1.1 87/01/30 22:47:16 lwall Exp $
  907.    *
  908.    * $Log:    pch.h,v $
  909.    * Revision 2.0.1.1  87/01/30  22:47:16  lwall
  910. ***************
  911. *** 1,6
  912.   /* $Header: pch.h,v 2.0 86/09/17 15:39:57 lwall Exp $
  913.    *
  914.    * $Log:    pch.h,v $
  915.    * Revision 2.0  86/09/17  15:39:57  lwall
  916.    * Baseline for netwide release.
  917.    * 
  918.  
  919. --- 1,9 -----
  920.   /* $Header: pch.h,v 2.0.1.1 87/01/30 22:47:16 lwall Exp $
  921.    *
  922.    * $Log:    pch.h,v $
  923. +  * Revision 2.0.1.1  87/01/30  22:47:16  lwall
  924. +  * Added do_ed_script().
  925. +  * 
  926.    * Revision 2.0  86/09/17  15:39:57  lwall
  927.    * Baseline for netwide release.
  928.    * 
  929. ***************
  930. *** 30,32
  931.   char pch_char();
  932.   char *pfetch();
  933.   char *pgets();
  934.  
  935. --- 33,36 -----
  936.   char pch_char();
  937.   char *pfetch();
  938.   char *pgets();
  939. + void do_ed_script();
  940.  
  941.