21  * patch - a program to apply diffs to original files
46 /* Patch (diff listing) abstract type. */
48 static off_t	p_filesize;	/* size of the patch file */
56 static LINENUM	p_input_line = 0;	/* current line # from patch file */
61 static int	p_indent;	/* indent to patch */
64 static off_t	p_start;	/* where intuit found a patch */
69 static FILE	*pfp = NULL;	/* patch file pointer */
85  * Prepare to look for the next patch in the patch file.
100  * Open the patch file at the beginning of time.
123 		pfatal("patch file %s not found", filename);  in open_patch_file()
146  * Enlarge the arrays containing the current hunk of patch.
171 /* True if the remainder of the patch file contains a diff of some sort. */
194 			say("  I can't seem to find a patch in there anywhere.\n");  in there_is_another_patch()
199 		    (p_base == 0 ? "L" : "The next patch l"),  in there_is_another_patch()
206 		say("(Patch is indented %d space%s.)\n", p_indent,  in there_is_another_patch()
211 			say("No file to patch.  Skipping...\n");  in there_is_another_patch()
216 		ask("File to patch: ");  in there_is_another_patch()
229 			ask("No file found--skip this patch? [%c] ",  in there_is_another_patch()
234 				say("Skipping patch...\n");  in there_is_another_patch()
263 /* Determine what kind of diff is in the remaining part of the patch file. */
466  * Remember where this patch ends so we know where to start up again.
505 	fatal("malformed patch at line %ld: %s", p_input_line, buf);  in malformed()
593 				fatal("unexpected end of file in patch\n");  in another_hunk()
819 			fatal("no --- found in patch at line %ld\n", pch_hunk_beg());  in another_hunk()
973 					fatal("unexpected end of file in patch\n");  in another_hunk()
1118 				fatal("unexpected end of file in patch at line %ld\n",  in another_hunk()
1121 				fatal("< expected at line %ld of patch\n",  in another_hunk()
1140 				fatal("unexpected end of file in patch at line %ld\n",  in another_hunk()
1143 				fatal("--- expected at line %ld of patch\n",  in another_hunk()
1157 				fatal("unexpected end of file in patch at line %ld\n",  in another_hunk()
1160 				fatal("> expected at line %ld of patch\n",  in another_hunk()
1181 	if (reverse)		/* backwards patch? */  in another_hunk()
1206  * Input a line from the patch file.
1317 		fatal("Malformed patch at line %ld: expected '=' found '%c'\n",  in pch_swap()
1327 		fatal("Malformed patch at line %ld: expected '*' found '%c'\n",  in pch_swap()
1342 		fatal("Malformed patch at line %ld: expected %ld lines, "  in pch_swap()
1412  * Return the length of a particular patch line.
1421  * Return the control character (+, -, *, !, etc) for a patch line.
1430  * Return a pointer to a particular patch line.
1439  * Return where in the patch file this hunk began, for error messages.