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