1 /* GNU DIFF entry routine.
2 Copyright (C) 1988, 1989, 1992, 1993, 1994, 1997, 1998 Free Software Foundation, Inc.
4 This file is part of GNU DIFF.
6 GNU DIFF is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2, or (at your option)
11 GNU DIFF is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
18 /* GNU DIFF was written by Mike Haertel, David Hayes,
19 Richard Stallman, Len Tower, and Paul Eggert. */
28 #define DEFAULT_WIDTH 130
31 #ifndef GUTTER_WIDTH_MINIMUM
32 #define GUTTER_WIDTH_MINIMUM 3
35 /* diff.c has a real initialize_main function. */
36 #ifdef initialize_main
37 #undef initialize_main
40 static char const *filetype PARAMS((struct stat const *));
41 static char *option_list PARAMS((char **, int));
42 static int add_exclude_file PARAMS((char const *));
43 static int ck_atoi PARAMS((char const *, int *));
44 static int compare_files PARAMS((char const *, char const *, char const *, char const *, int));
45 static int specify_format PARAMS((char **, char *));
46 static void add_exclude PARAMS((char const *));
47 static void add_regexp PARAMS((struct regexp_list **, char const *));
48 static void specify_style PARAMS((enum output_style));
49 static int try_help PARAMS((char const *));
50 static void check_output PARAMS((FILE *));
51 static void usage PARAMS((void));
52 static void initialize_main PARAMS((int *, char ***));
54 /* Nonzero for -r: if comparing two directories,
55 compare their common subdirectories recursively. */
59 /* For debugging: don't do discard_confusing_lines. */
64 /* I/O mode: nonzero only if using binary input/output. */
65 static int binary_I_O;
68 /* Return a string containing the command options with which diff was invoked.
69 Spaces appear between what were separate ARGV-elements.
70 There is a space at the beginning but none at the end.
71 If there were no options, the result is an empty string.
73 Arguments: OPTIONVEC, a vector containing separate ARGV-elements, and COUNT,
74 the length of that vector. */
77 option_list (optionvec, count)
78 char **optionvec; /* Was `vector', but that collides on Alliant. */
85 for (i = 0; i < count; i++)
86 length += strlen (optionvec[i]) + 1;
88 result = xmalloc (length + 1);
91 for (i = 0; i < count; i++)
94 strcat (result, optionvec[i]);
100 /* Convert STR to a positive integer, storing the result in *OUT.
101 If STR is not a valid integer, return -1 (otherwise 0). */
108 for (p = str; *p; p++)
109 if (*p < '0' || *p > '9')
112 *out = atoi (optarg);
116 /* Keep track of excluded file name patterns. */
118 static char const **exclude;
119 static int exclude_alloc, exclude_count;
122 excluded_filename (f)
126 for (i = 0; i < exclude_count; i++)
127 if (fnmatch (exclude[i], f, 0) == 0)
133 add_exclude (pattern)
136 if (exclude_alloc <= exclude_count)
137 exclude = (char const **)
139 ? xmalloc ((exclude_alloc = 64) * sizeof (*exclude))
140 : xrealloc (exclude, (exclude_alloc *= 2) * sizeof (*exclude)));
142 exclude[exclude_count++] = pattern;
146 add_exclude_file (name)
153 f.desc = (strcmp (optarg, "-") == 0
155 : open (optarg, O_RDONLY, 0));
156 if (f.desc < 0 || fstat (f.desc, &f.stat) != 0)
162 for (p = f.buffer, lim = p + f.buffered_chars; p < lim; p = q)
164 q = (char *) memchr (p, '\n', lim - p);
171 return close (f.desc);
174 /* The numbers 129- that appear in the fourth element of some entries
175 tell the big switch in `diff_run' how to process those options. */
177 static struct option const longopts[] =
179 {"ignore-blank-lines", 0, 0, 'B'},
180 {"context", 2, 0, 'C'},
181 {"ifdef", 1, 0, 'D'},
182 {"show-function-line", 1, 0, 'F'},
183 {"speed-large-files", 0, 0, 'H'},
184 {"ignore-matching-lines", 1, 0, 'I'},
185 {"label", 1, 0, 'L'},
186 {"file-label", 1, 0, 'L'}, /* An alias, no longer recommended */
187 {"new-file", 0, 0, 'N'},
188 {"entire-new-file", 0, 0, 'N'}, /* An alias, no longer recommended */
189 {"unidirectional-new-file", 0, 0, 'P'},
190 {"starting-file", 1, 0, 'S'},
191 {"initial-tab", 0, 0, 'T'},
192 {"width", 1, 0, 'W'},
194 {"ascii", 0, 0, 'a'}, /* An alias, no longer recommended */
195 {"ignore-space-change", 0, 0, 'b'},
196 {"minimal", 0, 0, 'd'},
198 {"forward-ed", 0, 0, 'f'},
199 {"ignore-case", 0, 0, 'i'},
200 {"paginate", 0, 0, 'l'},
201 {"print", 0, 0, 'l'}, /* An alias, no longer recommended */
203 {"show-c-function", 0, 0, 'p'},
204 {"brief", 0, 0, 'q'},
205 {"recursive", 0, 0, 'r'},
206 {"report-identical-files", 0, 0, 's'},
207 {"expand-tabs", 0, 0, 't'},
208 {"version", 0, 0, 'v'},
209 {"ignore-all-space", 0, 0, 'w'},
210 {"exclude", 1, 0, 'x'},
211 {"exclude-from", 1, 0, 'X'},
212 {"side-by-side", 0, 0, 'y'},
213 {"unified", 2, 0, 'U'},
214 {"left-column", 0, 0, 129},
215 {"suppress-common-lines", 0, 0, 130},
216 {"sdiff-merge-assist", 0, 0, 131},
217 {"old-line-format", 1, 0, 132},
218 {"new-line-format", 1, 0, 133},
219 {"unchanged-line-format", 1, 0, 134},
220 {"line-format", 1, 0, 135},
221 {"old-group-format", 1, 0, 136},
222 {"new-group-format", 1, 0, 137},
223 {"unchanged-group-format", 1, 0, 138},
224 {"changed-group-format", 1, 0, 139},
225 {"horizon-lines", 1, 0, 140},
227 {"binary", 0, 0, 142},
232 diff_run (argc, argv, out, callbacks_arg)
236 const struct diff_callbacks *callbacks_arg;
241 int width = DEFAULT_WIDTH;
242 int show_c_function = 0;
246 callbacks = callbacks_arg;
248 /* Do our initializations. */
249 initialize_main (&argc, &argv);
253 /* Set the jump buffer, so that diff may abort execution without
254 terminating the process. */
255 val = setjmp (diff_abort_buf);
264 /* Decode the options. */
265 while ((c = getopt_long (argc, argv,
266 "0123456789abBcC:dD:efF:hHiI:lL:nNpPqrsS:tTuU:vwW:x:X:y",
267 longopts, 0)) != EOF)
271 /* All digits combine in decimal to specify the context-size. */
284 /* If a context length has already been specified,
285 more digits allowed only if they follow right after the others.
286 Reject two separate runs of digits, or digits after -C. */
287 else if (prev < '0' || prev > '9')
288 fatal ("context length specified twice");
290 context = context * 10 + c - '0';
294 /* Treat all files as text files; never treat as binary. */
295 always_text_flag = 1;
299 /* Ignore changes in amount of white space. */
300 ignore_space_change_flag = 1;
301 ignore_some_changes = 1;
302 ignore_some_line_changes = 1;
306 /* Ignore changes affecting only blank lines. */
307 ignore_blank_lines_flag = 1;
308 ignore_some_changes = 1;
311 case 'C': /* +context[=lines] */
312 case 'U': /* +unified[=lines] */
316 fatal ("context length specified twice");
318 if (ck_atoi (optarg, &context))
319 fatal ("invalid context length argument");
324 /* Make context-style output. */
325 specify_style (c == 'U' ? OUTPUT_UNIFIED : OUTPUT_CONTEXT);
329 /* Don't discard lines. This makes things slower (sometimes much
330 slower) but will find a guaranteed minimal set of changes. */
335 /* Make merged #ifdef output. */
336 specify_style (OUTPUT_IFDEF);
339 static char const C_ifdef_group_formats[] =
340 "#ifndef %s\n%%<#endif /* not %s */\n%c#ifdef %s\n%%>#endif /* %s */\n%c%%=%c#ifndef %s\n%%<#else /* %s */\n%%>#endif /* %s */\n";
341 char *b = xmalloc (sizeof (C_ifdef_group_formats)
342 + 7 * strlen(optarg) - 14 /* 7*"%s" */
343 - 8 /* 5*"%%" + 3*"%c" */);
344 sprintf (b, C_ifdef_group_formats,
346 optarg, optarg, 0, 0,
347 optarg, optarg, optarg);
348 for (i = 0; i < 4; i++)
350 err |= specify_format (&group_format[i], b);
354 diff_error ("conflicting #ifdef formats", 0, 0);
359 /* Make output that is a valid `ed' script. */
360 specify_style (OUTPUT_ED);
364 /* Make output that looks vaguely like an `ed' script
365 but has changes in the order they appear in the file. */
366 specify_style (OUTPUT_FORWARD_ED);
370 /* Show, for each set of changes, the previous line that
371 matches the specified regexp. Currently affects only
372 context-style output. */
373 add_regexp (&function_regexp_list, optarg);
377 /* Split the files into chunks of around 1500 lines
378 for faster processing. Usually does not change the result.
380 This currently has no effect. */
384 /* Turn on heuristics that speed processing of large files
385 with a small density of changes. */
390 /* Ignore changes in case. */
391 ignore_case_flag = 1;
392 ignore_some_changes = 1;
393 ignore_some_line_changes = 1;
397 /* Ignore changes affecting only lines that match the
399 add_regexp (&ignore_regexp_list, optarg);
400 ignore_some_changes = 1;
404 /* Pass the output through `pr' to paginate it. */
406 #if !defined(SIGCHLD) && defined(SIGCLD)
407 #define SIGCHLD SIGCLD
410 /* Pagination requires forking and waiting, and
411 System V fork+wait does not work if SIGCHLD is ignored. */
412 signal (SIGCHLD, SIG_DFL);
417 /* Specify file labels for `-c' output headers. */
419 file_label[0] = optarg;
420 else if (!file_label[1])
421 file_label[1] = optarg;
423 fatal ("too many file label options");
427 /* Output RCS-style diffs, like `-f' except that each command
428 specifies the number of lines affected. */
429 specify_style (OUTPUT_RCS);
433 /* When comparing directories, if a file appears only in one
434 directory, treat it as present but empty in the other. */
435 entire_new_file_flag = 1;
439 /* Make context-style output and show name of last C function. */
441 add_regexp (&function_regexp_list, "^[_a-zA-Z$]");
445 /* When comparing directories, if a file appears only in
446 the second directory of the two,
447 treat it as present but empty in the other. */
448 unidirectional_new_file_flag = 1;
456 /* When comparing directories,
457 recursively compare any subdirectories found. */
462 /* Print a message if the files are the same. */
463 print_file_same_flag = 1;
467 /* When comparing directories, start with the specified
468 file name. This is used for resuming an aborted comparison. */
469 dir_start_file = optarg;
473 /* Expand tabs to spaces in the output so that it preserves
474 the alignment of the input files. */
479 /* Use a tab in the output, rather than a space, before the
480 text of an input line, so as to keep the proper alignment
481 in the input line without changing the characters in it. */
486 /* Output the context diff in unidiff format. */
487 specify_style (OUTPUT_UNIFIED);
491 if (callbacks && callbacks->write_stdout)
493 (*callbacks->write_stdout) ("diff - GNU diffutils version ");
494 (*callbacks->write_stdout) (diff_version_string);
495 (*callbacks->write_stdout) ("\n");
498 printf ("diff - GNU diffutils version %s\n", diff_version_string);
502 /* Ignore horizontal white space when comparing lines. */
503 ignore_all_space_flag = 1;
504 ignore_some_changes = 1;
505 ignore_some_line_changes = 1;
509 add_exclude (optarg);
513 if (add_exclude_file (optarg) != 0)
514 pfatal_with_name (optarg);
518 /* Use side-by-side (sdiff-style) columnar output. */
519 specify_style (OUTPUT_SDIFF);
523 /* Set the line width for OUTPUT_SDIFF. */
524 if (ck_atoi (optarg, &width) || width <= 0)
525 fatal ("column width must be a positive integer");
533 sdiff_skip_common_lines = 1;
537 /* sdiff-style columns output. */
538 specify_style (OUTPUT_SDIFF);
539 sdiff_help_sdiff = 1;
545 specify_style (OUTPUT_IFDEF);
546 if (specify_format (&line_format[c - 132], optarg) != 0)
547 diff_error ("conflicting line format", 0, 0);
551 specify_style (OUTPUT_IFDEF);
554 for (i = 0; i < sizeof (line_format) / sizeof (*line_format); i++)
555 err |= specify_format (&line_format[i], optarg);
557 diff_error ("conflicting line format", 0, 0);
565 specify_style (OUTPUT_IFDEF);
566 if (specify_format (&group_format[c - 136], optarg) != 0)
567 diff_error ("conflicting group format", 0, 0);
571 if (ck_atoi (optarg, &horizon_lines) || horizon_lines < 0)
572 fatal ("horizon must be a nonnegative integer");
577 if (! callbacks || ! callbacks->write_stdout)
578 check_output (stdout);
582 /* Use binary I/O when reading and writing data.
583 On Posix hosts, this has no effect. */
587 /* Because this code is leftover from pre-library days,
588 there is no way to set stdout back to the default mode
589 when we are done. As it turns out, I think the only
590 parts of CVS that pass out == NULL, and thus cause diff
591 to write to stdout, are "cvs diff" and "cvs rdiff". So
592 I'm not going to worry about this too much yet. */
593 setmode (STDOUT_FILENO, O_BINARY);
596 error (0, 0, "warning: did not set stdout to binary mode");
607 if (argc - optind != 2)
608 return try_help (argc - optind < 2 ? "missing operand" : "extra operand");
612 * We maximize first the half line width, and then the gutter width,
613 * according to the following constraints:
614 * 1. Two half lines plus a gutter must fit in a line.
615 * 2. If the half line width is nonzero:
616 * a. The gutter width is at least GUTTER_WIDTH_MINIMUM.
617 * b. If tabs are not expanded to spaces,
618 * a half line plus a gutter is an integral number of tabs,
619 * so that tabs in the right column line up.
621 int t = tab_expand_flag ? 1 : TAB_WIDTH;
622 int off = (width + t + GUTTER_WIDTH_MINIMUM) / (2*t) * t;
623 sdiff_half_width = max (0, min (off - GUTTER_WIDTH_MINIMUM, width - off)),
624 sdiff_column2_offset = sdiff_half_width ? off : width;
627 if (show_c_function && output_style != OUTPUT_UNIFIED)
628 specify_style (OUTPUT_CONTEXT);
630 if (output_style != OUTPUT_CONTEXT && output_style != OUTPUT_UNIFIED)
632 else if (context == -1)
633 /* Default amount of context for -c. */
636 if (output_style == OUTPUT_IFDEF)
638 /* Format arrays are char *, not char const *,
639 because integer formats are temporarily modified.
640 But it is safe to assign a constant like "%=" to a format array,
641 since "%=" does not format any integers. */
643 for (i = 0; i < sizeof (line_format) / sizeof (*line_format); i++)
645 line_format[i] = "%l\n";
646 if (!group_format[OLD])
648 = group_format[UNCHANGED] ? group_format[UNCHANGED] : "%<";
649 if (!group_format[NEW])
651 = group_format[UNCHANGED] ? group_format[UNCHANGED] : "%>";
652 if (!group_format[UNCHANGED])
653 group_format[UNCHANGED] = "%=";
654 if (!group_format[CHANGED])
655 group_format[CHANGED] = concat (group_format[OLD],
656 group_format[NEW], "");
659 no_diff_means_no_output =
660 (output_style == OUTPUT_IFDEF ?
661 (!*group_format[UNCHANGED]
662 || (strcmp (group_format[UNCHANGED], "%=") == 0
663 && !*line_format[UNCHANGED]))
664 : output_style == OUTPUT_SDIFF ? sdiff_skip_common_lines : 1);
666 switch_string = option_list (argv + 1, optind - 1);
668 if (callbacks && callbacks->write_output)
672 diff_error ("write callback with output file", 0, 0);
683 /* A diff which is full of ^Z and such isn't going to work
684 very well in text mode. */
686 outfile = fopen (out, "wb");
689 outfile = fopen (out, "w");
692 perror_with_name ("could not open output file");
699 val = compare_files (0, argv[optind], 0, argv[optind + 1], 0);
701 /* Print any messages that were saved up for last. */
702 print_message_queue ();
704 free (switch_string);
708 if (! callbacks || ! callbacks->write_output)
709 check_output (outfile);
712 if (fclose (outfile) != 0)
713 perror_with_name ("close error on output file");
718 /* Add the compiled form of regexp PATTERN to REGLIST. */
721 add_regexp (reglist, pattern)
722 struct regexp_list **reglist;
725 struct regexp_list *r;
728 r = (struct regexp_list *) xmalloc (sizeof (*r));
729 bzero (r, sizeof (*r));
730 r->buf.fastmap = xmalloc (256);
731 m = re_compile_pattern (pattern, strlen (pattern), &r->buf);
733 diff_error ("%s: %s", pattern, m);
735 /* Add to the start of the list, since it's easier than the end. */
745 diff_error ("%s", reason, 0);
746 diff_error ("Try `%s --help' for more information.", diff_program_name, 0);
754 if (ferror (file) || fflush (file) != 0)
755 fatal ("write error");
758 static char const * const option_help[] = {
759 "-i --ignore-case Consider upper- and lower-case to be the same.",
760 "-w --ignore-all-space Ignore all white space.",
761 "-b --ignore-space-change Ignore changes in the amount of white space.",
762 "-B --ignore-blank-lines Ignore changes whose lines are all blank.",
763 "-I RE --ignore-matching-lines=RE Ignore changes whose lines all match RE.",
765 "--binary Read and write data in binary mode.",
767 "-a --text Treat all files as text.\n",
768 "-c -C NUM --context[=NUM] Output NUM (default 2) lines of copied context.",
769 "-u -U NUM --unified[=NUM] Output NUM (default 2) lines of unified context.",
770 " -NUM Use NUM context lines.",
771 " -L LABEL --label LABEL Use LABEL instead of file name.",
772 " -p --show-c-function Show which C function each change is in.",
773 " -F RE --show-function-line=RE Show the most recent line matching RE.",
774 "-q --brief Output only whether files differ.",
775 "-e --ed Output an ed script.",
776 "-n --rcs Output an RCS format diff.",
777 "-y --side-by-side Output in two columns.",
778 " -W NUM --width=NUM Output at most NUM (default 130) characters per line.",
779 " --left-column Output only the left column of common lines.",
780 " --suppress-common-lines Do not output common lines.",
781 "-DNAME --ifdef=NAME Output merged file to show `#ifdef NAME' diffs.",
782 "--GTYPE-group-format=GFMT Similar, but format GTYPE input groups with GFMT.",
783 "--line-format=LFMT Similar, but format all input lines with LFMT.",
784 "--LTYPE-line-format=LFMT Similar, but format LTYPE input lines with LFMT.",
785 " LTYPE is `old', `new', or `unchanged'. GTYPE is LTYPE or `changed'.",
786 " GFMT may contain:",
787 " %< lines from FILE1",
788 " %> lines from FILE2",
789 " %= lines common to FILE1 and FILE2",
790 " %[-][WIDTH][.[PREC]]{doxX}LETTER printf-style spec for LETTER",
791 " LETTERs are as follows for new group, lower case for old group:",
792 " F first line number",
793 " L last line number",
794 " N number of lines = L-F+1",
797 " LFMT may contain:",
798 " %L contents of line",
799 " %l contents of line, excluding any trailing newline",
800 " %[-][WIDTH][.[PREC]]{doxX}n printf-style spec for input line number",
801 " Either GFMT or LFMT may contain:",
803 " %c'C' the single character C",
804 " %c'\\OOO' the character with octal code OOO\n",
805 "-l --paginate Pass the output through `pr' to paginate it.",
806 "-t --expand-tabs Expand tabs to spaces in output.",
807 "-T --initial-tab Make tabs line up by prepending a tab.\n",
808 "-r --recursive Recursively compare any subdirectories found.",
809 "-N --new-file Treat absent files as empty.",
810 "-P --unidirectional-new-file Treat absent first files as empty.",
811 "-s --report-identical-files Report when two files are the same.",
812 "-x PAT --exclude=PAT Exclude files that match PAT.",
813 "-X FILE --exclude-from=FILE Exclude files that match any pattern in FILE.",
814 "-S FILE --starting-file=FILE Start with FILE when comparing directories.\n",
815 "--horizon-lines=NUM Keep NUM lines of the common prefix and suffix.",
816 "-d --minimal Try hard to find a smaller set of changes.",
817 "-H --speed-large-files Assume large files and many scattered small changes.\n",
818 "-v --version Output version info.",
819 "--help Output this help.",
826 char const * const *p;
828 if (callbacks && callbacks->write_stdout)
830 (*callbacks->write_stdout) ("Usage: ");
831 (*callbacks->write_stdout) (diff_program_name);
832 (*callbacks->write_stdout) (" [OPTION]... FILE1 FILE2\n\n");
833 for (p = option_help; *p; p++)
835 (*callbacks->write_stdout) (" ");
836 (*callbacks->write_stdout) (*p);
837 (*callbacks->write_stdout) ("\n");
839 (*callbacks->write_stdout)
840 ("\nIf FILE1 or FILE2 is `-', read standard input.\n");
844 printf ("Usage: %s [OPTION]... FILE1 FILE2\n\n", diff_program_name);
845 for (p = option_help; *p; p++)
846 printf (" %s\n", *p);
847 printf ("\nIf FILE1 or FILE2 is `-', read standard input.\n");
852 specify_format (var, value)
856 int err = *var ? strcmp (*var, value) : 0;
862 specify_style (style)
863 enum output_style style;
865 if (output_style != OUTPUT_NORMAL
866 && output_style != style)
867 diff_error ("conflicting specifications of output style", 0, 0);
868 output_style = style;
873 struct stat const *st;
875 /* See Posix.2 section 4.17.6.1.1 and Table 5-1 for these formats.
876 To keep diagnostics grammatical, the returned string must start
879 if (S_ISREG (st->st_mode))
881 if (st->st_size == 0)
882 return "regular empty file";
883 /* Posix.2 section 5.14.2 seems to suggest that we must read the file
884 and guess whether it's C, Fortran, etc., but this is somewhat useless
885 and doesn't reflect historical practice. We're allowed to guess
886 wrong, so we don't bother to read the file. */
887 return "regular file";
889 if (S_ISDIR (st->st_mode)) return "directory";
891 /* other Posix.1 file types */
893 if (S_ISBLK (st->st_mode)) return "block special file";
896 if (S_ISCHR (st->st_mode)) return "character special file";
899 if (S_ISFIFO (st->st_mode)) return "fifo";
902 /* other Posix.1b file types */
904 if (S_TYPEISMQ (st)) return "message queue";
907 if (S_TYPEISSEM (st)) return "semaphore";
910 if (S_TYPEISSHM (st)) return "shared memory object";
913 /* other popular file types */
914 /* S_ISLNK is impossible with `fstat' and `stat'. */
916 if (S_ISSOCK (st->st_mode)) return "socket";
922 /* Compare two files (or dirs) with specified names
923 DIR0/NAME0 and DIR1/NAME1, at level DEPTH in directory recursion.
924 (if DIR0 is 0, then the name is just NAME0, etc.)
925 This is self-contained; it opens the files and closes them.
927 Value is 0 if files are the same, 1 if different,
928 2 if there is a problem opening them. */
931 compare_files (dir0, name0, dir1, name1, depth)
932 char const *dir0, *dir1;
933 char const *name0, *name1;
936 struct file_data inf[2];
941 char *free0 = 0, *free1 = 0;
943 /* If this is directory comparison, perhaps we have a file
944 that exists only in one of the directories.
945 If so, just print a message to that effect. */
947 if (! ((name0 != 0 && name1 != 0)
948 || (unidirectional_new_file_flag && name1 != 0)
949 || entire_new_file_flag))
951 char const *name = name0 == 0 ? name1 : name0;
952 char const *dir = name0 == 0 ? dir1 : dir0;
953 message ("Only in %s: %s\n", dir, name);
954 /* Return 1 so that diff_dirs will return 1 ("some files differ"). */
958 bzero (inf, sizeof (inf));
960 /* Mark any nonexistent file with -1 in the desc field. */
961 /* Mark unopened files (e.g. directories) with -2. */
963 inf[0].desc = name0 == 0 ? -1 : -2;
964 inf[1].desc = name1 == 0 ? -1 : -2;
966 /* Now record the full name of each file, including nonexistent ones. */
973 inf[0].name = dir0 == 0 ? name0 : (free0 = dir_file_pathname (dir0, name0));
974 inf[1].name = dir1 == 0 ? name1 : (free1 = dir_file_pathname (dir1, name1));
976 /* Stat the files. Record whether they are directories. */
978 for (i = 0; i <= 1; i++)
980 if (inf[i].desc != -1)
984 if (i && filename_cmp (inf[i].name, inf[0].name) == 0)
986 inf[i].stat = inf[0].stat;
989 else if (strcmp (inf[i].name, "-") == 0)
991 inf[i].desc = STDIN_FILENO;
992 stat_result = fstat (STDIN_FILENO, &inf[i].stat);
993 if (stat_result == 0 && S_ISREG (inf[i].stat.st_mode))
995 off_t pos = lseek (STDIN_FILENO, (off_t) 0, SEEK_CUR);
1000 if (pos <= inf[i].stat.st_size)
1001 inf[i].stat.st_size -= pos;
1003 inf[i].stat.st_size = 0;
1004 /* Posix.2 4.17.6.1.4 requires current time for stdin. */
1005 time (&inf[i].stat.st_mtime);
1010 stat_result = stat (inf[i].name, &inf[i].stat);
1012 if (stat_result != 0)
1014 perror_with_name (inf[i].name);
1019 inf[i].dir_p = S_ISDIR (inf[i].stat.st_mode) && inf[i].desc != 0;
1020 if (inf[1 - i].desc == -1)
1022 inf[1 - i].dir_p = inf[i].dir_p;
1023 inf[1 - i].stat.st_mode = inf[i].stat.st_mode;
1029 if (! failed && depth == 0 && inf[0].dir_p != inf[1].dir_p)
1031 /* If one is a directory, and it was specified in the command line,
1032 use the file in that dir with the other file's basename. */
1034 int fnm_arg = inf[0].dir_p;
1035 int dir_arg = 1 - fnm_arg;
1036 char const *fnm = inf[fnm_arg].name;
1037 char const *dir = inf[dir_arg].name;
1038 char const *p = filename_lastdirchar (fnm);
1039 char const *filename = inf[dir_arg].name
1040 = dir_file_pathname (dir, p ? p + 1 : fnm);
1042 if (strcmp (fnm, "-") == 0)
1043 fatal ("can't compare - to a directory");
1045 if (stat (filename, &inf[dir_arg].stat) != 0)
1047 perror_with_name (filename);
1051 inf[dir_arg].dir_p = S_ISDIR (inf[dir_arg].stat.st_mode);
1057 /* If either file should exist but does not, return 2. */
1062 else if ((same_files = inf[0].desc != -1 && inf[1].desc != -1
1063 && 0 < same_file (&inf[0].stat, &inf[1].stat))
1064 && no_diff_means_no_output)
1066 /* The two named files are actually the same physical file.
1067 We know they are identical without actually reading them. */
1071 else if (inf[0].dir_p & inf[1].dir_p)
1073 if (output_style == OUTPUT_IFDEF)
1074 fatal ("-D option not supported with directories");
1076 /* If both are directories, compare the files in them. */
1078 if (depth > 0 && !recursive)
1080 /* But don't compare dir contents one level down
1081 unless -r was specified. */
1082 message ("Common subdirectories: %s and %s\n",
1083 inf[0].name, inf[1].name);
1088 val = diff_dirs (inf, compare_files, depth);
1092 else if ((inf[0].dir_p | inf[1].dir_p)
1094 && (! S_ISREG (inf[0].stat.st_mode)
1095 || ! S_ISREG (inf[1].stat.st_mode))))
1097 /* Perhaps we have a subdirectory that exists only in one directory.
1098 If so, just print a message to that effect. */
1100 if (inf[0].desc == -1 || inf[1].desc == -1)
1102 if ((inf[0].dir_p | inf[1].dir_p)
1104 && (entire_new_file_flag
1105 || (unidirectional_new_file_flag && inf[0].desc == -1)))
1106 val = diff_dirs (inf, compare_files, depth);
1109 char const *dir = (inf[0].desc == -1) ? dir1 : dir0;
1110 /* See Posix.2 section 4.17.6.1.1 for this format. */
1111 message ("Only in %s: %s\n", dir, name0);
1117 /* We have two files that are not to be compared. */
1119 /* See Posix.2 section 4.17.6.1.1 for this format. */
1120 message5 ("File %s is a %s while file %s is a %s\n",
1121 inf[0].name, filetype (&inf[0].stat),
1122 inf[1].name, filetype (&inf[1].stat));
1124 /* This is a difference. */
1128 else if ((no_details_flag & ~ignore_some_changes)
1129 && inf[0].stat.st_size != inf[1].stat.st_size
1130 && (inf[0].desc == -1 || S_ISREG (inf[0].stat.st_mode))
1131 && (inf[1].desc == -1 || S_ISREG (inf[1].stat.st_mode)))
1133 message ("Files %s and %s differ\n", inf[0].name, inf[1].name);
1138 /* Both exist and neither is a directory. */
1140 /* Open the files and record their descriptors. */
1142 if (inf[0].desc == -2)
1143 if ((inf[0].desc = open (inf[0].name, O_RDONLY, 0)) < 0)
1145 perror_with_name (inf[0].name);
1148 if (inf[1].desc == -2)
1151 inf[1].desc = inf[0].desc;
1152 else if ((inf[1].desc = open (inf[1].name, O_RDONLY, 0)) < 0)
1154 perror_with_name (inf[1].name);
1161 for (i = 0; i <= 1; i++)
1162 if (0 <= inf[i].desc)
1163 setmode (inf[i].desc, O_BINARY);
1166 /* Compare the files, if no error was found. */
1168 val = failed ? 2 : diff_2_files (inf, depth);
1170 /* Close the file descriptors. */
1172 if (inf[0].desc >= 0 && close (inf[0].desc) != 0)
1174 perror_with_name (inf[0].name);
1177 if (inf[1].desc >= 0 && inf[0].desc != inf[1].desc
1178 && close (inf[1].desc) != 0)
1180 perror_with_name (inf[1].name);
1185 /* Now the comparison has been done, if no error prevented it,
1186 and VAL is the value this function will return. */
1188 if (val == 0 && !inf[0].dir_p)
1190 if (print_file_same_flag)
1191 message ("Files %s and %s are identical\n",
1192 inf[0].name, inf[1].name);
1205 /* Initialize status variables and flag variables used in libdiff,
1206 to permit repeated calls to diff_run. */
1209 initialize_main (argcp, argvp)
1213 /* These variables really must be reset each time diff_run is called. */
1214 output_style = OUTPUT_NORMAL;
1216 file_label[0] = NULL;
1217 file_label[1] = NULL;
1218 diff_program_name = (*argvp)[0];
1221 /* Reset these also, just for safety's sake. (If one invocation turns
1222 on ignore_case_flag, it must be turned off before diff_run is called
1223 again. But it is possible to make many diffs before encountering
1230 no_diff_means_no_output = 0;
1231 always_text_flag = 0;
1233 ignore_space_change_flag = 0;
1234 ignore_all_space_flag = 0;
1235 ignore_blank_lines_flag = 0;
1236 ignore_some_line_changes = 0;
1237 ignore_some_changes = 0;
1238 ignore_case_flag = 0;
1239 function_regexp_list = NULL;
1240 ignore_regexp_list = NULL;
1241 no_details_flag = 0;
1242 print_file_same_flag = 0;
1244 tab_expand_flag = 0;
1245 dir_start_file = NULL;
1246 entire_new_file_flag = 0;
1247 unidirectional_new_file_flag = 0;
1249 bzero (group_format, sizeof (group_format));
1250 bzero (line_format, sizeof (line_format));
1251 sdiff_help_sdiff = 0;
1252 sdiff_left_only = 0;
1253 sdiff_skip_common_lines = 0;
1254 sdiff_half_width = 0;
1255 sdiff_column2_offset = 0;
1256 switch_string = NULL;
1258 bzero (files, sizeof (files));